chiark / gitweb /
move http client setup to yarrglib.tcl
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sat, 12 Dec 2009 13:17:03 +0000 (13:17 +0000)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sat, 12 Dec 2009 13:17:03 +0000 (13:17 +0000)
yarrg/dictionary-manager
yarrg/yarrglib.tcl

index 83c7e54..46a5902 100755 (executable)
@@ -510,13 +510,7 @@ proc upload_init {} {
     }
     if {$privacy_setting} {
        package require http
-       ::http::config -urlencoding utf-8
-       set ua [::http::config -useragent]
-       debug "USERAGENT OLD \"$ua\""
-       set ua [exec ./database-info-fetch useragentstringmap $ua \
-                   dictionary-manager 2>@ stderr]
-       ::http::config -useragent $ua
-       debug "USERAGENT NEW \"$ua\""
+       httpclientsetup dictionary-manager
     }
 }
 
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\""
+}