diff options
| author |  Christian Hesse <mail@eworm.de> | 2021-02-22 15:14:10 +0100 |
|---|---|---|
| committer | Christian Hesse <mail@eworm.de> | 2021-02-24 21:51:54 +0100 |
| commit | f46db918453dcb8878b9a0de6e122fb0ea2224d9 (patch) | |
| tree | 31544a450651d0705ecdea0c3d35e650ef784d67 /collect-wireless-mac.local | |
| parent | b0e52aa2d1baa78fc9d025c0671fea8babba0ec2 (diff) | |
global: give script or function name in log messages
Diffstat (limited to 'collect-wireless-mac.local')
| -rw-r--r-- | collect-wireless-mac.local | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/collect-wireless-mac.local b/collect-wireless-mac.local index 15c0c9a..20a5f83 100644 --- a/collect-wireless-mac.local +++ b/collect-wireless-mac.local @@ -8,13 +8,14 @@ # # !! Do not edit this file, it is generated from template! +:local 0 "collect-wireless-mac.local"; :global GlobalFunctionsReady; :while ($GlobalFunctionsReady != true) do={ :delay 500ms; } :global Identity; :global GetMacVendor; -:global LogPrintExit; +:global LogPrintExit2; :global ScriptLock; :global SendNotification; :global SymbolForNotification; @@ -23,7 +24,7 @@ $ScriptLock "collect-wireless-mac.local"; :if ([ :len [ / interface wireless access-list find where comment="--- collected above ---" disabled ] ] = 0) do={ / interface wireless access-list add comment="--- collected above ---" disabled=yes; - $LogPrintExit warning "Added disabled access-list entry with comment '--- collected above ---'." false; + $LogPrintExit2 warning $0 ("Added disabled access-list entry with comment '--- collected above ---'.") false; } :local PlaceBefore ([ / interface wireless access-list find where comment="--- collected above ---" disabled ]->0); @@ -53,7 +54,7 @@ $ScriptLock "collect-wireless-mac.local"; :local Vendor [ $GetMacVendor $Mac ]; :local Message ("unknown MAC address " . $Mac . " (" . $Vendor . ", " . $HostName . ") " . \ "first seen on " . $DateTime . " connected to SSID " . $Ssid . ", interface " . $Interface); - $LogPrintExit info $Message false; + $LogPrintExit2 info $0 $Message false; / interface wireless access-list add place-before=$PlaceBefore comment=$Message mac-address=$Mac disabled=yes; $SendNotification ([ $SymbolForNotification "mobile-phone" ] . $Mac . " connected to " . $Ssid) \ ("A device with unknown MAC address connected to " . $Ssid . " on " . $Identity . ".\n\n" . \ @@ -67,7 +68,7 @@ $ScriptLock "collect-wireless-mac.local"; "DNS name: " . $DnsName . "\n" . \ "Date: " . $DateTime); } else={ - $LogPrintExit debug ("MAC address " . $Mac . " already known: " . \ + $LogPrintExit2 debug $0 ("MAC address " . $Mac . " already known: " . \ [ / interface wireless access-list get $AccessList comment ]) false; } } |