mirror/eworm-de-routeros-scripts
1
0
Fork 0
mirror of https://github.com/eworm-de/routeros-scripts.git synced 2024-05-11 05:55:19 +00:00
Code Releases Activity

dhcp-to-dns: use $IfThenElse

Browse Source
This commit is contained in:
Christian Hesse
2020-07-16 21:27:44 +02:00
parent 6dfd8ed41a
commit e709af4c4d
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
dhcp-to-dns
View File

@ -12,15 +12,12 @@
:global PrefixInZone;
:global CharacterReplace;
:global IfThenElse;
:global LogPrintExit;
:local Zone $Domain;
:if ($HostNameInZone = true) do={
:set Zone ($Identity . "." . $Zone);
}
:if ($PrefixInZone = true) do={
:set Zone ("dhcp." . $Zone);
}
:local Zone \
([ $IfThenElse ($PrefixInZone = true) "dhcp." ] . \
[ $IfThenElse ($HostNameInZone = true) ($Identity . ".") ] . $Domain);
:local Ttl 5m;
:local CommentPrefix "managed by dhcp-to-dns for ";
@ -45,10 +42,9 @@
:foreach Lease in=[ / ip dhcp-server lease find where dynamic=yes status=bound ] do={
:local LeaseVal [ / ip dhcp-server lease get $Lease ];
:local Comment ($CommentPrefix . $LeaseVal->"mac-address");
:local HostName [ $CharacterReplace ($LeaseVal->"host-name") " " "" ];
:if ($HostName = "") do={
:set HostName [ $CharacterReplace ($LeaseVal->"mac-address") ":" "-" ];
}
:local HostName [ $IfThenElse ([ :len ($LeaseVal->"host-name") ] = 0) \
[ $CharacterReplace ($LeaseVal->"mac-address") ":" "-" ] \
[ $CharacterReplace ($LeaseVal->"host-name") " " "" ] ];
:local Fqdn ($HostName . "." . $Zone);
:local DnsRecord [ / ip dns static find where name=$Fqdn ];