maff
/
scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed IPv6 lookups

This commit is contained in:
MaffC 2013-03-17 05:58:59 +00:00
parent 9312e5a5a8
commit f82da57ebd
1 changed files with 29 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
aslookup
View File

@ -1,32 +1,20 @@
#!/usr/bin/env perl
#aslookup.pl - Looks up information on a given ASN or IP address
use strict;
use warnings;
use Net::Whois::RIPE;
my $default_as_server = "whois.radb.net";
my %whois_options = (
"hostname" => $default_as_server,
);
if($#ARGV < 0 || $ARGV[0] eq "") {
print "Provide an IP or ASN to look up";
exit;
}
my $target = $ARGV[0];
my $whois = Net::Whois::RIPE->new(%whois_options);
my $witerator = $whois->query($target);
while($witerator->isnt_exhausted) {
sub handle_whois_output {
my ($obj,$target) = @_;
while($obj->isnt_exhausted) {
my ($asnum,$asname,$descr,$origin,$route);
my @whoisdata = split /\n/, $witerator->value();
my @whoisdata = split /\n/, $obj->value();
foreach (@whoisdata) {
$asnum = $_ if /^aut-num:/;
$asname = $_ if /^as-name:/;
$descr = $_ if /^descr:/;
$origin = $_ if /^origin:/;
$route = $_ if /^route:/;
$route = $_ if /^route[6]?:/;
}
$descr =~ s/.*:[ ]+//;
if($target =~ /^AS.*/i) {
@ -39,3 +27,20 @@ while($witerator->isnt_exhausted) {
print "$route advertised by $origin - $descr\n";
}
}
}
my $default_as_server = "whois.radb.net";
my %whois_options = (
"hostname" => $default_as_server,
);
if($#ARGV < 0 || $ARGV[0] eq "") {
print "Provide an IP or ASN to look up";
exit;
}
my $target = $ARGV[0];
my $whois = Net::Whois::RIPE->new(%whois_options);
my $ripewhois = Net::Whois::RIPE->new();
my $witerator = $whois->query($target);
handle_whois_output($witerator,$target);
my $riterator = $ripewhois->query($target);
#handle_whois_output($riterator,$target);