| … | … | ||
|---|---|---|---|
| 415 | } | 415 | } |
| 416 | 416 | ||
| 417 | close $fh; | 417 | close $fh; |
| 418 | } | 418 | } |
| 419 | 419 | ||
| 420 | sub access_check { | ||
| 421 | my $self = shift; | ||
| 422 | my $whois = ::ip_request($self->{remote_addr}); | ||
| 423 | |||
| 424 | if ($whois =~ /^\*cy: (\S+)/m) { | ||
| 425 | $self->slog(9, "COUNTRY($1)"); | ||
| 426 | } else { | ||
| 427 | $self->slog(9, "no country($whois)"); | ||
| 428 | } | ||
| 429 | } | ||
| 430 | |||
| 431 | 1; | 420 | 1; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |