skynet

#!/usr/bin/perl

use v5.36;

use FindBin;
use lib "$FindBin::Bin/lib";
use Config::INI::Reader;
use IO::Async::Loop;
use IO::Async::Listener;
use Skynet::User;
use Skynet::DBI;
use Skynet::AllianceManager;

my $config  = Config::INI::Reader->read_file('/etc/skynet.ini') or die "no config loaded: $!";
my $dbi     = Skynet::DBI->new($config);
my $loop    = IO::Async::Loop->new();
my $manager = Skynet::AllianceManager->new($dbi);

$loop->add($manager);

$loop->listen(
    service  => $config->{server}{port},
    socktype => 'stream',

    on_accept => sub{
        my ($socket) = @_;
        my $newuser = Skynet::User->new(handle => $socket);
        $manager->assign_user($newuser);

        my $address = $socket->peerhost . ":" . $socket->peerport;
        say "new user connected at ".$address;
    },
)->get;

say "Listening on port ".$config->{server}{port};
$loop->run;