server/ext/tcp.ext

#! perl # MANDATORY

# this listens for new tcp connections and hands them over to the server core
# wether this being an extension introduces or reduces stability problems
# is unknown as of today.

use Socket;
use AnyEvent::Socket;

our $BIND = $cf::CFG{bind_addresses} || [[undef, 13327]];
our @LISTENERS;

for (@$BIND) {
   my ($host, $port) = @$_;
   warn "listening on ", (format_hostport $host, $port), "\n";

   push @LISTENERS, tcp_server $host, $port, sub {
      my ($fh, $host, $port) = @_
         or return;

      warn "new connection from ", (format_hostport $host, $port), "\n";

      cf::client::create fileno $fh, $host;
   };
}

Revision:	1.15
Committed:	Tue Mar 16 20:37:54 2010 UTC (14 years, 2 months ago) by root
Branch:	MAIN
Changes since 1.14:	+2 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.12	#! perl # MANDATORY
2	root	1.1
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
5			# is unknown as of today.
6
7			use Socket;
8	root	1.12	use AnyEvent::Socket;
9	root	1.1
10	root	1.12	our $BIND = $cf::CFG{bind_addresses} \|\| [[undef, 13327]];
11	root	1.15	our @LISTENERS;
12	root	1.12
13			for (@$BIND) {
14			my ($host, $port) = @$_;
15	root	1.14	warn "listening on ", (format_hostport $host, $port), "\n";
16	root	1.12
17	root	1.15	push @LISTENERS, tcp_server $host, $port, sub {
18	root	1.12	my ($fh, $host, $port) = @_
19			or return;
20
21	root	1.14	warn "new connection from ", (format_hostport $host, $port), "\n";
22	root	1.12
23	root	1.13	cf::client::create fileno $fh, $host;
24	root	1.12	};
25	root	1.1	}
26