sub main__comparesources () {
my $ocean= get_ocean();
- parse_masters();
+ parse_info_clientside();
get_arches_islands_pctb($ocean);
parse_pctb_commodmap() or die;
sub { });
for_commods(sub {
my ($commod)= @_;
- my $srcs= $commods{$commod};
+ my $srcs= $commods{$commod}{Srcs};
compare_sources_one($srcs, "commodity $commod");
});
}
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} {