mirror of
https://github.com/eworm-de/routeros-scripts.git
synced 2025-08-03 17:54:36 +02:00
3474b9a15c
Now that we can have differnt name suffixes via networks it makes sense to allow multiple records for one mac address. Also update the wording for messages...
114 lines
6.1 KiB
Text
114 lines
6.1 KiB
Text
#!rsc by RouterOS
|
|
# RouterOS script: dhcp-to-dns
|
|
# Copyright (c) 2013-2023 Christian Hesse <mail@eworm.de>
|
|
# https://git.eworm.de/cgit/routeros-scripts/about/COPYING.md
|
|
#
|
|
# provides: lease-script, order=20
|
|
#
|
|
# check DHCP leases and add/remove/update DNS entries
|
|
# https://git.eworm.de/cgit/routeros-scripts/about/doc/dhcp-to-dns.md
|
|
|
|
:local 0 "dhcp-to-dns";
|
|
:global GlobalFunctionsReady;
|
|
:while ($GlobalFunctionsReady != true) do={ :delay 500ms; }
|
|
|
|
:global Domain;
|
|
:global Identity;
|
|
|
|
:global CharacterReplace;
|
|
:global EitherOr;
|
|
:global IfThenElse;
|
|
:global LogPrintExit2;
|
|
:global ParseKeyValueStore;
|
|
:global ScriptLock;
|
|
|
|
$ScriptLock $0 false 10;
|
|
|
|
:local Ttl 5m;
|
|
:local CommentPrefix ("managed by " . $0);
|
|
:local CommentString ("--- " . $0 . " above ---");
|
|
|
|
:if ([ :len [ /ip/dns/static/find where (name=$CommentString or (comment=$CommentString and name=-)) type=NXDOMAIN disabled ] ] = 0) do={
|
|
/ip/dns/static/add name=$CommentString type=NXDOMAIN disabled=yes;
|
|
$LogPrintExit2 warning $0 ("Added disabled static dns record with name '" . $CommentString . "'.") false;
|
|
}
|
|
:local PlaceBefore ([ /ip/dns/static/find where (name=$CommentString or (comment=$CommentString and name=-)) type=NXDOMAIN disabled ]->0);
|
|
|
|
:foreach DnsRecord in=[ /ip/dns/static/find where comment~("^" . $CommentPrefix . "\\b") (!type or type=A) ] do={
|
|
:local DnsRecordVal [ /ip/dns/static/get $DnsRecord ];
|
|
:local DnsRecordInfo [ $ParseKeyValueStore ($DnsRecordVal->"comment") ];
|
|
:if ([ :len [ /ip/dhcp-server/lease/find where active-mac-address=($DnsRecordInfo->"macaddress") \
|
|
active-address=($DnsRecordVal->"address") server=($DnsRecordInfo->"server") status=bound ] ] > 0) do={
|
|
$LogPrintExit2 debug $0 ("Lease for " . $DnsRecordInfo->"macaddress" . " (" . $DnsRecordVal->"name" . ") still exists. Not deleting record.") false;
|
|
} else={
|
|
:local Found false;
|
|
$LogPrintExit2 info $0 ("Lease expired for " . $DnsRecordInfo->"macaddress" . " in " . \
|
|
$DnsRecordInfo->"server" . ", deleting record (" . $DnsRecordVal->"name" . ").") false;
|
|
/ip/dns/static/remove $DnsRecord;
|
|
/ip/dns/static/remove [ find where type=CNAME comment=($DnsRecordVal->"comment") ];
|
|
}
|
|
}
|
|
|
|
:foreach Lease in=[ /ip/dhcp-server/lease/find where status=bound ] do={
|
|
:local LeaseVal;
|
|
:do {
|
|
:set LeaseVal [ /ip/dhcp-server/lease/get $Lease ];
|
|
} on-error={
|
|
$LogPrintExit2 debug $0 ("A lease just vanished, ignoring.") false;
|
|
}
|
|
|
|
:if ([ :len ($LeaseVal->"active-address") ] > 0) do={
|
|
:local Comment ($CommentPrefix . ", macaddress=" . $LeaseVal->"active-mac-address" . ", server=" . $LeaseVal->"server");
|
|
:local MacDash [ $CharacterReplace ($LeaseVal->"active-mac-address") ":" "-" ];
|
|
:local HostName [ $CharacterReplace [ $EitherOr ([ $ParseKeyValueStore ($LeaseVal->"comment") ]->"hostname") ($LeaseVal->"host-name") ] " " "" ];
|
|
:local Network [ /ip/dhcp-server/network/find where ($LeaseVal->"active-address") in address ];
|
|
:local NetworkVal;
|
|
:if ([ :len $Network ] > 0) do={
|
|
:set NetworkVal [ /ip/dhcp-server/network/get ($Network->0) ];
|
|
}
|
|
:local NetworkInfo [ $ParseKeyValueStore ($NetworkVal->"comment") ];
|
|
:local NetDomain ([ $IfThenElse ([ :len ($NetworkInfo->"name-extra") ] > 0) ($NetworkInfo->"name-extra" . ".") ] . \
|
|
[ $EitherOr [ $EitherOr ($NetworkInfo->"domain") ($NetworkVal->"domain") ] $Domain ]);
|
|
|
|
:local DnsRecord [ /ip/dns/static/find where comment=$Comment (!type or type=A) ];
|
|
:if ([ :len $DnsRecord ] > 0) do={
|
|
:local DnsRecordVal [ /ip/dns/static/get $DnsRecord ];
|
|
|
|
:if ($DnsRecordVal->"address" = $LeaseVal->"active-address" && $DnsRecordVal->"name" = ($MacDash . "." . $NetDomain)) do={
|
|
$LogPrintExit2 debug $0 ("The A record for " . $LeaseVal->"active-mac-address" . " in " . \
|
|
$LeaseVal->"server" . " does not need updating.") false;
|
|
} else={
|
|
$LogPrintExit2 info $0 ("Updating A record for " . $LeaseVal->"active-mac-address" . " in " . \
|
|
$LeaseVal->"server" . " (" . ($MacDash . "." . $NetDomain) . " -> " . $LeaseVal->"active-address" . ").") false;
|
|
/ip/dns/static/set address=($LeaseVal->"active-address") name=($MacDash . "." . $NetDomain) $DnsRecord;
|
|
}
|
|
|
|
:local CName [ /ip/dns/static/find where comment=$Comment type=CNAME ];
|
|
:if ([ :len $CName ] > 0) do={
|
|
:local CNameVal [ /ip/dns/static/get $CName ];
|
|
:if ($CNameVal->"name" != ($HostName . "." . $NetDomain) || $CNameVal->"cname" != ($MacDash . "." . $NetDomain)) do={
|
|
$LogPrintExit2 info $0 ("Deleting CNAME record with wrong data for " . $LeaseVal->"active-mac-address" . " in " . \
|
|
$LeaseVal->"server" . ".") false;
|
|
/ip/dns/static/remove $CName;
|
|
}
|
|
}
|
|
:if ([ :len $HostName ] > 0 && [ :len [ /ip/dns/static/find where name=($HostName . "." . $NetDomain) type=CNAME ] ] = 0) do={
|
|
$LogPrintExit2 info $0 ("Adding CNAME record for " . $LeaseVal->"active-mac-address" . " in " . \
|
|
$LeaseVal->"server" . " (" . ($HostName . "." . $NetDomain) . " -> " . ($MacDash . "." . $NetDomain) . ").") false;
|
|
/ip/dns/static/add name=($HostName . "." . $NetDomain) type=CNAME cname=($MacDash . "." . $NetDomain) ttl=$Ttl comment=$Comment place-before=$PlaceBefore;
|
|
}
|
|
|
|
} else={
|
|
$LogPrintExit2 info $0 ("Adding A record for " . $LeaseVal->"active-mac-address" . " in " . \
|
|
$LeaseVal->"server" . " (" . ($MacDash . "." . $NetDomain) . " -> " . $LeaseVal->"active-address" . ").") false;
|
|
/ip/dns/static/add name=($MacDash . "." . $NetDomain) type=A address=($LeaseVal->"active-address") ttl=$Ttl comment=$Comment place-before=$PlaceBefore;
|
|
:if ([ :len $HostName ] > 0 && [ :len [ /ip/dns/static/find where name=($HostName . "." . $NetDomain) type=CNAME ] ] = 0) do={
|
|
$LogPrintExit2 info $0 ("Adding CNAME record for " . $LeaseVal->"active-mac-address" . " in " . \
|
|
$LeaseVal->"server" . " (" . ($HostName . "." . $NetDomain) . " -> " . ($MacDash . "." . $NetDomain) . ").") false;
|
|
/ip/dns/static/add name=($HostName . "." . $NetDomain) type=CNAME cname=($MacDash . "." . $NetDomain) ttl=$Ttl comment=$Comment place-before=$PlaceBefore;
|
|
}
|
|
}
|
|
} else={
|
|
$LogPrintExit2 debug $0 ("No address available... Ignoring.") false;
|
|
}
|
|
}
|