Re: Question on Net::FTP.

[Silky Manwani]

Never mind.

Figured it out.

:)

On May 27, 2004, at 4:40 PM, Silky Manwani wrote:

Hello,

I have this program where I am trying to ftp a file from one machine to another.

so code somewhat looks like this:

$ftp = Net::FTP->new(host, (Debug => 1, Timeout =>600, Passive =>1));
$ftp->login($user,$pass);
$ftp->binary();
$ftp->put($file);

At some point this code was working and now it hangs at

$ok = CMD_INFO == $ftp->response(); in FTP.pm

The file gets created on the remote machine but it's of zero length..So the contents don't get copied.

The output looks like this:

Net::FTP=GLOB(0x101792d4)>>> user abc
Net::FTP=GLOB(0x101792d4)<<< 331 Password required for
abc.
Net::FTP=GLOB(0x101792d4)>>> PASS ....
Net::FTP=GLOB(0x101792d4)<<< 230-
Net::FTP=GLOB(0x101792d4)<<<     Welcome to Darwin!
Net::FTP=GLOB(0x101792d4)<<< 230 User abc logged in.
Net::FTP=GLOB(0x101792d4)>>> CWD
/abd/folder
Net::FTP=GLOB(0x101792d4)<<< 250 CWD command
successful.
Net::FTP=GLOB(0x101792d4)>>> TYPE I
Net::FTP=GLOB(0x101792d4)<<< 200 Type set to I.
Net::FTP=GLOB(0x101792d4)>>> ALLO 382
Net::FTP=GLOB(0x101792d4)<<< 202 ALLO command ignored.
Net::FTP=GLOB(0x101792d4)>>> PASV
Net::FTP=GLOB(0x101792d4)<<< 227 Entering Passive Mode
(17,213,12,192,192,245)
Net::FTP=GLOB(0x101792d4)>>> STOR TingTong

So, it just hangs at the last STOR. (Which tries to copy the file and is waiting for some response!!)

Any ideas..!?

Thanks.

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

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