chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Copyright notices. Say we check slaving details. Update manpage date.
[chiark-utils.git]
/
scripts
/
named-conf
diff --git
a/scripts/named-conf
b/scripts/named-conf
index 965e5b87f3c086d699e7f7088661f6bf79f05ff8..3c92ecec5dd099c491a1e95aa2264d250307fd6f 100755
(executable)
--- 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) = @_;
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");
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");
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;
}
$glue= join ' ', sort @glue;
push @{ $glue{$s}{$glue} }, $ww;