--- deliantra/server/ext/map-random.ext	2007/01/27 02:19:37	1.11
+++ deliantra/server/ext/map-random.ext	2007/04/21 17:34:24	1.15
@@ -7,7 +7,7 @@
 
    $self->{random_id} = $1;
 
-   if (0 < Coro::AIO::aio_load "$cf::RANDOM_MAPS/$self->{random_id}.meta", my $data) {
+   if (0 < Coro::AIO::aio_load "$cf::RANDOMDIR/$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}";
    } else {
@@ -36,7 +36,7 @@
 sub save_path {
    my ($self) = @_;
 
-   sprintf "%s/%s.map", $cf::RANDOM_MAPS, $self->{random_id}
+   sprintf "%s/%s.map", $cf::RANDOMDIR, $self->{random_id}
 }
 
 sub uniq_path {
@@ -49,12 +49,13 @@
    return unless $self->{random};
 
    $self->generate_random_map ($self->{random});
+   $self->activate;
 
    1
 }
 
 sub clean_random_maps {
-   my $files = Coro::AIO::aio_readdir $cf::RANDOM_MAPS
+   my $files = Coro::AIO::aio_readdir $cf::RANDOMDIR
       or return;
 
    my $META_TIMEOUT = $cf::CFG{map_random_meta_timeout} || 86400 * 7;
@@ -63,7 +64,7 @@
    for my $file (@$files) {
       next if $file =~ /\.pst$/;
 
-      Coro::AIO::aio_stat "$cf::RANDOM_MAPS/$file"
+      Coro::AIO::aio_stat "$cf::RANDOMDIR/$file"
          and next;
 
       my $age = $cf::NOW - (stat _)[8];
@@ -71,13 +72,13 @@
       if ($file =~ /\.meta$/) {
          if ($age > $META_TIMEOUT) {
             warn "resetting random meta data for $file";
-            IO::AIO::aio_unlink "$cf::RANDOM_MAPS/$file";
+            IO::AIO::aio_unlink "$cf::RANDOMDIR/$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";
+            IO::AIO::aioreq_pri 4; IO::AIO::aio_unlink "$cf::RANDOMDIR/$file";
+            IO::AIO::aioreq_pri 4; IO::AIO::aio_unlink "$cf::RANDOMDIR/$file.pst";
          }
       }
    }
@@ -104,7 +105,7 @@
             xsize => 12,
             ysize => 12,
          });
-         #warn sprintf "%d: %d %d\n", $seed, $map->width, $map->height;#d#
+         warn sprintf "%d: %d %d\n", $seed, $map->width, $map->height;#d#
          $map->destroy;
       }
    };