#! 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";

   # HACK to avoid blocking on common files on log-in.
   # remove once async
   cf::async {#d#
   warn "HACK: $cf::CONFDIR/$_", Coro::AIO::aio_load "$cf::CONFDIR/$_", my $dummy for qw(rules news motd);#d#
   warn "HACK: $cf::VARDIR/crossfiremail", Coro::AIO::aio_load "$cf::VARDIR/crossfiremail", my $dummy;#d#
   cf::client::create $fd, $host;
   undef $fh;#d#
   };#d#d
};