| … | |
… | |
| 121 | my ($self, $ip) = @_; |
121 | my ($self, $ip) = @_; |
| 122 | |
122 | |
| 123 | my $whois = $self->whois_request($ip); |
123 | my $whois = $self->whois_request($ip); |
| 124 | |
124 | |
| 125 | return if $whois =~ /^No match/; |
125 | return if $whois =~ /^No match/; |
| 126 | return if $whois =~ /^\*de: This network range is not allocated to /; # APINIC e.g. 24.0.0.0 |
|
|
| 127 | |
126 | |
| 128 | if ($whois =~ /^To single out one record/m) { |
127 | if ($whois =~ /^To single out one record/m) { |
| 129 | my $handle; |
128 | my $handle; |
| 130 | while ($whois =~ /\G\S.*\(([A-Z0-9\-]+)\).*\n/mg) { |
129 | while ($whois =~ /\G\S.*\(([A-Z0-9\-]+)\).*\n/mg) { |
| 131 | $handle = $1; |
130 | $handle = $1; |
| … | |
… | |
| 231 | }gex; |
230 | }gex; |
| 232 | |
231 | |
| 233 | $whois =~ /^\*in: 0\.0\.0\.0 - 255\.255\.255\.255/ |
232 | $whois =~ /^\*in: 0\.0\.0\.0 - 255\.255\.255\.255/ |
| 234 | and return; |
233 | and return; |
| 235 | |
234 | |
|
|
235 | $whois =~ /^\*de: This network range is not allocated to /m # APINIC e.g. 24.0.0.0 |
|
|
236 | and return; |
|
|
237 | |
| 236 | $whois =~ /^\*ac: XXX0/m # 192.0.0.0 |
238 | $whois =~ /^\*ac: XXX0/m # 192.0.0.0 |
| 237 | and return; |
239 | and return; |
| 238 | |
240 | |
| 239 | $whois =~ /^\*st: (?:ALLOCATED )?UNSPECIFIED/m |
241 | $whois =~ /^\*st: (?:ALLOCATED )?UNSPECIFIED/m |
| 240 | and return; |
242 | and return; |
