FTP Errors?
From: Jas (jason.gerfen_at_scl.utah.edu)
Date: 02/19/04
- Previous message: Jas: "Perl FTP error?"
- Next in thread: Rob Dixon: "Re: FTP Errors?"
- Reply: Rob Dixon: "Re: FTP Errors?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
To: beginners@perl.org Date: Thu, 19 Feb 2004 11:11:13 -0700
Still new to using Perl, any help with this is appreciated.
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
- Previous message: Jas: "Perl FTP error?"
- Next in thread: Rob Dixon: "Re: FTP Errors?"
- Reply: Rob Dixon: "Re: FTP Errors?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|
