chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
49876ca
)
Fix up dictionary-manager so server finds yarrglib.tcl
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 5 Jan 2010 16:29:14 +0000
(16:29 +0000)
committer
Ian Jackson
<Ian.Jackson@eu.citrix.com>
Tue, 5 Jan 2010 16:29:14 +0000
(16:29 +0000)
yarrg/dictionary-manager
patch
|
blob
|
history
diff --git
a/yarrg/dictionary-manager
b/yarrg/dictionary-manager
index 46a5902f9721e741b3b65f3683236a412b314609..a0eff44cfca90603be623daa7f9a6c3cddb4663c 100755
(executable)
--- a/
yarrg/dictionary-manager
+++ b/
yarrg/dictionary-manager
@@
-1310,13
+1310,13
@@
proc main/approve {} {
manyset $argv userhost directory dictdir
debug "APPROVER FOR $userhost $directory $dictdir"
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 }
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"
}
debug "APPROVER RUNS $cmd"