server/ext/tcp.ext

#! perl

# 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 IO::Socket::INET;

our $LISTEN = new IO::Socket::INET
   LocalPort => cf::settings->csport,
   Listen    => 1,
   Blocking  => 0,
   ReuseAddr => 1;

if (!$LISTEN) {
   # extension yes, completely stupid, not yet
   warn "unable to establish listen socket, exiting.\n";
   exit (2);
}

our $LISTENER = EV::io $LISTEN, EV::READ, sub {
   my ($fh, $peername) = $LISTEN->accept
      or return;

   my $fd   = fileno $fh;
   my $host = inet_ntoa +(sockaddr_in $peername)[1];

   warn "new connection from $host\n";

   cf::client::create $fd, $host;
};

Revision:	1.9
Committed:	Sat Nov 24 05:57:09 2007 UTC (18 years, 10 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_4, rel-2_5, rel-2_52, rel-2_53, rel-2_32, rel-2_43, rel-2_42, rel-2_41
Changes since 1.8:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#! perl
2
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			use IO::Socket::INET;
9
10			our $LISTEN = new IO::Socket::INET
11			LocalPort => cf::settings->csport,
12			Listen => 1,
13	root	1.9	Blocking => 0,
14	root	1.1	ReuseAddr => 1;
15
16			if (!$LISTEN) {
17			# extension yes, completely stupid, not yet
18	root	1.7	warn "unable to establish listen socket, exiting.\n";
19	root	1.1	exit (2);
20			}
21
22	root	1.8	our $LISTENER = EV::io $LISTEN, EV::READ, sub {
23			my ($fh, $peername) = $LISTEN->accept
24			or return;
25	root	1.1
26	root	1.8	my $fd = fileno $fh;
27			my $host = inet_ntoa +(sockaddr_in $peername)[1];
28	root	1.1
29	root	1.8	warn "new connection from $host\n";
30	root	1.6
31	root	1.8	cf::client::create $fd, $host;
32			};
33	root	1.1