… | |
… | |
279 | $who->message ("$login is right here on this server!", cf::NDI_UNIQUE); |
279 | $who->message ("$login is right here on this server!", cf::NDI_UNIQUE); |
280 | } elsif (cf::player::exists $login |
280 | } elsif (cf::player::exists $login |
281 | and stat sprintf "%s/%s/%s/%s.pl", cf::localdir, cf::playerdir, ($login) x 2) { |
281 | and stat sprintf "%s/%s/%s/%s.pl", cf::localdir, cf::playerdir, ($login) x 2) { |
282 | my $time = (stat _)[9]; |
282 | my $time = (stat _)[9]; |
283 | |
283 | |
284 | $who->message ("$login was last seen here on " |
284 | $who->message ("$login was last seen here " |
285 | . (POSIX::strftime "%Y-%m-%d %H:%M:%S +0000", gmtime $time) |
285 | . (POSIX::strftime "%Y-%m-%d %H:%M:%S +0000", gmtime $time) |
286 | . " which was " . (int +(time - $time) / 3600) . " hours ago.", cf::NDI_UNIQUE); |
286 | . " which was " . (int +(time - $time) / 3600) . " hours ago.", cf::NDI_UNIQUE); |
287 | } else { |
287 | } else { |
288 | $who->message ("No player named $login is known to me.", cf::NDI_UNIQUE); |
288 | $who->message ("No player named $login is known to me.", cf::NDI_UNIQUE); |
289 | } |
289 | } |