forum.pwmn.net

Code: Select all

:local hostname neoplan.pwmn.net
:global interfacename OTE

:global previousIP 

# get the current IP address from the interface
:global currentipadd [/ip address get [/ip address find interface=$interfacename] address]
:global currentIP [:pick $currentipadd 0 [:find $currentipadd "/"]]; 

#:log info "CurrentIP: = $currentIP"

:if ($currentIP != $previousIP) do={
    :set previousIP $currentIP
   /tool fetch \
                mode=http \
                address="freedns.afraid.org" \
                host="freedns.afraid.org" \
                src-path="dynamic/update.php\?key_here" \
                keep-result=no
   :log info ("AfraidDNS: Updated")
} else={
   #:log info ("AfraidDNS: No update needed")
}

Code: Select all

# Set needed variables
:local hostname neokal.pwmn.net

:global previousIP 
:global currentIP

# get the current IP address from the internet (in case of double-nat)
/tool fetch mode=http address="checkip.dyndns.org" src-path="/" dst-path="/dyndns.checkip.html"
:local result [/file get dyndns.checkip.html contents]

# parse the current IP result
:local resultLen [:len $result]
:local startLoc [:find $result ": " -1]
:set startLoc ($startLoc + 2)
:local endLoc [:find $result "</body>" -1]
:set currentIP [:pick $result $startLoc $endLoc]
:log info "UpdateDynDNS: currentIP = $currentIP"

:if ($currentIP != $previousIP) do={
    :set previousIP $currentIP
   /tool fetch \
                mode=http \
                address="freedns.afraid.org" \
                host="freedns.afraid.org" \
                src-path="dynamic/update.php\?key_here" \
                keep-result=no
   :log info ("AfraidDNS: Updated")
} else={
   :log info ("AfraidDNS: No update needed")
}