40 lines
1.4 KiB
Plaintext
40 lines
1.4 KiB
Plaintext
|
# Remove static DNS entries that are no longer in the DHCP lease list
|
||
|
|
:foreach dnsRecord in=[/ip dns static find where comment~"#DHCP"] do={
|
||
|
|
|
||
|
|
:local dnsName [/ip dns static get $dnsRecord name]
|
||
|
|
:local dnsTTL [/ip dns static get $dnsRecord ttl]
|
||
|
|
:local dnsAddress [/ip dns static get $dnsRecord address]
|
||
|
|
|
||
|
|
:local found false
|
||
|
|
|
||
|
|
# Check if the DNS name exists in the DHCP lease list
|
||
|
|
:foreach lease in=[/ip dhcp-server lease find] do={
|
||
|
|
:local hostName [/ip dhcp-server lease get $lease host-name]
|
||
|
|
:local ipAddress [/ip dhcp-server lease get $lease address]
|
||
|
|
:local ttl [/ip dhcp-server lease get $lease expires-after]
|
||
|
|
|
||
|
|
# Find the corresponding network for the lease's IP address
|
||
|
|
:local networkId [/ip dhcp-server network find where $ipAddress in address]
|
||
|
|
:local domainName [/ip dhcp-server network get $networkId domain]
|
||
|
|
|
||
|
|
:local fqdn "$hostName.$domainName"
|
||
|
|
|
||
|
|
:if ($fqdn = $dnsName) do={
|
||
|
|
:set found true
|
||
|
|
|
||
|
|
# Update TTL if it's different
|
||
|
|
:if ($dnsTTL != $ttl) do={
|
||
|
|
:log info "Updating TTL for $dnsName from $dnsTTL to $ttl"
|
||
|
|
/ip dns static set $dnsRecord ttl=$ttl
|
||
|
|
}
|
||
|
|
|
||
|
|
:break
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# If not found, remove the DNS static entry
|
||
|
|
:if (!$found) do={
|
||
|
|
:log info "Removing static DNS entry: $dnsName"
|
||
|
|
/ip dns static remove $dnsRecord
|
||
|
|
}
|
||
|
|
}
|