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