Re: Net::FTP problems

[rob_au]

Is there a way to trap the Net::FTP error message before find myself in the operating system so that I can act on it?

For this you can use the eval function to trap fatal errors from Net::FTP functions.

Is there a way to make my own timeout function?

For this you will want to have a read through the alarm function and the perlipc documentation.

For example:

my $retrieval = undef;
my $timeout = 120;

eval {
    local $SIG{'ALRM'} = sub { die 'timeout' };
    alarm $timeout;
    $retrieval = $ftp->get($remote_file, $local_file); 
    alarm 0;
};
if ($@) {

    if ($@ =~ /timeout/) {
    }
}

[panaman]

Thank for your good answer, it helps. the "eval" seems to have stopped the being tossed into the OS. I am going to move this app over to a linux box since I have discovered that windows does not do signal proccessing acording to the perldocs. thanks