#!/usr/bin/perl

use lib qw( lib extras-lib );

use Sprocket qw(
    Server
    Plugin::HTTP::Server
    Plugin::HTTP::Deny
    Plugin::Manager
);

my %opts = (
    LogLevel => 4,
    TimeOut => 0,
#    MaxConnections => 10000,
);

# http server
Sprocket::Server->spawn(
    %opts,
    Name => 'HTTP Server',
    ListenPort => 8003,
    ListenAddress => '0.0.0.0',
    Plugins => [
        {
            Plugin => Sprocket::Plugin::HTTP::Server->new(
                DocumentRoot => $ENV{PWD}.'/html',
                ForwardList => {
                    qr|/\.| => 'HTTP::Deny',
                }
            ),
            Priority => 0,
        },
        {
            Plugin => Sprocket::Plugin::HTTP::Deny->new(),
            Priority => 1,
        },
    ],
    # ssl options
    SslKeyFile => $ENV{PWD}.'/conf/key.pem',
    SslCertFile => $ENV{PWD}.'/conf/cert.pem',
    SSL => 1,
);

Sprocket::Server->spawn(
    %opts,
    Name => 'Manager Serer',
    ListenPort => 5000,
    ListenAddress => '127.0.0.1',
    Plugins => [
        {
            Plugin => Sprocket::Plugin::Manager->new(),
            Priority => 0,
        },
    ],
);

$poe_kernel->run();

1;