Hi guys,

Firstly, I am new to perl. I am experiencing the same issue when I
try to perform a get. I have tried to follow your thread and install
the module version 2.17, but unfortunately I cannot install it since
I am running on Y2K


Net::FTP=GLOB(0x1d3ed84)<<< 220 slomissunx1-01.emea.egain.com FTP
server (SunOS 5.8) ready.
Net::FTP=GLOB(0x1d3ed84)>>> user oracle
Net::FTP=GLOB(0x1d3ed84)<<< 331 Password required for oracle.
Net::FTP=GLOB(0x1d3ed84)>>> PASS ....
Net::FTP=GLOB(0x1d3ed84)<<< 230 User oracle logged in.
Net::FTP=GLOB(0x1d3ed84)>>> CWD /export/home/oracle/pri
Net::FTP=GLOB(0x1d3ed84)<<< 250 CWD command successful.
Net::FTP=GLOB(0x1d3ed84)>>> TYPE A
Net::FTP=GLOB(0x1d3ed84)<<< 200 Type set to A.
Net::FTP=GLOB(0x1d3ed84)>>> PORT 10,10,85,1,8,172
Net::FTP=GLOB(0x1d3ed84)<<< 200 PORT command successful.
Net::FTP=GLOB(0x1d3ed84)>>> RETR
Net::FTP=GLOB(0x1d3ed84)<<< 500 'RETR ': command not understood.
download of to select.log failed at
C:/Perl/site/lib/Net/FTP/Common.pm line 243.


I have looked at the module version and I am using 2.9 which is newer
that the one that you have suggested. Please help.

Regards,

Pri



