ros ddns脚本（clouflare）和动态ip回流脚本

1. Cloudflare ddns脚本本脚本是基于视频https://youtu.be/cSTHn2gxScY?si=r0p1PdiWqeddCJ01更改而来. 将原本需要用global api token 改为普通api token 首先需要获取获取records_ID，参考原视频。 Linux/unix终端下，

1
curl -X GET "https://api.cloudflare.com/client/v4/zones/Zone_ID/dns_records" \
2
-H "x-auth-email:email" \
3
-H "x-auth-key:auth-key" \
4
-H "content-type: application/json"

新建script，那么填 cf_ddns 如果运行完总是会报红字错误，试试最后加一行空行

1
# Update Cloudflare DNS IPv4 address script
2
# RouterOS version >= 7.x is required
3

4
# ** CONFIGURE SECTION **
5

6
# WAN IPv4 interface
7
:local wanif "pppoe-out1"
8

9
# Cloudflare section
10
:local email "email"
11
:local key "auth-key"
12
:local zoneID "Zone_ID"
13
:local recordsID "record_ID"
14

15
# Domain hostname
16
:local hostName "ddns域名"
17

18
# DNS server for resolution
19
:local dnsServer "1.1.1.1"
20

21
# ** END OF CONFIGURE SECTION **
22

23
# Get WAN interface IPv4 address
24
:local ip4new [/ip address get [/ip address find interface=$wanif] address]
25
:set ip4new [:pick [:tostr $ip4new] 0 [:find [:tostr $ip4new] "/"]]
26

27
:if ([:len $ip4new] = 0) do={
28
:log error "[Cloudflare DDNS] Could not get IPv4 for interface $wanif"
29
:error "[Cloudflare DDNS] Could not get IPv4 for interface $wanif"
30
}
31

32
# Use DNS resolve with specified server to get current IP address of the domain
33
:local resolvedIp [:resolve $hostName server=$dnsServer]
34

35
:if ($resolvedIp = "") do={
36
:log error "[Cloudflare DDNS] Could not resolve $hostName using server $dnsServer"
37
:error "[Cloudflare DDNS] Could not resolve $hostName using server $dnsServer"
38
}
39

40
:log info "[Cloudflare DDNS] DNS resolved IP for $hostName: $resolvedIp"
41
:log info "[Cloudflare DDNS] Current WAN IPv4 address: $ip4new"
42

43
:if ($ip4new = $resolvedIp) do={
44
:log info "[Cloudflare DDNS] WAN IPv4 address for interface $wanif and DNS resolved IP are the same, no update needed."
45
} else {
46
:log info "[Cloudflare DDNS] WAN IPv4 address for interface $wanif has been changed to $ip4new."
47

48
:local url "https://api.cloudflare.com/client/v4/zones/$zoneID/dns_records/$recordsID"
49
:local header "X-Auth-Email: $email,Authorization: Bearer $key,Content-Type:application/json"
50
:local data "{\"type\":\"A\",\"name\":\"$hostName\",\"content\":\"$ip4new\",\"ttl\":60,\"proxied\":false}"
51

52
:log info "[Cloudflare DDNS] URL: $url"
53
:log info "[Cloudflare DDNS] HEADER: $header"
54
:log info "[Cloudflare DDNS] DATA: $data"
55
:log info "[Cloudflare DDNS] Updating host $hostName address."
56

57
:local jsonAnswer [/tool fetch http-method=put mode=https http-header-field=$header http-data=$data url=$url as-value output=user]
58

59
:if ([:len $jsonAnswer] > 0) do={
60

61
/system script run "JParseFunctions"; local JSONLoads; local JSONUnload
62
:local result ([$JSONLoads ($jsonAnswer->"data")]->"success")
63
$JSONUnload
64

65
:if ($result = true) do={
66
:log info "[Cloudflare DDNS] Successfully updated IPv4 address to $ip4new."
67
} else {
68
:log error "[Cloudflare DDNS] Error while updating IPv4 address."
69
}
70
} else {
71
:log error "[Cloudflare DDNS] No answer from Cloudflare API."
72
}
73
}

pppoe-out1 使用的profile内的On Up部分加上：（末尾留一行空行

1
:delay 3s
2
/system/script/
3
run cf_ddns

2. 动态ip回流脚本新建script ，名为“dynamic_nat”

1
:global addold
2

3
:global addnew
4

5
:set addnew [/interface get [/interface find name="pppoe-out1"] running]
6

