I am receiving this error message for the ftp->quit() command in this script. I have checked the versions of the FTP module and they are the same as what it is cpan.org. What else can I check to fix this?
Thanks!
use Net::FTP;
$ftp = Net::FTP->new($server); # contact server
if ($ftp == NULL)
{
print "Could not connect to server.\n";
exit(9);
}
if ($ftp->login($user, $pass)) # login
{
@ftpList=$ftp->ls("Carriers/maeu/Outbound"
print "ftp ls @ftpList\n";
@ftpList=$ftp->ls("Carriers/maeu/Outbound/NZMP"
print "ftp ls @ftpList\n";
}
else
{
print "Could not login with user, $user and password, $password.\n";
exit(7);
}
ftp->quit();
Thanks!
use Net::FTP;
$ftp = Net::FTP->new($server); # contact server
if ($ftp == NULL)
{
print "Could not connect to server.\n";
exit(9);
}
if ($ftp->login($user, $pass)) # login
{
@ftpList=$ftp->ls("Carriers/maeu/Outbound"
print "ftp ls @ftpList\n";
@ftpList=$ftp->ls("Carriers/maeu/Outbound/NZMP"
print "ftp ls @ftpList\n";
}
else
{
print "Could not login with user, $user and password, $password.\n";
exit(7);
}
ftp->quit();