:local ednsuser “用户”
# M8 A7 W) u4 Z2 j:local ednspass “密码”
5 U* v% x; p7 O& o9 E7 h
:local ednshost “域名”
+ {' G: D; F7 z3 d:local ednsinterface “接口”
" {+ ~9 S! h% r1 g:local members “
http://members.3322.org/dyndns/update?system=dyndns”
8 H( |4 _: Q& v/ h( S! q
#:local members “http://members./nic/update?”
. t& X3 k( Y6 K5 S4 C2 E# _$ M: Q
:local status
" n2 R4 R5 Q: \6 n; [4 S$ _
:local status [/interface get [/interface find name=$ednsinterface] running]
5 }( O7 y% S7 X) T
:if ($status!=false) do={
7 [! o' ]/ Q5 B/ G4 b+ r# _:local ednslastip [:resolve $ednshost]
' g/ n- q( k" ?; J1 u4 T; v5 x:if ([ :typeof $ednslastip ] = nil ) do={ :local ednslastip “0” }
# T! v, |% X! o:local ednsiph [ /ip address get [/ip address find interface=$ednsinterface ] address ]
7 Q6 l! n* _( X0 A4 @: Q8 b4 ^
:local ednsip [:pick $ednsiph 0 [:find $ednsiph “/”]]
6 Y3 h! v5 B y) J4 V:local ednsstr “&hostname=$ednshost&myip=$ednsip”
) Q( H4 r& q$ Y4 M3 U
:if ($ednslastip != $ednsip) do={/tool fetch url=($members . $ednsstr) mode=http user=$ednsuser password=$ednspass dst-path=$ednshost
+ v$ x- ]) ] N:delay 2
2 r3 U% D' X( W8 _( i:local result [/file get $ednshost contents]
; q# m# S! t" ~) h:log info ($ednshost . ” ” .$result)
7 B, q" l& O* r2 L2 n/file remove $ednshost ;
L3 y( K4 U6 A8 R( @}
2 U3 D. g% t6 x3 P
}