ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/lib/cf.pm
(Generate patch)

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.233 by root, Wed Apr 4 02:20:27 2007 UTC vs.
Revision 1.234 by root, Thu Apr 5 13:44:31 2007 UTC

963} 963}
964 964
965sub path($) { 965sub path($) {
966 my $login = ref $_[0] ? $_[0]->ob->name : $_[0]; 966 my $login = ref $_[0] ? $_[0]->ob->name : $_[0];
967 967
968 (playerdir $login) . "/$login.pl" 968 (playerdir $login) . "/playerdata"
969} 969}
970 970
971sub find_active($) { 971sub find_active($) {
972 $cf::PLAYER{$_[0]} 972 $cf::PLAYER{$_[0]}
973 and $cf::PLAYER{$_[0]}->active 973 and $cf::PLAYER{$_[0]}->active
986 my $login = $_[0]; 986 my $login = $_[0];
987 987
988 my $guard = cf::lock_acquire "user_find:$login"; 988 my $guard = cf::lock_acquire "user_find:$login";
989 989
990 $cf::PLAYER{$_[0]} || do { 990 $cf::PLAYER{$_[0]} || do {
991 # rename old playerfiles to new ones
992 #TODO: remove when no longer required
993 aio_link +(playerdir $login) . "/$login.pl.pst", (playerdir $login) . "/playerdata.pst";
994 aio_link +(playerdir $login) . "/$login.pl" , (playerdir $login) . "/playerdata";
995 aio_unlink +(playerdir $login) . "/$login.pl.pst";
996 aio_unlink +(playerdir $login) . "/$login.pl";
997
991 my $pl = load_pl path $login 998 my $pl = load_pl path $login
992 or return; 999 or return;
993 $cf::PLAYER{$login} = $pl 1000 $cf::PLAYER{$login} = $pl
994 } 1001 }
995 } 1002 }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines