On 10/5/06, Augie Schwer <[EMAIL PROTECTED]> wrote:
I could obviously write something up that takes a set of queries and
correct answers and then queries PowerDNS to verify its answers, but
if there was already something written that would run through a set of
tests quickly and effectively it would be great; any suggestions
welcome.
I know it's an old thread, but in case it helps anyone else out here's
what I ended up using:
#!/usr/bin/perl
# dnsreplay.pl - replay a BIND query log and print to STDOUT
# when a query fails against the given name server.
# $Id: dnsreplay.pl 852 2006-11-09 21:26:01Z augie $
use strict;
use Net::DNS;
if ( @ARGV < 2 ) { print "Usage: dnsreplay.pl NAMESERVER QUERYLOG\n"; exit;}
my $nameserver = $ARGV[0];
my $querylog = $ARGV[1];
my $res = Net::DNS::Resolver->new(
'nameservers' => [$nameserver],
'recurse' => 0,
'debug' => 0
);
open(FILE,"<$querylog") or die("Could not open $querylog: $!");
while(<FILE>)
{
my ($zone,$type) = (split)[3,5];
next if ( $type eq 'A6' ) ; # Net::DNS does not understand A6 records.
my $packet = $res->send($zone,$type);
unless ( $packet->answer )
{ print "$nameserver did not answer for $zone of type $type .\n"; }
}
close(FILE);
--
Augie Schwer - [EMAIL PROTECTED] - http://schwer.us
Key fingerprint = 9815 AE19 AFD1 1FE7 5DEE 2AC3 CB99 2784 27B0 C072
_______________________________________________
Pdns-users mailing list
[email protected]
http://mailman.powerdns.com/mailman/listinfo/pdns-users
