what is the loggin and password?
--- Priyalal <pri_a@...> wrote:
> 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...
>
=== message truncated ===


__________________________________________________
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!
http://platinum.yahoo.com