From c1d406fd4a6f54319011b27099429065514e03eb Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 10 May 2022 15:00:41 +0200
Subject: hotspot-to-wpa-cleanup: RouterOS v7 path syntax

---
 hotspot-to-wpa-cleanup | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'hotspot-to-wpa-cleanup')

diff --git a/hotspot-to-wpa-cleanup b/hotspot-to-wpa-cleanup
index f54edc6..26610ae 100644
--- a/hotspot-to-wpa-cleanup
+++ b/hotspot-to-wpa-cleanup
@@ -17,35 +17,35 @@
 
 $ScriptLock $0 false 10;
 
-:foreach Client in=[ / caps-man registration-table find where comment~"^hotspot-to-wpa:" ] do={
-  :local ClientVal [ / caps-man registration-table get $Client ];
-  :local Lease [ / ip dhcp-server lease find where server~"wpa" dynamic \
+:foreach Client in=[ /caps-man/registration-table/find where comment~"^hotspot-to-wpa:" ] do={
+  :local ClientVal [ /caps-man/registration-table/get $Client ];
+  :local Lease [ /ip/dhcp-server/lease/find where server~"wpa" dynamic \
     mac-address=($ClientVal->"mac-address") ];
   :if ([ :len $Lease ] > 0) do={
     $LogPrintExit2 info $0 ("Client with mac address " . ($ClientVal->"mac-address") . \
       " connected to WPA, making lease static.") false;
-    / ip dhcp-server lease make-static $Lease;
-    / ip dhcp-server lease set comment=($ClientVal->"comment") $Lease;
+    /ip/dhcp-server/lease/make-static $Lease;
+    /ip/dhcp-server/lease/set comment=($ClientVal->"comment") $Lease;
   }
 }
 
-:foreach Client in=[ / caps-man access-list find where comment~"^hotspot-to-wpa:" and \
-    !(comment~[ / system clock get date ]) ] do={
-  :local ClientVal [ / caps-man access-list get $Client ];
-  :if ([ :len [ / ip dhcp-server lease find where server~"wpa" !dynamic \
+:foreach Client in=[ /caps-man/access-list/find where comment~"^hotspot-to-wpa:" and \
+    !(comment~[ /system/clock/get date ]) ] do={
+  :local ClientVal [ /caps-man/access-list/get $Client ];
+  :if ([ :len [ /ip/dhcp-server/lease/find where server~"wpa" !dynamic \
        mac-address=($ClientVal->"mac-address") ] ] = 0) do={
     $LogPrintExit2 info $0 ("Client with mac address " . ($ClientVal->"mac-address") . \
       " did not connect to WPA, removing from access list.") false;
-    / caps-man access-list remove $Client;
+    /caps-man/access-list/remove $Client;
   }
 }
 
-:foreach Lease in=[ / ip dhcp-server lease find where !dynamic status=waiting \
+:foreach Lease in=[ /ip/dhcp-server/lease/find where !dynamic status=waiting \
     last-seen>4w comment~"^hotspot-to-wpa:" ] do={
-  :local LeaseVal [ / ip dhcp-server lease get $Lease ];
+  :local LeaseVal [ /ip/dhcp-server/lease/get $Lease ];
   $LogPrintExit2 info $0 ("Client with mac address " . ($LeaseVal->"mac-address") . \
     " was not seen for long time, removing.") false;
-  / caps-man access-list remove [ find where comment~"^hotspot-to-wpa:" \
+  /caps-man/access-list/remove [ find where comment~"^hotspot-to-wpa:" \
      mac-address=($LeaseVal->"mac-address") ];
-  / ip dhcp-server lease remove $Lease;
+  /ip/dhcp-server/lease/remove $Lease;
 }
-- 
cgit v1.2.3-70-g09d2