X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fpirate-route;h=154b37ddee30b5d7bca1aac22c8aa2a46bc25f3f;hb=5cc1eb0200564bcc8d67ecf4250afebaaeff2eff;hp=612c577287615e9f7aa99a56e5f6dcdc196b477b;hpb=9ad85b94399ad653e1d10fd18500a9e2205f032d;p=ypp-sc-tools.db-live.git diff --git a/yarrg/web/pirate-route b/yarrg/web/pirate-route index 612c577..154b37d 100644 --- a/yarrg/web/pirate-route +++ b/yarrg/web/pirate-route @@ -4,6 +4,11 @@ my %a; my @vars; +#---------- "mode" argument parsing and mode menu at top of page ---------- + +# for debugging, invoke as +# http://www.chiark.greenend.org.uk/ucgi/~clareb/mason/pirates/pirate-route?debug=1 + @vars= ({ Name => 'Ocean', Before => 'Ocean: ', CmpCanon => sub { ucfirst lc $_[0] }, @@ -56,6 +61,7 @@ foreach my $var (@vars) { } } my $uri= URI->new($m->current_comp()->name()); + $qf{'debug'}=1 if $debug; $uri->query_form(%qf); print ''; $after= ''; @@ -63,9 +69,11 @@ foreach my $var (@vars) { print $html, $after; $cvalix++; } - print '
'; + print "
\n\n"; } +#---------- initial checks, startup, main entry form ---------- + die "unknown ocean $a{Ocean} ?" unless grep { $_ eq $a{Ocean} } ocean_list(); @@ -73,11 +81,16 @@ db_setocean($a{Ocean}); db_connect(); %perl> +<%args> +$debug => 0 +%args>