X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=pctb%2Fyppsc-resolver-pixoptions;h=7bbcb19fbb0f4fc4284b847cc6140d8fd0c7e94d;hp=260c5a2578cddc2a1e12dcf3c6a8a49c770700f5;hb=2ab2dd100d5c7459e2534d98f50e6637e9a11070;hpb=b92f51387b77f876112c62d1a1afd816583e987d

diff --git a/pctb/yppsc-resolver-pixoptions b/pctb/yppsc-resolver-pixoptions
index 260c5a2..7bbcb19 100755
--- a/pctb/yppsc-resolver-pixoptions
+++ b/pctb/yppsc-resolver-pixoptions
@@ -24,12 +24,76 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+use strict (qw(vars));
+use LWP::UserAgent;
+use JSON;
+#use Data::Dumper;
+
 @ARGV==1 or die "You probably don't want to run this program directly.\n";
 our ($which) = shift @ARGV;
 
 $which =~ s/\W//g;
 
-&{"main__$which"}();
+our ($pctb)= 'http://pctb.ilk.org/';
+our ($ua)= LWP::UserAgent->new;
+our $jsonresp;
+
+sub jparsetable ($$) {
+    my ($jobj,$wh) = @_;
+    my $jtab= $jobj->{$wh};
+    die "$jsonresp $wh ?" unless defined $jtab;
+    my $cns= $jtab->{'colNames'};  die "$jsonresp $wh ?" unless defined $cns;
+    my $ad= $jtab->{'arrayData'};  die "$jsonresp $wh ?" unless defined $ad;
+    my @o=();
+    foreach my $ai (@$ad) {
+	@$ai == @$cns or die "$jsonresp $wh ".scalar(@o)."?";
+	my $v= { };
+	for (my $i=0; $i<@$cns; $i++) {
+	    $v->{$cns->[$i]} = $ai->[$i];
+	}
+	push @o, $v;
+    }
+    return @o;
+}
+sub sort_by_name {
+    sort {
+	$a->{'name'} cmp $b->{'name'};
+    } @_;
+}
+
+sub p ($) { print $_[0] or die $!; }
+sub ptcl ($) {
+    local ($_) = @_;
+    die "$_ $& ?" if m/[^-+'"# 0-9a-z]/i;
+    p("{$_[0]}");
+}
+    
+sub main__island () {
+    my $url= "$pctb/islands.php?oceanName=SAGE";
+    my $resp= $ua->get($url);
+    die $resp->status_line unless $resp->is_success;
+    $jsonresp= $resp->content;
+    my $jobj= jsonToObj($resp->content);
+    my @arches= jparsetable($jobj, 'arches');
+    my @islands= jparsetable($jobj, 'islands');
+#    print Dumper(\@arches, \@islands);
+    my $islands_done=0;
+    foreach my $arch (sort_by_name(@arches)) {
+#	print Dumper($arch);
+	my $aname= $arch->{'name'};
+	die "$jsonresp ?" unless defined $aname;
+	ptcl($aname); p(' '); ptcl($aname); p(" {\n");
+	foreach my $island (sort_by_name(@islands)) {
+	    my $iname= $island->{'name'};
+	    die "$jsonresp $aname ?" unless defined $iname;
+	    next unless $arch->{'id'} == $island->{'arch'};
+	    p('    '); ptcl($iname); p(' '); ptcl($iname); p("\n");
+	    $islands_done++;
+	}
+	p("}\n");
+    }
+    die "$jsonresp $islands_done ?" unless $islands_done == @islands;
+}
 
 sub main__sunshinewidget () {
     print <<END
@@ -50,3 +114,5 @@ Ship {On board a ship} {
 END
     or die $!;
 }
+
+&{"main__$which"}();