timeout in ftp

[Wagner, David --- Senior Programmer Analyst --- WGO]

I have the following code:

    $MyFTP->put($MyFtpFromFile , $MyFtpToFile );
        if ( ! $MyFTP->ok() ) {
                .....
         }

        On my audit log:

Net::FTP=GLOB(0x19c30c0)<<< 125-Waiting for recall of data set
FTPTRGP.AMPD0407
Net::FTP=GLOB(0x19c30c0): Timeout at /d/src/pl545.pl line 3129
Net::FTP=GLOB(0x19c30c0)>>> QUIT

        But the ! $MyFTP->ok() does not seem to catch it ( line 3130 ).

        Now I enclose all the ftp processing with in a loop of

        login for ftp
        process one file
        close the ftp session

        For the Login I do the following:

    $MyFTP = Net::FTP->new( $GlblInfo{wrkftpipaddr}, 
                            Debug => 1, 
                            timeout => 60 * 10 );
    $MyFTP->login( $GlblInfo{wrkftpusr},$MyWrkingPw );
    my $MyReturn = 1;

    if ( ! $MyFTP->ok() ) {
        .....
     }
        
        Now I know that the login will capture failures because that
does happen.

        Any ideas on why or what I am doing incorrectly? 

     Thanks.

  Wags ;)
David R Wagner
Senior Programmer Analyst
FedEx Freight
1.408.323.4225x2224 TEL
1.408.323.4449           FAX
http://fedex.com/us 


**********************************************************************
This message contains information that is confidential and proprietary to FedEx 
Freight or its affiliates.  It is intended only for the recipient named and for 
the express  purpose(s) described therein.  Any other use is prohibited.
**********************************************************************


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/