# - add -s option to configure udp packet size. default changed from 4k to 1k
# Copyright (c) 2013 Peter Palfrader <peter@palfrader.org>
# - add -r option to override initial refs.
+# Copyright (c) 2014 Peter Palfrader <peter@palfrader.org>
+# - Do not ask for RRSIG directly, instead ask for SOA with dnssec data
# usage
do {
print STDERR "\nRECURSE\n" if $opts{d};
my $pkt;
- my $prettyrefs = (scalar @refs) ? join(", ", @refs) : "root servers";
+ my $prettyrefs = (scalar @refs) ? join(", ", @refs) : "empty set(!?)";
foreach my $ns (shuffle @refs) {
print STDERR "sending query for $zone SOA to $ns\n" if $opts{d};
$res->nameserver($ns);
$pkt = $res->send($zone, 'SOA');
last if $pkt;
}
- print STDERR "No response to seed query for $zone SOA from $prettyrefs, retrying.\n" if $opts{d};
+ print STDERR "No response to seed query for $zone SOA from $prettyrefs.\n" if $opts{d};
critical("No response to seed query for $zone from $prettyrefs.") unless $pkt;
critical($pkt->header->rcode . " from " . $pkt->answerfrom)
unless ($pkt->header->rcode eq 'NOERROR');
my $res = Net::DNS::Resolver->new;
$res->nameserver($server) if $server;
$res->udp_timeout($opts{t});
- $res->udp_timeout($opts{t});
$res->dnssec(1);
$res->retry(2);
$res->udppacketsize($opts{s});