aboutsummaryrefslogtreecommitdiffstats
path: root/dhcp-lease-comment.capsman
diff options
context:
space:
mode:
Diffstat (limited to 'dhcp-lease-comment.capsman')
-rw-r--r--dhcp-lease-comment.capsman5
1 files changed, 3 insertions, 2 deletions
diff --git a/dhcp-lease-comment.capsman b/dhcp-lease-comment.capsman
index 3c0b9e9..96b1741 100644
--- a/dhcp-lease-comment.capsman
+++ b/dhcp-lease-comment.capsman
@@ -8,10 +8,11 @@
#
# !! Do not edit this file, it is generated from template!
+:local 0 "dhcp-lease-comment.capsman";
: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 ];
@@ -21,7 +22,7 @@
:set NewComment [ / caps-man 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;
}
}