Community discussions

 
dse
just joined
Topic Author
Posts: 1
Joined: Fri Mar 10, 2017 9:33 pm

Yet another DHCP to DNS script

Fri Mar 10, 2017 10:51 pm

This script intended to run as a DHCP server lease script and it manages (registers or removes) static DNS entries in accordance to DHCP lease allocation/expiration.

The script registers only fully qualified domain names (FQDN). Host part of the registering FQDN is the value of the "host-name" property of the lease or the "comment" property if the "host-name" is empty. Domain part is the value of the "domain" property of the corresponding DHCP server network. The script doesn't register DNS entries for invalid FQDNs with empty or undefined host or domain parts. Also the script doesn't register DNS entry when the entry with the same IP address or the FQDN already exists in the router's static DNS database.

Static DNS entries, managed by the script, have the tag #DHCP as a comment to distinguish them from the manually created ones.

The TTL of registering DNS entry is equal to the TTL of the corresponding DHCP lease.

On the DHCP lease expiration the script removes corresponding DNS entry with the same IP address, tagged as #DHCP in the comment.

The script logs various errors and informational messages with the tag DHCP2DNS. The logged messages are self-explanatory.

The script should be created as the standard system script. For the script to run for the given DHCP server, it's name should be assigned to the "lease-script" property of this server.

Source code follows.
:local DHCPtag
:set DHCPtag "#DHCP"

:if ( [ :len $leaseActIP ] <= 0 ) do={ :error "empty lease address" }

:if ( $leaseBound = 1 ) do=\
{
  :local ttl
  :local domain
  :local hostname
  :local fqdn
  :local leaseId
  :local comment

  /ip dhcp-server
  :set ttl [ get [ find name=$leaseServerName ] lease-time ]
  network 
  :set domain [ get [ find $leaseActIP in address ] domain ]
  
  .. lease
  :set leaseId [ find address=$leaseActIP ]

# Check for multiple active leases for the same IP address. It's weird and it shouldn't be, but just in case.

  :if ( [ :len $leaseId ] != 1) do=\
  {
   :log info "DHCP2DNS: not registering domain name for address $leaseActIP because of multiple active leases for $leaseActIP"
   :error "multiple active leases for $leaseActIP"
  }  

  :set hostname [ get $leaseId host-name ]
  :set comment [ get $leaseId comment ]
  /

  :if ( [ :len $hostname ] <= 0 ) do={ :set hostname $comment }

  :if ( [ :len $hostname ] <= 0 ) do=\
  {
    :log error "DHCP2DNS: not registering domain name for address $leaseActIP because of empty lease host-name or comment"
    :error "empty lease host-name or comment"
  }
  :if ( [ :len $domain ] <= 0 ) do=\
  {
    :log error "DHCP2DNS: not registering domain name for address $leaseActIP because of empty network domain name"
    :error "empty network domain name"
  }

  :set fqdn "$hostname.$domain"
  
  /ip dns static
  :if ( [ :len [ find name=$fqdn and address=$leaseActIP and disabled=no ] ] = 0 ) do=\
  {
    :log info "DHCP2DNS: registering static domain name $fqdn for address $leaseActIP with ttl $ttl"
    add address=$leaseActIP name=$fqdn ttl=$ttl comment=$DHCPtag disabled=no
  } else=\
  {
    :log error "DHCP2DNS: not registering domain name $fqdn for address $leaseActIP because of existing active static DNS entry with this name or address" 
  }
  /
} \
else=\
{
  /ip dns static
  :local dnsDhcpId 
  :set dnsDhcpId [ find address=$leaseActIP and comment=$DHCPtag ]

  :if ( [ :len $dnsDhcpId ] > 0 ) do=\
  {
    :log info "DHCP2DNS: removing static domain name(s) for address $leaseActIP"
    remove $dnsDhcpId
  }
  /
}
 
phin
just joined
Posts: 15
Joined: Mon Dec 04, 2017 11:25 pm

Re: Yet another DHCP to DNS script

Sun Feb 11, 2018 6:25 am

This is exactly what I was looking for. Thanks. Works as expected.
 
User avatar
emk2203
just joined
Posts: 10
Joined: Tue Feb 07, 2017 11:33 pm
Location: Germany

Re: Yet another DHCP to DNS script

Wed Aug 15, 2018 3:06 pm

Much better script than all the predecessors. This should be in the wiki.
RB 750G r3 + RB wAP G-5HacT2HnD
 
xrlls
just joined
Posts: 3
Joined: Sun Jan 13, 2019 4:43 pm

Re: Yet another DHCP to DNS script

Sun Jan 13, 2019 8:04 pm

Excellent! Just what I needed!
 
dca1
just joined
Posts: 2
Joined: Sat Aug 31, 2019 2:43 pm

Re: Yet another DHCP to DNS script

Sat Aug 31, 2019 3:01 pm

Can someone point me at what I'm doing wrong here? I've placed this script in the 'Lease Script' section of the DCHP Server setup window. I am watching my leases renew but I am now seeing anything being added to static DNS entries. I also tried adding it as a script and adding /system script run dhcptodns as the Lease Script. I just don't kinow how this is set up..
 
dca1
just joined
Posts: 2
Joined: Sat Aug 31, 2019 2:43 pm

Re: Yet another DHCP to DNS script

Sun Sep 01, 2019 1:46 pm

Answered my own question in the end. Script was erroring as I did not have local domain set. Set that and all good. Thanks a lot.

Who is online

Users browsing this forum: No registered users and 5 guests