%# $Id: menu.mc,v 1.16 2006-11-16 17:07:01 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'";
}
}
%perl>
% if (defined $id) {
% }
Documentation
Contents