See the FTP debug shows the get was sucessful, yet my logic to determine this is flawed.FTP Debug output: Net::FTP=GLOB(0x4041cfd8)<<< 220 server FTP server ready. Net::FTP=GLOB(0x4041cfd8)>>> USER weblogs Net::FTP=GLOB(0x4041cfd8)<<< 331 Password required for weblogs. Net::FTP=GLOB(0x4041cfd8)>>> PASS .... Net::FTP=GLOB(0x4041cfd8)<<< 230 User weblogs logged in. Net::FTP=GLOB(0x4041cfd8)>>> CWD /export/home/weblogs/subsidiary/ Net::FTP=GLOB(0x4041cfd8)<<< 250 CWD command successful. Net::FTP=GLOB(0x4041cfd8)>>> PORT 170,6,240,108,208,249 Net::FTP=GLOB(0x4041cfd8)<<< 200 PORT command successful. Net::FTP=GLOB(0x4041cfd8)>>> RETR subsidiary.28067.access.file.log Net::FTP=GLOB(0x4041cfd8)<<< 150 Opening ASCII mode data connection fo +r subsidiary.28067.access.file.log (40641 bytes). Net::FTP=GLOB(0x4041cfd8)<<< 226 Transfer complete. Net::FTP=GLOB(0x4041cfd8)>>> QUIT Net::FTP=GLOB(0x4041cfd8)<<< 221-You have transferred 40841 bytes in 1 + files. Net::FTP=GLOB(0x4041cfd8)<<< 221-Total traffic for this session was 41 +290 bytes in 1 transfers. Net::FTP=GLOB(0x4041cfd8)<<< 221-Thank you for using the FTP service o +n server. Net::FTP=GLOB(0x4041cfd8)<<< 221 Goodbye. End FTP debug output FTP Get Failed
if ($ftp->put($sub_log)) { print "FTP Put successful from server $ftp_server\n"; }else{ print "FTP Put Failed\n"; }
In reply to Re^2: Error Checking with Net::FTP
by nickfaber
in thread Error Checking with Net::FTP
by nickfaber
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |