From 295ccb570d98dd3f782da5e0272d62bf2698a836 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Wed, 22 Mar 2023 10:21:31 +0100
Subject: dhcp-to-dns: update cname record on changed host name

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

diff --git a/dhcp-to-dns.rsc b/dhcp-to-dns.rsc
index aa71e4c..75b3fbf 100644
--- a/dhcp-to-dns.rsc
+++ b/dhcp-to-dns.rsc
@@ -81,6 +81,12 @@ $ScriptLock $0 false 10;
         $LogPrintExit2 info $0 ("Replacing DNS entry for " . ($MacDash . "." . $Domain) . ", new address is " . $LeaseVal->"address" . ".") false;
         /ip/dns/static/set address=($LeaseVal->"address") $DnsRecord;
       }
+
+      :local Cname [ /ip/dns/static/find where type=CNAME cname=($MacDash . "." . $Domain) comment=$Comment ];
+      :if ([ :len $Cname ] > 0 && [ /ip/dns/static/get $Cname name ] != ($HostName . "." . $Domain)) do={
+        $LogPrintExit2 info $0 ("Host name changed, updating CNAME (pointing to " . ($MacDash . "." . $Domain) . ") to " . ($HostName . "." . $Domain) . ".") false;
+        /ip/dns/static/set name=($HostName . "." . $Domain) $Cname;
+      }
     } else={
       $LogPrintExit2 info $0 ("Adding new DNS entry for " . ($MacDash . "." . $Domain) . ", address is " . $LeaseVal->"address" . ".") false;
       /ip/dns/static/add name=($MacDash . "." . $Domain) type=A address=($LeaseVal->"address") ttl=$Ttl comment=$Comment place-before=$PlaceBefore;
-- 
cgit v1.2.3-54-g00ecf