| … | |
… | |
| 271 | |
271 | |
| 272 | cf::register_command seen => 0, sub { |
272 | cf::register_command seen => 0, sub { |
| 273 | my ($who, $args) = @_; |
273 | my ($who, $args) = @_; |
| 274 | |
274 | |
| 275 | if (my ($login) = $args =~ /(\S+)/) { |
275 | if (my ($login) = $args =~ /(\S+)/) { |
|
|
276 | if ($login eq $who->name) { |
|
|
277 | $who->message ("Very funny, $login. Ha. Ha.", cf::NDI_UNIQUE); |
| 276 | if (cf::player::find $login) { |
278 | } elsif (cf::player::find $login) { |
| 277 | $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); |
| 278 | } elsif (cf::player::exists $login |
280 | } elsif (cf::player::exists $login |
| 279 | 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) { |
| 280 | my $time = (stat _)[9]; |
282 | my $time = (stat _)[9]; |
| 281 | |
283 | |
