diff options
author | Niko Tyni <ntyni@iki.fi> | 2006-07-09 10:02:54 +0200 |
---|---|---|
committer | Niko Tyni <ntyni@iki.fi> | 2006-07-09 10:02:54 +0200 |
commit | bc44b6eb6edf099dbd8f2ba40ce7ed9e03462add (patch) | |
tree | 75587acda75391276434b30ae96dcc58c4d73776 /lib/Smokeping/probes/AnotherDNS.pm | |
parent | 7db88eb01e1e02688e17ae79638d5a0ec618f746 (diff) | |
download | smokeping-bc44b6eb6edf099dbd8f2ba40ce7ed9e03462add.tar.gz smokeping-bc44b6eb6edf099dbd8f2ba40ce7ed9e03462add.tar.xz |
AnotherDNS.pm: added option 'require_answers' for testing
recursive DNS servers.
Diffstat (limited to 'lib/Smokeping/probes/AnotherDNS.pm')
-rw-r--r-- | lib/Smokeping/probes/AnotherDNS.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Smokeping/probes/AnotherDNS.pm b/lib/Smokeping/probes/AnotherDNS.pm index d4f0397..185426d 100644 --- a/lib/Smokeping/probes/AnotherDNS.pm +++ b/lib/Smokeping/probes/AnotherDNS.pm @@ -98,11 +98,12 @@ sub pingone ($) { $ready->recv( $buf, &Net::DNS::PACKETSZ ); my ($recvPacket, $err) = Net::DNS::Packet->new(\$buf); if (defined $recvPacket) { + my $recvHeader = $recvPacket->header(); + next if $recvHeader->ancount() < $target->{vars}{require_answers}; if (not $require_noerror) { push @times, $elapsed; } else { # Check the Response Code for the NOERROR. - my $recvHeader = $recvPacket->header(); if ($recvHeader->rcode() eq "NOERROR") { push @times, $elapsed; } @@ -143,6 +144,10 @@ DOC _doc => 'Only Count Answers with Response Status NOERROR.', _default => 0, }, + require_answers => { + _doc => 'Only Count Answers with answer count >= this value.', + _default => 0, + }, recordtype => { _doc => 'Record type to look up.', _default => 'A', |