mirror.MikroTik/eworm-de.routeros-scripts
1
0
Fork 0
mirror of https://github.com/eworm-de/routeros-scripts.git synced 2025-08-03 01:35:03 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

dhcp-to-dns: use $CharacterReplace

Browse source
This commit is contained in:
Christian Hesse 2019-02-08 12:59:22 +01:00
parent fc2547c137
commit 0a34f4c2c2
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
dhcp-to-dns
View file

@ -4,6 +4,8 @@
#
# check DHCP leases and add/remove/update DNS entries
:global CharacterReplace;
:global Identity;
:global Domain;
:global HostNameInZone;
@ -39,12 +41,7 @@
:local Mac [ / ip dhcp-server lease get $Lease mac-address ];
:set DhcpIp [ / ip dhcp-server lease get $Lease address ];
:local Comment ("managed by dhcp-to-dns for " . $Mac);
:set HostName [ / ip dhcp-server lease get $Lease host-name ];
:while ($HostName ~ " ") do={
:local Pos [ :find $HostName " " ];
:set HostName ([ :pick $HostName 0 $Pos ] . [ :pick $HostName ($Pos + 1) 999 ]);
};
:set HostName [ $CharacterReplace [ / ip dhcp-server lease get $Lease host-name ] " " "" ];
:if ([ :len $HostName ] > 0) do={
:set Fqdn ($HostName . "." . $Zone);