sub ftp_data { if (!($ftp = Net::FTP->new("$hostname"))){ printf "error connecting to $hostname\n"; system("echo \"could not connect to host \n$!\n\" | $B +IN/mailx -s\"$SCRIPT\" $prob"); exit; } if (!($ftp->login("$username","$password"))){ printf "error login \n"; $ftp->quit; system("echo \"could not log in: \n$!\n\" | $BIN/mailx + -s\"$SCR IPT\" $prob"); exit; } if (!($ftp->put("$OUTFILE2/IC$CPREVDATE"))){ printf OUTPUT "FAILED $line_counter,FAILED\n"; printf "error transferring file. \n"; system("echo \"could not transfer (PUT) $IN file \n$!\ +n\" | $BI N/mailx -s\"$SCRIPT\" $prob"); exit; } if (!($ftp->quit)){ printf "error while quitting \n"; system("echo \"could not quit ftp\n$!\n\" | $BIN/mailx + -s\"$SCR IPT\" $prob"); } } # End ftp_data
In reply to FTP issue - feedback appreciated by jrock
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |