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]];

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

   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.14
Committed:	Sun Jan 31 03:46:20 2010 UTC (14 years, 3 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_93
Changes since 1.13:	+2 -7 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
12			for (@$BIND) {
13			my ($host, $port) = @$_;
14	root	1.14	warn "listening on ", (format_hostport $host, $port), "\n";
15	root	1.12
16			tcp_server $host, $port, sub {
17			my ($fh, $host, $port) = @_
18			or return;
19
20	root	1.14	warn "new connection from ", (format_hostport $host, $port), "\n";
21	root	1.12
22	root	1.13	cf::client::create fileno $fh, $host;
23	root	1.12	};
24	root	1.1	}
25