#!/usr/bin/perl

use lib qw( lib extras-lib );

use Sprocket qw(
    Server
    Plugin::VirtualFS::HTTP::Server::DAV
    -Filesys::Virtual::Async::Plain
);

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

# comet http server
Sprocket::Server->spawn(
    %opts,
    Name => 'DAV Server',
    ListenPort => 4242,
    ListenAddress => '0.0.0.0',
    Plugins => [
        {
            Plugin => Sprocket::Plugin::VirtualFS::HTTP::Server::DAV->new(
                FileSystem => Filesys::Virtual::Async::Plain->new(
                    root_path => $ENV{PWD}.'/html/test',
                ),
                # HTTP::Server will auto use Filsys::Virtual::Async::Plain when using
                # DocumentRoot => $ENV{PWD}.'/html/test'
            ),
            Priority => 0,
        }
    ],
);

$sprocket->run();

1;