# ./dictionary-manager --approve-updates '' . .
+source yarrglib.tcl
+
# invocation:
# OUT OF DATE
}
if {$privacy_setting} {
package require http
- ::http::config -urlencoding utf-8
+ httpclientsetup dictionary-manager
}
}
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"