Shell Programming and Scripting

#!/usr/bin/expect -f
# SETUP MY ENVIRONMENT
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
}
}
# CONNECT TO FTP SERVER. After connecting, we can view the flat file #on main page itself. FYI.. It is not put under some folder in the FTP #server.
Set timeout -1
spawn $env(SHELL)
match_max 100000
send -- "sftp FICO@ABC.YAHOO.com\r"
expect -exact "Connecting to ABC.YAHOO.com...\r
FICO@ABC.YAHOO.com's password: "
send -- "ABC123\r"
expect -exact "\r
sftp> "
# COMMANDS TO EXECUTE
# FOR MOVING THE FILE FROM THE ABOVE connected server (FTP Server)
send -- "mget GET_FILE* /usr/sap/NXA/COMM/interface/FICO/"
expect -exact "mget GET_FILE* /usr/sap/NXA/COMM/interface/FICO/”
Send -- "\r"
expect -exact "\r
sftp> "
# FOR CONVERTING THE FILE FROM .XLS TO .CSV
send –- “for I in GET_FILE.*\r”
expect –exact “for I in GET_FILE.*\r”
send –- “do mv $i GET_FILE_123${i#GET_FILE}.csv\r”
expect –exact “do mv $i GET_FILE_123${i#GET_FILE}.csv\r”
send –- “done\r”
expect –exact “done\r”
send –- “\r”
expect –exact “\r
sftp> “
# SEND AN EMAIL TO THE PARTICULAR USER THAT FILE HAS BEEN MOVED #TO THE /usr/sap/NXA/COMM/interface/FICO/. PLZ SEE THE DIRECTORY.
send -- "uuencode GET_FILE_123.CSV GET_FILE_123.CSV.MAIL | mail -s "GET_FILE_123.CSV" VENKAT@yahoo.com\r"
expect -exact "uuencode GET_FILE_123.CSV GET_FILE_123.CSV.MAIL | mail -s "GET_FILE_123.CSV" VENKAT@yahoo.com\r"
send –- “\r”
expect –exact “\r
sftp> “
# SHOULD REMOVE THE FILE FROM FTP SERVER AFTER MOVED TO THE #APPLICATION SERVER
send -- "rm GET_FILE*"
expect -exact "rm GET_FILE*"
send -- "\r"
expect -exact "\r
sftp> "
send -- "bye\r"
expect -exact "bye\r"
send -- "exit\r"
expect eof