7
:if ($addnew=true) do={
8

9
:set addold [/ip address get [/ip address find dynamic=yes interface="pppoe-out1"] address]
10

11
:set addold [:pick $addold 0 ([:len $addold ] -3)]
12

13
/ip firewall nat set [/ip firewall nat find comment="dynamic_nat"] dst-address=$addold
14

15
}

同样的，在pppoe-out1 使用的profile内的On Up部分加上就变成了如下：

1
#dynamic_nat
2

3
:delay 3s
4
execute "dynamic_nat"
5

6
#cf_ddns
7
/system/script/
8
run cf_ddns

另外，ros版本大于7.14的话，新建脚本JParseFunctions，作为依赖库。来源参考: https://github.com/Winand/mikrotik-json-parser

1
# -------------------------------- JParseFunctions ---------------------------------------------------
2
# ------------------------------- fJParsePrint ----------------------------------------------------------------
3
:global fJParsePrint
4
:if (!any $fJParsePrint) do={ :global fJParsePrint do={
5
  :global JParseOut
6
  :local TempPath
7
  :global fJParsePrint
8

9
  :if ([:len $1] = 0) do={
10
    :set $1 "\$JParseOut"
11
    :set $2 $JParseOut
12
   }
13

14
  :foreach k,v in=$2 do={
15
    :if ([:typeof $k] = "str") do={
16
      :set k "\"$k\""
17
    }
18
    :set TempPath ($1. "->" . $k)
19
    :if ([:typeof $v] = "array") do={
20
      :if ([:len $v] > 0) do={
21
        $fJParsePrint $TempPath $v
22
      } else={
23
        :put "$TempPath = [] ($[:typeof $v])"
24
      }
25
    } else={
26
        :put "$TempPath = $v ($[:typeof $v])"
27
    }
28
  }
29
}}
30
# ------------------------------- fJParsePrintVar ----------------------------------------------------------------
31
:global fJParsePrintVar
32
:if (!any $fJParsePrintVar) do={ :global fJParsePrintVar do={
33
  :global JParseOut
34
  :local TempPath
35
  :global fJParsePrintVar
36
  :local fJParsePrintRet ""
37

38
  :if ([:len $1] = 0) do={
39
    :set $1 "\$JParseOut"
40
    :set $2 $JParseOut
41
   }
42

43
  :foreach k,v in=$2 do={
44
    :if ([:typeof $k] = "str") do={
45
      :set k "\"$k\""
46
    }
47
    :set TempPath ($1. "->" . $k)
48
    :if ($fJParsePrintRet != "") do={
49
      :set fJParsePrintRet ($fJParsePrintRet . "\r\n")
50
    }
51
    :if ([:typeof $v] = "array") do={
52
      :if ([:len $v] > 0) do={
53
        :set fJParsePrintRet ($fJParsePrintRet . [$fJParsePrintVar $TempPath $v])
54
      } else={
55
        :set fJParsePrintRet ($fJParsePrintRet . "$TempPath = [] ($[:typeof $v])")
56
      }
57
    } else={
58
        :set fJParsePrintRet ($fJParsePrintRet . "$TempPath = $v ($[:typeof $v])")
59
    }
60
  }
61
  :return $fJParsePrintRet
62
}}
63
# ------------------------------- fJSkipWhitespace ----------------------------------------------------------------
64
:global fJSkipWhitespace
65
:if (!any $fJSkipWhitespace) do={ :global fJSkipWhitespace do={
66
  :global Jpos
67
  :global JSONIn
68
  :global Jdebug
69
  :while ($Jpos < [:len $JSONIn] and ([:pick $JSONIn $Jpos] ~ "[ \r\n\t]")) do={
70
    :set Jpos ($Jpos + 1)
71
  }
72
  :if ($Jdebug) do={:put "fJSkipWhitespace: Jpos=$Jpos Char=$[:pick $JSONIn $Jpos]"}
73
}}
74
# -------------------------------- fJParse ---------------------------------------------------------------
75
:global fJParse
76
:if (!any $fJParse) do={ :global fJParse do={
77
  :global Jpos
78
  :global JSONIn
79
  :global Jdebug
80
  :global fJSkipWhitespace
81
  :local Char
82

83
  :if (!$1) do={
84
    :set Jpos 0
85
   }
86

87
  $fJSkipWhitespace
88
  :set Char [:pick $JSONIn $Jpos]
89
  :if ($Jdebug) do={:put "fJParse: Jpos=$Jpos Char=$Char"}
90
  :if ($Char="{") do={
91
    :set Jpos ($Jpos + 1)
92
    :global fJParseObject
93
    :return [$fJParseObject]
94
  } else={
95
    :if ($Char="[") do={
96
      :set Jpos ($Jpos + 1)
97
      :global fJParseArray
98
      :return [$fJParseArray]
99
    } else={
100
      :if ($Char="\"") do={
101
        :set Jpos ($Jpos + 1)
102
        :global fJParseString
103
        :return [$fJParseString]
104
      } else={
105
#        :if ([:pick $JSONIn $Jpos ($Jpos+2)]~"^-\?[0-9]") do={
106
        :if ($Char~"[eE0-9.+-]") do={
107
          :global fJParseNumber
108
          :return [$fJParseNumber]
109
        } else={
110

111
          :if ($Char="n" and [:pick $JSONIn $Jpos ($Jpos+4)]="null") do={
112
            :set Jpos ($Jpos + 4)
113
            :return []
114
          } else={
115
            :if ($Char="t" and [:pick $JSONIn $Jpos ($Jpos+4)]="true") do={
116
              :set Jpos ($Jpos + 4)
117
              :return true
118
            } else={
119
              :if ($Char="f" and [:pick $JSONIn $Jpos ($Jpos+5)]="false") do={
120
                :set Jpos ($Jpos + 5)
121
                :return false
122
              } else={
123
                :put "Err.Raise 8732. No JSON object could be fJParseed"
124
                :set Jpos ($Jpos + 1)
125
                :return []
126
              }
127
            }
128
          }
129
        }
130
      }
131
    }
132
  }
133
}}
134

