From d556e97a465b27fad7aa1cec6be48b7867b401c6 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 26 Aug 2021 11:08:55 +0200
Subject: dhcp-to-dns: check for existence of address

Chances are that $LeaseVal is an array with just an id - no idea why this
happens. So do not check for array but existence of address.
---
 dhcp-to-dns | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/dhcp-to-dns b/dhcp-to-dns
index 8afbf54..3d01ff8 100644
--- a/dhcp-to-dns
+++ b/dhcp-to-dns
@@ -58,7 +58,7 @@ $ScriptLock $0 false 10;
     $LogPrintExit2 debug $0 ("A lease just vanished, ignoring.") false;
   }
 
-  :if ([ :typeof $LeaseVal ] = "array") do={
+  :if ([ :len ($LeaseVal->"address") ] > 0) do={
     :local Comment ($CommentPrefix . $LeaseVal->"mac-address");
     :local HostName [ $IfThenElse ([ :len ($LeaseVal->"host-name") ] = 0) \
       [ $CharacterReplace ($LeaseVal->"mac-address") ":" "-" ] \
@@ -91,5 +91,7 @@ $ScriptLock $0 false 10;
       $LogPrintExit2 info $0 ("Adding new DNS entry for " . $Fqdn . ", address is " . $LeaseVal->"address" . ".") false;
       / ip dns static add name=$Fqdn address=($LeaseVal->"address") ttl=$Ttl comment=$Comment place-before=$PlaceBefore;
     }
+  } else={
+    $LogPrintExit2 debug $0 ("No address available... Ignoring.") false;
   }
 }
-- 
cgit v1.2.3-70-g09d2