Make top-level Mason components executable

[ypp-sc-tools.web-live.git] / yarrg / database-info-fetch

diff --git a/yarrg/database-info-fetch b/yarrg/database-info-fetch
index 86e3d5f2baa55843ba5a3a77cbc5643c7809d59e..1e789b88fcb389686675f07393e1d0fab7a48ac1 100755 (executable)
--- a/yarrg/database-info-fetch
+++ b/yarrg/database-info-fetch
@@ -145,7 +145,7 @@ sub compare_sources_one ($$) {
 sub main__comparesources () {
     my $ocean= get_ocean();
     
 sub main__comparesources () {
     my $ocean= get_ocean();
     

-    parse_masters();
+    parse_info_clientside();

     get_arches_islands_pctb($ocean);
     parse_pctb_commodmap() or die;
 
     get_arches_islands_pctb($ocean);
     parse_pctb_commodmap() or die;
 


@@ -167,7 +167,7 @@ sub main__comparesources () {
 sub main__island () {
     my $ocean= get_ocean();
     
 sub main__island () {
     my $ocean= get_ocean();
     

-    parse_masters();
+    parse_info_clientside();

     get_arches_islands_pctb($ocean);
 
     for_islands($ocean,
     get_arches_islands_pctb($ocean);
 
     for_islands($ocean,


@@ -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} {
 sub main__sunshinewidget () {
     print <<END
 Land {On land} {