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.14 by root, Sun Jan 31 03:46:20 2010 UTC vs.
Revision 1.15 by root, Tue Mar 16 20:37:54 2010 UTC

… …
6 6
7use Socket; 7use Socket;
8use AnyEvent::Socket; 8use AnyEvent::Socket;
9 9
10our $BIND = $cf::CFG{bind_addresses} || [[undef, 13327]]; 10our $BIND = $cf::CFG{bind_addresses} || [[undef, 13327]];
11our @LISTENERS;
11 12
12for (@$BIND) { 13for (@$BIND) {
13 my ($host, $port) = @$_; 14 my ($host, $port) = @$_;
14 warn "listening on ", (format_hostport $host, $port), "\n"; 15 warn "listening on ", (format_hostport $host, $port), "\n";
15 16
16 tcp_server $host, $port, sub { 17 push @LISTENERS, tcp_server $host, $port, sub {
17 my ($fh, $host, $port) = @_ 18 my ($fh, $host, $port) = @_
18 or return; 19 or return;
19 20
20 warn "new connection from ", (format_hostport $host, $port), "\n"; 21 warn "new connection from ", (format_hostport $host, $port), "\n";
21 22

Diff Legend

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