:global ddnsserv "dynamicdns.park-your-domain.com"
:global ddnshostname "cctv1"
:global ddnsdomain "soonwai.com"
:global ddnspass "44274h3e71dbe7cd18e1d8ab5877267d5ac3"

:global ddnsip
:global ddnslastip
:global strdate [/system clock get date]
:global strtime [/system clock get time]
:global strsystemname [/system identity get name]
:global strsystemuptime [/system resource get uptime]
:global strsystemfreemem [/system resource get free-memory]
:global strsystemcpuload [/system resource get cpu-load]
:global ddnssystem ("Version-" . [/system package get system version] )

:global ddnsip [ /ip address get [/ip address find interface=pppoe-out1 ] address ]

# Strip the net mask off the IP address
:for i from=( [:len $ddnsip] - 1) to=0 do={
   :if ( [:pick $ddnsip $i] = "/") do={
       :set ddnsip [:pick $ddnsip 0 $i]
      }
  }

:if ([ :typeof $ddnslastip ] = nil ) do={ :global ddnslastip "0" }
:if ([ :typeof $ddnsip ] = nil ) do={
  :log info ("DDNS: No ip address present on pppoe interface, dammit TM.")
} else={
 :if ($ddnsip != $ddnslastip) do={
   :log info ("DDNS: Updating $ddnsip $ddnslastip")
   :local str "/update?host=$ddnshostname&domain=$ddnsdomain&password=$ddnspass&ip=$ddnsip"
   /tool fetch address=$ddnsserv src-path=$str mode=http dst-path=("/disk1/DynDNS.".$ddnshostname)
   :log info "DDNS: Sending Email"
   /tool e-mail send to=soonwai@lowyat.net subject="UniFi IP $strdate $strtime $strsystemname" body="$strsystemname $strdate $strtime \r$ddnshostname.$ddnsdomain \r$ddnssystem\rUniFi IP: $ddnsip \rPrevious IP: $ddnslastip \rUptime: $strsystemuptime \rFree memory: $strsystemfreemem kb \rCPU Load: $strsystemcpuload % " start-tls=yes server=[:resolve smtp.gmail.com]
   :global ddnslastip "$ddnsip"
 } else={
#    :log info "DDNS: No update required."
   }
}