135
#-------------------------------- fJParseString ---------------------------------------------------------------
136
:global fJParseString
137
:if (!any $fJParseString) do={ :global fJParseString do={
138
  :global Jpos
139
  :global JSONIn
140
  :global Jdebug
141
  :global fUnicodeToUTF8
142
  :local Char
143
  :local StartIdx
144
  :local Char2
145
  :local TempString ""
146
  :local UTFCode
147
  :local Unicode
148

149
  :set StartIdx $Jpos
150
  :set Char [:pick $JSONIn $Jpos]
151
  :if ($Jdebug) do={:put "fJParseString: Jpos=$Jpos Char=$Char"}
152
  :while ($Jpos < [:len $JSONIn] and $Char != "\"") do={
153
    :if ($Char="\\") do={
154
      :set Char2 [:pick $JSONIn ($Jpos + 1)]
155
      :if ($Char2 = "u") do={
156
        :set UTFCode [:tonum "0x$[:pick $JSONIn ($Jpos+2) ($Jpos+6)]"]
157
        :if ($UTFCode>=0xD800 and $UTFCode<=0xDFFF) do={
158
# Surrogate pair
159
          :set Unicode  (($UTFCode & 0x3FF) << 10)
160
          :set UTFCode [:tonum "0x$[:pick $JSONIn ($Jpos+8) ($Jpos+12)]"]
161
          :set Unicode ($Unicode | ($UTFCode & 0x3FF) | 0x10000)
162
          :set TempString ($TempString . [:pick $JSONIn $StartIdx $Jpos] . [$fUnicodeToUTF8 $Unicode])
163
          :set Jpos ($Jpos + 12)
164
        } else= {
165
# Basic Multilingual Plane (BMP)
166
          :set Unicode $UTFCode
167
          :set TempString ($TempString . [:pick $JSONIn $StartIdx $Jpos] . [$fUnicodeToUTF8 $Unicode])
168
          :set Jpos ($Jpos + 6)
169
        }
170
        :set StartIdx $Jpos
171
        :if ($Jdebug) do={:put "fJParseString Unicode: $Unicode"}
172
      } else={
173
        :if ($Char2 ~ "[\\bfnrt\"]") do={
174
          :if ($Jdebug) do={:put "fJParseString escape: Char+Char2 $Char$Char2"}
175
          :set TempString ($TempString . [:pick $JSONIn $StartIdx $Jpos] . [[:parse "(\"\\$Char2\")"]])
176
          :set Jpos ($Jpos + 2)
177
          :set StartIdx $Jpos
178
        } else={
179
          :if ($Char2 = "/") do={
180
            :if ($Jdebug) do={:put "fJParseString /: Char+Char2 $Char$Char2"}
181
            :set TempString ($TempString . [:pick $JSONIn $StartIdx $Jpos] . "/")
182
            :set Jpos ($Jpos + 2)
183
            :set StartIdx $Jpos
184
          } else={
185
            :put "Err.Raise 8732. Invalid escape"
186
            :set Jpos ($Jpos + 2)
187
          }
188
        }
189
      }
190
    } else={
191
      :set Jpos ($Jpos + 1)
192
    }
193
    :set Char [:pick $JSONIn $Jpos]
194
  }
195
  :set TempString ($TempString . [:pick $JSONIn $StartIdx $Jpos])
196
  :set Jpos ($Jpos + 1)
197
  :if ($Jdebug) do={:put "fJParseString: $TempString"}
198
  :return $TempString
199
}}
200

