X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fdictionary-manager;h=2231266edc8f0e0ef441067a7e5ffd276ba52ba6;hp=65fc977b505fd9b8c3b3dd343e37e891d853edff;hb=43f8e013acbfc92ec9c4d6c2ea8f066fd9afcd38;hpb=f77eca2b4dce3066084189fa3b18accf5d50bfa2;ds=sidebyside

diff --git a/yarrg/dictionary-manager b/yarrg/dictionary-manager
index 65fc977..2231266 100755
--- a/yarrg/dictionary-manager
+++ b/yarrg/dictionary-manager
@@ -509,6 +509,12 @@ 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\""
     }
 }