From e7f23d6a32f7434e4047a00c20ee82eb211adf3d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=81ukasz=20Witkowski?= <witul@skyhost.pl>
Date: Tue, 5 May 2026 21:27:45 +0200
Subject: [PATCH] dhcp-to-dns: normalize A and CNAME record names to lowercase

---
 dhcp-to-dns.rsc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dhcp-to-dns.rsc b/dhcp-to-dns.rsc
index b9ff331b..d3a5b1fd 100644
--- a/dhcp-to-dns.rsc
+++ b/dhcp-to-dns.rsc
@@ -71,9 +71,9 @@
 
     :if ([ :len ($LeaseVal->"active-address") ] > 0) do={
       :local Comment ($CommentPrefix . ", macaddress=" . $LeaseVal->"active-mac-address" . ", server=" . $LeaseVal->"server");
-      :local MacDash [ $CleanName ($LeaseVal->"active-mac-address") ];
+      :local MacDash [ :tolower [ $CleanName ($LeaseVal->"active-mac-address") ] ];
       :local LeaseInfo [ $ParseKeyValueStore ($LeaseVal->"comment") ];
-      :local HostName [ $CleanName [ $EitherOr ($LeaseInfo->"hostname") ($LeaseVal->"host-name") ] ];
+      :local HostName [ :tolower [ $CleanName [ $EitherOr ($LeaseInfo->"hostname") ($LeaseVal->"host-name") ] ] ];
       :local Network [ /ip/dhcp-server/network/find where ($LeaseVal->"active-address") in address ];
       :local NetworkVal;
       :if ([ :len $Network ] > 0) do={