Check our names and addresses.

diff --git a/scripts/named-conf b/scripts/named-conf
index a222db0bab52ca5853035853abc89c1a606a3a2f..3ea8d08fcf7ef613534fe2c8259d0d4d1b1ecaf7 100755 (executable)
--- a/scripts/named-conf
+++ b/scripts/named-conf
@@ -367,6 +367,16 @@ sub zone_server_addr ($$$$) {
     zone_warning("configured as stealth but we [$addr]".
                 " are published ($name $ww)")
        if $cfg->{'s'} =~ m/u/ && grep { $_ eq $addr } @self_addr;
+
+    $name_is_self= grep { $_ eq $name } ($is_soa ? @self_soa : @self_ns);
+    $addr_is_self= grep { $_ eq $addr } @self_addr;
+    if ($name_is_self && !$addr_is_self) {
+       zone_warning("our name $name has wrong address $addr ($ww)");
+    } elsif (!$name_is_self && $addr_is_self) {
+       zone_warning(($is_soa ? "SOA ORIGIN maps to" : "delegated to").
+                    " our address $addr but to wrong".
+                    " name $name ($ww)");
+    }
 }
 
 sub zone_check_soa ($$) {