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

Added RIPE fallback if the default whois server doesn't have information on a given ASN

This commit is contained in:
MaffC 2013-03-18 02:20:49 +00:00
parent cbae4a912b
commit 4e1043140d
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
aslookup
View File

@ -7,7 +7,11 @@ use Net::Whois::RIPE;
sub output_result { sub output_result {
my ($target, %result) = @_; my ($target, %result) = @_;
if($target =~ /^AS/i) { if($target =~ /^AS/i) {
print "$target is ", $result{'descr'}, " (", $result{'as-name'}, ")\n"; my $out = "$target is ".$result{'descr'};
if(defined($result{'as-name'})) {
$out .= " (".$result{'as-name'}.")";
}
print "$out\n";
} else { } else {
my $as_descr = get_AS_descr($result{'origin'}); my $as_descr = get_AS_descr($result{'origin'});
my $routename = "route"; my $routename = "route";
@ -17,13 +21,21 @@ sub output_result {
} }
sub handle_whois_output { sub handle_whois_output {
my ($target,$obj) = @_; my ($target,$obj,$did_ripe_whois) = @_;
while($obj->isnt_exhausted) { while($obj->isnt_exhausted) {
my %wresult; my %wresult;
my @whoisdata = split /\n/, $obj->value(); my @whoisdata = split /\n/, $obj->value();
if($whoisdata[0] =~ /^%/) { if(!defined($whoisdata[0])) {
print "Lookup for $target failed!\n"; next;
} elsif($whoisdata[0] =~ /^%.*(no entries found)/i) {
if($did_ripe_whois == 1 || $target !~ /^AS/i) {
print "Lookup for $target failed! \n";
} else {
handle_whois_output($target, do_ripe_whois($target), 1);
}
return; return;
} elsif($whoisdata[0] =~ /^%/) {
next;
} }
foreach (@whoisdata) { foreach (@whoisdata) {
my $key = $_; my $key = $_;
@ -65,16 +77,16 @@ sub do_whois {
my $w = Net::Whois::RIPE->new(%whois_options); my $w = Net::Whois::RIPE->new(%whois_options);
return $w->query($target); return $w->query($target);
} }
sub do_ripe_whois {
my $target = shift;
my $w = Net::Whois::RIPE->new();
return $w->query($target);
}
my $default_as_server = "whois.radb.net"; my $default_as_server = "whois.radb.net";
my %whois_options = (
"hostname" => $default_as_server,
);
if($#ARGV < 0 || $ARGV[0] eq "") { if($#ARGV < 0 || $ARGV[0] eq "") {
print "Provide an IP or ASN to look up"; print "Provide an IP or ASN to look up";
exit; exit;
} }
my $target = $ARGV[0]; my $target = $ARGV[0];
my $whois = Net::Whois::RIPE->new(%whois_options); handle_whois_output($target, do_whois($target), 0);
my $witerator = $whois->query($target);
handle_whois_output($target, $witerator);