FUSE::ServerFUSE::Server is a Perl-FUSE server. | |
Download |
FUSE::Server Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Cal Henderson
- Publisher web site:
- http://search.cpan.org/~iamcal/
FUSE::Server Tags
FUSE::Server Description
FUSE::Server is a Perl-FUSE server. 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,$a); } 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"; } Requirements: · Perl
FUSE::Server Related Software