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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.217 by root, Thu Feb 15 21:07:49 2007 UTC vs.
Revision 1.221 by pippijn, Fri Mar 2 13:32:52 2007 UTC

    $coro
 }
 sub write_runtime {
+   my $guard = cf::lock_acquire "write_runtime";
    my $runtime = cf::localdir . "/runtime";
    my $fh = aio_open "$runtime~", O_WRONLY | O_CREAT, 0644
       or return;
 =cut
 sub quit_character {
    my ($pl) = @_;
+   my $name = $pl->ob->name;
    $pl->{deny_save} = 1;
    $pl->password ("*"); # this should lock out the player until we nuked the dir
    $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1) if $pl->active;
    $pl->deactivate;
    my $path = playerdir $pl;
    my $temp = "$path~$cf::RUNTIME~deleting~";
    aio_rename $path, $temp;
    delete $cf::PLAYER{$pl->ob->name};
    $pl->destroy;
+   my $prefix = qr<^~\Q$name\E/>;
+   # nuke player maps
+   $cf::MAP{$_}->nuke for grep /$prefix/, keys %cf::MAP;
    IO::AIO::aio_rmtree $temp;
+}
+=item $pl->kick
+Kicks a player out of the game. This destroys the connection.
+=cut
+sub kick {
+   my ($pl, $kicker) = @_;
+   $pl->invoke (cf::EVENT_PLAYER_KICK, $kicker);
+   $pl->killer ("kicked");
+   $pl->ns->destroy;
 }
 =item cf::player::list_logins
 Returns am arrayref of all valid playernames in the system, can take a
             write_runtime
                or warn "ERROR: unable to write runtime file: $!";
          };
       }
       $WAIT_FOR_TICK->broadcast;
       $WAIT_FOR_TICK_ONE->send if $WAIT_FOR_TICK_ONE->awaited;
 #      my $AFTER = Event::time;
 #      warn $AFTER - $NOW;#d#

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