Files
mastering-unix-ss/chapter8/ftp-get-file.exp
Fabio Scotto di Santolo 4cc88d2f6e initial commit
2020-07-28 19:28:25 +02:00

31 lines
542 B
Plaintext
Executable File

#!/usr/bin/expect -f
#
# SCRIPT: ftp-get-file.exp
#
set force_conservative 0 ;# set to 1 to force conservative mode even if
;# script wasn't run conservatively originally
if {$force_conservative} {
set send_slow {1 .1}
proc send {ignore arg} {
sleep .1
exp_send -s -- $arg
}
}
set timeout -1
spawn ftp yogi
match_max 100000
expect "Name *: "
send -- "prodmgr\r"
expect "Password:"
send -- "Abc1234\r"
expect "ftp>"
send -- "cd /scripts\r"
expect "ftp>"
send -- "get random_file.out\r"
expect "ftp>"
send -- "bye\r"
expect eof