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=a0eff44cfca90603be623daa7f9a6c3cddb4663c;hp=83c7e548c29ff3873a9b4e0057ded05f1fdeb1f7;hb=70ce19058c58f923f4957344502177202c7ee733;hpb=a3e622dcc14fab97218a81444355aea6734b4004

diff --git a/yarrg/dictionary-manager b/yarrg/dictionary-manager
index 83c7e54..a0eff44 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
     }
 }
 
@@ -1316,13 +1310,13 @@ proc main/approve {} {
     manyset $argv userhost directory dictdir
     debug "APPROVER FOR $userhost $directory $dictdir"
 
-    set cmd [list tclsh $directory/dictionary-manager]
-    if {$debug} { lappend cmd --debug-server }
-    lappend cmd --remote-server-1 $directory $dictdir
+    set cmd "cd $directory && tclsh ./dictionary-manager"
+    if {$debug} { append cmd " --debug-server" }
+    append cmd " --remote-server-1 $directory $dictdir"
     switch -glob $userhost {
 	{} { }
 	{* *} { set cmd $userhost }
-	* { set cmd [concat [list ssh -o compression=yes $userhost] $cmd] }
+	* { set cmd [list ssh -o compression=yes $userhost $cmd] }
     }
     debug "APPROVER RUNS $cmd"