chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
$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;
our ($ua)= LWP::UserAgent->new;
our $jsonresp;
@@
-69,7
+69,7
@@
sub ptcl ($) {
}
sub main__island () {
}
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;
my $resp= $ua->get($url);
die $resp->status_line unless $resp->is_success;
$jsonresp= $resp->content;