#! perl

# this extension swaps out maps and resets them, in essence managing
# the reset/swap policy of the server.

our $DEACTIVATE_TIMEOUT =   60; # number of seconds after which maps get deactivated to save cpu
our $SWAP_TIMEOUT       =  600; # number of seconds after which maps inactive get swapped out
our $SCHEDULE_INTERVAL  =    8; # time the map scheduler sleeps between runs
our $SAVE_TIMEOUT       =   60; # save maps every n seconds
our $SAVE_INTERVAL      =  0.4; # save at max. one map every $SAVE_HOLD

$DEACTIVATE_TIMEOUT = 3;#d#
$SWAP_TIMEOUT = 5;#d#
$SCHEDULE_INTERVAL = 1;

our $SCHEDULER = cf::coro {
   while () {
      Coro::Timer::sleep $SCHEDULE_INTERVAL;

      for my $map (values %cf::MAP) {
         eval {
            next if $map->in_memory != cf::MAP_IN_MEMORY;
            next if $map->players;
            my $last_access = $map->last_access;
            # not yet, because maps might become visible to players nearby
            # we need a tiled meta map for this to work
#         if ($last_access + $DEACTIVATE_TIMEOUT <= $cf::RUNTIME) {
#            $map->deactivate;
#            delete $map->{active};
#         }
            if ($map->should_reset) {
               $map->reset;
            } elsif ($last_access + $SWAP_TIMEOUT <= $cf::RUNTIME) {
               $map->swap_out;
               Coro::Timer::sleep $SAVE_INTERVAL;
            } elsif ($map->{last_save} + $SAVE_TIMEOUT <= $cf::RUNTIME) {
               $map->save;
               Coro::Timer::sleep $SAVE_INTERVAL;
            }
         };
         warn $@ if $@;
         Coro::cede;
      }
   }
};
$SCHEDULER->prio (-2);