#!/usr/bin/perl
use strict;
use warnings;

use AnyEvent;
use Proc::Daemon;
use Space::Handler;

my $user_no = shift @ARGV;
my $base_dir = '/home/username/workspace/Space';

die "Error: user_no must be provided to the client handler." unless $user_no;

$ENV{IS_TEST} = !! grep { lc($_) eq 'test' } @ARGV;
$| = 1 if $ENV{IS_TEST};

my $daemon = Proc::Daemon->new(
    work_dir     => "$base_dir/bin",
    child_STDOUT => "$base_dir/logs/client_handler_$user_no.log",
    child_STDERR => "+>>$base_dir/logs/errors/client_handler_$user_no.log",
);
$daemon->Init();

my $handler = Space::Handler->new(
    user_no  => $user_no,
    daemon   => $daemon,
);
$handler->run();

my $keep_alive = AnyEvent->condvar;
$keep_alive->wait;