NAME

FUSE::Server - Perl-FUSE server

SYNOPSIS

use FUSE::Server;
$server = FUSE::Server->new({
    Port=>35008,
    MaxClients=>5000,
    Quiet=>1,
});

$status = $server->start();
print "Server started: $status";

$server->addCallback('BROADCASTALL',\&msg_broadcast);

$server->addCallback('client_start',\&msg_client_start);

$server->defaultCallback(\&unknown_command);

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = sub{$server->die();};

sub msg_broadcast{
    my ($userid,$msg,$params) = @_;
    my @a = split /\//,$params;
    $server->sendAll($a[1],$a[2]);
}

sub msg_client_start{
    my ($userid,$msg,$params) = @_;
    $server->send($sock,'SECRET_KEY','123 456 789');
}

sub unknown_command{
    my ($userid,$msg,$params) = @_;
    print "Unknown command $msg\n";
}

DESCRIPTION

Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea ccommodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis

AUTHOR

Cal Henderson, cal@iamcal.com