Velocity Reviews

Velocity Reviews (http://www.velocityreviews.com/forums/index.php)
-   Perl Misc (http://www.velocityreviews.com/forums/f67-perl-misc.html)
-   -   what happened with this error? (http://www.velocityreviews.com/forums/t915286-what-happened-with-this-error.html)

Uno 11-06-2011 08:53 AM

what happened with this error?
 
[sorry can only paste as quotation]

> $ perl nov1.pl
> Net::FTP>>> Net::FTP(2.77)
> Net::FTP>>> Exporter(5.63)
> Net::FTP>>> Net::Cmd(2.29)
> Net::FTP>>> IO::Socket::INET(1.31)
> Net::FTP>>> IO::Socket(1.31)
> Net::FTP>>> IO::Handle(1.28)
> Net::FTP=GLOB(0x8c59978)<<< 220 FTP Server ready.
> Net::FTP=GLOB(0x8c59978)>>> USER u63263303
> Net::FTP=GLOB(0x8c59978)<<< 331 Password required for u63263303
> Net::FTP=GLOB(0x8c59978)>>> PASS ....
> Net::FTP=GLOB(0x8c59978)<<< 230 User u63263303 logged in
> Net::FTP=GLOB(0x8c59978)>>> TYPE I
> Net::FTP=GLOB(0x8c59978)<<< 200 Type set to I
> Net::FTP=GLOB(0x8c59978)>>> CWD /vids/
> Net::FTP=GLOB(0x8c59978)<<< 250 CWD command successful
> Net::FTP=GLOB(0x8c59978)>>> ALLO 43230955
> Net::FTP=GLOB(0x8c59978)<<< 202 No storage allocation necessary
> Net::FTP=GLOB(0x8c59978)>>> PASV
> Net::FTP=GLOB(0x8c59978)<<< 227 Entering Passive Mode (50,21,179,12,240,67).
> Net::FTP=GLOB(0x8c59978)>>> STOR munga1.flv
> Net::FTP=GLOB(0x8c59978)<<< 150 Opening BINARY mode data connection for munga1.flv
> Net::FTP=GLOB(0x8c59978): Timeout at /usr/share/perl/5.10/Net/FTP/dataconn.pm line 74
> Use of uninitialized value $@ in concatenation (.) or string at nov1.pl line 15.
> put failed
> $


> $ cat nov1.pl
> #!/usr/bin/perl -w
> use strict;
> use Net::FTP;
> my $domain = 'www.altgreendesigns.com';
> my $username = 'u63263303';
> my $password = '';
> my $file = 'munga1.flv';
> my $file2 = 'dl1.flv';
>
> my $ftp = Net::FTP->new($domain, Debug=>1, Passive=>1) or die "Can't connect: $@\n";
> $ftp->login($username, $password) or die "Couldn't login\n";
> $ftp->binary();
> # $ftp->mkdir('/vids/');
> $ftp->cwd('/vids/') or die "death $@\n";
> $ftp->put($file) or die "put failed $@\n";
> $ftp->get($file, $file2) or die "get failed $@\n";
> $


Maybe something with Passive?
--
Uno


All times are GMT. The time now is 11:48 AM.

Powered by vBulletin®. Copyright ©2000 - 2014, vBulletin Solutions, Inc.
SEO by vBSEO ©2010, Crawlability, Inc.