WIP overhaul of plumbing, databases, etc.

[ypp-sc-tools.web-live.git] / pctb / yppsc-resolver-pixoptions

diff --git a/pctb/yppsc-resolver-pixoptions b/pctb/yppsc-resolver-pixoptions
index eff5b021ab2ca256c7c77a325a2dc0b4fc870f90..5b7a825fd4daded0a1cfe3c7cb0a34e27ee448ef 100755 (executable)
--- a/pctb/yppsc-resolver-pixoptions
+++ b/pctb/yppsc-resolver-pixoptions
@@ -34,7 +34,7 @@ our ($which) = shift @ARGV;
 
 $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;
 
@@ -69,7 +69,7 @@ sub ptcl ($) {
 }
     
 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;