chiark / gitweb /
Actually export relevant stuff from CommodsWeb to make it work
[ypp-sc-tools.db-live.git] / yarrg / database-info-fetch
index c56fda4..1e789b8 100755 (executable)
@@ -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} {