diff options
Diffstat (limited to 'accesslist-duplicates.template')
| -rw-r--r-- | accesslist-duplicates.template | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/accesslist-duplicates.template b/accesslist-duplicates.template index 3b6a22a..18225a6 100644 --- a/accesslist-duplicates.template +++ b/accesslist-duplicates.template @@ -7,31 +7,31 @@ # !! This is just a template! Replace '%PATH%' with 'caps-man' # !! or 'interface wireless'! -: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={ - :if ($"seen-mac" = $mac) do={ - :local skip 0; - :foreach "shown-mac" in=$shown do={ - :if ($"shown-mac" = $mac) do={ :set skip 1; } +:local Seen [ :toarray "" ]; +:local Shown [ :toarray "" ]; + +: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 SeenMac in=$Seen do={ + :if ($SeenMac = $Mac) do={ + :local Skip 0; + :foreach ShownMac in=$Shown do={ + :if ($ShownMac = $Mac) do={ :set Skip 1; } } - :if ($skip = 0) do={ - / %PATH% access-list print where mac-address=$mac; - :set shown ( $shown , $mac ); + :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; + :local Remove [ $Read ]; + :if ($Remove != "") do={ + :put ("Removing numeric id " . $Remove . "...\n"); + / %PATH% access-list remove $Remove; } } } } - :set seen ( $seen , $mac ); + :set Seen ($Seen, $Mac); } |