From c66bb89be2b6e76a0926b19f9726c91067e5bbf3 Mon Sep 17 00:00:00 2001 From: Christian Hesse Date: Tue, 10 Jul 2018 14:01:41 +0200 Subject: update template system --- collect-wireless-mac.in | 63 ------------------------------------------------- 1 file changed, 63 deletions(-) delete mode 100644 collect-wireless-mac.in (limited to 'collect-wireless-mac.in') diff --git a/collect-wireless-mac.in b/collect-wireless-mac.in deleted file mode 100644 index 79cbeff..0000000 --- a/collect-wireless-mac.in +++ /dev/null @@ -1,63 +0,0 @@ -# RouterOS script: collect-wireless-mac -# Copyright (c) 2013-2018 Christian Hesse -# -# collect wireless mac adresses in access list -# -# !! This is just a template! Replace '%PATH%' with 'capsman' -# !! or 'interface wireless'! - -:global "identity"; -:global "email-general-to"; -:global "email-general-cc"; - -:local "place-before" [ / %PATH% access-list find where comment="--- collected above ---" disabled ]; -:if ([ :len $"place-before" ] = 0) do={ - :error "Missing disabled access-list entry with comment '--- collected above ---'"; -} - -:foreach regtbl in=[ / %PATH% registration-table find ] do={ - :local mac [ / %PATH% registration-table get $regtbl mac-address ]; - :local acclst [ :pick [ / %PATH% access-list find where mac-address=$mac ] 0 ]; - :if ( [ :len $acclst ] = 0 ) do={ - :local hostname "no dhcp lease"; - :local address "no dhcp lease"; - :local lease [ / ip dhcp-server lease find where mac-address=$mac ]; - :if ( [ :len $lease ] > 0 ) do={ - :set hostname [ / ip dhcp-server lease get $lease host-name ]; - :set address [ / ip dhcp-server lease get $lease address ]; - } - :if ( [ :len $hostname ] = 0 ) do={ - :set hostname "no hostname"; - } - :if ( [ :len $address ] = 0 ) do={ - :set address "no address"; - } - :local regentry [ / %PATH% registration-table find where mac-address=$mac ]; - :local interface [ / %PATH% registration-table get $regentry interface ]; - :local ssid; - :if ("%PATH%" = ("caps" . "-man")) do={ - :set ssid [ / %PATH% registration-table get $regentry ssid ]; - } else={ - # keep two spaces here to protect against replace! - :set ssid [ / interface wireless get [ find where name=$interface ] ssid ]; - } - :local datetime ([ / system clock get date ] . " " . [ / system clock get time ]); - :local message ("unknown MAC address " . $mac . " (" . $hostname . ") first seen on " . \ - $datetime . " connected to SSID " . $ssid . ", interface " . $interface); - / log info $message; - / %PATH% access-list add place-before=$"place-before" comment=$message mac-address=$mac disabled=yes; - / tool e-mail send to=$"email-general-to" cc=$"email-general-cc" \ - subject=("[" . $identity . "] " . $mac . " connected to " . $ssid) \ - body=("A device with unknown MAC address connected to " . $ssid . " on " . $identity . ".\n\n" . \ - "Controller: " . $identity . "\n" . \ - "Interface: " . $interface . "\n" . \ - "SSID: " . $ssid . "\n" . \ - "MAC: " . $mac . "\n" . \ - "Hostname: " . $hostname . "\n" . \ - "Address: " . $address . "\n" . \ - "Date: " . $datetime); - } else={ - :local comment [ / %PATH% access-list get $acclst comment ]; - :log debug ("MAC address " . $mac . " already known: " . $comment); - } -} -- cgit v1.2.3-54-g00ecf