Fix up search too long error message - really fix up

[ypp-sc-tools.db-live.git] / yarrg / dictionary-manager

diff --git a/yarrg/dictionary-manager b/yarrg/dictionary-manager
index 2231266edc8f0e0ef441067a7e5ffd276ba52ba6..46a5902f9721e741b3b65f3683236a412b314609 100755 (executable)
--- a/yarrg/dictionary-manager
+++ b/yarrg/dictionary-manager
@@ -31,6 +31,8 @@
 
 # ./dictionary-manager --approve-updates '' . .
 
+source yarrglib.tcl
+
 
 # invocation:
 # OUT OF DATE
@@ -508,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
     }
 }