X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fchrome%2Fmenu.mc;fp=web%2Fhtdocs%2Fchrome%2Fmenu.mc;h=0000000000000000000000000000000000000000;hp=623fb579826a66d125313cf9c14fabaf93680bc8;hb=06860b1e4338e559efc1e756ee47ce8163443c50;hpb=fb2e817d24f4fe8263c8c2d8f2e7ef92fe40f10f diff --git a/web/htdocs/chrome/menu.mc b/web/htdocs/chrome/menu.mc deleted file mode 100644 index 623fb57..0000000 --- a/web/htdocs/chrome/menu.mc +++ /dev/null @@ -1,75 +0,0 @@ -%# $Id: menu.mc,v 1.20 2006-12-04 16:47:27 mike Exp $ -

- Home
- Test all targets
- Find a target
- Add a target
-

-

- Show targets -
-% foreach my $i ('a' .. 'z') { - <% uc($i) %> -% } -

-<%perl> -my $id = $r->param("id"); -{ - # Make up ID for newly created records. It would be more - # rigorously correct, but insanely inefficient, to submit the - # record to Zebra and then search for it; but since we know the - # formula for IDs anyway, we just build one by hand. - my $id = $r->param("id"); - my $host = $r->param("host"); - my $port = $r->param("port"); - my $dbname = $r->param("dbname"); - #warn "id='$id', host='$host', port='$port', dbname='$dbname'"; - #warn "%ARGS = {\n" . join("", map { "\t'$_' => '" . $ARGS{$_} . ",'\n" } sort keys %ARGS) . "}\n"; - if ((!defined $id || $id eq "") && - defined $host && defined $port && defined $dbname) { - $id = "$host:$port/$dbname"; - #warn "id set to '$id'"; - } -} - -% if (defined $id && $r->param("op") ne "copy") { -
- This Target -
- Show details -
- ">Edit details -
- ">Copy target -

- ">Quick Test -
- ">Full Test -

-

- XML -

-<%doc> -
-% my $host = "bagel.indexdata.dk"; -% my $port = 210; - All databases on this server - -
-% } -

- Documentation -
- Contents -

-

 

-

- Valid XHTML 1.0 Strict -
- Valid CSS! -