First Commit
This commit is contained in:
commit
a0a93dd98a
2 changed files with 48 additions and 0 deletions
0
README.md
Normal file
0
README.md
Normal file
48
src/dns-update.rsc
Normal file
48
src/dns-update.rsc
Normal file
|
@ -0,0 +1,48 @@
|
||||||
|
{
|
||||||
|
# Automatic Dynamic DNS update
|
||||||
|
|
||||||
|
#--------------- Change Values in this section to match your setup ------------------
|
||||||
|
|
||||||
|
# Set the hostname/domainname or label of network to be updated.
|
||||||
|
:local hostname "host01"
|
||||||
|
:local domainname "dyn.domain.ch"
|
||||||
|
:local fqdnhost ""
|
||||||
|
:set fqdnhost "$hostname.$domainname"
|
||||||
|
|
||||||
|
# Change to the name of interface that gets the dynamic IP address
|
||||||
|
:local inetinterface "WAN"
|
||||||
|
|
||||||
|
#------------------------------------------------------------------------------------
|
||||||
|
# No more changes need
|
||||||
|
|
||||||
|
:global previousIP
|
||||||
|
|
||||||
|
:if ([/interface get $inetinterface value-name=running]) do={
|
||||||
|
# Get the current IP on the interface
|
||||||
|
:local currentIP [/ip address get [find interface="$inetinterface" disabled=no] address]
|
||||||
|
|
||||||
|
# Strip the net mask off the IP address
|
||||||
|
:for i from=( [:len $currentIP] - 1) to=0 do={
|
||||||
|
:if ( [:pick $currentIP $i] = "/") do={
|
||||||
|
:set currentIP [:pick $currentIP 0 $i]
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
:if ($currentIP != $previousIP) do={
|
||||||
|
:log info "DynDNS: Current IP $currentIP is not equal to previous IP, update needed"
|
||||||
|
:set previousIP $currentIP
|
||||||
|
|
||||||
|
:local fqdnhostarray
|
||||||
|
:set fqdnhostarray [:toarray $fqdnhost]
|
||||||
|
:foreach host in=$fqdnhostarray do={
|
||||||
|
:log info "DynDNS: Sending update for $host"
|
||||||
|
/tool dns-update dns-server=1.2.3.4 name=$hostname zone=$domainname address=$currentIP key-name=dyndns key="987Hkjh789hjlukhzz==";
|
||||||
|
:log info "DynDNS: Host $host updated on $domainname with IP $currentIP"
|
||||||
|
}
|
||||||
|
} else={
|
||||||
|
:log info "DynDNS: Previous IP $previousIP is equal to current IP, no update needed"
|
||||||
|
}
|
||||||
|
} else={
|
||||||
|
:log info "DynDNS: $inetinterface is not currently running, so therefore will not update."
|
||||||
|
}
|
||||||
|
}
|
Loading…
Add table
Add a link
Reference in a new issue