X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fdatabase-info-fetch;h=655d2ecdb05871502eed20e102476b0e4e80b274;hb=669414f2132269b7bf7d885092165db632c8ba06;hp=90db002aa4bddd79dd320c61eabaafece677e577;hpb=0e0de455b99b0543128005437b8c931b348edb75;p=ypp-sc-tools.main.git

diff --git a/yarrg/database-info-fetch b/yarrg/database-info-fetch
index 90db002..655d2ec 100755
--- a/yarrg/database-info-fetch
+++ b/yarrg/database-info-fetch
@@ -24,8 +24,9 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+BEGIN { unshift @INC, qw(.) }
+
 use strict (qw(vars));
-use LWP::UserAgent;
 use JSON;
 #use Data::Dumper;
 use IO::File;
@@ -38,7 +39,7 @@ our ($which) = shift @ARGV;
 $which =~ s/\W//g;
 
 our ($pctb) = $ENV{'YPPSC_YARRG_PCTB'};
-our ($ua)= LWP::UserAgent->new;
+our ($ua)= http_useragent("database_info_fetch $which");
 our $jsonresp;
 
 sub jparsetable ($$) {
@@ -193,6 +194,14 @@ sub main__timestamp () {
     exit(0);
 }
 
+sub main__yarrgversion () {
+    printf "%s\n", version_core();
+}
+
+sub main__useragentstringmap ($$) {
+    printf "%s\n", http_useragent_string_map($_[0], $_[1]);
+}
+
 sub main__sunshinewidget () {
     print <<END
 Land {On land} {