Mikrotik RouterOS ipv6-dns脚本

admin

1. #!rsc by RouterOS
   
2. #
   
3. # Requirements:
   
4. #   - mod/ipv6-functions
   
5. #   - mod/ipv6-structured
   
6. #
   
7. # Usage:
   
8. #
   
9. # argWanPool: name of the WAN pool
   
10. # argHosts: An array of {interface ; IID ; name} records
    
11. # argManagedID: regex-escaped unique ID of the managed objects
    
12. #
    
13. # For every host in $argHosts one /ipv6/firewall/address-list
    
14. # and one AAAA /ip/dns/static record will be added.
    
15. #
    
16. 
    
17. :global argWanPool
    
18. :global argHosts
    
19. :global argManagedID
    
20. 
    
21. :global GlobalFunctionsReady;
    
22. :while ($GlobalFunctionsReady != true) do={ :delay 500ms; }
    
23. 
    
24. :global WaitIP6Address
    
25. :global StructureIP6Address
    
26. :global LogPrint
    
27. 
    
28. /ipv6/pool
    
29. :local varWanPrefix [get value-name=prefix $argWanPool]
    
30. :local varWanPrefixTTL [get value-name=expires-after $argWanPool]
    
31. :if ([:typeof $varWanPrefixTTL] = "nil") do={
    
32.     :set varWanPrefixTTL 1d00:00:00
    
33. } else={
    
34.     :set varWanPrefixTTL ($varWanPrefixTTL + 01:00:00)
    
35. }
    
36. 
    
37. :foreach varHost in=$argHosts do={
    
38.     :local varInt ($varHost->0)
    
39.     :local varIID ($varHost->1)
    
40.     :local varName ($varHost->2)
    
41. 
    
42.     :do {
    
43.         :local varPrefix ([$StructureIP6Address [$WaitIP6Address $varInt $varWanPrefix ""]]->"prefix")
    
44.         :local varAddr ($varPrefix | $varIID)
    
45. 
    
46.         /ipv6/firewall/address-list
    
47.         remove [find list=$varName comment~"$argManagedID\$"]
    
48.         :log info "Add $varName -> $varAddr address list, expires after $varWanPrefixTTL"
    
49.         add list=$varName address=$varAddr timeout=$varWanPrefixTTL comment="Managed: DNSv6 / $argManagedID"
    
50. 
    
51.         /ip/dns/static
    
52.         remove [find name=$varName comment~"$argManagedID\$"]
    
53.         :log info "Add $varName -> $varAddr dns, expires after $varWanPrefixTTL"
    
54.         add name=$varName address=$varAddr type=AAAA ttl=$varWanPrefixTTL comment="Managed: DNSv6 / $argManagedID"
    
55.     } on-error={
    
56.         $LogPrint error $0 ("No prefix from $varWanPrefix on $varInt")
    
57.         :error "fatal error in ipv6-dns.rsc"
    
58.     }
    
59. }

复制代码