:local ednsuser “用户”
7 o |. B8 e3 l5 n6 y- @:local ednspass “密码”
( w% X% y. |( s( T" G- z$ Z:local ednshost “域名”
$ \4 j+ d3 @1 D! O% l
:local ednsinterface “接口”
) a$ v6 r& I3 a1 ]' m
:local members “
http://members.3322.org/dyndns/update?system=dyndns”
8 F# v# V0 m* Y; Q6 B( K
#:local members “http://members./nic/update?”
& A2 I5 `! N# y$ g$ h
:local status
3 B; i- `# a1 }2 L1 A
:local status [/interface get [/interface find name=$ednsinterface] running]
4 X9 P, f1 a8 `) }" e2 C3 A2 P# q
:if ($status!=false) do={
7 l) q" N. G4 B3 I$ r" f- e
:local ednslastip [:resolve $ednshost]
& p, R1 s9 X" Z0 x$ ]- N- S8 t- Y:if ([ :typeof $ednslastip ] = nil ) do={ :local ednslastip “0” }
1 f. E R& n* d3 c0 T:local ednsiph [ /ip address get [/ip address find interface=$ednsinterface ] address ]
" T T/ _& x8 ^8 ?# K' U# Y:local ednsip [:pick $ednsiph 0 [:find $ednsiph “/”]]
4 A, [; C0 P9 G9 l0 P9 B:local ednsstr “&hostname=$ednshost&myip=$ednsip”
0 ~- L& ]( G! T
:if ($ednslastip != $ednsip) do={/tool fetch url=($members . $ednsstr) mode=http user=$ednsuser password=$ednspass dst-path=$ednshost
f$ T. h0 B9 t; ?% H:delay 2
* ]% H" _( N4 ]( @4 i+ O
:local result [/file get $ednshost contents]
" M9 R0 h/ G5 n' n6 v
:log info ($ednshost . ” ” .$result)
3 Y$ c& L& p, o9 p) d& l/ _/file remove $ednshost ;
7 |8 ^5 }3 t+ U. T9 B
}
1 k& k9 l" _/ R4 e( o4 y4 c; C}