server/ext/map-random.ext

#! perl # MANDATORY

cf::map->register (qr{^\?random/([0-9a-f]{32})});

sub init {
   my ($self) = @_;

   $self->{random_id} = $1;

   if (0 < Coro::AIO::aio_load "$cf::RANDOM_MAPS/$self->{random_id}.meta", my $data) {
      $self->{random} = cf::from_json $data;
      $self->{random}{custom} ||= "$self->{random}{origin_map}+$self->{random}{origin_x}+$self->{random}{origin_y}";
   }

   1
}

sub visible_name {
   my ($self) = @_;

   my $rmp = $self->{random};
   "random map at $rmp->{custom}, level $rmp->{dungeon_level}"
}

sub save_path {
   my ($self) = @_;

   sprintf "%s/%s.map", $cf::RANDOM_MAPS, $self->{random_id}
}

sub uniq_path {
   undef
}

sub load_orig {
   my ($self) = @_;

   return unless $self->{random};

   $self->generate_random_map ($self->{random});

   1
}

sub clean_random_maps {
   cf::async {
      my $files = Coro::AIO::aio_readdir $cf::RANDOM_MAPS
         or return;

      my $META_TIMEOUT = $cf::CFG{map_random_meta_timeout} || 86400 * 7;
      my $MAP_TIMEOUT  = $cf::CFG{map_random_map_timeout}  || 3600 * 6;

      for my $file (@$files) {
         next if $file =~ /\.pst$/;

         Coro::AIO::aio_stat "$cf::RANDOM_MAPS/$file"
            and next;

         my $age = $cf::NOW - (stat _)[8];

         if ($file =~ /\.meta$/) {
            if ($age > $META_TIMEOUT) {
               warn "resetting random meta data for $file";
               IO::AIO::aio_unlink "$cf::RANDOM_MAPS/$file";
            }
         } else {
            if ($age > $MAP_TIMEOUT) {
               warn "resetting random map $file";
               IO::AIO::aioreq_pri 4; IO::AIO::aio_unlink "$cf::RANDOM_MAPS/$file";
               IO::AIO::aioreq_pri 4; IO::AIO::aio_unlink "$cf::RANDOM_MAPS/$file.pst";
            }
         }
      }
   };
}

# clean up old temp maps regularly
Event->timer (
   data     => cf::WF_AUTOCANCEL,
   interval => 3600,
   after    => 600,
   cb       => \&clean_random_maps,
);

1

Revision:	1.5
Committed:	Sat Jan 13 23:06:13 2007 UTC (17 years, 4 months ago) by root
Branch:	MAIN
Changes since 1.4:	+13 -9 lines
Log Message:	WARNING: this release is BROKEN - rewrote map handling. map types are now completely pluggable, maybe too pluggable, as everything is a plug-in now. - mark mandatory extensions as such. - handle overloaded attachable objects correctly. - many minor changes.
#	User	Rev	Content
1	root	1.5	#! perl # MANDATORY
2	root	1.1
3	root	1.5	cf::map->register (qr{^\?random/([0-9a-f]{32})});
4	root	1.1
5			sub init {
6			my ($self) = @_;
7
8	root	1.5	$self->{random_id} = $1;
9
10			if (0 < Coro::AIO::aio_load "$cf::RANDOM_MAPS/$self->{random_id}.meta", my $data) {
11	root	1.3	$self->{random} = cf::from_json $data;
12			$self->{random}{custom} \|\|= "$self->{random}{origin_map}+$self->{random}{origin_x}+$self->{random}{origin_y}";
13			}
14	root	1.5
15			1
16	root	1.1	}
17
18			sub visible_name {
19			my ($self) = @_;
20
21	root	1.2	my $rmp = $self->{random};
22	root	1.4	"random map at $rmp->{custom}, level $rmp->{dungeon_level}"
23	root	1.1	}
24
25			sub save_path {
26			my ($self) = @_;
27
28	root	1.5	sprintf "%s/%s.map", $cf::RANDOM_MAPS, $self->{random_id}
29	root	1.1	}
30
31			sub uniq_path {
32			undef
33			}
34
35			sub load_orig {
36			my ($self) = @_;
37
38	root	1.5	return unless $self->{random};
39
40			$self->generate_random_map ($self->{random});
41
42			1
43	root	1.1	}
44
45	root	1.3	sub clean_random_maps {
46			cf::async {
47			my $files = Coro::AIO::aio_readdir $cf::RANDOM_MAPS
48			or return;
49
50			my $META_TIMEOUT = $cf::CFG{map_random_meta_timeout} \|\| 86400 * 7;
51			my $MAP_TIMEOUT = $cf::CFG{map_random_map_timeout} \|\| 3600 * 6;
52
53			for my $file (@$files) {
54			next if $file =~ /\.pst$/;
55
56			Coro::AIO::aio_stat "$cf::RANDOM_MAPS/$file"
57			and next;
58
59			my $age = $cf::NOW - (stat _)[8];
60
61			if ($file =~ /\.meta$/) {
62			if ($age > $META_TIMEOUT) {
63			warn "resetting random meta data for $file";
64			IO::AIO::aio_unlink "$cf::RANDOM_MAPS/$file";
65			}
66			} else {
67			if ($age > $MAP_TIMEOUT) {
68			warn "resetting random map $file";
69			IO::AIO::aioreq_pri 4; IO::AIO::aio_unlink "$cf::RANDOM_MAPS/$file";
70			IO::AIO::aioreq_pri 4; IO::AIO::aio_unlink "$cf::RANDOM_MAPS/$file.pst";
71			}
72			}
73			}
74			};
75			}
76
77			# clean up old temp maps regularly
78			Event->timer (
79			data => cf::WF_AUTOCANCEL,
80			interval => 3600,
81			after => 600,
82			cb => \&clean_random_maps,
83			);
84
85	root	1.1	1
86