chiark / gitweb /
where-vessels: disable "Show" for smash ownership when no notes
[ypp-sc-tools.db-live.git] / yarrg / yarrglib.tcl
index e1bf6e8..a657537 100644 (file)
@@ -6,3 +6,13 @@ proc manyset {list args} {
         set my $val
     }
 }
+
+proc httpclientsetup {program} {
+    ::http::config -urlencoding utf-8
+    set ua [::http::config -useragent]
+    debug "USERAGENT OLD \"$ua\""
+    set ua [exec ./database-info-fetch useragentstringmap $ua \
+                   $program 2>@ stderr]
+    ::http::config -useragent $ua
+    debug "USERAGENT NEW \"$ua\""
+}