Subversion Repositories or1k

# Start telnet and when you press ^Z, put telnet in background and save any
# remaining output in "telnet.log".  You can actually apply this technique
# to any interactive program - I just chose telnet here.

# Author: Don Libes, NIST, 1/5/95

spawn -ignore HUP telnet $argv          ;# start telnet
interact \032 return                    ;# interact until ^Z

if [fork] exit                          ;# disconnect from terminal
disconnect

set log [open logfile w]                ;# open logfile
expect -re .+ {                         ;# and record everything to it
        puts -nonewline $log $expect_out(buffer)
        exp_continue
}