… | |
… | |
60 | if ($login eq $pl->name) { |
60 | if ($login eq $pl->name) { |
61 | $pl->message ("Very funny, $login. Ha. Ha.", cf::NDI_REPLY); |
61 | $pl->message ("Very funny, $login. Ha. Ha.", cf::NDI_REPLY); |
62 | } elsif (cf::player::find_active $login) { |
62 | } elsif (cf::player::find_active $login) { |
63 | $pl->message ("$login is right here on this server!", cf::NDI_REPLY); |
63 | $pl->message ("$login is right here on this server!", cf::NDI_REPLY); |
64 | } elsif (cf::player::exists $login |
64 | } elsif (cf::player::exists $login |
65 | and stat cf::player::path $login) { |
65 | and !Coro::AIO::aio_stat cf::player::path $login) { |
66 | my $time = (stat _)[9]; |
66 | my $time = (stat _)[9]; |
67 | |
67 | |
68 | $pl->message ("$login was last seen here " |
68 | $pl->message ("$login was last seen here " |
69 | . (POSIX::strftime "%Y-%m-%d %H:%M:%S +0000", gmtime $time) |
69 | . (POSIX::strftime "%Y-%m-%d %H:%M:%S +0000", gmtime $time) |
70 | . " which was " . (int +(time - $time) / 3600) . " hours ago.", cf::NDI_REPLY); |
70 | . " which was " . (int +(time - $time) / 3600) . " hours ago.", cf::NDI_REPLY); |