sub zone_check_nsrrset ($$$$) {
my ($uaddr,$wa, $name_if_auth, $glueless_ok) = @_;
my (@s, $s, %s2g, @glue, $glue, $delgs_or_auths, $wwn, $ww);
+ my ($rcode);
$ww= "[$uaddr] $wa";
verbose("checking delegation by $ww");
dig(sub {
unless $glueless_ok || !$needglue ||
grep { has_suffix_of($s,".$_"); }
@{ $cfg->{'conv_glueless'} };
- next;
+ ($rcode,@glue)= lookup($s,'a','0',"glueless NS from $ww");
}
$glue= join ' ', sort @glue;
push @{ $glue{$s}{$glue} }, $ww;
$lame= 'broken' if !$lame && !defined $origin;
if ($lame) { zone_warning("$lame server [$uaddr]",$wa); return; }
progress(2, sprintf "%-22s %40s has %s%s",
- $zone, $name, $serial, $is_ns ? '' : '*');
+ $zone, "$name [$uaddr]", $serial, $is_ns ? '' : '*');
push @{ $soas{$got} }, $ww;
($rcode,@soa_addrs)= lookup($origin,'a','0',"SOA ORIGIN");
$wwn= "SOA ORIGIN from $ww";