Hi Everyone,
I have a FTP section to my code and am receiving an error when the
"put" portion (line 204) of the FTP process fails. I have a error sub
which is supposed to trap the error, move 2 files to the unsent_files
directory, send an e-mail, then restart (&logout sub) the entire script
but it fails. I made sure to pout Symbol.pm is located in each and
everyone of the directories listed in the error but I to no avail.
Here is what the FTP portion with the error sub looks like and the
error I recieve is below.
Any help would be greatly apprecited.
Chris
#------ FTP Section ----------------
sub FTP {
my $ftp = Net::FTP->new("123.456.78.910", Debug => 0)
or fatal( "Couldn't connect to remote FTP server - IP unavailable");
$ftp->login("user",'pass')
or fatal( "Couldn't connect to remote FTP server - failed username
or password");
$ftp->put("./sent_files/$datafile")
or fatal( "Couldn't put '$datafile'");
$ftp->put("./sent_files/$donefile")
or fatal( "Couldn't put '$donefile'");
$ftp->quit;
sub fatal {
system("mv", "./sent_files/$datafile", "./unsent_files");
system("mv", "./sent_files/$donefile", "./unsent_files");
my ($errmessage) = [at] _;
email($errmessage);
&logout;
}
}
#-----------------------------------
------- ERROR-----
Can't locate Symbol.pm in [at] INC ( [at] INC contains:
/usr/perl5/5.00503/sun4-solaris /
usr/perl5/5.00503 /usr/perl5/site_perl/5.005/sun4-solaris
/usr/perl5/site_perl/5
..005 .) at /usr/perl5/5.00503/sun4-solaris/IO/Handle.pm line 204.
BEGIN failed--compilation aborted at
/usr/perl5/5.00503/sun4-solaris/IO/Handle.p
m line 204.
