From 232ce9eaba1e429ceff7c6b786d0ed46559e08cd Mon Sep 17 00:00:00 2001 From: vados-dev Date: Tue, 3 Mar 2026 08:40:19 +0300 Subject: [PATCH] Backup for MikroYellow sucessfully creatd at Mar 03 08:40:19. --- .../20260303/20260303084010-Binary.backup | Bin 0 -> 181502 bytes .../20260303/20260303084010-Config.rsc | 3960 +++++++++++++++++ .../20260303/20260303084010-Diff-Config.rsc | 25 + 3 files changed, 3985 insertions(+) create mode 100644 MikroYellow/20260303/20260303084010-Binary.backup create mode 100644 MikroYellow/20260303/20260303084010-Config.rsc create mode 100644 MikroYellow/history/20260303/20260303084010-Diff-Config.rsc diff --git a/MikroYellow/20260303/20260303084010-Binary.backup b/MikroYellow/20260303/20260303084010-Binary.backup new file mode 100644 index 0000000000000000000000000000000000000000..4e14fa920ff779743e60ca57b580a2cefb51a1a7 GIT binary patch literal 181502 zcmeEv349a9_xNm*wn@24xdqDh5Q;SICOs)c$pA>>X?Diz$aC^_R0LJUI4fXJU#6%SFxo8oxBnL)_F819IKA%vWQ zC#lqJYfMYZpwEiR%F4Plo`(?1K>21ZLMs^*j`Gbqg!Bj@4TBI9hANnFRDl>&VL&0M zLSI=~Ss8&UqIC{lbk@a{R_LL;5J*vvG{h}=J)*NX$y-$HO0w9BYtj~F(mLUpiSo_0 zPz6&D@&-#HNV)$!Q z%!n?J(I(nGg8R?pbnwn%d$sGVp{mo#d#YPu9e=j8KL~3;);|ZVRVWoLf^4VV7X?%a zl!1^h4#cUv*Qw$_s6A-TS5EETDB_lJ#mYK?DW(b)k zKC{ST2>Mo!nARKf%{6ssCV>f{f#yN8u4oYhZ36ngtVPUqEi$0rAh-d+O$csjks&lp zhYUy$K_UQZMU4L25QGH8=sSiYbViE|OhfqGSceQDjdaMsG|?e_0)tQ_P=8Y$GH8nt zqyHrgp-YfD3Q}LyB7;V!L#EK~a|X}8@7>c{UsR19O?9wirr1ddiXCfE>{$OdVP}gU zJ6qJ)(N+gL$rL-uL9rtQ#g6d52|MrkvGbl9JG$y%Cxv3i927gYpxCkfZ^F)2KX$hE zQ1P7*6?SUhjqjvV?3jXK$HE1}j)ep49K9Fcc~XZ^1m!&yln>pL2UP;w(CUyO+|P~b z0vD;ujW8p^JP326yECHtI%F8r0E)oe2(vcK$}oq*%qc{NqIJbCQSx)CZGK#C`$^~L z;h})bSj@va>HwDpt&f3+l-YS_aQvBr;?Jx{O#BR8zImM<%_Kq%h%>;v;Ry^Jp1{Q6 z3G)m*VUB?(h+FW4IT@ZX8N;&{eS&-dzhMT2X9Rsh9R5YpCrCT+8{`alf?xvAhVYKKcX!4&FDT&*t#HzisCy_38R~o;h78O% zVaQN<7-GMLA^lfj2;G3JH{ng80T~bvK@kKN2y}X6Kp}ckmKEM$VhqiaM+Rm$#P&e2mq3p8>5-vwKfF1hM+WUd2)@)KL)cdk9D)zuKyVm>Zz1>& zg75W6k646`(C1Njc?_yJu1AK6YHrXu6rmsCGl(9S^a!1RAEyAi(-542pFiu7A?g>1 zorB;!1ScW*34#j{T!i2f1eYPW0>M=Xeudx~1lJ+>4T9Txq~Ch97*)UzWB{fGc-I+7 z$A%hUw5FlD@Ffzy)PtbD0U6AVAlAfy44V6J7N2DFzTSYM(;U1dlN*!DaY@{mG%kU4 zm6T_4W75*n(i2!dHIo~|C9u4iJO#n!mK+doU_jC6tR6+9=k+MMW=cjzZfaIWjwvhK zyaC?s4@1%Vd~uXp>L-qRUyn>6%p!#RZ0`L7DmEAPdu%S~Bx*4QWpgHAbDsZGY>x4< zIbd&OZ2+vz{~lNxd0z*|AYR*mW@<6J2bPbQB>#F=SHs8Z+SeznjtO9O{~89TFg9Rl z+W*B2jRA(n{C~pG)-IFo!O#ph{t!3YZZM$eFpkUQxI_*(8%H=B@HHP>177wgc$%r2 zJZ*bBl^CoCo>mh?x1=cy7Tu6fbPMm|7OlmCu}4-3+n+Y@WL7diLnTw2?(J_5JHoP{HBKpD57AI9DcP8Fp#HMMPbY|alMxyXZ`_bnhQNc6!RkdwKUYAg6e0a03qoZG=?`!SjX_9% zN{diALi*I2bg@1TvW!AVs zfynE}o5n7|8lZE&8MF&9D}xw^B^oT7`_%=CfR3j-)!aj(RC8ElvnqNvP=HbW3RcMI zP`(+IE^bM7NLH+`0+zXm_hkR%3~283q4hBiNv$c!NPh0%9mfoaX5 z^nIw3R&O(rcQ#X~k`{UtG>BS+^n0&oSVIwlRTgU9INuCXb~A*SD1?}B=uQUJHQWb! zq#{{xmx7QEfLCoBB(T^euN4x&UtiU;FUmJt5kfLTjE7K}0m#h2%%qS^fto%g%}tmN zy*dqosSrF0!DI;LLEwS_YOy$YCssJBRGTent?+C~Rht^3K*e-U^;o3&22>G^5p1_u zJ(AZ_qQIU@OMz!D$~QX^Vn!4AaVap8MnPvn69f>&!w|B;4;U0MxD1R7f{_SC>rCe4 z6hN029(eh2FM%@rA6!P zg4NWBzGebmo0Zp^fY-^&Yi+>m6y>!p;B{(KT6T!!5Q&5Yqpnva%9b8dHOidIcyrkwKS!M_xvqSEJ6W0iD?rfk=oh?M2EyUNr5S$k_DnRS$+n?ZFPUsLINDDTX7?VKBqHD3xt>$gc#tWC2Pgb?bC5R-)v1KhY9Ld=5*F%KbxI3PC@LWZbRg!Ed3G-;Hvrz2zt%K!?+Bt94+ zJ?BMe2z{2o7ZD~K21`VSNu%J04k3_VtPU!RfE)uG2ogg2AMeNVlA$vQHBlhXz{u5K zVX%mWpLoCS%SVAFVNoWOKEvn}R5l>u80a&cK5HPP@12X)U-)}1g!F}H5U9WOFxl0C zEOjAh1VIx3;8O^iB4h|}hLFB-V+2YoP&J@0AkA(F_P`s2G%TR$GlUH7cfuP6pS!)P2P43miEb`V zis|+Y;7-TSCgV=Qj>Gy;I7p^cczrmXu5Zq*tA^a9Y zq?X(CS-~K~q)G?|X^_FZMMKEvJq^+?oz9@G8l<0D525WEk}X<`^nm9WE%_d+CEr1O zS(u5?{aTW)C8X0K)C!&mY2vj6(gwihXTWCLObCDi&5uEB7A^1z`0*qJv$e<&HVO#9I~aVErpFtWjea zB$ofP7_JW(wn}AAHI6NR1&-D77&dnL@56D}zlVzJNltsYv4nS9%Xqh7#B#U&FGn#5 z*#CVf4*mC_xS7Li_lN|w#(%lAhK)u4`*2-lg%SQQT4B_pLaWGC&_Biw>7v zz_g8(lhx7ffRPE#OLdzTyHRj@++y`h0CN{80c6NxFYm@0^y*X%%UY+$1zITh8>o5? zMET~L2rb1%HZ!rdo(aWjaI6%-8a!%NLo|7yY`CASuni%RpbDrD0WA7JV_*Pv0aieO zfwW>*OpJDuWVg5a2DnhGTaYDtso+kMJ-kP>R9B4#?RC3kP!GW(9PkEzpb}H!kVJ{Y zN?(b?N?(a*;W*jx!Rzc=svjEl53Tx#PW=P4sYns}Ef#xqn*iz&UpBnmP@RqjoGH0n zZpkJRbi>~dI3&*>P`*)9AZ>>|6xVk`b5WDWFS zmx_(N1$3@5N4sS@eFD8srE#EFB@Xneq^S>jBVzZDw|2r2!diD|Ds&*2yD7RwrR(&t z?NAG}kuZRv+kM(X4eZL2j>BUY_WG#$F&gii8fR$o_-lTyIuiuA3u#`yulHR~OKCrv?yD)^h1&8DjU`q=~3&;@@ z77$aCikOr*5R(!I=BLEp#qoTz2EkOoU=BeTXa%FE`~R>ZMz|r~u1l(tobc5k$;s|v z)#QXF2T4wL6{{vEoH{T$-c%#IjWCAga@iv|;7AVqndlQ*5liF1NMWeJUm;GDZw9N* zNKpDefOk+0U;;`s=)e}EYvp*|l1oU+mt>1n7K`%DwGm=~A%&(Vn#_qNU`sVH%Niuu z?NV7yly6QzNY8ZmhX^WYW#8E7;)|<4;RBSi=oq2wt0+(_t%9cs&q;XVHh@tA9^05r zmggaRYZCz()_vR6i>m1tU!(S%oty8nh>k7MB-##3HyIinYM~WcLa8U;*9!hsX0k%+$(!B5b8n`aTWhfDqo~ zp~=ysW`yn!$v4kNXsH(IP9xQy#hP;3w86Bj3z_yHjHKlJZ%p@1E;;v&o7sTxZ<2 z=5-jRQm4~um{6`xsJ4Iedhk1h(=tpY*BoBd)-}}CU-3!H!Lyh3*pq6x^+N0?nQI1I z?lnM-M{P0UtQu}ikF_66Fz&nBU-R0PM*S}jzIpn@-mq6+pMBi&MbE7Zn$}6pY-r>z zH<@YdyyDH-!{6Sd;hGFTxqSSzBkz5C{e#ry|H$7s{Ff=`KDs*Px%V|E`@cP#OZ$u& zeKvmEPG|H#7PLyZSkdk=gd%`!fH-HuUgxy8OCUb^@2>ya4b!t*J~yvc0h&1P$c&^DdpY$>*)wia7Ps@cYw`E)LW=TohzX=!PX zBV-Cn(zBq7F$hJod}@wE+t(^71C1qw6@6^+-TT=r3_C3BQoF@ zc7&oe{R;{Vgh}csldO$;b?7Pke60KsfXc63=M2qCO4>+hV zRX4j-#M@b1L3UO(IO_I-9N?&v)(`R&1Bb;XniU2OFxAzugsJj@OqH32kfHN*;J?65 z@sZ{z1p)#9)SsP|XmNWIU4ml-=i{;)wcHf#T5gKwS;A!_^zD8aFt&V(TC6s8X1rZC}}DGY;-wL4nZ{r$?9_OBSY zs`v6aHOl6Gy8IvKBENWM2xDM(G4o&P$-P~0E&D?e4P1Qe$(ZkEgmy-g4PSiG^wF(H zK5sWV_t=-V9U&V_TQ!_BZb{VB6VAQeeTDv;FV~K(*)~*|_~5V>?>4%=`n_}UUwI~u z9rN6vX(i5~vF3-i_S|-Au;aLEYgxqBTgcJipI_~Z@!d^Oj=|kyHE%`R)q~nYF_st%;v*PoO^{tI|3~9Z@ zy!Fz#8~bZ?Ik5WeEb})t51hX~`QSTGKHTZerl<1am%F|(>At(Rq2Z+-;XT7vo_(;x z@HZ!}nES!nRvI|ry28ToRpy@Q_nLdO-}g=(u(!uMwhJqcHEsIAvl}|>?a#GeYAMl_P6(SIf)wE8-g8dZ^9RZN|+9cT`;2 z-s0h%n;eVAdVX5idUf45kGqyG`@F}@=jK20l;E!R2`&VpTJj8JE z;OyfCS7uvobb96R8@3}wwlDWOv!1+UeDh4%gD)cj&dmQy&h@v-8o759(eY z(>@_{(x_K{UfZDl=|hig-<)AT_LTkcO6%sb`v-E{n#Qd-`t9i>-NwK9Mw~u``^C7W z#@3vzy*Iyl`R9d93kqLk#644xC(rlh1;(labY=Co9SOU3M{<-6>V+my)HbO0Y^&q!z+px|#d+DCk>|RnR@loSJ6l%v^Ss$!H29 zY3G*`xM>YWg~>w--^)7AJlNLt;@coA&klIa?lNLpO7 zxvjDY9#k!1FPSqDiS7XfHwyRdW@h{KC}8^*WU&N6EMSPu&NBTjL*8{QqNvx)?^vX> zbNdeX$kA%t*vJ8oU%c|$mp>hyv*qd4mkP5QxDH368?D0M9GEd=!iGNcM?YPAWY&Tq zsZDQ;yYbFP@5ONy1I~YVdBU^D>tC&(zw?!dOAXJgj=5lpsmqIVTmEy**Uz>%KEbxy z+x2Prlh-QG4-0>MQ1;Q+He}Yh-2K*9qtdrqzWqM;%fmSp6Jl@AJ=G^Hs?UlMXY+FV zO-z{i(Up3Oo^8-xdumzRZ^fGC?Q0tj?6II*m+{L#Sv29~f&6}JyF9mYyYBt6MPGLR z@r$}YJTU3G3)!ySok~aT?UA=SZutAPrrge5x!OK|S5e8rHO z-#hzxqX5CGXG}k~@zW=dJ5ScRabt7j+0aIF+TJ0#VI{%+x`tf+P<@+FCL|2GT)6$uMWKrx|7vjd zjI;SY28?)p`$unvu!)2ARz7%j=>vz>J^lKpi4V5>>Xl!mnXPYeo#Ljx^TFHW=7%M$ zoiVC3`7G++cf+71KW^T0`N&UoD!#k^;pPbUWP@(R?q`=In!U4kKmYK)fu={&naLY$ zj@I|Bw;3FJopY~jzLCV#|7hp{EA#b)87ngiUYs>7*D>_tR#PV*c;tyER=m*nr;lg; zl0N={n-}^I&TvN@LiKj{kPoj)PhHu1vbd=9-R~QZn|t81-RFz7w{?S~8?LWB)9J{! zQ?CAeWzf9XT5%6NeSeS7mOXXyz}v6Q@NB&3Sn=H9-wtk>+WEz>g&=|gL-mQEBa2`g z0;_NS=5*%Nzd7CCoG$5aPWS%-r}N9^mJH6EYHMq=q@~)dHcQ*oqGSu7VX>rVq@@?N z21@K+oqbWV* z1tLxB>$EBL*4;4vr7Dv(7vobn*1TJxAO@#%oQWeEM-wO(}gm_^B!9u9n0ux$;BrRozM+p7Ya@b+=t-cC6YP z`TlP;mX@qf48PQ+{<6+b4s2We-Kr^V`Z;#%XC!@ntlyfDZ~D)?`9X7Q=Ush&9JW7A z-s;>p(A>~EgFmxr%MpXPdhkP9eXc z)2s!D7Y|+>_4c#>IR5qJ<3kVZ{iX0`1iS56WbLQl?%CJ2w9|@Wq#2HH_Q3 zXZeoMtKYPY8~XT=CtfOk^My^Vr%nBE`_Mgy@(<4~ua#UE%@bRfaku+6T{C_87i(T> zwJYcHsK~)n<_?nE?I_pgefE#2?eioe&%$oi9lKMoHRs>HdP^nPZkpG>(Ur(U`-hi1 zPxpD~%DKLizWljL2V-gMwK~0+6TL`xb8behk`J z`T2`a3`?nX^ys4eYX`sC+}t~+to17sy!zMW#p~m)Cpn}g5h3y89ao38>D~6=w4~d4 z>rbv&H8^VZhD&dzCO`CTboNW5`>b1A^xAV1fB9y?J4cJr)CJ$vc)IZLwKus*(Ydep z+tei~{f2Q*gZsDJ3RbUM@J3qF(y+DbeolOqyM8S+tI@^!>tdtE?eCi_+#WHq#g&DZ za!zD*opRgqRnE^VZ#JBB;^|kf#J23V?duMfSC$UW%gKA_&7(GM#LOO_&R=xp2iNf- ztF+#6GrR8W_x=0By3MF-FpZ5lJZi<5{4x7h#<}i4H7gcxrmd-%s7PaADFT16nfCWc z`Fo@=piuaGq@0=+>z~cd$($`CB_&O;SyBWO$6GVfGum2<(oAV-DXCV@l$v6-WS9hV zn!u%+%_+$io-0aAOXhhYSx6OA!Mr3F8Hu}Aib;+)S5VuknU2kK9EA`W+HvOspR`Zmx zkKeZ{_qP*$(;oO@=A;Jkjheo=adh^HONSmUy}&o@vB%UfuU8CjG~hE!yQNRR-f~#2nQh%0OXuEybWptgzFTj` zJf~@$Y5%Ow+CyzSkGOX7+26eLV!oLZx$WceX3LWg{JvZ(+>pt-L%;V*z=j;pL-?RL5%xm8@;flJ4u)WN$rbjjV&GM|~ z)qzRP($@UEwt4wmo~ikRgp-fAX}dgiTEYC1rA?XDhR`2$R}STUeB_Z~FQ3Zm^lFb* zQ{R8*jp4`RpDEig>MN=34;zNwH_g>#QrDS{e!1{Yn|{}O|2%rjwJq-*?-bL##n4x{ z-!j^4ITp9*%-k-HjIiI{3R~Fklk>xttU32&%Zuk;nzZ|s7nVJ??BJ4zyM@dURu>Lz z!EGvyj$C?X#s2R7i#ufxSup+U^)XxH%gHk~ z?7#iGOq<#PXSS`iozi@k#Bz4-DqRA4zG`XlBgC6Df~(dj5k=-*@R((qfjo zbL#ZC#iwJ>yzu-Dy)gVxr%he=^lZ_n_tYhM4aaha#|qZh7OY;r^7=E`-gSAublzF| zQ{wThtq=6G_mAAw;kSP_*fDZpizUb2N~pVdw&mIx^Pv0>A|s1V*PS(@-KuAYZF_$3 z>DyDUpE^0;)N-F#@&QKNC{>~pivF5Eco8?W?f6PMwM z#Tw!CH*Yon_`=GO=Q`Y;ow0cT<_BJySUl;ipF+aJP3FZn-#xqEHA|Fgpu~cjlPA8s z%Dq+g%wM~`=dFh$Zay*IzUTU$Q<=9zKkznb-Scw8tFl8LzT=&Dw$_}`aqQe(|7;_i zh_2Ns;*$@LXcnLQ;DHG}>TGj-G%%ypkyCZ{tody78}Z#gja&S1-+tPyr(XEPHsAnz zY<8=sww2bnwdnNFiLZQiWn%kf9gX+rb-y_6H?8xleWsuDUO46W`E0`;{C#uA9Dg^e zXveFe;jZ&Z*ZN=W6mrCw^m^RtvfBGErlve`ZdHf(hj9(aL zZj`r6GqTsMTQhk;AMx22j?ZiI{QC7zy!vkA$~~oddk;PF&G=W^73|#b?f(6>mJUw7 z`OAGNN3M3to;ZI0j^j=Hr6oQ2v!~Xo2R{#Kvh@3b-EWRQux#fpKW+< z+K3;sH)Q0zJ0|?<{1ba?9orS#sL8y{XF9)h^~r!GfkiOs-#tN|<# z>T*+<-{=CteB`ZfPMr^_s?DpGaQ}M?grvwXfCH z4R|WH<4enjX+-a1j>mQj|J>Zh`OxF99(pBmBD4L6ZR?Nx^Wu2NuOVwEju;hI~Mr2nVpqBY;Wob}Yv zNNd4_!jE6vt6>ZRMpF4HOwH)lWU_4ID@mIaC3 z->nzAyMN`zIR|4teChPVu6?g&HZGdlr%%P6i36VAzj*e7@6Mj})Z2OE$lOLl7Rzg0+~hcO#W*AbDm`zazB#}7r%Y2-?|$C8tz~daj=!bild{Q zpMLuD2KMc?XZA&cda4mh6q%7AX4&bHV(XKonQbi@}9b4m2PosHkW zyrfIp%bO1E?X}1?am&&A?|zg%de<)9^~>h|PksFA&D9H6tlZaqU-?w|vE0LhX4bhj z;bX&_6YIN^Vv2_Ud@F6xQ-ja{a?|?7{B-j8j7uZhzZ!QgamB42 z$6miO`p~3`i|t%%7k9sz^!+-lx4qj+;qM{y_mELp+bBzh|La3$&fl`{-?H!DvhUxr z@Ba$f7u!`AnNw4(85S^Guo|GciP;h;$^Qk`fWVfBhua4HGMO_dU$ zHeU&KxiOr{S3-VPHZDM~6p&UWFF*%*YeMZc;^MpaD(KfUD?f+iDv@N5lXnPkuoX8O z{L8|raBq=QsP@%NaQvs(EqPsV<`&ev;7$H<#-)5OhMTmoZi=9auyz+ z(gN>(PU1^d4^9ewXJmD5fw!gx%LAuN_2+0F&^Y_@gp|2Oj{s--C}#Z?VK;&mmGsE8 zFNe=p%$KBEOg>x*0)i4OiWP4@!@;yIvc$0!TB`>*S_2Q@HPw5&*4A-;I|<>gX6elKEuML_}n=ITZ#^Kd5i3#1pM@yj+!Wt%2%e*{KhuUm>V*NQxGMp7&Dg1d-yw{g_0=QC(pgFfEL0thkSSWbY6Dx@KlN6v&+Ghi&E?(Khj(ib-sHAxjP8YN=Z@Ap zJ(yt;GDZ9_Km6tK72RJLdwAbR9hY4>1WY`Hw>m`UvhL z!nUse{P4h-F}H4qLX_aP9#3 zJdF-1<*kzZ8U=tsiXZv#sHkX|dVqVW5CuTtZ*ck*z5%*mdcx>xjgWp@E5f+&>1X2a z8ut~3GyS%_=eNu5n;TfD+WHXgVAsU1ID55HvIRo@6cMNAP7d>$KiarX;( zue!qqcOAFrVSv-%fZJe36!D{A9N48|(RX8~GUb5;pv0lql{iob9OVc8d#DfGr9k41 z_bm{W_{b$Mi&X`az(e(LJrw-GGm6~YiG`+!I>=BP4z$Ca33!5lW5!s(0r^S+LSeb^ zY>a)S14a-sg(EFu$W?=o5oSceCHbAxD~FchsfdmSa1lfO_$l+JQqdO#O#J);<(r!z zxNi!)zdWqLV{a*gnjkPCl{1r);B*?stVbLLhxd}A@U%LOIx2zb75vY`U0LAM8Sa(< zU(gMR&u2q>7LMv&(L!4cFeMwnK?7#lwGlFmfsqUjqltf^_IM`sPoj~41OMz43O`|p z!<-sTCM)QAWzJJKT6UL$+@Lgi1#L7uSD<|JGKBA(z+%8`gqX(xggFq*MaWPOdxTy9 zKcA)E{1-wy`Y>4JLeIe$H*MKixc34sq5v;02EYt4h6hn28oaqghtZyx4=?bY1y4cj zF$iWtP!0h;<4rjSfUR^NFcGC0U(;s5^J^+ThEbOtFz^&n0!W*>Y{DqT{&yOyru>Gg zcq3K3fhr!YinFSC3soFOZmdP}f-iTO<(*d6E;>Yy%-SS3>v4;`9Wy~0d-bW|zo-Lu zC3ZOt9q4nvg>$GIUsfz)hgQ{biv%7xM3*dBl0>WE^oX8vD5*L*!4(wA33qX*u8&aG z2#O01n210u1+pc)A2$roi&(sMgS#-x&*;J!sV7+lFZ}gf#0WxXGE*xU!rgZfta&p>O>6^+G*<5UPs~;Bz#W zWEU;vBk+0(asvkiCsObS&n6UZATo`*Vo0nm0=QabWhE-2nbo~g3U`Sha9$5Lj8p(W zF=)V}5piAw%T~zR5J(z3Y*8*e#?wZlAo2p-G)F7){RO#k7*7BMN|_g(HVL4HKgE*= zJi$c;bh~m*1YGrCm<0Wj0We}J0KDKkKkzuiU{&QyJ|Aa+lSVnM5uWA5#|ypg8D@;| zsHi?LQGqiT>`q=!Zry1Hlk22R>`z1wl6y@={DgzA_=r~6SG>UrL|PxF-4I}~=KA1t zq8@h3PaLd3=~(KAW_z8Y#ZDCs@LSzMce}9JpU)v#sn0i%DZvp2{K2yY^&G@Nr}(d2 z0b0@8JTCC-G1@CyM#+K)x(w#-W^_>pqjC)`>N5u31C3NJ)u0-vOmr4WV~oj(DO@!2 zSX@SjTpUkcw$8*7OJ@_8n2i5V}=vPyO=V&=4R%!&Fso$ zc1^t#Ln?e=UqHX#TxcYN8;RRjwN;H!r71LG{gKmq4gw1;!Z%c5=R3-ZU_NaV^uH1Z zj-$k3C@67|?3FkW%^aE+x^Nzi0}cD6BORp29-V-DiI} z0djx~K!KLQmCsj{L+ce!20+pT0ZH>814#oQX@h`7mN5SbENKBGT@aASYUMuxk`6!$2?A0G?zlPsbMl4- zOSMTm1i%Rm0!|nPXWqXVoKQt92m(}s@g9kxV4S!IO$?Hj3J{}1a1;q{xD*U{pyJ97 zc%Tvo9;n2D2P$#kfl3^Bpb`g9S4#XUj>9EbftR0Q4F+xrZUH#HQzyZ0#;`IQ;18Mv zyA#8z>$@hwZo{y$`mRZ^doZ|;>h4KGVQRs5-QBg6Fi3*0xbr1}NdVByTdi*FUJtOV zY?;6lHaVz(2NOPQB9LJ~gnTMB3;@u=qoSY_@RW~n0lF@g6I^hHt6b+dN!f3JC+rbG z9rb_$fpi#zCe>n4>+pOtTUkK_4FqJ-hKdMJX`s}B2l#D3K9f*(o-;s7B|OYZi=N-jMtG-|*!RRbKb)(=)L z_!%Q9ImG1??|8Sl1=PM;gX3qZgK;pYWizPSbl5&nSU z0VqZ2g%yw%yE_D#N&}Ov1~ix2aD=#xP)rz9;g)&G2&;7P7I${b^anRZ+9qf3UM?d`8WlIHJxBV(-LyZpgJ+g`ub>G{2t$tOQqcA-s^ z=iat_J@TZJe{^tR{Yb1sAyUR-o}VC1*P(f6A_9xi<~_x-dbtN1U=*Uz=)yxlt^HtyH^ra8XOnEJy0 zrW}p=}v-Q4qUH8?_K6{~O zuh{cbcTEN^GJ0*t8IRc0qS~jQdui3%pYT0C<%a&6^320q=1i_V|FbuiY?zyZ+SQM} zcBt!%gAUKFm^tWsIk#fmi=$@j|Gp_RarU+!hSnG|Jhoocn{%ejt|bqd-+Dpm%yy40 znebw6!``{|-Hk^lr~mf2pnaA1oiKPGqnIrrR*m-BM_&U*6cG|T8W zn#P~{`t>imHM-RE^0yzKZ4@fL!9D4jFLye8aBJ^NPY&<3`t8FFK6)!*p*?x{tX03( zy-}e%O_54 zpIr0UyF#y%=Z9?V5qI6pu0FkX&7}E{?0C}F{Ee99Q!V zNZbBq`0=Nvj_(jMruE+SzlFl$ZZf)ba6r`Fm6LAQiG65t%K=T3XFmAe4(~T(>lQ5V z{BvMrZl`8lx?J1QxNFAN(dR!nxbXYoPxQH@zkKNXHfn>&T|j;jCGhnpro{{D~kD__ZNIkRM6)K8&nzcR!eweH_m^VO30XWkVTHe&Ox zSr(Y;|F|FzZgDk#(dOIRzl3kQ81mAReg|7LT>r_h55}L`*?so0n;_ zlAi|mVBTBUf7+vcwwjhT3E9~%F8N@yX^Y2vo`*KAU#>k}Ht3fF!(MJVBsnVP=N+Fd zDV~+ny&|DTQnqK>$9=cVY+3u2@3aZV=BK~>=zPx=hH>HbrYC(kA)e{J<83c2eDZ-AqpUA8N6%bvyz%DE!rabJf937c^KiTL3y&RX{@u?pt-^lI(|?W{ z)L7jdV=QD;2XP(1AtZ(?LqQrq6D{&A@lsL>dN*rb$tllOL=zVdxr<2^%if1R4$5ebHCpf<*>net( zg7cKHmZCmkaVm{3l}4RP6PQZtOQlt(BGU}4?lf>krazTVol55`3#Zcg$_i1Z3JFXV z;!718jkQVy`cRw-RA^y%QHfKj6NLE^kX0v60HUMf{X7Xe*7ZmHlLLK#TWzaRb`%*E z6*Kg%A_T(|WLeOCDbnDwIxwwP(6#H*I#g>NQVcpz(7yYNluLNGA_l<~f%p%eT~WUI z-5Q|xeg}uD@|n#w5c((FEb6OcQw^jzCU<#@ulp%{e2F-1O_q0|r z_}=Yc`en!lg~F~Ej64L4qvYgib zE-UX5Y{>U6r&Ms44-|w^uwx2KSEx|ehgNtpUJR(PhAjFjgxk@BRM;*js?IAwY>s3CIB=oZ#R^ym1MCU<#)^Cy{&6^$%%?g$LGygP;{%&muTo z#u9s(!{{n;7a6UV($RW&k9TKeQR*yOfEvK40Bnd@)x8SsgQV#QCTtP1!{bT>U=key z#(?=A6;CgMTuR;apQ6JI^gX$h@xKXIVbC;iEyhL6$r0KDHleWXg%ElV zA$0Z>iBClu6yqh^P%u4^sxzw$A>cz`M+mn_3oECHc7*gLZ6=AB0YM)J86KESs+1!j z#J=u{rQOJaZEPl6B~7jH*jnMSY(aM4yx#rTyq>we`sQc#%j?xs`G7k#lO^c&h@;rP zprCU1Dqwl9M{>Z0ODr)IWm~dd%mSdm0fJi=C1)mUPEF)e5>2V_GTSZi9>JQ)a_LE2 zMv|E`Wx#7fS=LO}l$yk)B$+ugPMziTlt}JOmd&yYV|XXrCEiac5`|L8Gf*g!MURll zDuyP-qNl`LgiTC}1fiUy8YFpH3-5#*%ssrt!#V`EsGJpyKmjc8VLiCK&X^!9l7qH6 zFTZ!MzWuU#_KSv^@w?`T!Rp6ADQP4t%4}&`VoGviIxWFyG_v`-{9jF0;mtH!rNIq@UpB{w;;=G4B6PkVWQg`)2>!H zR7Sd(1=EED)+NcZSY#L2Qr_+rPL_8n1&Lsx;&oav4g&uQ1W#b`tVd!!Zm$4O-d@I+%M?}x)C5*2 z6`X9D=qZuB9$JO$!v(=M!NnbL0U81kL%PWaAsg?Ml!}5jGzhdop=5zVVMd2(%12;? zgXK$BfsIkREr!rlmenc(UGsL<#k+Zj039LPFh$Eytv@fuQK6E*kd@rnRZ^1b|#hX$k=nU_GKkV6jD!=oYLAY*`8KfiFrvAbUWTEO-)qtx{13 z?mE&SLN2V|JePIxvRo#)tqH7CQoqN9?fdF4myDL)G#4AwTaZWb?$lI@u{;~DEy0&l z_KhOZX|a2)f)xh4ForTBvKsLhFAGjt^oXTGSKh)ER>>%f)A3yH;vEauT>wj+t8u{>PD1VoXRn39rcV&zey%OzL|5M-!5Z+V^IQsNhmnD4G?vYRHnF@@a+W(JuM9ov5oM2Pky(pmw+r|}xkRM{2>Ap1 zEEb%CTeJW}Hu~rY`dqXK7&QN+0)-cNc(Bs*w}*|6j%K^|Vte-L$L4g+>&JG<>CtN- znf`j@^~_=W_w12VP{0oA)t`N+XRm?m!0uW7;McK9&-Kk=yY|ZK*$v8oW>72=8ljQ| z8>2`Pl)RL=1c0~kb~}tM6*dW?U|NOKBBBKts?s|O-nwFB7Le~<1sm_Rd)OF7q7YrB zDSq2ksk9_1=68z7Rlx9-!Mnsn(FK#Gxdodz##eMfes4CW z%P3dN{w`}K&Y{fZV?k`TsG{ul-N=yJ<5=kR~vE8$P zi1{b=xULCTc!A!|O)r9j|I0xJdrg6|bDdTX0 z4y@5c_#><4Bno@-l}6xJ=mLu4SX=@oFki9&qJ>nnnl`MTOiKkfAxmE_tK>2JKqYkP zhm}w!!502V*(`8-fWXXl^znE$6IN~{tpck;!;o~Cs$GbJSB?5lfL^clRZVi=C z79GoGOAZ$(b$_P=B^z5Lc}kQXR45)32A-SZ?(9jxh6(u7-9DO!1x#NQYC`82MAp}F zly;TjSViFgf+)!?v%K5Qmjk?@bc3b5f2qa0i@mUhk~85o8)ssTEL_2jlP37I0Kym# ztmY&vMzC>a*63Rmvhn03KM#r?C?c6P`qzG}mG|(lOeCvAe_~j{VG%czGz4eP8N^Kabuf%%AFcWp9|4Ql zxMVum?i9geINd%@-wc5O3?8{wxvpRo7aigTx=mQy8v_*Dxz@$D>|_dSQzI= zSz%0Tg~65bb`dsLSU4X9dJMltMbXd!lKlfA(^KveBpa(LZWtTg0aobl7*Ma!8O>kY zJ*RLitNWEWt^CW!pL;?XW@s7k)?-7vREnDtP3^6^WmwltE!^m7E^sEP01=LB{zz zsE~*e&I)!}AWMoMG#m`J|1n@n!xUH)R0Ri+O5ye@qbr~bs6y2WO9z4i+L^vF#Ims< zCxGHiVT{0ZeSH@fob7bL6G6ZPaR(r z(p@?$dRV6*SY=QK6$wy}U9^a>^n}USQ^I@LGJz^YB?Sy$dvMjzPAZnrY5U%bM3!Ss z!`Sw0y1MDG^co{rydHs#N%FPU;ez!XoZl2MN|j!P!9_=WAd%gx7`a3$Q>mZsUFsj9 zUmv(mn^^1{Vu47iPXAPGcZp~feivX2=w0ZTGAkc^FdM_ZmYR@B8cfSU#^^v^#Pr9r zcG2Up<9!Cfi8qfZI{-=tnM7d0ag0ZBDl zU=16_b_}xc58!L%vPbY~<8f)S7aQz=Gn#VDq^wxMSwbj>j_JU*7nGAh%vPZyJPwH_ zK;feS^_B55RydGtA!`Bwz$yVB#Cix(_S~%|pN`?4b5!+kMf$E9=%V79s>}Wix&lZg zaNOOAvA`<-IK~1hs~*y-a?k1rNjA|b$|bOYNTeq#MUtFwSBgoXZ42yS6}*`7Q(0d% zCCWa{4pIMu8WlEMu>`MdVyPu}kHp5~6f7JL5oEf@hUInHTQpLzc>FSYkz_3=zfu&T zpZ9opO9@^N_$Bprc#33WVqmQg)C%n1zdfp!*|BO7V8wgF1-wmQW5^jzs{}_YU|Tze zjiFmtT_vaB{{>59U^a;{Yz!eglV7eTdPqoL~PYRUqF-{5y0s`fG{H2Rz zEypswUpfagXQ{9em*V4?u#^3t5$kC)71cPFgR?vykZNJd_ed~>Sm~CHM`8=(a69@* zM2`&m-GZ##oPL8c*)m=vc0s(e9CZGrqU4qBw@3S zBRattuo!4PrnOo;APNJ3Rs~VV4lI7ckxw`2}&O5d}Tp`nG{xvR#k$#mSc;_Gt9D%;!N40`Jg3A@b#>FaF zM9|lOZV8!T*Rg7m#dAEp7xv;?lY~|ApR>hu4_6RPJ zo%)psE{jYe9+aV4`B2 zK+PT!VMTkd6$qua0obb1XH{htY@$=JvUVQZrd6R4H9yC$WHCQizs_|_4#fuNPIe0W zO?XewKb*-R96;2$SZNes%1KzeZw^<@4xkvGC zuvf&x7}nc9JId1ZM3Wg0X2}jFwsez_a4g`dgd^Ooe!A)b04O<77D6&~U}LyM{GW=y z-ANA06afBul_C{Fut;t=NaANsI2Ek$utiH@py_L25XxxxyQHBWRJgsWj{RL)Ccu-m zwAamJo1@&mz4CvrA*wq5+SUM@RJKXLx{>Z4;PFf*A;KE4)h5j6WbsF*@+#jHqs+T~ zB}SU}>|F|rfB&FxsH&D~j(F&QKWM?a`FDF6@Iox{e6|L6q9(w`h;Es{#6;VF=VzZ$ z;$2fv3(C8GR~c6RVLS%F^9N8Fm@mknsTMW|5Mdo`74bO%7_(R>Ehz>*freL@&xkh6 zfd~Y?o&XzqV2cVD@%MFrfhZ9-?_#`lhq|6ndq7+NSeN?euz;m1)i`3q3GA!SXWc3| zfmo~wY?05B+t17alvwueMQwExmzOtP`Ni=DZ{vvn6N2+fGHnAG|Xszi!%S*=0BeSA_cbp z@SzxN%zXg)42m(Exf45gjF4*LoQNI3c)AH5pGb?ha$&Ix#_3r2qW$9L%V4eP-<+}7 zCCezRx`Cwrop(21))n@HeY-gRgitu{vRF2o*eFsPcqc2n1Ph#*11Z44d)UH~5~IUm zl;uL-mOhobF%-&HQJex6$C`(M9fuL@IDF_Dki>g537RPv!*z_7!MU)2P6lba6_NWSD3!PGFlF0-|m68kDj%*=Bj83W4XfhRI&Iw$Q;u06F z#wC7{&YDa?@kJp?zWc`%HVu%eUe3m{{bd241EF2ZWBEyq-k@MX*FuF5`tQA;~tM-v;*s=#o7*bZz=cK5#24&vVF#$=?am=*5UV0DAJ zP`g^;6Y!C$06gSbi7#1<3i$J(L-8_;hc`w908bVj1Z;KQf)d!e_L1zJ34nStl;s9! z%t?~IMIh$can&r##@vB7I0hC_Yu};*0X*;a^nx=nHpXc5+r2AgQqGcFhRY0=qCfF0 zqE4Yq?ZFV(f!ZYbEr?(QDb)ou!G}OX6PS=N4nf$p6MIZ`=784RHM5M{Y;@vA-&sgN zgYQ}h9VSMb=ysIxZXj){RZ?0KfR?+KL*25d%LyPYpCM{>CU4rgzC6l-iaRHK#VoxF zL13MT-@cqm4l3yHW@b)nCd&&L0R04q3)b408tJlQM5*7dmI5%s|Asbjgu-lqSpmcG zlcc}&F8IVBmGG6)$uYnYLdSmG34yI zQi?x;|1fWW$9St$=Cn(^HOW_!Oit2N!305I9vs*riW*=7fNnsO>LVDW-tjV#jiDU? zCJZ1k!0Ba>^8RQsL!HK8e}Aqh7&Mt|5Q6w~#bG|`E00bMf37Gzzx#^v&Gvt;Fv6l) z!hC&&22MnOu4EsT(X~J(TS~DRoU8r0TDo{eJCWw`79h1m3E+!Gki>|k_&-+%X$hI_ zatErAbsvB?e1Y}TsRd0S#9fEo@5YECoL?;;7k!cHSzeT5)+8Pi;DcEd+ z-4Lqt_U~gkK-$1oaj}Z2H_?_8WiFY2$az!$(a{*EzkVNE_B1=IcN%oa+hunl~@dz$;1(-JA13rRCL=y5{btaLN z?6m(s_TJ_i48!)^yY(K**@4U0UG2nl}`v)%u2E6b;Fk}4A$Nh+i zOn#KArg~;LJtZ>Y#=YmBd+s^so_jvd$b!LxmfUKdK?_}yTFcE;i)4KmFZl^^1;2^q z$7IK|<{!{XZoVdwRwo2?7dc80tqnDxH%Y3Kd^CuTlPWT^Vm#<}7RS!6m`-!OmP}3| zjsxU(GI80X><@2x_aj6qL`(IX3;diTP@L?8R$?~SPT5LVAsWTHn6Ka znz3y0!R@?|?D+^+aD9vuXTy*DBKPmO>ND5=hPiRO^Foc8Oq-#2Tw*gi#* zJ(smG0nX_f;FhQ8oY#I0DSj%MH_*f8|ko$XWYKlO1mR9e^8)pCI&I_}) zB_5T|p^`7vaM_P8Y1Jg+qC|NcMwuQqVFWaBJSCCsW^P605*iA9`x z;8Z1^S=L_Aw~JbbXOUifT0V_&LG!%a z9-|cJnWU|Nml9=F@LE1EpTQ6RW&S`;nUr||86CVvJRqHM_SLzgWmGyP+V1u#X_#hH zu)X<*#ki=pIgrSD6+uj+$%_g{9Ph0M5Wklbr?`R6>A-u74#XlyEKTS^R*t&&6dj18 z@Rr7@NbX(ZrqICaD{vX#Pb#_dPqTXD?qlAUiF-T{qDMSurm}25>ud$^La4S+t@2-0kGyOf9&cP^Q#8W=8k_j!{F4 z%1edOPTcFNhW>3y++*?~-6o6-yYtheR6^BKzR5;fIiR#mGX&%!NsTCkO#$$0r1+7% zKnO%gSjdnMcFs4ae6A!pGtcWYMbX9#_ndi_A+OYFTAitKrV~*4P2&o=CI>=#)o-l?q+)#oi9w9=_(rR&2;ARGu%CbM?1xqf9f8B0e5zK zhTF)jk*DNw69+C4PE+yutELGOOUQ*8aGhe)HYM1XO>?%icYb;4lJ-%KNVsO`x>xX7 zWW{FL945nfRw8>Jcqy8FpEGSJ)_iXeY}XZJ%OXEZ(OB(-4n2nyHxp9j=6Omrom;Gh z&+VolTwA!vIcuUvKh~?fJ&1IJZY^wxF-J_ASPq45^ZBMMCgT=8UwsL20%!%Sxd9yU z3(McvkZSG>`9YEAozTIegVdAsJeDmgu)87jL;dvrPt{Fvn4KgsoQ>gvz~)wXlf&F+ z-jRFxyQGdFwbi1zkbwX!u##?aL0rg^wu9_na4Oiw-0&_Og{@9!#T2QC@?eEi3WE_4 z0WC9mhSHNrEy9h}5d=WNixV~+%NW`<#rd11jwF&XB5poyx#^+|6Poj!y#D2O-07h~ z#;DVkCO@unWrp;6j_z?xDR`{la$|2JMlBwjf@)=QS_01dN6AF(U8lWJp}3M9IS85r4HD9@JN3E8 z&*eaR!Z~0^Iq`G}_Q9knVo!n$kUv2j^0VZ9W!Cy~HByqYT_Drb8O3-&(=KO8Ez{vy zJ}Z>0Y}Ui0Sy7!J3$2^CMXWU^TKD^4X8r{dD*{0(7oW4}?>4VRdvXc5`!x36i@K>s zj4~3&K5y5l=|+w^%sxs^9DSH1nMY9LGwqB`aujl_f%vf3LGY;>*Jhi);i88`RPb=Y zTw2+kXW$BOJ8#lF(0OzA^oco;l{MNBZez*9*Kjd&I}_Na!aD_jIbg}=5m(f&To}LI zOv5-ECbZMoF3S1RW&1nhs7%pGYSnjJMcg6@Dkfs$(>N^z5y~81!m|_ENY;TWnXU=b zH{=|l5=7`E1@4thgE`@@+BvOz{i^n5sHLZmlg`WtD|>V{oXHV?8$ z2lZ!)kAyV8#X!=7KadcMiaWRTb07vFp0AB|r4zzy>#-#1tw1|SG2k(NWneNoF2q_A z9Rz`6Lby#*w!}&p_1JhDZ=;DW;$2wbz)Haz&f`J$2%v(UG66MZX?QB&I517Y0U2yr zFpwa^iI!YacY!{<*(}J%!XQ2zCox@)&ZdH1$qPf;6X4?%Eo3ay7-M5N4U7aR)(54? zD(ir-&VT!`UR3RMM*s$va<@YPI0l!bdl|4YJtl^CQ^&b-I-DC?P)&laNDlLy-!lJK z1c&mT*&I|3P>!L@bhPB6#W(zCTiCHBk=m(OgJ$3+6 z2U9C(Bz3vYi6FqHwG-Lky<|yAV8j)YRjwaOlzumI*9kVYn6@gE7#@82;?;{sy=ObW zc-edK{Q1k?%kBLy@0o=`v!OYyHv(6IFNULXz2;txR;! zU8$;vmYY*NlJsM(v!YxFr%6@~I{Jx477-nJP7UbS*_16~r}22uce;cQDdsq<18}Bz zUYs_Lbi*@%`sDA7ip#nnAd)IB-|9*eVe7aG_u}RAA+QQ@3%_$lSs$kQ#lY3oF1^|0 z0~wiCRY4KK!>MJ&g_e~AIlYP2=-;2WbVp*=*B!xoo%QxRm{wEDk)2yt>tX_~1tG+g zz2`hLUyWUmHA5^*b-_G7%Em>7iI<+CCTgxCPA#o1ndHVt+iR#CLuw7%q)Fi!`2MPn0L3!fy4$Lg zv_PVrWV%c~LfADv9a+1rC|6aOX(Py*QCk+?6qik&QR}28)buuov$fWMsYU;Z=nHKC z`#BsVG0U_x?}{A7aUgrevL6Z(xJa;IMtTtu`$5$MtA9%_JWYkdx}0j$;qiMzr6Do@ zKo}CrYOP5m*uy%nd2Qlm(7eZTTvzbm>9ge9R7xsGO4^hrqd+lNlk1i&I6NzAgCg$% z$Edb@(5U(poImZ{-4WD23KRirsWiR7Zi8eyz>;UT1nD!DyiN&gD<-nS3b%|G=E0X6 z;~;Ch^4o&Bx`wmm00cb^W(4Sr`IWi-U|6=u)o{L{N>?8wo+_Vxo0v47stj zBT_LL994l#XBY?`TY~_=tu2gq!adLI>IZE}oYw^`u;*q>a;mPRCi4%UABD!7l&HJg zBSw7`P`FcdYiL_Y&mI#Gd6i6%G75udwat`15$zax4wyO}9v19zzft`{`qu{;hlMS) z%?4z15o)r>-HU10gf_)AvsTL(=ueLvnN)wTEHX89lJk~{>cIvmy8Q9ejIp1AC*4ls zQnDU$MJJL^^`7UnUse$bT>%{5=^ei|Slfuo3jcq9s1;KG6RnWiUc1*XlzQ|({pVC5 z^$(~BZnOR^Rj6(626a+@^@p4;k)t0F>!5*|uL( zUOn7i85Y&bG?{$zlU20S;>78Ml8(c;MuAd;Mc-25*Xc3d#$&2H7L*NtPb{#)pTk`87G6GDtkRx5UZqzQUOU>m6VWvl%Mn_ z@%!E|&opxSx3i>3lX9@u@7vd$;|i_F%_z^x!Fu1!%A|)5_^n;8G8xVaI3kgO?FhA^ zk=&G4ZIqQXz?pD5`W|ZqXg=|vM$Nn-9c(0&VX(GB|HrAY7mRUUFUW=UZF^b2-M_tc z^G?6d|JhnwTRXo?gNhJ??d|RD#UM61@At3Td4eo%Najv})f6xDi|JVOOd;Z>nJ^yd!_JnPJ{M#GXi*jfV&sJAg%~$a# zr(!Ku<6{Q3W#)F`<=R4y(@&Zfh{iVTCtq$AvkQAxt8?9xN1~WzF5KJmU_e=uNd*p`?PxgCEo%g=|rBfVQQx+ zIA^Vzj$KvsJw#-<(>=dH9Tk2-XPp8;isoxM*3`bmbr{^!%s1Z{d1pV@cT47g)hE7^ z)BJzj;@j3HFC4$!IoC3M%cnzw`2X#2NL(wBe0zEkS-iNE1w^^T>Tb zCi<_*NbfbhXFf!_iw2P!7r_o*v&h-kqdOzh?{CrnA~Vg$>F{iDR85z~bb{4cM$Lm{ znO`o$Lwi{ZkSv#3dUUjGt3WIl`2+<+agD?l{iwgOb#rZN{Z4ex5V3)&2_1v1{M3Tv z-Jlj8T~6XzpQE;FJbsyj>gAMQyPQCnjQ7@awez0xH+raPyx31N+`#Dw>}4QPt={wF z1odN|pkq+j!ZN)rPzHfM|1|3L%JyYpps~c!`t6ne`pVimSt)==s?h8OnUb~Syn?<` z*qK%YsYI2mTnIPhh>fA-@IFKiHliu(1#T}=&=zFDyom!}HSTh51zRQ>Nzis)30r&h z_D`*jZOgX#=YqEFHE>q`}~<;iNb6R!uBR{sdf*!nbZ zp(?hG^*^_aEmfyDXYIvtICMxpud4AC2_dKi+O}&hR=(E9+?@KgL6e0AY`LWpnzU6S zBm3Sz-SV|Q7NveIJ^CKY*V1^FSGLx#)h2W;SSw&_7xpwM)Z0=onox9Cvn%+;YqdXN z?taPTMb&G=&)Un^hHbq1wfaKm;1{svnOYPI6EGy>n`e(Tz` zEQG#I z2WB**KvUExgWgc{wwmMJuET^u&KD`eM#o}Y`Lx%n)wyd<^+at|zo*4&@8NK)`d{b( z;4;~Ndf<`UWoqHB9Ar-@OGT}RDmR}>S|UlR_^E>g#s_aa6NN2#ZLLb#sFLKkmZd`` z`$ZLYm0qA-yVhJuuUTTZ*&5cai`3Xv^0{DN=gg#bt%a7S0+By{-LejX?SW z1~XhrIacs%v2;1FC+Xv2^>rEFLByuJC|dyCw+Bt5(AM!$PB_lni6^B zFyl(=QXl75*0ua`QQS%$9Z68C_tM356|#R^)pTW6AxUAs&#TINv2wcFEzZ$l-}A|} zxjv{_W-Y16t#M90T^aRC1$F6Lg0}&oa3%}i!g{*YPooP>$#|)Py4;o4)8)UMdEtju zO_$NvWK4V=qg(N#l+&f5&KF66Pu?PA@$!EE<#aEEvX53z_u^QyE*-LJ7g6NCi+Z}o zo;o}kgWHG?bVHhCBOE!{%LGqs0kD5Arc35aS+~Y@k=4}5KgYTz1qTp%Mb3(J0tr9y zJeEx7CJ~k#GV~1c=dY%ttw3}8{*E7PRa;z9H^j-W8Pe~fuC9+9uaYDc*5!BqTv->$ zVE1&fP16yH1xNdVLn2IkJ(E{m#VoFOKTc&`Wt&o3m#=Ka%eS_mLDf`D3bl3Vdr~W| zR9ZJARE>weQiWZH6N=4od727{a2wMKi$*=7w5iS3i+sOq0CW zx$)9fcDY~K^xsXHT}3+CD*ag@jQby`&aS|OxNJy*iBLfbRCvx>WhC zwXCj|yJF6ybU=gniD>} z%BU?RZxJsAzUj_ByaN|j)kS-d3QY%gROYo@advK5T`X=*2!GFYb(y?;@xUPe@C)mD zkPAK6*Y;eBW}f=PsH`jdTx(Op?^bU*yu!M$baBxk#;R4<*^s8(usUNiRV zd!7xoChfe2c{AlU?HS(9VlWU_E_bEz>w~rqFUUb)C2j$yQ9kpcoQ0j4tzX4Im+Q^4 zq*;vgqS*ZI%Jp{JRz2_(rG$_zq=7~rMK96C^o4V?GGh!pU1`6SemUCaYg_jzZX>etm&tvgl$W`Kk*IbLkOd??L#oI0HO05T@4P-F@_O|8e@>yzVp_kv1b1K&|-+g{Ah0iU4}gN6D$J^W!~E%ZFd=d4G?R zQ>pY;f9O}ntiQ7vE$T09N(;KNm4mt#0k-M=!!ltsL2&^(r*d)7t7a|M(oD^gl^zM} z0Q!+SYBxWUHy%_RP19Zy&P{5b`>A!JcGs(#U6$-)T`fj=N{P@K5U!Z$SK%9-uze%c z1FDpHy0QGUu%_$T-z^a6CMbkSihZLaKZ1IGM}8el>W7X$tgF?kUdjlF+Y;0D+?tn4 z_fqN7%~ONNZIt*Atk9){6#kA{r-0V|qg1+d{VOJ1;4^YM;5`mBEpIt|JdC^tEpP|q zCE+SvUZJ14r7o}3m(;pcLSPcTT2O z-RBp#ywWh2t!{axLHy)QTHZ3qWO1clh0;Gtamy2dX)f!ti_%c z>W5X8QZ*;JhMCacY$R*1vT4=UTJf@4aZ2ik=Ki`<51WFS4*sux${M-(sdxI?bTkCc zNVPl-l>%~!bMr9W*Y$F07>3+xmk?0e{ywazxfDVqmgCT$(4`n@l+rt=P@w=WCTan_ znYH-b%7hyC6?O#Xdjag}#~%8=O9Zx}&;@2RP8%N!^{rHsVfL;Z#zsaSJ_7?7WjYsci%^? zKsh(DwZRLQH8#SWUrE5Md%VXd08|w;$kZTrj?&+Yx5uxhBfWKWHPo0d@$qI(4H|XD zx14T4NiY{ztX>RAaX(wprP)_vYp8DwM6LUWU~i(c3!g{<8y8Qk7d`{^Z0 z77~V?H}R_Ef?Z{pSHTn{W~x@SP(Ex7{@s)GxL{mra)iMD~cY@01$D6^5gdm_lL42WgLLN0At-Y6loRx*VJ z-Gkh@pbJ9hFc`};Ean$*7{`sg)~)QLt=ks<(QGz{fdtdHb7l@|VQDay@2u>ghv;Ud zK_!I1Pj((X{2tU8)NSo3>HH-ZqMNsx?KKAL1GTN^_fTZef>B>VQ6PhBFsFiFwaTE+ zs{CDR_w9N6W-+cWR9?_d+3PD1(dOgV7Yyc&ByQhTVL>}NQNZaR`j4kDNC7N98@rlj zemZZLIo+xgAN~5Oz4mnTh{{q%3xz_ z)ny*^sn)V6;Ywgb)pz7asxml7;aA6s@21?K;6y@`#qe^q0^N8`qq~pqk60>Dv1w(k z=#XvVsYT(m1_`kZH1NnFO&FX4?8J;;GP-L2#{@~vK&xHcnK1PPjhBW&Y_4~Gm zL}*%c?|Us2Xm>LvM1(@??lRa1g$CPD*`vs}E)*!k)mVafUDu?{$FCD8qhF~|pqkTKML-MplAD<4 zwIIQHSP?D=@N{z+0!3<`9Mp#qDk1PAh!|CMD-ba(WBXi zZAHAc@_{Z(uvV*UEwp#frDC>sb*)iCmoFsf>EtN(WK%w?n}SzFa8=Altr?1y9oeKX z-qdUYA`8L<2T%b=@?Xsj6V$qHwa?=gw zu`x?e-vefxeDRJIZ0^2Vkx$DK+WR9N)Iarw1&=<~g1c!ol~f`%m7N#WPg_tzJIQ;_ zQ*$FP2+{;CsdC7Ec>6DRUi?!k@=0V;*AqW_jZYdy1W{0>O)94`6uvO4gLL8Qa_3k0 z{0FP=x$f$9cw*LtU87tlYhS9)d(CRn7!{!BznxRGbCLRX&m2%82UYuSxzf>|9=A}3 zIj8O?bEIIEElE%ba*ibZCs+hjHz86<)`}Vi0sb`_kX>V~ryp6;p&qLw zU8xzwuUw85-C5^%)z)|3rxhL6@0pJMoqv7)Wl-48ban~^mVfxHt#h7wfF6NQY^ zVeu)Xd{vBHg{vYjS58s+aiy58V#-u>b(Jf@BF_ug7Nw%FU8y1H^@Gw7hwr`4v}Y~ta{V9IvGUgG)3b1)meGC7Pdn-gvC``9`|1< z7E#r1KdEL@ABTT({O{87wQGO$)!DxzT>dY><-cyPjQeBT1FB;FpMQXq26~tA?r}aI zC54Hq$@Hj{!xd$Jw2jEdv0ENf6eDNNx2ZBE9xAi_=*5(M^2YSc+R~dPIQXyHj2zUB z)k1A!TeibJ>Cf#_Qus@y4rnU^Ruif|yd$qP{F)JNV_B-5N9MC>B`NvwsY`><9WI&m ze*ac)y}y2&2R5G(Bl}BbXZN`#EWVpxUUqP2W$kXzWNvL);Ry_GTOCs>Sen8MAx7QQ z$t2E3l;IiuKSsh(nmIjE&ipKSC-aZ^?XPf0Lj^Z&n@e!-8@02ry_4&>f%11*Quq(b zd{zvTL6`K;;`(iGu_X06*%EwDM+=`yDPSPHm}Oj!tV)VW zn#JQSh!;-ou9syNMM|TBpzYlrNtLUjC(;_~fr!;X2s0N!3{Y^C7fC!k(VdcJ0~bst zSAJgYTVBrJMZXO9Wn|t6qqt!ZDbSUrVqBIF_ntnkIUPU<)sO{OXdxG>6f`WxN9HxE zs_I(EYbv-aBXBVpcdofWzZdWIlb_tc|C?1QHGi5Ehk2O{vRsG9R&}Znt*LCeS{-8D zlYCdX3yZZrLK;h^2J!jU7o-;G!%u#~DHd6I*qiJol)d0E&&Q^-#*)EZ?bo+8EAXPR zd0+<5J=k1N7P_D*fksad&TKsvP=@?rKAGf{bHqe@d0v^nCYcemL8TMoa@3;t*E=iI zWCF=jYn2@*#S}%GO_Z$NJUSZ2qg#jl{`##u8*Bak?O`0>+=$oK*W&f{(Pnb@PQQP2 z^XTyI@M!ba`cZ#9zSG}~<6EO!w{PD@@68#BO5BM7q5gPBu_cXNtFm z)TFK`Vv=sCcN1Mqx;2v79y@&kzFJK^c)*%PeMwovsG&@PW=lkb4wFLpEA|#j^^_D4 z3Stp+;Pq~|+rg^ohrRpJ;Vd0jY1XTXSy}bsY!5B!|dNm=DZ z5-pkEnTWLiD|aw3Q9K?;OXko2JOIEcQ2wlCCO!j$=*+Vo*YK{9E9!XPH~k>71S>vI zCeys2T1Q^@D=YST68JR6Ki;$oun1q5tE4DmY~2Rl876pc1)A(M^{COE7fe=o6ck8r zdO8GEE}EVcahVM4-6o&tt?uc~%}3dh+lC6B+n2!E^#OE97s_p`l0^IYB&kkNBPuP; zyCTnyx#G}SJ}Z1wme+Yx8G~|Fv~48E2~U-uiV}KK2xrtwcXSTcxe|tL2d64CN{eJz z<;9s@Hr~9>@5ZGtIZ3UH0@tg5N)L=_hyXZ7%aOP#NX&x&!oZALqGn)n4YPLP)H%0N*jWmXmQo0ZHPnA{_rFj&BjSV=UerEIzjeNIt==dvfB7O+c|~fo^>SM=$H2n zGHk&pT#@;7co20w?dbr!g?kW%AkrK9mYxOPMV>#slSe6G( z$Yn9;A8gNh*#=l7D~6&`Ws}2@&cklHpxa384}%VrVIZ7pCHBCz2K4J}YSOGqiqm*J z*yxv@1FI~N&=2Xuo`%Tc1kp{d6sxS*&IBa)K(<9TO!!&EpX`TbNB89(YHy zjN&FrpAg}005+hEz@0QMa|-7k7=UL4EYm*#sS;>wadDI|h_RSy8~P~b$N zdvA|It#1PYWG2^k`7iWHcK+S+*jxmEtO8gaNr=MN3veHhQ-3SsujUMp>c6H<6gYc* z@Ttg%^Q>gI|5Ocr|JpP7`O?t0lK*y_t>piu*!}*uhTZRvYl0W%zxp#+0ss38S^<4X zaBP=pSz{o-*FuK;7VR3AzdIMR{QW#GvNSv1GLQ1CGF3hsp70JDr&)5{9q=7odr3Sx zvsx8w6$h&zW#S1Y8Kr;+APK0rPJyjyds0@3wecaej*d}iImyckTX~cmrCBmEX(p|E zAlIJGQrRST%umm`t0vypGhb@~EE0e(llnH#FA)<0sZo+d*`Vd3cL2*>hn$My64G%1R7l=SX9 zeUS9Ir6xG20F7~;S0}JKGLtjiQChxT=K2@Q#Ez;2;q&Eeiqqqg8O9k_YE~vA6PM;) zG9Is>n8vPP1c@VpTp(hvk43hh;v@@Wcj_WRe$1o9)oQ ziz~S*eJd%egIhmw$y}jpyDELVGR!Bd?0%Wk<(5*;qa2W$=;zP(zWjXe`KuRfqS4p2 z=&~p@z(@CtHQ)Lz9}by3fmcx|0}C$h9apnlbh0$hdQ~z`j*EEWX7^H_yv*Mw*^`lp zHaG6}H*arltl!+)-u`^!SEIF)qp$YXcW+NW-#&iyQ={`gi-cH!z9l=B=AI`x`fJ-oke`%&RhCCQ{{G1k4APwtj3Z zIn%0P%O4l{Y>Kt55B%~3msuEkqpt(7kmOnSh9_}_^SC*QPsuZa83~BKtdbG(rd1{# zm8P5J6_0~IuP*`EyZ~_)bdD-l%;$ijH1T+xzoYnHd`l&U`QoEAWjdLSt2j&YSvfvi znTM$IrHoECPY*?qt92yuvs-KHH*apPZ}#u-gSGzVox8U;H`i}s+R(0V;L}^{cW>Ug zb!X!yVWWL~nMTx&$KxeJS{KODKF*8h zbdRD<9Q==xDj8N!rrV>DCPj7E59##urrYTG=?Pu)E4KVkHS?$YHlC&{=`=k$Tgi)K z`i?wzSx{)Yz7_K#FUu58J9M*CZb4Qaj+13$Ya%Qg+_9(G@iNFP8Rt`|+-?S8l?pAm zAUEnPa_aF?*n`ZXrh>pJ` zk)H4K{3-3C8{(en_;2nltw4RgVYIM~10g+f+23ezj=?WAq}On^`c=v`FC&<4dYt7& zQkq{M<;5`J;IUuR4iA6!lPYWj$^=#6-+25kJ}YZM|I0X_WVSXuPl<%5CW|z^_HJ9d zGkL}*9-z!E@uTGQNp_S!$%flJad_+# z#n^xR@`dIm_$n?^kSPj}$z1}&uoq{eeDWw6$7fV{F?{=KI?m$}iPQ3^nr^MG#-#Z< zH<}r>2(}q_ET4iK+x#n@Ao3ew3MOj$^zfbtAwq%S2Wf`WRE>LZk9fbsCFSS7clvL7 zJik?o^2bLi!?p_;wvCc4&;&7-9+@oXlTZ`Ylc($vU(8@Y#}e@ahP*U%JLOEZ^`)Z5 z)P_yK$})B`b{*hu>R;(wZ&c(FNvrfUC=37wE`Zd#KzsjtT2w}Iy(zu&hI*O~ldMdn zHOp)q>mGiwx6G&hG94#bH9j-t+jP2A?@zz?wdwu+FU*(8Srg3i1dsjUJwwm!EMIoHtH5%?Jk6_Dq4cINIW41C&3 zYpP-M-pF)UP4B+>)e^qMvnrvTfzO}i*|bPX*qg9fN*XL!?`hJ&Ens_^mX(R(Sp|8L z&#ILoJzDnu%*P`<(hY#k=ZrffW#a7249VG09Z>*K%a614H=PSOf|%K5kIhNF{4^=X z@mXZvEW^Nfr9OWb{j#;wgM*dP>PlqbRMzea(LEnrKAQJle$GRD6&LV^SiZnSYhUu^ z!5g(p-!Nt?&)CMZQxwn`dGdOC6a2vq#aYg|iQYgcw)|_PIrb*heiRcPuc$TNh4(Wu zs_&G6WuuFlNPM)#6>g^>Bh(GL>?TJFf`iis9%Q5BRFX?~MikK zXxVZ-vuL&Ec&>;+Wbf6pgW@k>$5uy{Ci+3m3z0A6uGp791LW_`GT9(>sowy24qo4- zqw2&=;^J*mn1jdzx*g|)a&gWq(_{FIy-SE4kZYruKb%}@zu%c3JRk)uG}Txd7K1zrBu*U*{u3T(RkExRiR>*ou1@8@4y z!6QauhKTM>Ywkq$L`pY!d$a7X@rUxR;!!Wt#h|Ni`xDm4o~$DX1(;0JIb`6l#$T;Xxk0Z@zF}1Q1fav6ty2 zkPlw^Ca)tu`MCFZI4g=IliM6e%x)AG8-d9^m|3t8?lTEs4w}A*i!%8#Iin)z`|u$2 z0P*Z7-qX*MieEgNO%4;k^yW@EjHk)tyx2>QcMvYDywL_)dCwk>lQ_ef53vyS=McyK zvy-@phgDMSCDU;{Y<;ym8&~Oc>_fVf;_m3VKk8$u8Td5K{66fA*83P~d;DyMvR?}Q z=S4!5P*pM>9X{>q!`{cw?n(LR+5TQq=3`vB2QNTh`)Ap(_2I)9z7wsl_L4HGo>k%Q#crQ75?;-P4=-B) z*?s#c^-;bzssD{t_rSxSpC>+>f0d>0*B|Bnrg&A1cd}tV@;@Z#@}kxq?~bSW(3cD_ zq3J!5H?(iXhay532i|*p=C@h!3Zap@;(QnII4|aXOLqki&R%6Hrc|T$ui|kE$GrWs ztcv|@RJ#WD26XBV_{DMJ&%wRhO^=HhQ}n(RF7`4HX?`#H?F`N>s?vL3JWi_N$MVv@UIOen?AL#p`hb&Y{JV$?joYQE_i-GQpURb|BZ& zoxbTt2OSw!{MPxerF(&^I*SnzAl@-J%)dt}rW9^cr%XD+)V{wyFkvlnJ<;F@4j>tIDoAH-Af{6%e@%7F)%khq0Zro$m7Rb0&oL+6**;>$mOf3Y#fx`VegU?VjX z%^X034h2^KnGddPS`GX}gh$Y}#S`^gjT+{oiG39v0mGqxuBbObE7Se@15dz`fBk(_ zCL}hat*@iE$yu}&!Cjj!lIiyk_iPX1;dn#pbI1m)clg0(ey%YUaVHAeBL*=!l@m;~ zWL_ga7dox;wXKo!aZ*L*&6^KGnq*sR@SDJ%NIrehlJcM%7lGqzfE9Ak=$@(ZRI-SG ztzEiHk=oHcp9@Joz+|M=;G(6gk07kc4P@CvyQSdr*x^N!aiV+XbtqomT)9gJv&W*t zI(Zf|ekcg&ZB}IAmL$&4Zk%G#h1MCIXst$Iebrme!`MI?zHd792F5GR>tcMu_?!@m zMi2Hg-N>ppkRpTOWrO>MDi*8W8=SduL{-;eeHCmvucWiv{sZ3r2z=7*kKaF-4=g>+ z4RTAKvw5zxgI#)C<}3;<*#kT~K{)xaczFW@UfJ%JcjAoqnBEbZ{6YERr16

