Test::Smoke::FTPClient - Implement a mirror like object
use Test::Smoke::FTPClient; my $server = 'ftp.linux.activestate.com'; my $fc = Test::Smoke::FTPClient->new( $server ); my $sdir = '/pub/staff/gsar/APC/perl-current'; my $ddir = '~/perlsmoke/perl-current'; my $cleanup = 1; # like --delete for rsync $fc->connect; $fc->mirror( $sdir, $ddir, $cleanup ); $fc->bye;
This module was written specifically to fetch a perl source-tree from the APC. It will not suffice as a general purpose mirror module! It only distinguishes between files and directories and relies on the output of the
This solution is slow, you'd better use rsync!
Create a new object with option checking:
* fuser * fpasswd * v * fpassive * ftype
Returns true for success after connecting and login.
Set-up the environment and call
Disconnect from the FTP-server and cleanup the Net::FTP client;
config() is an interface to the package lexical
%CONFIG, which holds all the default values for the
With the special key all_defaults this returns a reference to a hash holding all the default values.
Recursive sub to mirror a tree from an FTP server.
Return a list of entries (hashrefs) with these properties:
* name: Filename * type f/d/l * mode unix file mode * size filessize in bytes * date file date
dir command in FTP gives a sort of
ls -la output, parts of this output are used as remote file-info.
This takes the text representation of a file-mode (like 'rwxr--r--') and return the numeric value.
This takes the three date/time related columns from the
ls -la output and returns a localtime-stamp.
This takes the two date/time related columns from the
dir output and returns a localtime-stamp
(c) 2003, 2004, 2005, Abe Timmerman <firstname.lastname@example.org> All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.