note
tokpela
<p>
You are not checking for errors.
</p>
<p>
<i>This code is untested</i>
</p>
<p>
<code>
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";
}
</code>
</p>
816043
816043