Re: Perl Net::FTP put() gives little help on errors

You are not checking for errors.

This code is untested

use strict;
use warnings;

use Net::FTP;

my $ftp = Net::FTP->new($server, Timeout=>1800, Passive=>1, Debug=>3) 
+or 
                 die "[Error] UNABLE TO CREATE FTP OBJECT: [$@]";

if ($ftp->login($user, $pswd)) {

  $ftp->cwd("files");
  $ftp->binary();
  if (! $ftp->put("build.zip")) {

     my $ftp_message           = $ftp->message;
     chomp($ftp_message);
     print "[Error] UNABLE TO PUT FILE - [$ftp_message]\n";

   }

} else {

   my $ftp_message           = $ftp->message;
   chomp($ftp_message);
   die "[Error] UNABLE TO LOGIN TO FTP [$server] USING LOGIN ACCOUNT: 
+[$user]-[$ftp_message]\n";

}
[download]

Comment on Re: Perl Net::FTP put() gives little help on errors Download Code

Replies are listed 'Best First'.
Re^2: Perl Net::FTP put() gives little help on errors by amitsk (Initiate) on Jan 07, 2010 at 10:05 UTC
Even when checking for errors like having `if (! $ftp->put("build.zip"))` and getting `$ftp_message`, the `$ftp_message` is still empty! note, on the cmd window, I am seeing this Net::FTP: Unexpected EOF on command channel at C:/Perl/lib/Net/FTP/dataconn.pm line 73 so question if why is `$ftp->message` empty?	[reply] [d/l] [select]
Re^3: Perl Net::FTP put() gives little help on errors by cdarke (Prior) on Jan 07, 2010 at 10:40 UTC
A guess here, I found this comment in my version of C:/Perl/lib/Net/FTP/dataconn ($VERSION=0.11) in the abort function. `# for some reason if we continously open RETR connections and not # read a single byte, then abort them after a while the server will # close our connection, this prevents the unexpected EOF on the # command channel -- GMB` [download] In this case the code aborts - it does not appear to update the error message.	[reply] [d/l]