sub main__comparesources () {
my $ocean= get_ocean();
- parse_masters();
+ parse_info_clientside();
get_arches_islands_pctb($ocean);
parse_pctb_commodmap() or die;
sub main__island () {
my $ocean= get_ocean();
- parse_masters();
+ parse_info_clientside();
get_arches_islands_pctb($ocean);
for_islands($ocean,
});
}
+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} {