ipv4market_endpoint_updater

:local HEtunnelinterface "6to4-tunnel1"
:local HEmd5pass ""
:local HEupdatehost "tb.ip4market.ru"
:local HEupdatepath "/\?page=update"
:local WANinterface "pppoe-out1"
:local outputfile ("ipv4m-updater-.txt")

# Internal processing below...
# ----------------------------------
:local HEipv4addr

# Get WAN interface IP address
:set HEipv4addr [/ip address get [/ip address find interface=$WANinterface] address]
:set HEipv4addr [:pick [:tostr $HEipv4addr] 0 [:find [:tostr $HEipv4addr] "/"]]

:if ([:len $HEipv4addr] = 0) do={
   :log error ("Could not get IP for interface " . $WANinterface)
   :error ("Could not get IP for interface " . $WANinterface)
}

# Update the HEtunnelinterface with WAN IP
/interface 6to4 {
   :if ([get ($HEtunnelinterface) local-address] != $HEipv4addr) do={
      :log info ("Updating " . $HEtunnelinterface . " local-address with new IP " . $HEipv4addr . "...")
      set ($HEtunnelinterface) local-address=$HEipv4addr
   }
}

:log info ("Updating IPv6 Tunnel Client IPv4 address to new IP " . $HEipv4addr . "...")
/tool fetch   url=("http://" . $HEupdatehost . $HEupdatepath . "&apikey=" . $HEmd5pass . "&ip=" . $HEipv4addr) dst-path=($outputfile)

:log info ([/file get ($outputfile) contents])
/file remove ($outputfile)