* rlogin.exp: Change RLOGIN to KRLOGIN so we do not use the
authorEzra Peisach <epeisach@mit.edu>
Thu, 10 Aug 2000 13:55:32 +0000 (13:55 +0000)
committerEzra Peisach <epeisach@mit.edu>
Thu, 10 Aug 2000 13:55:32 +0000 (13:55 +0000)
  incorrect binary as used for the root login in default.exp.

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

src/tests/dejagnu/krb-root/ChangeLog
src/tests/dejagnu/krb-root/rlogin.exp

index 3744efdf8683cf3a7e5a94d6b8560d738d1eb31a..1ff13aaf2c0c95cf47c445be3f803decc676e7d2 100644 (file)
@@ -1,3 +1,8 @@
+Thu Aug 10 09:54:52 2000  Ezra Peisach  <epeisach@mit.edu>
+
+       * rlogin.exp: Change RLOGIN to KRLOGIN so we do not use the
+       incorrect binary as used for the root login in default.exp.
+
 Thu Nov 14 15:20:19 1996  Barry Jaspan  <bjaspan@mit.edu>
 
        * telnet.exp: telnet may output fqdn in upper-case
index 4e8497049effc7440f4eb6d0d8ab232f3bad8e18..ac3952005cdcf553109193d2de7aa8b87152c9e3 100644 (file)
@@ -7,8 +7,8 @@
 # if they exist.  If they do not, then they must be in PATH.  We
 # expect $objdir to be .../kerberos/src.
 
-if ![info exists RLOGIN] {
-    set RLOGIN [findfile $objdir/../../appl/bsd/rlogin]
+if ![info exists KRLOGIN] {
+    set KRLOGIN [findfile $objdir/../../appl/bsd/rlogin]
 }
 
 if ![info exists KRLOGIND] {
@@ -119,7 +119,7 @@ proc stop_rlogin_daemon { } {
 
 proc rlogin_test { } {
     global REALMNAME
-    global RLOGIN
+    global KRLOGIN
     global BINSH
     global SHELL_PROMPT
     global KEY
@@ -141,7 +141,7 @@ proc rlogin_test { } {
     start_rlogin_daemon -k
 
     # Make an rlogin connection.
-    spawn $RLOGIN $hostname -k $REALMNAME -D 3543
+    spawn $KRLOGIN $hostname -k $REALMNAME -D 3543
 
     expect_after {
        timeout {
@@ -215,7 +215,7 @@ proc rlogin_test { } {
 
     # Try an encrypted connection.
     start_rlogin_daemon -e
-    spawn $RLOGIN $hostname -x -k $REALMNAME -D 3543
+    spawn $KRLOGIN $hostname -x -k $REALMNAME -D 3543
 
     expect_after {
        timeout {