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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.65 by root, Tue Sep 12 22:18:55 2006 UTC vs.
Revision 1.69 by root, Mon Sep 18 01:10:35 2006 UTC

    }
    wantarray ? @res : $res[0]
 }
+=item cf::register_script_function $function => $cb
+Register a function that can be called from within map/npc scripts. The
+function should be reasonably secure and should be put into a package name
+like the extension.
+Example: register a function that gets called whenever a map script calls
+C<rent::overview>, as used by the C<rent> extension.
+   cf::register_script_function "rent::overview" => sub {
+     ...
+   };
+=cut
 sub register_script_function {
    my ($fun, $cb) = @_;
    no strict 'refs';
    *{"safe::$fun"} = $safe_hole->wrap ($cb);
 =cut
 {
    my $db;
-   my $path = cf::datadir . "/database.pst";
+   my $path = cf::localdir . "/database.pst";
    sub db_load() {
       warn "loading database $path\n";#d# remove later
       $db = stat $path ? Storable::retrieve $path : { };
    }
    my $pid;
    sub db_save() {
       warn "saving database $path\n";#d# remove later
       waitpid $pid, 0 if $pid;
-      unless ($pid = fork) {
+      if (0 == ($pid = fork)) {
          $db->{_meta}{version} = 1;
          Storable::nstore $db, "$path~";
          rename "$path~", $path;
          cf::_exit 0 if defined $pid;
       }
       } else {
          $db->{$_[0]} = $_[1];
       }
       db_dirty;
    }
+   attach_global
+      prio => 10000,
+      on_cleanup => sub {
+         db_sync;
+      },
+   ;
 }
 #############################################################################
 # the server's main()

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