From f46db918453dcb8878b9a0de6e122fb0ea2224d9 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 22 Feb 2021 15:14:10 +0100
Subject: global: give script or function name in log messages

---
 dhcp-lease-comment.template | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'dhcp-lease-comment.template')

diff --git a/dhcp-lease-comment.template b/dhcp-lease-comment.template
index e3ca6d0..0e31007 100644
--- a/dhcp-lease-comment.template
+++ b/dhcp-lease-comment.template
@@ -9,10 +9,11 @@
 # !! This is just a template! Replace '%PATH%' with 'caps-man'
 # !! or 'interface wireless'!
 
+:local 0 "dhcp-lease-comment%TEMPL%";
 :global GlobalFunctionsReady;
 :while ($GlobalFunctionsReady != true) do={ :delay 500ms; }
 
-:global LogPrintExit;
+:global LogPrintExit2;
 
 :foreach Lease in=[ / ip dhcp-server lease find where dynamic=yes status=bound ] do={
   :local LeaseVal [ / ip dhcp-server lease get $Lease ];
@@ -22,7 +23,7 @@
     :set NewComment [ / %PATH% access-list get $AccessList comment ];
   }
   :if ([ :len $NewComment ] != 0 && $LeaseVal->"comment" != $NewComment) do={
-    $LogPrintExit info ("Updating comment for DHCP lease " . $LeaseVal->"mac-address" . ": " . $NewComment) false;
+    $LogPrintExit2 info $0 ("Updating comment for DHCP lease " . $LeaseVal->"mac-address" . ": " . $NewComment) false;
     / ip dhcp-server lease set comment=$NewComment $Lease;
   }
 }
-- 
cgit v1.2.3-54-g00ecf