+Mon Apr 8 14:13:06 1996 Ezra Peisach <epeisach@kangaroo.mit.edu>
+
+ * rcp.exp: Invoke kshd with -L for every environment variable we
+ want passed to invoke rcp with...
+
Fri Mar 15 15:09:17 1996 Ezra Peisach <epeisach@kangaroo.mit.edu>
* gssftp.exp: Add dejagnu for GSS-API ftp.
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"
+ }
# 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.
- spawn $KRSHD -k -c -D 3544 -P [file dirname $RCP] -S $tmppwd/srvtab -M $REALMNAME
+ #
+ # The -L ENV_SET is for the I/S Athena brokeness in dot files where
+ # LD_LIBRARY_PATH will be overridden causing the "exec csh -c rcp ..."
+ # to fail as the .cshrc is read in. We do not use the -f option as
+ # 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)
set krshd_spawn_id $spawn_id
set krshd_pid [exp_pid]