X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fdatabase-info-fetch;h=90db002aa4bddd79dd320c61eabaafece677e577;hb=13b9f206d92634f4e6f4a940ed31690c1235d827;hp=c56fda42e2d4f871fea5f256d46c6ad858657432;hpb=877b0ba6b2d72d7957e2a8015520b87371cba6c9;p=ypp-sc-tools.db-test.git

diff --git a/yarrg/database-info-fetch b/yarrg/database-info-fetch
index c56fda4..90db002 100755
--- a/yarrg/database-info-fetch
+++ b/yarrg/database-info-fetch
@@ -159,7 +159,7 @@ sub main__comparesources () {
 		sub { });
     for_commods(sub {
 		    my ($commod)= @_;
-		    my $srcs= $commods{$commod};
+		    my $srcs= $commods{$commod}{Srcs};
 		    compare_sources_one($srcs, "commodity $commod");
 		});
 }
@@ -167,8 +167,8 @@ sub main__comparesources () {
 sub main__island () {
     my $ocean= get_ocean();
     
-    parse_info_clientside();
-    get_arches_islands_pctb($ocean);
+    parse_info_clientside() if $ENV{'YPPSC_YARRG_YARRG'};
+    get_arches_islands_pctb($ocean) if $pctb;
 
     for_islands($ocean,
 		sub {
@@ -184,6 +184,15 @@ sub main__island () {
 		});
 }
 
+sub main__timestamp () {
+    my %o;
+    $o{'requesttimestamp'}= '1';
+    my $respcontent= yarrgpostform($ua, \%o);
+    $respcontent =~ m/^OK ([1-9]\d{1,20})\./ or die "$respcontent ?";
+    print "$1\n";
+    exit(0);
+}
+
 sub main__sunshinewidget () {
     print <<END
 Land {On land} {