#! 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       =   70; # number of seconds after which maps inactive get swapped out
our $SCHEDULE_INTERVAL  =    5; # time the map scheduler sleeps between runs
our $SAVE_TIMEOUT       =   40; # save maps every n seconds
our $SAVE_INTERVAL      =  0.4; # save at max. one map every $SAVE_INTERVAL

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

      for my $map (values %cf::MAP) {
         eval {
            next if $map->players;
            # not yet, because maps might become visible to players nearby
            # we need to remove the map from %cf::MAP and all tiled map links
#         if ($last_access + $DEACTIVATE_TIMEOUT <= $cf::RUNTIME) {
#            $map->deactivate;
#            delete $map->{active};
#         }
            if ($map->should_reset) {
               $map->reset;
            } elsif ($map->in_memory == cf::MAP_IN_MEMORY) {
               if ($map->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);