From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 23 Nov 2019 00:19:11 +0000 (+0000)
Subject: stest: Print the special env vars we pass to secnet
X-Git-Tag: v0.6.0~236
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=5e9e16495a12d8284c05a9fec88021bda68c94e5;p=secnet.git

stest: Print the special env vars we pass to secnet

We don't dump the whole environment, just selected bits.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/stest/common.tcl b/stest/common.tcl
index 8a9d0f1..3236f90 100644
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -110,13 +110,22 @@ proc spawn-secnet {location site} {
     global tmp
     global builddir
     global netlinkfh
+    global env
     upvar #0 pids($site) pid
     set cf $tmp/$site.conf
     set ch [open $cf w]
     puts $ch [mkconf $location $site]
     close $ch
     set argl [list $builddir/secnet -dvnc $cf]
-    puts "spawn $argl"
+    puts -nonewline "spawn"
+    foreach k [array names env] {
+	switch -glob $k {
+	    SECNET_TEST_BUILDDIR { }
+	    *SECNET* -
+	    *PRELOAD* { puts -nonewline " $k=$env($k)" }
+	}
+    }
+    puts " $argl"
     set pid [fork]
     if {!$pid} {
 	execl [lindex $argl 0] [lrange $argl 1 end]