mirror.MikroTik/eworm.routeros-scripts
1
0
Fork 0
mirror of https://git.eworm.de/cgit/routeros-scripts synced 2025-06-21 01:15:42 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

collect-wireless-mac: add the dns name

Browse source
This commit is contained in:
Christian Hesse 2019-11-25 17:07:45 +01:00
parent 15a6fb325e
commit a8a0523d33
3 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
collect-wireless-mac.capsman
View file

@ -25,6 +25,7 @@ $ScriptLock "collect-wireless-mac.capsman";
:local AccessList ([ / caps-man access-list find where mac-address=$Mac ]->0);
:if ([ :len $AccessList ] = 0) do={
:local Address "no dhcp lease";
:local DnsName "no dhcp lease";
:local HostName "no dhcp lease";
:local Lease [ / ip dhcp-server lease find where mac-address=$Mac ];
:if ([ :len $Lease ] > 0) do={
@ -33,6 +34,10 @@ $ScriptLock "collect-wireless-mac.capsman";
:if ([ :len $HostName ] = 0) do={
:set HostName "no hostname";
}
:set DnsName [ / ip dns static get ([ find where address=$Address ]->0) name ];
:if ([ :len $DnsName ] = 0) do={
:set DnsName "no dns name";
}
}
:local RegEntry [ / caps-man registration-table find where mac-address=$Mac ];
:local Interface [ / caps-man registration-table get $RegEntry interface ];
@ -52,6 +57,7 @@ $ScriptLock "collect-wireless-mac.capsman";
"Vendor: " . $Vendor . "\n" . \
"Hostname: " . $HostName . "\n" . \
"Address: " . $Address . "\n" . \
"DNS name: " . $DnsName . "\n" . \
"Date: " . $DateTime);
} else={
:local Comment [ / caps-man access-list get $AccessList comment ];

6
collect-wireless-mac.local
View file

@ -25,6 +25,7 @@ $ScriptLock "collect-wireless-mac.local";
:local AccessList ([ / interface wireless access-list find where mac-address=$Mac ]->0);
:if ([ :len $AccessList ] = 0) do={
:local Address "no dhcp lease";
:local DnsName "no dhcp lease";
:local HostName "no dhcp lease";
:local Lease [ / ip dhcp-server lease find where mac-address=$Mac ];
:if ([ :len $Lease ] > 0) do={
@ -33,6 +34,10 @@ $ScriptLock "collect-wireless-mac.local";
:if ([ :len $HostName ] = 0) do={
:set HostName "no hostname";
}
:set DnsName [ / ip dns static get ([ find where address=$Address ]->0) name ];
:if ([ :len $DnsName ] = 0) do={
:set DnsName "no dns name";
}
}
:local RegEntry [ / interface wireless registration-table find where mac-address=$Mac ];
:local Interface [ / interface wireless registration-table get $RegEntry interface ];
@ -52,6 +57,7 @@ $ScriptLock "collect-wireless-mac.local";
"Vendor: " . $Vendor . "\n" . \
"Hostname: " . $HostName . "\n" . \
"Address: " . $Address . "\n" . \
"DNS name: " . $DnsName . "\n" . \
"Date: " . $DateTime);
} else={
:local Comment [ / interface wireless access-list get $AccessList comment ];

6
collect-wireless-mac.template
View file

@ -26,6 +26,7 @@ $ScriptLock "collect-wireless-mac%TEMPL%";
:local AccessList ([ / %PATH% access-list find where mac-address=$Mac ]->0);
:if ([ :len $AccessList ] = 0) do={
:local Address "no dhcp lease";
:local DnsName "no dhcp lease";
:local HostName "no dhcp lease";
:local Lease [ / ip dhcp-server lease find where mac-address=$Mac ];
:if ([ :len $Lease ] > 0) do={
@ -34,6 +35,10 @@ $ScriptLock "collect-wireless-mac%TEMPL%";
:if ([ :len $HostName ] = 0) do={
:set HostName "no hostname";
}
:set DnsName [ / ip dns static get ([ find where address=$Address ]->0) name ];
:if ([ :len $DnsName ] = 0) do={
:set DnsName "no dns name";
}
}
:local RegEntry [ / %PATH% registration-table find where mac-address=$Mac ];
:local Interface [ / %PATH% registration-table get $RegEntry interface ];
@ -54,6 +59,7 @@ $ScriptLock "collect-wireless-mac%TEMPL%";
"Vendor: " . $Vendor . "\n" . \
"Hostname: " . $HostName . "\n" . \
"Address: " . $Address . "\n" . \
"DNS name: " . $DnsName . "\n" . \
"Date: " . $DateTime);
} else={
:local Comment [ / %PATH% access-list get $AccessList comment ];