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"