… | … | ||
---|---|---|---|
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 |