| … | |
… | |
| 316 | |
316 | |
| 317 | our %WHOIS; |
317 | our %WHOIS; |
| 318 | |
318 | |
| 319 | #$WHOIS{ARIN} = new Whois::ARIN ARIN => "whois.arin.net", port => 43, maxjobs => 12; |
319 | #$WHOIS{ARIN} = new Whois::ARIN ARIN => "whois.arin.net", port => 43, maxjobs => 12; |
| 320 | $WHOIS{ARIN} = new Whois::RWHOIS ARIN => "rwhois.arin.net", port => 4321, maxjobs => 12; |
320 | $WHOIS{ARIN} = new Whois::RWHOIS ARIN => "rwhois.arin.net", port => 4321, maxjobs => 12; |
| 321 | $WHOIS{RIPE} = new Whois::RIPE RIPE => "whois.ripe.net", port => 43, rflags => "-FSTin ", maxjobs => 20; |
321 | $WHOIS{RIPE} = new Whois::RIPE RIPE => "whois.ripe.net", port => 43, rflags => "-FTin ", maxjobs => 20; |
| 322 | $WHOIS{APNIC} = new Whois::RIPE APNIC => "whois.apnic.net", port => 43, rflags => "-FSTin ", maxjobs => 20; |
322 | $WHOIS{APNIC} = new Whois::RIPE APNIC => "whois.apnic.net", port => 43, rflags => "-FTin ", maxjobs => 20; |
| 323 | $WHOIS{LACNIC} = new Whois::RIPE LACNIC => "whois.lacnic.net", port => 43, maxjobs => 20; |
323 | $WHOIS{LACNIC} = new Whois::RIPE LACNIC => "whois.lacnic.net", port => 43, maxjobs => 20; |
| 324 | |
324 | |
| 325 | $whoislock = new Coro::SemaphoreSet; |
325 | $whoislock = new Coro::SemaphoreSet; |
| 326 | |
326 | |
| 327 | sub ip_request { |
327 | sub ip_request { |
| … | |
… | |
| 343 | my ($arin, $ripe, $apnic); |
343 | my ($arin, $ripe, $apnic); |
| 344 | |
344 | |
| 345 | $whois = $WHOIS{RIPE}->ip_request($ip) |
345 | $whois = $WHOIS{RIPE}->ip_request($ip) |
| 346 | || $WHOIS{APNIC} ->ip_request($ip) |
346 | || $WHOIS{APNIC} ->ip_request($ip) |
| 347 | || $WHOIS{ARIN} ->ip_request($ip) |
347 | || $WHOIS{ARIN} ->ip_request($ip) |
| 348 | || $WHOIS{LACNIC}->ip_request($ip) |
348 | # || $WHOIS{LACNIC}->ip_request($ip) |
| 349 | ; |
349 | ; |
| 350 | |
350 | |
| 351 | $whois =~ /^\*in: ([0-9.]+)\s+-\s+([0-9.]+)\s*$/mi |
351 | $whois =~ /^\*in: ([0-9.]+)\s+-\s+([0-9.]+)\s*$/mi |
| 352 | or do { warn "$whois($ip): no addresses found\n", last }; |
352 | or do { warn "$whois($ip): no addresses found\n", last }; |
| 353 | |
353 | |
| … | |
… | |
| 377 | #print "\n\n"; |
377 | #print "\n\n"; |
| 378 | #print ip_request "62.116.167.250"; |
378 | #print ip_request "62.116.167.250"; |
| 379 | #print "\n\n"; |
379 | #print "\n\n"; |
| 380 | #print ip_request "133.11.128.254"; # jp |
380 | #print ip_request "133.11.128.254"; # jp |
| 381 | #print "\n\n"; |
381 | #print "\n\n"; |
| 382 | #print ip_request "151.197.52.251"; |
382 | print ip_request "80.131.153.93"; |
| 383 | #print "\n\n"; |
383 | print "\n\n"; |
| 384 | } |
384 | } |
| 385 | |
385 | |
| 386 | 1; |
386 | 1; |
| 387 | |
387 | |
| 388 | |
388 | |
