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