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, # bugfix workaround for Event calling handler twice :(
   ReuseAddr => 1;

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

Event->io (fd => $LISTEN, nice => 1, poll => 'r', data => cf::WF_AUTOCANCEL, cb => 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.5
Committed:	Sat Dec 23 03:38:43 2006 UTC (17 years, 5 months ago) by root
Branch:	MAIN
Changes since 1.4:	+1 -0 lines
Log Message:	- surprisingly, there were some bugs. in Event, too :( - dieing and food checking are now only done in ST_PLAYING state. this might, but should not be, exploitable, in serious ways.
#	Content
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	Blocking => 0, # bugfix workaround for Event calling handler twice :(
14	ReuseAddr => 1;
15
16	if (!$LISTEN) {
17	# extension yes, completely stupid, not yet
18	warn "unable to establish listen sockect, exiting.\n";
19	exit (2);
20	}
21
22	Event->io (fd => $LISTEN, nice => 1, poll => 'r', data => cf::WF_AUTOCANCEL, cb => sub {
23	my ($fh, $peername) = $LISTEN->accept
24	or return;
25
26	my $fd = fileno $fh;
27	my $host = inet_ntoa +(sockaddr_in $peername)[1];
28
29	warn "new connection from $host\n";
30
31	cf::client::create $fd, $host;
32	});