--- Coro/myhttpd/netgeo.pl 2003/05/07 19:00:43 1.15 +++ Coro/myhttpd/netgeo.pl 2005/09/17 20:21:11 1.16 @@ -122,13 +122,14 @@ my $whois = $self->whois_request($ip); - return () if $whois =~ /^No match/; + return if $whois =~ /^No match/; + return if $whois =~ /^\*de: This network range is not allocated to /; # APINIC e.g. 24.0.0.0 if ($whois =~ /^To single out one record/m) { my $handle; while ($whois =~ /\G\S.*\(([A-Z0-9\-]+)\).*\n/mg) { $handle = $1; - #return if $handle =~ /-(RIPE|APNIC)/; # heuristic, bbut bad because ripe might not have better info + #return if $handle =~ /-(RIPE|APNIC)/; # heuristic, but bad because ripe might not have better info } $handle or die "$whois ($ip): unparseable multimatch\n"; $whois = $self->whois_request("!$handle");