in reply to Re: Help with Net::FTP module
in thread Help with Net::FTP module
I would recommend changing the timeout to +240 and check/use return value after each operation, something like:
sub ftp_put_file { # If rename_file = "Y" transfer file with '.xferring' as extension. if ( $rename_file eq "Y" ) { $file_name_to_xfer = "$file_name" . ".xferring"; } else { $file_name_to_xfer = "$file_name"; } $ftp->put( "${source_directory}/${file_name}", "${file_name_to_xfer} +" ) or $retval = 1; if ($retval == 1) { print "**Error occurred .........etc.\n"; } else { print "**Successfully put file(${source_directory}/${file_name_to_ +xfer}) to host($host).\n"; } return $retval; } # End ftp_put_file()
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Help with Net::FTP module
by runrig (Abbot) on Jan 09, 2013 at 15:19 UTC |
In Section
Seekers of Perl Wisdom