diff options
| -rw-r--r-- | accesslist-duplicates.capsman | 9 | ||||
| -rw-r--r-- | accesslist-duplicates.local | 9 | ||||
| -rw-r--r-- | accesslist-duplicates.template | 9 |
3 files changed, 27 insertions, 0 deletions
diff --git a/accesslist-duplicates.capsman b/accesslist-duplicates.capsman index d7ff906..64bae58 100644 --- a/accesslist-duplicates.capsman +++ b/accesslist-duplicates.capsman @@ -9,6 +9,8 @@ :local seen [ :toarray "" ]; :local shown [ :toarray "" ]; +:global Read; + :foreach acclist in=[ / caps-man access-list find where mac-address!="00:00:00:00:00:00" ] do={ :local mac [ / caps-man access-list get $acclist mac-address ]; :foreach "seen-mac" in=$seen do={ @@ -20,6 +22,13 @@ :if ($skip = 0) do={ / caps-man access-list print where mac-address=$mac; :set $shown ( $shown , $mac ); + + :put "\nEnter to skip, numeric id to remove!"; + :local remove [ $Read ]; + :if ($remove != "") do={ + :put ("Removing numeric id " . $remove . "...\n"); + / caps-man access-list remove $remove; + } } } } diff --git a/accesslist-duplicates.local b/accesslist-duplicates.local index 2c15c80..bd37f30 100644 --- a/accesslist-duplicates.local +++ b/accesslist-duplicates.local @@ -9,6 +9,8 @@ :local seen [ :toarray "" ]; :local shown [ :toarray "" ]; +:global Read; + :foreach acclist in=[ / interface wireless access-list find where mac-address!="00:00:00:00:00:00" ] do={ :local mac [ / interface wireless access-list get $acclist mac-address ]; :foreach "seen-mac" in=$seen do={ @@ -20,6 +22,13 @@ :if ($skip = 0) do={ / interface wireless access-list print where mac-address=$mac; :set $shown ( $shown , $mac ); + + :put "\nEnter to skip, numeric id to remove!"; + :local remove [ $Read ]; + :if ($remove != "") do={ + :put ("Removing numeric id " . $remove . "...\n"); + / interface wireless access-list remove $remove; + } } } } diff --git a/accesslist-duplicates.template b/accesslist-duplicates.template index 54b4a21..82712a0 100644 --- a/accesslist-duplicates.template +++ b/accesslist-duplicates.template @@ -10,6 +10,8 @@ :local seen [ :toarray "" ]; :local shown [ :toarray "" ]; +:global Read; + :foreach acclist in=[ / %PATH% access-list find where mac-address!="00:00:00:00:00:00" ] do={ :local mac [ / %PATH% access-list get $acclist mac-address ]; :foreach "seen-mac" in=$seen do={ @@ -21,6 +23,13 @@ :if ($skip = 0) do={ / %PATH% access-list print where mac-address=$mac; :set $shown ( $shown , $mac ); + + :put "\nEnter to skip, numeric id to remove!"; + :local remove [ $Read ]; + :if ($remove != "") do={ + :put ("Removing numeric id " . $remove . "...\n"); + / %PATH% access-list remove $remove; + } } } } |