Code... #!/usr/bin/perl # Backup 192.168.0.1 web directory # to 192.168.0.2 via FTP
# Begin remote transfer of file to ODIN for storage #
use Net::FTP;
$ftp = Net::FTP->new("192.168.0.2", Debug => 1)
or die "Could establish conneciton to 192.168.0.2: $@";$ftp->login("user", 'password')
or die "Could not login ", $ftp->message;$ftp->put(`../path/to/*-www.tar.gz`) or die "Could not transfer files ", $ftp->message;
$ftp->quit;
Error...
Net::FTP>>> Net::FTP(2.71)
Net::FTP>>> Exporter(5.566)
Net::FTP>>> Net::Cmd(2.24)
Net::FTP>>> IO::Socket::INET(1.26)
Net::FTP>>> IO::Socket(1.27)
Net::FTP>>> IO::Handle(1.21)
Net::FTP=GLOB(0x8133e3c)<<< 220-Development FTP Server
Net::FTP=GLOB(0x8133e3c)<<< FTPd 1.81.00 (Mar 3 2002) Ready
Net::FTP=GLOB(0x8133e3c)<<< 220 Please enter your user name.
Net::FTP=GLOB(0x8133e3c)>>> user user
Net::FTP=GLOB(0x8133e3c)<<< 331 User name okay, Need password.
Net::FTP=GLOB(0x8133e3c)>>> PASS ....
Net::FTP=GLOB(0x8133e3c)<<< 230 User logged in.
sh: line 1: ../path/to/02192004-www.tar.gz: Permission denied
fileparse(): need a valid pathname at /usr/lib/perl5/5.8.0/Net/FTP.pm line 705
Thanks in advance, Jas
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
