| 481 |
my ($self, $scanner, $ent, $dom) = @_; |
my ($self, $scanner, $ent, $dom) = @_; |
| 482 |
|
|
| 483 |
my $packet = $ent->{response_packet}; |
my $packet = $ent->{response_packet}; |
| 484 |
my @answer = $packet->answer; |
my @answer = !defined $packet ? () : $packet->answer; |
| 485 |
|
|
| 486 |
my $IPV4_ADDRESS = IPV4_ADDRESS; |
my $IPV4_ADDRESS = IPV4_ADDRESS; |
| 487 |
my $IP_PRIVATE = IP_PRIVATE; |
my $IP_PRIVATE = IP_PRIVATE; |
| 526 |
sub complete_a_lookup { |
sub complete_a_lookup { |
| 527 |
my ($self, $scanner, $ent, $hname) = @_; |
my ($self, $scanner, $ent, $hname) = @_; |
| 528 |
|
|
| 529 |
foreach my $rr ($ent->{response_packet}->answer) { |
my $packet = $ent->{response_packet}; |
| 530 |
|
my @answer = !defined $packet ? () : $packet->answer; |
| 531 |
|
foreach my $rr (@answer) { |
| 532 |
my $str = $rr->string; |
my $str = $rr->string; |
| 533 |
$self->log_dns_result ("A for NS $hname: $str"); |
$self->log_dns_result ("A for NS $hname: $str"); |
| 534 |
|
|
| 579 |
my $rulecf = $conf->{uridnsbls}->{$rulename}; |
my $rulecf = $conf->{uridnsbls}->{$rulename}; |
| 580 |
|
|
| 581 |
my $packet = $ent->{response_packet}; |
my $packet = $ent->{response_packet}; |
| 582 |
my @answer = $packet->answer; |
my @answer = !defined $packet ? () : $packet->answer; |
| 583 |
|
|
| 584 |
my $uridnsbl_subs = $conf->{uridnsbl_subs}->{$ent->{zone}}; |
my $uridnsbl_subs = $conf->{uridnsbl_subs}->{$ent->{zone}}; |
| 585 |
foreach my $rr (@answer) |
foreach my $rr (@answer) |