Re: can't build data connection: connection refused

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%
>>
>>
>>  --


--