Shell Programming and Scripting

#!/usr/bin/expect -f
exp_internal 0
log_user 0
match_max -d 1000000

set timeout 30
spawn telnet 192.168.255.100
expect "Login: "
send "mktbk\r"
expect "Password: "
send "password\r"
expect "> "
send "export\r"
expect eof
puts [open outputfile.txt w] $expect_out(buffer)
expect "> "
send "quit\r"

#!/usr/bin/tclsh
package require Expect
log_user 0
match_max -d 10000000
set timeout 30

set tdate [clock format [clock seconds] -format %Y%m%d]

#set host 192.168.255.100
set user mktbk\r
set pass password\r


foreach {host} {argv0} {





set name $tdate-$host
spawn telnet $host

expect "Login: "
exp_send $user

expect "Password: "
exp_send $pass

expect "> "
exp_send "export\r"

expect "> "
exp_send "quit\r"
expect eof

set fd [ open $name w ]
puts $fd $expect_out(buffer)
close $fd

}

[alex@samba scripts]$ ./script.sh host.txt 
send: spawn id exp4 not open
    while executing
"exp_send $user"
    ("foreach" body line 11)
    invoked from within
"foreach {host} {argv0} {





set name $tdate-$host     
spawn telnet $host

expect "Login: " 
exp_send $user

expect "Password: "
exp_send $pass

exp..."
    (file "./script.sh" line 14)
[alex@samba scripts]$