#! perl # mandatory

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

use Socket;
use AnyEvent::Socket;

CONF BIND_ADDRESSES = [[undef, 13327]];

our @LISTENERS;

for (@$BIND_ADDRESSES) {
   my ($host, $port) = @$_;
   cf::info "listening on ", (format_hostport $host, $port), "\n";

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

      my $lhost = AnyEvent::Socket::format_address
                     +(AnyEvent::Socket::unpack_sockaddr getsockname $fh)[1];

      cf::info "new connection from ", (format_hostport $host, $port), "\n"
         if $lhost ne $host; # do not log connections from the host, e.g. for watchdogs

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