* default.exp: Add procedure setup_wrapper to first setup shared library

environment variables and the exec program.

This allows for easy testing of "rsh $hostname klist" which would
normally fail due to shared libraries not being setup.

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@7902 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/tests/dejagnu/config/ChangeLog b/src/tests/dejagnu/config/ChangeLog
index 83a1ed655b66d5c77fa45e27af23ab7509322171..62e2e13122599ece09ed7c32f356ad25d7a70d2e 100644 (file)
--- a/src/tests/dejagnu/config/ChangeLog
+++ b/src/tests/dejagnu/config/ChangeLog
@@ -1,3 +1,8 @@
+Mon May  6 11:54:20 1996  Ezra Peisach  <epeisach@kangaroo.mit.edu>
+
+       * default.exp: Add procedure setup_wrapper to first setup shared
+               library environment variables and the exec program
+
 Sat May  4 11:56:17 1996  Ezra Peisach  (epeisach@kangaroo.mit.edu)
 
        * default.exp: For stty_init set to \^h as on some /bin/sh, ^ is

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index ab6e7ef95cdfea634ba4063193ababf3d2eee0fe..c5102b6064e410454a6dfd9da8e3d5f99f6c86e6 100644 (file)
--- a/src/tests/dejagnu/config/default.exp
+++ b/src/tests/dejagnu/config/default.exp
@@ -1301,3 +1301,30 @@ proc touch { file } {
 proc tail1 { file } {
     exec tail -1 $file
 }
+
+# setup_wrapper
+# Sets up a wraper script to set the runtime shared library environment 
+# variables and then executes a specific command. This is used to allow
+# a "rsh klist" or telnetd to execute login.krb5. 
+proc setup_wrapper { file command } {
+    global BINSH
+    global env
+    global krb5_init_vars
+
+    # We will start with a BINSH script
+    catch "exec rm -f $file"
+
+    set f [open $file "w" 0777]
+    puts $f "#!$BINSH"
+    foreach i $krb5_init_vars {
+       regexp "^(\[^=\]*)=(.*)" $i foo evar evalue
+       puts $f "$evar=$env($evar)"
+       puts $f "export $evar"
+    }
+    puts $f "exec $command"
+    close $f
+    
+    return 1
+}
+       
+