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

Fixed an issue with AS lookups and some formatting glitches

This commit is contained in:
Maff 2014-03-05 01:19:03 +00:00
parent 70b1a2edad
commit b1485bbf55
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
aslookup-new
View File

@ -27,7 +27,8 @@ sub do_as_lookup {
my $asdesc = ""; my $asdesc = "";
foreach(@results) { foreach(@results) {
$asname = $1 if /as-name:\s+(.+)$/; $asname = $1 if /as-name:\s+(.+)$/;
$asdesc = $1 if /descr:\s+(.+)$/; $asdesc .= ", " if length $asdesc > 0 and /^descr/;
$asdesc .= $1 if /descr:\s+(.+)$/;
} }
return "$asn $asname - $asdesc"; return "$asn $asname - $asdesc";
} }
@ -50,8 +51,7 @@ sub do_subnet_lookup {
return "$sub€$result€$descr"; return "$sub€$result€$descr";
} }
my $target = shift || die "Please provide an ASnum or IP/subnet to look up\n"; my $target = uc shift || die "Please provide an ASnum or IP/subnet to look up\n";
if($target =~ /^AS/) { if($target =~ /^AS/) {
print "$target is ".do_as_lookup $target;print "\n"; print "$target is ".do_as_lookup $target;print "\n";
exit exit