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.12 by root, Sun May 25 21:15:44 2008 UTC vs.
Revision 1.20 by root, Fri Feb 3 03:01:45 2012 UTC

1#! perl # MANDATORY 1#! perl # mandatory
2 2
3# this listens for new tcp connections and hands them over to the server core 3# this listens for new tcp connections and hands them over to the server core
4# wether this being an extension introduces or reduces stability problems 4# whether this being an extension introduces or reduces stability problems
5# is unknown as of today. 5# is unknown as of today.
6 6
7use Socket; 7use Socket;
8use AnyEvent::Socket; 8use AnyEvent::Socket;
9 9
10our $BIND = $cf::CFG{bind_addresses} || [[undef, 13327]]; 10CONF BIND_ADDRESSES = [[undef, 13327]];
11 11
12for (@$BIND) { 12our @LISTENERS;
13
14for (@$BIND_ADDRESSES) {
13 my ($host, $port) = @$_; 15 my ($host, $port) = @$_;
14 warn "listening on $host:$port\n"; 16 cf::info "listening on ", (format_hostport $host, $port), "\n";
15 17
16 tcp_server $host, $port, sub { 18 push @LISTENERS, tcp_server $host, $port, sub {
17 my ($fh, $host, $port) = @_ 19 my ($fh, $host, $port) = @_
18 or return; 20 or return;
19 21
20 my $fd = fileno $fh; 22 my $lhost = AnyEvent::Socket::format_address
23 +(AnyEvent::Socket::unpack_sockaddr getsockname $fh)[1];
21 24
22 warn "new connection from [$host]:$port\n"; 25 cf::info "new connection from ", (format_hostport $host, $port), "\n"
26 if $lhost ne $host; # do not log connections from the host, e.g. for watchdogs
23 27
24 # HACK to avoid blocking on common files on log-in.
25 # remove once async
26 cf::async {#d#
27 warn "HACK ext/tcp.ext: $cf::CONFDIR/$_\n" and Coro::AIO::aio_load "$cf::CONFDIR/$_", my $dummy for qw(rules news motd);#d#
28 warn "HACK ext/tcp.ext: $cf::LOCALDIR/crossfiremail\n" and Coro::AIO::aio_load "$cf::LOCALDIR/crossfiremail", my $dummy;#d#
29 cf::client::create $fd, $host; 28 cf::client::create fileno $fh, $host;
30 undef $fh;#d#
31 };#d#d
32 }; 29 };
33} 30}
34 31

Diff Legend

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