Hi Could you please answer to this question as I'm eagerly waiting for this to implement?
Kanhaiya Prasad ----- Original Message ----- From: "Brian Raven" <bra...@nyx.com> To: "Kprasad" <kpra...@aptaracorp.com> Sent: Friday, June 19, 2009 3:41 PM Subject: RE: :FTP pasv_xfer() using problem > Kprasad <mailto:kpra...@aptaracorp.com> wrote: >> Hi >> >> I've changed my code according to your suggestion but still file not >> being uploaded and showing message Cannot Upload at ftp-test.pl line >> 21 >> >> Could you suggest the resolution. >> >> #!/usr/bin/perl >> use Net::FTP; >> use File::stat; >> use strict; >> use warnings; >> ##I'm hoping to use pasv_xfer(sourcefile, dest_server) to do a server >> to server passive transfer >> >> my $ftpout = Net::FTP->new("192.168.180.188", Debug => 0) >> or die "Cannot connect to 192.168.180.188: $@"; #destination server >> $ftpout->login("tj","tj") or die "Cannot login ", >> $ftpout->message; warn "Failed to set binary mode\n" unless >> $ftpout->binary(); >> >> my $ftpin = Net::FTP->new("192.168.180.192", Debug => 0) >> or die "Cannot connect to 192.168.180.192: $@"; #source server >> $ftpin->login("iop123","iop312") or die "Cannot login ", >> $ftpin->message; >> >> my $pwddir=$ftpin->pwd(); >> warn "Failed to set binary mode\n" unless $ftpin->binary(); >> $ftpin->cwd("$pwddir"); $ftpin->pasv_xfer("ApJ306023.tex", $ftpout) >> or die "Cannot Upload"; #destination server $ftpout->quit() or die >> "FTP: Couldn't quit."; $ftpin->quit() or die "FTP: Couldn't quit."; > > If you had included $ftpin->message in your error message, it might have > given you a clue. > > Also, it would be better to respond to the list with followup questions. > > HTH > > -- > Brian Raven > This e-mail may contain confidential and/or privileged information. If you > are not the intended recipient or have received this e-mail in error, > please advise the sender immediately by reply e-mail and delete this > message and any attachments without retaining a copy. > > Any unauthorised copying, disclosure or distribution of the material in > this e-mail is strictly forbidden. > > > > _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs