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=58f8f28ae7d8d147a03c0d6fc4e9c3e93d99c492;hpb=7031695ce7767c196f2ef0f279bf4e3c7931c211;p=ypp-sc-tools.web-live.git diff --git a/yarrg/web/pirate-route b/yarrg/web/pirate-route index 58f8f28..154b37d 100644 --- a/yarrg/web/pirate-route +++ b/yarrg/web/pirate-route @@ -4,10 +4,15 @@ 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] }, - Values => [ qw(Midnight Ice) ] + Values => [ ocean_list() ] }, { Name => 'Dropdowns', Before => 'Interface: ', CmpCanon => sub { !!$_[0] }, @@ -55,7 +60,8 @@ foreach my $var (@vars) { $qf{$n}= $value; } } - my $uri= URI->new($self_url); + my $uri= URI->new($m->current_comp()->name()); + $qf{'debug'}=1 if $debug; $uri->query_form(%qf); print ''; $after= ''; @@ -63,98 +69,171 @@ 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(); + db_setocean($a{Ocean}); db_connect(); %perl> +<%args> +$debug => 0 +%args>