The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

POE::Component::Server::FTP - Event-based FTP server on a virtual filesystem

SYNOPSIS

        use POE qw(Component::Server::FTP);
        use Filesys::Virtual;

        POE::Component::Server::FTP->spawn(
                Alias           => 'ftpd',                              # ftpd is default
                ListenPort      => 2112,                                # port to listen on
                Domain                  => 'blah.net',                  # domain shown on connection
                Version                 => 'ftpd v1.0',                 # shown on connection, you can mimic...
                AnonymousLogin  => 'deny',                              # deny, allow
                FilesystemClass => 'Filesys::Virtual::Plain', # Currently the only one available
                FilesystemArgs  => {
                        'root_path' => '/',                                     # This is actual root for all paths
                        'cwd'       => '/',                                     # Initial current working dir
                        'home_path' => '/home',                         # Home directory for '~'
                },
                # use 0 to disable these Limits
                DownloadLimit   => (50 * 1024),                 # 50 kb/s per ip/connection (use LimitScheme to configure)
                UploadLimit             => (100 * 1024),                # 100 kb/s per ip/connection (use LimitScheme to configure)
                LimitScheme             => 'ip',                                # ip or per (connection)

                LogLevel                => 4,                                   # 4=debug, 3=less info, 2=quiet, 1=really quiet
                TimeOut                 => 120,                                 # Connection Timeout
        );

        $poe_kernel->run();

DESCRIPTION

POE::Component::Server::FTP is an event driven FTP server backed by a virtual filesystem interface as implemented by Filesys::Virtual.

AUTHORS

L.M.Orchard, deus_x@pobox.com

David Davis, xantus@cpan.org

SEE ALSO

perl(1), Filesys::Virtual.