diff options
author | Ezra Peisach <epeisach@mit.edu> | 1996-05-07 01:14:09 +0000 |
---|---|---|
committer | Ezra Peisach <epeisach@mit.edu> | 1996-05-07 01:14:09 +0000 |
commit | c65af8a8579f4a1e97d42e34f4652ea109ca9afd (patch) | |
tree | 54d95d060b246591137e2f3acbe7dee58667aac5 /src/tests/dejagnu | |
parent | 6761a0be6fb8e64f7c7e7ba5d7c0fc756f176a54 (diff) | |
download | krb5-c65af8a8579f4a1e97d42e34f4652ea109ca9afd.tar.gz krb5-c65af8a8579f4a1e97d42e34f4652ea109ca9afd.tar.xz krb5-c65af8a8579f4a1e97d42e34f4652ea109ca9afd.zip |
Use a wrapper script for the rcp started from kshd. This change cleans up the
test as written.
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@7908 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/tests/dejagnu')
-rw-r--r-- | src/tests/dejagnu/krb-standalone/ChangeLog | 3 | ||||
-rw-r--r-- | src/tests/dejagnu/krb-standalone/rcp.exp | 19 |
2 files changed, 12 insertions, 10 deletions
diff --git a/src/tests/dejagnu/krb-standalone/ChangeLog b/src/tests/dejagnu/krb-standalone/ChangeLog index 06518e500d..e15c072033 100644 --- a/src/tests/dejagnu/krb-standalone/ChangeLog +++ b/src/tests/dejagnu/krb-standalone/ChangeLog @@ -1,5 +1,8 @@ Mon May 6 08:05:33 1996 Ezra Peisach <epeisach@kangaroo.mit.edu> + * rcp.exp: Use a wrapper script to set up the remote rcp as + started from kshd. + * rsh.exp: Setup a wrapper script in executing klist in the remote shell so that environment variables are properly set. diff --git a/src/tests/dejagnu/krb-standalone/rcp.exp b/src/tests/dejagnu/krb-standalone/rcp.exp index 8e8b569667..a51196c5da 100644 --- a/src/tests/dejagnu/krb-standalone/rcp.exp +++ b/src/tests/dejagnu/krb-standalone/rcp.exp @@ -15,6 +15,9 @@ if ![info exists KRSHD] { set KRSHD [findfile $objdir/../../appl/bsd/kshd] } +# Remove old wrapper script + catch "exec rm -f $tmppwd/rcp" + # Make sure .k5login is reasonable. if ![check_k5login rcp] { return @@ -38,17 +41,13 @@ proc start_rsh_daemon { } { global tmppwd global krshd_spawn_id global krshd_pid - global krb5_init_vars - - set opt(0) "" - set opt(1) "" - set opt(2) "" - set opt(3) "" - for {set i 0} {$i < [llength $krb5_init_vars]} {incr i} { - regexp "^(\[^=\]*)=(.*)" [lindex $krb5_init_vars $i] foo evar evalue - set opt($i) "-L$evar" + + # Setup the shared library wrapper for login.krb5 + if ![file exists $tmppwd/rcp] { + setup_wrapper $tmppwd/rcp "$RCP $*" } + # The -D argument tells it to accept a single connection, so we # don't need to use inetd. The 3544 is the port to listen at. # @@ -58,7 +57,7 @@ proc start_rsh_daemon { } { # a users shell might be sh... # Later a proper fix would be to have kshd exec rcp directly # shell indirection... - spawn $KRSHD -k -c -D 3544 -P [file dirname $RCP] -S $tmppwd/srvtab -M $REALMNAME -L ENV_SET $opt(0) $opt(1) $opt(2) $opt(3) + spawn $KRSHD -k -c -D 3544 -P $tmppwd -S $tmppwd/srvtab -M $REALMNAME -L ENV_SET set krshd_spawn_id $spawn_id set krshd_pid [exp_pid] |