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

Added handling for when an AS or IP does not exist

This commit is contained in:
MaffC 2013-03-18 01:34:38 +00:00
parent eefc16d360
commit cbae4a912b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
aslookup
View File

@ -21,6 +21,10 @@ sub handle_whois_output {
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] =~ /^%/) {
print "Lookup for $target failed!\n";
return;
}
foreach (@whoisdata) { foreach (@whoisdata) {
my $key = $_; my $key = $_;
$key =~ s/^([a-z\-0-9]+):.*/$1/; $key =~ s/^([a-z\-0-9]+):.*/$1/;