#!/usr/bin/perl

use lib qw ( lib );

use Sprocket qw( 
    Server
    Plugin::FTP::Server
);

use strict;
use warnings;

Sprocket::Server->spawn(
    Name            => 'FTP',
    ListenAddress   => '0.0.0.0',
    ListenPort      => 2112,
    Plugins         => [{
        plugin => Sprocket::Plugin::FTP::Server->new(
            time_out            => 120,

            max_cons            => 20,
            max_cons_per_ip     => 0,
            max_cons_per_user   => 2,

            motd_pre            => 'Single line MOTD',
            motd_post           => "Multiple\nlines of\nMOTD",
            motd_post_split     => "\n",

            root_path           => '/home/jeroen/code/ftpd/root'
        ),
        priority => 0
    }]
);

$poe_kernel->run();

1;