201
#-------------------------------- fJParseNumber ---------------------------------------------------------------
202
:global fJParseNumber
203
:if (!any $fJParseNumber) do={ :global fJParseNumber do={
204
  :global Jpos
205
  :local StartIdx
206
  :global JSONIn
207
  :global Jdebug
208
  :local NumberString
209
  :local Number
210

211
  :set StartIdx $Jpos
212
  :set Jpos ($Jpos + 1)
213
  :while ($Jpos < [:len $JSONIn] and [:pick $JSONIn $Jpos]~"[eE0-9.+-]") do={
214
    :set Jpos ($Jpos + 1)
215
  }
216
  :set NumberString [:pick $JSONIn $StartIdx $Jpos]
217
  :set Number [:tonum $NumberString]
218
  :if ([:typeof $Number] = "num") do={
219
    :if ($Jdebug) do={:put "fJParseNumber: StartIdx=$StartIdx Jpos=$Jpos $Number ($[:typeof $Number])"}
220
    :return $Number
221
  } else={
222
    :if ($Jdebug) do={:put "fJParseNumber: StartIdx=$StartIdx Jpos=$Jpos $NumberString ($[:typeof $NumberString])"}
223
    :return $NumberString
224
  }
225
}}
226

227
#-------------------------------- fJParseArray ---------------------------------------------------------------
228
:global fJParseArray
229
:if (!any $fJParseArray) do={ :global fJParseArray do={
230
  :global Jpos
231
  :global JSONIn
232
  :global Jdebug
233
  :global fJParse
234
  :global fJSkipWhitespace
235
  :local Value
236
  :local ParseArrayRet [:toarray ""]
237

238
  $fJSkipWhitespace
239
  :while ($Jpos < [:len $JSONIn] and [:pick $JSONIn $Jpos]!= "]") do={
240
    :set Value [$fJParse true]
241
    :set ($ParseArrayRet->([:len $ParseArrayRet])) $Value
242
    :if ($Jdebug) do={:put "fJParseArray: Value="; :put $Value}
243
    $fJSkipWhitespace
244
    :if ([:pick $JSONIn $Jpos] = ",") do={
245
      :set Jpos ($Jpos + 1)
246
      $fJSkipWhitespace
247
    }
248
  }
249
  :set Jpos ($Jpos + 1)
250
#  :if ($Jdebug) do={:put "ParseArrayRet: "; :put $ParseArrayRet}
251
  :return $ParseArrayRet
252
}}
253

254
# -------------------------------- fJParseObject ---------------------------------------------------------------
255
:global fJParseObject
256
:if (!any $fJParseObject) do={ :global fJParseObject do={
257
  :global Jpos
258
  :global JSONIn
259
  :global Jdebug
260
  :global fJSkipWhitespace
261
  :global fJParseString
262
  :global fJParse
263
# Syntax :local ParseObjectRet ({}) don't work in recursive call, use [:toarray ""] for empty array!!!
264
  :local ParseObjectRet [:toarray ""]
265
  :local Key
266
  :local Value
267
  :local ExitDo false
268

269
  $fJSkipWhitespace
270
  :while ($Jpos < [:len $JSONIn] and [:pick $JSONIn $Jpos]!="}" and !$ExitDo) do={
271
    :if ([:pick $JSONIn $Jpos]!="\"") do={
272
      :put "Err.Raise 8732. Expecting property name"
273
      :set ExitDo true
274
    } else={
275
      :set Jpos ($Jpos + 1)
276
      :set Key [$fJParseString]
277
      $fJSkipWhitespace
278
      :if ([:pick $JSONIn $Jpos] != ":") do={
279
        :put "Err.Raise 8732. Expecting : delimiter"
280
        :set ExitDo true
281
      } else={
282
        :set Jpos ($Jpos + 1)
283
        :set Value [$fJParse true]
284
        :set ($ParseObjectRet->$Key) $Value
285
        :if ($Jdebug) do={:put "fJParseObject: Key=$Key Value="; :put $Value}
286
        $fJSkipWhitespace
287
        :if ([:pick $JSONIn $Jpos]=",") do={
288
          :set Jpos ($Jpos + 1)
289
          $fJSkipWhitespace
290
        }
291
      }
292
    }
293
  }
294
  :set Jpos ($Jpos + 1)
295
#  :if ($Jdebug) do={:put "ParseObjectRet: "; :put $ParseObjectRet}
296
  :return $ParseObjectRet
297
}}
298

