X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=scripts%2Fnamed-conf;h=3c92ecec5dd099c491a1e95aa2264d250307fd6f;hb=78086a25d2ae3bd77a6e85ded828349ebac10a83;hp=965e5b87f3c086d699e7f7088661f6bf79f05ff8;hpb=0672e02d507bbf0625477b272c3df206e49851eb;p=chiark-utils.git

diff --git a/scripts/named-conf b/scripts/named-conf
index 965e5b8..3c92ece 100755
--- a/scripts/named-conf
+++ b/scripts/named-conf
@@ -391,7 +391,7 @@ sub zone_investigate() {
 
 sub zone_check_nsrrset ($$$$) {
     my ($uaddr,$wa, $name_if_auth, $glueless_ok) = @_;
-    my (@s, $s, %s2g, @glue, $glue, $delgs_or_auths, $wwn, $ww);
+    my (@s, $s, $a, %s2g, @glue, $glue, $delgs_or_auths, $wwn, $ww);
     my ($rcode);
     $ww= "[$uaddr] $wa";
     verbose("checking delegation by $ww");
@@ -423,6 +423,11 @@ sub zone_check_nsrrset ($$$$) {
 		       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);
+	    }
 	}
 	$glue= join ' ', sort @glue;
 	push @{ $glue{$s}{$glue} }, $ww;