- zone_warning("glueless NS $s,".($needglue<=1 ? " (eg)" : ""),
- $ww)
- unless $glueless_ok || !$needglue;
- next;
+ zone_warning("glueless NS $s", $ww)
+ unless $glueless_ok || !$needglue ||
+ grep { has_suffix_of($s,".$_"); }
+ @{ $cfg->{'conv_glueless'} };
+ ($rcode,@glue)= lookup($s,'a','0',"glueless NS from $ww");
+ foreach $a (@glue) {
+ $wwn= "glueless NS from $ww";
+ push @to_check, $a, "$s, $wwn", $s, 0;
+ zone_server_addr($a,$s,$wwn,"NS [$uaddr]",0);
+ }