use threads;
use threads::shared;
use Thread::Queue;

##</code><code>##

our (%sessions, %nicks, %times) : shared;

##</code><code>##

sub _save {
   my $session = $req->content;

   lock %times;
   lock %nicks;
   lock %sessions;
   $times{$session->{ID}} = time;
   $nicks{$session->{ID}} = $session->{PLAYER}->get('nickname') unless $session->{PLAYER}->anonymus;

   $sessions{$session->{ID}} = $session;
   $logs->enqueue("save request: stored session $session->{ID}") if $debug;
   $res->content({});
}