X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fdictionary-manager;h=46a5902f9721e741b3b65f3683236a412b314609;hp=83c7e548c29ff3873a9b4e0057ded05f1fdeb1f7;hb=0133a79929da1c6bcbd524b6e7d23decdfc80198;hpb=a3e622dcc14fab97218a81444355aea6734b4004

diff --git a/yarrg/dictionary-manager b/yarrg/dictionary-manager
index 83c7e54..46a5902 100755
--- a/yarrg/dictionary-manager
+++ b/yarrg/dictionary-manager
@@ -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
     }
 }