+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__yarrgversion () {
+ printf "%s\n", version_core();
+}
+
+sub main__useragentstringmap ($$) {
+ printf "%s\n", http_useragent_string_map($_[0], $_[1]);
+}
+