From df289640bce219d50187ff48d6525ccaeb992dc1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=81ukasz=20Witkowski?= <witul@skyhost.pl>
Date: Mon, 11 May 2026 16:43:13 +0200
Subject: [PATCH] dhcp-to-dns: convert DNS names to lower case

---
 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 692403ba..d93eeb34 100644
--- a/dhcp-to-dns.rsc
+++ b/dhcp-to-dns.rsc
@@ -89,8 +89,8 @@
     :local HostName [ $CleanName [ $EitherOr ([ $ParseKeyValueStore ($LeaseVal->"comment") ]->"hostname") ($LeaseVal->"host-name") ] ];
     :local NetDomain ([ $IfThenElse ([ :len ($NetworkInfo->"name-extra") ] > 0) ($NetworkInfo->"name-extra" . ".") ] . \
       [ $EitherOr [ $EitherOr ($NetworkInfo->"domain") ($NetworkVal->"domain") ] $Domain ]);
-    :local FullA ($MacDash . "." . $NetDomain);
-    :local FullCN ($HostName . "." . $NetDomain);
+    :local FullA [ :convert transform=lc ($MacDash . "." . $NetDomain) ];
+    :local FullCN [ :convert transform=lc ($HostName . "." . $NetDomain) ];
     :local MacInServer ($LeaseVal->"active-mac-address" . " in " . $LeaseVal->"server");
 
     :local DnsRecord [ /ip/dns/static/find where comment=$Comment type=A ];