| … | |
… | |
| 69 | |
69 | |
| 70 | $self->err_block_referer |
70 | $self->err_block_referer |
| 71 | if $self->{h}{referer} =~ $blockref; |
71 | if $self->{h}{referer} =~ $blockref; |
| 72 | |
72 | |
| 73 | my $whois = $whois_cache{$self->{remote_addr}} |
73 | my $whois = $whois_cache{$self->{remote_addr}} |
| 74 | ||= ::ip_request($self->{remote_addr}); |
74 | ||= netgeo::ip_request($self->{remote_addr}); |
| 75 | |
75 | |
| 76 | my $country = "XX"; |
76 | my $country = "XX"; |
| 77 | |
77 | |
| 78 | if ($whois =~ /^\*cy: (\S+)/m) { |
78 | if ($whois =~ /^\*cy: (\S+)/m) { |
| 79 | $country = uc $1; |
79 | $country = uc $1; |
