Etilem_free.pm

• NAME
• DESCRIPTION
• COPYRIGHT

Code Index:

• package Net::FTP::Etilem_free
  • new
• EOF

NAME

package Net::FTP::Etilem_free

DESCRIPTION

Fast get/put/del of filenames (not dirs) on 'etilem.free.fr' FTP server.

Need FTP password and Net::FTP::Common package, use this file as template for your server :)

COPYRIGHT

Copyright 2000-2007 Etienne LEMEE <coding AT etilem DOT net>

This piece of code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

#!/usr/bin/perl -w

package Net::FTP::Etilem_free;

use strict;
use vars qw!@ISA @EXPORT!;
use Net::FTP::Common;
use Term::ReadKey;

@ISA = qw!Net::FTP::Common!;
@EXPORT = qw!$ftp_server $ftp_user!;

our $ftp_server = "etilem.free.fr";
our $ftp_user = "etilem";

sub new {
    my $class = shift;
    my $self = {};
    $self->{FTP_SERVER} = $ftp_server;
    $self->{FTP_USER} = $ftp_user;
    print "Password for user $ftp_user at $ftp_server ? ";
    ReadMode 2; #noecho
    chomp($self->{FTP_PASS} = <STDIN>);
    ReadMode 0; #default
    print "\n";
    $self->{QUIET} = shift || 0;
    bless($self, $class);
    return $self;
}
1;