ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/tcp.ext
(Generate patch)

Comparing deliantra/server/ext/tcp.ext (file contents):
Revision 1.3 by root, Thu Dec 21 06:12:35 2006 UTC vs.
Revision 1.5 by root, Sat Dec 23 03:38:43 2006 UTC

… …
8use IO::Socket::INET; 8use IO::Socket::INET;
9 9
10our $LISTEN = new IO::Socket::INET 10our $LISTEN = new IO::Socket::INET
11 LocalPort => cf::settings->csport, 11 LocalPort => cf::settings->csport,
12 Listen => 1, 12 Listen => 1,
13 Blocking => 0, # bugfix workaround for Event calling handler twice :(
13 ReuseAddr => 1; 14 ReuseAddr => 1;
14 15
15if (!$LISTEN) { 16if (!$LISTEN) {
16 # extension yes, completely stupid, not yet 17 # extension yes, completely stupid, not yet
17 warn "unable to establish listen sockect, exiting.\n"; 18 warn "unable to establish listen sockect, exiting.\n";
18 exit (2); 19 exit (2);
19} 20}
20 21
21Event->io (fd => $LISTEN, poll => 'r', data => cf::WF_AUTOCANCEL, cb => sub { 22Event->io (fd => $LISTEN, nice => 1, poll => 'r', data => cf::WF_AUTOCANCEL, cb => sub {
22 my ($fh, $peername) = $LISTEN->accept 23 my ($fh, $peername) = $LISTEN->accept
23 or return; 24 or return;
24 25
25 my $fd = fileno $fh; 26 my $fd = fileno $fh;
26 my $host = inet_ntoa +(sockaddr_in $peername)[1]; 27 my $host = inet_ntoa +(sockaddr_in $peername)[1];

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines