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, 4 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
#	Content
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