299
# ------------------- fByteToEscapeChar ----------------------
300
:global fByteToEscapeChar
301
:if (!any $fByteToEscapeChar) do={ :global fByteToEscapeChar do={
302
#  :set $1 [:tonum $1]
303
  :return [[:parse "(\"\\$[:pick "0123456789ABCDEF" (($1 >> 4) & 0xF)]$[:pick "0123456789ABCDEF" ($1 & 0xF)]\")"]]
304
}}
305

306
# ------------------- fUnicodeToUTF8----------------------
307
:global fUnicodeToUTF8
308
:if (!any $fUnicodeToUTF8) do={ :global fUnicodeToUTF8 do={
309
  :global fByteToEscapeChar
310
#  :local Ubytes [:tonum $1]
311
  :local Nbyte
312
  :local EscapeStr ""
313

314
  :if ($1 < 0x80) do={
315
    :set EscapeStr [$fByteToEscapeChar $1]
316
  } else={
317
    :if ($1 < 0x800) do={
318
      :set Nbyte 2
319
    } else={
320
      :if ($1 < 0x10000) do={
321
        :set Nbyte 3
322
      } else={
323
        :if ($1 < 0x20000) do={
324
          :set Nbyte 4
325
        } else={
326
          :if ($1 < 0x4000000) do={
327
            :set Nbyte 5
328
          } else={
329
            :if ($1 < 0x80000000) do={
330
              :set Nbyte 6
331
            }
332
          }
333
        }
334
      }
335
    }
336
    :for i from=2 to=$Nbyte do={
337
      :set EscapeStr ([$fByteToEscapeChar ($1 & 0x3F | 0x80)] . $EscapeStr)
338
      :set $1 ($1 >> 6)
339
    }
340
    :set EscapeStr ([$fByteToEscapeChar (((0xFF00 >> $Nbyte) & 0xFF) | $1)] . $EscapeStr)
341
  }
342
  :return $EscapeStr
343
}}
344

345
# ------------------- Load JSON from arg --------------------------------
346
global JSONLoads
347
if (!any $JSONLoads) do={ global JSONLoads do={
348
    global JSONIn $1
349
    global fJParse
350
    local ret [$fJParse]
351
    set JSONIn
352
    global Jpos; set Jpos
353
    global Jdebug; if (!$Jdebug) do={set Jdebug}
354
    return $ret
355
}}
356

357
# ------------------- Load JSON from file --------------------------------
358
global JSONLoad
359
if (!any $JSONLoad) do={ global JSONLoad do={
360
    if ([len [/file find name=$1]] > 0) do={
361
        global JSONLoads
362
        return [$JSONLoads [/file get $1 contents]]
363
    }
364
}}
365

366
# ------------------- Unload JSON parser library ----------------------
367
global JSONUnload
368
if (!any $JSONUnload) do={ global JSONUnload do={
369
    global JSONIn; set JSONIn
370
    global Jpos; set Jpos
371
    global Jdebug; set Jdebug
372
    global fByteToEscapeChar; set fByteToEscapeChar
373
    global fJParse; set fJParse
374
    global fJParseArray; set fJParseArray
375
    global fJParseNumber; set fJParseNumber
376
    global fJParseObject; set fJParseObject
377
    global fJParsePrint; set fJParsePrint
378
    global fJParsePrintVar; set fJParsePrintVar
379
    global fJParseString; set fJParseString
380
    global fJSkipWhitespace; set fJSkipWhitespace
381
    global fUnicodeToUTF8; set fUnicodeToUTF8
382
    global JSONLoads; set JSONLoads
383
    global JSONLoad; set JSONLoad
384
    global JSONUnload; set JSONUnload
385
}}
386
# ------------------- End JParseFunctions----------------------

这样ddns和动态ip脚本就会随着每一次重新pppoe拨号重新运行

文章分享

评论区

文章目录