#!/usr/bin/perl
use strict;
use lib qw(lib);
use POE qw(Component::Server::FTP);
use Filesys::Virtual::DAAP;
my $host = shift || 'localhost';
my $port = shift || 2112;
my $daap_port = shift || 3689;
print "Republishing $host on ftp://localhost:$port/\n";
POE::Component::Server::FTP->spawn(
ListenPort => $port,
FilesystemClass => 'Filesys::Virtual::DAAP',
FilesystemArgs => {
host => $host,
port => $daap_port,
root_path => '/',
cwd => '/',
home_path => '/',
},
# use 0 to disable these Limits
DownloadLimit => 0,
UploadLimit => 0,
LimitSceme => 'ip', # ip or per (connection)
LogLevel => 4, # 4=debug, 3=less info, 2=quiet, 1=really quiet
TimeOut => 120, # Connection Timeout
);
$poe_kernel->run();