FUSE::Server 1.19

FUSE::Server is a Perl-FUSE server.

SYNOPSIS

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

my $status = $s->bind();
print "Server started: $status";

$s->addCallback(BROADCASTALL,&msg_broadcast);

$s->addCallback(client_start,&msg_client_start);

$s->defaultCallback(&unknown_command);

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = sub{$s->stop();};

$s->start();

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

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

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