--- In net-ftp-common@yahoogroups.com, Terrence Brannon
<metaperl@m...> wrote:
>
>
> Begin forwarded message:
>
> > From: Brian Volk <bvolk@b...>
> > Date: Fri Mar 22, 2002 11:33:29 PM US/Eastern
> > To: Terrence Brannon <metaperl@m...>
> > Cc: net-ftp-common@yahoogroups.com
> > Subject: Re: [Fwd: Net::FTP::Common - get(RemoteFile => ?)]
> >
> > Hi Mr. Brannon,
> >
> > I made the changes you suggested and I was still getting the same
> > error, (500 'RETR ': command not understood.).  So I installed
> > the version of Net::FTP::Common that you included in your last
> > email, ....and; viola!!   IT WORKS!
> >
> >  Net::FTP=GLOB(0x82ea164)<<< 220 tonnant FTP server (CH/1.8)
> > ready.
> > Net::FTP=GLOB(0x82ea164)>>> user bvolk@b...
> > Net::FTP=GLOB(0x82ea164)<<< 331 Password required for bvolk@b...
> > Net::FTP=GLOB(0x82ea164)>>> PASS ....
> > Net::FTP=GLOB(0x82ea164)<<< 230 User bvolk logged in.
> > Net::FTP=GLOB(0x82ea164)>>> PWD
> > Net::FTP=GLOB(0x82ea164)<<< 257 "/" is current directory.
> > Net::FTP=GLOB(0x82ea164)>>> CWD /web
> > Net::FTP=GLOB(0x82ea164)<<< 250 CWD command successful.
> > Net::FTP=GLOB(0x82ea164)>>> TYPE A
> > Net::FTP=GLOB(0x82ea164)<<< 200 Type set to A.
> > Net::FTP=GLOB(0x82ea164)>>> PORT 64,1,2,19,7,88
> > Net::FTP=GLOB(0x82ea164)<<< 200 PORT command successful.
> > Net::FTP=GLOB(0x82ea164)>>> RETR get_test.txt
> > Net::FTP=GLOB(0x82ea164)<<< 150 Opening ASCII mode data
> > connection for get_test.txt (59 bytes).
> > Net::FTP=GLOB(0x82ea164)<<< 226 Transfer complete.
> >
> >
> > Not really sure why.... maybe I didn't have a complete install on
> > the old version????   Anyway,  thank you very mych for your help!
> >  I love it!!!
> >
> > Brian
> > bvolk@b...
> >
> >
> >
> > Terrence Brannon wrote:
> >
> >
> >
> >
> > Here is a version of Net::FTP::Common that will dump your status
> > information
> > when it reports that error..
> >
> > I would be interested in seeing the output from such a run if you
> > are willing
> > to install this updated version.
> >
> >
> > On Thursday, March 21, 2002, at 05:45 PM, Brian Volk wrote:
> >
> >
> > Hello Mr. Brannon,
> >
> > I'm trying to have perl get a file from my web hosting account.
> >  I searched around and found your Net::FTP::Common.  I get logged
> > into my ftp account and can perform the "ls" but I get an error
> > when I try to get a file.  Here's the error:  
> >
> > Net::FTP=GLOB(0x82fc210)<<< 230 User bvolk logged in.
> > Net::FTP=GLOB(0x82fc210)>>> CWD /web
> > Net::FTP=GLOB(0x82fc210)<<< 250 CWD command successful.
> > Net::FTP=GLOB(0x82fc210)>>> TYPE A
> > Net::FTP=GLOB(0x82fc210)<<< 200 Type set to A.
> > Net::FTP=GLOB(0x82fc210)>>> PORT 64,1,0,200,5,34
> > Net::FTP=GLOB(0x82fc210)<<< 200 PORT command successful.
> > Net::FTP=GLOB(0x82fc210)>>> RETR
> > Net::FTP=GLOB(0x82fc210)<<< 500 'RETR ': command not understood.
> > download of  to get_test.txt failed at
> > /usr/lib/perl5/site_perl/5.6.0/Net/FTP/Common.pm line 243.
> >
> > Notice how it says download of (blank) to get_test.txt  could
> > this be something?
> >
> > -------------  part of Common.pm (line 243) -----------------
> > sub get {
> >
> >   my ($self,%cfg) = @_;
> >
> >   my $ftp = $self->prep(%cfg);
> >
> >   my $r;
> >
> >   my $file = $self->GetCommon('LocalFile')
> >       ? $self->GetCommon('LocalFile') : $self->GetCommon('File') ;
> >   my $local_file = join '/', ($self->GetCommon('LocalDir'),
> > $file);
> >        
> >
> >   if ($r = $ftp->get($self->GetCommon('File'), $local_file)) {
> >       return $r;
> >   } else {
> >     warn sprintf "download of %s to %s failed",     <-----------
> >  LINE 243
> >       $self->GetCommon('File'), $self->GetCommon('LocalFile');
> >     return undef;
> > }
> >
> > -----------------------------------------------
> >
> > Looks like everything is working great except for the last line.
> >   Any advice you can pass my way would be a great help.
> >
> > Thanks!  
> >
> > Brian Volk
> > bvolk@b...
> >
> > PS:  I'm new to perl, so go easy...  :-)
> >
> > ----------------- this is your example that I'm using,
> > thanks -------------------
> >
> > #!/usr/bin/perl
> >
> > use Net::FTP::Common;
> >
> >      our %netftp_cfg =
> >         (Debug => 1, Timeout => 120);
> >
> >      our %common_cfg =    
> >         (
> >         
> >          User => 'username',           
> >          Pass => 'password',      
> >
> >         
> >          # Other options
> >         
> >
> >          LocalDir  => '/home/bvolk/perl',   # setup something for
> > $ez->get
> >          LocalFile => 'get_test.txt',       # setup something for
> > $ez->get
> >          Host => ' ftp.somewhere.com ',          # ftp site
> >          RemoteDir  => '/web',                    # automatic CD
> > on remote machine to RemoteDir
> >          RemoteFile => '/web/get_text.txt',
> >          Type => 'A'                     # overwrite I (binary)
> > TYPE default
> >          );
> >
> >       $ez = Net::FTP::Common->new(\%common_cfg, %netftp_config);
> >
> >       # can we login to the machine?
> >     
> >       $ez->login or die "cant login: $@";
> >
> >       # Get a listing of a remote directory
> >  
> >       $ez->ls;    
> >       
> >       # Get a file from the remote machine, specifying dir:
> >
> >       $ez->get(RemoteFile => 'get_text.txt', LocalDir =>
> > '/home/bvolk', LocalFile => 'get_test.txt');   
> >
> >
> >
> > just another business objects layer hacker
> >
> >
> >
> <hacker lang="Perl" type="just another"
url="http://www.metaperl.com">
> Terrence Brannon
> </hacker>