}
sub main__island () {
- my $url= "$pctb/islands.php?oceanName=SAGE";
+ my $ocean= $ENV{'YPPSC_OCEAN'}; die unless $ocean;
+ my $url= "$pctb/islands.php?oceanName=".uc $ocean;
my $resp= $ua->get($url);
die $resp->status_line unless $resp->is_success;
$jsonresp= $resp->content;
Booty Booty
Ahoy! Ahoy!
}
-Ship {On board a ship} {
+Vessel {On board a ship} {
Crew Crew
Vessel Vessel
Ye Ye