X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fpirate-route;h=84b61e40acc00b29865ed85466d4bd180cf60c2f;hp=9dfab7e37309726a924f70d4f42a47cf4e86ab09;hb=6fed4d2eccc640ca025f66c63cb7ac4d4423e6fb;hpb=43f6ebdd538a6e75b3d6c43d0ce18b81c972ffd7 diff --git a/yarrg/web/pirate-route b/yarrg/web/pirate-route index 9dfab7e..84b61e4 100644 --- a/yarrg/web/pirate-route +++ b/yarrg/web/pirate-route @@ -1,18 +1,14 @@
\n\n"; } +#---------- initial checks, startup, main entry form ---------- + die "unknown ocean $a{Ocean} ?" unless grep { $_ eq $a{Ocean} } ocean_list(); @@ -90,7 +88,9 @@ $debug => 0