/ip cloud print

# dig @ns1.kissthenet.net <redacted serial>.sn.mynetname.net in cname
; <<>> DiG 9.18.28-0ubuntu0.24.04.1-Ubuntu <<>> <redacted serial>.sn.mynetname.net in cname
;; global options: +cmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: SERVFAIL, id: 53986
;; flags: qr rd ra; QUERY: 1, ANSWER: 0, AUTHORITY: 0, ADDITIONAL: 0

...

# No-IP DDNS Updater
# http://www.noip.com/integrate/

:global publicIP;
:global abortUpdate;

:if ([:typeof $abortUpdate] != "bool") do={
	:set $abortUpdate false;
}

:if ($abortUpdate) do={
	:error "DDNS: Update aborted. Intervention required.";
}

:local currentIP;
:local targetInterface "ether1";

:local ddnsUser "yourusername";
:local ddnsPass "yourpassword";
:local ddnsHost "youraddress";
:local ddnsURL "http://dynupdate.no-ip.com/nic/update?hostname=$ddnsHost&myip=$currentIP";

:if ($targetInterface = "ether1") do={
	:local response [/tool fetch url="http://ip1.dynupdate.no-ip.com/" as-value output=user];
	:if ($response->"status" = "finished") do={
		:set currentIP ($response->"data");
	} else={
		:set currentIP "";
	}
} else={
	:set currentIP [/ip address get [/ip address find interface=$targetInterface] address];
	:if ([:typeof $currentIP] = nil) do={
		:error "DDNS: No IP obtained.";
	} else={
		:set $currentIP [:pick [:tostr $currentIP] 0 [:find [:tostr $currentIP] "/"]];
	}
}

:if ($currentIP != $publicIP) do={
	:local response [/tool fetch url=$ddnsURL user=$ddnsUser password=$ddnsPass as-value output=user];
	:if ($response->"status" = "finished") do={
		:local data ($response->"data");
		:set $abortUpdate (!([:pick $data 0 4] = "good" || [:pick $data 0 5] = "nochg"));
		:set $publicIP $currentIP;

		:log info "DDNS: Update succeeded."
	} else={
		:log error "DDNS: Update failed.";
	}
} else {
	:log info "DDNS: No IP change.";
}

