Help for this page
use feature 'state'; use Time::HiRes; ... use Fcntl ':flock'; use strict; no strict 'refs';
if($buffer =~ /^SENDMESSAGE$digest\|(.*?)$/){ my $what = $1; ... }elsif($touser eq "" && $room eq "" && $kind + ne "PRVMESSAGE") { sendToSocket($message, {}); } next;
sub sendToSocket { my( $data, $params ) = @_; ... } } }
www.com | www.net | www.org
No recent polls found