From bc44b6eb6edf099dbd8f2ba40ce7ed9e03462add Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@iki.fi>
Date: Sun, 9 Jul 2006 08:02:54 +0000
Subject: AnotherDNS.pm: added option 'require_answers' for testing recursive
 DNS servers.

---
 lib/Smokeping/probes/AnotherDNS.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lib/Smokeping')

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',
-- 
cgit v1.2.3-24-g4f1b