ActiveState Community Site - Windows expect /Unix expect - Comments

online version updated

grahams — Tue, 29 Apr 2008 21:00:58 +0100

pmcd — Sat, 12 Apr 2008 00:23:39 +0100

jeffh — Mon, 14 Jan 2008 19:49:37 +0000

It is part of the documentation that comes with ActiveTcl on Windows.

dave_mairs — Mon, 14 Jan 2008 19:44:16 +0000

The hyerlink for doc above, is not working for me? Could you send along the URL?

Thanks

jeffh — Mon, 14 Jan 2008 18:32:43 +0000

Have you tried the same in Windows Expect? It supports the timeout functionality. The docs list the specific differences between the versions.

dave_mairs — Mon, 14 Jan 2008 11:46:10 +0000

I am using ActiveState 8.4.16.0, I have found this code format that seems to work great:

expect "Login:*"
send "root\r"
expect ">*"
send "ksh\r"
expect "#*"
send "tar -xvf /dev/rmt/0m\r"
expect "#"

My question is, how do I set it up to fail out if one of the expect calls
doesn't happen? In UX it would be aomething like:

proc T1 {} {
set EXITCODE [format "NO root prompt\n" ]
send_user $EXITCODE
exit -1
}

set timeout 5

expect {#*} {send "root\r"} \
timeout {T1}

If "#" wasn't found in 5 seconds, the program would fail and the log would report "NO root prompt"