From c34599fe46f91f83aac8bce78f3e250a0a46f60e Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Fri, 27 Oct 2023 09:08:23 +0200
Subject: dhcp-to-dns: warn on duplicate names

---
 dhcp-to-dns.rsc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/dhcp-to-dns.rsc b/dhcp-to-dns.rsc
index e7620fa..5bd4462 100644
--- a/dhcp-to-dns.rsc
+++ b/dhcp-to-dns.rsc
@@ -19,6 +19,7 @@
 :global EitherOr;
 :global IfThenElse;
 :global LogPrintExit2;
+:global LogPrintOnce;
 :global ParseKeyValueStore;
 :global ScriptLock;
 
@@ -108,6 +109,10 @@ $ScriptLock $0 false 10;
         /ip/dns/static/add name=($HostName . "." . $NetDomain) type=CNAME cname=($MacDash . "." . $NetDomain) ttl=$Ttl comment=$Comment place-before=$PlaceBefore;
       }
     }
+
+    :if ([ :len [ /ip/dns/static/find where name=($MacDash . "." . $NetDomain) (!type or type=A) ] ] > 1) do={
+      $LogPrintOnce warning $0 ("The name '" . $MacDash . "." . $NetDomain . "' appeared in more than one A record!");
+    }
   } else={
     $LogPrintExit2 debug $0 ("No address available... Ignoring.") false;
   }
-- 
cgit v1.2.3-70-g09d2