… | |
… | |
292 | if ($cf::CFG{ext_login_nocheck} or $hash eq crypt $pass, $hash) { |
292 | if ($cf::CFG{ext_login_nocheck} or $hash eq crypt $pass, $hash) { |
293 | nuke_str $pass; |
293 | nuke_str $pass; |
294 | # password matches, wonderful |
294 | # password matches, wonderful |
295 | my $pl = cf::player::find $user or next; |
295 | my $pl = cf::player::find $user or next; |
296 | $pl->connect ($ns); |
296 | $pl->connect ($ns); |
|
|
297 | $pl->ob->flag (cf::FLAG_DEBUG, 1);#d# temp |
297 | enter_map $pl; |
298 | enter_map $pl; |
298 | last; |
299 | last; |
299 | } elsif (can_cleanup $pl, $mtime) { |
300 | } elsif (can_cleanup $pl, $mtime) { |
300 | Coro::Timer::sleep 1; |
301 | Coro::Timer::sleep 1; |
301 | |
302 | |