server/ext/map-scheduler.ext

#! 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);

Revision:	1.1
Committed:	Mon Jan 1 11:21:54 2007 UTC (17 years, 5 months ago) by root
Branch:	MAIN
Log Message:	- integrated most of the map/exit handling into cf.pm (it grows too large, should be split 'somehow', but thats not easy) - moved the swap/reste scheduler into an extension - imrpoved exit/sync logic
#	User	Rev	Content
1	root	1.1	#! perl
2
3			# this extension swaps out maps and resets them, in essence managing
4			# the reset/swap policy of the server.
5
6			our $DEACTIVATE_TIMEOUT = 60; # number of seconds after which maps get deactivated to save cpu
7			our $SWAP_TIMEOUT = 600; # number of seconds after which maps inactive get swapped out
8			our $SCHEDULE_INTERVAL = 8; # time the map scheduler sleeps between runs
9			our $SAVE_TIMEOUT = 60; # save maps every n seconds
10			our $SAVE_INTERVAL = 0.4; # save at max. one map every $SAVE_HOLD
11
12			$DEACTIVATE_TIMEOUT = 3;#d#
13			$SWAP_TIMEOUT = 5;#d#
14			$SCHEDULE_INTERVAL = 1;
15
16			our $SCHEDULER = cf::coro {
17			while () {
18			Coro::Timer::sleep $SCHEDULE_INTERVAL;
19
20			for my $map (values %cf::MAP) {
21			eval {
22			next if $map->in_memory != cf::MAP_IN_MEMORY;
23			next if $map->players;
24			my $last_access = $map->last_access;
25			# not yet, because maps might become visible to players nearby
26			# we need a tiled meta map for this to work
27			# if ($last_access + $DEACTIVATE_TIMEOUT <= $cf::RUNTIME) {
28			# $map->deactivate;
29			# delete $map->{active};
30			# }
31			if ($map->should_reset) {
32			$map->reset;
33			} elsif ($last_access + $SWAP_TIMEOUT <= $cf::RUNTIME) {
34			$map->swap_out;
35			Coro::Timer::sleep $SAVE_INTERVAL;
36			} elsif ($map->{last_save} + $SAVE_TIMEOUT <= $cf::RUNTIME) {
37			$map->save;
38			Coro::Timer::sleep $SAVE_INTERVAL;
39			}
40			};
41			warn $@ if $@;
42			Coro::cede;
43			}
44			}
45			};
46			$SCHEDULER->prio (-2);
47