dhcp-to-dns: warn on duplicate names

1 files changed, 5 insertions, 0 deletions

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;
   }