+Fri Nov 6 10:05:31 1998 Ezra Peisach <epeisach@mit.edu>
+
+ * gssftp.exp: Changes to deal with new text messages in ftp/ftpd.
+
Fri Jan 30 23:49:54 1998 Tom Yu <tlyu@mit.edu>
* kadmin.exp: Fix to deal with new kpasswd program.
}
expect -nocase "name ($hostname:$env(USER)): "
send "$env(USER)\r"
- expect "User $env(USER) logged in."
+# expect "User $env(USER) logged in."
# expect "Remote system type is UNIX."
# expect "Using binary mode to transfer files."
expect "ftp> " {
set testname "start encryption"
send "private\r"
- expect "Protection level set to Private"
+ expect "Data channel protection level set to private"
expect "ftp> " {
pass $testname
}