SFTP with expect

#!/opt/freeware/bin/expect

##  Variables

set user <"User">

set password <"Password">

set host <Host>

set logdir <Logdir>

set scriptdir <Scriptdir>

## Optional output

send_user [exec date]

send_user "START\n"

## Another attempt to define a date...

# set startdate [exec date +%Y%m%d0000]

# exec touch -t $startdate $scriptdir/todaystart.txt

# send_user "Timestamp file created\n"

# set files [exec find $logdir -newer $scriptdir/todaystart.txt -name foo_\*txt | xargs echo]

# send_user "Transfer list fetched\n"

## Transfer process

spawn sftp $user@$host

expect "password:"

send "$password\n";

#send_user "login OK\n"

expect "sftp> "

send "cd somedir\n";

#send_user "Command cd OK\n"

expect "sftp> "

send "lcd $logdir\n";

#send_user "Command lcd OK\n"

expect "sftp> "

set timeout -1

send "put *.ext\n";

# For some reason, if the following line is missing, only the first file is transferred.

send "ls -l\n"

expect "sftp> "

send "quit\n";

expect eof

## Optional output

send_user "Command quit OK\n"

send_user "Session closed\n"

send_user [exec date]

send_user "END\n"