$which =~ s/\W//g;
-our ($pctb)= 'http://pctb.ilk.org/';
+our ($pctb) = $ENV{'YPPSC_PCTB_PCTB'}; die unless $pctb;
our ($ua)= LWP::UserAgent->new;
our $jsonresp;
}
sub main__island () {
- my $url= "$pctb/islands.php?oceanName=MIDNIGHT";
+ my $url= "$pctb/islands.php?oceanName=SAGE";
my $resp= $ua->get($url);
die $resp->status_line unless $resp->is_success;
$jsonresp= $resp->content;