… | |
… | |
241 | } |
241 | } |
242 | } |
242 | } |
243 | |
243 | |
244 | my ($arin, $ripe, $apnic); |
244 | my ($arin, $ripe, $apnic); |
245 | |
245 | |
246 | $whois = $WHOIS{APNIC}->ip_request($ip) |
246 | $whois = $WHOIS{RIPE}->ip_request($ip) |
247 | || $WHOIS{RIPE} ->ip_request($ip) |
|
|
248 | || $WHOIS{ARIN} ->ip_request($ip); |
247 | || $WHOIS{ARIN} ->ip_request($ip) |
|
|
248 | || $WHOIS{APNIC} ->ip_request($ip); |
249 | |
249 | |
250 | $whois =~ /^\*in: ([0-9.]+)\s+-\s+([0-9.]+)\s*$/mi |
250 | $whois =~ /^\*in: ([0-9.]+)\s+-\s+([0-9.]+)\s*$/mi |
251 | or do { warn "$whois($ip): no addresses found\n", last }; |
251 | or do { warn "$whois($ip): no addresses found\n", last }; |
252 | |
252 | |
253 | my ($ip0, $ip1) = ($1, $2); |
253 | my ($ip0, $ip1) = ($1, $2); |