| … | |
… | |
| 68 | my %disallow; |
68 | my %disallow; |
| 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 $ra = $self->{remote_addr}; |
| 74 | ||= netgeo::ip_request($self->{remote_addr}); |
74 | my $whois = $whois_cache{$ra} ||= netgeo::ip_request($ra); |
| 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; |