%!-3 z5)c;AcqQ9n-s`}i;Y}~pU%eNhF++ApIBM9W^uCVu*nu04z;);EQ!+G=nh{pG_=C`j93D@wd3?n+=Yqd-%m36^&io z>iyNM`h`CUg&>JIU1dT7tq)6j&FC#0L_c;q|;xV#4AHQpSEH=E}QCdvi#fZzb zIP<=@+@$fnIQX`G&zdi*7jy|QFwrEPmWK&N{MO#Y#iX{JzwaU^52B9UIuYfvg6k$igQ| zOguKEjK zjC$>z%HlorMX~=lR11PPwF?BdOJ1Zwjd{_h^jl|M(-p_c=v%!o3?KRyWY;#ZP22O< z9x0{#{Y8bRa_kGpPHDQIO{T;HvdOe*@(|;N;}Oj>m2e1}JA@m9jZ8=#H!l-?k(U*& zTDKzSLCJnCL44zD({V_$>6E%1fZ4kr0S~ZaMoU^Rz$Qwl4+sZCG~J5kd`|U-s3V*C z{+!W=c~-^4>H>p5Lpt8xwsI7bA#_tvW`0Jc9WUTil{V2mZEcM`!(GNDlk0 zUMC|Gys;4VFKNGF{j8YAXLbSFk%z`^^EFp3;`|#yD=cmu9<#82e+xIpXpjbQ$X{4Q z)P#kO&yeUG+h^GAh*I0TA7x|s$X|d!0D^o5B8libLPcA54k7ZJTIU<2(z8%c(P(+OZsDRURzm=Erz~bD|RILZ#Ozu7tkiU1xZ?S;1_gBMDbv8|MWK?2C2M!Y> z-oY7CI0HwN<&aO&TSq>qf}zNg2yH_-H1KZ1!GS+_u2Co|LNZT%U56h{1<=yZ{x$^C^Z9vjL?D8o5Zsh zUy~Oq-ii&wGY=}obn(7-Kbpqy2O-KIm?$0jbh5DjAi>E>IvTX}_(l$4e6G|6pjl2w zHO`My=tr;fg^Qn%t`oFjS_Gop!6R&- z)=wdpCmGTvbU2BEJbMb6Y`T5(GmpmCdA~X(++HR-R}=TriH(5r0#JNS{Yf@TvPx88 z1<`8uFNy?_-c5?OEyybe9Biv%nqPO+B4+`blsBOb*FvyuXXIUvgK_F&f-^VT7${`j z4tM`kvo8FX5(#w#@D&sF?z7%TfU=2$_YXt&@@$$sM}9%2=ngN8Y+Ri}25=< zAS9ZPP$p8-kx>L#>6@+xNVw$^<+AYxPywLqbM|N>|}$v#n&6)-&VHnu6J~7G`to0LV?kM~y^Ah{# z0ucC&_w7MIKiC|~wk-?-O0WtjhpRfH?=NwQrD#w+U#-$}YeyhGV~n+t4QB3}&Az98 z(dkE$S#y)VxpRk=WAYJjU+O;6UFE802FpG09{x9-o=mgDYYKs59a# z75f>j>{Lzk`OAHdr`)?4*(8sxH;2BbjAqg%6QDX*!EZytCq_XoF0KHfP9yk{)Hc4^ zQ%Ri}_*aA}kf5KO5g4PSl|U}C&k6MbM}4!2SO!j)u_&!DjjvS4=S2lMUi!lV;BQaw-ow>Mz0$gRcXysz%P@k2iPZffnpegi)9`l1L|Z}`L=W{ZyV`rttV=>_g5P!`zu2>$U2Oro@8B~l za$aK*pkyfoRikk%FNYywSITv7>b=qBn% zJY)X2NJJL|5b(T~u#$8SS+u z&09{l1Ppo=%z*T3{ZW&?*T}m{Z(BT7p&Bcfpq5&7=Ha}?3*a6>LcVD%65Q=3Wf>m_ z<|MmrqU5--P`vlpTgkooqMXM5AJT2D`$(MtuEth3SyARV zJY|cj-76|#Jy0liw!Zq=X7Nf|G-KU3@B{ z$?~EV6Maevv*Ob@9V0T+op}XX-y*3ThcC~CpViEeDhu6}YJ;e+Huw8s85BqSZtk3Z z9ZA4=qEs(wmQ|Ri&!&<0t2#LsGb?8QB%h5(NGqJb^)MsKLv3}1(S2;oW zm_0&1Da%<>JbcE|w2@vQfGef8xEt!-j~+hr3@vTz>eKY_1Zj;C=-5upDU!Epo$h5b zNlVJe%Z)9FAbhu=dLWrY?Dng3N!?xv(UIVyq_6!e+3;HXR;fVM}IX2PVooU*?LOI_A zOlISgBpxM2?WCTP!SUzcQo3MTej)u67hP}Z+4`joTq70EO&Qd zs3qEkA+@}M^t1UK)aUQfll{HV`2z13YdFa@R5|=Of|b(~lu%8_5D+NU5UJXPHhz>- zI28{+#6SC5k{K~~Szh-nyCWT;5VK{x5&AldQYH)Wog?$^QA`2cH} zT~6Z)Q(M}qQ=nNygZL3y$Yp`aEz1&f2}s(PiTO{Br1_`i#?)fIN%a1be`K{6XUU9GAb)#RBLTD$l zVxnKY?)UD#`5EjXa+;aD9G+ymm~1d*m5#?|mRYshtwwWqvUt~WXc$Z!4?UUW9}o~l zasHI74qyVUMn!X-a}o8^*dF!;F&EZ9Z09xoV>hmlvd%iQS;L1KHB?px3PmXVopw#e zhB>(Dde9F#JZ@fuMHcN-AW|BUBHH)tX=;imlr+fBvFc#oKFiGnQ?1LXqkNWmo)z;* zphZ~==DBE%f`+h1GvqWy=(URBfThYwW3FbY$+zsqOl@5kUMqxm0rr9l9Doe%_AIO8 zM}fg#?CE+T1%>|!`y;PGLQod~$2Y!vK6)_dpMPb-dQFf|jXG^{Dv{L@O$h9s=$R8z zJBsEte3rb!v77J0;HM4H3Q*~+^IJn|KD{G~(4gCy1z9*uB0cV#vN5zw5__mx)$`$D8 zv>@$lz%7s?P`ORQ*@k!k$x7{zk7%<((`3ObPZmIKCLH*$p>w)Z15&KZxgm5%JpU~1 z9V#w=tiFgZmQ^tQGk}MaK#4#)ddVh5Io_4(=5I?!B@$)gS(E1^X7@9(+ZE?sCC1Be zCzI+SjDSh6_7$hXGn^75xK+YUJrzu48>VbAPwN)4-=}OJ&k`h95sFov*p*_fMdWCu zP;bIWErBYmzw1T^2ZtWF;NhVV;UT@miPEt$Z${E@9Ths9U_<`22oY`=Om~`()8QG% z%-Lx$DDuiT&f>>ym4GZ>prbTFsqLd9DW}TIEw)V`$##~XQvP4m*exx%YznObt+4k@PSUjsA6;YY|(8^df3_Ow5nl)d}m;u6x99ES?Up|%y=zz?`LD>yiKVER-J zodsvD<*XR@N-73P6e?{!E=51D&DJo_PH|kUia0Be@?tWWjBY_YK1n3HXbf%Jrwrx? z)GuVPom+jad^+@2i%?O{CS-uWz>4vCC@Gf>kp`;ddbWN-HygWxb+csW{o*UVA*ucKNE%lB5ed4QRE|t&}uXiGd&4UaVax)GHdGS!2@3El(`m!s2hXIe52f zg-@S~3vYlWx&>OOa#(Qpk`nIU-$Ju6A6K`qT9Gn0hR`MAgbs0pK$w$6!$uvC6J^SZ zTt3SZv#|ZZFpKTvjie6saE|rm=G-kH_Iuhw7v%ANq=N&P%?417aQR6qETAxUfRdB^MU5NQ z)Go1T3S=HWE4aj|6u7qYApgw4?e=H{=bDp5H~A#aW(c$T3$y<= zooW(XCXP>8Eg3+@e2OecqJ!2&kw*~Tuk&pBN}Rr6>bM=%a>Dhui6>K^`*m$fr(*4dx`??!#hy6hLh0i+7u~PO0l8G?s2FOxTpQvLNJdcYb4}LkK+*@xuT( zWDaUQSuF;6biH}aYj;8Ih8X}W$h8q!)nkbvc?n19hOB z;pX)?Tr7jCii#J{#5Z5P@Pp*%tyq1tc;t1tNpYrUlVl?|mnt{SS)8{+JpL*tSG%yz z2VReS2%Weo2{F!Lw{sZ6(>#A$nsNFz@vKGmsDsK)p5*6clv~tOB;7Y%brdO2lEXMd zMYK;l^82StMo%f>;pp6rM@!u>{LMLdsA?qbQK|x(7i^(QwY8_NV$g{UI3HN!Dtm5M#gs!o*`3K~8XMeHyioh>Wc=}rW0{m`r0 z(K}ztS?6G7!t~>F;t)1#bfDRTYt&9&JO!`W^#PhpQ{)cu(FfusYeVof+KS$An7+L? zVoM?x@r_pR3V@v>40hh5m?<1mto`;N*DQY z8`)!4AaI>|7yEP`U@M^bi{l3VyN5}VnHY*gxQj`h4P(6)fha3`iNR}vqNegKpmL9g z5|A2NOV5>>M7rB+jpzIG9Ps8c6I)JC??je~pTId!^5D8-mu#|*9gp&~KHrC*k$+Bf z4W93tsK3(35t>|5<{zaUNd%@Z;zGp3+X&p3%#DeJzS;Z}K(=C{W%KSN1&1q1oKKR< z9G;o8e1?pfWfhNERbQFIrRE6%9;~)Hk9L8i<_*;a*2cR5(B-jPN=DgbXU9jofo0#B(T_nK=&# zA5yTg%MzDPN_S&;@93)wSRvYWbsc!lX5-pJtQFA_^%9JZQ%GFD(nhf}vY|j-&JFME z25cG#C4$@iO_gZA_yA4mfVCqxq+$LpONv43Kq8!KFP)GLth9Vkfd7TNzqas)xjK zD}XuS+-`4G9|Lzb?#7Nmg`{M@M)hcm9oz+{$M=u}+dTxzY`F_Is<|lyZlFNg#pYnQ zAz4mwhge7Ayj$!0YQgpHt$nuPKx;725T~Lwm{Bq;lDJGpY-I&NmK5hgfnbd)XXqP{ z`aMJ|NWcaGos3MJnS4A-3LRT5YeG~^J&o?0cwv#0s-LoR4XulR04En?_b8nlTqY2D!XLC?hXnWcnw+IFhO4^BH&KBwN3RWj7- zyNC)1dT?+S1z5*omU%W^Sq^uCyG(B-)y4B<({-2rf!TS0OSf8fHCi$1`If1}gSP>M zL@0k79M4>@n)tJZVqR%Cq~E7~+Pm+RfhU@Zkbi)66Tz3=sr3hIrDcX z2606?+@cD8bhk07`x$FB*8sw2lQ~i$&xF>H7zDWu!12>eMMWSbOteT8M9W$;w>H!y zJ~LU8j8H3@UBeYdsg_~JN=NS9V_1s$pt<89*rwFlWjCLL~hwukSA?eRbX&y%qi zal9+cskWB%gXAStV6|3&)kM=-c`{A2$V5Md9b!eLoWCtwmM)U%kS0Z}QT8=IcVFwi z&;oZ?n9xD?EO}QF6*5CEDUvm-1^QTHI*rjF8R2cUmzF8eYh*7Vp`~ie&ik}_o>7sI zd#2<41)~l$$ROWA!*$mRKvi;}k+mkA5e3|xh6o<{%oVM$igb`mfHe{I7Vk!=H`}9v zvs-32eOu&J`gWC8N_*S{bej>(nNc$Akb#ccJSnZ#+fx^Z*u?&?O8tlhn{*m^%1MT0 zm+Xo6t?X85_#&>Vgp+vJk^gn=3!0Yg9IoPm#;Y$w5NE;ka7o6OCMV6 zpXx@uu`+5NFw|EA7Ml}RVWD;^U$BjM64n^ce>yWf|1B_(lBOnjexrbWfR%5Y3~XeF zzJ|9DlcB^xyau7UHLDl#ZeKsr<}`V_Pt|a7kyrtGZ37`>FSL5cw{H;1z8t;X{ru&N z9Z5~fBKSrA&PdK{;EVu_S9~ug({*znIMXy%LQC|~ zI^>N2vSK<9(##!$8V#cra4CCA#*d|a0zmOdW4@uCK-vSnd}Dg`1~&0@&}R)EnK7+g z!0cV%P%GPVhZq~v#RNG&e20jku?u@)b_eMN5lC+OOak6gHdqba%zf*61(X!M$t~4j zNNiGvCe+Jh>2gsvg!5|D#Dw_Kub4LFGm8t`4IzU}>pkVvet*1Q2scqL@)dR3NcWWzk3VV_nGisoQ?9yqhuVPxq+F|UZxXVpLn$^h?wQ=t1PWND!mZ*t<99X zlUeR=|APPKeUGslfoyarW+q69SFysK-R)nPHM%0Jbx-SGGiy=LhH}VD^wnA7y5SReOhtRy&BuZi|1dqVVvV03&A^fjd-O5UecA}*aYa7`B0#=qXh;Uq82?@aW|?l&-ae#3WNoaU~p$2DrT zM6y+~+Xq5!H_g&Vag|`p?N{-{>F6%BY&gzso?lsu(@|U{<~5>0@S7?a`j+-Fy~S_! zx1;>%$SbED^_Ooh-&(%2yt%yA*GjM2)$T5-0fKBEw%egDdiU3t-0vGpwPEN(8ith5 z-Cg^hNPxTg9i^~dUBUlWRsuR8p@qHDfcMVw+S>Bk^2YMb<=Yls+nmSkO2W+O{rfme z4&!24#AmZ?Hl7_P(_xjLCd2J#I}f(^UhHlE^{Z#Ep1%5g=f%U9&%fGv7}?C6i>GUP zYhZ)xs=*KhG`HRRYwO---!H^fd^F{vD0@-!H!4e)EsjT1zHG3d%XuS60vU;ewf!Qu=9xBHJnQUQQhrMo% zl3;@*?=ngHhw37!iZf#s$(Fn$BwL6uWfi;&QcZl{VPGcl`@veDg;B#+tJ%Zku<%;O z^5W!R?(kBlK%1z=&3KTT%fs5V9*Z)>;LAj5H3Ydbub-L?x1j?utCtOq%CKyogZ<{5 zr+Y4ix#NjYk4K*biYPqoNsCM$OB?u6==ylN9#aZHLfoJN>zB&bce)%DM~H_c0c8WW zET*a%@_nF|?@b=1o-!`vnikZh-C>RSqpQ!8Fe7N7BRFfQcX{MO8qy*eB8k!#Zecqz zo>07nf#W9$Y^;(t)2&5p`cX>F0_3)iy|S_*j#{HUVOOo>eOi(izdg8MyYPX_@4a_l zDn?N@SOr}Kof}M49fT%7(ng}9C_+g~(c3X&yMq1S!oVcKR22km@qX8s4(W2?rT--7 z0Fp(}@I{w*#o7)@$WPoBl59qo-$CD!f{xNL%4n=OjvG*qkUChc4CERH^rHd#{tt5sIg}U&oQ-Upd0Yxp8MbHI=#g>VXytGdd5Ln+< zFzlAbXsz&^OJD@hJo?&w+rpn9vKKI?`Jx@Osw=XBtqtb2w zt3}i$gbJ6Jlj&nhjyp=rx4uLz$9XlVs59Ku%df)KMZQ>5-D8$0YyP228*$Gh9C$G6 zZU`aN;@067)?HNN`jvr65i`#IipwU+;=^%043`I_SBc><37`0()t#r2FyXZg|FB46 za@_-#5K01+FhJgADGRTN;MBSsZKQ1kL?rfTM>BQNo5b&X$lM0|qB>&*cSu!U#pB*2 zndAj(NUWL-cW?+~e+UyZX`ZcrI1bzr7EHNi4{2w*ah$$jajvhd4#+zV3ao6Py7Eeo znc|p#(F3H5_35m=U$=^$z~7DE!s*QNJP|YKHelCyP?z?tz_8OHh=H6AZN~wCt)Mvh zACI}b9EpFAoZ9E5J5TNdz4N z;;H7}4O+3Fr19HXilQ`5aMW%We;yZ9lHF@z^?^Aosr6_r55+|9V!tXSqc4TO3IsiX2;X zSS#TL*>$CtnL@`09~y$d4EFQ7_SPLYr}6M@e4MPZCo!GkC5ki|^)xP~781^+O325d z1cJpslgvGFQiUR1kv6#|Gc=(Imdjnbm|ZfFMmt3&;;>r2j`eSB<=o)BA3rtSxH9mU zt_(`m!>QVaO~vE1I$N3(ed`d1(g#L-t{FWp5L-6YycLm!l9RBWBZ390ZHKv@4ZIg9 zrLpP1UnBPkzDBXzgj8O6CZyc1QGo&IK;%F`#}ZMx#2b!ooug%2Elc_F6ENbhP4qWO zkw^DTM3j$TK>YZ(7)HU7?_#5Mo|rC1TfuLLZnl{rn7`=o%+S(|T(PV$5Lb`ou*8cX zCd}x}9jJI?5@xIp7_T7-%cinY4xN#<=(HE*t8-kHerEdbkB)rjJ88(Hc4hQc8NI=R zz3!c8z=oq0U}%*N$>0^X;`Nbc!jXwktRfEpHweH5-O%cu*UPQ*dMSqI_Hn1yhwL!j zXw2glEyuh`icp1{CSiVQ$@q;tysE(Y;&+aFGh*jpKD01wGn#HE963x^<$zWywzJ<6^^kM z_N~FcKo$YeyD!5@Q2yLu7JXS8k}>;N`QbyVqNNKCF*pWnmLF}j=iloMRGEIbG^M&Uwf~ix2^#)a<)gKt7CSX zoPE5_p}O|Dm=&WLaKKnm$t7Tk9Sr+w5m~Be7AZNuY41L)Sxcs~J>p`bB>mWRb*(>f zcR|F1&hKYHJENum* z>Y7VKMDL!-MnU?mq~b^hPXjf#g;Rt5N>iOkM?a=sh5ds@pJY{1oW`iopd`C$)-{lg zr59e16QwrcPK0aGLwbFmbCKKQKY4ivdPM^qqA8-kAWzI|-O}}i|7^~>`wMUP9|7gT z*W(H3l=Wbz?u0%%Jmkx6xX45xXoGsvbLVjp`VFL619Jo+N^-$G?%1=mlefzJ#M~hc z0T=1n?H=zEUwBG$Uzb%}z~6pC+Y8$&&xTYUL5QJdS8_D-nI) zzh}zX;ct>*HR!C}Gn1q&a>J=n*1G=sh8K=4-Yo))Lze~-pkwe!A zA+b*HC?0xHY~MO~;D}t>;vc^$M%+Aju5NWO&j$jK||V_wl@bumO%yBfdp5;+g9jGZEfin>VDr(zrdyo057zp<4R3_a9iO$;H%d$Qch@6{bM}vH zT}cN6sm9W5!C5Hqqr+*4gp@0?O!^FtYNAMygu+R~J6_14RlKG62r18?RjbqjV2o~5 z6q1fQw0KL10u$NfK@G9G^Z4MwCiXOzJQSt%d^c8@wkQ%Me4J#2Kz#DEKq?3C+niAX zG4J;b8=Ny>DH3Y>q`CpEt4jx2`K+@VW{pI|5qyq7`$DSX*`+>dYL8&}q5P0R+EwNx zbdWaI<`X8^4(6>7%^NnyD*X1UhavOU;Z>HtUw@RdhNaC34l1({n8;~11kbBtypvI$ zF1up9k@Zs1b9>>n@C*`qS?7-TI_@RnvJbL@!dyRyZX9&}?9V^#F8%ap%Ukz88{Gek zzkGdg@aC7l{`#8_ztdQ4QJiLnrTN-Kf7ai|E#;r}AJISSeg0>S|5@jMHu#^L{Ld}^ z=QjUir5OE0f408K&+qa--23_i{_7$Av%wEH_~C{;WB@jHxQUf{((O$K>=u7>i@&+W z-`wJFZgZ16+~f{7xx-EF>{!n79mT3MTJ_S{I=tYDs??};TKwkif_}udESF0MW)6H0 zUNSobBaxPRyD(=ra1cBV7BH`7fO{>YUyXc`-7=*4fRluZdW*9(9DyhqWj7M^=y)^| zN_8S}1xBF+XCK@pw*|%bn(z+8U&Uk1YaFNJBnX_6%Q)Zk*u;e#%9Q~>DIY!CN5ZKw zhiYjgBAmsx5PL8_O-vL|)0HY2C&xuRS;>pzFl&cDV1W0=SdVAp@!7*X%aS1u?shcc z^C2(+&YzU9tL&d;Lw;=SBLVmzBs!Ca)_ZysxP5k9e;4^kX4sgI!qhSoef2O#<-$30 z*@KPmS%m`1>cQmz<1bqsG64uBFUJ_o=qGe+R{S?;6O z$7_*r#?w4AdoLf78vO8!Jp*8jz)BXt_nWsJ%EJvWG@)B2#U{&VBidu^3DzST#&(&r z&-C{9wFy6;&JM@vuosU;MN-0>J5vrIuzcZ9%(V9 zW_XaJr{mrrw1)U=v}Bi~8=+3cfb=Qba!LJf{Jv!w+dAi0?cGyF?FqFQh{2f0;g8f_ z{DujK)||;xL+-mAibYIp;~Q_xhb0r2JqqHWncfIQG8~GJz(AOMkmj)a^=s2P zB07BY!B$3YQ}Kl*`}@Be`4a_VtegwU?zK-s>^-1#-MtXOnP>^vx7|n0BJs2%91FyO ze^!hKU7v)e&Pl zk}|_WNL$0Iy^gPVr%vH3qx@Z_g*=cDkuwt0#ui#KJ${C=9n!Bv$typRr>Zs7*^r#; z=1i-R$EMB;J(!_wQ&I?p+Are~0<9I!%9H$^nN3}U|2!xiv)oVr2Bw0RTu26y{GpM$ zX8Ge@zKRR#L>%_jzd;|v84z3vwK%5`sKNtK589OZkHo$Pdh>4-aEAyvLA*yBUKu0L(n=jc$X<3MErfZ<`m?O@gnq8ii@ zRX0dWb(liJmL$RUIH2ARB040|0ic*rl?7z-Nwoe@;vw%eE>e^dE1iO2kxz-JnP)Q~ zbVA@FfSPHZ_b(Hdo4=N`aZhB`l@e~*ztwtv8l&9Z;I$rR#qG(5by}oZWl5aP>I<67 zq`RHdxai%FR??BJ*3tw+)~dd|s^ryV{iU@^<8>39A;mL>^V*5#Dv5NRG9IHJqLN^iZ1gR}3sa*4G zEt;k^Qz;<&h+xYXg?NN49yK9Q?4SX-nU9>r&DN-&S}B81@T#7V}DVEhJ+HrG0&(6%lbgxVxalZxx*U~M#S zX+HT04obs#e4&~ae5j(#P3l`uXIdONp5`&+idM|=3S0QrJ+y=qh>Lrr(~H+y0#EUn z-SxJ;(idnQvCj6%Pnu^nr3GdO;8A-?JmL(F&=Zi-QWTL|6UbL*&Qq7+uCQydkZ~$M z%IHJM&OY3Oo(_Fwz{xa`=o0b@>IWQn;<0&`P;C_YD9|k6i$>6?HI2x6hm$Ugfvt7` zq99skmMU!s{Wa8&lG6t;sOr)jWEx~F!NsHG^x>?~nqYJ-{U_J1{kK25_Q%%_XXWawJY4Pf*YN*;bnWl1{qePHKfd-KT)Xz;AN}as-~ISU z|MJ?kKl=N>|NFoH1djpKXKTH_=?-T_k!02Q%uL7se{WX;CP#6d-|T8vGb_-AKoWAH~)6+B4Y+vf?nOTAO0D(c_vUA`ANKgnC81iuh0-te= zO$d&Sff)QbaSX;Em%w)H*yh7v9Pi}&Yr3ktXJ%zca7OyNd*7>i_3FJ>uimSwnXZ=0 zS~0n0?TTzRdFmPK)*qL2T)UcP_4yA|FgGsHT>f;r)7(?w` zD!bDc5z$DVi3(%e3yC^|DWzCqs{BqtQ;L3Nseao>0C}x zlb_UG&A_t#M$N;Iha}e&701)u_z`63=393AmRoE;i1b+*;`;CWll zU9;lc4G{T39XN(e<7aB#X@-ipl)xYms3zt#34)9T^BoiWLP1bU4+zjT zL$R2Equqk1F;4*E98k$rndS=E+@P{!yPj%!t|4%KzT4-)XO^BNvpP*IYlq)*tls!hzUX;J)x=$BAd+N_N-E`Qp zcOJg}>5pIY%1<9%Ghb-xoF( zFI)G}yLbL@@3PImJAdkm$M#v<-*Dc#tas-Nm;d)6*Qy)(=k)x`DWf-AFTe84Pv5*~ z-OitFe8+s^+0hgJ#JK(Vz3-g)!>d=1uUNn3#{YOJn|*X3anW5PPrP~GTid=fFfsb{ zlUx4my*btYYV01}p8MFYo4)<}O-pb1`@OF}@Z$B)A4rs2uyN_x$wfEsd(GN6=l%D; zGXLkj3qP~62Z&$4am1d(FL*9@&jsfX58VEVM`A1Q_{CzOM5b!axT=hM7^Vt;k%Tlj z*frO*|5Yyrb>nkn=zb)P<)M8{WHX3j^D%q%5GCezL+t?#G-P{@UzJ;VlQ#F*H{;4}oxK^U%bwD7_#GAGaO6p@T_097Cv{s3yTKB6L|=w#~t! zFuVw-(Uei9pj&u{wLqhzVKjdmr$DyWZSp4@T-Z{#i5_QK(8EKfEh5^O-?4XeI-BrcIl9PqS`YBpi+DV{%YV-I5IxW}mOq@P z_7HuFh#n@Qe;}ef5nV(?HxNM~F_nlrRLJ>@M6p|l=vE@SjfhSoqNj=IaH3crP0@ig z6}yCpHWAU$M6`>Dt|FpAqWCHEh;H<~;R!_X%ZZx7@fsg_I#K)|4JLjAZb^)W~J_htTl(!XDZLYMk~EJyVjL_7Vz zj|K7@JdACAz8-phoT#4=j&!r4@;UtRd0f7L%hkB-z{TP<_VDV(Q0={lx%tZcx6=7+Hk-=k zF|VXe|J9bOs;rPZ1I13pWi>7*Aza|^zC2r>I1!MQAYtu~#3+i5;4+NM5H26bsUlBirJm&z?7>Ysr>4iOIszG&A+ zX|LqlD}7jd?fyvZHPO2S*7g5tsT4KS9{#J>)7$Df=bXc%oCc10$@7Ve!x4)LD8kT^UN#jgqc#uQ3Je^zk8!kM z+6Q?b%sktbvsehu7X$?v#2kKkY?B0&e~7+YH6nCW(^U=2%i!na1RWmfnr;NvBw=VN zQ^6Z*MbRcJhL&ocPm@y*Bv4kEqS53bjM^X!{)s zL>WL780``iUa>vq*j|&E=qmy`f#8vzUJRpn!>PLNYUQfpN))Day=*#;YftXTlr;;# zt{SN)k(`1+fsFuVmJlNF&rBd3$F>a_;Gh#tkSK)pH{D^HnwiidL0%JxBo7f7PEJW( zVJS{`w+j+rd_ph!3n2ciB9M?p2pLWqVbn(6b6UbI7`34lW%w^B@#31tG)r}NI8w9d zrKzY+CW<}+_91LQ#?P0}V#xS=k^k|fW;8g^ zH8@mMPvD+8&m!BvT3)P#*j-}o`Y|NbfnO`9}2k- zL}BKBDC9p7h4_9b47O5$E*$&}YB2Y}6fla$@qJ}qeOzab<75;?+9s?CAdK`B(^OZJ zLl;xB<2bg)%><#Spo5`;O40JL0>^VA(>mu2upq~W?Kyx&(>IJwcPL{z2Ftjt=45c7 zQZ$I^#~sSJb`_p3V>73eQQTmJA$x1Z^WT8AR5@-sm9aFvTqy)uBBq&EI{b^}(=bvk zlpP+g2>fAD0wvw>G&h4~hpMG}(t~5IB-D;yOq=vlZAJS#7Hxh(x2K0E))mpJ>@qxH~`;dg2c)Kc{T-fdKmcusM zii{)_tw`QoA#dL{WV_Ln12L5Fb>SdCT#Ng_2selpL@kc>s?zUZW_FdLUX>!{(&mti z_^A!S9B*DJ)`}U&)k^xLfO9Excu^}URYM91F@S5Ewrmcw3kQT#IQV*I>7`OI3!x>Z zxw>McB5SH(muaq9b`g5ugHueu3`_H{Y3x6q`QhmCAm?C7ue;-Di#o*3K|m?BX!lnTn&Q7&AaxJo{$jsWKLa`k7f^6~zt0 z69gj6EFhVY!vRSVGvzK8FTyH3D29>3?C#(zH_iJUv9UZhEn>Y`-;DFnDbbyfhZOpV z`Ukh3u_iw>ylU83qYiJ~S{m9uI$1jQ^kdf+Hr6x89(#&4cHX*8=hkbJ>Y6pB(vD4v zvf@N+XdTSg7sm_A#L2mAdXWDg9mY0nLSkY>IoM`)A()y8R$Ydmtvd!@V==nzPhWkt z_JgloI52z8_GRVedyabLn&TF2`_%)=NpF1X`MZAo%}Z~&@}a?(e>3vv2{-7oU!9*B zJG5uU4;KIH#G#je?~3of`|eAhNvyqO--3JB-ud&tcyHVHw>)_LRVR$(ranKb^6B)g zzk1BPWnK64`|ka0{h43BX!Sk(Savtf`nykl>l^pjY6PwjZgKI)wMlNZmd z9rW)%d3^Qlk8W7DuZ_QU^6QuWa^s%6SC0IC!|`7kDE|Jd z-`@PyU3Yx$w?DqTGL~C>|9z>ox1F)`>U&;Dytn$Tt~p1-8$v9OtJf4yi=;PPyS6&P z^ipI#W~?pjgkSMWL39cqh`-yiYWP#nRZ1npuKRlizT4rBS)x3AKQKsMF*$RbuBMuc z2A=J<)L+`M43Fo%l&6_k01m7hdj;(jU8O#44Z%Z%1?IV$V#@J>`MaHJBoCJo(AAWG z)Ky3T6GYXqf&?97s>%v&QiNtOE;FHxIk@?nOzknE>xQZ*N~j2`@vOFJOQ}OsSf#;f z7RAuZa&iKn0?{%bh3hcOwxu6|XQ>wIZjCom&!;pq)H1>dA%G09%nL1?q6-Ws zs2JaV6pes^g6Ec4id73W+o+m>$zhN{y`n5y_z%a!b#ELTh@5pTnVh$6~`9?h!Z=_yBH%&E8vll}4MMKuV}#9|f? zO63w4MkSVxtRi1KlW-Uq;H<8DY9(bVs+1wv3ZWurPq07$oLObM8cF*h-~hATW~s7k zSEc=6pE!yxGSx|$iYyT&T@9T-iDJxYG48Y&^g(C@NoK$aFe$Cf*A2bENDpr>q+5O| zoRAR2ko-?WEL;rkxTTn>sHuX&G`ZRwl@RC4wzRx$Nu3|sPK7TZM(GIkHC4naiW3Cq zQ9j`6Q#!K^{!4qJOHn>}8ADU>x*bs>+Ja*nx+>>fVOP!8J-2Gfr6`P(KnT2Az*&b@ zTS`Rr<|9)uv<^nJ-DVv;Dq07oWg7;LN}xitL^n~xR2)7Kgb0L53Y;#@I84k5mj2 6.43.6 allowed, 6.44.\ + 1 skipped).\r\ + \n# Sends info if a newer (non-patch) version is found.\r\ + \n:local installOnlyPatchUpdates false\r\ + \n\r\ + \n# Include public IP info in email if set to true\r\ + \n:local detectPublicIpAddress true\r\ + \n\r\ + \n## Allow anonymous statistics collection. (script mode and generic non-s\ + ensitive device info)\r\ + \n:local anonStats false\r\ + \n\r\ + \n# !!! DO NOT EDIT BELOW THIS LINE UNLESS YOU KNOW WHAT YOU\E2\80\99RE D\ + OING !!!\r\ + \n\r\ + \n:local scriptVersion \"25.04.15\"\r\ + \n\r\ + \n# default and fallback public IP detection services\r\ + \n:local ipAddressDetectServiceDefault \"https://ipv4.mikrotik.ovh/\"\r\ + \n:local ipAddressDetectServiceFallback \"https://api.ipify.org/\"\r\ + \n\r\ + \n#Script messages prefix\r\ + \n:local SMP \"Bkp&Upd:\"\r\ + \n\r\ + \n:local exitErrorMessage \"\$SMP script stopped due to an error. Please c\ + heck logs for more details.\"\r\ + \n:log info \"\\n\\n\$SMP Script \\\"Mikrotik RouterOS automatic backup & \ + update\\\" v.\$scriptVersion started.\"\r\ + \n:log info \"\$SMP Script Mode: `\$scriptMode`, Update channel: `\$update\ + Channel`, Force backup: `\$forceBackup`, Install only patch updates: `\$in\ + stallOnlyPatchUpdates`\"\r\ + \n\r\ + \n## vv FUNCTIONS vv ##\r\ + \n\r\ + \n# Returns currently running RouterOS version\r\ + \n# :put [\$FuncGetRunningOsVersion] # Output: 6.48.1\r\ + \n:local FuncGetRunningOsVersion do={\r\ + \n :local runningOsAndChannel [/system resource get version]\r\ + \n\r\ + \n :local spacePos [:find \$runningOsAndChannel \" \"]\r\ + \n :if ([:len \$spacePos] = 0) do={\r\ + \n :log error \"Bkp&Upd: Could not extract installed OS version string:\ + \_`\$runningOsAndChannel`.\"\r\ + \n :error \"Bkp&Upd: error, check logs\"\r\ + \n }\r\ + \n\r\ + \n :local versionOnly [:pick \$runningOsAndChannel 0 \$spacePos]\r\ + \n\r\ + \n :return \$versionOnly\r\ + \n}\r\ + \n\r\ + \n# Returns currently running RouterOS channel\r\ + \n# :put [\$FuncGetRunningOsChannel] # Output: stable\r\ + \n:local FuncGetRunningOsChannel do={\r\ + \n :local runningOsAndChannel [/system resource get version]\r\ + \n\r\ + \n :local open [:find \$runningOsAndChannel \"(\"]\r\ + \n :if ([:len \$open] = 0) do={\r\ + \n :log error \"Bkp&Upd: Could not extract installed OS channel from ve\ + rsion string: `\$runningOsAndChannel`.\"\r\ + \n :error \"Bkp&Upd: error, check logs\"\r\ + \n }\r\ + \n\r\ + \n :local rest [:pick \$runningOsAndChannel (\$open+1) [:len \$runningOsA\ + ndChannel]]\r\ + \n :local close [:find \$rest \")\"]\r\ + \n :local channel [:pick \$rest 0 \$close]\r\ + \n\r\ + \n :return \$channel\r\ + \n}\r\ + \n\r\ + \n# Checks if two RouterOS version strings differ only by the patch versio\ + n\r\ + \n# :put [\$FuncIsPatchUpdateOnly \"6.2.1\" \"6.2.4\"] # Output: true\r\ + \n# :put [\$FuncIsPatchUpdateOnly \"6.2.1\" \"6.3.1\"] # Output: false\r\ + \n:local FuncIsPatchUpdateOnly do={\r\ + \n :local ver1 \$1\r\ + \n :local ver2 \$2\r\ + \n\r\ + \n # Extract the major and minor components from a version\r\ + \n :local extractMajorMinor do={\r\ + \n :local ver \$1\r\ + \n :local dot1 [:find \$ver \".\"]\r\ + \n :if (\$dot1 = -1) do={ :return \$ver }\r\ + \n\r\ + \n :local major [:pick \$ver 0 \$dot1]\r\ + \n :local rest [:pick \$ver (\$dot1 + 1) [:len \$ver]]\r\ + \n :local dot2 [:find \$rest \".\"]\r\ + \n :local minor \$rest\r\ + \n :if (\$dot2 >= 0) do={ :set minor [:pick \$rest 0 \$dot2] }\r\ + \n\r\ + \n :return (\$major . \".\" . \$minor)\r\ + \n }\r\ + \n\r\ + \n # Compare the major and minor components of both version strings\r\ + \n :if ([\$extractMajorMinor \$ver1] = [\$extractMajorMinor \$ver2]) do={\ + \r\ + \n :return true\r\ + \n }\r\ + \n :return false\r\ + \n}\r\ + \n\r\ + \n# Creates backups and returns array of names\r\ + \n# Possible arguments:\r\ + \n# \$1 - file name, without extension\r\ + \n# \$2 - password (optional)\r\ + \n# \$3 - sensitive data in config (optional, default: false)\r\ + \n# Example:\r\ + \n# :put [\$FuncCreateBackups \"daily-backup\"]\r\ + \n:local FuncCreateBackups do={\r\ + \n :local backupName \$1\r\ + \n :local backupPassword \$2\r\ + \n :local sensitiveDataInConfig \$3\r\ + \n\r\ + \n #Script messages prefix\r\ + \n :local SMP \"Bkp&Upd:\"\r\ + \n :local exitErrorMessage \"\$SMP script stopped due to an error. Please\ + \_check logs for more details.\"\r\ + \n :log info (\"\$SMP global function `FuncCreateBackups` started, input:\ + \_`\$backupName`\")\r\ + \n\r\ + \n # validate required parameter: backupName\r\ + \n :if ([:typeof \$backupName] != \"str\" or [:len \$backupName] = 0) do=\ + {\r\ + \n :log error \"\$SMP parameter 'backupName' is required and must be a \ + non-empty string\"\r\ + \n :error \$exitErrorMessage\r\ + \n }\r\ + \n\r\ + \n :local backupFileSys \"\$backupName.backup\"\r\ + \n :local backupFileConfig \"\$backupName.rsc\"\r\ + \n :local backupNames {\$backupFileSys;\$backupFileConfig}\r\ + \n\r\ + \n ## Perform system backup\r\ + \n :if ([:len \$backupPassword] = 0) do={\r\ + \n :log info (\"\$SMP starting backup without password, backup name: `\ + \$backupName`\")\r\ + \n /system backup save dont-encrypt=yes name=\$backupName\r\ + \n } else={\r\ + \n :log info (\"\$SMP starting backup with password, backup name: `\$ba\ + ckupName`\")\r\ + \n /system backup save password=\$backupPassword name=\$backupName\r\ + \n }\r\ + \n\r\ + \n :log info (\"\$SMP system backup created: `\$backupFileSys`\")\r\ + \n\r\ + \n ## Export config file\r\ + \n :if (\$sensitiveDataInConfig = true) do={\r\ + \n :log info (\"\$SMP starting export config with sensitive data, backu\ + p name: `\$backupName`\")\r\ + \n # Since RouterOS v7 it needs to be explicitly set that we want to ex\ + port sensitive data\r\ + \n :if ([:pick [/system resource get version] 0 1] < 7) do={\r\ + \n :execute \"/export compact terse file=\$backupName\"\r\ + \n } else={\r\ + \n :execute \"/export compact show-sensitive terse file=\$backupName\ + \"\r\ + \n }\r\ + \n } else={\r\ + \n :log info (\"\$SMP starting export config without sensitive data, ba\ + ckup name: `\$backupName`\")\r\ + \n /export compact hide-sensitive terse file=\$backupName\r\ + \n }\r\ + \n\r\ + \n :log info (\"\$SMP Config export complete: `\$backupFileConfig`\")\r\ + \n :log info (\"\$SMP Waiting a little to ensure backup files are written\ + \")\r\ + \n\r\ + \n :delay 20s\r\ + \n\r\ + \n :if ([:len [/file find name=\$backupFileSys]] > 0) do={\r\ + \n :log info (\"\$SMP system backup file successfully saved to the file\ + \_system: `\$backupFileSys`\")\r\ + \n } else={\r\ + \n :log error (\"\$SMP system backup was not created, file does not exi\ + st: `\$backupFileSys`\")\r\ + \n :error \$exitErrorMessage\r\ + \n }\r\ + \n\r\ + \n :if ([:len [/file find name=\$backupFileConfig]] > 0) do={\r\ + \n :log info (\"\$SMP config backup file successfully saved to the file\ + \_system: `\$backupFileConfig`\")\r\ + \n } else={\r\ + \n :log error (\"\$SMP config backup was not created, file does not exi\ + st: `\$backupFileConfig`\")\r\ + \n :error \$exitErrorMessage\r\ + \n }\r\ + \n\r\ + \n :log info (\"\$SMP global function `FuncCreateBackups` finished. Creat\ + ed backups, system: `\$backupFileSys`, config: `\$backupFileConfig`\")\r\ + \n\r\ + \n :return \$backupNames\r\ + \n}\r\ + \n\r\ + \n# Sends an email\r\ + \n# Parameters:\r\ + \n# \$1 - to (email address)\r\ + \n# \$2 - subject\r\ + \n# \$3 - body\r\ + \n# \$4 - file attachments (optional; pass \"\" if not needed)\r\ + \n#\r\ + \n# Example:\r\ + \n# \$FuncSendEmailSafe \"admin@domain.com\" \"Backup Done\" \"Backup comp\ + lete.\" \"backup1.backup\"\r\ + \n:local FuncSendEmailSafe do={\r\ + \n\r\ + \n :local emailTo \$1\r\ + \n :local emailSubject \$2\r\ + \n :local emailBody \$3\r\ + \n :local emailAttachments \$4\r\ + \n\r\ + \n :local SMP \"Bkp&Upd:\"\r\ + \n :local exitErrorMessage \"\$SMP script stopped due to an error. Please\ + \_check logs for more details.\"\r\ + \n\r\ + \n :log info \"\$SMP Attempting to send email to `\$emailTo`\"\r\ + \n\r\ + \n # SAFETY: wait for any previously queued email to finish\r\ + \n :local waitTimeoutPre 60\r\ + \n :local waitCounterPre 0\r\ + \n :while (([/tool e-mail get last-status] = \"resolving-dns\" or [/tool \ + e-mail get last-status] = \"in-progress\")) do={\r\ + \n :if (\$waitCounterPre >= \$waitTimeoutPre) do={\r\ + \n :log error \"\$SMP Email send aborted: previous send did not compl\ + ete after \$waitTimeoutPre seconds\"\r\ + \n :error \$exitErrorMessage\r\ + \n }\r\ + \n\r\ + \n :log info \"\$SMP Waiting for previous email to finish (status: \$[/\ + tool e-mail get last-status])...\"\r\ + \n :delay 1s\r\ + \n :set waitCounterPre (\$waitCounterPre + 1)\r\ + \n }\r\ + \n\r\ + \n # Send the email\r\ + \n :do {\r\ + \n /tool e-mail send to=\$emailTo subject=\$emailSubject body=\$emailBo\ + dy file=\$emailAttachments\r\ + \n } on-error={\r\ + \n :log error \"\$SMP Email send command failed to execute. Check logs \ + and verify email settings.\"\r\ + \n :error \$exitErrorMessage\r\ + \n }\r\ + \n\r\ + \n # Wait for send status to change from \"in-progress\" / \"resolving-dn\ + s\"\r\ + \n :local waitTimeout 60\r\ + \n :local waitCounter 0\r\ + \n :local emailStatus \"\"\r\ + \n :log info \"\$SMP Waiting for email to be sent, timeout in `\$waitTime\ + out` seconds...\"\r\ + \n :while (\$waitCounter < \$waitTimeout) do={\r\ + \n :set emailStatus [/tool e-mail get last-status]\r\ + \n :if (\$emailStatus != \"in-progress\" and \$emailStatus != \"resolvi\ + ng-dns\") do={\r\ + \n :log info \"\$SMP Email send status received: \$emailStatus\"\r\ + \n\r\ + \n # exit loop\r\ + \n :set waitCounter \$waitTimeout\r\ + \n } else={\r\ + \n :delay 1s\r\ + \n :set waitCounter (\$waitCounter + 1)\r\ + \n }\r\ + \n }\r\ + \n\r\ + \n # Final decision based on last status\r\ + \n :if (\$emailStatus = \"succeeded\") do={\r\ + \n :log info \"\$SMP Email successfully sent to `\$emailTo`\"\r\ + \n } else={\r\ + \n :log error \"\$SMP Email failed to send. Status: `\$emailStatus`. Ch\ + eck logs for more details and verify email settings.\"\r\ + \n :error \$exitErrorMessage\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n# Global variable to track current update step\r\ + \n# They need to be initialized here first to be available in the script\r\ + \n:global buGlobalVarTargetOsVersion\r\ + \n\r\ + \n:global buGlobalVarScriptStep\r\ + \n:local scriptStep \$buGlobalVarScriptStep\r\ + \n:do {/system script environment remove buGlobalVarScriptStep} on-error={\ + }\r\ + \n:if ([:len \$scriptStep] = 0) do={\r\ + \n :set scriptStep 1\r\ + \n}\r\ + \n## ^^ FUNCTIONS ^^ ##\r\ + \n\r\ + \n\r\ + \n#\r\ + \n# Initial validation\r\ + \n#\r\ + \n\r\ + \n## Check email settings\r\ + \n:if ([:len \$emailAddress] < 3) do={\r\ + \n :log error (\"\$SMP Parameter `\\\$emailAddress` is not set, or contai\ + ns invalid value. Script stopped.\")\r\ + \n :error \$exitErrorMessage\r\ + \n}\r\ + \n\r\ + \n# Values will be defined later in the script\r\ + \n:local emailServer \"\"\r\ + \n:local emailFromAddress [/tool e-mail get from]\r\ + \n\r\ + \n:log info \"\$SMP Validating email settings...\"\r\ + \n:do {\r\ + \n :set emailServer [/tool e-mail get server]\r\ + \n} on-error={\r\ + \n # This is a workaround for the RouterOS v7.12 and older versions\r\ + \n :set emailServer [/tool e-mail get address]\r\ + \n}\r\ + \n:if (\$emailServer = \"0.0.0.0\") do={\r\ + \n :log error (\"\$SMP Email server address is not correct: `\$emailServe\ + r`, check `Tools -> Email`. Script stopped.\");\r\ + \n :error \$exitErrorMessage\r\ + \n}\r\ + \n:if ([:len \$emailFromAddress] < 3) do={\r\ + \n :log error (\"\$SMP Email configuration FROM address is not correct: `\ + \$emailFromAddress`, check `Tools -> Email`. Script stopped.\");\r\ + \n :error \$exitErrorMessage\r\ + \n}\r\ + \n\r\ + \n# Script mode validation\r\ + \n:if (\$scriptMode != \"backup\" and \$scriptMode != \"osupdate\" and \$s\ + criptMode != \"osnotify\") do={\r\ + \n :log error (\"\$SMP Script parameter `\\\$scriptMode` is not set, or c\ + ontains invalid value: `\$scriptMode`. Script stopped.\")\r\ + \n :error \$exitErrorMessage\r\ + \n}\r\ + \n\r\ + \n# Update channel validation\r\ + \n:if (\$updateChannel != \"stable\" and \$updateChannel != \"long-term\" \ + and \$updateChannel != \"testing\" and \$updateChannel != \"development\")\ + \_do={\r\ + \n :log error (\"\$SMP Script parameter `\\\$updateChannel` is not set, o\ + r contains invalid value: `\$updateChannel`. Script stopped.\")\r\ + \n :error \$exitErrorMessage\r\ + \n}\r\ + \n\r\ + \n# Verify if script is set to install patch updates and if the update cha\ + nnel is valid\r\ + \n:if (\$scriptMode = \"osupdate\" and \$installOnlyPatchUpdates = true) d\ + o={\r\ + \n :if (\$updateChannel != \"stable\" and \$updateChannel != \"long-term\ + \") do={\r\ + \n :log error (\"\$SMP Patch-only updates enabled, but update channel `\ + \$updateChannel` is invalid. Only `stable` and `long-term` are supported. \ + Script stopped\")\r\ + \n :error \$exitErrorMessage\r\ + \n }\r\ + \n\r\ + \n :local susRunningOsChannel [\$FuncGetRunningOsChannel]\r\ + \n\r\ + \n :if (\$susRunningOsChannel != \"stable\" and \$susRunningOsChannel != \ + \"long-term\") do={\r\ + \n :log error (\"\$SMP Script is set to install only patch updates, but\ + \_the installed RouterOS version is not from `stable` or `long-term` chann\ + el: `\$susRunningOsChannel`. Script stopped\")\r\ + \n :error \$exitErrorMessage\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n#\r\ + \n# Get current date and time\r\ + \n#\r\ + \n:local rawTime [/system clock get time]\r\ + \n:local rawDate [/system clock get date]\r\ + \n\r\ + \n# Current time in specific format `hh-mm-ss`\r\ + \n:local currentTime ([:pick \$rawTime 0 2] . \"-\" . [:pick \$rawTime 3 5\ + ] . \"-\" . [:pick \$rawTime 6 8])\r\ + \n\r\ + \n# Current date `YYYY-MM-DD` or `YYYY-Mon-DD`\r\ + \n:local currentDate \"undefined\"\r\ + \n\r\ + \n# Check if the date is in the old format\r\ + \n:if ([:len [:tonum [:pick \$rawDate 0 1]]] = 0) do={\r\ + \n # Convert old format `nov/11/2023` > `2023-nov-11`\r\ + \n :set currentDate ([:pick \$rawDate 7 11] . \"-\" . [:pick \$rawDate 0 \ + 3] . \"-\" . [:pick \$rawDate 4 6])\r\ + \n} else={\r\ + \n # Use new format as is `YYYY-MM-DD`\r\ + \n :set currentDate \$rawDate\r\ + \n}\r\ + \n\r\ + \n:local currentDateTime (\$currentDate . \"-\" . \$currentTime)\r\ + \n\r\ + \n:local deviceBoardName [/system resource get board-name]\r\ + \n\r\ + \n## Check if it's a cloud hosted router\r\ + \n:local isCloudHostedRouter false;\r\ + \n:if ([:pick \$deviceBoardName 0 3] = \"CHR\" or [:pick \$deviceBoardName\ + \_0 3] = \"x86\") do={\r\ + \n :set isCloudHostedRouter true;\r\ + \n};\r\ + \n\r\ + \n:local deviceIdentityName [/system identity get name];\r\ + \n:local deviceIdentityNameShort [:pick \$deviceIdentityName 0 18]\r\ + \n\r\ + \n:local deviceRbModel \"CloudHostedRouter\";\r\ + \n:local deviceRbSerialNumber \"--\"\r\ + \n:local deviceRbCurrentFw \"--\"\r\ + \n:local deviceRbUpgradeFw \"--\"\r\ + \n\r\ + \n:if (\$isCloudHostedRouter = false) do={\r\ + \n :set deviceRbModel [/system routerboard get model]\r\ + \n :set deviceRbSerialNumber [/system routerboard get serial-number]\r\ + \n :set deviceRbCurrentFw [/system routerboard get current-firmware]\r\ + \n :set deviceRbUpgradeFw [/system routerboard get upgrade-firmware]\r\ + \n};\r\ + \n\r\ + \n:local runningOsChannel [\$FuncGetRunningOsChannel]\r\ + \n:local runningOsVersion [\$FuncGetRunningOsVersion]\r\ + \n:local deviceOsVerAndChannelRunning [/system resource get version]\r\ + \n\r\ + \n:local backupNameTemplate \"backup_v\$runningOsVersion_\$runningOsCh\ + annel_\$currentDateTime\"\r\ + \n:local backupNameBeforeUpdate \"backup_before_update_\$backupNameTemplat\ + e\"\r\ + \n:local backupNameAfterUpdate \"backup_after_update_\$backupNameTemplate\ + \"\r\ + \n\r\ + \n## Email body template\r\ + \n\r\ + \n:local mailSubjectPrefix \"\$SMP Device - `\$deviceIdentityNameShort`\"\ + \r\ + \n\r\ + \n:local mailBodyCopyright \"Mikrotik RouterOS automatic backup & update \ + (ver. \$scriptVersion) \\nhttps://github.com/beeyev/Mikrotik-RouterOS-auto\ + matic-backup-and-update\"\r\ + \n:local changelogUrl \"Check RouterOS changelog: https://mikrotik.com\ + /download/changelogs/\"\r\ + \n\r\ + \n:local mailBodyDeviceInfo \"\"\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"Device information:\")\ + \r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\n-------------------\ + --\")\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nName: \$deviceIdent\ + ityName\")\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nModel: \$deviceRbMo\ + del\")\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nBoard: \$deviceBoar\ + dName\")\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nSerial number: \$de\ + viceRbSerialNumber\")\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nRouterOS version: v\ + \$deviceOsVerAndChannelRunning\")\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nBuild time: \$[/sys\ + tem resource get build-time]\")\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nRouterboard FW: \$d\ + eviceRbCurrentFw\")\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nDevice date-time: \ + \$rawDate \$rawTime (\$[/system clock get time-zone-name ])\")\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nUptime: \$[/system \ + resource get uptime]\")\r\ + \n# IP address will be appended later if needed\r\ + \n\r\ + \n:local mailAttachments [:toarray \"\"]\r\ + \n\r\ + \n## IP address detection\r\ + \n:if (\$scriptStep = 1 or \$scriptStep = 3) do={\r\ + \n :if (\$scriptStep = 3) do={\r\ + \n :log info (\"\$SMP Waiting for one minute before continuing to the f\ + inal step.\")\r\ + \n :delay 1m\r\ + \n }\r\ + \n # default values\r\ + \n :local publicIpAddress \"not-detected\"\r\ + \n :local telemetryDataQuery \"\"\r\ + \n\r\ + \n :if (\$detectPublicIpAddress = true or \$anonStats = true) do={\r\ + \n :if (\$anonStats = true) do={\r\ + \n :set telemetryDataQuery (\"\\\?mode=\" . \$scriptMode . \"&scriptv\ + er=\" . \$scriptVersion . \"&updatechannel=\" . \$updateChannel . \"&osver\ + =\" . \$runningOsVersion . \"&step=\" . \$scriptStep . \"&forcebackup=\" .\ + \_\$forceBackup . \"&onlypatchupdates=\" . \$installOnlyPatchUpdates . \"&\ + model=\" . \$deviceRbModel . \"&deviceboard=\" . \$deviceBoardName)\r\ + \n }\r\ + \n\r\ + \n :do {:set publicIpAddress ([/tool fetch http-method=\"get\" url=(\$i\ + pAddressDetectServiceDefault . \$telemetryDataQuery) output=user as-value]\ + ->\"data\")} on-error={\r\ + \n :if (\$detectPublicIpAddress = true) do={\r\ + \n :log warning \"\$SMP Failed to detect public IP using default se\ + rvice: `\$ipAddressDetectServiceDefault`\"\r\ + \n :log warning \"\$SMP Trying fallback service: `\$ipAddressDetect\ + ServiceFallback`\"\r\ + \n\r\ + \n :do {:set publicIpAddress ([/tool fetch http-method=\"get\" url=\ + \$ipAddressDetectServiceFallback output=user as-value]->\"data\")} on-erro\ + r={\r\ + \n :log warning \"\$SMP Could not detect public IP address using \ + fallback detection service: `\$ipAddressDetectServiceFallback`\"\r\ + \n }\r\ + \n }\r\ + \n }\r\ + \n\r\ + \n # basic safety\r\ + \n :set publicIpAddress ([:pick \$publicIpAddress 0 15])\r\ + \n\r\ + \n :if (\$detectPublicIpAddress = true) do={\r\ + \n :set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nPublic IP add\ + ress: \$publicIpAddress\")\r\ + \n :log info \"\$SMP Public IP address detected: `\$publicIpAddress`\ + \"\r\ + \n }\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n## STEP 1: Create backups, check for new RouterOS, and send email\r\ + \n## Steps 2\E2\80\933 run only if auto-update is enabled and a new versio\ + n is available\r\ + \n:if (\$scriptStep = 1) do={\r\ + \n :local routerOsVersionAvailable \"0.0.0\"\r\ + \n :local isNewOsUpdateAvailable false\r\ + \n :local isLatestOsAlreadyInstalled true\r\ + \n :local isOsNeedsToBeUpdated false\r\ + \n :local isUpdateCheckSucceeded false\r\ + \n :local isEmailNeedsToBeSent false\r\ + \n\r\ + \n :local mailSubjectPartAction \"\"\r\ + \n :local mailPtBodyAction \"\"\r\ + \n\r\ + \n :local mailPtSubjectBackup \"\"\r\ + \n :local mailPtBodyBackup \"\"\r\ + \n\r\ + \n # Checking for new version\r\ + \n :if (\$scriptMode = \"osupdate\" or \$scriptMode = \"osnotify\") do={\ + \r\ + \n log info (\"\$SMP Setting update channel to `\$updateChannel`\")\r\ + \n /system package update set channel=\$updateChannel\r\ + \n log info (\"\$SMP Checking for new RouterOS version. Current install\ + ed version is: `\$runningOsVersion`\")\r\ + \n /system package update check-for-updates\r\ + \n\r\ + \n # Wait to allow the system to check for updates\r\ + \n :delay 5s;\r\ + \n\r\ + \n :local packageUpdateStatus \"undefined\"\r\ + \n\r\ + \n :set routerOsVersionAvailable [/system package update get latest-ver\ + sion]\r\ + \n :set packageUpdateStatus [/system package update get status]\r\ + \n\r\ + \n :if (\$packageUpdateStatus = \"New version is available\") do={\r\ + \n :log info (\"\$SMP New RouterOS version is available: `\$routerOsV\ + ersionAvailable`\")\r\ + \n :set isNewOsUpdateAvailable true\r\ + \n :set isLatestOsAlreadyInstalled false\r\ + \n :set isUpdateCheckSucceeded true\r\ + \n :set isEmailNeedsToBeSent true\r\ + \n\r\ + \n :set mailSubjectPartAction \"New RouterOS available\"\r\ + \n :set mailPtBodyAction \"New RouterOS version is available, curren\ + t version: v\$runningOsVersion, new version: v\$routerOsVersionAvailable. \ + \\n\$changelogUrl\"\r\ + \n } else={\r\ + \n :if (\$packageUpdateStatus = \"System is already up to date\") do=\ + {\r\ + \n :log info (\"\$SMP No new RouterOS version is available, the lat\ + est version is already installed: `v\$runningOsVersion`\")\r\ + \n :set isUpdateCheckSucceeded true\r\ + \n\r\ + \n :set mailSubjectPartAction \"No os update available\"\r\ + \n :set mailPtBodyAction \"No new RouterOS version is available, t\ + he latest version is already installed: `v\$runningOsVersion`\"\r\ + \n } else={\r\ + \n :log error (\"\$SMP Failed to check for new RouterOS version. Pa\ + ckage check status: `\$packageUpdateStatus`\")\r\ + \n :set isEmailNeedsToBeSent true\r\ + \n\r\ + \n :set mailSubjectPartAction \"Error unable to check new os versio\ + n\"\r\ + \n :set mailPtBodyAction \"An error occurred while checking for a \ + new RouterOS version.\\nStatus returned: `\$packageUpdateStatus`\\n\\nPlea\ + se review the logs on the device for more details and verify internet conn\ + ectivity.\"\r\ + \n }\r\ + \n }\r\ + \n }\r\ + \n\r\ + \n # Checking if the script needs to install new os version\r\ + \n :if (\$scriptMode = \"osupdate\" and \$isNewOsUpdateAvailable = true) \ + do={\r\ + \n :if (\$installOnlyPatchUpdates = true) do={\r\ + \n :if ([\$FuncIsPatchUpdateOnly \$runningOsVersion \$routerOsVersion\ + Available] = true) do={\r\ + \n :log info \"\$SMP New RouterOS version is available, and it is a\ + \_patch update. Current version: v\$runningOsVersion, new version: v\$rout\ + erOsVersionAvailable\"\r\ + \n :set isOsNeedsToBeUpdated true\r\ + \n } else={\r\ + \n :log info \"\$SMP The script will not install this update, becau\ + se it is not a patch update. Current version: v\$runningOsVersion, new ver\ + sion: v\$routerOsVersionAvailable\"\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nThis update wil\ + l not be installed, because the script is set to install only patch update\ + s.\")\r\ + \n }\r\ + \n } else={\r\ + \n :set isOsNeedsToBeUpdated true\r\ + \n }\r\ + \n }\r\ + \n\r\ + \n\r\ + \n # Checking If the script needs to create a backup\r\ + \n :if (\$forceBackup = true or \$scriptMode = \"backup\" or \$isOsNeedsT\ + oBeUpdated = true) do={\r\ + \n :log info (\"\$SMP Starting backup process.\")\r\ + \n\r\ + \n :set isEmailNeedsToBeSent true\r\ + \n\r\ + \n :local backupName \$backupNameTemplate\r\ + \n\r\ + \n # This means it's the first step where we create a backup before the\ + \_update process\r\ + \n :if (\$isOsNeedsToBeUpdated = true) do={\r\ + \n :set backupName \$backupNameBeforeUpdate\r\ + \n\r\ + \n #Email body if the purpose of the script is to update the device\r\ + \n :set mailSubjectPartAction \"Update preparation\"\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nThe update proces\ + s for device '\$deviceIdentityName' is scheduled to upgrade RouterOS from \ + version v.\$runningOsVersion to version v.\$routerOsVersionAvailable (Upda\ + te channel: \$updateChannel)\")\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nPlease note: The \ + update will proceed only after a successful backup.\")\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nA final report wi\ + th detailed information will be sent once the update process is completed.\ + \")\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nIf you do not rec\ + eive a second email within the next 10 minutes, there may be an issue. Ple\ + ase check your device logs for further information.\")\r\ + \n }\r\ + \n\r\ + \n :do {\r\ + \n :set mailAttachments [\$FuncCreateBackups \$backupName \$backupPas\ + sword \$sensitiveDataInConfig];\r\ + \n\r\ + \n :set mailPtSubjectBackup \"Backup created\"\r\ + \n :set mailPtBodyBackup \"System backups have been successfully crea\ + ted and attached to this email.\"\r\ + \n } on-error={\r\ + \n #failed to create backup\r\ + \n :set isOsNeedsToBeUpdated false\r\ + \n\r\ + \n :set mailPtSubjectBackup \"Backup failed\"\r\ + \n :set mailPtBodyBackup \"The script failed to create backups. Pleas\ + e check device logs for more details.\"\r\ + \n\r\ + \n :log warning \"\$SMP Backup creation failed. Update process will b\ + e canceled if automatic update is enabled\"\r\ + \n }\r\ + \n }\r\ + \n\r\ + \n :if (\$isEmailNeedsToBeSent = true) do={\r\ + \n :log info \"\$SMP Preparing to send email...\"\r\ + \n\r\ + \n :local mailStep1Subject \$mailSubjectPrefix\r\ + \n :local mailStep1Body \"\"\r\ + \n\r\ + \n # subject\r\ + \n :if (\$mailSubjectPartAction != \"\") do={:set mailStep1Subject (\$\ + mailStep1Subject . \" - \" . \$mailSubjectPartAction)}\r\ + \n :if (\$mailPtSubjectBackup != \"\") do={:set mailStep1Subject (\$ma\ + ilStep1Subject . \" - \" . \$mailPtSubjectBackup)}\r\ + \n # body\r\ + \n :if (\$mailPtBodyAction != \"\") do={:set mailStep1Body (\$mailStep1\ + Body . \$mailPtBodyAction . \"\\n\\n\")}\r\ + \n :if (\$mailPtBodyBackup != \"\") do={:set mailStep1Body (\$mailStep1\ + Body . \$mailPtBodyBackup . \"\\n\\n\")}\r\ + \n\r\ + \n :set mailStep1Body (\$mailStep1Body . \$mailBodyDeviceInfo . \"\\n\\\ + n\" . \$mailBodyCopyright)\r\ + \n\r\ + \n # Send email with backups\r\ + \n :do {\$FuncSendEmailSafe \$emailAddress \$mailStep1Subject \$mailSte\ + p1Body \$mailAttachments} on-error={\r\ + \n :set isOsNeedsToBeUpdated false\r\ + \n :log error \"\$SMP The script will not proceed with the update pro\ + cess, because the email was not sent.\"\r\ + \n }\r\ + \n }\r\ + \n\r\ + \n :if ([:len \$mailAttachments] > 0) do={\r\ + \n :log info \"\$SMP Cleaning up backup files from the file system...\"\ + \r\ + \n /file remove \$mailAttachments;\r\ + \n :delay 2s;\r\ + \n }\r\ + \n\r\ + \n :if (\$isOsNeedsToBeUpdated = true) do={\r\ + \n :log info \"\$SMP everything is ready to install new RouterOS, going\ + \_to start the update process and reboot the device.\"\r\ + \n :do {\r\ + \n :local nextStep 2\r\ + \n :if (\$isCloudHostedRouter = true) do={\r\ + \n :log info \"\$SMP The device is a cloud hosted router, the secon\ + d step updating the Routerboard firmware will be skipped.\"\r\ + \n :set nextStep 3\r\ + \n }\r\ + \n\r\ + \n :local scheduledCommand (\":delay 5s; /system scheduler remove BKP\ + UPD-NEXT-BOOT-TASK; :global buGlobalVarScriptStep \$nextStep; :global buGl\ + obalVarTargetOsVersion \\\"\$routerOsVersionAvailable\\\"; :delay 10s; /sy\ + stem script run BackupAndUpdate;\")\r\ + \n /system scheduler add name=BKPUPD-NEXT-BOOT-TASK on-event=\$schedu\ + ledCommand start-time=startup interval=0\r\ + \n\r\ + \n /system package update install\r\ + \n } on-error={\r\ + \n # Failed to install new os version, remove the task\r\ + \n :do {/system scheduler remove BKPUPD-NEXT-BOOT-TASK} on-error={}\r\ + \n\r\ + \n :log error \"\$SMP Failed to install new RouterOS version. Please \ + check device logs for more details.\"\r\ + \n\r\ + \n :local mailUpdateErrorSubject (\$mailSubjectPrefix . \" - Update f\ + ailed\")\r\ + \n :local mailUpdateErrorBody \"The script was unable to install new \ + RouterOS version. Please check device logs for more details.\"\r\ + \n\r\ + \n # Send email with error\r\ + \n \$FuncSendEmailSafe \$emailAddress \$mailUpdateErrorSubject \$mail\ + UpdateErrorBody \"\"\r\ + \n\r\ + \n :error \$exitErrorMessage\r\ + \n }\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n## STEP 2: (Post-reboot) Upgrade RouterBOARD firmware\r\ + \n## Runs only if auto-update is enabled and a new RouterOS version was fo\ + und\r\ + \n:if (\$scriptStep = 2) do={\r\ + \n :log info \"\$SMP The script is in the second step, updating Routerboa\ + rd firmware.\"\r\ + \n\r\ + \n :log info \"\$SMP Upgrading routerboard firmware from v.\$deviceRbCurr\ + entFw to v.\$deviceRbUpgradeFw\"\r\ + \n\r\ + \n /system routerboard upgrade\r\ + \n :delay 2s\r\ + \n\r\ + \n :log info \"\$SMP routerboard upgrade process was completed, going to \ + reboot in a moment!\";\r\ + \n\r\ + \n ## Set task to send final report on the next boot\r\ + \n /system scheduler add name=BKPUPD-NEXT-BOOT-TASK on-event=\":delay 5s;\ + \_/system scheduler remove BKPUPD-NEXT-BOOT-TASK; :global buGlobalVarScrip\ + tStep 3; :global buGlobalVarTargetOsVersion \\\"\$buGlobalVarTargetOsVersi\ + on\\\"; :delay 10s; /system script run BackupAndUpdate;\" start-time=start\ + up interval=0\r\ + \n\r\ + \n /system reboot;\r\ + \n}\r\ + \n\r\ + \n## STEP 3: Final report (after second reboot, with delay).\r\ + \n## Runs only if auto-update is enabled and a new RouterOS version was fo\ + und.\r\ + \n:if (\$scriptStep = 3) do={\r\ + \n :log info (\"\$SMP The script is in the third step, sending final repo\ + rt.\")\r\ + \n\r\ + \n :local targetOsVersion \$buGlobalVarTargetOsVersion\r\ + \n :do {/system script environment remove buGlobalVarTargetOsVersion} on-\ + error={}\r\ + \n :if ([:len \$targetOsVersion] = 0) do={\r\ + \n :log warning \"\$SMP Something is wrong, the script was unable to ge\ + t the target updated OS version from the global variable.\"\r\ + \n }\r\ + \n\r\ + \n :local mailStep3Subject \$mailSubjectPrefix\r\ + \n :local mailStep3Body \"\"\r\ + \n\r\ + \n :if (\$targetOsVersion = \$runningOsVersion) do={\r\ + \n :log info \"\$SMP Successfully verified new RouterOS version: target\ + : `\$targetOsVersion`, current: `\$runningOsVersion`\"\r\ + \n\r\ + \n :set mailStep3Subject (\$mailStep3Subject . \" - Update completed - \ + Backup created\")\r\ + \n :set mailStep3Body (\$mailStep3Body . \"RouterOS and routerboard upg\ + rade process was completed\")\r\ + \n :set mailStep3Body (\$mailStep3Body . \"\\nNew RouterOS version: v.\ + \$targetOsVersion, routerboard firmware: v.\$deviceRbCurrentFw\")\r\ + \n :set mailStep3Body (\$mailStep3Body . \"\\n\$changelogUrl\\nBackups \ + of the upgraded system are in the attachment of this email.\\n\\n\$mailBod\ + yDeviceInfo\\n\\n\$mailBodyCopyright\")\r\ + \n\r\ + \n :set mailAttachments [\$FuncCreateBackups \$backupNameAfterUpdate \$\ + backupPassword \$sensitiveDataInConfig];\r\ + \n } else={\r\ + \n :log error \"\$SMP Failed to verify new RouterOS version: target: `\ + \$targetOsVersion`, current: `\$runningOsVersion`\"\r\ + \n :set mailStep3Subject (\$mailStep3Subject . \" - Update failed\")\r\ + \n\r\ + \n :set mailStep3Body (\$mailStep3Body . \"The script was unable to ver\ + ify that the new RouterOS version was installed, target version: `\$target\ + OsVersion`, current version: `\$runningOsVersion`\\nCheck device logs for \ + more details.\\n\\n\$mailBodyDeviceInfo\\n\\n\$mailBodyCopyright\")\r\ + \n }\r\ + \n\r\ + \n \$FuncSendEmailSafe \$emailAddress \$mailStep3Subject \$mailStep3Body \ + \$mailAttachments\r\ + \n\r\ + \n :if ([:len \$mailAttachments] > 0) do={\r\ + \n :log info \"\$SMP Cleaning up backup files from the file system...\"\ + \r\ + \n /file remove \$mailAttachments;\r\ + \n :delay 2s;\r\ + \n }\r\ + \n\r\ + \n :log info \"\$SMP Final report email sent successfully, and the script\ + \_has finished.\"\r\ + \n}\r\ + \n\r\ + \n:log info \"\$SMP the script has finished, script step: `\$scriptStep` \ + \\n\\n\"" +add comment="Certificates CloudFlare" dont-require-permissions=no name=\ + Certificate_CloudFlare owner=vados policy=\ + ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="/\ + tool fetch url=https://cacerts.digicert.com/DigiCertGlobalRootCA.crt.pem\r\ + \n/certificate import file-name=DigiCertGlobalRootCA.crt.pem passphrase=\"\ + \"\r\ + \n/tool fetch url=https://cacerts.digicert.com/DigiCertGlobalG2TLSRSASHA25\ + 62020CA1-1.crt.pem\r\ + \n/certificate import file-name=DigiCertGlobalG2TLSRSASHA2562020CA1-1.crt.\ + pem passphrase=\"\"\r\ + \n#/ip dns set allow-remote-requests=yes doh-max-concurrent-queries=100 do\ + h-max-server-connections=20 use-doh-server=https://security.cloudflare-dns\ + .com/dns-query verify-doh-cert=yes\r\ + \n#/ip dns static add address=1.1.1.1 name=security.cloudflare-dns.com\r\ + \n#/ip dns static add address=1.0.0.1 name=security.cloudflare-dns.com\r\ + \n#/ip dns static add address=2606:4700:4700::1111 name=security.cloudflar\ + e-dns.com type=AAAA\r\ + \n#/ip dns static add address=2606:4700:4700::1001 name=security.cloudflar\ + e-dns.com type=AAAA\r\ + \n#/ip dns set servers=\"\"" +add dont-require-permissions=no name=Amster-Backup-UpdateEmail owner=vados \ + policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon \ + source="#!rsc by/// Vados\r\ + \n# RouterOS script: Amster-Backup-UpdateEmail\r\ + \n# Script comment: Update and Backup send notification to EMail\r\ + \n#\r\ + \n#\r\ + \n# requires RouterOS, version>=6.43.7\r\ + \n# requires device-mode, fetch\r\ + \n#\r\ + \n# Updated: 15/04/2025\r\ + \n# Website: https://github.com/beeyev\r\ + \n# Notification e-mail (Make sure you have configured Email settings in T\ + ools -> Email)\r\ + \n:local ExitOK false;\r\ + \n:onerror Err {\r\ + \n :global GlobalConfReady; :global GlobalFuncReady;\r\ + \n :retry { :if (\$GlobalConfReady != true || \$GlobalFuncReady != true) \ + \\\r\ + \n do={ :error (\"Global config and/or functions not ready.\"); }; } \ + delay=500ms max=50;\r\ + \n :local ScriptName [ :jobname ];\r\ + \n\r\ + \n:global LogPrint;\r\ + \n\r\ + \n# Add scheduler\r\ + \n:if ([ :len [ /system/scheduler/find where name=\$ScriptName ] ] = 0) do\ + ={\r\ + \n \$LogPrint warning \$ScriptName (\"SystemScheduler NOT SET!\");\r\ + \n /system/scheduler/add name=\$ScriptName on-event=\"/system/script { ru\ + n \$ScriptName; }\" comment=\"Scheduler for \$ScriptName\" interval=\"7d 0\ + 0:00:00\" policy=ftp,reboot,read,write,policy,test,password,sniff,sensitiv\ + e,romon start-time=\"03:41:27\"; \r\ + \n :set ExitOK true;\r\ + \n :error false;\r\ + \n}\r\ + \n\r\ + \n:global EmailGeneralTo;\r\ + \n:global BackupAndUpdateMode;\r\ + \n:global forceBackup;\r\ + \n:global BackupPassword;\r\ + \n:global BackupSens;\r\ + \n:global updateChannel;\r\ + \n:global getPubIp;\r\ + \n\r\ + \n# Installs patch updates only (BackupAndUpdateMode = \"osupdate\").\r\ + \n# Works for `stable` and `long-term` channels.\r\ + \n# Updates only if MAJOR.MINOR match (e.g. 6.43.2 > 6.43.6 allowed, 6.44.\ + 1 skipped).\r\ + \n# Sends info if a newer (non-patch) version is found.\r\ + \n:local installOnlyPatchUpdates false\r\ + \n:local scriptVersion \"26.02.12\"\r\ + \n\r\ + \n# Include public IP info in email if set to true\r\ + \n:local includePubIpAddr true;\r\ + \n# default and fallback public IP detection services\r\ + \n:local ipAddrDefault \"https://ipv4.mikrotik.ovh/\";\r\ + \n:local ipAddrFallback \"https://api.ipify.org/\";\r\ + \n\r\ + \n#Script messages prefix\r\ + \n:local SMP \"BkpAndUpdate:\"\r\ + \n\r\ + \n:local exitErrorMessage \"\$SMP script stopped due to an error. Please c\ + heck logs for more details.\"\r\ + \n:log info \"\\n\\n\$SMP Script \\\"Mikrotik RouterOS automatic backup & \ + update\\\" v.\$scriptVersion started.\"\r\ + \n:log info \"\$SMP Script Mode: `\$BackupAndUpdateMode`, Update channel: \ + `\$updateChannel`, Force backup: `\$forceBackup`, Install only patch updat\ + es: `\$installOnlyPatchUpdates`\"\r\ + \n\r\ + \n## vv FUNCTIONS vv ##\r\ + \n\r\ + \n# Returns currently running RouterOS version\r\ + \n# :put [\$FuncGetRunningOsVersion] # Output: 6.48.1\r\ + \n:local FuncGetRunningOsVersion do={\r\ + \n :local runningOsAndChannel [/system resource get version];\r\ + \n :local spacePos [:find \$runningOsAndChannel \" \"];\r\ + \n :if ([:len \$spacePos] = 0) do={\r\ + \n :log error \"\$SMP Could not extract installed OS version string: `\ + \$runningOsAndChannel`.\";\r\ + \n :error \"\$SMP error, check logs\";\r\ + \n }\r\ + \n :local versionOnly [:pick \$runningOsAndChannel 0 \$spacePos];\r\ + \n :return \$versionOnly;\r\ + \n}\r\ + \n# Returns currently running RouterOS channel\r\ + \n# :put [\$FuncGetRunningOsChannel] # Output: stable\r\ + \n:local FuncGetRunningOsChannel do={\r\ + \n :local runningOsAndChannel [/system resource get version];\r\ + \n :local open [:find \$runningOsAndChannel \"(\"];\r\ + \n :if ([:len \$open] = 0) do={\r\ + \n :log error \"\$SMP Could not extract installed OS channel from versi\ + on string: `\$runningOsAndChannel`.\";\r\ + \n :error \"\$SMP error, check logs\";\r\ + \n }\r\ + \n :local rest [:pick \$runningOsAndChannel (\$open+1) [:len \$runningOsA\ + ndChannel]];\r\ + \n :local close [:find \$rest \")\"];\r\ + \n :local channel [:pick \$rest 0 \$close];\r\ + \n :return \$channel;\r\ + \n}\r\ + \n# Checks if two RouterOS version strings differ only by the patch versio\ + n\r\ + \n# :put [\$FuncIsPatchUpdateOnly \"6.2.1\" \"6.2.4\"] # Output: true\r\ + \n# :put [\$FuncIsPatchUpdateOnly \"6.2.1\" \"6.3.1\"] # Output: false\r\ + \n:local FuncIsPatchUpdateOnly do={\r\ + \n :local ver1 \$1;\r\ + \n :local ver2 \$2;\r\ + \n # Extract the major and minor components from a version\r\ + \n :local extractMajorMinor do={\r\ + \n :local ver \$1;\r\ + \n :local dot1 [:find \$ver \".\"];\r\ + \n :if (\$dot1 = -1) do={:return \$ver}\r\ + \n :local major [:pick \$ver 0 \$dot1];\r\ + \n :local rest [:pick \$ver (\$dot1 + 1) [:len \$ver]];\r\ + \n :local dot2 [:find \$rest \".\"];\r\ + \n :local minor \$rest;\r\ + \n :if (\$dot2 >= 0) do={:set minor [:pick \$rest 0 \$dot2]}\r\ + \n :return (\$major . \".\" . \$minor);\r\ + \n }\r\ + \n\r\ + \n# Compare the major and minor components of both version strings\r\ + \n:if ([\$extractMajorMinor \$ver1] = [\$extractMajorMinor \$ver2]) do={:r\ + eturn true}\r\ + \n :return false;\r\ + \n}\r\ + \n# Creates backups and returns array of names\r\ + \n# Possible arguments:\r\ + \n# \$1 - file name, without extension\r\ + \n# \$2 - password (optional)\r\ + \n# \$3 - sensitive data in config (optional, default: false)\r\ + \n# Example:\r\ + \n#:put [\$FuncCreateBackups \$backupName]\r\ + \n:local FuncCreateBackups do={\r\ + \n :local backupName [ :tostr \$1 ];\r\ + \n :local BackPass \$2;\r\ + \n :local BackSens \$3;\r\ + \n\r\ + \n #Script messages prefix\r\ + \n :local SMP \"BkpAndUpdate:\";\r\ + \n :local exitErrorMessage \"\$SMP script stopped due to an error. Please\ + \_check logs for more details.\";\r\ + \n :log info (\"\$SMP global function `FuncCreateBackups` started, input:\ + \_`\$backupName`\");\r\ + \n\r\ + \n # validate required parameter: backupName\r\ + \n :if ([:typeof \$backupName] != \"str\" or [:len \$backupName] = 0) do=\ + {\r\ + \n :log error \"\$SMP parameter 'backupName' is required and must be a \ + non-empty string\";\r\ + \n# :log warning \"\$SMP parameter '\\\$backupName' is required and mus\ + t be a non-empty string.\\nI set '\\\$backupName' to 'default-backup'\";\r\ + \n# :set \$backupName \"default-backup\";\r\ + \n :error \$exitErrorMessage;\r\ + \n }\r\ + \n\r\ + \n :local backupFileSys \"\$backupName.backup\";\r\ + \n :local backupFileConfig \"\$backupName.rsc\";\r\ + \n :local backupNames {\$backupFileSys;\$backupFileConfig};\r\ + \n\r\ + \n ## Perform system backup\r\ + \n :if ([:len \$BackPass] = 0) do={\r\ + \n :log info (\"\$SMP starting backup without password, backup name: `\ + \$backupName`\");\r\ + \n /system backup save dont-encrypt=yes name=\$backupName;\r\ + \n } else={\r\ + \n :log info (\"\$SMP starting backup with password, backup name: `\$ba\ + ckupName`\");\r\ + \n /system backup save password=\$BackPass name=\$backupName;\r\ + \n }\r\ + \n :log info (\"\$SMP system backup created: `\$backupFileSys`\");\r\ + \n ## Export config file\r\ + \n :if (\$BackSens = true) do={\r\ + \n :log info (\"\$SMP starting export config with sensitive data, backu\ + p name: `\$backupName`\");\r\ + \n # Since RouterOS v7 it needs to be explicitly set that we want to ex\ + port sensitive data\r\ + \n :if ([:pick [/system resource get version] 0 1] < 7) do={\r\ + \n :execute \"/export compact terse file=\$backupName\";\r\ + \n } else={\r\ + \n :execute \"/export compact show-sensitive terse file=\$backupName\ + \";\r\ + \n }\r\ + \n } else={\r\ + \n :log info (\"\$SMP starting export config without sensitive data, ba\ + ckup name: `\$backupName`\");\r\ + \n /export compact hide-sensitive terse file=\$backupName;\r\ + \n }\r\ + \n :log info (\"\$SMP Config export complete: `\$backupFileConfig`\");\r\ + \n :log info (\"\$SMP Waiting a little to ensure backup files are written\ + \");\r\ + \n :delay 20;\r\ + \n :if ([:len [/file find name=\$backupFileSys]] > 0) do={\r\ + \n :log info (\"\$SMP system backup file successfully saved to the file\ + \_system: `\$backupFileSys`\");\r\ + \n } else={\r\ + \n :log error (\"\$SMP system backup was not created, file does not exi\ + st: `\$backupFileSys`\");\r\ + \n :error \$exitErrorMessage;\r\ + \n }\r\ + \n :if ([:len [/file find name=\$backupFileConfig]] > 0) do={\r\ + \n :log info (\"\$SMP config backup file successfully saved to the file\ + \_system: `\$backupFileConfig`\");\r\ + \n } else={\r\ + \n :log error (\"\$SMP config backup was not created, file does not exi\ + st: `\$backupFileConfig`\");\r\ + \n :error \$exitErrorMessage;\r\ + \n }\r\ + \n :log info (\"\$SMP global function `FuncCreateBackups` finished. Creat\ + ed backups, system: `\$backupFileSys`, config: `\$backupFileConfig`\")\r\ + \n :return \$backupNames;\r\ + \n}\r\ + \n# Sends an email\r\ + \n# Parameters:\r\ + \n# \$1 - to (email address)\r\ + \n# \$2 - subject\r\ + \n# \$3 - body\r\ + \n# \$4 - file attachments (optional; pass \"\" if not needed)\r\ + \n#\r\ + \n# Example:\r\ + \n# \$FuncSendEmailSafe \"admin@domain.com\" \"Backup Done\" \"Backup comp\ + lete.\" \"backup1.backup\"\r\ + \n:local FuncSendEmailSafe do={\r\ + \n :global EmailGeneralTo;\r\ + \n :local emailSubject \$2;\r\ + \n :local emailBody \$3;\r\ + \n :local emailAttachments \$4;\r\ + \n :local SMP \"Bkp&Upd:\";\r\ + \n :local exitErrorMessage \"\$SMP script stopped due to an error. Please\ + \_check logs for more details.\";\r\ + \n :log info \"\$SMP Attempting to send email to `\$EmailGeneralTo`\";\r\ + \n # SAFETY: wait for any previously queued email to finish\r\ + \n :local waitTimeoutPre 60;\r\ + \n :local waitCounterPre 0;\r\ + \n :while (([/tool e-mail get last-status] = \"resolving-dns\" or [/tool \ + e-mail get last-status] = \"in-progress\")) do={\r\ + \n :if (\$waitCounterPre >= \$waitTimeoutPre) do={\r\ + \n :log error \"\$SMP Email send aborted: previous send did not compl\ + ete after \$waitTimeoutPre seconds\";\r\ + \n :error \$exitErrorMessage;\r\ + \n }\r\ + \n :log info \"\$SMP Waiting for previous email to finish (status: \$[/\ + tool e-mail get last-status])...\";\r\ + \n :delay 1; \r\ + \n :set waitCounterPre (\$waitCounterPre + 1);\r\ + \n }\r\ + \n # Send the email\r\ + \n :do {\r\ + \n /tool e-mail send to=\$EmailGeneralTo subject=\$emailSubject body=\$\ + emailBody file=\$emailAttachments;\r\ + \n } on-error={\r\ + \n :log error \"\$SMP Email send command failed to execute. Check logs \ + and verify email settings.\";\r\ + \n :error \$exitErrorMessage;\r\ + \n }\r\ + \n # Wait for send status to change from \"in-progress\" / \"resolving-dn\ + s\"\r\ + \n :local waitTimeout 60;\r\ + \n :local waitCounter 0;\r\ + \n :local emailStatus \"\";\r\ + \n :log info \"\$SMP Waiting for email to be sent, timeout in `\$waitTime\ + out` seconds...\";\r\ + \n :while (\$waitCounter < \$waitTimeout) do={\r\ + \n :set emailStatus [/tool e-mail get last-status];\r\ + \n :if (\$emailStatus != \"in-progress\" and \$emailStatus != \"resolvi\ + ng-dns\") do={\r\ + \n :log info \"\$SMP Email send status received: \$emailStatus\";\r\ + \n # exit loop\r\ + \n :set waitCounter \$waitTimeout;\r\ + \n } else={:delay 1; :set waitCounter (\$waitCounter + 1)}\r\ + \n }\r\ + \n # Final decision based on last status\r\ + \n :if (\$emailStatus = \"succeeded\") do={\r\ + \n :log info \"\$SMP Email successfully sent to `\$EmailGeneralTo`\";\ + \r\ + \n } else={\r\ + \n :log error \"\$SMP Email failed to send. Status: `\$emailStatus`. Ch\ + eck logs for more details and verify email settings.\";\r\ + \n :error \$exitErrorMessage;\r\ + \n }\r\ + \n}\r\ + \n# Global variable to track current update step\r\ + \n# They need to be initialized here first to be available in the script\r\ + \n:global buGlobalVarTargetOsVersion;\r\ + \n:global buGlobalVarScriptStep;\r\ + \n:local scriptStep \$buGlobalVarScriptStep;\r\ + \n:do {/system script environment remove buGlobalVarScriptStep} on-error={\ + }\r\ + \n:if ([:len \$scriptStep] = 0) do={\r\ + \n :set scriptStep 1;\r\ + \n}\r\ + \n## ^^ FUNCTIONS ^^ ##\r\ + \n#\r\ + \n# Initial validation\r\ + \n## Check email settings\r\ + \n:if ([:len \$EmailGeneralTo] < 3) do={\r\ + \n :log error (\"\$SMP Parameter `\\\$EmailGeneralTo` is not set, or cont\ + ains invalid value. Script stopped.\");\r\ + \n :error \$exitErrorMessage;\r\ + \n}\r\ + \n# Values will be defined later in the script\r\ + \n:local emailServer \"\";\r\ + \n:local emailFromAddress [/tool e-mail get from];\r\ + \n:log info \"\$SMP Validating email settings...\";\r\ + \n:do {\r\ + \n :set emailServer [/tool e-mail get server];\r\ + \n} on-error={\r\ + \n # This is a workaround for the RouterOS v7.12 and older versions\r\ + \n :set emailServer [/tool e-mail get address];\r\ + \n}\r\ + \n:if (\$emailServer = \"0.0.0.0\") do={\r\ + \n :log error (\"\$SMP Email server address is not correct: `\$emailServe\ + r`, check `Tools -> Email`. Script stopped.\");\r\ + \n :error \$exitErrorMessage;\r\ + \n}\r\ + \n:if ([:len \$emailFromAddress] < 3) do={\r\ + \n :log error (\"\$SMP Email configuration FROM address is not correct: `\ + \$emailFromAddress`, check `Tools -> Email`. Script stopped.\");\r\ + \n :error \$exitErrorMessage;\r\ + \n}\r\ + \n# Script mode validation\r\ + \n:if (\$BackupAndUpdateMode != \"backup\" and \$BackupAndUpdateMode != \"\ + osupdate\" and \$BackupAndUpdateMode != \"updateOnce\" and \$BackupAndUpda\ + teMode != \"osnotify\") do={\r\ + \n :log error (\"\$SMP Script parameter `\\\$BackupAndUpdateMode` is not \ + set, or contains invalid value: `\$BackupAndUpdateMode`. Script stopped.\"\ + );\r\ + \n :error \$exitErrorMessage;\r\ + \n}\r\ + \n# Update channel validation\r\ + \n:if (\$updateChannel != \"stable\" and \$updateChannel != \"long-term\" \ + and \$updateChannel != \"testing\" and \$updateChannel != \"development\")\ + \_do={\r\ + \n :log error (\"\$SMP Script parameter `\\\$updateChannel` is not set, o\ + r contains invalid value: `\$updateChannel`. Script stopped.\");\r\ + \n :error \$exitErrorMessage;\r\ + \n}\r\ + \n# Verify if script is set to install patch updates and if the update cha\ + nnel is valid\r\ + \n:if ((\$BackupAndUpdateMode = \"osupdate\" or \$BackupAndUpdateMode = \"\ + updateOnce\") and \$installOnlyPatchUpdates = true) do={\r\ + \n :if (\$updateChannel != \"stable\" and \$updateChannel != \"long-term\ + \") do={\r\ + \n :log error (\"\$SMP Patch-only updates enabled, but update channel `\ + \$updateChannel` is invalid. Only `stable` and `long-term` are supported. \ + Script stopped\");\r\ + \n :error \$exitErrorMessage;\r\ + \n }\r\ + \n :local susRunningOsChannel [\$FuncGetRunningOsChannel];\r\ + \n :if (\$susRunningOsChannel != \"stable\" and \$susRunningOsChannel != \ + \"long-term\") do={\r\ + \n :log error (\"\$SMP Script is set to install only patch updates, but\ + \_the installed RouterOS version is not from `stable` or `long-term` chann\ + el: `\$susRunningOsChannel`. Script stopped\");\r\ + \n :error \$exitErrorMessage;\r\ + \n }\r\ + \n}\r\ + \n#\r\ + \n:global MiniDateTimeStamp;\r\ + \n:local MDTSFix [\$MiniDateTimeStamp];\r\ + \n:global Identity;\r\ + \n:global IdentityShort;\r\ + \n:global devBoardName;\r\ + \n:global isCHR;\r\ + \n:global devRbModel;\r\ + \n:global devRbSerialNumber;\r\ + \n:global devRbCurrentFw;\r\ + \n:global devRbUpgradeFw;\r\ + \n\r\ + \n:local rawTime [/system clock get time];\r\ + \n:local rawDate [/system clock get date];\r\ + \n\r\ + \n:local runningOsChannel [\$FuncGetRunningOsChannel];\r\ + \n:local runningOsVersion [\$FuncGetRunningOsVersion];\r\ + \n:local deviceOsVerAndChannelRunning [/system resource get version];\r\ + \n\r\ + \n:local backupNameTemplate (\"backup_v\" . \$runningOsVersion . \"_\"\ + \_. \$runningOsChannel . \"_\" . \$MDTSFix);\r\ + \n:local backupNameBeforeUpdate (\$backupNameTemplate . \"_before_update\"\ + );\r\ + \n:local backupNameAfterUpdate (\$backupNameTemplate . \"_after_update\")\ + ;\r\ + \n\r\ + \n## Email body template\r\ + \n:local mailSubjectPrefix \"\$SMP Device - `\$IdentityShort`\";\r\ + \n:local mailBodyCopyright \"Mikrotik RouterOS automatic backup & update \ + (ver. \$scriptVersion) \\nhttps://github.com/beeyev/Mikrotik-RouterOS-auto\ + matic-backup-and-update\";\r\ + \n:local changelogUrl \"Check RouterOS changelog: https://mikrotik.com\ + /download/changelogs/\";\r\ + \n:local mailBodyDeviceInfo \"\";\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"Device information:\")\ + ;\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\n-------------------\ + --\");\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nName: \$Identity\")\ + ;\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nModel: \$devRbModel\ + \");\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nBoard: \$devBoardNa\ + me\");\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nSerial number: \$de\ + vRbSerialNumber\");\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nRouterOS version: v\ + \$deviceOsVerAndChannelRunning\");\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nBuild time: \$[/sys\ + tem resource get build-time]\");\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nRouterboard FW: \$d\ + evRbCurrentFw\");\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nDevice date-time: \ + \$rawDate \$rawTime (\$[/system clock get time-zone-name ])\");\r\ + \n:set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nUptime: \$[/system \ + resource get uptime]\");\r\ + \n\r\ + \n:local mailAttachments [:toarray \"\"];\r\ + \n:if (\$scriptStep = 1 or \$scriptStep = 3) do={\r\ + \n :if (\$scriptStep = 3) do={\r\ + \n :log info (\"\$SMP Waiting for one minute before continuing to the f\ + inal step.\");\r\ + \n :delay 1m;\r\ + \n }\r\ + \n## IP address detection\r\ + \n :local publicIpAddress \"not-detected\";\r\ + \n :if ([\$includePubIpAddr] = true) do={\r\ + \n :set publicIpAddress [ \$getPubIp \$ipAddrDefault ];\r\ + \n :if (([\$publicIpAddress] = false) || ([\$publicIpAddress] = \"not\ + -detected\")) do={\r\ + \n :log warning \"\$SMP Failed to detect public IP using default se\ + rvice: `\$ipAddrDefault`\";\r\ + \n :log warning \"\$SMP Trying fallback service: `\$ipAddrFallback`\ + \";\r\ + \n :set publicIpAddress [ \$getPubIp \$ipAddrFallback ];\r\ + \n :if (([\$publicIpAddress] = false) || ([\$publicIpAddress] = \"n\ + ot-detected\")) do={\r\ + \n :log warning \"\$SMP Could not detect public IP address using \ + fallback detection service: `\$ipAddrFallback`\";\r\ + \n }\r\ + \n }\r\ + \n :set publicIpAddress ([ :pick \$publicIpAddress 0 15]);\r\ + \n :set mailBodyDeviceInfo (\$mailBodyDeviceInfo . \"\\nPublic IP addre\ + ss: \$publicIpAddress\");\r\ + \n :log info \"\$SMP Public IP address detected: `\$publicIpAddress`\";\ + \r\ + \n } \r\ + \n}\r\ + \n\r\ + \n## STEP 1: Create backups, check for new RouterOS, and send email\r\ + \n## Steps 2\C3\A23 run only if auto-update is enabled and a new version i\ + s available\r\ + \n:if (\$scriptStep = 1) do={\r\ + \n :global BackupPassword;\r\ + \n :global BackupSens;\r\ + \n :global ROsVerAvail 0.0.0;\r\ + \n :global PkgUpdStatus \"undefined\";\r\ + \n :local isNewOsUpdateAvailable false;\r\ + \n :local isLatestOsAlreadyInstalled true;\r\ + \n :local isOsNeedsToBeUpdated false;\r\ + \n :local isUpdateCheckSucceeded false;\r\ + \n :local isEmailNeedsToBeSent false;\r\ + \n :local mailSubjectPartAction \"\";\r\ + \n :local mailPtBodyAction \"\";\r\ + \n :local mailPtSubjectBackup \"\";\r\ + \n :local mailPtBodyBackup \"\";\r\ + \n # Checking for new version\r\ + \n :if (\$BackupAndUpdateMode = \"osupdate\" or \$BackupAndUpdateMode = \ + \"osnotify\" or \$BackupAndUpdateMode = \"updateOnce\") do={\r\ + \n :log info (\"\$SMP Setting update channel to `\$updateChannel`\");\r\ + \n /system/package/update/set channel=\$updateChannel;\r\ + \n :log info (\"\$SMP Checking for new RouterOS version. Current instal\ + led version is: `\$runningOsVersion`\");\r\ + \n /system/package/update check-for-updates;\r\ + \n :delay 5s;\r\ + \n :set PkgUpdStatus [ /system/package/update/get status ];\r\ + \n :if (\$PkgUpdStatus = \"New version is available\") do={\r\ + \n :set ROsVerAvail [/system/package/update/get latest-version];\r\ + \n }\r\ + \n\r\ + \n :if (\$PkgUpdStatus = \"New version is available\") do={\r\ + \n :log info (\"\$SMP New RouterOS version is available: `\$ROsVerAva\ + il`\");\r\ + \n :set isNewOsUpdateAvailable true;\r\ + \n :set isLatestOsAlreadyInstalled false;\r\ + \n :set isUpdateCheckSucceeded true;\r\ + \n :set isEmailNeedsToBeSent true;\r\ + \n :set mailSubjectPartAction \"New RouterOS available\";\r\ + \n :set mailPtBodyAction \"New RouterOS version is available, curren\ + t version: v\$runningOsVersion, new version: v\$ROsVerAvail. \\n\$changelo\ + gUrl\";\r\ + \n } else={\r\ + \n :if (\$PkgUpdStatus = \"System is already up to date\") do={\r\ + \n :log info (\"\$SMP No new RouterOS version is available, the lat\ + est version is already installed: `v\$runningOsVersion`\");\r\ + \n :set isUpdateCheckSucceeded true;\r\ + \n :set mailSubjectPartAction \"No os update available\";\r\ + \n :set mailPtBodyAction \"No new RouterOS version is available, t\ + he latest version is already installed: `v\$runningOsVersion`\";\r\ + \n } else={\r\ + \n :log error (\"\$SMP Failed to check for new RouterOS version. Pa\ + ckage check status: `\$PkgUpdStatus`\");\r\ + \n :set isEmailNeedsToBeSent true;\r\ + \n :set mailSubjectPartAction \"Error unable to check new os versio\ + n\";\r\ + \n :set mailPtBodyAction \"An error occurred while checking for a \ + new RouterOS version.\\nStatus returned: `\$PkgUpdStatus`\\n\\nPlease revi\ + ew the logs on the device for more details and verify internet connectivit\ + y.\";\r\ + \n }\r\ + \n }\r\ + \n }\r\ + \n # Checking if the script needs to install new os version\r\ + \n :if ((\$BackupAndUpdateMode = \"osupdate\" or \$BackupAndUpdateMode = \ + \"updateOnce\") and \$isNewOsUpdateAvailable = true) do={\r\ + \n :if (\$installOnlyPatchUpdates = true) do={\r\ + \n :if ([\$FuncIsPatchUpdateOnly \$runningOsVersion \$ROsVerAvail] = \ + true) do={\r\ + \n :log info \"\$SMP New RouterOS version is available, and it is a\ + \_patch update. Current version: v\$runningOsVersion, new version: v\$ROsV\ + erAvail\";\r\ + \n :set isOsNeedsToBeUpdated true;\r\ + \n } else={\r\ + \n :log info \"\$SMP The script will not install this update, becau\ + se it is not a patch update. Current version: v\$runningOsVersion, new ver\ + sion: v\$ROsVerAvail\";\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nThis update wil\ + l not be installed, because the script is set to install only patch update\ + s.\");\r\ + \n }\r\ + \n } else={\r\ + \n :set isOsNeedsToBeUpdated true;\r\ + \n }\r\ + \n }\r\ + \n # Checking If the script needs to create a backup\r\ + \n :if (\$forceBackup = true or \$BackupAndUpdateMode = \"backup\" or \$i\ + sOsNeedsToBeUpdated = true) do={\r\ + \n :log info (\"\$SMP Starting backup process.\");\r\ + \n :set isEmailNeedsToBeSent true;\r\ + \n :local backupName \$backupNameTemplate;\r\ + \n # This means it's the first step where we create a backup before the\ + \_update process\r\ + \n :if (\$isOsNeedsToBeUpdated = true) do={\r\ + \n :set backupName \$backupNameBeforeUpdate;\r\ + \n #Email body if the purpose of the script is to update the device\r\ + \n :set mailSubjectPartAction \"Update preparation\";\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nThe update proces\ + s for device '\$Identity' is scheduled to upgrade RouterOS from version v.\ + \$runningOsVersion to version v.\$ROsVerAvail (Update channel: \$updateCha\ + nnel)\");\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nPlease note: The \ + update will proceed only after a successful backup.\");\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nA final report wi\ + th detailed information will be sent once the update process is completed.\ + \");\r\ + \n :set mailPtBodyAction (\$mailPtBodyAction . \"\\nIf you do not rec\ + eive a second email within the next 10 minutes, there may be an issue. Ple\ + ase check your device logs for further information.\");\r\ + \n }\r\ + \n :do {\r\ + \n :set mailAttachments [\$FuncCreateBackups \$backupName \$BackupPas\ + sword \$BackupSens];\r\ + \n :set mailPtSubjectBackup \"Backup created\";\r\ + \n :set mailPtBodyBackup \"System backups have been successfully crea\ + ted and attached to this email.\";\r\ + \n } on-error={\r\ + \n :set isOsNeedsToBeUpdated false;\r\ + \n :set mailPtSubjectBackup \"Backup failed\";\r\ + \n :set mailPtBodyBackup \"The script failed to create backups. Pleas\ + e check device logs for more details.\";\r\ + \n :log warning \"\$SMP Backup creation failed. Update process will b\ + e canceled if automatic update is enabled\";\r\ + \n }\r\ + \n }\r\ + \n :if (\$isEmailNeedsToBeSent = true) do={\r\ + \n :log info \"\$SMP Preparing to send email...\";\r\ + \n :local mailStep1Subject \$mailSubjectPrefix;\r\ + \n :local mailStep1Body \"\";\r\ + \n # subject\r\ + \n :if (\$mailSubjectPartAction != \"\") do={:set mailStep1Subject (\$\ + mailStep1Subject . \" - \" . \$mailSubjectPartAction)}\r\ + \n :if (\$mailPtSubjectBackup != \"\") do={:set mailStep1Subject (\$ma\ + ilStep1Subject . \" - \" . \$mailPtSubjectBackup)}\r\ + \n # body\r\ + \n :if (\$mailPtBodyAction != \"\") do={:set mailStep1Body (\$mailStep1\ + Body . \$mailPtBodyAction . \"\\n\\n\")}\r\ + \n :if (\$mailPtBodyBackup != \"\") do={:set mailStep1Body (\$mailStep1\ + Body . \$mailPtBodyBackup . \"\\n\\n\")}\r\ + \n :set mailStep1Body (\$mailStep1Body . \$mailBodyDeviceInfo . \"\\n\\\ + n\" . \$mailBodyCopyright);\r\ + \n # Send email with backups\r\ + \n :do {\$FuncSendEmailSafe \$EmailGeneralTo \$mailStep1Subject \$mailS\ + tep1Body \$mailAttachments} on-error={\r\ + \n :set isOsNeedsToBeUpdated false;\r\ + \n :log error \"\$SMP The script will not proceed with the update pro\ + cess, because the email was not sent.\";\r\ + \n }\r\ + \n }\r\ + \n :if ([:len \$mailAttachments] > 0) do={\r\ + \n :log info \"\$SMP Cleaning up backup files from the file system...\"\ + ;\r\ + \n /file remove \$mailAttachments;\r\ + \n :delay 2s;\r\ + \n }\r\ + \n :if (\$isOsNeedsToBeUpdated = true) do={\r\ + \n :global OldMode;\r\ + \n :log info \"\$SMP everything is ready to install new RouterOS, going\ + \_to start the update process and reboot the device.\";\r\ + \n :do {\r\ + \n :local nextStep 2;\r\ + \n :if (\$isCloudHostedRouter = true) do={\r\ + \n :log info \"\$SMP The device is a cloud hosted router, the secon\ + d step updating the Routerboard firmware will be skipped.\";\r\ + \n :set nextStep 3;\r\ + \n }\r\ + \n :local scheduledCommand (\":delay 5s; /system/scheduler remove BKP\ + UPD-NEXT-BOOT-TASK; \\\r\ + \n :global buGlobalVarScriptStep \$nextStep; :global buGlobalVarTarg\ + etOsVersion \\\"\$ROsVerAvail\\\"; \\\r\ + \n :delay 10s; /system/script { run \$ScriptName; }\");\r\ + \n /system/scheduler add name=BKPUPD-NEXT-BOOT-TASK on-event=\$schedu\ + ledCommand start-time=startup interval=0;\r\ + \n /system/package/update install;\r\ + \n } on-error={\r\ + \n # Failed to install new os version, remove the task and variables\ + \r\ + \n :do {\r\ + \n /system/scheduler remove BKPUPD-NEXT-BOOT-TASK;\r\ + \n :set BackupAndUpdateMode \$OldMode;\r\ + \n :delay 2;\r\ + \n :do {\r\ + \n /system/script/environment remove [find name=\"buGlobalVarTarg\ + etOsVersion\"];\r\ + \n } on-error={\r\ + \n :set \$mailSubjectPrefix (\$mailSubjectPrefix . \"ERROR Remove\ + \_global variable \\\$buGlobalVarTargetOsVersion failed!\");\r\ + \n }\r\ + \n :if ([ :len \$OldMode ] > 0) do={\r\ + \n :do {\r\ + \n /system/script/environment remove [find name=\"OldMode\"];\r\ + \n } on-error={\r\ + \n :set \$mailSubjectPrefix (\$mailSubjectPrefix . \" ERROR Rem\ + ove global variable \\\$OldMode failed!\");\r\ + \n }\r\ + \n }\r\ + \n } on-error={\r\ + \n :log error \"\$SMP Failed to install new RouterOS version. Pleas\ + e check device logs for more details. \\\r\ + \n \\nAnd Failed to remove task and variables! Check it!\";\r\ + \n :set \$mailSubjectPrefix (\$mailSubjectPrefix . \" ERROR Remove \ + task and global variables!\");\r\ + \n }\r\ + \n :log error \"\$SMP Failed to install new RouterOS version. Please \ + check device logs for more details.\";\r\ + \n :local mailUpdateErrorSubject (\$mailSubjectPrefix . \" - Update f\ + ailed\");\r\ + \n :local mailUpdateErrorBody \"The script was unable to install new \ + RouterOS version. Please check device logs for more details.\";\r\ + \n # Send email with error\r\ + \n \$FuncSendEmailSafe \$EmailGeneralTo \$mailUpdateErrorSubject \$ma\ + ilUpdateErrorBody \"\";\r\ + \n :error \$exitErrorMessage;\r\ + \n }\r\ + \n }\r\ + \n}\r\ + \n## STEP 2: (Post-reboot) Upgrade RouterBOARD firmware\r\ + \n## Runs only if auto-update is enabled and a new RouterOS version was fo\ + und\r\ + \n:if (\$scriptStep = 2) do={\r\ + \n :log info \"\$SMP The script is in the second step, updating Routerboa\ + rd firmware.\";\r\ + \n :log info \"\$SMP Upgrading routerboard firmware from v.\$deviceRbCurr\ + entFw to v.\$deviceRbUpgradeFw\";\r\ + \n /system routerboard upgrade;\r\ + \n :delay 2;\r\ + \n :log info \"\$SMP routerboard upgrade process was completed, going to \ + reboot in a moment!\";\r\ + \n ## Set task to send final report on the next boot\r\ + \n /system scheduler add name=BKPUPD-NEXT-BOOT-TASK on-event=\":delay 2; \ + :global buGlobalVarScriptStep 3; \\\r\ + \n :global buGlobalVarTargetOsVersion \\\"\$buGlobalVarTargetOsVersion\\\ + \"; :delay 10s; /system/script { run \$ScriptName; }; \\ \r\ + \n :delay 5s; /system/scheduler remove BKPUPD-NEXT-BOOT-TASK;\" start-ti\ + me=startup interval=0;\r\ + \n :delay 2;\r\ + \n /system reboot;\r\ + \n}\r\ + \n\r\ + \n## STEP 3: Final report (after second reboot, with delay).\r\ + \n## Runs only if auto-update is enabled and a new RouterOS version was fo\ + und.\r\ + \n:if (\$scriptStep = 3) do={\r\ + \n :log info (\"\$SMP The script is in the third step, sending final repo\ + rt.\");\r\ + \n :local targetOsVersion \$buGlobalVarTargetOsVersion;\r\ + \n :do {\r\ + \n /system/script/environment remove [find name=\"buGlobalVarTargetOsVe\ + rsion\"];\r\ + \n } on-error={\r\ + \n :set \$mailSubjectPrefix (\$mailSubjectPrefix . \" ERROR Remove glob\ + al variable \\\$buGlobalVarTargetOsVersion failed!\");\r\ + \n }\r\ + \n\r\ + \n :if ([ :len \$OldMode ] != 0) do={\r\ + \n :do {\r\ + \n /system/script/environment remove [find name=\"OldMode\"];\r\ + \n } on-error={\r\ + \n :set \$mailSubjectPrefix (\$mailSubjectPrefix . \" ERROR! Remove\ + \_global variable \\\$OldMode failed!\");\r\ + \n }\r\ + \n }\r\ + \n :if ([:len \$targetOsVersion] = 0) do={\r\ + \n :log warning \"\$SMP Something is wrong, the script was unable to ge\ + t the target updated OS version from the global variable.\";\r\ + \n }\r\ + \n :local mailStep3Subject \$mailSubjectPrefix;\r\ + \n :local mailStep3Body \"\";\r\ + \n :if (\$targetOsVersion = \$runningOsVersion) do={\r\ + \n :log info \"\$SMP Successfully verified new RouterOS version: target\ + : `\$targetOsVersion`, current: `\$runningOsVersion`\";\r\ + \n :set mailStep3Subject (\$mailStep3Subject . \" - Update completed - \ + Backup created\");\r\ + \n :set mailStep3Body (\$mailStep3Body . \"RouterOS and routerboard upg\ + rade process was completed\");\r\ + \n :set mailStep3Body (\$mailStep3Body . \"\\nNew RouterOS version: v.\ + \$targetOsVersion, routerboard firmware: v.\$deviceRbCurrentFw\");\r\ + \n :set mailStep3Body (\$mailStep3Body . \"\\n\$changelogUrl\\nBackups \ + of the upgraded system are in the attachment of this email.\\n\\n\$mailBod\ + yDeviceInfo\\n\\n\$mailBodyCopyright\");\r\ + \n :set mailAttachments [\$FuncCreateBackups \$backupNameAfterUpdate \$\ + BackupPassword \$BackupSens];\r\ + \n } else={\r\ + \n :log error \"\$SMP Failed to verify new RouterOS version: target: `\ + \$targetOsVersion`, current: `\$runningOsVersion`\";\r\ + \n :set mailStep3Subject (\$mailStep3Subject . \" - Update failed\");\r\ + \n :set mailStep3Body (\$mailStep3Body . \"The script was unable to ver\ + ify that the new RouterOS version was installed, target version: `\$target\ + OsVersion`, current version: `\$runningOsVersion`\\nCheck device logs for \ + more details.\\n\\n\$mailBodyDeviceInfo\\n\\n\$mailBodyCopyright\");\r\ + \n }\r\ + \n \$FuncSendEmailSafe \$EmailGeneralTo \$mailStep3Subject \$mailStep3Bod\ + y \$mailAttachments;\r\ + \n :if ([:len \$mailAttachments] > 0) do={\r\ + \n :log info \"\$SMP Cleaning up backup files from the file system...\"\ + ;\r\ + \n /file remove \$mailAttachments;\r\ + \n :delay 2;\r\ + \n }\r\ + \n :log info \"\$SMP Final report email sent successfully, and the script\ + \_has finished.\";\r\ + \n}\r\ + \n:log info \"\$SMP the script has finished, script step: `\$scriptStep` \ + \\n\\n\";\r\ + \n} do={\r\ + \n :global ExitError; \$ExitError \$ExitOK [ :jobname ] \$Err;\r\ + \n}\r\ + \n" +add dont-require-permissions=no name=fetchCustom owner=vados policy=\ + ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\ + root.mnuc.backuper\r\ + \n:global GlobalScriptsUrl \"https://ros.vados.ru/\";\r\ + \n/tool/fetch mode=https url=(\$GlobalScriptsUrl . \".bak/mikro_bak_rsa@10\ + .30.30.86.pub\") dst-path=\"/mikro_bak_rsa@10.30.30.86.pub\";\r\ + \n#/usb1/mikro_bak_rsa.pub" +add dont-require-permissions=no name=testSetup owner=vados policy=\ + ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\ + \r\ + \n:local newFolder \"tmpfs/scripts\";\r\ + \n\r\ + \n:local errorMsg;\r\ + \n\r\ + \n# :while (([:pick \$newFolder ([:len \$newFolder] - 1)]) = \"/\") do=\ + {\r\ + \n# :set newFolder [:pick \$newFolder 0 ([:len \$newFolder] - 1)]\r\ + \n# }\r\ + \n\r\ + \n# :while ([:pick \$newFolder 0] = \"/\") do={\r\ + \n# :set newFolder [:pick \$newFolder 1 [:len \$newFolder]]\r\ + \n# }\r\ + \n\r\ + \n\r\ + \n:if ([/file find name=\$newFolder] != \"\") do={\r\ + \n :set errorMsg (\$newFolder . \" already exists.\");\r\ + \n :log warning (\$0 . \" mkdir: \" . \$errorMsg);\r\ + \n :return \$newFolder;\r\ + \n}\r\ + \n\r\ + \n\r\ + \n#:put [ :len [ /file/find where name=\$Path ] ];\r\ + \n\r\ + \n:put [:len \$Path];\r\ + \n:put [ :pick \$Path ];\r\ + \n:put [ :pick \$Path ([ :len \$Path ] - 1) ];\r\ + \n\r\ + \n:if (\$Path != false) do={\r\ + \n:put \"TRUE\";\r\ + \n}" +add comment="Script for setup routeros scrypt system" \ + dont-require-permissions=no name=AM-setup owner=AM-setup policy=\ + ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\ + !rsc by Vados\r\ + \n# RouterOS script: AM-setup\r\ + \n# Script comment: Script for setup routeros scrypt system\r\ + \n# Copyright (c) 2005-2026 Vados \r\ + \n#\r\ + \n#\r\ + \n# requires RouterOS, version=7.19\r\ + \n# requires device-mode, fetch\r\ + \n#\r\ + \n# :local ScriptName [ :jobname ];\r\ + \n# Additional commands:\r\ + \n#\r\ + \n# For scripts:\r\ + \n#:global NewScript \"script_name\"; \r\ + \n#:global GlobalScriptsUrl \"https://ros.vados.ru/\";\r\ + \n#/system/script/add name=\$NewScript owner=\$NewScript source=([/tool/fe\ + tch check-certificate=yes-without-crl (\$GlobalScriptsUrl . \$ScriptAdd . \ + \".rsc\") output=user as-value ]->\"data\");\r\ + \n#:global NewScript (a);\r\ + \n#:global ScriptInstallUpdate; \$ScriptInstallUpdate;\r\ + \n#\r\ + \n# For run from terminal:\r\ + \n#/system/script/add name=AM-setup owner=AM-Setup source=([/tool/fetch ch\ + eck-certificate=yes-without-crl \"https://ros.vados.ru/AM-setup.rsc\" outp\ + ut=user as-value ]->\"data\");\r\ + \n#\r\ + \n#:foreach Script in=[ /system/script/find where source~\"^#!rsc by Vados\ + \" ] do={\r\ + \n# if (\$ScriptUpdatesCRLF = true) do={\r\ + \n# /system/script/set source=[ :tocrlf [ get \$Script source ] ] \$Scri\ + pt;\r\ + \n# } else={\r\ + \n# /system/script/set source=[ :tolf [ get \$Script source ] ] \$Script\ + ;\r\ + \n# }\r\ + \n#}\r\ + \n# /import verbose=no \$ScriptName\r\ + \n:global SetupScript [ :jobname ];\r\ + \n:global RemoveMe;\r\ + \n:global InitSetup true;\r\ + \n:global tmpfs true;\r\ + \n\r\ + \n{\r\ + \n :local RmMe [:tobool \$1];\r\ + \n\r\ + \n :global GlobalScriptsUrl;\r\ + \n :global SetupScript;\r\ + \n :global RemoveMe;\r\ + \n :global InitSetup;\r\ + \n :global tmpfs;\r\ + \n \r\ + \n :local CertCommonName \"Root YE\";\r\ + \n :local CertFileName \"Root-YE.pem\";\r\ + \n :local CertFingerprint \"e14ffcad5b0025731006caa43a121a22d8e9700f4fb9c\ + f852f02a708aa5d5666\";\r\ + \n\r\ + \n :if (\$SetupScript = false) do={\r\ + \n :global SetupScript \"AM-setup\";\r\ + \n }\r\ + \n :if (\$RemoveMe != false) do={\r\ + \n :set RemoveMe true;\r\ + \n }\r\ + \n\r\ + \n :log warning (\"\\n\\\$GlobalScriptsUrl = \" . \$GlobalScriptsUrl);\r\ + \n \r\ + \n :local CertSettings [ /certificate/settings/get ];\r\ + \n :if (!(((\$CertSettings->\"builtin-trust-anchors\") = \"trusted\" || \ + \\\r\ + \n (\$CertSettings->\"builtin-trust-store\") ~ \"fetch\" || \\\r\ + \n (\$CertSettings->\"builtin-trust-store\") = \"all\") && \\\r\ + \n [ :len [ /certificate/builtin/find where common-name=\$CertComm\ + onName ] ] > 0)) do={\r\ + \n :put \"Importing certificate...\";\r\ + \n \r\ + \n /tool/fetch (\$GlobalScriptsUrl . \"certs/\" . \$CertFileName) dst-p\ + ath=\$CertFileName as-value;\r\ + \n :delay 1s;\r\ + \n /certificate/import file-name=\$CertFileName passphrase=\"\";\r\ + \n :if ([ :len [ /certificate/find where fingerprint=\$CertFingerprint \ + ] ] != 1) do={\r\ + \n :error \"Something is wrong with your certificates!\";\r\ + \n };\r\ + \n :delay 1s;\r\ + \n };\r\ + \n :put \"Thr tmpfs variable is true. Checking for tmpfs/scripts director\ + y...\";\r\ + \n :if (\$tmpfs = true && [/file find name=\"tmpfs/scripts\"] != \"\") do\ + ={\r\ + \n :log debug (\$0 . \"Directory tmpfs/scripts exsist.\");\r\ + \n :return \$true;\r\ + \n } else={\r\ + \n :log error (\$0 . \"Directory tmpfs/scripts does not exsist. Remove \ + global variable tmpfs!\");\r\ + \n :global tmpfs (a);\r\ + \n return false;\r\ + \n}\r\ + \n :put \"Renaming AM-GlobalConfig, if exists...\";\r\ + \n :local ConfOldName (\"AM-GlobalConfig-\" . [ /system/clock/get date ] \ + . [ /system/clock/get time ] . \".rsc\");\r\ + \n /system/script/set name=\$ConfOldName [ find where name=\"AM-GlobalCon\ + fig\" ];\r\ + \n :foreach Script in={ \"AM-GlobalConfig\"; \"AM-GlobalFunc\" } do={\r\ + \n :put \"Installing \$Script...\";\r\ + \n /system/script/remove [ find where name=\$Script ];\r\ + \n /system/script/add name=\$Script owner=\$Script source=([ /tool/fetc\ + h check-certificate=yes-without-crl url=(\$GlobalScriptsUrl . \$Script . \ + \".rsc\") output=user as-value ]->\"data\");\r\ + \n \r\ + \n /system/script run \$Script;\r\ + \n :delay 2s;\r\ + \n };\r\ + \n\r\ + \n :if ([ :len [ /certificate/find where fingerprint=\$CertFingerprint ] \ + ] > 0) do={\r\ + \n :put \"Renaming certificate by its common-name...\";\r\ + \n :global CertificateNameByCN;\r\ + \n \$CertificateNameByCN \$CertFingerprint;\r\ + \n };\r\ + \n\r\ + \n :if (\$RemoveMe = true) do={\r\ + \n :put \"Add Scheduler for remove this script...\";\r\ + \n :local OnEvent (\":delay 30s;\\n\" . \"/system/script/remove [ find \ + where name=\\\"\$SetupScript\\\" ];\\n\" . \\\r\ + \n \":delay 2s;\\n\" . \"/system/scheduler/remove [ find where name=\\\ + \"_RemoveSetup\\\" ];\\n\" . \\\r\ + \n \":delay 2s;\\n\" . \":global RemoveMe (a);\\n\");\r\ + \n :local Comment \"_RemoveSetup tmp scheduler for remove setup script.\ + \";\r\ + \n /system/scheduler/add name=\"_RemoveSetup\" comment=\$Comment start-\ + time=startup interval=30s on-event=\$OnEvent;\r\ + \n :log warning (\$0 . \"\\nI've done everything, and now I'm tired..\ + . I'm leaving.\\nThere will be an error below, this is normal.\");\r\ + \n }\r\ + \n :delay 1;\r\ + \n :put \"Loading configuration and functions...\";\r\ + \n :do { \r\ + \n :global ScriptInstallUpdate; \$ScriptInstallUpdate;\r\ + \n :put \"Normal removing temporary global environment variables.\";\ + \r\ + \n :global SetupScript (a);\r\ + \n :global InitSetup (a);\r\ + \n :global RemoveMe (a);\r\ + \n } on-error={\r\ + \n :local ErrorMsg \"Loading configuration and functions error!\";\r\ + \n :log error (\$0 . \$ErrorMsg . :error);\r\ + \n :error \$ErrorMsg;\r\ + \n }\r\ + \n}\r\ + \n" +add comment="Global Config Script" dont-require-permissions=no name=\ + AM-GlobalConfig owner=AM-GlobalConfig policy=\ + ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\ + !rsc by Vados\r\ + \n# RouterOS script: AM-GlobalConfig\r\ + \n# Script comment: Global Config Script\r\ + \n# Copyright (c) 2007-2026 Vados \r\ + \n#\r\ + \n#\r\ + \n# Warning: Dont touch this line!\r\ + \n:global GlobalConfReady false;\r\ + \n# \\/ start edit\r\ + \n#\r\ + \n# Global Url For Amster scripts to fetch\r\ + \n# most be defined in Amster-Init-Script\r\ + \n:global GlobalScriptsUrl \"https://ros.vados.ru/\";\r\ + \n:global ScriptsUrlSuffix \"\";\r\ + \n:global CheckSumsVerify true;\r\ + \n\r\ + \n:global ScriptUpdatesCRLF true;\r\ + \n:global CommentsInScripts true;\r\ + \n\r\ + \n# Debug output:\r\ + \n:global PrintDebug true; #false;\r\ + \n\r\ + \n# Debug output for specific script:\r\ + \n:set (\$PrintDebugOverride->\"AM-GlobalFunc\") true;\r\ + \n\r\ + \n# Debug logs\r\ + \n# Other actions (disk, email, remote or support) can be used as well.\r\ + \n# I do not recommend using echo - use debug output instead (https://rsc.\ + eworm.de/main/DEBUG.html#debug-output).\r\ + \n#/system/logging/add topics=script,debug action=memory;\r\ + \n\r\ + \n:global MikrotikUpgradeUrl \"https://upgrade.mikrotik.com/routeros\";\r\ + \n:global Domain \"WORKGROUP\";\r\ + \n\r\ + \n:global EmailGeneralTo \"vados@vados.ru\"; #:global EmailGeneralCc \"\";\ + \r\ + \n\r\ + \n# \$ScriptInstallUpdate mod/notification-telegram\r\ + \n:global TelegramTokenId \"8390868324:AAG3_d1hfVR2M6pGAgDK6ZvhOe4J97nyopw\ + \";\r\ + \n:global TelegramChatId \"-1003631309063\"; #\"454403445\";\r\ + \n# Use this to send notifications to a specific topic in group.\r\ + \n#:global TelegramThreadId \"30\";\r\ + \n# Using telegram-chat you have to define trusted chat ids (not group ids\ + !)\r\ + \n# or user names. Groups allow to chat with devices simultaneously.\r\ + \n:global TelegramChatIdsTrusted {\r\ + \n \"454403445\"\r\ + \n \"-1003631309063\"\r\ + \n \"-5124482807\"\r\ + \n \"1087968824\";\r\ + \n};\r\ + \n# \"-5294757340\";\r\ + \n\r\ + \n:global TelegramChatGroups \"(all)\";\r\ + \n#:global TelegramChatGroups \"(all|home|office)\";\r\ + \n\r\ + \n:global NotificationFunctions {\r\ + \n \"email\"\r\ + \n \"telegram\";\r\ + \n};\r\ + \n# Toggle this to disable symbols in notifications.\r\ + \n:global NotificationsWithSymbols true;\r\ + \n:global TerminalColorOutput true;\r\ + \n\r\ + \n:global DetectIpAddrDefault \"https://ipv4.mikrotik.ovh/\";\r\ + \n:global DetectIpAddrFallback \"https://api.ipify.org/\";\r\ + \n\r\ + \n## Update channel. Possible values: stable, long-term, testing, developm\ + ent\r\ + \n:global updateChannel \"stable\";\r\ + \n\r\ + \n# Script BackupAndUpdate mode, possible values: backup,\r\ + \n# updateOnce - Update once as \"osnotify\" and back \"osnotify\" mode (i\ + n terminal run :set OSUpdateMode updateOnce; \$OSUpdateMode;). \r\ + \n# osupdate - Update if available and creates backups before/after update\ + \_(ignores `forceBackup`)\r\ + \n# Set `forceBackup` to true to always create backups, even\ + \_without updates\r\ + \n# osnotify - Set `forceBackup` to always create backups on every run\r\ + \n:global DevInfoIncludeIP true;\r\ + \n:global BackupAndUpdateMode \"osnotify\"\r\ + \n\r\ + \n:global forceBackup true;\r\ + \n:global BackupPassword \"Peskar55\";\r\ + \n\r\ + \n# SFTP Backup Variables\r\ + \n:global BackupRandomDelay 0;\r\ + \n:global BackupUploadUrl \"sftp://amster.vados.ru/upload/\";\r\ + \n:global BackupUploadUser \$Identity;\r\ + \n:global BackupUploadPass \"root.mnuc.backuper\";\r\ + \n\r\ + \n:global BackupSendBinary true;\r\ + \n:global BackupSendExport true;\r\ + \n:global BackupSendGlobalConfig true;\r\ + \n:global BackupSendScripts true;\r\ + \n\r\ + \n# Remove local file after uploading if no errors\r\ + \n:global BackupRmLocal true;\r\ + \n\r\ + \n# Local Backups Root Directory \r\ + \n:global BackupLocalRoot \"tmpfs\";\r\ + \n\r\ + \n# Encrypt Backup\r\ + \n:global BackupEncrypt true;\r\ + \n\r\ + \n# Sensitive information in Backups\r\ + \n:global BackupSens true;\r\ + \n\r\ + \n# User Export\r\ + \n:global BackupUser true;\r\ + \n\r\ + \n# License Export (not for CHR, will silently skip)\r\ + \n:global BackupLicense false;\r\ + \n\r\ + \n# SSH Keys\r\ + \n:global BackupSshKeys true;\r\ + \n\r\ + \n# Certificate Export\r\ + \n:global BackupCerts true;\r\ + \n\r\ + \n# Certificate Password\r\ + \n:global BackupCertsPasswd \"\";\r\ + \n\r\ + \n# User-Manager Export\r\ + \n:global BackupUserMan false;\r\ + \n\r\ + \n# The Dude Export\r\ + \n:global BackupDude false;\r\ + \n\r\ + \n# User Files to export, comma-separated string or array of strings\r\ + \n# User Files are not removed on backup\r\ + \n# Any directory paths will be removed (/ -> _) on remote file\r\ + \n# Nonpresent files are silently skipped\r\ + \n:global BackupUserList \"autosupout.rif,autosupout.old.rif\";\r\ + \n\r\ + \n# load functions and any custom scripts\r\ + \n# [ /system/script/find where name=\"global-config-ov\ + erlay\" ], \\\r\ + \n# [ /system/script/find where name~\"^global-config-o\ + verlay\\\\.d/.\" ]\r\ + \n#\r\ + \n#:foreach Script in=([ /system/script/find where name=\"Amster-TGglobalV\ + ars\" ], [ /system/script/find where name=\"Amster-TGglobalFunc\" ]) do={\ + \r\ + \n# :onerror Err {\r\ + \n# /system/script/run \$Script;\r\ + \n# } do={\r\ + \n# :log error (\"Loading configuration from configs and functions\"\ + \_. [ /system/script/get \$Script name ] . \" failed: \" . \$Err);\r\ + \n# }\r\ + \n#}\r\ + \n#:log info \"\\ndevMode = \$devMode\";\r\ + \n#:log info \"\\ndevRunning = \$devRunning\";\r\ + \n:foreach Script in=[ /system/script/find where source~\"^#!rsc by Vados \ + GlobalRUN\\r\?\\n\" ] do={\r\ + \n :onerror Err {\r\ + \n /system/script/run \$Script;\r\ + \n } do={\r\ + \n :log error (\"Run script \" . [ /system/script/get \$Script name \ + ] . \" width marker \\\" GlobalRUN\\\" failed: \" . \$Err);\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n# signal we are ready\r\ + \n:set GlobalConfReady true;\r\ + \n:while (\$GlobalConfReady != true) do={:delay 500ms};\r\ + \n" +add comment="Global functions" dont-require-permissions=no name=AM-GlobalFunc \ + owner=AM-GlobalFunc policy=\ + ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\ + !rsc by Vados\r\ + \n# RouterOS script: AM-GglobalFunc\r\ + \n# Script comment: Global functions\r\ + \n#\r\ + \n#\r\ + \n# requires RouterOS, version=7.21\r\ + \n# requires device-mode, fetch, scheduler\r\ + \n:local ExitOK false;\r\ + \n:local ScriptName [ :jobname ];\r\ + \n#:global checkRunJob \$SriptName;\r\ + \n#:global fixCRLF;\r\ + \n#:if (\$fixCRLF != false) do={\r\ + \n#:foreach fixScript in=([ /system/script/find where name~\"*\" ]) do={/s\ + ystem/script/set source=[ :tocrlf [ get \$fixScript source ] ] \$fixScript\ + }\r\ + \n#:if (\$fixCRLF != \"LF\") do={ /system/script/set source=[ :tocrlf [ g\ + et \$fixScript source ] ] \$fixScript};};\r\ + \n#}\r\ + \n:global GlobalFuncReady false;\r\ + \n\r\ + \n# The variables are received right here.\r\ + \n:global GlobalConfVersion 138;\r\ + \n\r\ + \n:global Identity [/system/identity/get name];\r\ + \n:global IdentityShort [:pick \$Identity 0 18];\r\ + \n\r\ + \n:global devBoardName [/system/resource/get board-name];\r\ + \n:global devMode [/system/device-mode/get mode];\r\ + \n:global devCurArch [/system/resource/get architecture-name];\r\ + \n:global devCurVersion [/system/resource/get version];\r\ + \n\r\ + \n# Variables defined in AM-GlobalConfig.rsc\r\ + \n:global TerminalColorOutput;\r\ + \n:global CommentsInScripts;\r\ + \n:global DetectIpAddrDefault;\r\ + \n:global DetectIpAddrFallback;\r\ + \n:global updateChannel;\r\ + \n:global Domain;\r\ + \n:global EmailGeneralTo;\r\ + \n:global BackupAndUpdateMode;\r\ + \n\r\ + \n# Single functions, without nested functions.\r\ + \n:global GlobalEnvRemove;\r\ + \n:global MiniDateTimeStamp;\r\ + \n\r\ + \n# Include globals \$PrintDebug and \$PrintDebugOverride\r\ + \n:global LogPrint;\r\ + \n\r\ + \n# DeviceInfo and Updates\r\ + \n:global IsCheckUpdates;\r\ + \n:global WaitCheckUpdates;\r\ + \n:global GetPubIp;\r\ + \n\r\ + \n:global GetArrDeviceInfo;\r\ + \n:global WaitArrDeviceInfo;\r\ + \n\r\ + \n:global devModel;\r\ + \n:global devRunningMode;\r\ + \n\r\ + \n:global devRbRevision;\r\ + \n:global devRbSerialNumber;\r\ + \n:global devRbVerAvail;\r\ + \n\r\ + \n:global runningChannelVersion;\r\ + \n:global runningChannel;\r\ + \n:global runningVersion;\r\ + \n\r\ + \n:global devBuildTime;\r\ + \n#:global ROsVerAvail;\r\ + \n:global PkgUpdStatus;\r\ + \n:global currentUpdateChannel;\r\ + \n\r\ + \n:global ScriptInstallUpdate;\r\ + \n\r\ + \n:global DeviceInfo;\r\ + \n\r\ + \n:global OldMode;\r\ + \n\r\ + \n:global ParseKeyValueStore;\r\ + \n:global RandomDelay;\r\ + \n:global GetRandomNumber;\r\ + \n:global EscapeForRegEx;\r\ + \n:global ExitError;\r\ + \n:global CleanFilePath;\r\ + \n:global CleanName;\r\ + \n:global CharacterReplace;\r\ + \n:global CharacterMultiply;\r\ + \n:global EitherOr;\r\ + \n:global FormatLine;\r\ + \n:global GetRandom20CharAlNum;\r\ + \n:global Grep;\r\ + \n:global IfThenElse;\r\ + \n:global MAX;\r\ + \n:global MIN;\r\ + \n:global HumanReadableNum;\r\ + \n\r\ + \n:global IsFullyConnected;\r\ + \n:global IsDNSResolving;\r\ + \n:global IsTimeSync;\r\ + \n:global IsTimeSyncCached;\r\ + \n:global IsTimeSyncResetNtp;\r\ + \n\r\ + \n:global WaitDNSResolving;\r\ + \n:global WaitFullyConnected;\r\ + \n:global WaitTimeSync;\r\ + \n:global MkDir;\r\ + \n:global RmDir;\r\ + \n:global RmFile;\r\ + \n:global FileGet;\r\ + \n:global Unix2Dos;\r\ + \n:global UrlEncode;\r\ + \n:global WaitForFile;\r\ + \n:global ScriptLock;\r\ + \n:global SendTelegram;\r\ + \n:global NotificationFunctions;\r\ + \n:global SendNotification;\r\ + \n:global SendNotification2;\r\ + \n:global SymbolForNotification;\r\ + \n:global SymbolByUnicodeName;\r\ + \n:global ValidateSyntax;\r\ + \n:global CheckSumsVerify;\r\ + \n:global GlobalConfChanges;\r\ + \n:global GlobalConfMigration;\r\ + \n:global VersionToNum;\r\ + \n:global RequiredRouterOS;\r\ + \n:global FetchLargeFiles;\r\ + \n:global FetchUserAgentStr;\r\ + \n:global CertificateAvailable;\r\ + \n:global CertificateDownload;\r\ + \n:global CertificateNameByCN;\r\ + \n:global CharacterMultiply;\r\ + \n\r\ + \n:global InspectVar;\r\ + \n:global InspectVarRet;\r\ + \n:global ParseCustom;\r\ + \n\r\ + \n:set IsCheckUpdates do={\r\ + \n :local isInfo [:tobool \$1];\r\ + \n :global LogPrint;\r\ + \n :global updateChannel;\r\ + \n :global PkgUpdStatus;\r\ + \n \$LogPrint debug \$0 (\"\\\$isInfo = \" . \$isInfo); \r\ + \n :local CurrentChannel [ /system/package/update/get channel ];\r\ + \n :if (\$CurrentChannel != \$updateChannel) do={\r\ + \n :retry command={/system/package/update set channel=\$updateChannel} \ + \_delay=300ms max=5 on-error={};\r\ + \n \$LogPrint debug \$0 (\"Set updates channel to: \$updateChannel\");\ + \r\ + \n }\r\ + \n \r\ + \n :local Update [ /system/package/update/get ];\r\ + \n :local Channel (\$Update->\"channel\");\r\ + \n \$LogPrint debug \$0 (\"Update Channel: \" . \$Channel . \".\");\r\ + \n \r\ + \n :local StatusPkg \"undefined\";\r\ + \n \$LogPrint debug \$0 (\"Checking for updates...\");\r\ + \n :retry command={:set \$StatusPkg ([/system/package/update/check-for-up\ + dates without-paging as-value]->\"status\")} \\\r\ + \n delay=300ms max=5 on-error={};\r\ + \n \$LogPrint debug \$0 (\"\\\$StatusPkg = \" . \$StatusPkg);\r\ + \n :if (\$StatusPkg = \"New version is available\") do={ :set PkgUpdStatu\ + s true; } else={ :set PkgUpdStatus false; }\r\ + \n \$LogPrint debug \$0 (\"\\\$PkgUpdStatus = \" . \$PkgUpdStatus);\r\ + \n :if (\$isInfo != false || \$PkgUpdStatus = true) do={\r\ + \n \$LogPrint debug \$0 (\"\\\$PkgUpdStatus = \" . \$PkgUpdStatus);\r\ + \n :if ([:len \$arrDeviceInfo] = 0) do={\r\ + \n :global arrDeviceInfo ({});\r\ + \n :local arrDeviceInfo ({\"section\":{\"key\":\"\"; \"value\":\"\";};}\ + );\r\ + \n }\r\ + \n # else={:local arrDeviceInfo ({})}\r\ + \n :retry command={:set (\$arrDeviceInfo->\"devUpdates\") [[ :parse \"/\ + system/package/update/get\" ]]} delay=500ms max=5 on-error={:log error (\"\ + Error\")};\r\ + \n #:set (\$arrDeviceInfo->\"devUpdates\") {\"devCurrentChannel\"; \$Cu\ + rrentChannel;};\r\ + \n #:set (\$arrDeviceInfo->\"devUpdates\") {\"devCurrentVersion\"; (\$U\ + pdate->\"installed-version\");};\r\ + \n #:set (\$arrDeviceInfo->\"devUpdates\") {\"devCurrentChannelVersion\ + \"; [/system/resource/get version];};\r\ + \n #:set (\$arrDeviceInfo->\"devUpdates\") {\"devUpdateChannel\"; [\$up\ + dateChannel];};\r\ + \n #:set (\$arrDeviceInfo->\"devUpdates\") {\"devUpdateVersion\"; (\$Up\ + date->\"latest-version\");};\r\ + \n } else={\r\ + \n :return \$PkgUpdStatus;\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n:set WaitArrDeviceInfo do={\r\ + \n :global GetArrDeviceInfo;\r\ + \n :while ([ \$GetArrDeviceInfo ] = false) do={\r\ + \n :delay 1s;\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n:set GetArrDeviceInfo do={\r\ + \n :global LogPrint;\r\ + \n\r\ + \n :global devBoardName;\r\ + \n :global devModel;\r\ + \n \r\ + \n :global arrDeviceInfo [:toarray {\"section\"={\"key\"=\"\"; \"value\"\ + =\"\";} }];\r\ + \n #:do {:set (\$arrDeviceInfo->\"Updates\") [[ :parse \"/system/package\ + /update/get\" ]]} on-error={}\r\ + \n :global devRbRevision;\r\ + \n :global devRbSerialNumber;\r\ + \n :global devRbCurrentFw;\r\ + \n :global devRbUpgradeFw;\r\ + \n \r\ + \n :global devRunning;\r\ + \n :global devCurArch;\r\ + \n :global ROsVerCurrent;\r\ + \n :global ROsChannelCurrent;\r\ + \n :global ROsVerAvail;\r\ + \n\r\ + \n :global ParseCustom;\r\ + \n :global runningChannelVersion;\r\ + \n :global runningChannel;\r\ + \n :global runningVersion;\r\ + \n :global devBuildTime;\r\ + \n :global GetPubIp;\r\ + \n \r\ + \n :local License [/system/license/get];\r\ + \n :local Resource [/system/resource/get];\r\ + \n :set devBuildTime (\$Resource->\"build-time\");\r\ + \n :set runningChannelVersion (\$Resource->\"version\");\r\ + \n :set runningChannel [\$ParseCustom \$runningChannelVersion \"(\" \")\ + \" 1];\r\ + \n :set runningVersion [\$ParseCustom \$runningChannelVersion \" \"];\r\ + \n \r\ + \n :do {\r\ + \n :if ([:pick \$devBoardName 0 3] != \"CHR\" or [:pick \$devBoardName 0\ + \_3] != \"x86\") do={\r\ + \n :local RouterBoard;\r\ + \n :do {:set RouterBoard [[ :parse \"/system/routerboard/get\" ]]} on\ + -error={}\r\ + \n :set devModel (\$RouterBoard->\"model\");\r\ + \n :set devRbRevision (\$RouterBoard->\"revision\");\r\ + \n :set devRbSerialNumber (\$RouterBoard->\"serial-number\");\r\ + \n #:set devRbCurrentFw (\$RouterBoard->\"current-firmware\");\r\ + \n #:set devRbUpgradeFw (\$RouterBoard->\"upgrade-firmware\");\r\ + \n :if (\$devCurArch = \"mipsbe\" || \$devCurArch = \"arm\") do={\r\ + \n :global devRunning [ /system/device-mode/get mode ];\r\ + \n } else={\r\ + \n :global devRunning [/system/device-mode/get running];}\r\ + \n } else={\r\ + \n :set devModel \$devBoardName;\r\ + \n \r\ + \n :set devRbRevision false;\r\ + \n :set devRbSerialNumber false;\r\ + \n# :set devRbCurrentFw false;\r\ + \n# :set devRbUpgradeFw false;\r\ + \n #:set devCurrentFw \$runningVersion;#:set devUpgradeFw \$ROsVerAvail\ + ;\r\ + \n :set devRunning [/system/device-mode/get running];\r\ + \n }\r\ + \n } on-error={\r\ + \n \$LogPrint error \$0 (\"Error in Function getDevice!\");\r\ + \n :return false;\r\ + \n }\r\ + \n:return true;\r\ + \n}\r\ + \n\r\ + \n:set DeviceInfo do={\r\ + \n :global WaitArrDeviceInfo;\r\ + \n # \$WaitDeviceInfo;\r\ + \n :global devBoardName;\r\ + \n :global devCurArch;\r\ + \n :global devModel;\r\ + \n :global devRunning;\r\ + \n :global devRbRevision;\r\ + \n :global devRbSerialNumber;\r\ + \n :global PiblicIpAddress;\r\ + \n\r\ + \n :global GlobalConfVersion;\r\ + \n :global Identity;\r\ + \n :global IfThenElse;\r\ + \n :global FormatLine;\r\ + \n :local Return;\r\ + \n :local License [/system/license/get];\r\ + \n :local Resource [/system/resource/get];\r\ + \n :local Snmp [ /snmp/get ];\r\ + \n :local Update [ /system/package/update/get ];\r\ + \n \r\ + \n :set Return ([ \$FormatLine \"Hostname:\" \$Identity ] . \"\\n\" . \\\ + \r\ + \n [ \$IfThenElse ([ :len (\$Snmp->\"location\") ] > 0) \\\r\ + \n ([ \$FormatLine \"Location:\" (\$Snmp->\"location\") ] . \"\\n\") \ + ] . \\\r\ + \n [ \$IfThenElse ([ :len (\$Snmp->\"contact\") ] > 0) \\\r\ + \n ([ \$FormatLine \"Contact:\" (\$Snmp->\"contact\") ] . \"\\n\") ] \ + . \\\r\ + \n \"Hardware:\\n\" . \\\r\ + \n [ \$FormatLine \" Board:\" . \$devBoardName ] . \"\\n\" . \\\r\ + \n [ \$FormatLine \" Arch:\" . \$devCurArch ] . \"\\n\" . \\\r\ + \n [ \$FormatLine \" Model:\" \$devModel ] . \\\r\ + \n [ \$IfThenElse ([ :len \$devRbRevision ] > 0) \\\r\ + \n (\" \" . \$devRbRevision) ] . \"\\n\" . \\\r\ + \n [ \$IfThenElse ([ :len \$devRbSerialNumber ] > 0) \\\r\ + \n ([ \$FormatLine \" Serial:\" . \$devRbSerialNumber ] . \"\\n\"\ + ) ] . \\\r\ + \n [ \$IfThenElse ([ :len (\$License->\"nlevel\") ] > 0) \\\r\ + \n ([ \$FormatLine \" License:\" (\"level \" . (\$License->\"nleve\ + l\")) ] . \"\\n\") ] . \"RouterOS:\\n\" . \\\r\ + \n [ \$IfThenElse ([ :len (\$License->\"level\") ] > 0) \\\r\ + \n ([ \$FormatLine \" License:\" (\"level \" . (\$License->\"level\ + \")) ] . \"\\n\") ] . \\\r\ + \n [ \$FormatLine \"Running Channel\" \$runningChannel ] . \"\\n\" . \\\ + \r\ + \n [ \$FormatLine \" Installed:\" (\$Update->\"installed-version\") \ + ] . \"\\n\" . \\\r\ + \n [ \$IfThenElse ([ :typeof (\$Update->\"latest-version\") ] != \"noth\ + ing\" && \\\r\ + \n \$Update->\"installed-version\" != \$Update->\"latest-version\")\ + \_\\\r\ + \n ([ \$FormatLine \" Available\" (\$Update->\"latest-version\") ]\ + \_. \"\\n\") ] . \\\r\ + \n [ \$IfThenElse (\$RouterBoard->\"routerboard\" = true && \\\r\ + \n \$RouterBoard->\"current-firmware\" != \$RouterBoard->\"upgrade-\ + firmware\") \\\r\ + \n ([ \$FormatLine \" Firmware\" (\$RouterBoard->\"current-firmwar\ + e\") ] . \"\\n\") ] . \\ \r\ + \n \"RouterOS-Scripts:\\n\" . \\\r\ + \n [ \$FormatLine \" Commit\" [ \$CommitBrief ] ] . \"\\n\" . \\\r\ + \n [ \$FormatLine \" Version\" \$GlobalConfVersion ]);\r\ + \n}\r\ + \n\r\ + \n:if ([ :typeof \$NotificationFunctions ] != \"array\") do={:set Notifica\ + tionFunctions ({})}\r\ + \n:set GetRandom20CharAlNum do={\r\ + \n :global EitherOr;\r\ + \n :return [ :rndstr length=[ \$EitherOr [ :tonum \$1 ] 20 ] from=\"ABCDE\ + FGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\" ];\r\ + \n}\r\ + \n\r\ + \n:global checkRunJob;\r\ + \n:set checkRunJob do={\r\ + \n :local Script [ :tostr \$1 ];\r\ + \n :global ScriptLock; \r\ + \n :if ([ \$ScriptLock \$Script ] = false) do={:return false}\r\ + \n :foreach Job in=[ /system/script/job/find where script=\$Script ] do={\ + :set Job [ /system/script/job/get \$Job ];\r\ + \n :while ([ :typeof (\$Job->\"parent\") ] = \"id\") do={:set Job [ /sy\ + stem/script/job/get [ find where .id=(\$Job->\"parent\") ] ]}\r\ + \n :if ((\$Job->\"type\") = \"login\") do={:return true};}; :return fa\ + lse; \r\ + \n}\r\ + \n\r\ + \n:set InspectVar do={\r\ + \n :global InspectVarRet;\r\ + \n :put [ :tocrlf [ \$InspectVarRet \$1 ] ];\r\ + \n}\r\ + \n\r\ + \n:set InspectVarRet do={\r\ + \n :local Input \$1;\r\ + \n :local Level (0 + [ :tonum \$2 ]);\r\ + \n :global CharacterReplace;\r\ + \n :global IfThenElse;\r\ + \n :global InspectVarRet;\r\ + \n :local IndentReturn do={\r\ + \n :local Prefix [ :tostr \$1 ];\r\ + \n :local Value [ :tostr \$2 ];\r\ + \n :local Level [ :tonum \$3 ];\r\ + \n :global CharacterMultiply;\r\ + \n :return ([ \$CharacterMultiply \" \" (\$Level * 2) ] . \"-\" . \$Pre\ + fix . \"-> \" . \$Value);\r\ + \n }\r\ + \n :local TypeOf [ :typeof \$Input ];\r\ + \n :local Len [ :len \$Input ];\r\ + \n :local Return [ \$IndentReturn \"type\" \$TypeOf \$Level ];\r\ + \n :if (\$TypeOf = \"array\") do={\r\ + \n :foreach Key,Value in=\$Input do={\r\ + \n :set \$Return (\$Return . \"\\n\" . \\\r\ + \n [ \$IndentReturn \"key\" \$Key (\$Level + 1) ] . \"\\n\" . \\\r\ + \n [ \$InspectVarRet \$Value (\$Level + 2) ]);\r\ + \n }\r\ + \n } else={\r\ + \n :if (\$TypeOf = \"str\") do={\r\ + \n :set \$Return (\$Return . \"\\n\" . \\\r\ + \n [ \$IndentReturn \"len\" \$Len \$Level ]);\r\ + \n :if ([ :typeof [ :find \$Input (\"\\r\") ] ] = \"num\") do={\r\ + \n :set Input [ \$CharacterReplace \$Input (\"\\r\") \"\" ];\r\ + \n }\r\ + \n :if ([ :typeof [ :find \$Input (\"\\n\") ] ] = \"num\") do={\r\ + \n :set Input [ \$CharacterReplace \$Input (\"\\n\") \" \" ];\r\ + \n }\r\ + \n }\r\ + \n :if (\$TypeOf != \"nothing\") do={\r\ + \n :set \$Return (\$Return . \"\\n\" . \\\r\ + \n [ \$IndentReturn \"value\" [ \$IfThenElse ([ :len \$Input ] > 80)\ + \_\\\r\ + \n ([ :pick \$Input 0 77 ] . \"...\") \$Input ] \$Level ]);\r\ + \n }\r\ + \n }\r\ + \n :return \$Return;\r\ + \n}\r\ + \n\r\ + \n# !!! The function is not ready !!!\r\ + \n:global FetchHttpInfo do={\r\ + \n :local Mac [ :tostr \$1 ];\r\ + \n :global CertificateAvailable;\r\ + \n :global IsMacLocallyAdministered;\r\ + \n :global LogPrint;\r\ + \n :local Url \"https://api.macvendors.com/\";\r\ + \n :if ([ \$IsMacLocallyAdministered \$Mac ] = true) do={:return \"locall\ + y administered\";}\r\ + \n :do {\r\ + \n :if ([ \$CertificateAvailable \"GTS Root R4\" \"fetch\" ] = false) d\ + o={\r\ + \n \$LogPrint warning \$0 (\"Downloading required certificate failed.\ + \");\r\ + \n :error false;\r\ + \n }\r\ + \n :local Vendor ([ /tool/fetch \r\ + \n (\$Url . [ :pick \$Mac 0 8 ]) output=user as-value ]->\"data\");\r\ + \n :return \$Vendor;\r\ + \n } on-error={\r\ + \n :onerror Err {\r\ + \n /tool/fetch check-certificate=yes-without-crl (\$Url) output=none \ + as-value;\r\ + \n \$LogPrint debug \$0 (\"The mac vendor is not known in database.\"\ + );\r\ + \n } do={ \$LogPrint warning \$0 (\"Failed getting mac vendor: \" . \$E\ + rr); }\r\ + \n :return \"unknown vendor\";\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n:set GetPubIp do={\r\ + \n :global DetectIpAddrDefault;\r\ + \n :global DetectIpAddrFallback;\r\ + \n :global LogPrint;\r\ + \n \r\ + \n :local PubIpAddr false;\r\ + \n :local Url \$DetectIpAddrDefault;\r\ + \n\r\ + \n# :retry command={abc} delay=1 max=2 on-error={:put \"got error\"} \r\ + \n :do {\r\ + \n \$LogPrint debug \$0 (\"Trying to detect public IP using default s\ + ervice: \" . \$Url . \"...\");\r\ + \n :retry command={:set PubIpAddr ([ /tool/fetch http-method=\"get\"\ + \_check-certificate=yes-without-crl \$Url output=user as-value ]->\"data\"\ + )} \\\r\ + \n delay=50ms max=5 on-error={\$LogPrint error [ :jobname ] (\"Fail\ + ed to detect public IP using default service: \" . \$Url . \".\")}\r\ + \n #:error \"Failed to detect public IP using default service: \$Url\ + .\"};\r\ + \n } on-error={\r\ + \n \$LogPrint error \$0 (\"Failed to detect public IP using default s\ + ervice: \" . \$Url . \".\");\r\ + \n :set Url \$DetectIpAddrFallBack;\r\ + \n \$LogPrint debug \$0 (\"Trying to detect public IP using fallback \ + service: \" . \$Url . \"...\");\r\ + \n :retry command={:set PubIpAddr ([ /tool/fetch http-method=\"get\"\ + \_check-certificate=yes-without-crl \$Url output=user as-value ]->\"data\"\ + )} \\\r\ + \n delay=200ms max=5 on-error={\$LogPrint error [ :jobname ] (\"Fai\ + led to detect public IP using fallback service: \" . \$Url . \".\")}\r\ + \n };\r\ + \n :if (\$PubIpAddr = false) do={\r\ + \n :set PubIpAddr \"not-detected\";\r\ + \n } else={\r\ + \n :set PubIpAddr [ :pick \$PubIpAddr 0 15];\r\ + \n }\r\ + \n :return \$PubIpAddr;\r\ + \n}\r\ + \n\r\ + \n:set FormatLine do={\r\ + \n :local Key [ :tostr \$1 ];\r\ + \n :local Value [ :tostr \$2 ];\r\ + \n :local Indent [ :tonum \$3 ];\r\ + \n :local Spaces;\r\ + \n :local Return \"\";\r\ + \n :global CharacterMultiply;\r\ + \n :global EitherOr;\r\ + \n :set Indent [ \$EitherOr \$Indent 16 ];\r\ + \n :local Spaces [ \$CharacterMultiply \" \" \$Indent ];\r\ + \n :if ([ :len \$Key ] > 0) do={ :set Return (\$Key . \":\")}\r\ + \n :if ([ :len \$Key ] > (\$Indent - 2)) do={:set Return (\$Return . \"\\\ + n\" . [ :pick \$Spaces 0 \$Indent ] . \$Value);\r\ + \n } else={:set Return (\$Return . [ :pick \$Spaces 0 (\$Indent - [ :len \ + \$Return ]) ] . \$Value)}\r\ + \n :return \$Return;\r\ + \n}\r\ + \n\r\ + \n:set ParseCustom do={\r\ + \n :local Str [ :tostr \$1 ];\r\ + \n :local Start [:find [ \$Str ] [:tostr \$2]];\r\ + \n :local End [ :tostr \$3 ];\r\ + \n :local Num [ :tonum \$4 ];\r\ + \n :local Return;\r\ + \n :if ([:len \$Num] = 0) do={:set Num \"0\"}\r\ + \n :local rest [:pick \$Str (\$Start+\$Num) [:len \$Str]]; \r\ + \n :if ([:len \$End ] = 0) do={:set Return [:pick \$Str \$Num \$Start]} e\ + lse={\r\ + \n :set End [:find \$rest \$End];\r\ + \n :set Return [:pick \$rest 0 \$End];\r\ + \n }\r\ + \n:return \$Return;\r\ + \n}\r\ + \n\r\ + \n:set LogPrint do={\r\ + \n :local Severity [ :tostr \$1 ];\r\ + \n :local Name [ :tostr \$2 ];\r\ + \n :local Message [ :tostr \$3 ];\r\ + \n :global PrintDebug;\r\ + \n :global PrintDebugOverride;\r\ + \n :global EitherOr;\r\ + \n :local Debug [ \$EitherOr (\$PrintDebugOverride->\$Name) \$PrintDebug \ + ];\r\ + \n :local PrintSeverity do={\r\ + \n :global TerminalColorOutput;\r\ + \n :if (\$TerminalColorOutput != true) do={:return \$1}\r\ + \n :local Color { debug=96; info=97; warning=93; error=91 };\r\ + \n :return (\"\\1B[\" . \$Color->\$1 . \"m\" . \$1 . \"\\1B[0m\");\r\ + \n}\r\ + \n :local Log ([ \$EitherOr \$Name \"\" ] . \": \" . \$Message);\ + \r\ + \n :if (\$Severity ~ (\"^(custom|debug|error|info)\\\$\")) do={\r\ + \n :if (\$Severity = \"debug\") do={:log debug \$Log}\r\ + \n :if (\$Severity = \"error\") do={:log error \$Log}\r\ + \n :if (\$Severity = \"info\" ) do={:log info \$Log}\r\ + \n } else={:log warning \$Log; :set Severity \"warning\"}\r\ + \n :if (\$Severity != \"debug\" || \$Debug = true) do={:put ([ \$PrintSev\ + erity \$Severity ] . \": \" . \$Message)}\r\ + \n}\r\ + \n\r\ + \n:set CertificateAvailable do={\r\ + \n :local CommonName [ :tostr \$1 ];\r\ + \n :local UseFor [ :tostr \$2 ];\r\ + \n :global CertificateDownload;\r\ + \n :global EitherOr;\r\ + \n :global LogPrint;\r\ + \n :global ParseKeyValueStore;\r\ + \n :set UseFor [ \$EitherOr \$UseFor \"undefined\" ];\r\ + \n :if ([ /system/resource/get free-hdd-space ] < 8388608 && \\\r\ + \n [ /certificate/settings/get crl-download ] = true && \\\r\ + \n [ /certificate/settings/get crl-store ] = \"system\") do={\r\ + \n \$LogPrint warning \$0 (\"This system has low free flash space but \ + \" . \\\r\ + \n \"is configured to download certificate CRLs to system!\");\r\ + \n }\r\ + \n :if ([ :len \$CommonName ] = 0) do={\r\ + \n \$LogPrint warning \$0 (\"No CommonName given!\");\r\ + \n :return false;\r\ + \n }\r\ + \n :local CertSettings [ /certificate/settings/get ];\r\ + \n :if (((\$CertSettings->\"builtin-trust-anchors\") = \"trusted\" || \\\ + \r\ + \n (\$CertSettings->\"builtin-trust-store\") ~ \$UseFor || \\\r\ + \n (\$CertSettings->\"builtin-trust-store\") = \"all\") && \\\r\ + \n [ :len [ /certificate/builtin/find where common-name=\$CommonName\ + \_] ] > 0) do={\r\ + \n :return true;\r\ + \n }\r\ + \n :if ([ :len [ /certificate/find where common-name=\$CommonName ] ] = 0\ + ) do={\r\ + \n \$LogPrint info \$0 (\"Certificate with CommonName '\" . \$CommonNam\ + e . \"' not available.\");\r\ + \n :if ([ \$CertificateDownload \$CommonName ] = false) do={:return fal\ + se}\r\ + \n }\r\ + \n :if ([ :len [ /certificate/find where common-name=\$CommonName ] ] > 1\ + ) do={\r\ + \n \$LogPrint info \$0 (\"There are \" . \$CertCount . \" Certificates \ + with CommonName '\" . \$CommonName . \"'. Should be ok.\");\r\ + \n :return true;\r\ + \n }\r\ + \n :local CertVal [ /certificate/get [ find where common-name=\$CommonNam\ + e ] ];\r\ + \n :while ((\$CertVal->\"akid\") != \"\" && (\$CertVal->\"akid\") != (\$C\ + ertVal->\"skid\")) do={\r\ + \n :if ([ :len [ /certificate/find where skid=(\$CertVal->\"akid\") ] ]\ + \_= 0) do={\r\ + \n :local IssuerCN ([ \$ParseKeyValueStore (\$CertVal->\"issuer\") ]-\ + >\"CN\");\r\ + \n \$LogPrint info \$0 (\"Certificate chain for '\" . \$CommonName . \ + \"' is incomplete, missing '\" . \$IssuerCN . \"'.\");\r\ + \n :if ([ \$CertificateDownload \$IssuerCN ] = false) do={:return fal\ + se}\r\ + \n }\r\ + \n :set CertVal [ /certificate/get [ find where skid=(\$CertVal->\"akid\ + \") ] ];\r\ + \n }\r\ + \n :return true;\r\ + \n}\r\ + \n\r\ + \n:set CertificateDownload do={\r\ + \n :local CommonName [ :tostr \$1 ];\r\ + \n :global GlobalScriptsUrl;\r\ + \n :global GlobalScriptsUrlSuffix;\r\ + \n :global CertificateNameByCN;\r\ + \n :global CleanName;\r\ + \n :global FetchUserAgentStr;\r\ + \n :global LogPrint;\r\ + \n :global RmFile;\r\ + \n :global WaitForFile;\r\ + \n \r\ + \n \$LogPrint info \$0 (\"Downloading and importing certificate with Comm\ + onName '\" . \$CommonName . \"'.\");\r\ + \n \r\ + \n :local FileName ([ \$CleanName \$CommonName ] . \".pem\");\r\ + \n :do {\r\ + \n /tool/fetch check-certificate=yes-without-crl http-header-field=({ [\ + \_\$FetchUserAgentStr \$0 ] }) \\\r\ + \n (\$GlobalScriptsUrl . \"certs/\" . \$FileName . \$GlobalScriptsUrl\ + Suffix) dst-path=\$FileName as-value;\r\ + \n \$WaitForFile \$FileName;\r\ + \n } on-error={\r\ + \n \$LogPrint warning \$0 (\"Failed downloading certificate with Common\ + Name '\" . \$CommonName . \\\r\ + \n \"' from repository! Trying fallback to mkcert.org...\");\r\ + \n :do {\r\ + \n :if ([ :len [ /certificate/find where common-name=\"ISRG Root X1\"\ + \_] ] = 0) do={\r\ + \n \$LogPrint error \$0 (\"Required certificate is not available.\"\ + );\r\ + \n :return false;\r\ + \n }\r\ + \n /tool/fetch check-certificate=yes-without-crl http-header-field=({\ + \_[ \$FetchUserAgentStr \$0 ] }) \\\r\ + \n \"https://mkcert.org/generate/\" http-data=[ :serialize to=json \ + ({ \$CommonName }) ] \\\r\ + \n dst-path=\$FileName as-value;\r\ + \n \$WaitForFile \$FileName;\r\ + \n :if ([ /file/get \$FileName size ] = 0) do={\r\ + \n \$RmFile \$FileName;\r\ + \n :error false;\r\ + \n }\r\ + \n } on-error={\r\ + \n \$LogPrint warning \$0 (\"Failed downloading certificate with Comm\ + onName '\" . \$CommonName . \"'!\");\r\ + \n :return false;\r\ + \n }\r\ + \n }\r\ + \n\r\ + \n /certificate/import file-name=\$FileName passphrase=\"\" as-value;\r\ + \n :delay 1s;\r\ + \n \$RmFile \$FileName;\r\ + \n\r\ + \n :if ([ :len [ /certificate/find where common-name=\$CommonName ] ] = 0\ + ) do={\r\ + \n /certificate/remove [ find where name~(\"^\" . \$FileName . \"_[0-9]\ + +\\\$\") ];\r\ + \n \$LogPrint warning \$0 (\"Certificate with CommonName '\" . \$Common\ + Name . \"' still unavailable!\");\r\ + \n :return false;\r\ + \n }\r\ + \n :foreach Cert in=[ /certificate/find where name~(\"^\" . \$FileName . \ + \"_[0-9]+\\\$\") ] do={\r\ + \n \$CertificateNameByCN [ /certificate/get \$Cert common-name ];\r\ + \n }\r\ + \n :return true;\r\ + \n}\r\ + \n\r\ + \n:set CertificateNameByCN do={\r\ + \n :local Match [ :tostr \$1 ];\r\ + \n :global CleanName;\r\ + \n :global LogPrint;\r\ + \n :local Cert ([ /certificate/find where (common-name=\$Match or fingerp\ + rint=\$Match or name=\$Match) ]->0);\r\ + \n :if ([ :len \$Cert ] = 0) do={\r\ + \n \$LogPrint warning \$0 (\"No matching certificate found.\");\r\ + \n :return false;\r\ + \n }\r\ + \n :local CommonName [ /certificate/get \$Cert common-name ];\r\ + \n /certificate/set \$Cert name=[ \$CleanName \$CommonName ];\r\ + \n :return true;\r\ + \n}\r\ + \n\r\ + \n:set CharacterMultiply do={\r\ + \n :local Str [ :tostr \$1 ];\r\ + \n :local Num [ :tonum \$2 ];\r\ + \n :if (\$Num = 0) do={:return \"\"}\r\ + \n :local Return \"\";\r\ + \n :for I from=1 to=\$Num do={:set Return (\$Return . \$Str)}\r\ + \n :return \$Return;\r\ + \n}\r\ + \n\r\ + \n:set ScriptInstallUpdate do={ :onerror Err {\r\ + \n :local Scripts [ :toarray \$1 ];\r\ + \n :local NewComment [ :tostr \$2 ];\r\ + \n :global InitSetup;\r\ + \n\r\ + \n :global ScriptUpdatesCRLF;\r\ + \n :global GlobalConfVersion;\r\ + \n :global Identity;\r\ + \n :global CertificateAvailable;\r\ + \n :global CheckSumsVerify;\r\ + \n :global GlobalScriptsUrl;\r\ + \n :global GlobalScriptsUrlSuffix;\r\ + \n :global EitherOr;\r\ + \n :global FetchUserAgentStr;\r\ + \n :global Grep;\r\ + \n :global IfThenElse;\r\ + \n :global LogPrint;\r\ + \n :global ParseKeyValueStore;\r\ + \n :global RequiredRouterOS;\r\ + \n :global SendNotification2;\r\ + \n :global SymbolForNotification;\r\ + \n :global ValidateSyntax;\r\ + \n :global CommentsInScripts;\r\ + \n\r\ + \n :if ([ \$CertificateAvailable \"Root YE\" \"fetch\" ] = false) do={\r\ + \n \$LogPrint warning \$0 (\"Downloading certificate failed, trying wit\ + hout.\");\r\ + \n }\r\ + \n\r\ + \n :foreach Script in=\$Scripts do={\r\ + \n :if ([ :len [ /system/script/find where name=\$Script ] ] = 0) do={\ + \r\ + \n \$LogPrint info \$0 (\"Adding new script: \" . \$Script);\r\ + \n /system/script/add name=\$Script owner=\$Script source=\"#!rsc by \ + Vados\\n\" comment=\$NewComment;\r\ + \n }\r\ + \n }\r\ + \n \r\ + \n :local GlobalConfVersionBefore \$GlobalConfVersion;\r\ + \n :local ReloadGlobal false;\r\ + \n :local DeviceMode [ /system/device-mode/get ];\r\ + \n \r\ + \n :if (\$CheckSumsVerify = true) do={\r\ + \n :local CheckSums ({});\r\ + \n :do {\r\ + \n :local Url (\$GlobalScriptsUrl . \"checksums.json\" . \$GlobalScrip\ + tsUrlSuffix);\r\ + \n \$LogPrint debug \$0 (\"Fetching checksums from url: \" . \$Url);\ + \r\ + \n :set CheckSums [ :deserialize from=json ([ /tool/fetch check-certi\ + ficate=yes-without-crl \\\r\ + \n http-header-field=({ [ \$FetchUserAgentStr \$0 ] }) \$Url output\ + =user as-value ]->\"data\") ];\r\ + \n } on-error={ \$LogPrint warning \$0 (\"Err = \" . \$Err); }\r\ + \n }\r\ + \n\r\ + \n :foreach Script in=[ /system/script/find where source~\"^#!rsc by Vado\ + s\" ] do={\r\ + \n :local ScriptVal [ /system/script/get \$Script ];\r\ + \n :local ScriptInfo [ \$ParseKeyValueStore (\$ScriptVal->\"comment\") \ + ];\r\ + \n :local SourceNew;\r\ + \n\r\ + \n :foreach Scheduler in=[ /system/scheduler/find where on-event~(\"\\\ + \\b\" . \$ScriptVal->\"name\" . \"\\\\b\") ] do={\r\ + \n :local SchedulerVal [ /system/scheduler/get \$Scheduler ];\r\ + \n :if (\$ScriptVal->\"policy\" != \$SchedulerVal->\"policy\") do={\r\ + \n \$LogPrint warning \$0 (\"Policies differ for script '\" . \$Scr\ + iptVal->\"name\" . \"' and its scheduler '\" . \$SchedulerVal->\"name\" . \ + \"'!\");\r\ + \n }\r\ + \n }\r\ + \n :do {\r\ + \n :if (\$ScriptInfo->\"ignore\" = true) do={\r\ + \n \$LogPrint debug \$0 (\"Ignoring script '\" . \$ScriptVal->\"nam\ + e\" . \"', as requested.\");\r\ + \n :error true;\r\ + \n }\r\ + \n :if (\$CheckSumsVerify = true) do={\r\ + \n :local CheckSum (\$CheckSums->(\$ScriptVal->\"name\"));\r\ + \n :if ([ :len (\$ScriptInfo->\"base-url\") ] = 0 && [ :len (\$Scri\ + ptInfo->\"url-suffix\") ] = 0 && \\\r\ + \n [ :convert transform=md5 to=hex [ :tolf (\$ScriptVal->\"sou\ + rce\") ] ] = \$CheckSum) do={\r\ + \n \$LogPrint debug \$0 (\"Checksum for script '\" . \$ScriptVal-\ + >\"name\" . \"' matches, ignoring.\");\r\ + \n :error true;\r\ + \n }\r\ + \n }\r\ + \n :if ([ :len (\$ScriptInfo->\"certificate\") ] > 0) do={\r\ + \n :if ([ \$CertificateAvailable (\$ScriptInfo->\"certificate\") \"\ + fetch\" ] = false) do={\r\ + \n \$LogPrint warning \$0 (\"Downloading certificate failed, tryi\ + ng without.\");\r\ + \n }\r\ + \n }\r\ + \n :onerror Err {\r\ + \n :local BaseUrl [ \$EitherOr (\$ScriptInfo->\"base-url\") \$Globa\ + lScriptsUrl ];\r\ + \n :local UrlSuffix [ \$EitherOr (\$ScriptInfo->\"url-suffix\") \$G\ + lobalScriptsUrlSuffix ];\r\ + \n :local Url (\$BaseUrl . \$ScriptVal->\"name\" . \".rsc\" . \$Url\ + Suffix);\r\ + \n \$LogPrint warning \$0 (\"Fetching script '\" . (\$ScriptVal->\"\ + name\") . \"' from url: \" . \$Url);\r\ + \n :local Result [ /tool/fetch check-certificate=yes-without-crl \\\ + \r\ + \n http-header-field=({ [ \$FetchUserAgentStr \$0 ] }) \$Url outp\ + ut=user as-value ];\r\ + \n :if (\$Result->\"status\" = \"finished\") do={\r\ + \n :set SourceNew [ :tolf (\$Result->\"data\") ];\r\ + \n } \r\ + \n } do={\r\ + \n \$LogPrint warning \$0 (\"Failed fetching script '\" . \$ScriptV\ + al->\"name\" . \"': \" . \$Err);\r\ + \n :if (\$Err != \"Fetch failed with status 404\") do={\r\ + \n :error false;\r\ + \n }\r\ + \n :if (\$ScriptVal->\"source\" = \"#!rsc by Vados\") do={\r\ + \n \$LogPrint warning \$0 (\"Removing dummy. Typo on installation\ + \?\");\r\ + \n /system/script/remove \$Script;\r\ + \n :error false;\r\ + \n }\r\ + \n :if (\$CheckSumsVerify = true) do={\r\ + \n :if ([ :len (\$ScriptInfo->\"base-url\") ] = 0 && [ :len (\$Sc\ + riptInfo->\"url-suffix\") ] = 0 && \\\r\ + \n [ :len \$CheckSum ] = 0) do={\r\ + \n \$LogPrint warning \$0 (\"Added the script manually\? Skip u\ + pdates with 'ignore=true' in comment.\");\r\ + \n }\r\ + \n }\r\ + \n :error false;\r\ + \n }\r\ + \n\r\ + \n :if ([ :len \$SourceNew ] = 0) do={\r\ + \n \$LogPrint debug \$0 (\"No update for script '\" . (\$ScriptVal-\ + >\"name\") . \"'.\");\r\ + \n :error false;\r\ + \n }\r\ + \n\r\ + \n :local SourceCRLF [ :tocrlf \$SourceNew ];\r\ + \n :if (\$InitSetup != true && ((\$ScriptVal->\"name\") != \"AM-Globa\ + lConfig\" || (\$ScriptVal->\"name\") != \"AM-GlobalFunc\")) do={\r\ + \n :if (\$SourceNew = (\$ScriptVal->\"source\") || \$SourceCRLF = (\ + \$ScriptVal->\"source\")) do={\r\ + \n \$LogPrint debug \$0 (\"Script '\" . (\$ScriptVal->\"name\") \ + . \"' source did not change. End of lines set to CRLF.\");\r\ + \n if (\$ScriptUpdatesCRLF = false) do={\r\ + \n :put [ :tolf \$SourceNew ];\r\ + \n \$LogPrint debug \$0 (\"Script '\" . (\$ScriptVal->\"name\"\ + ) . \"' source update end of lines to LF.\");\r\ + \n }\r\ + \n :error false;\r\ + \n }\r\ + \n }\r\ + \n\r\ + \n :if ([ :pick \$SourceNew 0 14 ] != \"#!rsc by Vados\") do={\r\ + \n \$LogPrint warning \$0 (\"Looks like new script '\" . \$ScriptVa\ + l->\"name\" . \"' is not valid (missing shebang = '\$shebang') Ignoring!\"\ + );\r\ + \n :error false;\r\ + \n }\r\ + \n\r\ + \n :if (\$CommentsInScripts = true) do={\r\ + \n :local CommentLine [ \$Grep \$SourceNew (\"\\23 Script comment:\ + \_\") ];\r\ + \n :if ([ :len \$CommentLine ] = 0) do={\r\ + \n \$LogPrint debug \$0 (\"The search in new script '\" . (\$Scr\ + iptVal->\"name\") . \"' for comment in script body, is not found result Ig\ + noring!\");\r\ + \n :error false;\r\ + \n } else={\r\ + \n :if ([ :len (\$ScriptVal->\"comment\")] = 0 || [ :len (\$Scri\ + ptVal->\"comment\")] != [ :pick \$CommentLine ([ :find \$CommentLine \":\"\ + ] + 2) [ :len \$CommentLine] ]) do={\r\ + \n \$LogPrint debug \$0 (\"Exsiting comment for script '\" . (\ + \$ScriptVal->\"name\") . \"' is '\" . (\$ScriptVal->\"comment\") . \"'.\")\ + ;\r\ + \n :set (\$ScriptVal->\"comment\") [ :pick \$CommentLine ([ :f\ + ind \$CommentLine \":\"] + 2) [ :len \$CommentLine] ];\r\ + \n \$LogPrint debug \$0 (\"New comment (\" . (\$ScriptVal->\"c\ + omment\") . \") for script '\" . (\$ScriptVal->\"name\") . \"' has been ad\ + ded!\");\r\ + \n } else={\r\ + \n \$LogPrint debug \$0 (\"Comment for script '\" . (\$ScriptV\ + al->\"name\") . \"' did not change.\");\r\ + \n :error false;\r\ + \n }\r\ + \n } \r\ + \n }\r\ + \n\r\ + \n :local RequiredROS ([ \$ParseKeyValueStore [ \$Grep \$SourceNew (\ + \"\\23 requires RouterOS, \") ] ]->version);\r\ + \n :if ([ \$RequiredRouterOS \$0 [ \$EitherOr \$RequiredROS \"0.0\" ]\ + \_false ] = false) do={\r\ + \n \$LogPrint warning \$0 (\"The script '\" . (\$ScriptVal->\"name\ + \") . \"' requires RouterOS \" . \\\r\ + \n \$RequiredROS . \", which is not met by your installation. I\ + gnoring!\");\r\ + \n :error false;\r\ + \n }\r\ + \n :local RequiredDM [ \$ParseKeyValueStore [ \$Grep \$SourceNew (\"\ + \\23 requires device-mode, \") ] ];\r\ + \n :local MissingDM ({});\r\ + \n :foreach Feature,Value in=\$RequiredDM do={\r\ + \n :if ([ :typeof (\$DeviceMode->\$Feature) ] = \"bool\" && (\$Devi\ + ceMode->\$Feature) = false) do={\r\ + \n :set MissingDM (\$MissingDM, \$Feature);\r\ + \n }\r\ + \n }\r\ + \n :if ([ :len \$MissingDM ] > 0) do={\r\ + \n \$LogPrint warning \$0 (\"The script '\" . (\$ScriptVal->\"name\ + \") . \"' requires disabled \" . \\\r\ + \n \"device-mode features (\" . [ :tostr \$MissingDM ] . \"). I\ + gnoring!\");\r\ + \n :error false;\r\ + \n }\r\ + \n\r\ + \n :if ([ \$ValidateSyntax \$SourceNew ] = false) do={\r\ + \n \$LogPrint warning \$0 (\"Syntax validation for script '\" . (\$\ + ScriptVal->\"name\") . \"' failed! Ignoring!\");\r\ + \n :error false;\r\ + \n }\r\ + \n \r\ + \n :log info (\"Updating script: \" . (\$ScriptVal->\"name\") . \" Sc\ + ript comment: \" . (\$ScriptVal->\"comment\"));\r\ + \n\r\ + \n /system/script/set owner=(\$ScriptVal->\"name\") comment=(\$Script\ + Val->\"comment\") \\\r\ + \n source=[ \$IfThenElse (\$ScriptUpdatesCRLF = true) \$SourceCRL\ + F \$SourceNew ] \$Script;\r\ + \n :if (\$ScriptVal->\"name\" = \"AM-GlobalConfig\" || \\\r\ + \n \$ScriptVal->\"name\" = \"AM-GlobalFunc\" || \\\r\ + \n \$ScriptVal->\"name\" ~ (\"^(AM-GlobalFunc\\\\.d|mod)/.\")) d\ + o={\r\ + \n :set ReloadGlobal true;\r\ + \n }\r\ + \n } on-error={ }\r\ + \n }\r\ + \n :if (\$ReloadGlobal = true) do={\r\ + \n \$LogPrint info \$0 (\"Reloading global configuration and functions.\ + \");\r\ + \n :onerror Err {\r\ + \n :global InitSetup (a);\r\ + \n /system/script {run AM-GlobalConfig; run AM-GlobalFunc;};\r\ + \n } do={\$LogPrint error \$0 (\"Reloading global configuration and fun\ + ctions failed! \" . \$Err)}\r\ + \n }\r\ + \n :if (\$GlobalConfVersionBefore > \$GlobalConfVersion) do={\r\ + \n \$LogPrint warning \$0 (\"The configuration version decreased from \ + \" . \\\r\ + \n \$GlobalConfVersionBefore . \" to \" . \$GlobalConfVersion . \\\r\ + \n \". Installed an older version\?\");\r\ + \n }\r\ + \n :if (\$GlobalConfVersionBefore < \$GlobalConfVersion) do={\r\ + \n :global GlobalConfChanges;\r\ + \n :global GlobalConfMigration;\r\ + \n :local ChangeLogCode;\r\ + \n :if ([ :len \$ChangeLogCode ] > 0) do={\r\ + \n :if ([ \$ValidateSyntax \$ChangeLogCode ] = true) do={\r\ + \n :onerror Err {\r\ + \n [ :parse \$ChangeLogCode ];\r\ + \n } do={\$LogPrint warning \$0 (\"The changelog failed to run: \" \ + . \$Err)}\r\ + \n } else={\$LogPrint warning \$0 (\"The changelog failed syntax vali\ + dation!\")}\r\ + \n }\r\ + \n :if ([ :len \$GlobalConfMigration ] > 0) do={\r\ + \n :for I from=(\$GlobalConfVersionBefore + 1) to=\$GlobalConfVersion\ + \_do={\r\ + \n :local Migration (\$GlobalConfMigration->[ :tostr \$I ]);\r\ + \n :do {\r\ + \n :if ([ :typeof \$Migration ] != \"str\") do={\r\ + \n \$LogPrint debug \$0 (\"Migration code for change \" . \$I .\ + \_\" is not available.\");\r\ + \n :error false;\r\ + \n }\r\ + \n :if ([ \$ValidateSyntax \$Migration ] = false) do={\r\ + \n \$LogPrint warning \$0 (\"Migration code for change \" . \$I\ + \_. \" failed syntax validation!\");\r\ + \n :error false}\r\ + \n \$LogPrint info \$0 (\"Applying migration for change \" . \$I \ + . \": \" . \$Migration);\r\ + \n :onerror Err {\r\ + \n [ :parse \$Migration ];\r\ + \n } do={\$LogPrint warning \$0 (\"Migration code for change \" .\ + \_\$I . \" failed to run: \" . \$Err)}\r\ + \n } on-error={ }\r\ + \n }\r\ + \n }\r\ + \n :local NotificationMessage (\"The configuration version on \" . \$Id\ + entity . \" increased \" . \\\r\ + \n \"to \" . \$GlobalConfVersion . \", current configuration may nee\ + d modification. \" . \\\r\ + \n \"Please review and update global-config-overlay, then re-run glo\ + bal-config.\");\r\ + \n \$LogPrint info \$0 (\$NotificationMessage);\r\ + \n :if ([ :len \$GlobalConfChanges ] > 0) do={\r\ + \n :set NotificationMessage (\$NotificationMessage . \"\\n\\nChanges:\ + \");\r\ + \n :for I from=(\$GlobalConfVersionBefore + 1) to=\$GlobalConfVersion\ + \_do={\r\ + \n :local Change (\$GlobalConfChanges->[ :tostr \$I ]);\r\ + \n :set NotificationMessage (\$NotificationMessage . \"\\n \" . \\\ + \r\ + \n [ \$SymbolForNotification \"pushpin\" \"*\" ] . \$Change);\r\ + \n \$LogPrint info \$0 (\"Change \" . \$I . \": \" . \$Change);\r\ + \n }\r\ + \n } else={:set NotificationMessage (\$NotificationMessage . \"\\n\\nNe\ + ws and changes are not available.\")}\r\ + \n\r\ + \n :set GlobalConfChanges;\r\ + \n :set GlobalConfMigration;\r\ + \n }\r\ + \n} do={:global ExitOnError; \$ExitOnError \$0 \$Err}\r\ + \n}\r\ + \n\r\ + \n:set FetchUserAgentStr do={\r\ + \n :local Caller [ :tostr \$1 ];\r\ + \n :global IfThenElse;\r\ + \n :local Resource [ /system/resource/get ];\r\ + \n :return (\"User-Agent: Mikrotik/\" . \$Resource->\"version\" . \" \" .\ + \_\$Resource->\"architecture-name\" . \\\r\ + \n \" \" . \$Caller . \"/Fetch (https://amster.vados.ru/; main/3419/3ee\ + 19780)\");\r\ + \n}\r\ + \n\r\ + \n:set Grep do={\r\ + \n :local Input ([ :tostr \$1 ] . \"\\n\");\r\ + \n :local Pattern [ :tostr \$2 ];\r\ + \n :if ([ :typeof [ :find \$Input \$Pattern ] ] = \"nil\") do={:return []\ + }\r\ + \n :do {\r\ + \n :local Line [ :pick \$Input 0 [ :find \$Input \"\\n\" ] ];\r\ + \n :if ([ :typeof [ :find \$Line \$Pattern ] ] = \"num\") do={:return \ + \$Line}\r\ + \n :set Input [ :pick \$Input ([ :find \$Input \"\\n\" ] + 1) [ :len \$\ + Input ] ];\r\ + \n } while=([ :len \$Input ] > 0);\r\ + \n :return [];\r\ + \n}\r\ + \n\r\ + \n:set HumanReadableNum do={\r\ + \n :local Input [ :tonum \$1 ];\r\ + \n :local Base [ :tonum \$2 ];\r\ + \n :global EitherOr;\r\ + \n :global IfThenElse;\r\ + \n :local Prefix \"kMGTPE\";\r\ + \n :local Pow 1;\r\ + \n :set Base [ \$EitherOr \$Base 1024 ];\r\ + \n :local Bin [ \$IfThenElse (\$Base = 1024) \"i\" \"\" ];\r\ + \n :if (\$Input < \$Base) do={:return \$Input}\r\ + \n :for I from=0 to=[ :len \$Prefix ] do={\r\ + \n :set Pow (\$Pow * \$Base);\r\ + \n :if (\$Input / \$Base < \$Pow) do={\r\ + \n :set Prefix [ :pick \$Prefix \$I ];\r\ + \n :local Tmp1 (\$Input * 100 / \$Pow);\r\ + \n :local Tmp2 (\$Tmp1 / 100);\r\ + \n :if (\$Tmp2 >= 100) do={:return (\$Tmp2 . \$Prefix . \$Bin)}\r\ + \n :return (\$Tmp2 . \".\" . \\\r\ + \n [ :pick \$Tmp1 [ :len \$Tmp2 ] ([ :len \$Tmp1 ] - [ :len \$Tmp\ + 2 ] + 1) ] . \\\r\ + \n \$Prefix . \$Bin);\r\ + \n }\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n:set CleanName do={\r\ + \n :local Input [ :tostr \$1 ];\r\ + \n :local Return \"\";\r\ + \n :for I from=0 to=([ :len \$Input ] - 1) do={\r\ + \n :local Char [ :pick \$Input \$I ];\r\ + \n :if ([ :typeof [ find \"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqr\ + stuvwxyz0123456789\" \$Char ] ] = \"nil\") do={\r\ + \n :do {:if ([ :len \$Return ] = 0) do={:error true};\r\ + \n :if ([ :pick \$Return ([ :len \$Return ] - 1) ] = \"-\") do={:er\ + ror true}; :set Char \"-\"} on-error={:set Char \"\"}; \r\ + \n };\r\ + \n :set Return (\$Return . \$Char)};\r\ + \n :return \$Return;\r\ + \n}\r\ + \n\r\ + \n:set GetRandomNumber do={\r\ + \n :global EitherOr;\r\ + \n :return [ :rndnum from=0 to=[ \$EitherOr [ :tonum \$1 ] 4294967295 ] ]\ + \r\ + \n}\r\ + \n\r\ + \n:set RandomDelay do={\r\ + \n :local Time [ :tonum \$1 ];\r\ + \n :local Unit [ :tostr \$2 ];\r\ + \n :global EitherOr;\r\ + \n :global GetRandomNumber;\r\ + \n :global MAX;\r\ + \n :if (\$Time = 0) do={:return false}\r\ + \n :delay ([ \$MAX 10 [ \$GetRandomNumber ([ :tonsec [ :totime (\$Time . \ + [ \$EitherOr \$Unit \"s\" ]) ] ] / 1000000) ] ] . \"ms\");\r\ + \n}\r\ + \n\r\ + \n:set EscapeForRegEx do={\r\ + \n :local Input [ :tostr \$1 ];\r\ + \n :if ([ :len \$Input ] = 0) do={:return \"\"}\r\ + \n :local Return \"\";\r\ + \n :local Chars (\"^.[]\\\$()|*+\?{}\\\\\");\r\ + \n :for I from=0 to=([ :len \$Input ] - 1) do={\r\ + \n :local Char [ :pick \$Input \$I ];\r\ + \n :if ([ :find \$Chars \$Char ]) do={:set Char (\"\\\\\" . \$Char)}\r\ + \n :set Return (\$Return . \$Char);\r\ + \n }\r\ + \n :return \$Return;\r\ + \n}\r\ + \n:set ExitError do={\r\ + \n :local ExitOK [ :tostr \$1 ];\r\ + \n :local Name [ :tostr \$2 ];\r\ + \n :local Error [ :tostr \$3 ];\r\ + \n :global IfThenElse;\r\ + \n :global LogPrint;\r\ + \n :if (\$ExitOK = \"false\") do={\r\ + \n \$LogPrint error \$Name ([ \$IfThenElse ([ :pick \$Name 0 1 ] = \"\\\ + \$\") \\\r\ + \n \"Function\" \"Script\" ] . \" '\" . \$Name . \"' exited with er\ + ror\" . \\\r\ + \n [ \$IfThenElse (!(\$Error ~ \"^(|true|false)\\\$\")) (\": \" . \ + \$Error) \".\" ]);\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n:set MiniDateTimeStamp do={\r\ + \n /system/clock;\r\ + \n :local vdate [get date];\r\ + \n :local vtime [get time];\r\ + \n :local vdoff [:toarray \"0,4,5,7,8,10\"];\r\ + \n :local MM [:pick \$vdate (\$vdoff->2) (\$vdoff->3)];\r\ + \n :local M [:tonum \$MM];\r\ + \n :if (\$vdate ~ \".../../....\") do={\r\ + \n :set vdoff [:toarray \"7,11,1,3,4,6\"];\r\ + \n :set M ([:find \"xxanebarprayunulugepctovecANEBARPRAYUNULUGE\ + PCTOVEC\" [:pick \$vdate (\$vdoff->2) (\$vdoff->3)] -1] / 2);\r\ + \n :if (\$M>12) do={:set M (\$M - 12)}\r\ + \n :set MM [:pick (100 + \$M) 1 3];\r\ + \n }\r\ + \n :local yyyy [:pick \$vdate (\$vdoff->0) (\$vdoff->1)];\r\ + \n :local dd [:pick \$vdate (\$vdoff->4) (\$vdoff->5)];\r\ + \n :local HH [:pick \$vtime 0 2];\r\ + \n :local mm [:pick \$vtime 3 5];\r\ + \n :local ss [:pick \$vtime 6 8];\r\ + \n :return ([\$yyyy] . [\$MM] . [\$dd] . [\$HH] . [\$mm] . [\$ss]);\r\ + \n}\r\ + \n\r\ + \n:set WaitForFile do={\r\ + \n :local FileName [ :tostr \$1 ];\r\ + \n :local WaitTime [ :totime \$2 ];\r\ + \n :global CleanFilePath;\r\ + \n :global EitherOr;\r\ + \n :global MAX;\r\ + \n :set FileName [ \$CleanFilePath \$FileName ];\r\ + \n :local Delay ([ \$MAX [ \$EitherOr \$WaitTime 2s ] 100ms ] / 9);\r\ + \n :do {\r\ + \n :retry {\r\ + \n /file/get \$FileName;\r\ + \n :return true;\r\ + \n } delay=\$Delay max=10;\r\ + \n } on-error={ }\r\ + \n :while ([ :len [ /file/find where name=\$FileName ] ] > 0) do={\r\ + \n :do {\r\ + \n /file/get \$FileName;\r\ + \n :return true;\r\ + \n } on-error={ }\r\ + \n :delay \$Delay;\r\ + \n :set Delay (\$Delay * 3 / 2);\r\ + \n }\r\ + \n :return false;\r\ + \n}\r\ + \n\r\ + \n:set FileGet do={\r\ + \n :local FileName [ :tostr \$1 ];\r\ + \n :global WaitForFile;\r\ + \n :if ([ \$WaitForFile \$FileName 0s ] = false) do={:return false}\r\ + \n :local FileVal false;\r\ + \n :do {:set FileVal [ /file/get \$FileName ];\r\ + \n } on-error={ }\r\ + \n :return \$FileVal;\r\ + \n}\r\ + \n\r\ + \n:set RmDir do={\r\ + \n :local DirName [ :tostr \$1 ];\r\ + \n :global FileGet;\r\ + \n :global LogPrint;\r\ + \n \$LogPrint debug \$0 (\"Removing directory: \". \$DirName);\r\ + \n :local DirVal [ \$FileGet \$DirName ];\r\ + \n :if (\$DirVal = false) do={\$LogPrint debug \$0 (\"... which does not \ + exist.\"); :return true};\r\ + \n :if (\$DirVal->\"type\" != \"directory\") do={\$LogPrint error \$0 (\"\ + Directory '\" . \$DirName . \"' is not a directory.\"); :return false};\r\ + \n :onerror Err {/file/remove \$DirName} do={\$LogPrint error \$0 (\"Remo\ + ving directory '\" . \$DirName . \"' failed: \" . \$Err); :return false};\ + \r\ + \n :return true;\r\ + \n}\r\ + \n\r\ + \n:set RmFile do={\r\ + \n :local FileName [ :tostr \$1 ];\r\ + \n :global FileGet;\r\ + \n :global LogPrint;\r\ + \n \$LogPrint debug \$0 (\"Removing file: \". \$FileName);\r\ + \n :local FileVal [ \$FileGet \$FileName ];\r\ + \n :if (\$FileVal = false) do={\$LogPrint debug \$0 (\"... which does not\ + \_exist.\"); :return true}\r\ + \n :if (\$FileVal->\"type\" = \"directory\" || \$FileVal->\"type\" = \"di\ + sk\") do={\r\ + \n \$LogPrint error \$0 (\"File '\" . \$FileName . \"' is not a file.\"\ + ); :return false}\r\ + \n :onerror Err {\r\ + \n /file/remove \$FileName;\r\ + \n } do={\$LogPrint error \$0 (\"Removing file '\" . \$FileName . \"' fai\ + led: \" . \$Err); :return false}\r\ + \n :return true;\r\ + \n}\r\ + \n\r\ + \n:set MkDir do={\r\ + \n :local Path [ :tostr \$1 ];\r\ + \n :global CleanFilePath;\r\ + \n :global FileGet;\r\ + \n :global RmDir;\r\ + \n :global WaitForFile;\r\ + \n :global LogPrint;\r\ + \n :local MkTmpfs do={\r\ + \n :global WaitForFile;\r\ + \n :local TmpFs [ /disk/find where slot=tmpfs type=tmpfs ];\r\ + \n :if ([ :len \$TmpFs ] = 1) do={\r\ + \n :if ([ /disk/get \$TmpFs disabled ] = true) do={\r\ + \n \$LogPrint info \$0 (\"The tmpfs is disabled, enabling.\");\r\ + \n /disk/enable \$TmpFs;\r\ + \n }\r\ + \n :return true;\r\ + \n }\r\ + \n \$LogPrint info \$0 (\"Creating disk of type tmpfs.\");\r\ + \n \$RmDir \"tmpfs\";\r\ + \n :onerror Err {\r\ + \n /disk/add slot=tmpfs type=tmpfs tmpfs-max-size=([ /system/resource\ + /get total-memory ] / 3);\r\ + \n \$WaitForFile \"tmpfs\";\r\ + \n } do={\r\ + \n \$LogPrint warning \$0 (\"Creating disk of type tmpfs failed: \" .\ + \_\$Err);\r\ + \n :return false;\r\ + \n }\r\ + \n :return true;\r\ + \n }\r\ + \n :set Path [ \$CleanFilePath \$Path ];\r\ + \n :if (\$Path = \"\") do={\r\ + \n :return true;\r\ + \n }\r\ + \n \$LogPrint debug \$0 (\"Making directory: \" . \$Path);\r\ + \n :local PathVal [ \$FileGet \$Path ];\r\ + \n :if (\$PathVal->\"type\" = \"directory\") do={\r\ + \n \$LogPrint debug \$0 (\"... which already exists.\");\r\ + \n :return true;\r\ + \n }\r\ + \n :if ([ :pick \$Path 0 5 ] = \"tmpfs\") do={\r\ + \n :if ([ \$MkTmpfs ] = false) do={\r\ + \n :return false;\r\ + \n }\r\ + \n }\r\ + \n :onerror Err {\r\ + \n /file/add type=\"directory\" name=\$Path;\r\ + \n \$WaitForFile \$Path;\r\ + \n } do={\r\ + \n \$LogPrint warning \$0 (\"Making directory '\" . \$Path . \"' failed\ + : \" . \$Err);\r\ + \n :return false;\r\ + \n }\r\ + \n :return true;\r\ + \n}\r\ + \n\r\ + \n:set MAX do={:if (\$1 > \$2) do={:return \$1}\r\ + \n :return \$2;\r\ + \n}\r\ + \n:set MIN do={:if (\$1 < \$2) do={:return \$1}\r\ + \n :return \$2;\r\ + \n}\r\ + \n\r\ + \n:set CharacterMultiply do={\r\ + \n :local Str [ :tostr \$1 ];\r\ + \n :local Num [ :tonum \$2 ];\r\ + \n :if (\$Num = 0) do={:return \"\"}\r\ + \n :local Return \"\";\r\ + \n :for I from=1 to=\$Num do={:set Return (\$Return . \$Str)}\r\ + \n :return \$Return;\r\ + \n}\r\ + \n\r\ + \n:set CharacterReplace do={\r\ + \n :local String [ :tostr \$1 ];\r\ + \n :local ReplaceFrom [ :tostr \$2 ];\r\ + \n :local ReplaceWith [ :tostr \$3 ];\r\ + \n :local Return \"\";\r\ + \n :if (\$ReplaceFrom = \"\") do={:return \$String}\r\ + \n :while ([ :typeof [ :find \$String \$ReplaceFrom ] ] != \"nil\") do={\ + \r\ + \n :local Pos [ :find \$String \$ReplaceFrom ];\r\ + \n :set Return (\$Return . [ :pick \$String 0 \$Pos ] . \$ReplaceWith);\ + \r\ + \n :set String [ :pick \$String (\$Pos + [ :len \$ReplaceFrom ]) [ :len\ + \_\$String ] ];\r\ + \n }\r\ + \n :return (\$Return . \$String);\r\ + \n}\r\ + \n\r\ + \n:set CleanFilePath do={\r\ + \n :local Path [ :tostr \$1 ];\r\ + \n :global CharacterReplace;\r\ + \n :while (\$Path ~ \"//\") do={:set \$Path [ \$CharacterReplace \$Path \ + \"//\" \"/\" ]};\r\ + \n :if ([ :pick \$Path 0 ] = \"/\") do={:set Path [ :pick \$Path 1 [ :len\ + \_\$Path ] ]};\r\ + \n :if ([ :pick \$Path ([ :len \$Path ] - 1) ] = \"/\") do={:set Path [ :\ + pick \$Path 0 ([ :len \$Path ] - 1) ]};\r\ + \n :return \$Path;\r\ + \n}\r\ + \n\r\ + \n:set IfThenElse do={\r\ + \n :if ([ :tostr \$1 ] = \"true\" || [ :tobool \$1 ] = true) do={:return \ + \$2};\r\ + \n :return \$3;\r\ + \n}\r\ + \n\r\ + \n:set EitherOr do={\r\ + \n :global IfThenElse;\r\ + \n :if ([ :typeof \$1 ] = \"num\") do={:return [ \$IfThenElse (\$1 != 0) \ + \$1 \$2 ]}\r\ + \n :if ([ :typeof \$1 ] = \"time\") do={:return [ \$IfThenElse (\$1 > 0s)\ + \_\$1 \$2 ]}\r\ + \n# this works for boolean values, literal ones with parentheses\r\ + \n :return [ \$IfThenElse ([ :len [ :tostr \$1 ] ] > 0) \$1 \$2 ];\r\ + \n}\r\ + \n\r\ + \n:set ParseKeyValueStore do={\r\ + \n :local Source \$1;\r\ + \n :if ([ :pick \$Source 0 1 ] = \"{\") do={\r\ + \n :do {\r\ + \n :return [ :deserialize from=json \$Source ];\r\ + \n } on-error={ }\r\ + \n } \r\ + \n :if ([ :typeof \$Source ] != \"array\") do={:set Source [ :tostr \$1 ]\ + }\r\ + \n :local Result ({});\r\ + \n :foreach KeyValue in=[ :toarray \$Source ] do={\r\ + \n :if ([ :find \$KeyValue \"=\" ]) do={\r\ + \n :local Key [ :pick \$KeyValue 0 [ :find \$KeyValue \"=\" ] ];\r\ + \n :local Value [ :pick \$KeyValue ([ :find \$KeyValue \"=\" ] + 1) [\ + \_:len \$KeyValue ] ];\r\ + \n :if (\$Value=\"true\") do={:set Value true}\r\ + \n :if (\$Value=\"false\") do={:set Value false}\r\ + \n :set (\$Result->\$Key) \$Value;\r\ + \n } else={:set (\$Result->\$KeyValue) true}\r\ + \n }\r\ + \n :return \$Result;\r\ + \n}\r\ + \n:set RequiredRouterOS do={\r\ + \n :local Caller [ :tostr \$1 ];\r\ + \n :local Required [ :tostr \$2 ];\r\ + \n :local Warn [ :tostr \$3 ];\r\ + \n :global IfThenElse;\r\ + \n :global LogPrint;\r\ + \n :global VersionToNum;\r\ + \n :if (!(\$Required ~ \"^\\\\d+\\\\.\\\\d+((alpha|beta|rc|\\\\.)\\\\d+|)\ + \\\$\")) do={\r\ + \n \$LogPrint error \$0 (\"No valid RouterOS version: \" . \$Required);\ + \r\ + \n :return false;\r\ + \n }\r\ + \n :if ([ \$VersionToNum \$Required ] > [ \$VersionToNum [ /system/packag\ + e/update/get installed-version ] ]) do={\r\ + \n :if (\$Warn = \"true\") do={\r\ + \n \$LogPrint warning \$0 (\"This \" . [ \$IfThenElse ([ :pick \$Call\ + er 0 ] = (\"\\\$\")) \"function\" \"script\" ] . \\\r\ + \n \" '\" . \$Caller . \"' (at least specific functionality) requir\ + es RouterOS \" . \$Required . \". Please update!\");\r\ + \n }\r\ + \n :return false;\r\ + \n }\r\ + \n :return true;\r\ + \n}\r\ + \n:set VersionToNum do={\r\ + \n :local Input [ :tostr \$1 ];\r\ + \n :local Multi 0x1000000;\r\ + \n :local Return 0;\r\ + \n :global CharacterReplace;\r\ + \n :set Input [ \$CharacterReplace \$Input \".\" \",\" ];\r\ + \n :foreach I in={ \"zero\"; \"alpha\"; \"beta\"; \"rc\" } do={\r\ + \n :set Input [ \$CharacterReplace \$Input \$I (\",\" . \$I . \",\") ];\ + \r\ + \n }\r\ + \n :foreach Value in=([ :toarray \$Input ], 0) do={\r\ + \n :local Num [ :tonum \$Value ];\r\ + \n :if (\$Multi = 0x100) do={\r\ + \n :if ([ :typeof \$Num ] = \"num\") do={\r\ + \n :set Return (\$Return + 0xff00);\r\ + \n :set Multi (\$Multi / 0x100);\r\ + \n } else={\r\ + \n :if (\$Value = \"zero\") do={ }\r\ + \n :if (\$Value = \"alpha\") do={ :set Return (\$Return + 0x3f00); \ + }\r\ + \n :if (\$Value = \"beta\") do={ :set Return (\$Return + 0x5f00); }\ + \r\ + \n :if (\$Value = \"rc\") do={ :set Return (\$Return + 0x7f00); }\r\ + \n }\r\ + \n }\r\ + \n :if ([ :typeof \$Num ] = \"num\") do={ :set Return (\$Return + (\$Va\ + lue * \$Multi)); }\r\ + \n :set Multi (\$Multi / 0x100);\r\ + \n }\r\ + \n :return \$Return;\r\ + \n}\r\ + \n:set ScriptLock do={\r\ + \n :local Script [ :tostr \$1 ];\r\ + \n :local WaitMax [ :totime \$2 ];\r\ + \n :global GetRandom20CharAlNum;\r\ + \n :global IfThenElse;\r\ + \n :global LogPrint;\r\ + \n :global ScriptLockOrder;\r\ + \n :if ([ :typeof \$ScriptLockOrder ] = \"nothing\") do={\r\ + \n :set ScriptLockOrder ({});\r\ + \n }\r\ + \n :if ([ :typeof (\$ScriptLockOrder->\$Script) ] = \"nothing\") do={\r\ + \n :set (\$ScriptLockOrder->\$Script) ({});\r\ + \n }\r\ + \n :local JobCount do={\r\ + \n :local Script [ :tostr \$1 ];\r\ + \n :return [ :len [ /system/script/job/find where script=\$Script ] ];\ + \r\ + \n }\r\ + \n :local TicketCount do={\r\ + \n :local Script [ :tostr \$1 ];\r\ + \n :global ScriptLockOrder;\r\ + \n :local Count 0;\r\ + \n :foreach Ticket in=(\$ScriptLockOrder->\$Script) do={\r\ + \n :if ([ :typeof \$Ticket ] != \"nothing\") do={:set Count (\$Count \ + + 1)}\r\ + \n }\r\ + \n :return \$Count;\r\ + \n }\r\ + \n :local IsFirstTicket do={\r\ + \n :local Script [ :tostr \$1 ];\r\ + \n :local Check [ :tostr \$2 ];\r\ + \n :global ScriptLockOrder;\r\ + \n :foreach Ticket in=(\$ScriptLockOrder->\$Script) do={\r\ + \n :if (\$Ticket = \$Check) do={:return true}\r\ + \n :if ([ :typeof \$Ticket ] != \"nothing\" && \$Ticket != \$Check) d\ + o={:return false}\r\ + \n }\r\ + \n :return false;\r\ + \n }\r\ + \n :local AddTicket do={\r\ + \n :local Script [ :tostr \$1 ];\r\ + \n :local Add [ :tostr \$2 ];\r\ + \n :global ScriptLockOrder;\r\ + \n :while (true) do={\r\ + \n :local Pos [ :len (\$ScriptLockOrder->\$Script) ];\r\ + \n :set (\$ScriptLockOrder->\$Script->\$Pos) \$Add;\r\ + \n :delay 10ms;\r\ + \n :if ((\$ScriptLockOrder->\$Script->\$Pos) = \$Add) do={:return tru\ + e}\r\ + \n }\r\ + \n }\r\ + \n :local RemoveTicket do={\r\ + \n :local Script [ :tostr \$1 ];\r\ + \n :local Remove [ :tostr \$2 ];\r\ + \n :global ScriptLockOrder;\r\ + \n :foreach Id,Ticket in=(\$ScriptLockOrder->\$Script) do={\r\ + \n :while ((\$ScriptLockOrder->\$Script->\$Id) = \$Remove) do={\r\ + \n :set (\$ScriptLockOrder->\$Script->\$Id);\r\ + \n :delay 10ms;\r\ + \n }\r\ + \n }\r\ + \n }\r\ + \n :local CleanupTickets do={\r\ + \n :local Script [ :tostr \$1 ];\r\ + \n :global ScriptLockOrder;\r\ + \n :foreach Ticket in=(\$ScriptLockOrder->\$Script) do={\r\ + \n :if ([ :typeof \$Ticket ] != \"nothing\") do={:return false}\r\ + \n }\r\ + \n :set (\$ScriptLockOrder->\$Script) ({});\r\ + \n }\r\ + \n :if ([ :typeof \$WaitMax ] = \"nil\" ) do={:set WaitMax 0s}\r\ + \n :if ([ :len [ /system/script/find where name=\$Script ] ] = 0) do={\r\ + \n \$LogPrint error \$0 (\"A script named '\" . \$Script . \"' does not\ + \_exist!\");\r\ + \n :error false;\r\ + \n }\r\ + \n :if ([ \$JobCount \$Script ] = 0) do={\r\ + \n \$LogPrint error \$0 (\"No script '\" . \$Script . \"' is running!\"\ + );\r\ + \n :error false;\r\ + \n }\r\ + \n :if ([ \$TicketCount \$Script ] >= [ \$JobCount \$Script ]) do={\r\ + \n \$LogPrint error \$0 (\"More tickets than running scripts '\" . \$Sc\ + ript . \"', resetting!\");\r\ + \n :set (\$ScriptLockOrder->\$Script) ({});\r\ + \n /system/script/job/remove [ find where script=\$Script ];\r\ + \n }\r\ + \n :local MyTicket [ \$GetRandom20CharAlNum 6 ];\r\ + \n \$AddTicket \$Script \$MyTicket;\r\ + \n :local WaitInterval (\$WaitMax / 20);\r\ + \n :local WaitTime \$WaitMax;\r\ + \n :while (\$WaitTime > 0 && \\\r\ + \n ([ \$IsFirstTicket \$Script \$MyTicket ] = false || \\\r\ + \n [ \$TicketCount \$Script ] < [ \$JobCount \$Script ])) do={\r\ + \n :set WaitTime (\$WaitTime - \$WaitInterval);\r\ + \n :delay \$WaitInterval;\r\ + \n }\r\ + \n :if ([ \$IsFirstTicket \$Script \$MyTicket ] = true && \\\r\ + \n [ \$TicketCount \$Script ] = [ \$JobCount \$Script ]) do={\r\ + \n \$RemoveTicket \$Script \$MyTicket;\r\ + \n \$CleanupTickets \$Script;\r\ + \n :return true;\r\ + \n }\r\ + \n \$RemoveTicket \$Script \$MyTicket;\r\ + \n \$LogPrint debug \$0 (\"Script '\" . \$Script . \"' started more than \ + once\" . \\\r\ + \n [ \$IfThenElse (\$WaitTime < \$WaitMax) \" and timed out waiting for\ + \_lock\" \"\" ] . \"...\");\r\ + \n :return false;\r\ + \n}\r\ + \n:set SendNotification do={ :onerror Err {\r\ + \n :global SendNotification2;\r\ + \n \$SendNotification2 ({ origin=\$0; subject=\$1; message=\$2; link=\$3;\ + \_silent=\$4 });\r\ + \n} do={:global ExitOnError; \$ExitOnError \$0 \$Err}\r\ + \n}\r\ + \n:set SendNotification2 do={\r\ + \n :local Notification \$1;\r\ + \n :global NotificationFunctions;\r\ + \n :foreach FunctionName,Discard in=\$NotificationFunctions do={\r\ + \n (\$NotificationFunctions->\$FunctionName) (\"\\\$NotificationFunctio\ + ns->\\\"\" . \$FunctionName . \"\\\"\") \$Notification;\r\ + \n }\r\ + \n}\r\ + \n:set SymbolByUnicodeName do={\r\ + \n :local Name [ :tostr \$1 ];\r\ + \n :global EitherOr;\r\ + \n :global LogPrint;\r\ + \n :global SymbolsExtra;\r\ + \n :local Symbols ({\r\ + \n \"abacus\"=\"\\F0\\9F\\A7\\AE\";\r\ + \n \"alarm-clock\"=\"\\E2\\8F\\B0\";\r\ + \n \"arrow-down\"=\"\\E2\\AC\\87\";\r\ + \n \"arrow-up\"=\"\\E2\\AC\\86\";\r\ + \n \"calendar\"=\"\\F0\\9F\\93\\85\";\r\ + \n \"card-file-box\"=\"\\F0\\9F\\97\\83\";\r\ + \n \"chart-decreasing\"=\"\\F0\\9F\\93\\89\";\r\ + \n \"chart-increasing\"=\"\\F0\\9F\\93\\88\";\r\ + \n \"cloud\"=\"\\E2\\98\\81\";\r\ + \n \"cross-mark\"=\"\\E2\\9D\\8C\";\r\ + \n \"earth\"=\"\\F0\\9F\\8C\\8D\";\r\ + \n \"fire\"=\"\\F0\\9F\\94\\A5\";\r\ + \n \"floppy-disk\"=\"\\F0\\9F\\92\\BE\";\r\ + \n \"gear\"=\"\\E2\\9A\\99\";\r\ + \n \"heart\"=\"\\E2\\99\\A5\";\r\ + \n \"high-voltage-sign\"=\"\\E2\\9A\\A1\";\r\ + \n \"incoming-envelope\"=\"\\F0\\9F\\93\\A8\";\r\ + \n \"information\"=\"\\E2\\84\\B9\";\r\ + \n \"large-orange-circle\"=\"\\F0\\9F\\9F\\A0\";\r\ + \n \"large-red-circle\"=\"\\F0\\9F\\94\\B4\";\r\ + \n \"link\"=\"\\F0\\9F\\94\\97\";\r\ + \n \"lock-with-ink-pen\"=\"\\F0\\9F\\94\\8F\";\r\ + \n \"memo\"=\"\\F0\\9F\\93\\9D\";\r\ + \n \"mobile-phone\"=\"\\F0\\9F\\93\\B1\";\r\ + \n \"pushpin\"=\"\\F0\\9F\\93\\8C\";\r\ + \n \"scissors\"=\"\\E2\\9C\\82\";\r\ + \n \"scroll\"=\"\\F0\\9F\\93\\9C\";\r\ + \n \"smiley-partying-face\"=\"\\F0\\9F\\A5\\B3\";\r\ + \n \"smiley-smiling-face\"=\"\\E2\\98\\BA\";\r\ + \n \"smiley-winking-face-with-tongue\"=\"\\F0\\9F\\98\\9C\";\r\ + \n \"sparkles\"=\"\\E2\\9C\\A8\";\r\ + \n \"speech-balloon\"=\"\\F0\\9F\\92\\AC\";\r\ + \n \"star\"=\"\\E2\\AD\\90\";\r\ + \n \"warning-sign\"=\"\\E2\\9A\\A0\";\r\ + \n \"white-heavy-check-mark\"=\"\\E2\\9C\\85\"\r\ + \n }, \$SymbolsExtra);\r\ + \n :local Magic [ :pick [ /system/clock/get date ] 4 10 ];\r\ + \n :local Special {\r\ + \n \"information-04-01\"=\"\\F0\\9F\\9A\\BB\";\r\ + \n \"large-orange-circle-04-01\"=\"\\F0\\9F\\8D\\8A\";\r\ + \n \"large-orange-circle-10-31\"=\"\\F0\\9F\\8E\\83\";\r\ + \n \"large-red-circle-04-01\"=\"\\F0\\9F\\8D\\92\" };\r\ + \n :if ([ :len (\$Symbols->\$Name) ] = 0) do={\r\ + \n \$LogPrint warning \$0 (\"No symbol available for name '\" . \$Name \ + . \"'!\");\r\ + \n :return \"\";\r\ + \n }\r\ + \n :return ([ \$EitherOr (\$Special->(\$Name . \$Magic)) (\$Symbols->\$Na\ + me) ] . \"\\EF\\B8\\8F\");\r\ + \n}\r\ + \n:set SymbolForNotification do={\r\ + \n :global NotificationsWithSymbols;\r\ + \n :global SymbolByUnicodeName;\r\ + \n :global IfThenElse;\r\ + \n :if (\$NotificationsWithSymbols != true) do={:return [ \$IfThenElse ([\ + \_:len \$2 ] > 0) ([ :tostr \$2 ] . \" \") \"\" ]}\r\ + \n :local Return \"\";\r\ + \n :foreach Symbol in=[ :toarray \$1 ] do={:set Return (\$Return . [ \$Sy\ + mbolByUnicodeName \$Symbol ])}\r\ + \n :return (\$Return . \" \");\r\ + \n}\r\ + \n:set Unix2Dos do={:return [ :tocrlf [ :tostr \$1 ] ]}\r\ + \n:set UrlEncode do={\r\ + \n :local Input [ :tostr \$1 ];\r\ + \n :if ([ :len \$Input ] = 0) do={:return \"\"}\r\ + \n :local Return \"\";\r\ + \n :local Chars (\"\\n\\r !\\\"#\\\$%&'()*+,:;<=>\?@[\\\\]^`{|}~\");\r\ + \n :local Subs { \"%0A\"; \"%0D\"; \"%20\"; \"%21\"; \"%22\"; \"%23\"; \"\ + %24\"; \"%25\"; \"%26\"; \"%27\";\r\ + \n \"%28\"; \"%29\"; \"%2A\"; \"%2B\"; \"%2C\"; \"%3A\"; \"%3B\"; \ + \"%3C\"; \"%3D\"; \"%3E\"; \"%3F\";\r\ + \n \"%40\"; \"%5B\"; \"%5C\"; \"%5D\"; \"%5E\"; \"%60\"; \"%7B\"; \ + \"%7C\"; \"%7D\"; \"%7E\" };\r\ + \n :for I from=0 to=([ :len \$Input ] - 1) do={\r\ + \n :local Char [ :pick \$Input \$I ];\r\ + \n :local Replace [ :find \$Chars \$Char ];\r\ + \n :if ([ :typeof \$Replace ] = \"num\") do={:set Char (\$Subs->\$Repla\ + ce)}\r\ + \n :set Return (\$Return . \$Char);\r\ + \n }\r\ + \n :return \$Return;\r\ + \n}\r\ + \n:set ValidateSyntax do={\r\ + \n :local Code [ :tostr \$1 ];\r\ + \n :global LogPrint;\r\ + \n :onerror Err {\r\ + \n [ :parse (\":local Validate do={\\n\" . \$Code . \"\\n}\") ];\r\ + \n } do={\r\ + \n \$LogPrint debug \$0 (\"Valdation failed: \" . \$Err);\r\ + \n :return false;\r\ + \n }\r\ + \n :return true;\r\ + \n}\r\ + \n:set IsDNSResolving do={\r\ + \n :do {:resolve \"api.telegram.org\"} on-error={:return false}\r\ + \n :return true;\r\ + \n}\r\ + \n:set IsFullyConnected do={\r\ + \n :global IsDNSResolving;\r\ + \n :global IsTimeSync;\r\ + \n :if ([ \$IsDNSResolving ] = false) do={:return false};\r\ + \n :if ([ \$IsTimeSync ] = false) do={:return false};\r\ + \n :return true;\r\ + \n}\r\ + \n:set IsTimeSync do={\r\ + \n :global IsTimeSyncCached;\r\ + \n :global IsTimeSyncResetNtp;\r\ + \n :if (\$IsTimeSyncCached = true) do={:return true}\r\ + \n :if ([ /system/ntp/client/get enabled ] = true) do={\r\ + \n :if ([ /system/ntp/client/get status ] = \"synchronized\") do={\r\ + \n :set IsTimeSyncCached true;\r\ + \n :return true;\r\ + \n }\r\ + \n :local Uptime [ /system/resource/get uptime ];\r\ + \n :if ([ :typeof \$IsTimeSyncResetNtp ] = \"nothing\") do={\r\ + \n :set IsTimeSyncResetNtp \$Uptime;\r\ + \n }\r\ + \n :if (\$Uptime - \$IsTimeSyncResetNtp < 3m) do={:return false}\r\ + \n :log warning \"\$0 The ntp client is configured, but did not sync.\"\ + ;\r\ + \n :set IsTimeSyncResetNtp \$Uptime;\r\ + \n /system/ntp/client/set enabled=no;\r\ + \n :delay 20ms;\r\ + \n /system/ntp/client/set enabled=yes;\r\ + \n :return false;\r\ + \n }\r\ + \n :if ([ /system/license/get ]->\"level\" = \"free\" || \\\r\ + \n [ /system/resource/get ]->\"board-name\" = \"x86\") do={\r\ + \n :log debug \"\$0 No ntp client configured, relying on RTC for CHR fr\ + ee license and x86.\";\r\ + \n :return true;\r\ + \n }\r\ + \n :if ([ /ip/cloud/get update-time ] = true) do={\r\ + \n :if ([ :typeof [ /ip/cloud/get public-address ] ] = \"ip\") do={\r\ + \n :set IsTimeSyncCached true;\r\ + \n :return true;\r\ + \n }\r\ + \n :return false;\r\ + \n }\r\ + \n :log debug \"\$0 No time source configured! Returning gracefully...\";\ + \r\ + \n :return true;\r\ + \n}\r\ + \n\r\ + \n# read parts of a large file\r\ + \n:set FetchLargeFiles do={\r\ + \n :local ScriptName [:tostr \$1];\r\ + \n :local fetchUrl [:tostr \$2];\r\ + \n :local CheckCert [:tostr \$3];\r\ + \n :local fetchMode [:tostr \$4];\r\ + \n :local fetchMethod [:tostr \$5];\r\ + \n :local FetchString \"undefined\";\r\ + \n \r\ + \n :global CleanName;\r\ + \n :global FetchUserAgentStr;\r\ + \n :global GetRandom20CharAlNum;\r\ + \n :global IfThenElse;\r\ + \n :global LogPrint;\r\ + \n :global MkDir;\r\ + \n :global RmDir;\r\ + \n :global RmFile;\r\ + \n :global WaitForFile;\r\ + \n\r\ + \n :set CheckCert [ \$IfThenElse (\$CheckCert = \"false\") \"no\" \"yes-w\ + ithout-crl\" ];\r\ + \n #:set fetchMode [ \$IfThenElse (\$fetchMode != \"false\") [:tostr (\"m\ + ode=\" . \$fetchMode)] ];\r\ + \n #:set fetchMethod [\$IfThenElse (\$fetchMethod != \"false\") [:tostr (\ + \"http-method=\\\"\" . \$fetchMethod . \"\\\"\") ]];\r\ + \n \r\ + \n :local DirName (\"tmpfs/\" . [ \$CleanName \$ScriptName ]);\r\ + \n :if ([ \$MkDir \$DirName ] = false) do={\r\ + \n \$LogPrint error \$0 (\"Failed creating directory!\");\r\ + \n :return false;\r\ + \n }\r\ + \n :local FileName (\$DirName . \"/\" . [ \$CleanName \$0 ] . \"-\" . [ \ + \$GetRandom20CharAlNum ]);\r\ + \n #/tool/fetch check-certificate=\$CheckCert \$Url dst-path=\$FileName h\ + ttp-header-field=({ [ \$FetchUserAgentStr \$ScriptName ] }) as-value;\r\ + \n #:log warning (\"\\\$fUrl =\" . \$2 . ({[ \$fMode ]}));\r\ + \n :onerror Err {\r\ + \n :set FetchString (\"/tool/fetch \" . \\\r\ + \n [\$IfThenElse ([\$fetchMethod] != \"false\") (\"http-method=\\\"\"\ + \_. \$fetchMethod . \"\\\" \")] . \\\r\ + \n \"check-certificate=\" . \$CheckCert . \" url=(\\\"\" . \$fetchUrl\ + \_. \"\\\") \" . \\\r\ + \n [\$IfThenElse ([\$fetchMode] != \"false\") (\"mode=\" . \$fetchMod\ + e . \" \")] . \\\r\ + \n http-header-field=({ [ \$FetchUserAgentStr \$ScriptName ] }) as-va\ + lue);\r\ + \n :log warning (\"\\\$FetchSring = \" . \$FetchString);\r\ + \n :put [\$FetchString];\r\ + \n #:put [/tool/fetch \$fetchMode check-certificate=\$CheckCert url=(\$\ + fetchUrl) dst-path=(\$FileName) http-header-field=({ [ \$FetchUserAgentStr\ + \_\$ScriptName ] }) as-value];\r\ + \n } do={\r\ + \n :if ([ \$WaitForFile \$FileName 500ms ] = true) do={\r\ + \n \$RmFile \$FileName;\r\ + \n }\r\ + \n \$LogPrint debug \$0 (\"Failed downloading from \" . \$fetchUrl . \"\ + \_- \" . \$Err);\r\ + \n \$RmDir \$DirName;\r\ + \n :return false;\r\ + \n }\r\ + \n :if ([ \$WaitForFile \$FileName 5s ] = false) do={\r\ + \n \$LogPrint debug \$0 (\"The file downloaded from \" . \$fetchUrl . \ + \" did not show up.\");\r\ + \n :return false;\r\ + \n }\r\ + \n :local FileSize [ /file/get \$FileName size ];\r\ + \n :local Return \"\";\r\ + \n :local VarSize 0;\r\ + \n :while (\$VarSize != \$FileSize) do={\r\ + \n :set Return (\$Return . ([ /file/read offset=\$VarSize chunk-size=32\ + 768 file=\$FileName as-value ]->\"data\"));\r\ + \n :set FileSize [ /file/get \$FileName size ];\r\ + \n :set VarSize [ :len \$Return ];\r\ + \n :if (\$VarSize > \$FileSize) do={\r\ + \n :delay 100ms;\r\ + \n }\r\ + \n }\r\ + \n \$RmDir \$DirName;\r\ + \n :return \$Return;\r\ + \n}\r\ + \n\r\ + \n# Global Environment clear. Use: \"\$GlobalEnvRemove True;\".\r\ + \n:set GlobalEnvRemove do={\r\ + \n :local doRmEnv [ :tostr \$1 ];\r\ + \n :global GlobalScriptsUrl;\r\ + \n :local ScriptsUrl;\r\ + \n :global LogPrint;\r\ + \n :if (\$doRmEnv != \"True\") do={\r\ + \n \$LogPrint error \"GlobalEnvRemove\" (\"This script is needed \\\"T\ + rue\\\" for confirm to remove global environment variables!\");\r\ + \n :return [];\r\ + \n :error true; \r\ + \n } else={\r\ + \n :set ScriptsUrl \$GlobalScriptsUrl;\r\ + \n :delay 5;\r\ + \n :foreach var in=[/system/script/environment print as-value] do={/sy\ + stem/script/environment remove (\$var->\".id\")}\r\ + \n :delay 5;\r\ + \n :global GlobalScriptsUrl \$ScriptsUrl;\r\ + \n \$LogPrint warning \"GlobalEnvRemove\" (\"Done!\");\r\ + \n :return [];\r\ + \n :error false;\r\ + \n }\r\ + \n}\r\ + \n\r\ + \n# Add and fix global scheduler\r\ + \n:put \"Add or/and fix Global scheduler...\";\r\ + \n:local OnEvent \"/system/script { run AM-GlobalConfig; run AM-GlobalFunc\ + ; }\";\r\ + \n:local Comment \"Setup Global Environment for scripts\";\r\ + \n:if ([ :len [ /system/scheduler/find where name=\"AM-SetGlobalEnv\" ] ] \ + = 0) do={\r\ + \n /system/scheduler/add name=\"AM-SetGlobalEnv\" comment=\$Comment on-ev\ + ent=\$OnEvent start-time=startup;\r\ + \n}\r\ + \n:if ([ /system/scheduler/get \"AM-SetGlobalEnv\" comment ] != \$Comment)\ + \_do={\r\ + \n /system/scheduler/set \"AM-SetGlobalEnv\" comment=\$Comment;\r\ + \n}\r\ + \n:if ([ /system/scheduler/get \"AM-SetGlobalEnv\" on-event ] != \$OnEvent\ + ) do={\r\ + \n /system/scheduler/set \"AM-SetGlobalEnv\" on-event=\$OnEvent;\r\ + \n}\r\ + \n# Add Update Script scheduler\r\ + \n:put \"Add or/and fix Update Script scheduler\";\r\ + \n:set OnEvent \":global ScriptInstallUpdate; \\\$ScriptInstallUpdate;\";\ + \r\ + \n:set Comment \"Every Day Check For Update Scripts\";\r\ + \n:if ([ :len [ /system/scheduler/find where name=\"AM-ScriptInstallUpdate\ + \" ] ] = 0) do={\r\ + \n/system/scheduler/add name=\"AM-ScriptInstallUpdate\" comment=\$Comment \ + start-time=startup interval=1d on-event=\$OnEvent;\r\ + \n}\r\ + \n\r\ + \n#:local Resource [ /system/resource/get ];\r\ + \n#:log info (\$ScriptName . \" Loaded on \" . \$Resource->\"board-name\" \ + . \" with RouterOS \" . \$Resource->\"version\" . \" and Architecture \" .\ + \".\");\r\ + \n\r\ + \n:onerror Err {\r\ + \n :global GlobalConfReady;\r\ + \n :retry { :if (\$GlobalConfReady != true) do={ :error (\"Global configs\ + \_not ready.\"); }; } delay=100ms max=5;\r\ + \n\r\ + \n# signal we are ready\r\ + \n:set GlobalFuncReady true;\r\ + \n:set ExitOK true;\r\ + \n:log warning (\"This script \$ScriptName Loaded on \" . \$devBoardName .\ + \_\"\\nRouterOS: \" . \$devCurVersion . \"\\nArchitecture: \" . \$devCurAr\ + ch . \"\\nIdentity: \" . \$Identity);\r\ + \n} do={:global ExitOnError; \$ExitOnError \$0 \$Err;}\r\ + \n\r\ + \n#} do={:global ExitError; \$ExitError \$ExitOK [ :jobname ] \$Err}\r\ + \n# log the successful load of the script, or an error if it failed\r\ + \n#:if ([\$GlobalFuncReady] = true && [\$GlobalConfReady] = true) do={\r\ + \n" +/tool e-mail +set certificate-verification=no from=MikroYellow port=\ + 587 server=smtp.mail.me.com tls=starttls user=vadossio@icloud.com diff --git a/MikroYellow/history/20260303/20260303084010-Diff-Config.rsc b/MikroYellow/history/20260303/20260303084010-Diff-Config.rsc new file mode 100644 index 0000000..231fbc9 --- /dev/null +++ b/MikroYellow/history/20260303/20260303084010-Diff-Config.rsc @@ -0,0 +1,25 @@ +1c1 +< # 2026-03-03 08:40:10 by RouterOS 7.21.3 +--- +> # 2026-03-02 23:20:10 by RouterOS 7.21.3 +1849d1848 +< \n:global tmpfs true;\r\ +1858d1856 +< \n :global tmpfs;\r\ +1871c1869 +< \n\r\ +--- +> \n \r\ +1893,1904d1890 +< \n :put \"Thr tmpfs variable is true. Checking for tmpfs/scripts director\ +< y...\";\r\ +< \n :if (\$tmpfs = true && [/file find name=\"tmpfs/scripts\"] != \"\") do\ +< ={\r\ +< \n :log debug (\$0 . \"Directory tmpfs/scripts exsist.\");\r\ +< \n :return \$true;\r\ +< \n } else={\r\ +< \n :log error (\$0 . \"Directory tmpfs/scripts does not exsist. Remove \ +< global variable tmpfs!\");\r\ +< \n :global tmpfs (a);\r\ +< \n return false;\r\ +< \n}\r\ -- 2.52.0