This prints the make-secnet-sites runes we are about to run.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
}
proc run-mss-userv {user group args} {
}
proc run-mss-userv {user group args} {
- eval [list exec env USERV_USER=$user USERV_GROUP=$group] \
+ eval [list prexec env USERV_USER=$user USERV_GROUP=$group] \
-proc run-mss {args} { eval [list exec] [mss-program] $args }
+proc run-mss {args} { eval [list prexec] [mss-program] $args }
proc diff {a b seddery {sedderyb X}} {
if {![string compare $sedderyb X]} { set sedderyb $seddery }
proc diff {a b seddery {sedderyb X}} {
if {![string compare $sedderyb X]} { set sedderyb $seddery }
set env($pathvar) [join $l :]
}
set env($pathvar) [join $l :]
}
+proc prexec {args} {
+ puts "exec $args"
+ eval exec $args
+}
+
if {![catch {
set builddir $env(SECNET_TEST_BUILDDIR)
}]} {} else {
if {![catch {
set builddir $env(SECNET_TEST_BUILDDIR)
}]} {} else {