Actually, in my case, I believe I need retr and using
$ftp->retr($file) works while $retr->cmd('retr',$file)
does not.
and the error goes away when I use retr directly.
>Thats because you should be using ->get not ->cmd. The retr command needs
>to be used with other commands, like port or pasv, which ->get will do
>for you
>
>Graham.
>
>On Thu, Oct 18, 2001 at 04:17:24PM -0700, Terrence Monroe Brannon wrote:
>> I get an error when attempting to do a RETR with my Net::FTP script.
>> source code and Debug log below... thanks for any help
>>
>> use lib '/m/aru/aruforms/pm';
>> use Net::FTP;
>> use strict;
>>
>> my $host = 'ap555sun.us.oracle.com';
>> my $file = '/d1/prepos/dev/apfrepos/NLS/rel11i/twncan/p1774034_11i_zht.zip';
>>
>>
>> my $n = Net::FTP->new($host, Debug => 1, Passive => 1);
>> # $n->login('tmbranno','xxx');
>> # $n->login('anonymous', 'tmbranno@ap555sun');
>> $n->login; # use .netrc
>>
>> my $o = $n->cmd('retr', $file);
>>
>>
>>
>> Net::FTP=GLOB(0x2b51e4)<<< 220 ap555sun.us.oracle.com FTP server
>> (Version wu-2.\
>> 6.1(1) Thu Apr 26 13:07:30 PDT 2001) ready.
>> Net::FTP=GLOB(0x2b51e4)>>> user tmbranno^M
>> Net::FTP=GLOB(0x2b51e4)<<< 331 Password required for tmbranno.
>> Net::FTP=GLOB(0x2b51e4)>>> PASS ....
>> Net::FTP=GLOB(0x2b51e4)<<< 230 User tmbranno logged in.
>> Net::FTP=GLOB(0x2b51e4)>>> retr
>> /d1/prepos/dev/apfrepos/NLS/rel11i/twncan/p1774\
>> 034_11i_zht.zip^M
>> Net::FTP=GLOB(0x2b51e4)<<< 425 Can't build data connection:
>>Connection refused.
>> ::for 83 at f1.pl line 18.
>> Net::FTP=GLOB(0x2b51e4)>>> QUIT^M
>> Net::FTP=GLOB(0x2b51e4)<<< 221-You have transferred 0 bytes in 0 files.
>> ^M
>> {ap555sun:tmbranno:tmbranno_1693779_arulinkftp:arudev}16>
>> /home/tmbranno/bugsag\
>> a ^M/2058255^[[71C ^M%
>>
>>
>> --
--