# get the public ip address
:global debugA [/tool/fetch url=https://api.ipify.org output=user as-value];
:global debugA1 ($debugA->"data");

# set the public ip address
:local $zone_id xxxxxxxxxxxxxxxxxxx
:local $redord_id xxxxxxxxxxxxxxxxxxx
:local $auth_api_token xxxxxxxxxxxxxxxxxxx
:global debugB [/tool fetch url="https://api.cloudflare.com/client/v4/zones/$zone_id/dns_records/$redord_id" http-method=patch http-header-field="Content-Type: application/json,Authorization: Bearer $auth_api_token" http-data="{\"content\":\"$debugA1\"}" output=user as-value];
:global debugB1 ($debugB->"status")
:global debugB2 ($debugB->"data")

C:\Users\xxx>nslookup
Default Server:  home.com
Address:  192.168.10.1

> server 8.8.8.8
Default Server:  dns.google
Address:  8.8.8.8

> 6f3--------60.sn.mynetname.net
Server:  dns.google
Address:  8.8.8.8

DNS request timed out.
    timeout was 2 seconds.
DNS request timed out.
    timeout was 2 seconds.
*** Request to dns.google timed-out

 :local wanInterface "ether1"
 	#DNS Zone ID 
       :local zoneID “12345" 
       #DNS record ID
       :local recordID "12345"
       #your API token
       :local apiToken "12345"

# determine if we use the dhcp script or the current address
 :if ([:typeof $"lease-address"] = "nothing") \
	do={:local myIP [:pick [/ip address get [find where interface=$wanInterface] address] 0 [:find [/ip address get [find where interface=$wanInterface] address] "/"]]; \
		/tool fetch check-certificate=yes url="https://api.cloudflare.com/client/v4/zones/$zoneID/dns_records/$recordID" http-method=patch http-header-field="Content-Type:application/json,Authorization:Bearer $apiToken" http-data="{\"content\":\"$myIP\"}"; \
	} \
	else={/tool fetch check-certificate=yes url="https://api.cloudflare.com/client/v4/zones/$zoneID/dns_records/$recordID" http-method=patch http-header-field="Content-Type:application/json,Authorization:Bearer $apiToken" http-data="{\"content\":\"$"lease-address"\"}"; \
	}

       

########################################################################################

  # Cloudflare stuff
  :local ApiToken "_CLOUDFLARE_API_TOKEN_";
  :local ZoneId "_CLOUDFLARE_ZONE_ID_";
  :local DnsServer "1.1.1.1"; 

  # Records to update
  :local DnsRecords {"aaa.aaa.aaa"; "bbb.bbb.bbb"; "ccc.ccc.ccc"; \
                     "ddd.ddd.ddd"; "eee.eee.eee"; "fff.fff.fff"; \
                     "ggg.ggg.ggg"; "hhh.hhh.hhh"};

  # Interface to use
  :local WanInterface "_WAN_INTERFACE_";

########################################################################################
########################################################################################

  # Wait some for dhcp lease
  :delay 10;

  # Fetch WAN_IP from interface
  :local WanIp [/ip address get [find interface=$WanInterface] address];
  :set WanIp [:pick $WanIp 0 ([:len $WanIp] -3)];

  :foreach DnsRecord in=$DnsRecords do={
    :do {
      # Resolve DNS_IP from dns
      :local DnsIp [:resolve domain-name=$DnsRecord server=$DnsServer];

      # Compare and update if they differ
      :if ($WanIp != $DnsIp) do={
        # Prepare request payload
        :local ReqRead ("https://api.cloudflare.com/client/v4/zones/" . $ZoneId . "/dns_records?name=" . $DnsRecord);
        :local ReqAuth ("Authorization: Bearer " . $ApiToken . ", Content-Type: application/json");

        # Query dns record
        :local Resp [/tool fetch mode=https http-method=get url=$ReqRead http-header-field=$ReqAuth as-value output=user];
        :local Data [:deserialize from=json value=($Resp->"data")];

        # Check operation result
        :if ($Data->"success" != true) do={
          :error "Failed to retrieve record data.";
        }

        # Retrieve dns_record_id
        :local DnsRecordId ($Data->"result"->0->"id");

        # Prepare request payload
        :local ReqModi ("https://api.cloudflare.com/client/v4/zones/" . $ZoneId . "/dns_records/" . $DnsRecordId);
        :local ReqData ("{\"type\":\"A\",\"name\":\"" . $DnsRecord . "\",\"content\":\"" . $WanIp . "\",\"ttl\":1,\"proxied\":false}");

        # Perform the update
        :set Resp [/tool fetch mode=https http-method=put url=$ReqModi http-header-field=$ReqAuth http-data=$ReqData as-value output=user];
        :set Data [:deserialize from=json value=($Resp->"data")];

        # Check operation result
        :if ($Data->"result"->"content" != $WanIp) do={
          :error "Failed to update record.";
        }

        :log info ("CF_DDNS: Update of \"" . $DnsRecord . "\" successful.");
      }
    } on-error={
      :log info ("CF_DDNS: Error in \"" . $DnsRecord . "\" update.");
    }
  }

########################################################################################

cloud2.mikrotik.com

2a02:2330:f:41::2

2a02:2330:f:41::2

Router: hnk-b4 / Hong Kong (MEGA-i)
Command: traceroute ipv6 2a02:610:7501:4000::251

traceroute to 2a02:610:7501:4000::251 (2a02:610:7501:4000::251), 30 hops max, 80 byte packets
 1  mei-b6-v6.ip.twelve99.net (2001:2034:0:36::1)   156.203 ms  156.250 ms mei-b5-v6.ip.twelve99.net (2001:2034:0:15a::1)   155.363 ms
 2  ffm-bb1-v6.ip.twelve99.net (2001:2034:1:6b::1)   169.800 ms ffm-bb2-v6.ip.twelve99.net (2001:2034:1:6c::1)   169.741 ms  169.673 ms
 3  sto-bb1-v6.ip.twelve99.net (2001:2034:1:c4::1)   191.640 ms sto-bb2-v6.ip.twelve99.net (2001:2034:1:c5::1)   188.897 ms sto-bb1-v6.ip.twelve99.net (2001:2034:1:c4::1)   191.710 ms
 4  * * *
 5  siatet-ic-355842.ip.twelve99-cust.net (2001:2035:0:21c8::2)  210.563 ms  210.807 ms  210.802 ms
 6  2a02:2330:f:41::2 (2a02:2330:f:41::2)  205.067 ms  203.260 ms  205.321 ms
 7  * * *
 8  * * *
 9  * * *
10  cloud2.mikrotik.com (2a02:610:7501:4000::251)  199.486 ms  201.147 ms  199.449 ms