From bb7c4ef0d9ab5e99d29b3f68a2d0ca44cf25fffa Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 6 Jan 2020 09:42:00 +0100
Subject: dhcp-lease-comment: act on bound leases only

---
 dhcp-lease-comment.capsman  | 2 +-
 dhcp-lease-comment.local    | 2 +-
 dhcp-lease-comment.template | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/dhcp-lease-comment.capsman b/dhcp-lease-comment.capsman
index a25027e..e5da51f 100644
--- a/dhcp-lease-comment.capsman
+++ b/dhcp-lease-comment.capsman
@@ -6,7 +6,7 @@
 #
 # !! Do not edit this file, it is generated from template!
 
-:foreach Lease in=[ / ip dhcp-server lease find where dynamic=yes ] do={
+:foreach Lease in=[ / ip dhcp-server lease find where dynamic=yes status=bound ] do={
   :local LeaseVal [ / ip dhcp-server lease get $Lease ];
   :local NewComment;
   :local AccessList ([ / caps-man access-list find where mac-address=($LeaseVal->"mac-address") ]->0);
diff --git a/dhcp-lease-comment.local b/dhcp-lease-comment.local
index 0c960e5..367ca0b 100644
--- a/dhcp-lease-comment.local
+++ b/dhcp-lease-comment.local
@@ -6,7 +6,7 @@
 #
 # !! Do not edit this file, it is generated from template!
 
-:foreach Lease in=[ / ip dhcp-server lease find where dynamic=yes ] do={
+:foreach Lease in=[ / ip dhcp-server lease find where dynamic=yes status=bound ] do={
   :local LeaseVal [ / ip dhcp-server lease get $Lease ];
   :local NewComment;
   :local AccessList ([ / interface wireless access-list find where mac-address=($LeaseVal->"mac-address") ]->0);
diff --git a/dhcp-lease-comment.template b/dhcp-lease-comment.template
index 75a09ec..3734ba4 100644
--- a/dhcp-lease-comment.template
+++ b/dhcp-lease-comment.template
@@ -7,7 +7,7 @@
 # !! This is just a template! Replace '%PATH%' with 'caps-man'
 # !! or 'interface wireless'!
 
-:foreach Lease in=[ / ip dhcp-server lease find where dynamic=yes ] do={
+:foreach Lease in=[ / ip dhcp-server lease find where dynamic=yes status=bound ] do={
   :local LeaseVal [ / ip dhcp-server lease get $Lease ];
   :local NewComment;
   :local AccessList ([ / %PATH% access-list find where mac-address=($LeaseVal->"mac-address") ]->0);
-- 
cgit v1.2.3-54-g00ecf