From 0bfd000b8b4666a2104db802a0b3e24927b3ca25 Mon Sep 17 00:00:00 2001
From: ianmdlvl <ianmdlvl>
Date: Mon, 31 Dec 2001 18:02:49 +0000
Subject: [PATCH] Check our names and addresses.

---
 scripts/named-conf | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/scripts/named-conf b/scripts/named-conf
index a222db0..3ea8d08 100755
--- 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 ($$) {
-- 
2.30.2