[ViewVC] Diff of: cvs/deliantra/server/lib/cf.pm

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.236 by root, Thu Apr 12 14:18:05 2007 UTC vs.
Revision 1.238 by root, Sat Apr 14 07:23:00 2007 UTC

 use Coro::Event;
 use Coro::Timer;
 use Coro::Signal;
 use Coro::Semaphore;
 use Coro::AIO;
+use Coro::Storable;
 use BDB ();
 use Data::Dumper;
 use Digest::MD5;
 use Fcntl;
 use Time::HiRes;
 use Compress::LZF;
 # configure various modules to our taste
 #
+$Storable::canonical = 1; # reduce rsync transfers
 Coro::State::cctx_stacksize 256000; # 1-2MB stack, for deep recursions in maze generator
 Compress::LZF::sfreeze_cr { }; # prime Compress::LZF so it does not use require later
 $Event::Eval = 1; # no idea why this is required, but it is
    my ($self, $type, %msg) = @_;
    $self->ns->ext_event ($type, %msg);
 }
-package cf;
+=head3 cf::region
+=over 4
+=cut
+package cf::region;
+=item cf::region::find_by_path $path
+Tries to decuce the probable region for a map knowing only its path.
+=cut
+sub find_by_path($) {
+   my ($path) = @_;
+   my ($match, $specificity);
+   for my $region (list) {
+      if ($region->match && $path =~ $region->match) {
+         ($match, $specificity) = ($region, $region->specificity)
+            if $region->specificity > $specificity;
+      }
+   }
+   $match
+}
 =back
 =head3 cf::map
 =over 4
       $self->load_header_orig
          or return;
       $self->prepare_orig;
    }
+   $self->default_region (cf::region::find_by_path $self->{path})
+      unless $self->default_region;
    1
 }
 sub find;
 sub find {
    my $facedata;
    0 < aio_load $path, $facedata
       or die "$path: $!";
-   Coro::cede;
-   $facedata = Storable::thaw $facedata;
+   $facedata = Coro::Storable::thaw $facedata;
-   Coro::cede;
    $facedata->{version} == 2
       or cf::cleanup "$path: version mismatch, cannot proceed.";
    {

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/server/lib/cf.pm (file contents): Revision 1.236 by root, Thu Apr 12 14:18:05 2007 UTC vs. Revision 1.238 by root, Sat Apr 14 07:23:00 2007 UTC

Diff Legend

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.236 by root, Thu Apr 12 14:18:05 2007 UTC vs.
Revision 1.238 by root, Sat Apr 14 07:23:00 2007 UTC