cciefun ccie/sp fortiOS linux tcl/tk avalanche/reflector canada immi, visit

useful TCL command


a, wait [args]
delays until a spawned process (or the current process if none is named) terminates.
sample:
spawn telnet 172.18.9.38
expect "login"
send "admin\r"
expect "assword:"
send "1\r"
#expect "accept):"
#send "a"
expect "#"
close
wait
sleep 1