From 1e8918fdaa5a30393e2004d1f5e4dff458936b67 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 5 Mar 2024 16:12:36 +0100
Subject: global-functions: $ScriptLock: do not exit from global function

---
 lease-script.rsc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lease-script.rsc')

diff --git a/lease-script.rsc b/lease-script.rsc
index 64e7f46..582f8ff 100644
--- a/lease-script.rsc
+++ b/lease-script.rsc
@@ -34,7 +34,9 @@
   $LogPrintExit2 debug $ScriptName ("DHCP Server " . $leaseServerName . " " . [ $IfThenElse ($leaseBound = 0) \
     "de" "" ] . "assigned lease " . $leaseActIP . " to " . $leaseActMAC) false;
 
-  $ScriptLock $ScriptName false 10;
+  :if ([ $ScriptLock $ScriptName 10 ] = false) do={
+    :return false;
+  }
 
   :if ([ :len [ /system/script/job/find where script=$ScriptName ] ] > 1) do={
     $LogPrintExit2 debug $ScriptName ("More invocations are waiting, exiting early.") false;
-- 
cgit v1.2.3-54-g00ecf