--- /dev/null
+# 2026-05-08 12:00:50 by RouterOS 7.21.4\r
+# software id = 2961-C4ZZ\r
+#\r
+# model = RBD52G-5HacD2HnD\r
+# serial number = HCX084RAVFA\r
+/interface bridge\r
+add name=bridge1\r
+/interface wireless\r
+# managed by CAPsMAN\r
+set [ find default-name=wlan1 ] ssid=MikroTik\r
+# managed by CAPsMAN\r
+set [ find default-name=wlan2 ] ssid=MikroTik\r
+/interface list\r
+add name=WAN\r
+add name=LAN\r
+/interface wireless security-profiles\r
+set [ find default=yes ] supplicant-identity=MikroTik\r
+/system logging action\r
+add email-start-tls=yes email-to=vados@vados.ru name=email target=email\r
+/user group\r
+add name=backup policy="telnet,ssh,ftp,read,write,policy,test,sniff,sensitive,\\r
+ !local,!reboot,!winbox,!password,!web,!api,!romon,!rest-api"\r
+/interface bridge port\r
+add bridge=bridge1 interface=ether1\r
+add bridge=bridge1 interface=ether2\r
+add bridge=bridge1 interface=ether3\r
+add bridge=bridge1 interface=ether4\r
+add bridge=bridge1 interface=ether5\r
+add bridge=bridge1 interface=wlan2\r
+add bridge=bridge1 interface=wlan1\r
+/interface list member\r
+add interface=ether1 list=WAN\r
+add interface=ether2 list=LAN\r
+add interface=ether3 list=LAN\r
+add interface=ether4 list=LAN\r
+add interface=ether5 list=LAN\r
+add interface=wlan2 list=LAN\r
+add interface=wlan1 list=LAN\r
+/interface wireless cap\r
+# \r
+set bridge=bridge1 enabled=yes interfaces=wlan2,wlan1\r
+/ip address\r
+add address=10.30.30.86/24 interface=ether2 network=10.30.30.0\r
+/ip dns\r
+set servers=10.30.30.81\r
+/ip firewall service-port\r
+set ftp disabled=yes\r
+set tftp disabled=yes\r
+set irc disabled=no\r
+set sip disabled=yes\r
+set pptp disabled=yes\r
+set rtsp disabled=no\r
+/ip hotspot walled-garden\r
+add server=*1\r
+add server=*1\r
+/ip ipsec settings\r
+set accounting=no\r
+/ip ipsec policy\r
+set 0 disabled=yes dst-address=0.0.0.0/0 src-address=0.0.0.0/0\r
+/ip ipsec profile\r
+set [ find default=yes ] dpd-interval=2m dpd-maximum-failures=5\r
+/ip proxy\r
+set cache-administrator="" max-cache-size=none port=80,443 src-address=\\r
+ 0.0.0.0\r
+/ip route\r
+add disabled=no dst-address=0.0.0.0/0 gateway=10.30.30.81\r
+/ip service\r
+set ftp disabled=yes\r
+set telnet disabled=yes\r
+set ssh address=10.30.30.0/24 port=2222\r
+set winbox address=10.30.30.0/24\r
+set api address=10.30.30.0/24 disabled=yes\r
+set api-ssl address=10.30.30.0/24 disabled=yes\r
+set www-ssl port=18443\r
+set www address=10.30.30.0/24 disabled=yes port=18880\r
+/ip service webserver\r
+set graphs-plain=no rest-plain=no webfig-plain=no\r
+/ip ssh\r
+set forwarding-enabled=both publickey-authentication-options=verify-required \\r
+ strong-crypto=yes\r
+/ip upnp\r
+set enabled=yes\r
+/ipv6 nd\r
+set [ find default=yes ] advertise-dns=yes\r
+/system clock\r
+set time-zone-name=Europe/Amsterdam\r
+/system clock manual\r
+set time-zone=+03:00\r
+/system identity\r
+set name=MikroGig\r
+/system logging\r
+add action=email disabled=yes regex="* added|changed|removed *" topics=\\r
+ system,info\r
+/system ntp client\r
+set enabled=yes\r
+/system ntp server\r
+set enabled=yes manycast=yes multicast=yes use-local-clock=yes\r
+/system ntp client servers\r
+add address=10.30.30.81\r
+add address=10.30.30.10\r
+add address=0.ru.pool.ntp.org\r
+add address=1.ru.pool.ntp.org\r
+add address=2.ru.pool.ntp.org\r
+add address=3.ru.pool.ntp.org\r
+add address=time.google.com disabled=yes\r
+/system package update\r
+set channel=long-term\r
+/system scheduler\r
+add comment="Every Day Set Global Environment Variables" name=AM-SetGlobalEnv \\r
+ on-event="/system/script { run AM-GlobalConfig; run AM-GlobalFunc; }" \\r
+ policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon \\r
+ start-time=startup\r
+add comment="Every Day Check For Update Scripts" interval=1d name=\\r
+ AM-ScriptInstallUpdate on-event=\\r
+ ":global ScriptInstallUpdate; \$ScriptInstallUpdate;" policy=\\r
+ ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon \\r
+ start-time=startup\r
+/system script\r
+add comment="Script for setup routeros script system" \\r
+ dont-require-permissions=no name=AM-setup owner=AM-setup policy=\\r
+ ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\\r
+ !rsc by Vados\r\\r
+ \n# RouterOS script: AM-setup\r\\r
+ \n# Script comment: Script for setup routeros script system\r\\r
+ \n# Copyright (c) 2005-2026 Vados <vados@vados.ru>\r\\r
+ \n#\r\\r
+ \n#\r\\r
+ \n# requires RouterOS, version=7.19\r\\r
+ \n# requires device-mode, fetch\r\\r
+ \n#\r\\r
+ \n# :local ScriptName [ :jobname ];\r\\r
+ \n# Additional commands:\r\\r
+ \n#\r\\r
+ \n# For scripts:\r\\r
+ \n#:global NewScript \"script_name\"; \r\\r
+ \n#:global GlobalScriptsUrl \"https://ros.vados.ru/\";\r\\r
+ \n#/system/script/add name=\$NewScript owner=\$NewScript source=([/tool/fe\\r
+ tch check-certificate=yes-without-crl (\$GlobalScriptsUrl . \$ScriptAdd . \\r
+ \".rsc\") output=user as-value ]->\"data\");\r\\r
+ \n#:global NewScript (a);\r\\r
+ \n#:global ScriptInstallUpdate; \$ScriptInstallUpdate;\r\\r
+ \n#\r\\r
+ \n# For run from terminal:\r\\r
+ \n#/system/script/add name=AM-setup owner=AM-Setup source=([/tool/fetch ch\\r
+ eck-certificate=yes-without-crl \"https://ros.vados.ru/AM-setup.rsc\" outp\\r
+ ut=user as-value ]->\"data\");\r\\r
+ \n#\r\\r
+ \n\r\\r
+ \n:global ScriptUpdatesCRLF \"LF\";\r\\r
+ \n#:if (\$ScriptUpdatesCRLF != false) do={\r\\r
+ \n# :foreach Script in=[ /system/script/find where source~\"^#!rsc by Vad\\r
+ os\" ] do={\r\\r
+ \n# if (\$ScriptUpdatesCRLF = true) do={\r\\r
+ \n# /system/script/set source=[ :tocrlf [ get \$Script source ] ] \$S\\r
+ cript;\r\\r
+ \n# } else={\r\\r
+ \n# /system/script/set source=[ :tolf [ get \$Script source ] ] \$Scr\\r
+ ipt;\r\\r
+ \n# }\r\\r
+ \n# }\r\\r
+ \n#}\r\\r
+ \n\r\\r
+ \n# /import verbose=no \$ScriptName\r\\r
+ \n:global Identity [/system/identity/get name];\r\\r
+ \n:global SetupScript [ :jobname ];\r\\r
+ \n:global RemoveMe true;\r\\r
+ \n:global RunOnce (a);\r\\r
+ \n:global InitSetup true;\r\\r
+ \n:global tmpfs false;\r\\r
+ \n\r\\r
+ \n{\r\\r
+ \n :local RmMe [:tobool \$1];\r\\r
+ \n\r\\r
+ \n :global GlobalScriptsUrl;\r\\r
+ \n :global SetupScript;\r\\r
+ \n :global RemoveMe;\r\\r
+ \n :global InitSetup;\r\\r
+ \n :global tmpfs;\r\\r
+ \n\r\\r
+ \n :local UrlSuffix \$Identity;\r\\r
+ \n :local UrlDir \"certs/\";\r\\r
+ \n :local CertUrl (\$GlobalScriptsUrl . \$UrlDir . \$UrlSuffix .\"/\"); \\r
+ \r\\r
+ \n :local CertCommonName \"Root YE\";\r\\r
+ \n :local CertFileName \"Root-YE.pem\";\r\\r
+ \n :local CertFingerprint \"e14ffcad5b0025731006caa43a121a22d8e9700f4fb9c\\r
+ f852f02a708aa5d5666\";\r\\r
+ \n\r\\r
+ \n :if (\$SetupScript = false) do={\r\\r
+ \n :global SetupScript \"AM-setup\";\r\\r
+ \n }\r\\r
+ \n :if (\$RemoveMe != false) do={\r\\r
+ \n :set RemoveMe true;\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :log warning (\"\\n\\\$GlobalScriptsUrl = \" . \$GlobalScriptsUrl);\r\\r
+ \n \r\\r
+ \n\r\\r
+ \n :if (!(((\$CertSettings->\"builtin-trust-anchors\") = \"trusted\" ||\\r
+ \_\\\r\\r
+ \n (\$CertSettings->\"builtin-trust-store\") ~ \"fetch\" || \\\r\\r
+ \n (\$CertSettings->\"builtin-trust-store\") = \"all\") && \\\r\\r
+ \n [ :len [ /certificate/builtin/find where common-name=\$CertComm\\r
+ onName ] ] > 0)) do={\r\\r
+ \n :put \"Importing certificate...\";\r\\r
+ \n /tool/fetch (\$CertUrl . \$CertFileName) dst-path=\$CertFileName\\r
+ \_as-value;\r\\r
+ \n :delay 1s;\r\\r
+ \n /certificate/import file-name=\$CertFileName passphrase=\"\";\r\\r
+ \n /certificate/set name=\"Root-YE\" [ find where common-name=\"Roo\\r
+ t YE\" ];\r\\r
+ \n :delay 1s;\r\\r
+ \n };\r\\r
+ \n :local CertSettings [ /certificate/settings/get ];\r\\r
+ \n :if ([ :len [ /certificate/find where fingerprint=\$CertFingerprint ] \\r
+ ] != 1) do={\r\\r
+ \n :error \"Something is wrong with your certificates!\";\r\\r
+ \n };\r\\r
+ \n\r\\r
+ \n:local MkTmpfs do={\r\\r
+ \n :local TmpFs [ /disk/find where slot=tmpfs type=tmpfs ];\r\\r
+ \n :if ([ :len \$TmpFs ] = 1) do={\r\\r
+ \n :if ([ /disk/get \$TmpFs disabled ] = true) do={\r\\r
+ \n :log info (\"The tmpfs is disabled, enabling.\");\r\\r
+ \n /disk/enable \$TmpFs;\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :log info (\"Try to removing directory 'tmpfs'.\");\r\\r
+ \n :do {\r\\r
+ \n :retry {\r\\r
+ \n /file/remove tmpfs;\r\\r
+ \n :return true;\r\\r
+ \n } delay=100ms max=10;\r\\r
+ \n } on-error={ }\r\\r
+ \n# \$RmDir \"tmpfs\";\r\\r
+ \n :onerror Err {\r\\r
+ \n /disk/add slot=tmpfs type=tmpfs tmpfs-max-size=([ /system/resource/g\\r
+ et total-memory ] / 3);\r\\r
+ \n :do {\r\\r
+ \n :retry {\r\\r
+ \n /file/get tmpfs;\r\\r
+ \n :return true;\r\\r
+ \n } delay=222ms max=10;\r\\r
+ \n } on-error={ }\r\\r
+ \n } do={\r\\r
+ \n :log warning (\"Creating disk of type tmpfs failed: \" . \$Err);\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n# :return true;\r\\r
+ \n}\r\\r
+ \n:if (\$tmpfs = true) do={\r\\r
+ \n :put \"Tmpfs variable is true. Checking for tmpfs/scripts directory...\\r
+ \";\r\\r
+ \n :if ([/file find name=\"tmpfs/scripts\"] != \"\") do={\r\\r
+ \n :log info (\$0 . \"Directory tmpfs/scripts exsist.\");\r\\r
+ \n :return \$true;\r\\r
+ \n } else={\r\\r
+ \n :log warning (\$0 . \"Directory tmpfs/scripts does't exsist.\");\r\\r
+ \n :if ([ \$MkTmpfs ] = false) do={\r\\r
+ \n :log error (\$0 . \"Directory tmpfs is not created!\");\r\\r
+ \n :return false;\r\\r
+ \n } else={\r\\r
+ \n :onerror Err {\r\\r
+ \n /file/add type=\"directory\" name=/tmpfs/scripts;\r\\r
+ \n :do {\r\\r
+ \n :retry {\r\\r
+ \n /file/get /tmpfs/scripts;\r\\r
+ \n :return true;\r\\r
+ \n } delay=100ms max=10;\r\\r
+ \n } on-error={ }\r\\r
+ \n } do={\r\\r
+ \n :log warning (\$0 . \"Making directory 'scripts' failed: \" . \$\\r
+ Err);\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n# :return true;\r\\r
+ \n# [ /file/get \$FileName ]\r\\r
+ \n }\r\\r
+ \n# :log error (\$0 . \"Directory tmpfs/scripts does not exsist. Remove\\r
+ \_global variable tmpfs!\");\r\\r
+ \n# :global tmpfs (a);\r\\r
+ \n# return false;\r\\r
+ \n }\r\\r
+ \n}\r\\r
+ \n :put \"Renaming AM-GlobalConfig, if exists...\";\r\\r
+ \n :local ConfOldName (\"AM-GlobalConfig-\" . [ /system/clock/get date ] \\r
+ . [ /system/clock/get time ] . \".rsc\");\r\\r
+ \n /system/script/set name=\$ConfOldName [ find where name=\"AM-GlobalCon\\r
+ fig\" ];\r\\r
+ \n :foreach Script in={ \"AM-GlobalConfig\"; \"AM-GlobalFunc\"; \"mod/AM-\\r
+ Certs-By-Ident\" } do={\r\\r
+ \n :put \"Installing \$Script...\";\r\\r
+ \n /system/script/remove [ find where name=\$Script ];\r\\r
+ \n /system/script/add name=\$Script owner=\$Script source=([ /tool/fetc\\r
+ h check-certificate=yes-without-crl url=(\$GlobalScriptsUrl . \$Script . \\r
+ \".rsc\") output=user as-value ]->\"data\");\r\\r
+ \n \r\\r
+ \n /system/script run \$Script;\r\\r
+ \n :delay 2s;\r\\r
+ \n };\r\\r
+ \n\r\\r
+ \n :if ([ :len [ /certificate/find where fingerprint=\$CertFingerprint ] \\r
+ ] > 0) do={\r\\r
+ \n :put \"Renaming certificate by its common-name...\";\r\\r
+ \n :global CertificateNameByCN;\r\\r
+ \n \$CertificateNameByCN \$CertFingerprint;\r\\r
+ \n };\r\\r
+ \n\r\\r
+ \n :if (\$RemoveMe = true) do={\r\\r
+ \n :put \"Add Scheduler for remove this script...\";\r\\r
+ \n :local OnEvent (\":delay 30s;\\n\" . \"/system/script/remove [ find \\r
+ where name=\\\"\$SetupScript\\\" ];\\n\" . \\\r\\r
+ \n \":delay 2s;\\n\" . \"/system/scheduler/remove [ find where name=\\\\r
+ \"_RemoveSetup\\\" ];\\n\" . \\\r\\r
+ \n \":delay 2s;\\n\" . \":global RemoveMe (a);\\n\");\r\\r
+ \n :local Comment \"_RemoveSetup tmp scheduler for remove setup script.\\r
+ \";\r\\r
+ \n /system/scheduler/add name=\"_RemoveSetup\" comment=\$Comment start-\\r
+ time=startup interval=30s on-event=\$OnEvent;\r\\r
+ \n :log warning (\$0 . \"\\nI've done everything, and now I'm tired..\\r
+ . I'm leaving.\\nThere will be an error below, this is normal.\");\r\\r
+ \n }\r\\r
+ \n :delay 1;\r\\r
+ \n :put \"Loading configuration and functions...\";\r\\r
+ \n :do { \r\\r
+ \n :global ScriptInstallUpdate; \$ScriptInstallUpdate;\r\\r
+ \n :put \"Normal removing temporary global environment variables.\";\\r
+ \r\\r
+ \n :global SetupScript (a);\r\\r
+ \n :global InitSetup (a);\r\\r
+ \n :global RemoveMe (a);\r\\r
+ \n } on-error={\r\\r
+ \n :local ErrorMsg \"Loading configuration and functions error!\";\r\\r
+ \n :log error (\$0 . \$ErrorMsg . :error);\r\\r
+ \n :error \$ErrorMsg;\r\\r
+ \n }\r\\r
+ \n}\r\\r
+ \n"\r
+add comment="Global Config Script" dont-require-permissions=no name=\\r
+ AM-GlobalConfig owner=AM-GlobalConfig policy=\\r
+ ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\\r
+ !rsc by Vados\r\\r
+ \n# RouterOS script: AM-GlobalConfig\r\\r
+ \n# Script comment: Global Config Script\r\\r
+ \n# Copyright (c) 2007-2026 Vados <vados@vados.ru>\r\\r
+ \n#\r\\r
+ \n#\r\\r
+ \n# Warning: Dont touch this line!\r\\r
+ \n:global Identity [/system/identity/get name];\r\\r
+ \n:global GlobalConfReady false;\r\\r
+ \n#\r\\r
+ \n#\r\\r
+ \n# Global Url For Amster scripts to fetch\r\\r
+ \n# most be defined in AM-Init-Script or AM-setup scripts\r\\r
+ \n:global GlobalScriptsUrl \"https://ros.vados.ru/\";\r\\r
+ \n:global ScriptsUrlSuffix (a);\r\\r
+ \n:global CheckSumsVerify true;\r\\r
+ \n\r\\r
+ \n:global ScriptUpdatesCRLF true;\r\\r
+ \n:global CommentsInScripts true;\r\\r
+ \n\r\\r
+ \n# Debug output:\r\\r
+ \n:global PrintDebug true; #false;\r\\r
+ \n\r\\r
+ \n# Debug output for specific script:\r\\r
+ \n#:set (\$PrintDebugOverride->\"AM-GlobalFunc\") true;\r\\r
+ \n\r\\r
+ \n# Debug logs\r\\r
+ \n# Other actions (disk, email, remote or support) can be used as well.\r\\r
+ \n# I do not recommend using echo - use debug output instead (https://rsc.\\r
+ eworm.de/main/DEBUG.html#debug-output).\r\\r
+ \n#/system/logging/add topics=script,debug action=memory;\r\\r
+ \n\r\\r
+ \n:global MikrotikUpgradeUrl \"https://upgrade.mikrotik.com/routeros\";\r\\r
+ \n:global Domain \"WORKGROUP\";\r\\r
+ \n\r\\r
+ \n:global EmailGeneralTo \"vados@vados.ru\";\r\\r
+ \n#:global EmailGeneralCc \"\";\r\\r
+ \n\r\\r
+ \n# \$ScriptInstallUpdate mod/notification-telegram\r\\r
+ \n:global TelegramTokenId \"8390868324:AAG3_d1hfVR2M6pGAgDK6ZvhOe4J97nyopw\\r
+ \";\r\\r
+ \n:global TelegramChatId \"-1003631309063\"; #\"454403445\";\r\\r
+ \n# Use this to send notifications to a specific topic in group.\r\\r
+ \n#:global TelegramThreadId \"30\";\r\\r
+ \n# Using telegram-chat you have to define trusted chat ids (not group ids\\r
+ !)\r\\r
+ \n# or user names. Groups allow to chat with devices simultaneously.\r\\r
+ \n:global TelegramChatIdsTrusted {\r\\r
+ \n \"454403445\"\r\\r
+ \n \"-1003631309063\"\r\\r
+ \n \"-5124482807\"\r\\r
+ \n \"1087968824\";\r\\r
+ \n};\r\\r
+ \n# \"-5294757340\";\r\\r
+ \n\r\\r
+ \n:global TelegramChatGroups \"(all)\";\r\\r
+ \n#:global TelegramChatGroups \"(all|home|office)\";\r\\r
+ \n\r\\r
+ \n:global NotificationFunctions {\r\\r
+ \n \"email\"\r\\r
+ \n \"telegram\";\r\\r
+ \n};\r\\r
+ \n# Toggle this to disable symbols in notifications.\r\\r
+ \n:global NotificationsWithSymbols true;\r\\r
+ \n:global TerminalColorOutput true;\r\\r
+ \n\r\\r
+ \n:global DetectIpAddrDefault \"https://ipv4.mikrotik.ovh/\";\r\\r
+ \n:global DetectIpAddrFallback \"https://api.ipify.org/\";\r\\r
+ \n\r\\r
+ \n## Update channel. Possible values: stable, long-term, testing, developm\\r
+ ent\r\\r
+ \n:global updateChannel \"stable\";\r\\r
+ \n\r\\r
+ \n:global CertRenewUrl (\$GlobalScriptsUrl . \"certs/\" . \$Identity . \"/\\r
+ \");\r\\r
+ \n:global CertRenewTime 2w;\r\\r
+ \n:global CertRenewPass (a); #{\r\\r
+ \n# \"\";\r\\r
+ \n# \"v3ry-s3cr3t\";\r\\r
+ \n# \"4n0th3r-s3cr3t\";\r\\r
+ \n#};\r\\r
+ \n:global CertWarnTime 1w;\r\\r
+ \n:global CertIssuedExportPass (a); # {\r\\r
+ \n# \"\";\r\\r
+ \n# \"cert1-cn\"=\"v3ry-s3cr3t\";\r\\r
+ \n# \"cert2-cn\"=\"4n0th3r-s3cr3t\";\r\\r
+ \n#};\r\\r
+ \n\r\\r
+ \n# Script BackupAndUpdate mode, possible values: backup,\r\\r
+ \n# updateOnce - Update once as \"osnotify\" and back \"osnotify\" mode (i\\r
+ n terminal run :set OSUpdateMode updateOnce; \$OSUpdateMode;). \r\\r
+ \n# osupdate - Update if available and creates backups before/after update\\r
+ \_(ignores `forceBackup`)\r\\r
+ \n# Set `forceBackup` to true to always create backups, even\\r
+ \_without updates\r\\r
+ \n# osnotify - Set `forceBackup` to always create backups on every run\r\\r
+ \n:global DevInfoIncludeIP true;\r\\r
+ \n:global BackupAndUpdateMode \"osnotify\"\r\\r
+ \n\r\\r
+ \n:global forceBackup true;\r\\r
+ \n:global BackupPassword \"Peskar55\";\r\\r
+ \n\r\\r
+ \n# SFTP Backup Variables\r\\r
+ \n:global BackupRandomDelay 0;\r\\r
+ \n:global BackupUploadUrl \"sftp://amster.vados.ru/upload/\";\r\\r
+ \n:global BackupUploadUser \$Identity;\r\\r
+ \n:global BackupUploadPass \"root.mnuc.backuper\";\r\\r
+ \n\r\\r
+ \n:global BackupSendBinary true;\r\\r
+ \n:global BackupSendExport true;\r\\r
+ \n:global BackupSendGlobalConfig true;\r\\r
+ \n:global BackupSendScripts true;\r\\r
+ \n\r\\r
+ \n# Remove local file after uploading if no errors\r\\r
+ \n:global BackupRmLocal true;\r\\r
+ \n\r\\r
+ \n# Local Backups Root Directory \r\\r
+ \n:global BackupLocalRoot \"tmpfs\";\r\\r
+ \n\r\\r
+ \n# Encrypt Backup\r\\r
+ \n:global BackupEncrypt true;\r\\r
+ \n\r\\r
+ \n# Sensitive information in Backups\r\\r
+ \n:global BackupSens true;\r\\r
+ \n\r\\r
+ \n# User Export\r\\r
+ \n:global BackupUser true;\r\\r
+ \n\r\\r
+ \n# License Export (not for CHR, will silently skip)\r\\r
+ \n:global BackupLicense false;\r\\r
+ \n\r\\r
+ \n# SSH Keys\r\\r
+ \n:global BackupSshKeys true;\r\\r
+ \n\r\\r
+ \n# Certificate Export\r\\r
+ \n:global BackupCerts true;\r\\r
+ \n\r\\r
+ \n# Certificate Password\r\\r
+ \n:global BackupCertsPasswd \"\";\r\\r
+ \n\r\\r
+ \n# User-Manager Export\r\\r
+ \n:global BackupUserMan false;\r\\r
+ \n\r\\r
+ \n# The Dude Export\r\\r
+ \n:global BackupDude false;\r\\r
+ \n\r\\r
+ \n# User Files to export, comma-separated string or array of strings\r\\r
+ \n# User Files are not removed on backup\r\\r
+ \n# Any directory paths will be removed (/ -> _) on remote file\r\\r
+ \n# Nonpresent files are silently skipped\r\\r
+ \n:global BackupUserList \"autosupout.rif,autosupout.old.rif\";\r\\r
+ \n\r\\r
+ \n# load functions and any custom scripts\r\\r
+ \n# [ /system/script/find where name=\"global-config-ov\\r
+ erlay\" ], \\\r\\r
+ \n# [ /system/script/find where name~\"^global-config-o\\r
+ verlay\\\\.d/.\" ]\r\\r
+ \n#\r\\r
+ \n#:foreach Script in=([ /system/script/find where name=\"Amster-TGglobalV\\r
+ ars\" ], [ /system/script/find where name=\"Amster-TGglobalFunc\" ]) do={\\r
+ \r\\r
+ \n# :onerror Err {\r\\r
+ \n# /system/script/run \$Script;\r\\r
+ \n# } do={\r\\r
+ \n# :log error (\"Loading configuration from configs and functions\"\\r
+ \_. [ /system/script/get \$Script name ] . \" failed: \" . \$Err);\r\\r
+ \n# }\r\\r
+ \n#}\r\\r
+ \n#:log info \"\\ndevMode = \$devMode\";\r\\r
+ \n#:log info \"\\ndevRunning = \$devRunning\";\r\\r
+ \n:foreach Script in=[ /system/script/find where source~\"^#!rsc by Vados \\r
+ GlobalRUN\\r\?\\n\" ] do={\r\\r
+ \n :onerror Err {\r\\r
+ \n /system/script/run \$Script;\r\\r
+ \n } do={\r\\r
+ \n :log error (\"Run script \" . [ /system/script/get \$Script name \\r
+ ] . \" width marker \\\" GlobalRUN\\\" failed: \" . \$Err);\r\\r
+ \n }\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n# signal we are ready\r\\r
+ \n:set GlobalConfReady true;\r\\r
+ \n:while (\$GlobalConfReady != true) do={:delay 500ms};\r\\r
+ \n"\r
+add comment="Global functions" dont-require-permissions=no name=AM-GlobalFunc \\r
+ owner=AM-GlobalFunc policy=\\r
+ ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\\r
+ !rsc by Vados\r\\r
+ \n# RouterOS script: AM-GglobalFunc\r\\r
+ \n# Script comment: Global functions\r\\r
+ \n# Copyright (c) 2005-2026 Vados <vados@vados.ru>\r\\r
+ \n#\r\\r
+ \n#\r\\r
+ \n# requires RouterOS, version=7.19\r\\r
+ \n# requires device-mode, fetch, scheduler\r\\r
+ \n:local ExitOK false;\r\\r
+ \n:local ScriptName [ :jobname ];\r\\r
+ \n#:global checkRunJob \$SriptName;\r\\r
+ \n#:global fixCRLF;\r\\r
+ \n#:if (\$fixCRLF != false) do={\r\\r
+ \n#:foreach fixScript in=([ /system/script/find where name~\"*\" ]) do={/s\\r
+ ystem/script/set source=[ :tocrlf [ get \$fixScript source ] ] \$fixScript\\r
+ }\r\\r
+ \n#:if (\$fixCRLF != \"LF\") do={ /system/script/set source=[ :tocrlf [ g\\r
+ et \$fixScript source ] ] \$fixScript};};\r\\r
+ \n#}\r\\r
+ \n:global GlobalFuncReady false;\r\\r
+ \n\r\\r
+ \n# Git commit id & info, expected configuration version\r\\r
+ \n:global CommitId \"main/633/2f6d4158\";\r\\r
+ \n:global CommitTAG \"unknown\";\r\\r
+ \n:global CommitInfo \"Autocommit in repo: ros.vados.ru, generated by owne\\r
+ r: root, in 14:35:03 05.05.2026.\";\r\\r
+ \n\r\\r
+ \n# The variables are received right here.\r\\r
+ \n:global GlobalConfVersion 140;\r\\r
+ \n\r\\r
+ \n:global SumsDirAndFileName \"tmp/checksums.json\";\r\\r
+ \n\r\\r
+ \n:global Identity [/system/identity/get name];\r\\r
+ \n:global IdentityShort [:pick \$Identity 0 18];\r\\r
+ \n\r\\r
+ \n:global devBoardName [/system/resource/get board-name];\r\\r
+ \n:global devMode [/system/device-mode/get mode];\r\\r
+ \n:global devCurArch [/system/resource/get architecture-name];\r\\r
+ \n:global devCurVersion [/system/resource/get version];\r\\r
+ \n\r\\r
+ \n# Variables defined in AM-GlobalConfig.rsc\r\\r
+ \n:global TerminalColorOutput;\r\\r
+ \n:global CommentsInScripts;\r\\r
+ \n:global DetectIpAddrDefault;\r\\r
+ \n:global DetectIpAddrFallback;\r\\r
+ \n:global updateChannel;\r\\r
+ \n:global Domain;\r\\r
+ \n:global EmailGeneralTo;\r\\r
+ \n:global BackupAndUpdateMode;\r\\r
+ \n\r\\r
+ \n# Single functions, without nested functions.\r\\r
+ \n:global MiniDateTimeStamp;\r\\r
+ \n:global MicroDateTimeStamp;\r\\r
+ \n\r\\r
+ \n# Include globals \$PrintDebug and \$PrintDebugOverride\r\\r
+ \n:global LogPrint;\r\\r
+ \n\r\\r
+ \n# DeviceInfo and Updates\r\\r
+ \n:global IsCheckUpdates;\r\\r
+ \n:global WaitCheckUpdates;\r\\r
+ \n:global GetPubIp;\r\\r
+ \n\r\\r
+ \n:global GetArrDeviceInfo;\r\\r
+ \n:global WaitArrDeviceInfo;\r\\r
+ \n\r\\r
+ \n:global devModel;\r\\r
+ \n:global devRunningMode;\r\\r
+ \n\r\\r
+ \n:global devRbRevision;\r\\r
+ \n:global devRbSerialNumber;\r\\r
+ \n:global devRbVerAvail;\r\\r
+ \n\r\\r
+ \n:global runningChannelVersion;\r\\r
+ \n:global runningChannel;\r\\r
+ \n:global runningVersion;\r\\r
+ \n\r\\r
+ \n:global devBuildTime;\r\\r
+ \n:global ROsVerAvail;\r\\r
+ \n:global PkgUpdStatus;\r\\r
+ \n:global currentUpdateChannel;\r\\r
+ \n\r\\r
+ \n:global ScriptInstallUpdate;\r\\r
+ \n\r\\r
+ \n:global DeviceInfo;\r\\r
+ \n\r\\r
+ \n:global OldMode;\r\\r
+ \n\r\\r
+ \n:global ParseKeyValueStore;\r\\r
+ \n:global RandomDelay;\r\\r
+ \n:global GetRandomNumber;\r\\r
+ \n:global EscapeForRegEx;\r\\r
+ \n:global CharacterMultiply;\r\\r
+ \n:global CharacterReplace;\r\\r
+ \n:global CleanFilePath;\r\\r
+ \n:global CleanName;\r\\r
+ \n\r\\r
+ \n:global CommitBrief;\r\\r
+ \n\r\\r
+ \n:global EitherOr;\r\\r
+ \n:global FormatLine;\r\\r
+ \n:global GetRandom20CharAlNum;\r\\r
+ \n:global GetRandom20CharHex;\r\\r
+ \n:global GetRandomNumber;\r\\r
+ \n:global Grep;\r\\r
+ \n:global IfThenElse;\r\\r
+ \n:global MAX;\r\\r
+ \n:global MIN;\r\\r
+ \n:global HumanReadableNum;\r\\r
+ \n\r\\r
+ \n:global IsFullyConnected;\r\\r
+ \n:global IsDNSResolving;\r\\r
+ \n:global IsTimeSync;\r\\r
+ \n:global IsTimeSyncCached;\r\\r
+ \n:global IsTimeSyncResetNtp;\r\\r
+ \n\r\\r
+ \n:global WaitDNSResolving;\r\\r
+ \n:global WaitFullyConnected;\r\\r
+ \n:global WaitTimeSync;\r\\r
+ \n:global MkDir;\r\\r
+ \n:global RmDir;\r\\r
+ \n:global RmFile;\r\\r
+ \n:global FileGet;\r\\r
+ \n:global Unix2Dos;\r\\r
+ \n:global UrlEncode;\r\\r
+ \n:global WaitForFile;\r\\r
+ \n:global ScriptLock;\r\\r
+ \n:global SendTelegram;\r\\r
+ \n:global NotificationFunctions;\r\\r
+ \n:global SendNotification;\r\\r
+ \n:global SendNotification2;\r\\r
+ \n:global SymbolForNotification;\r\\r
+ \n:global SymbolByUnicodeName;\r\\r
+ \n:global ValidateSyntax;\r\\r
+ \n:global CheckSumsVerify;\r\\r
+ \n:global GlobalConfChanges;\r\\r
+ \n:global GlobalConfMigration;\r\\r
+ \n:global VersionToNum;\r\\r
+ \n:global RequiredRouterOS;\r\\r
+ \n:global ExitError;\r\\r
+ \n:global ExitOnError;\r\\r
+ \n\r\\r
+ \n:global FetchHugeFiles;\r\\r
+ \n:global FetchUserAgentStr;\r\\r
+ \n:global FileExists;\r\\r
+ \n:global CertificateAvailable;\r\\r
+ \n:global CertificateDownload;\r\\r
+ \n:global CertificateNameByCN;\r\\r
+ \n:global CharacterMultiply;\r\\r
+ \n\r\\r
+ \n:global InspectVar;\r\\r
+ \n:global InspectVarRet;\r\\r
+ \n:global ParseCustom;\r\\r
+ \n\r\\r
+ \n:set IsCheckUpdates do={\r\\r
+ \n :local isInfo [:tobool \$1];\r\\r
+ \n :global updateChannel;\r\\r
+ \n :global PkgUpdStatus;\r\\r
+ \n :global currentUpdateChannel;\r\\r
+ \n :global ROsVerAvail;\r\\r
+ \n :global arrDeviceInfo;\r\\r
+ \n :log info (\$0 . \" \\\$isInfo = \" . \$isInfo); \r\\r
+ \n :local CurrentChannel [ /system/package/update/get channel ];\r\\r
+ \n :if ([ :len \$updateChannel ] > 0 && \$CurrentChannel != \$updateChann\\r
+ el) do={\r\\r
+ \n :retry command={/system/package/update set channel=\$updateChannel} \\r
+ \_delay=300ms max=5 on-error={};\r\\r
+ \n :log info (\$0 . \" Set updates channel to: \$updateChannel\");\r\\r
+ \n }\r\\r
+ \n :local Update [ /system/package/update/get ];\r\\r
+ \n :local Channel [ :tostr (\$Update->\"channel\") ];\r\\r
+ \n :set currentUpdateChannel \$Channel;\r\\r
+ \n :log info (\$0 . \" Update Channel: \" . \$Channel . \".\");\r\\r
+ \n :local StatusPkg \"undefined\";\r\\r
+ \n :log info (\$0 . \" Checking for updates...\");\r\\r
+ \n :retry command={:set \$StatusPkg ([/system/package/update/check-for-up\\r
+ dates without-paging as-value]->\"status\")} \\\r\\r
+ \n delay=300ms max=5 on-error={};\r\\r
+ \n :log info (\$0 . \" \\\$StatusPkg = \" . \$StatusPkg);\r\\r
+ \n :if (\$StatusPkg = \"New version is available\") do={ :set PkgUpdStatu\\r
+ s true; } else={ :set PkgUpdStatus false; }\r\\r
+ \n :set ROsVerAvail [ :tostr [ /system/package/update/get latest-version \\r
+ ] ];\r\\r
+ \n :log info (\$0 . \" \\\$PkgUpdStatus = \" . \$PkgUpdStatus);\r\\r
+ \n :if (\$isInfo != false || \$PkgUpdStatus = true) do={\r\\r
+ \n :log info (\$0 . \" \\\$PkgUpdStatus = \" . \$PkgUpdStatus);\r\\r
+ \n :if ([ :typeof \$arrDeviceInfo ] != \"array\") do={\r\\r
+ \n :set arrDeviceInfo [:toarray \$arrDeviceInfo];\r\\r
+ \n }\r\\r
+ \n :retry command={:set (\$arrDeviceInfo->\"devUpdates\") [ /system/pac\\r
+ kage/update/get ]} delay=500ms max=5 on-error={:log error (\"Error\")};\r\\r
+ \n :return true;\r\\r
+ \n } else={\r\\r
+ \n :return \$PkgUpdStatus;\r\\r
+ \n }\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set WaitCheckUpdates do={\r\\r
+ \n :global IsCheckUpdates;\r\\r
+ \n :global PkgUpdStatus;\r\\r
+ \n :global currentUpdateChannel;\r\\r
+ \n :global ROsVerAvail;\r\\r
+ \n :global arrDeviceInfo;\r\\r
+ \n :local Status \"\";\r\\r
+ \n :local Update;\r\\r
+ \n :local WaitCount 0;\r\\r
+ \n :if ([ \$IsCheckUpdates true ] = false) do={\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :set Status [ :tostr [ /system/package/update/get status ] ];\r\\r
+ \n :while ((\$Status = \"\" || \$Status = \"finding out latest version...\\r
+ \") && \$WaitCount < 60) do={\r\\r
+ \n :delay 1s;\r\\r
+ \n :set WaitCount (\$WaitCount + 1);\r\\r
+ \n :set Status [ :tostr [ /system/package/update/get status ] ];\r\\r
+ \n }\r\\r
+ \n :set Update [ /system/package/update/get ];\r\\r
+ \n :set currentUpdateChannel [ :tostr (\$Update->\"channel\") ];\r\\r
+ \n :set ROsVerAvail [ :tostr (\$Update->\"latest-version\") ];\r\\r
+ \n :if ((\$Update->\"status\") = \"New version is available\") do={\r\\r
+ \n :set PkgUpdStatus true;\r\\r
+ \n } else={\r\\r
+ \n :set PkgUpdStatus false;\r\\r
+ \n }\r\\r
+ \n :if ([ :typeof \$arrDeviceInfo ] != \"array\") do={\r\\r
+ \n :set arrDeviceInfo [:toarray \$arrDeviceInfo];\r\\r
+ \n }\r\\r
+ \n :set (\$arrDeviceInfo->\"devUpdates\") \$Update;\r\\r
+ \n :if (\$Status = \"\" || \$Status = \"finding out latest version...\") \\r
+ do={\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set WaitArrDeviceInfo do={\r\\r
+ \n :global GetArrDeviceInfo;\r\\r
+ \n :while ([ \$GetArrDeviceInfo ] = false) do={\r\\r
+ \n :delay 1s;\r\\r
+ \n }\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set GetArrDeviceInfo do={\r\\r
+ \n :global LogPrint;\r\\r
+ \n :global arrDeviceInfo;\r\\r
+ \n :global devBoardName;\r\\r
+ \n :global devModel;\r\\r
+ \n :global devRunning;\r\\r
+ \n :global devCurArch;\r\\r
+ \n :global devRbRevision;\r\\r
+ \n :global devRbSerialNumber;\r\\r
+ \n :global devBuildTime;\r\\r
+ \n :global runningChannelVersion;\r\\r
+ \n :global runningChannel;\r\\r
+ \n :global runningVersion;\r\\r
+ \n :global currentUpdateChannel;\r\\r
+ \n :global ROsVerAvail;\r\\r
+ \n\r\\r
+ \n :local DeviceInfo;\r\\r
+ \n :local Resource [/system/resource/get];\r\\r
+ \n :local Update [ /system/package/update/get ];\r\\r
+ \n :local VersionString [ :tostr (\$Resource->\"version\") ];\r\\r
+ \n :local ChannelStart [ :find \$VersionString \" (\" ];\r\\r
+ \n :local RouterBoard;\r\\r
+ \n :local IsRouterBoard false;\r\\r
+ \n :local RunningMode \"\";\r\\r
+ \n\r\\r
+ \n :set devCurArch [ :tostr (\$Resource->\"architecture-name\") ];\r\\r
+ \n :set devBuildTime [ :tostr (\$Resource->\"build-time\") ];\r\\r
+ \n :set runningChannelVersion \$VersionString;\r\\r
+ \n :set runningVersion \$VersionString;\r\\r
+ \n :set runningChannel \"\";\r\\r
+ \n\r\\r
+ \n :if ([ :typeof \$ChannelStart ] = \"num\" && \$ChannelStart >= 0) do=\\r
+ {\r\\r
+ \n :set runningVersion [ :pick \$VersionString 0 \$ChannelStart ];\r\\r
+ \n :local ChannelRest [ :pick \$VersionString (\$ChannelStart + 2) [ :\\r
+ len \$VersionString ] ];\r\\r
+ \n :local ChannelEnd [ :find \$ChannelRest \")\" ];\r\\r
+ \n :if ([ :typeof \$ChannelEnd ] = \"num\" && \$ChannelEnd >= 0) do={\\r
+ \r\\r
+ \n :set runningChannel [ :pick \$ChannelRest 0 \$ChannelEnd ];\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :if ([:pick \$devBoardName 0 3] != \"CHR\" or [:pick \$devBoardName 0\\r
+ \_3] != \"x86\") do={\r\\r
+ \n :do {\r\\r
+ \n :set RouterBoard [[ :parse \"/system/routerboard/get\" ]];\r\\r
+ \n# :set RouterBoard [ /system/routerboard/get ];\r\\r
+ \n :if ((\$RouterBoard->\"routerboard\") = true) do={\r\\r
+ \n :set IsRouterBoard true;\r\\r
+ \n }\r\\r
+ \n } on-error={}\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :do {\r\\r
+ \n :set RunningMode [ /system/device-mode/get mode ];\r\\r
+ \n } on-error={\r\\r
+ \n :do {\r\\r
+ \n :set RunningMode [ /system/device-mode/get running ];\r\\r
+ \n } on-error={\r\\r
+ \n :set RunningMode \"\";\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :set devRunning \$RunningMode;\r\\r
+ \n\r\\r
+ \n :if (\$IsRouterBoard = true) do={\r\\r
+ \n :set devModel [ :tostr (\$RouterBoard->\"model\") ];\r\\r
+ \n :set devRbRevision [ :tostr (\$RouterBoard->\"revision\") ];\r\\r
+ \n :set devRbSerialNumber [ :tostr (\$RouterBoard->\"serial-number\") \\r
+ ];\r\\r
+ \n } else={\r\\r
+ \n :set devModel \$devBoardName;\r\\r
+ \n :set devRbRevision \"\";\r\\r
+ \n :set devRbSerialNumber \"\";\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :set currentUpdateChannel [ :tostr (\$Update->\"channel\") ];\r\\r
+ \n :set ROsVerAvail [ :tostr (\$Update->\"latest-version\") ];\r\\r
+ \n\r\\r
+ \n :set (\$DeviceInfo->\"board-name\") \$devBoardName;\r\\r
+ \n :set (\$DeviceInfo->\"architecture-name\") \$devCurArch;\r\\r
+ \n :set (\$DeviceInfo->\"model\") \$devModel;\r\\r
+ \n :set (\$DeviceInfo->\"revision\") \$devRbRevision;\r\\r
+ \n :set (\$DeviceInfo->\"serial-number\") \$devRbSerialNumber;\r\\r
+ \n :set (\$DeviceInfo->\"running-mode\") \$devRunning;\r\\r
+ \n :set (\$DeviceInfo->\"build-time\") \$devBuildTime;\r\\r
+ \n :set (\$DeviceInfo->\"running-channel-version\") \$runningChannelVers\\r
+ ion;\r\\r
+ \n :set (\$DeviceInfo->\"running-version\") \$runningVersion;\r\\r
+ \n :set (\$DeviceInfo->\"running-channel\") \$runningChannel;\r\\r
+ \n :set (\$DeviceInfo->\"routerboard\") \$IsRouterBoard;\r\\r
+ \n :set (\$DeviceInfo->\"current-firmware\") [ :tostr (\$RouterBoard->\"\\r
+ current-firmware\") ];\r\\r
+ \n :set (\$DeviceInfo->\"upgrade-firmware\") [ :tostr (\$RouterBoard->\"\\r
+ upgrade-firmware\") ];\r\\r
+ \n :set (\$DeviceInfo->\"package-channel\") \$currentUpdateChannel;\r\\r
+ \n :set (\$DeviceInfo->\"installed-version\") [ :tostr (\$Update->\"inst\\r
+ alled-version\") ];\r\\r
+ \n :set (\$DeviceInfo->\"latest-version\") \$ROsVerAvail;\r\\r
+ \n :set (\$DeviceInfo->\"update-status\") [ :tostr (\$Update->\"status\"\\r
+ ) ];\r\\r
+ \n\r\\r
+ \n :set arrDeviceInfo \$DeviceInfo;\r\\r
+ \n :return \$DeviceInfo;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set DeviceInfo do={\r\\r
+ \n :global GetArrDeviceInfo;\r\\r
+ \n :global GlobalConfVersion;\r\\r
+ \n :global Identity;\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :global FormatLine;\r\\r
+ \n :global CommitBrief;\r\\r
+ \n\r\\r
+ \n :local License [/system/license/get];\r\\r
+ \n :local Snmp [ /snmp/get ];\r\\r
+ \n :local Info [ \$GetArrDeviceInfo ];\r\\r
+ \n\r\\r
+ \n :if ([ :typeof \$Info ] != \"array\") do={\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :return ( \\\r\\r
+ \n [ \$FormatLine \"Hostname\" \$Identity ] . \"\\n\" . \\\r\\r
+ \n [ \$IfThenElse ([ :len (\$Snmp->\"location\") ] > 0) \\\r\\r
+ \n ([ \$FormatLine \"Location\" (\$Snmp->\"location\") ] . \"\\n\") ]\\r
+ \_. \\\r\\r
+ \n [ \$IfThenElse ([ :len (\$Snmp->\"contact\") ] > 0) \\\r\\r
+ \n ([ \$FormatLine \"Contact\" (\$Snmp->\"contact\") ] . \"\\n\") ] .\\r
+ \_\\\r\\r
+ \n \"Hardware:\\n\" . \\\r\\r
+ \n [ \$FormatLine \" Board\" (\$Info->\"board-name\") ] . \"\\n\" . \\r
+ \\\r\\r
+ \n [ \$FormatLine \" Arch\" (\$Info->\"architecture-name\") ] . \"\\\\r
+ n\" . \\\r\\r
+ \n [ \$FormatLine \" Model\" (\$Info->\"model\") ] . \\\r\\r
+ \n [ \$IfThenElse ([ :len (\$Info->\"revision\") ] > 0) \\\r\\r
+ \n (\" \" . (\$Info->\"revision\")) ] . \"\\n\" . \\\r\\r
+ \n [ \$IfThenElse ([ :len (\$Info->\"serial-number\") ] > 0) \\\r\\r
+ \n ([ \$FormatLine \" Serial\" (\$Info->\"serial-number\") ] . \"\\r
+ \\n\") ] . \\\r\\r
+ \n [ \$IfThenElse ([ :len (\$License->\"nlevel\") ] > 0) \\\r\\r
+ \n ([ \$FormatLine \" License\" (\"level \" . (\$License->\"nlevel\\r
+ \")) ] . \"\\n\") ] . \\\r\\r
+ \n \"RouterOS:\\n\" . \\\r\\r
+ \n [ \$IfThenElse ([ :len (\$License->\"level\") ] > 0) \\\r\\r
+ \n ([ \$FormatLine \" License\" (\"level \" . (\$License->\"level\\r
+ \")) ] . \"\\n\") ] . \\\r\\r
+ \n [ \$FormatLine \" Channel\" (\$Info->\"package-channel\") ] . \"\\r
+ \\n\" . \\\r\\r
+ \n [ \$FormatLine \" Installed\" (\$Info->\"installed-version\") ] .\\r
+ \_\"\\n\" . \\\r\\r
+ \n [ \$IfThenElse ([ :len (\$Info->\"running-channel\") ] > 0) \\\r\\r
+ \n ([ \$FormatLine \" Running\" ((\$Info->\"running-version\") . \\r
+ \" (\" . (\$Info->\"running-channel\") . \")\") ] . \"\\n\") \\\r\\r
+ \n ([ \$FormatLine \" Running\" (\$Info->\"running-version\") ] . \\r
+ \"\\n\") ] . \\\r\\r
+ \n [ \$IfThenElse ([ :len (\$Info->\"latest-version\") ] > 0 && \\\r\\r
+ \n (\$Info->\"installed-version\") != (\$Info->\"latest-version\"))\\r
+ \_\\\r\\r
+ \n ([ \$FormatLine \" Available\" (\$Info->\"latest-version\") ] .\\r
+ \_\"\\n\") ] . \\\r\\r
+ \n [ \$IfThenElse ((\$Info->\"routerboard\") = true && \\\r\\r
+ \n (\$Info->\"current-firmware\") != (\$Info->\"upgrade-firmware\")\\r
+ ) \\\r\\r
+ \n ([ \$FormatLine \" Firmware\" ((\$Info->\"current-firmware\") .\\r
+ \_\" -> \" . (\$Info->\"upgrade-firmware\")) ] . \"\\n\") ] . \\\r\\r
+ \n \"RouterOS-Scripts:\\n\" . \\\r\\r
+ \n [ \$FormatLine \" Commit\" [ \$CommitBrief ] ] . \"\\n\" . \\\r\\r
+ \n [ \$FormatLine \" Version\" \$GlobalConfVersion ]);\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:if ([ :typeof \$NotificationFunctions ] != \"array\") do={:set Notifica\\r
+ tionFunctions ({})}\r\\r
+ \n\r\\r
+ \n:set GetRandom20CharAlNum do={\r\\r
+ \n :global EitherOr;\r\\r
+ \n :return [ :rndstr length=[ \$EitherOr [ :tonum \$1 ] 20 ] from=\"ABCDE\\r
+ FGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\" ];\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set GetRandom20CharHex do={:global EitherOr; :return [ :rndstr length=[\\r
+ \_\$EitherOr [ :tonum \$1 ] 20 ] from=\"0123456789abcdef\" ]; }\r\\r
+ \n:set GetRandomNumber do={:global EitherOr; :return [ :rndnum from=0 to=[\\r
+ \_\$EitherOr [ :tonum \$1 ] 4294967295 ] ]; }\r\\r
+ \n\r\\r
+ \n:global checkRunJob;\r\\r
+ \n:set checkRunJob do={\r\\r
+ \n :local Script [ :tostr \$1 ];\r\\r
+ \n :global ScriptLock; \r\\r
+ \n :if ([ \$ScriptLock \$Script ] = false) do={:return false}\r\\r
+ \n :foreach Job in=[ /system/script/job/find where script=\$Script ] do={\\r
+ :set Job [ /system/script/job/get \$Job ];\r\\r
+ \n :while ([ :typeof (\$Job->\"parent\") ] = \"id\") do={:set Job [ /sy\\r
+ stem/script/job/get [ find where .id=(\$Job->\"parent\") ] ]}\r\\r
+ \n :if ((\$Job->\"type\") = \"login\") do={:return true};}; :return fa\\r
+ lse; \r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set InspectVar do={\r\\r
+ \n :global InspectVarRet;\r\\r
+ \n :put [ :tocrlf [ \$InspectVarRet \$1 ] ];\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set CommitBrief do={\r\\r
+ \n :global CommitId;\r\\r
+ \n :global CommitInfo;\r\\r
+ \n :if (\$CommitId = \"unknown\") do={\r\\r
+ \n :return \"unknown\";\r\\r
+ \n }\r\\r
+ \n :return (\$CommitInfo . \"/\" . [ :pick \$CommitId 0 8 ]);\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set InspectVarRet do={\r\\r
+ \n :local Input \$1;\r\\r
+ \n :local Level (0 + [ :tonum \$2 ]);\r\\r
+ \n :global CharacterReplace;\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :global InspectVarRet;\r\\r
+ \n :local IndentReturn do={\r\\r
+ \n :local Prefix [ :tostr \$1 ];\r\\r
+ \n :local Value [ :tostr \$2 ];\r\\r
+ \n :local Level [ :tonum \$3 ];\r\\r
+ \n :global CharacterMultiply;\r\\r
+ \n :return ([ \$CharacterMultiply \" \" (\$Level * 2) ] . \"-\" . \$Pre\\r
+ fix . \"-> \" . \$Value);\r\\r
+ \n }\r\\r
+ \n :local TypeOf [ :typeof \$Input ];\r\\r
+ \n :local Len [ :len \$Input ];\r\\r
+ \n :local Return [ \$IndentReturn \"type\" \$TypeOf \$Level ];\r\\r
+ \n :if (\$TypeOf = \"array\") do={\r\\r
+ \n :foreach Key,Value in=\$Input do={\r\\r
+ \n :set \$Return (\$Return . \"\\n\" . \\\r\\r
+ \n [ \$IndentReturn \"key\" \$Key (\$Level + 1) ] . \"\\n\" . \\\r\\r
+ \n [ \$InspectVarRet \$Value (\$Level + 2) ]);\r\\r
+ \n }\r\\r
+ \n } else={\r\\r
+ \n :if (\$TypeOf = \"str\") do={\r\\r
+ \n :set \$Return (\$Return . \"\\n\" . \\\r\\r
+ \n [ \$IndentReturn \"len\" \$Len \$Level ]);\r\\r
+ \n :if ([ :typeof [ :find \$Input (\"\\r\") ] ] = \"num\") do={\r\\r
+ \n :set Input [ \$CharacterReplace \$Input (\"\\r\") \"\" ];\r\\r
+ \n }\r\\r
+ \n :if ([ :typeof [ :find \$Input (\"\\n\") ] ] = \"num\") do={\r\\r
+ \n :set Input [ \$CharacterReplace \$Input (\"\\n\") \" \" ];\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :if (\$TypeOf != \"nothing\") do={\r\\r
+ \n :set \$Return (\$Return . \"\\n\" . \\\r\\r
+ \n [ \$IndentReturn \"value\" [ \$IfThenElse ([ :len \$Input ] > 80)\\r
+ \_\\\r\\r
+ \n ([ :pick \$Input 0 77 ] . \"...\") \$Input ] \$Level ]);\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set GetPubIp do={\r\\r
+ \n :global DetectIpAddrDefault;\r\\r
+ \n :global DetectIpAddrFallback;\r\\r
+ \n\r\\r
+ \n :local PubIpAddr false;\r\\r
+ \n :local Url \$DetectIpAddrDefault;\r\\r
+ \n :local JobName [ :jobname ];\r\\r
+ \n\r\\r
+ \n :do {\r\\r
+ \n :log debug (\$0 . \" Trying to detect public IP using default serv\\r
+ ice: \" . \$Url . \"...\");\r\\r
+ \n :retry command={:set PubIpAddr ([ /tool/fetch http-method=\"get\"\\r
+ \_check-certificate=yes-without-crl \$Url output=user as-value ]->\"data\"\\r
+ )} \\\r\\r
+ \n delay=50ms max=5 on-error={:log error (\$JobName . \" Failed to \\r
+ detect public IP using default service: \" . \$Url . \".\")}\r\\r
+ \n } on-error={\r\\r
+ \n :log error (\$0 . \" Failed to detect public IP using default serv\\r
+ ice: \" . \$Url . \".\");\r\\r
+ \n :set Url \$DetectIpAddrFallBack;\r\\r
+ \n :log debug (\$0 . \" Trying to detect public IP using fallback ser\\r
+ vice: \" . \$Url . \"...\");\r\\r
+ \n :retry command={:set PubIpAddr ([ /tool/fetch http-method=\"get\"\\r
+ \_check-certificate=yes-without-crl \$Url output=user as-value ]->\"data\"\\r
+ )} \\\r\\r
+ \n delay=200ms max=5 on-error={:log error (\$JobName . \" Failed to\\r
+ \_detect public IP using fallback service: \" . \$Url . \".\")}\r\\r
+ \n };\r\\r
+ \n :local IpLen ([ :len \$PubIpAddr ] -1);\r\\r
+ \n :if (\$PubIpAddr = false) do={:set PubIpAddr \"not-detected\"} else=\\r
+ {:set PubIpAddr [:pick \$PubIpAddr 0 \$IpLen]}\r\\r
+ \n :return \$PubIpAddr;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set FormatLine do={\r\\r
+ \n :local Key [ :tostr \$1 ];\r\\r
+ \n :local Value [ :tostr \$2 ];\r\\r
+ \n :local Indent [ :tonum \$3 ];\r\\r
+ \n :local Spaces;\r\\r
+ \n :local Return \"\";\r\\r
+ \n :global CharacterMultiply;\r\\r
+ \n :global EitherOr;\r\\r
+ \n :set Indent [ \$EitherOr \$Indent 16 ];\r\\r
+ \n :local Spaces [ \$CharacterMultiply \" \" \$Indent ];\r\\r
+ \n :if ([ :len \$Key ] > 0) do={ :set Return (\$Key . \":\")}\r\\r
+ \n :if ([ :len \$Key ] > (\$Indent - 2)) do={:set Return (\$Return . \"\\\\r
+ n\" . [ :pick \$Spaces 0 \$Indent ] . \$Value);\r\\r
+ \n } else={:set Return (\$Return . [ :pick \$Spaces 0 (\$Indent - [ :len \\r
+ \$Return ]) ] . \$Value)}\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set ParseCustom do={\r\\r
+ \n :local Str [ :tostr \$1 ];\r\\r
+ \n :local Start [:find [ \$Str ] [:tostr \$2]];\r\\r
+ \n :local End [ :tostr \$3 ];\r\\r
+ \n :local Num [ :tonum \$4 ];\r\\r
+ \n :local Return;\r\\r
+ \n :if ([:len \$Num] = 0) do={:set Num \"0\"}\r\\r
+ \n :local rest [:pick \$Str (\$Start+\$Num) [:len \$Str]]; \r\\r
+ \n :if ([:len \$End ] = 0) do={:set Return [:pick \$Str \$Num \$Start]} e\\r
+ lse={\r\\r
+ \n :set End [:find \$rest \$End];\r\\r
+ \n :set Return [:pick \$rest 0 \$End];\r\\r
+ \n }\r\\r
+ \n:return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set LogPrint do={\r\\r
+ \n :local Severity [ :tostr \$1 ];\r\\r
+ \n :local Name [ :tostr \$2 ];\r\\r
+ \n :local Message [ :tostr \$3 ];\r\\r
+ \n :global PrintDebug;\r\\r
+ \n :global PrintDebugOverride;\r\\r
+ \n :global EitherOr;\r\\r
+ \n :local Debug [ \$EitherOr (\$PrintDebugOverride->\$Name) \$PrintDebug \\r
+ ];\r\\r
+ \n :local PrintSeverity do={\r\\r
+ \n :global TerminalColorOutput;\r\\r
+ \n :if (\$TerminalColorOutput != true) do={:return \$1}\r\\r
+ \n :local Color { debug=96; info=97; warning=93; error=91 };\r\\r
+ \n :return (\"\\1B[\" . \$Color->\$1 . \"m\" . \$1 . \"\\1B[0m\");\r\\r
+ \n}\r\\r
+ \n :local Log ([ \$EitherOr \$Name \"<unknown>\" ] . \": \" . \$Message);\\r
+ \r\\r
+ \n :if (\$Severity ~ (\"^(custom|debug|error|info)\\\$\")) do={\r\\r
+ \n :if (\$Severity = \"debug\") do={:log debug \$Log}\r\\r
+ \n :if (\$Severity = \"error\") do={:log error \$Log}\r\\r
+ \n :if (\$Severity = \"info\" ) do={:log info \$Log}\r\\r
+ \n } else={:log warning \$Log; :set Severity \"warning\"}\r\\r
+ \n :if (\$Severity != \"debug\" || \$Debug = true) do={:put ([ \$PrintSev\\r
+ erity \$Severity ] . \": \" . \$Message)}\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set CertificateAvailable do={\r\\r
+ \n :local CommonName [ :tostr \$1 ];\r\\r
+ \n :local UseFor [ :tostr \$2 ];\r\\r
+ \n\r\\r
+ \n :global CertificateDownload;\r\\r
+ \n :global ParseKeyValueStore;\r\\r
+ \n\r\\r
+ \n :if ([ :len \$UseFor ] = 0) do={\r\\r
+ \n :log warning (\$0 . \"The intended use is undefined!\");\r\\r
+ \n :set UseFor \"undefined\";\r\\r
+ \n }\r\\r
+ \n :if ([ /system/resource/get free-hdd-space ] < 8388608 && \\\r\\r
+ \n [ /certificate/settings/get crl-download ] = true && \\\r\\r
+ \n [ /certificate/settings/get crl-store ] = \"system\") do={\r\\r
+ \n :log warning (\$0 . \"This system has low free flash space but \" . \\r
+ \\\r\\r
+ \n \"is configured to download certificate CRLs to system!\");\r\\r
+ \n }\r\\r
+ \n :if ([ :len \$CommonName ] = 0) do={\r\\r
+ \n :log warning (\$0 . \"No CommonName given!\");\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :local CertSettings [ /certificate/settings/get ];\r\\r
+ \n :if (((\$CertSettings->\"builtin-trust-anchors\") = \"trusted\" || \\\\r
+ \r\\r
+ \n (\$CertSettings->\"builtin-trust-store\") ~ \$UseFor || \\\r\\r
+ \n (\$CertSettings->\"builtin-trust-store\") = \"all\") && \\\r\\r
+ \n [ :len [ /certificate/builtin/find where common-name=\$CommonName\\r
+ \_] ] > 0) do={\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :if ([ :len [ /certificate/find where common-name=\$CommonName ] ] = 0\\r
+ ) do={\r\\r
+ \n :log info (\$0 . \"Certificate with CommonName '\" . \$CommonName . \\r
+ \"' not available.\");\r\\r
+ \n :if ([ \$CertificateDownload \$CommonName ] = false) do={\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :if ([ :len [ /certificate/find where common-name=\$CommonName ] ] > 1\\r
+ ) do={\r\\r
+ \n :log info (\$0 . \"There are \" . \$CertCount . \" Certificates with\\r
+ \_CommonName '\" . \$CommonName . \"'. Should be ok.\");\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :local CertVal [ /certificate/get [ find where common-name=\$CommonNam\\r
+ e ] ];\r\\r
+ \n :while ((\$CertVal->\"akid\") != \"\" && (\$CertVal->\"akid\") != (\$C\\r
+ ertVal->\"skid\")) do={\r\\r
+ \n :if ([ :len [ /certificate/find where skid=(\$CertVal->\"akid\") ] ]\\r
+ \_= 0) do={\r\\r
+ \n :local IssuerCN ([ \$ParseKeyValueStore (\$CertVal->\"issuer\") ]-\\r
+ >\"CN\");\r\\r
+ \n :log info (\$0 . \"Certificate chain for '\" . \$CommonName . \"' \\r
+ is incomplete, missing '\" . \$IssuerCN . \"'.\");\r\\r
+ \n :if ([ \$CertificateDownload \$IssuerCN ] = false) do={\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :set CertVal [ /certificate/get [ find where skid=(\$CertVal->\"akid\\r
+ \") ] ];\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set CertificateDownload do={\r\\r
+ \n :local CommonName [ :tostr \$1 ];\r\\r
+ \n :global ScriptUpdatesBaseUrl;\r\\r
+ \n :global ScriptUpdatesUrlSuffix;\r\\r
+ \n :global CertificateNameByCN;\r\\r
+ \n :global CleanName;\r\\r
+ \n :global FetchUserAgentStr;\r\\r
+ \n :global RmFile;\r\\r
+ \n :global WaitForFile;\r\\r
+ \n\r\\r
+ \n :log info (\$0 . \"Downloading and importing certificate with \" . \\\\r
+ \r\\r
+ \n \"CommonName '\" . \$CommonName . \"'.\");\r\\r
+ \n :local FileName ([ \$CleanName \$CommonName ] . \".pem\");\r\\r
+ \n :do {\r\\r
+ \n /tool/fetch check-certificate=yes-without-crl mode=https http-header\\r
+ -field=({ [ \$FetchUserAgentStr \$0 ] }) \\\r\\r
+ \n (\$ScriptUpdatesBaseUrl . \"certs/\" . \$FileName . \$ScriptUpdate\\r
+ sUrlSuffix) \\\r\\r
+ \n dst-path=\$FileName as-value;\r\\r
+ \n \$WaitForFile \$FileName;\r\\r
+ \n } on-error={\r\\r
+ \n :log warning (\$0 . \" Failed downloading certificate with CommonNam\\r
+ e '\" . \$CommonName . \\\r\\r
+ \n \"' from repository! Trying fallback to mkcert.org...\");\r\\r
+ \n :do {\r\\r
+ \n :local CertSettings [ /certificate/settings/get ];\r\\r
+ \n :if ([ :len [ /certificate/find where common-name=\"ISRG Root X1\"\\r
+ \_] ] = 0 && \\\r\\r
+ \n !(((\$CertSettings->\"builtin-trust-anchors\") = \"trusted\" \\r
+ || \\\r\\r
+ \n (\$CertSettings->\"builtin-trust-store\") ~ \"fetch\" || \\r
+ \\\r\\r
+ \n (\$CertSettings->\"builtin-trust-store\") = \"all\") && \\\\r
+ \r\\r
+ \n [ :len [ /certificate/builtin/find where common-name=\"ISRG\\r
+ \_Root X1\" ] ] > 0)) do={\r\\r
+ \n :log error (\$0 . \" Required certificate is not available.\");\\r
+ \r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n /tool/fetch check-certificate=yes-without-crl mode=https http-head\\r
+ er-field=({ [ \$FetchUserAgentStr \$0 ] }) \\\r\\r
+ \n url=\"https://mkcert.org/generate/\" http-data=[ :serialize to=jso\\r
+ n ({ \$CommonName }) ] \\\r\\r
+ \n dst-path=\$FileName as-value;\r\\r
+ \n \$WaitForFile \$FileName;\r\\r
+ \n :if ([ /file/get \$FileName size ] = 0) do={\r\\r
+ \n \$RmFile \$FileName;\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n } on-error={\r\\r
+ \n :log error (\$0 . \" Failed downloading certificate with CommonNam\\r
+ e '\" . \$CommonName . \"'!\");\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n /certificate/import file-name=\$FileName passphrase=\"\" as-value;\r\\r
+ \n :delay 1s;\r\\r
+ \n \$RmFile \$FileName;\r\\r
+ \n :if ([ :len [ /certificate/find where common-name=\$CommonName ] ] = 0\\r
+ ) do={\r\\r
+ \n /certificate/remove [ find where name~(\"^\" . \$FileName . \"_[0-9]\\r
+ +\\\$\") ];\r\\r
+ \n :log warning (\$0 . \" Certificate with CommonName '\" . \$CommonNam\\r
+ e . \"' still unavailable!\");\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :foreach Cert in=[ /certificate/find where name~(\"^\" . \$FileName . \\r
+ \"_[0-9]+\\\$\") ] do={\r\\r
+ \n \$CertificateNameByCN [ /certificate/get \$Cert common-name ];\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set CertificateNameByCN do={\r\\r
+ \n :local Match [ :tostr \$1 ];\r\\r
+ \n :global CleanName;\r\\r
+ \n :local Cert ([ /certificate/find where (common-name=\$Match or fingerp\\r
+ rint=\$Match or name=\$Match) ]->0);\r\\r
+ \n :if ([ :len \$Cert ] = 0) do={\r\\r
+ \n :log warning (\$0 .\" No matching certificate found.\");\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :local CommonName [ /certificate/get \$Cert common-name ];\r\\r
+ \n /certificate/set \$Cert name=[ \$CleanName \$CommonName ];\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set CharacterMultiply do={\r\\r
+ \n :local Str [ :tostr \$1 ];\r\\r
+ \n :local Num [ :tonum \$2 ];\r\\r
+ \n :if (\$Num = 0) do={:return \"\"}\r\\r
+ \n :local Return \"\";\r\\r
+ \n :for I from=1 to=\$Num do={:set Return (\$Return . \$Str)}\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set FileExists do={\r\\r
+ \n :local FileName [ :tostr \$1 ];\r\\r
+ \n :local Type [ :tostr \$2 ];\r\\r
+ \n :global FileGet;\r\\r
+ \n :local FileVal [ \$FileGet \$FileName ];\r\\r
+ \n :if (\$FileVal = false) do={ :return false; }\r\\r
+ \n :if ([ :len (\$FileVal->\"size\") ] = 0) do={ :return false; }\r\\r
+ \n :if ([ :len \$Type ] = 0 || \$FileVal->\"type\" = \$Type) do={ :return\\r
+ \_true; }\r\\r
+ \n :return false;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set Grep do={\r\\r
+ \n :local Input ([ :tostr \$1 ] . \"\\n\");\r\\r
+ \n :local Pattern [ :tostr \$2 ];\r\\r
+ \n :if ([ :typeof [ :find \$Input \$Pattern ] ] = \"nil\") do={:return []\\r
+ }\r\\r
+ \n :do {\r\\r
+ \n :local Line [ :pick \$Input 0 [ :find \$Input \"\\n\" ] ];\r\\r
+ \n :if ([ :typeof [ :find \$Line \$Pattern ] ] = \"num\") do={:return \\r
+ \$Line}\r\\r
+ \n :set Input [ :pick \$Input ([ :find \$Input \"\\n\" ] + 1) [ :len \$\\r
+ Input ] ];\r\\r
+ \n } while=([ :len \$Input ] > 0);\r\\r
+ \n :return [];\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set HumanReadableNum do={\r\\r
+ \n :local Input [ :tonum \$1 ];\r\\r
+ \n :local Base [ :tonum \$2 ];\r\\r
+ \n :global EitherOr;\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :local Prefix \"kMGTPE\";\r\\r
+ \n :local Pow 1;\r\\r
+ \n :set Base [ \$EitherOr \$Base 1024 ];\r\\r
+ \n :local Bin [ \$IfThenElse (\$Base = 1024) \"i\" \"\" ];\r\\r
+ \n :if (\$Input < \$Base) do={:return \$Input}\r\\r
+ \n :for I from=0 to=[ :len \$Prefix ] do={\r\\r
+ \n :set Pow (\$Pow * \$Base);\r\\r
+ \n :if (\$Input / \$Base < \$Pow) do={\r\\r
+ \n :set Prefix [ :pick \$Prefix \$I ];\r\\r
+ \n :local Tmp1 (\$Input * 100 / \$Pow);\r\\r
+ \n :local Tmp2 (\$Tmp1 / 100);\r\\r
+ \n :if (\$Tmp2 >= 100) do={:return (\$Tmp2 . \$Prefix . \$Bin)}\r\\r
+ \n :return (\$Tmp2 . \".\" . \\\r\\r
+ \n [ :pick \$Tmp1 [ :len \$Tmp2 ] ([ :len \$Tmp1 ] - [ :len \$Tmp\\r
+ 2 ] + 1) ] . \\\r\\r
+ \n \$Prefix . \$Bin);\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set CleanFilePath do={\r\\r
+ \n :local Path [ :tostr \$1 ];\r\\r
+ \n :global CharacterReplace;\r\\r
+ \n :while (\$Path ~ \"//\") do={ :set \$Path [ \$CharacterReplace \$Path \\r
+ \"//\" \"/\" ]; }\r\\r
+ \n :if ([ :pick \$Path 0 ] = \"/\") do={ :set Path [ :pick \$Path 1 [ :le\\r
+ n \$Path ] ]; }\r\\r
+ \n :if ([ :pick \$Path ([ :len \$Path ] - 1) ] = \"/\") do={ :set Path [ \\r
+ :pick \$Path 0 ([ :len \$Path ] - 1) ]; }\r\\r
+ \n :return \$Path;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set CleanName do={\r\\r
+ \n :local Input [ :tostr \$1 ];\r\\r
+ \n :local Return \"\";\r\\r
+ \n :for I from=0 to=([ :len \$Input ] - 1) do={\r\\r
+ \n :local Char [ :pick \$Input \$I ];\r\\r
+ \n :if ([ :typeof [ find \"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqr\\r
+ stuvwxyz0123456789\" \$Char ] ] = \"nil\") do={\r\\r
+ \n :do {:if ([ :len \$Return ] = 0) do={:error true};\r\\r
+ \n :if ([ :pick \$Return ([ :len \$Return ] - 1) ] = \"-\") do={:er\\r
+ ror true}; :set Char \"-\"} on-error={:set Char \"\"}; \r\\r
+ \n };\r\\r
+ \n :set Return (\$Return . \$Char)};\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set RandomDelay do={\r\\r
+ \n :local Time [ :tonum \$1 ];\r\\r
+ \n :local Unit [ :tostr \$2 ];\r\\r
+ \n :global EitherOr;\r\\r
+ \n :global GetRandomNumber;\r\\r
+ \n :global MAX;\r\\r
+ \n :if (\$Time = 0) do={:return false}\r\\r
+ \n :delay ([ \$MAX 10 [ \$GetRandomNumber ([ :tonsec [ :totime (\$Time . \\r
+ [ \$EitherOr \$Unit \"s\" ]) ] ] / 1000000) ] ] . \"ms\");\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set EscapeForRegEx do={\r\\r
+ \n :local Input [ :tostr \$1 ];\r\\r
+ \n :if ([ :len \$Input ] = 0) do={:return \"\"}\r\\r
+ \n :local Return \"\";\r\\r
+ \n :local Chars (\"^.[]\\\$()|*+\?{}\\\\\");\r\\r
+ \n :for I from=0 to=([ :len \$Input ] - 1) do={\r\\r
+ \n :local Char [ :pick \$Input \$I ];\r\\r
+ \n :if ([ :find \$Chars \$Char ]) do={:set Char (\"\\\\\" . \$Char)}\r\\r
+ \n :set Return (\$Return . \$Char);\r\\r
+ \n }\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set ExitError do={\r\\r
+ \n :local ExitOK [ :tostr \$1 ];\r\\r
+ \n :local Name [ :tostr \$2 ];\r\\r
+ \n :local Error [ :tostr \$3 ];\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :if (\$ExitOK = \"false\") do={\r\\r
+ \n :log error (\$Name [ \$IfThenElse ([ :pick \$Name 0 1 ] = \"\\\$\") \\r
+ \\\r\\r
+ \n \"Function\" \"Script\" ] . \" '\" . \$Name . \"' exited with er\\r
+ ror\" . \\\r\\r
+ \n [ \$IfThenElse (!(\$Error ~ \"^(|true|false)\\\$\")) (\": \" . \\r
+ \$Error) \".\" ]);\r\\r
+ \n }\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set ExitOnError do={\r\\r
+ \n :local Name [ :tostr \$1 ];\r\\r
+ \n :local Error [ :tostr \$2 ];\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :log error (\$Name . \" \" . [ \$IfThenElse ([ :pick \$Name 0 1 ] = \"\\r
+ \\\$\") \\\r\\r
+ \n \"Function\" \"Script\" ] . \" '\" . \$Name . \"' exited with erro\\r
+ r\" . \\\r\\r
+ \n [ \$IfThenElse (!(\$Error ~ \"^(|true|false)\\\$\")) (\": \" . \$E\\r
+ rror) \".\" ]);\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set MiniDateTimeStamp do={\r\\r
+ \n :local mikro [ :tobool \$1 ];\r\\r
+ \n /system/clock;\r\\r
+ \n :local vdate [get date];\r\\r
+ \n :local vtime [get time];\r\\r
+ \n :local vdoff [:toarray \"0,4,5,7,8,10\"];\r\\r
+ \n :local MM [:pick \$vdate (\$vdoff->2) (\$vdoff->3)];\r\\r
+ \n :local M [:tonum \$MM];\r\\r
+ \n :if (\$vdate ~ \".../../....\") do={\r\\r
+ \n :set vdoff [:toarray \"7,11,1,3,4,6\"];\r\\r
+ \n :set M ([:find \"xxanebarprayunulugepctovecANEBARPRAYUNULUGE\\r
+ PCTOVEC\" [:pick \$vdate (\$vdoff->2) (\$vdoff->3)] -1] / 2);\r\\r
+ \n :if (\$M>12) do={:set M (\$M - 12)}\r\\r
+ \n :set MM [:pick (100 + \$M) 1 3];\r\\r
+ \n }\r\\r
+ \n :local yyyy [:pick \$vdate (\$vdoff->0) (\$vdoff->1)];\r\\r
+ \n :local dd [:pick \$vdate (\$vdoff->4) (\$vdoff->5)];\r\\r
+ \n :local HH [:pick \$vtime 0 2];\r\\r
+ \n :local mm [:pick \$vtime 3 5];\r\\r
+ \n :local ss [:pick \$vtime 6 8];\r\\r
+ \n :local Return;\r\\r
+ \n :if (\$mikro = true) do={\r\\r
+ \n :set Return ([:pick \$yyyy 2 4] . [:pick \$dd 0 1] . [:pick \$HH 0\\r
+ \_1] . [:pick \$mm 3 4] . [:pick \$ss 6 7]);\r\\r
+ \n } else={\r\\r
+ \n :set Return ([\$yyyy] . [\$MM] . [\$dd] . [\$HH] . [\$mm] . [\$ss]);\\r
+ \r\\r
+ \n }\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set WaitForFile do={\r\\r
+ \n :local FileName [ :tostr \$1 ];\r\\r
+ \n :local WaitTime [ :totime \$2 ];\r\\r
+ \n :global CleanFilePath;\r\\r
+ \n :global EitherOr;\r\\r
+ \n :global MAX;\r\\r
+ \n :set FileName [ \$CleanFilePath \$FileName ];\r\\r
+ \n :local Delay ([ \$MAX [ \$EitherOr \$WaitTime 2s ] 100ms ] / 9);\r\\r
+ \n :do {\r\\r
+ \n :retry {\r\\r
+ \n /file/get \$FileName;\r\\r
+ \n :return true;\r\\r
+ \n } delay=\$Delay max=10;\r\\r
+ \n } on-error={ }\r\\r
+ \n :while ([ :len [ /file/find where name=\$FileName ] ] > 0) do={\r\\r
+ \n :do {\r\\r
+ \n /file/get \$FileName;\r\\r
+ \n :return true;\r\\r
+ \n } on-error={ }\r\\r
+ \n :delay \$Delay;\r\\r
+ \n :set Delay (\$Delay * 3 / 2);\r\\r
+ \n }\r\\r
+ \n :return false;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set FileGet do={\r\\r
+ \n :local FileName [ :tostr \$1 ];\r\\r
+ \n :global WaitForFile;\r\\r
+ \n :if ([ \$WaitForFile \$FileName 0s ] = false) do={\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :local FileVal false;\r\\r
+ \n :do {\r\\r
+ \n :set FileVal [ /file/get \$FileName ];\r\\r
+ \n } on-error={ }\r\\r
+ \n :return \$FileVal;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set RmDir do={\r\\r
+ \n :local DirName [ :tostr \$1 ];\r\\r
+ \n :global FileGet;\r\\r
+ \n :log debug (\$0 . \" Removing directory: \". \$DirName);\r\\r
+ \n :local DirVal [ \$FileGet \$DirName ];\r\\r
+ \n :if (\$DirVal = false) do={\r\\r
+ \n :log debug (\$0 . \" ... which does not exist.\");\r\\r
+ \n :return true;\r\\r
+ \n };\r\\r
+ \n :if (\$DirVal->\"type\" != \"directory\") do={\r\\r
+ \n :log error (\$0 . \" Directory '\" . \$DirName . \"' is not a direct\\r
+ ory.\");\r\\r
+ \n :return false;\r\\r
+ \n };\r\\r
+ \n :onerror Err {\r\\r
+ \n /file/remove \$DirName;\r\\r
+ \n } do={\r\\r
+ \n :log error (\$0 . \" Removing directory '\" . \$DirName . \"' failed\\r
+ : \" . \$Err);\r\\r
+ \n :return false;\r\\r
+ \n };\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set RmFile do={\r\\r
+ \n :local FileName [ :tostr \$1 ];\r\\r
+ \n :global FileGet;\r\\r
+ \n :log debug (\$0 . \" Removing file: \". \$FileName);\r\\r
+ \n :local FileVal [ \$FileGet \$FileName ];\r\\r
+ \n :if (\$FileVal = false) do={\r\\r
+ \n :log debug (\$0 . \" ... which does not exist.\");\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :if (\$FileVal->\"type\" = \"directory\" || \$FileVal->\"type\" = \"di\\r
+ sk\") do={\r\\r
+ \n :log error (\$0 . \" File '\" . \$FileName . \"' is not a file.\");\\r
+ \r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :onerror Err {\r\\r
+ \n /file/remove \$FileName;\r\\r
+ \n } do={\r\\r
+ \n :log error (\$0 . \" Removing file '\" . \$FileName . \"' failed: \"\\r
+ \_. \$Err); :return false;\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set MkDir do={\r\\r
+ \n :local Path [ :tostr \$1 ];\r\\r
+ \n :global CleanFilePath;\r\\r
+ \n :global FileGet;\r\\r
+ \n :global RmDir;\r\\r
+ \n :global WaitForFile;\r\\r
+ \n\r\\r
+ \n :local MkTmpfs do={\r\\r
+ \n :global WaitForFile;\r\\r
+ \n :local TmpFs [ /disk/find where slot=tmpfs type=tmpfs ];\r\\r
+ \n :if ([ :len \$TmpFs ] = 1) do={\r\\r
+ \n :if ([ /disk/get \$TmpFs disabled ] = true) do={\r\\r
+ \n :log info (\$0 . \" The tmpfs is disabled, enabling.\");\r\\r
+ \n /disk/enable \$TmpFs;\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :log info (\$0 . \" Creating disk of type tmpfs.\");\r\\r
+ \n \$RmDir \"tmpfs\";\r\\r
+ \n :onerror Err {\r\\r
+ \n /disk/add slot=tmpfs type=tmpfs tmpfs-max-size=([ /system/resource\\r
+ /get total-memory ] / 3);\r\\r
+ \n \$WaitForFile \"tmpfs\";\r\\r
+ \n } do={\r\\r
+ \n :log warning (\$0 . \" Creating disk of type tmpfs failed: \" . \$\\r
+ Err);\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :set Path [ \$CleanFilePath \$Path ];\r\\r
+ \n :if (\$Path = \"\") do={\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :log debug (\$0 . \" Making directory: \" . \$Path);\r\\r
+ \n :local PathVal [ \$FileGet \$Path ];\r\\r
+ \n :if (\$PathVal->\"type\" = \"directory\") do={\r\\r
+ \n :log debug (\$0 . \" ... which already exists.\");\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :if ([ :pick \$Path 0 5 ] = \"tmpfs\") do={\r\\r
+ \n :if ([ \$MkTmpfs ] = false) do={\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :onerror Err {\r\\r
+ \n /file/add type=\"directory\" name=\$Path;\r\\r
+ \n \$WaitForFile \$Path;\r\\r
+ \n } do={\r\\r
+ \n :log warning (\$0 . \" Making directory '\" . \$Path . \"' failed: \\r
+ \" . \$Err);\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set MAX do={:if (\$1 > \$2) do={:return \$1}\r\\r
+ \n :return \$2;\r\\r
+ \n}\r\\r
+ \n:set MIN do={:if (\$1 < \$2) do={:return \$1}\r\\r
+ \n :return \$2;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set CharacterMultiply do={\r\\r
+ \n :local Str [ :tostr \$1 ];\r\\r
+ \n :local Num [ :tonum \$2 ];\r\\r
+ \n :if (\$Num = 0) do={:return \"\"}\r\\r
+ \n :local Return \"\";\r\\r
+ \n :for I from=1 to=\$Num do={:set Return (\$Return . \$Str)}\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set CharacterReplace do={\r\\r
+ \n :local String [ :tostr \$1 ];\r\\r
+ \n :local ReplaceFrom [ :tostr \$2 ];\r\\r
+ \n :local ReplaceWith [ :tostr \$3 ];\r\\r
+ \n :local Return \"\";\r\\r
+ \n :if (\$ReplaceFrom = \"\") do={:return \$String}\r\\r
+ \n :while ([ :typeof [ :find \$String \$ReplaceFrom ] ] != \"nil\") do={\\r
+ \r\\r
+ \n :local Pos [ :find \$String \$ReplaceFrom ];\r\\r
+ \n :set Return (\$Return . [ :pick \$String 0 \$Pos ] . \$ReplaceWith);\\r
+ \r\\r
+ \n :set String [ :pick \$String (\$Pos + [ :len \$ReplaceFrom ]) [ :len\\r
+ \_\$String ] ];\r\\r
+ \n }\r\\r
+ \n :return (\$Return . \$String);\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set IfThenElse do={\r\\r
+ \n :if ([ :tostr \$1 ] = \"true\" || [ :tobool \$1 ] = true) do={:return \\r
+ \$2};\r\\r
+ \n :return \$3;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set EitherOr do={\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :if ([ :typeof \$1 ] = \"num\") do={:return [ \$IfThenElse (\$1 != 0) \\r
+ \$1 \$2 ]}\r\\r
+ \n :if ([ :typeof \$1 ] = \"time\") do={:return [ \$IfThenElse (\$1 > 0s)\\r
+ \_\$1 \$2 ]}\r\\r
+ \n# this works for boolean values, literal ones with parentheses\r\\r
+ \n :return [ \$IfThenElse ([ :len [ :tostr \$1 ] ] > 0) \$1 \$2 ];\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set ParseKeyValueStore do={\r\\r
+ \n :local Source \$1;\r\\r
+ \n :if ([ :pick \$Source 0 1 ] = \"{\") do={\r\\r
+ \n :do {\r\\r
+ \n :return [ :deserialize from=json \$Source ];\r\\r
+ \n } on-error={ }\r\\r
+ \n } \r\\r
+ \n :if ([ :typeof \$Source ] != \"array\") do={:set Source [ :tostr \$1 ]\\r
+ }\r\\r
+ \n :local Result ({});\r\\r
+ \n :foreach KeyValue in=[ :toarray \$Source ] do={\r\\r
+ \n :if ([ :find \$KeyValue \"=\" ]) do={\r\\r
+ \n :local Key [ :pick \$KeyValue 0 [ :find \$KeyValue \"=\" ] ];\r\\r
+ \n :local Value [ :pick \$KeyValue ([ :find \$KeyValue \"=\" ] + 1) [\\r
+ \_:len \$KeyValue ] ];\r\\r
+ \n :if (\$Value=\"true\") do={:set Value true}\r\\r
+ \n :if (\$Value=\"false\") do={:set Value false}\r\\r
+ \n :set (\$Result->\$Key) \$Value;\r\\r
+ \n } else={:set (\$Result->\$KeyValue) true}\r\\r
+ \n }\r\\r
+ \n :return \$Result;\r\\r
+ \n}\r\\r
+ \n:set RequiredRouterOS do={\r\\r
+ \n :local Caller [ :tostr \$1 ];\r\\r
+ \n :local Required [ :tostr \$2 ];\r\\r
+ \n :local Warn [ :tostr \$3 ];\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :global VersionToNum;\r\\r
+ \n :if (!(\$Required ~ \"^\\\\d+\\\\.\\\\d+((alpha|beta|rc|\\\\.)\\\\d+|)\\r
+ \\\$\")) do={\r\\r
+ \n :log error (\$0 . \" No valid RouterOS version: \" . \$Required);\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :if ([ \$VersionToNum \$Required ] > [ \$VersionToNum [ /system/packag\\r
+ e/update/get installed-version ] ]) do={\r\\r
+ \n :if (\$Warn = \"true\") do={\r\\r
+ \n :log warning (\$0 . \" This \" . [ \$IfThenElse ([ :pick \$Caller \\r
+ 0 ] = (\"\\\$\")) \"function\" \"script\" ] . \\\r\\r
+ \n \" '\" . \$Caller . \"' (at least specific functionality) requir\\r
+ es RouterOS \" . \$Required . \". Please update!\");\r\\r
+ \n }\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set ValidateSyntax do={\r\\r
+ \n :local Code [ :tostr \$1 ];\r\\r
+ \n :global LogPrint;\r\\r
+ \n :onerror Err {\r\\r
+ \n [ :parse (\":local Validate do={\\n\" . \$Code . \"\\n}\") ];\r\\r
+ \n } do={\r\\r
+ \n \$LogPrint debug \$0 (\"Valdation failed: \" . \$Err);\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set VersionToNum do={\r\\r
+ \n :local Input [ :tostr \$1 ];\r\\r
+ \n :local Multi 0x1000000;\r\\r
+ \n :local Return 0;\r\\r
+ \n :global CharacterReplace;\r\\r
+ \n :set Input [ \$CharacterReplace \$Input \".\" \",\" ];\r\\r
+ \n :foreach I in={ \"zero\"; \"alpha\"; \"beta\"; \"rc\" } do={\r\\r
+ \n :set Input [ \$CharacterReplace \$Input \$I (\",\" . \$I . \",\") ];\\r
+ \r\\r
+ \n }\r\\r
+ \n :foreach Value in=([ :toarray \$Input ], 0) do={\r\\r
+ \n :local Num [ :tonum \$Value ];\r\\r
+ \n :if (\$Multi = 0x100) do={\r\\r
+ \n :if ([ :typeof \$Num ] = \"num\") do={\r\\r
+ \n :set Return (\$Return + 0xff00);\r\\r
+ \n :set Multi (\$Multi / 0x100);\r\\r
+ \n } else={\r\\r
+ \n :if (\$Value = \"zero\") do={ }\r\\r
+ \n :if (\$Value = \"alpha\") do={ :set Return (\$Return + 0x3f00); \\r
+ }\r\\r
+ \n :if (\$Value = \"beta\") do={ :set Return (\$Return + 0x5f00); }\\r
+ \r\\r
+ \n :if (\$Value = \"rc\") do={ :set Return (\$Return + 0x7f00); }\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :if ([ :typeof \$Num ] = \"num\") do={ :set Return (\$Return + (\$Va\\r
+ lue * \$Multi)); }\r\\r
+ \n :set Multi (\$Multi / 0x100);\r\\r
+ \n }\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set ScriptLock do={\r\\r
+ \n :local Script [ :tostr \$1 ];\r\\r
+ \n :local WaitMax [ :totime \$2 ];\r\\r
+ \n :global GetRandom20CharAlNum;\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :global ScriptLockOrder;\r\\r
+ \n :if ([ :typeof \$ScriptLockOrder ] = \"nothing\") do={\r\\r
+ \n :set ScriptLockOrder ({});\r\\r
+ \n }\r\\r
+ \n :if ([ :typeof (\$ScriptLockOrder->\$Script) ] = \"nothing\") do={\r\\r
+ \n :set (\$ScriptLockOrder->\$Script) ({});\r\\r
+ \n }\r\\r
+ \n :local JobCount do={\r\\r
+ \n :local Script [ :tostr \$1 ];\r\\r
+ \n :return [ :len [ /system/script/job/find where script=\$Script ] ];\\r
+ \r\\r
+ \n }\r\\r
+ \n :local TicketCount do={\r\\r
+ \n :local Script [ :tostr \$1 ];\r\\r
+ \n :global ScriptLockOrder;\r\\r
+ \n :local Count 0;\r\\r
+ \n :foreach Ticket in=(\$ScriptLockOrder->\$Script) do={\r\\r
+ \n :if ([ :typeof \$Ticket ] != \"nothing\") do={:set Count (\$Count \\r
+ + 1)}\r\\r
+ \n }\r\\r
+ \n :return \$Count;\r\\r
+ \n }\r\\r
+ \n :local IsFirstTicket do={\r\\r
+ \n :local Script [ :tostr \$1 ];\r\\r
+ \n :local Check [ :tostr \$2 ];\r\\r
+ \n :global ScriptLockOrder;\r\\r
+ \n :foreach Ticket in=(\$ScriptLockOrder->\$Script) do={\r\\r
+ \n :if (\$Ticket = \$Check) do={:return true}\r\\r
+ \n :if ([ :typeof \$Ticket ] != \"nothing\" && \$Ticket != \$Check) d\\r
+ o={:return false}\r\\r
+ \n }\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :local AddTicket do={\r\\r
+ \n :local Script [ :tostr \$1 ];\r\\r
+ \n :local Add [ :tostr \$2 ];\r\\r
+ \n :global ScriptLockOrder;\r\\r
+ \n :while (true) do={\r\\r
+ \n :local Pos [ :len (\$ScriptLockOrder->\$Script) ];\r\\r
+ \n :set (\$ScriptLockOrder->\$Script->\$Pos) \$Add;\r\\r
+ \n :delay 10ms;\r\\r
+ \n :if ((\$ScriptLockOrder->\$Script->\$Pos) = \$Add) do={:return tru\\r
+ e}\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :local RemoveTicket do={\r\\r
+ \n :local Script [ :tostr \$1 ];\r\\r
+ \n :local Remove [ :tostr \$2 ];\r\\r
+ \n :global ScriptLockOrder;\r\\r
+ \n :foreach Id,Ticket in=(\$ScriptLockOrder->\$Script) do={\r\\r
+ \n :while ((\$ScriptLockOrder->\$Script->\$Id) = \$Remove) do={\r\\r
+ \n :set (\$ScriptLockOrder->\$Script->\$Id);\r\\r
+ \n :delay 10ms;\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :local CleanupTickets do={\r\\r
+ \n :local Script [ :tostr \$1 ];\r\\r
+ \n :global ScriptLockOrder;\r\\r
+ \n :foreach Ticket in=(\$ScriptLockOrder->\$Script) do={\r\\r
+ \n :if ([ :typeof \$Ticket ] != \"nothing\") do={:return false}\r\\r
+ \n }\r\\r
+ \n :set (\$ScriptLockOrder->\$Script) ({});\r\\r
+ \n }\r\\r
+ \n :if ([ :typeof \$WaitMax ] = \"nil\" ) do={:set WaitMax 0s}\r\\r
+ \n :if ([ :len [ /system/script/find where name=\$Script ] ] = 0) do={\r\\r
+ \n :log error (\$0 . \" A script named '\" . \$Script . \"' does not ex\\r
+ ist!\");\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n :if ([ \$JobCount \$Script ] = 0) do={\r\\r
+ \n \$LogPrint error \$0 (\"No script '\" . \$Script . \"' is running!\"\\r
+ );\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n :if ([ \$TicketCount \$Script ] >= [ \$JobCount \$Script ]) do={\r\\r
+ \n :log error (\$0 . \" More tickets than running scripts '\" . \$Scrip\\r
+ t . \"', resetting!\");\r\\r
+ \n :set (\$ScriptLockOrder->\$Script) ({});\r\\r
+ \n /system/script/job/remove [ find where script=\$Script ];\r\\r
+ \n }\r\\r
+ \n :local MyTicket [ \$GetRandom20CharAlNum 6 ];\r\\r
+ \n \$AddTicket \$Script \$MyTicket;\r\\r
+ \n :local WaitInterval (\$WaitMax / 20);\r\\r
+ \n :local WaitTime \$WaitMax;\r\\r
+ \n :while (\$WaitTime > 0 && \\\r\\r
+ \n ([ \$IsFirstTicket \$Script \$MyTicket ] = false || \\\r\\r
+ \n [ \$TicketCount \$Script ] < [ \$JobCount \$Script ])) do={\r\\r
+ \n :set WaitTime (\$WaitTime - \$WaitInterval);\r\\r
+ \n :delay \$WaitInterval;\r\\r
+ \n }\r\\r
+ \n :if ([ \$IsFirstTicket \$Script \$MyTicket ] = true && \\\r\\r
+ \n [ \$TicketCount \$Script ] = [ \$JobCount \$Script ]) do={\r\\r
+ \n \$RemoveTicket \$Script \$MyTicket;\r\\r
+ \n \$CleanupTickets \$Script;\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n \$RemoveTicket \$Script \$MyTicket;\r\\r
+ \n \$LogPrint debug \$0 (\"Script '\" . \$Script . \"' started more than \\r
+ once\" . \\\r\\r
+ \n [ \$IfThenElse (\$WaitTime < \$WaitMax) \" and timed out waiting for\\r
+ \_lock\" \"\" ] . \"...\");\r\\r
+ \n :return false;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set SendNotification do={ :onerror Err {\r\\r
+ \n :global SendNotification2;\r\\r
+ \n \$SendNotification2 ({ origin=\$0; subject=\$1; message=\$2; link=\$3;\\r
+ \_silent=\$4 });\r\\r
+ \n} do={:global ExitOnError; \$ExitOnError \$0 \$Err}\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set SendNotification2 do={\r\\r
+ \n :local Notification \$1;\r\\r
+ \n :global NotificationFunctions;\r\\r
+ \n :foreach FunctionName,Discard in=\$NotificationFunctions do={\r\\r
+ \n (\$NotificationFunctions->\$FunctionName) (\"\\\$NotificationFunctio\\r
+ ns->\\\"\" . \$FunctionName . \"\\\"\") \$Notification;\r\\r
+ \n }\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set SymbolByUnicodeName do={\r\\r
+ \n :local Name [ :tostr \$1 ];\r\\r
+ \n :global EitherOr;\r\\r
+ \n :global SymbolsExtra;\r\\r
+ \n :local Symbols ({\r\\r
+ \n \"abacus\"=\"\\F0\\9F\\A7\\AE\";\r\\r
+ \n \"alarm-clock\"=\"\\E2\\8F\\B0\";\r\\r
+ \n \"arrow-down\"=\"\\E2\\AC\\87\";\r\\r
+ \n \"arrow-up\"=\"\\E2\\AC\\86\";\r\\r
+ \n \"calendar\"=\"\\F0\\9F\\93\\85\";\r\\r
+ \n \"card-file-box\"=\"\\F0\\9F\\97\\83\";\r\\r
+ \n \"chart-decreasing\"=\"\\F0\\9F\\93\\89\";\r\\r
+ \n \"chart-increasing\"=\"\\F0\\9F\\93\\88\";\r\\r
+ \n \"cloud\"=\"\\E2\\98\\81\";\r\\r
+ \n \"cross-mark\"=\"\\E2\\9D\\8C\";\r\\r
+ \n \"earth\"=\"\\F0\\9F\\8C\\8D\";\r\\r
+ \n \"fire\"=\"\\F0\\9F\\94\\A5\";\r\\r
+ \n \"floppy-disk\"=\"\\F0\\9F\\92\\BE\";\r\\r
+ \n \"gear\"=\"\\E2\\9A\\99\";\r\\r
+ \n \"heart\"=\"\\E2\\99\\A5\";\r\\r
+ \n \"high-voltage-sign\"=\"\\E2\\9A\\A1\";\r\\r
+ \n \"incoming-envelope\"=\"\\F0\\9F\\93\\A8\";\r\\r
+ \n \"information\"=\"\\E2\\84\\B9\";\r\\r
+ \n \"large-orange-circle\"=\"\\F0\\9F\\9F\\A0\";\r\\r
+ \n \"large-red-circle\"=\"\\F0\\9F\\94\\B4\";\r\\r
+ \n \"link\"=\"\\F0\\9F\\94\\97\";\r\\r
+ \n \"lock-with-ink-pen\"=\"\\F0\\9F\\94\\8F\";\r\\r
+ \n \"memo\"=\"\\F0\\9F\\93\\9D\";\r\\r
+ \n \"mobile-phone\"=\"\\F0\\9F\\93\\B1\";\r\\r
+ \n \"pushpin\"=\"\\F0\\9F\\93\\8C\";\r\\r
+ \n \"scissors\"=\"\\E2\\9C\\82\";\r\\r
+ \n \"scroll\"=\"\\F0\\9F\\93\\9C\";\r\\r
+ \n \"smiley-partying-face\"=\"\\F0\\9F\\A5\\B3\";\r\\r
+ \n \"smiley-smiling-face\"=\"\\E2\\98\\BA\";\r\\r
+ \n \"smiley-winking-face-with-tongue\"=\"\\F0\\9F\\98\\9C\";\r\\r
+ \n \"sparkles\"=\"\\E2\\9C\\A8\";\r\\r
+ \n \"speech-balloon\"=\"\\F0\\9F\\92\\AC\";\r\\r
+ \n \"star\"=\"\\E2\\AD\\90\";\r\\r
+ \n \"warning-sign\"=\"\\E2\\9A\\A0\";\r\\r
+ \n \"white-heavy-check-mark\"=\"\\E2\\9C\\85\"\r\\r
+ \n }, \$SymbolsExtra);\r\\r
+ \n :local Magic [ :pick [ /system/clock/get date ] 4 10 ];\r\\r
+ \n :local Special {\r\\r
+ \n \"information-04-01\"=\"\\F0\\9F\\9A\\BB\";\r\\r
+ \n \"large-orange-circle-04-01\"=\"\\F0\\9F\\8D\\8A\";\r\\r
+ \n \"large-orange-circle-10-31\"=\"\\F0\\9F\\8E\\83\";\r\\r
+ \n \"large-red-circle-04-01\"=\"\\F0\\9F\\8D\\92\" };\r\\r
+ \n :if ([ :len (\$Symbols->\$Name) ] = 0) do={\r\\r
+ \n :log warning (\$0 . \"No symbol available for name '\" . \$Name . \"\\r
+ '!\");\r\\r
+ \n :return \"\";\r\\r
+ \n }\r\\r
+ \n :return ([ \$EitherOr (\$Special->(\$Name . \$Magic)) (\$Symbols->\$Na\\r
+ me) ] . \"\\EF\\B8\\8F\");\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set SymbolForNotification do={\r\\r
+ \n :global NotificationsWithSymbols;\r\\r
+ \n :global SymbolByUnicodeName;\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :if (\$NotificationsWithSymbols != true) do={:return [ \$IfThenElse ([\\r
+ \_:len \$2 ] > 0) ([ :tostr \$2 ] . \" \") \"\" ]}\r\\r
+ \n :local Return \"\";\r\\r
+ \n :foreach Symbol in=[ :toarray \$1 ] do={:set Return (\$Return . [ \$Sy\\r
+ mbolByUnicodeName \$Symbol ])}\r\\r
+ \n :return (\$Return . \" \");\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set Unix2Dos do={:return [ :tocrlf [ :tostr \$1 ] ]}\r\\r
+ \n:set UrlEncode do={\r\\r
+ \n :local Input [ :tostr \$1 ];\r\\r
+ \n :if ([ :len \$Input ] = 0) do={:return \"\"}\r\\r
+ \n :local Return \"\";\r\\r
+ \n :local Chars (\"\\n\\r !\\\"#\\\$%&'()*+,:;<=>\?@[\\\\]^`{|}~\");\r\\r
+ \n :local Subs { \"%0A\"; \"%0D\"; \"%20\"; \"%21\"; \"%22\"; \"%23\"; \"\\r
+ %24\"; \"%25\"; \"%26\"; \"%27\";\r\\r
+ \n \"%28\"; \"%29\"; \"%2A\"; \"%2B\"; \"%2C\"; \"%3A\"; \"%3B\"; \\r
+ \"%3C\"; \"%3D\"; \"%3E\"; \"%3F\";\r\\r
+ \n \"%40\"; \"%5B\"; \"%5C\"; \"%5D\"; \"%5E\"; \"%60\"; \"%7B\"; \\r
+ \"%7C\"; \"%7D\"; \"%7E\" };\r\\r
+ \n :for I from=0 to=([ :len \$Input ] - 1) do={\r\\r
+ \n :local Char [ :pick \$Input \$I ];\r\\r
+ \n :local Replace [ :find \$Chars \$Char ];\r\\r
+ \n :if ([ :typeof \$Replace ] = \"num\") do={:set Char (\$Subs->\$Repla\\r
+ ce)}\r\\r
+ \n :set Return (\$Return . \$Char);\r\\r
+ \n }\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set IsDNSResolving do={\r\\r
+ \n :do {:resolve \"api.telegram.org\"} on-error={:return false}\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set IsFullyConnected do={\r\\r
+ \n :global IsDNSResolving;\r\\r
+ \n :global IsTimeSync;\r\\r
+ \n :if ([ \$IsDNSResolving ] = false) do={:return false};\r\\r
+ \n :if ([ \$IsTimeSync ] = false) do={:return false};\r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set IsTimeSync do={\r\\r
+ \n :global IsTimeSyncCached;\r\\r
+ \n :global IsTimeSyncResetNtp;\r\\r
+ \n :if (\$IsTimeSyncCached = true) do={:return true}\r\\r
+ \n :if ([ /system/ntp/client/get enabled ] = true) do={\r\\r
+ \n :if ([ /system/ntp/client/get status ] = \"synchronized\") do={\r\\r
+ \n :set IsTimeSyncCached true;\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :local Uptime [ /system/resource/get uptime ];\r\\r
+ \n :if ([ :typeof \$IsTimeSyncResetNtp ] = \"nothing\") do={\r\\r
+ \n :set IsTimeSyncResetNtp \$Uptime;\r\\r
+ \n }\r\\r
+ \n :if (\$Uptime - \$IsTimeSyncResetNtp < 3m) do={:return false}\r\\r
+ \n :log warning \"\$0 The ntp client is configured, but did not sync.\"\\r
+ ;\r\\r
+ \n :set IsTimeSyncResetNtp \$Uptime;\r\\r
+ \n /system/ntp/client/set enabled=no;\r\\r
+ \n :delay 20ms;\r\\r
+ \n /system/ntp/client/set enabled=yes;\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :if ([ /system/license/get ]->\"level\" = \"free\" || \\\r\\r
+ \n [ /system/resource/get ]->\"board-name\" = \"x86\") do={\r\\r
+ \n :log debug \"\$0 No ntp client configured, relying on RTC for CHR fr\\r
+ ee license and x86.\";\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :if ([ /ip/cloud/get update-time ] = true) do={\r\\r
+ \n :if ([ :typeof [ /ip/cloud/get public-address ] ] = \"ip\") do={\r\\r
+ \n :set IsTimeSyncCached true;\r\\r
+ \n :return true;\r\\r
+ \n }\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n :log debug \"\$0 No time source configured! Returning gracefully...\";\\r
+ \r\\r
+ \n :return true;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set FetchHugeFiles do={\r\\r
+ \n :local ScriptName [ :tostr \$1 ];\r\\r
+ \n :local Url [ :tostr \$2 ];\r\\r
+ \n :local CheckCert [ :tostr \$3 ];\r\\r
+ \n\r\\r
+ \n :global CleanName;\r\\r
+ \n :global FetchUserAgentStr;\r\\r
+ \n :global GetRandom20CharAlNum;\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :global LogPrint;\r\\r
+ \n :global MkDir;\r\\r
+ \n :global RmDir;\r\\r
+ \n :global RmFile;\r\\r
+ \n :global WaitForFile;\r\\r
+ \n\r\\r
+ \n :set CheckCert [ \$IfThenElse (\$CheckCert = \"false\") \"no\" \"yes-w\\r
+ ithout-crl\" ];\r\\r
+ \n\r\\r
+ \n :local DirName (\"tmpfs/\" . [ \$CleanName \$ScriptName ]);\r\\r
+ \n :if ([ \$MkDir \$DirName ] = false) do={\r\\r
+ \n \$LogPrint error \$0 (\"Failed creating directory!\");\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :local FileName (\$DirName . \"/\" . [ \$CleanName \$0 ] . \"-\" . [ \\r
+ \$GetRandom20CharAlNum ]);\r\\r
+ \n :onerror Err {\r\\r
+ \n /tool/fetch check-certificate=\$CheckCert \$Url dst-path=\$FileName \\r
+ \\\r\\r
+ \n http-header-field=({ [ \$FetchUserAgentStr \$ScriptName ] }) as-va\\r
+ lue;\r\\r
+ \n } do={\r\\r
+ \n :if ([ \$WaitForFile \$FileName 500ms ] = true) do={\r\\r
+ \n \$RmFile \$FileName;\r\\r
+ \n }\r\\r
+ \n \$LogPrint debug \$0 (\"Failed downloading from \" . \$Url . \" - \"\\r
+ \_. \$Err);\r\\r
+ \n \$RmDir \$DirName;\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :if ([ \$WaitForFile \$FileName 5s ] = false) do={\r\\r
+ \n \$LogPrint debug \$0 (\"The file downloaded from \" . \$Url . \" did\\r
+ \_not show up.\");\r\\r
+ \n :return false;\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :local FileSize [ /file/get \$FileName size ];\r\\r
+ \n :local Return \"\";\r\\r
+ \n :local VarSize 0;\r\\r
+ \n :while (\$VarSize != \$FileSize) do={\r\\r
+ \n :set Return (\$Return . ([ /file/read offset=\$VarSize chunk-size=32\\r
+ 768 file=\$FileName as-value ]->\"data\"));\r\\r
+ \n :set FileSize [ /file/get \$FileName size ];\r\\r
+ \n :set VarSize [ :len \$Return ];\r\\r
+ \n :if (\$VarSize > \$FileSize) do={\r\\r
+ \n :delay 100ms;\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n \$RmDir \$DirName;\r\\r
+ \n :return \$Return;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set FetchUserAgentStr do={\r\\r
+ \n :local Caller [ :tostr \$1 ];\r\\r
+ \n :global GlobalScriptsUrl;\r\\r
+ \n :global CommitBrief;\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :local Resource [ /system/resource/get ];\r\\r
+ \n :return (\"User-Agent: Mikrotik/\" . \$Resource->\"version\" . \" \" .\\r
+ \_\$Resource->\"architecture-name\" . \\\r\\r
+ \n \" \" . \$Caller . \"/Fetch (\" . \$GlobalScriptsUrl . \"; \" . [ \$\\r
+ CommitBrief ] . \")\");\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:set ScriptInstallUpdate do={ :onerror Err {\r\\r
+ \n :local Scripts [ :toarray \$1 ];\r\\r
+ \n :local NewComment [ :tostr \$2 ];\r\\r
+ \n :global InitSetup;\r\\r
+ \n\r\\r
+ \n :global CommitId;\r\\r
+ \n :global ScriptUpdatesCRLF;\r\\r
+ \n :global GlobalConfVersion;\r\\r
+ \n :global Identity;\r\\r
+ \n :global CertificateAvailable;\r\\r
+ \n :global CheckSumsVerify;\r\\r
+ \n :global GlobalScriptsUrl;\r\\r
+ \n :global SumsDirAndFileName;\r\\r
+ \n :global GlobalScriptsUrlSuffix;\r\\r
+ \n :global EitherOr;\r\\r
+ \n :global FetchUserAgentStr;\r\\r
+ \n :global Grep;\r\\r
+ \n :global IfThenElse;\r\\r
+ \n :global LogPrint;\r\\r
+ \n :global ParseKeyValueStore;\r\\r
+ \n :global RequiredRouterOS;\r\\r
+ \n :global SendNotification2;\r\\r
+ \n :global SymbolForNotification;\r\\r
+ \n :global ValidateSyntax;\r\\r
+ \n :global CommentsInScripts;\r\\r
+ \n\r\\r
+ \n :if ([ \$CertificateAvailable \"Root YE\" \"fetch\" ] = false) do={\r\\r
+ \n \$LogPrint warning \$0 (\"Downloading certificate failed, trying wit\\r
+ hout.\");\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :foreach Script in=\$Scripts do={\r\\r
+ \n :if ([ :len [ /system/script/find where name=\$Script ] ] = 0) do={\\r
+ \r\\r
+ \n \$LogPrint info \$0 (\"Adding new script: \" . \$Script);\r\\r
+ \n /system/script/add name=\$Script owner=\$Script source=\"#!rsc by \\r
+ Vados\\n\" comment=\$NewComment;\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :local CommitIdBefore \$CommitId;\r\\r
+ \n :local GlobalConfVersionBefore \$GlobalConfVersion;\r\\r
+ \n :local ReloadGlobal false;\r\\r
+ \n :local DeviceMode [ /system/device-mode/get ];\r\\r
+ \n\r\\r
+ \n :if (\$CheckSumsVerify = true) do={\r\\r
+ \n :local CheckSums ({});\r\\r
+ \n :do {\r\\r
+ \n :local Url (\$GlobalScriptsUrl . \$SumsDirAndFileName . \$GlobalScr\\r
+ iptsUrlSuffix);\r\\r
+ \n \$LogPrint debug \$0 (\"Fetching checksums from url: \" . \$Url);\\r
+ \r\\r
+ \n :set CheckSums [ :deserialize from=json ([ /tool/fetch check-certi\\r
+ ficate=yes-without-crl \\\r\\r
+ \n http-header-field=({ [ \$FetchUserAgentStr \$0 ] }) \$Url output\\r
+ =user as-value ]->\"data\") ];\r\\r
+ \n } on-error={ \$LogPrint warning \$0 (\"Err = \" . \$Err); }\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :foreach Script in=[ /system/script/find where source~\"^#!rsc by Vado\\r
+ s\" ] do={\r\\r
+ \n :local ScriptVal [ /system/script/get \$Script ];\r\\r
+ \n :local ScriptInfo [ \$ParseKeyValueStore (\$ScriptVal->\"comment\") \\r
+ ];\r\\r
+ \n :local SourceNew;\r\\r
+ \n\r\\r
+ \n :foreach Scheduler in=[ /system/scheduler/find where on-event~(\"\\\\r
+ \\b\" . \$ScriptVal->\"name\" . \"\\\\b\") ] do={\r\\r
+ \n :local SchedulerVal [ /system/scheduler/get \$Scheduler ];\r\\r
+ \n :if (\$ScriptVal->\"policy\" != \$SchedulerVal->\"policy\") do={\r\\r
+ \n \$LogPrint warning \$0 (\"Policies differ for script '\" . \$Scr\\r
+ iptVal->\"name\" . \"' and its scheduler '\" . \$SchedulerVal->\"name\" . \\r
+ \"'!\");\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :do {\r\\r
+ \n :if (\$ScriptInfo->\"ignore\" = true) do={\r\\r
+ \n \$LogPrint debug \$0 (\"Ignoring script '\" . \$ScriptVal->\"nam\\r
+ e\" . \"', as requested.\");\r\\r
+ \n :error true;\r\\r
+ \n }\r\\r
+ \n :if (\$CheckSumsVerify = true) do={\r\\r
+ \n :local CheckSum (\$CheckSums->(\$ScriptVal->\"name\"));\r\\r
+ \n :if ([ :len (\$ScriptInfo->\"base-url\") ] = 0 && [ :len (\$Scri\\r
+ ptInfo->\"url-suffix\") ] = 0 && \\\r\\r
+ \n [ :convert transform=md5 to=hex [ :tolf (\$ScriptVal->\"sou\\r
+ rce\") ] ] = \$CheckSum) do={\r\\r
+ \n \$LogPrint debug \$0 (\"Checksum for script '\" . \$ScriptVal-\\r
+ >\"name\" . \"' matches, ignoring.\");\r\\r
+ \n :error true;\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :if ([ :len (\$ScriptInfo->\"certificate\") ] > 0) do={\r\\r
+ \n :if ([ \$CertificateAvailable (\$ScriptInfo->\"certificate\") \"\\r
+ fetch\" ] = false) do={\r\\r
+ \n \$LogPrint warning \$0 (\"Downloading certificate failed, tryi\\r
+ ng without.\");\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :onerror Err {\r\\r
+ \n :local BaseUrl [ \$EitherOr (\$ScriptInfo->\"base-url\") \$Globa\\r
+ lScriptsUrl ];\r\\r
+ \n :local UrlSuffix [ \$EitherOr (\$ScriptInfo->\"url-suffix\") \$G\\r
+ lobalScriptsUrlSuffix ];\r\\r
+ \n :local Url (\$BaseUrl . \$ScriptVal->\"name\" . \".rsc\" . \$Url\\r
+ Suffix);\r\\r
+ \n \$LogPrint warning \$0 (\"Fetching script '\" . (\$ScriptVal->\"\\r
+ name\") . \"' from url: \" . \$Url);\r\\r
+ \n :local Result [ /tool/fetch check-certificate=yes-without-crl \\\\r
+ \r\\r
+ \n http-header-field=({ [ \$FetchUserAgentStr \$0 ] }) \$Url outp\\r
+ ut=user as-value ];\r\\r
+ \n :if (\$Result->\"status\" = \"finished\") do={\r\\r
+ \n :set SourceNew [ :tolf (\$Result->\"data\") ];\r\\r
+ \n } \r\\r
+ \n } do={\r\\r
+ \n \$LogPrint warning \$0 (\"Failed fetching script '\" . \$ScriptV\\r
+ al->\"name\" . \"': \" . \$Err);\r\\r
+ \n :if (\$Err != \"Fetch failed with status 404\") do={\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n :if (\$ScriptVal->\"source\" = \"#!rsc by Vados\") do={\r\\r
+ \n \$LogPrint warning \$0 (\"Removing dummy. Typo on installation\\r
+ \?\");\r\\r
+ \n /system/script/remove \$Script;\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n :if (\$CheckSumsVerify = true) do={\r\\r
+ \n :if ([ :len (\$ScriptInfo->\"base-url\") ] = 0 && [ :len (\$Sc\\r
+ riptInfo->\"url-suffix\") ] = 0 && \\\r\\r
+ \n [ :len \$CheckSum ] = 0) do={\r\\r
+ \n \$LogPrint warning \$0 (\"Added the script manually\? Skip u\\r
+ pdates with 'ignore=true' in comment.\");\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :if ([ :len \$SourceNew ] = 0) do={\r\\r
+ \n \$LogPrint debug \$0 (\"No update for script '\" . (\$ScriptVal-\\r
+ >\"name\") . \"'.\");\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :local SourceCRLF [ :tocrlf \$SourceNew ];\r\\r
+ \n :if (\$InitSetup != true && ((\$ScriptVal->\"name\") != \"AM-Globa\\r
+ lConfig\" || (\$ScriptVal->\"name\") != \"AM-GlobalFunc\")) do={\r\\r
+ \n :if (\$SourceNew = (\$ScriptVal->\"source\") || \$SourceCRLF = (\\r
+ \$ScriptVal->\"source\")) do={\r\\r
+ \n \$LogPrint debug \$0 (\"Script '\" . (\$ScriptVal->\"name\") \\r
+ . \"' source did not change. End of lines set to CRLF.\");\r\\r
+ \n if (\$ScriptUpdatesCRLF = false) do={\r\\r
+ \n :put [ :tolf \$SourceNew ];\r\\r
+ \n \$LogPrint debug \$0 (\"Script '\" . (\$ScriptVal->\"name\"\\r
+ ) . \"' source update end of lines to LF.\");\r\\r
+ \n }\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :if ([ :pick \$SourceNew 0 14 ] != \"#!rsc by Vados\") do={\r\\r
+ \n \$LogPrint warning \$0 (\"Looks like new script '\" . \$ScriptVa\\r
+ l->\"name\" . \"' is not valid (missing shebang = '\$shebang') Ignoring!\"\\r
+ );\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :if (\$CommentsInScripts = true) do={\r\\r
+ \n :local CommentLine [ \$Grep \$SourceNew (\"\\23 Script comment:\\r
+ \_\") ];\r\\r
+ \n :if ([ :len \$CommentLine ] = 0) do={\r\\r
+ \n \$LogPrint debug \$0 (\"The search in new script '\" . (\$Scr\\r
+ iptVal->\"name\") . \"' for comment in script body, is not found result Ig\\r
+ noring!\");\r\\r
+ \n :error false;\r\\r
+ \n } else={\r\\r
+ \n :if ([ :len (\$ScriptVal->\"comment\")] = 0 || [ :len (\$Scri\\r
+ ptVal->\"comment\")] != [ :pick \$CommentLine ([ :find \$CommentLine \":\"\\r
+ ] + 2) [ :len \$CommentLine] ]) do={\r\\r
+ \n \$LogPrint debug \$0 (\"Exsiting comment for script '\" . (\\r
+ \$ScriptVal->\"name\") . \"' is '\" . (\$ScriptVal->\"comment\") . \"'.\")\\r
+ ;\r\\r
+ \n :set (\$ScriptVal->\"comment\") [ :pick \$CommentLine ([ :f\\r
+ ind \$CommentLine \":\"] + 2) [ :len \$CommentLine] ];\r\\r
+ \n \$LogPrint debug \$0 (\"New comment (\" . (\$ScriptVal->\"c\\r
+ omment\") . \") for script '\" . (\$ScriptVal->\"name\") . \"' has been ad\\r
+ ded!\");\r\\r
+ \n } else={\r\\r
+ \n \$LogPrint debug \$0 (\"Comment for script '\" . (\$ScriptV\\r
+ al->\"name\") . \"' did not change.\");\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n } \r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :local RequiredROS ([ \$ParseKeyValueStore [ \$Grep \$SourceNew (\\r
+ \"\\23 requires RouterOS, \") ] ]->version);\r\\r
+ \n :if ([ \$RequiredRouterOS \$0 [ \$EitherOr \$RequiredROS \"0.0\" ]\\r
+ \_false ] = false) do={\r\\r
+ \n \$LogPrint warning \$0 (\"The script '\" . (\$ScriptVal->\"name\\r
+ \") . \"' requires RouterOS \" . \\\r\\r
+ \n \$RequiredROS . \", which is not met by your installation. I\\r
+ gnoring!\");\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n :local RequiredDM [ \$ParseKeyValueStore [ \$Grep \$SourceNew (\"\\r
+ \\23 requires device-mode, \") ] ];\r\\r
+ \n :local MissingDM ({});\r\\r
+ \n :foreach Feature,Value in=\$RequiredDM do={\r\\r
+ \n :if ([ :typeof (\$DeviceMode->\$Feature) ] = \"bool\" && (\$Devi\\r
+ ceMode->\$Feature) = false) do={\r\\r
+ \n :set MissingDM (\$MissingDM, \$Feature);\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :if ([ :len \$MissingDM ] > 0) do={\r\\r
+ \n \$LogPrint warning \$0 (\"The script '\" . (\$ScriptVal->\"name\\r
+ \") . \"' requires disabled \" . \\\r\\r
+ \n \"device-mode features (\" . [ :tostr \$MissingDM ] . \"). I\\r
+ gnoring!\");\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :if ([ \$ValidateSyntax \$SourceNew ] = false) do={\r\\r
+ \n \$LogPrint warning \$0 (\"Syntax validation for script '\" . (\$\\r
+ ScriptVal->\"name\") . \"' failed! Ignoring!\");\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n \r\\r
+ \n :log info (\"Updating script: \" . (\$ScriptVal->\"name\") . \" Sc\\r
+ ript comment: \" . (\$ScriptVal->\"comment\"));\r\\r
+ \n\r\\r
+ \n /system/script/set owner=(\$ScriptVal->\"name\") comment=(\$Script\\r
+ Val->\"comment\") \\\r\\r
+ \n source=[ \$IfThenElse (\$ScriptUpdatesCRLF = true) \$SourceCRL\\r
+ F \$SourceNew ] \$Script;\r\\r
+ \n :if (\$ScriptVal->\"name\" = \"AM-GlobalConfig\" || \\\r\\r
+ \n \$ScriptVal->\"name\" = \"AM-GlobalFunc\" || \\\r\\r
+ \n \$ScriptVal->\"name\" ~ (\"^(AM-GlobalFunc\\\\.d|mod)/.\")) d\\r
+ o={\r\\r
+ \n :set ReloadGlobal true;\r\\r
+ \n }\r\\r
+ \n } on-error={ }\r\\r
+ \n }\r\\r
+ \n :if (\$ReloadGlobal = true) do={\r\\r
+ \n \$LogPrint info \$0 (\"Reloading global configuration and functions.\\r
+ \");\r\\r
+ \n :onerror Err {\r\\r
+ \n :global InitSetup (a);\r\\r
+ \n /system/script {run AM-GlobalConfig; run AM-GlobalFunc;};\r\\r
+ \n } do={\$LogPrint error \$0 (\"Reloading global configuration and fun\\r
+ ctions failed! \" . \$Err)}\r\\r
+ \n }\r\\r
+ \n :if (\$GlobalConfVersionBefore > \$GlobalConfVersion) do={\r\\r
+ \n \$LogPrint warning \$0 (\"The configuration version decreased from \\r
+ \" . \\\r\\r
+ \n \$GlobalConfVersionBefore . \" to \" . \$GlobalConfVersion . \\\r\\r
+ \n \". Installed an older version\?\");\r\\r
+ \n }\r\\r
+ \n :if (\$GlobalConfVersionBefore < \$GlobalConfVersion) do={\r\\r
+ \n :global GlobalConfChanges;\r\\r
+ \n :global GlobalConfMigration;\r\\r
+ \n :local ChangeLogCode;\r\\r
+ \n :if ([ :len \$ChangeLogCode ] > 0) do={\r\\r
+ \n :if ([ \$ValidateSyntax \$ChangeLogCode ] = true) do={\r\\r
+ \n :onerror Err {\r\\r
+ \n [ :parse \$ChangeLogCode ];\r\\r
+ \n } do={\$LogPrint warning \$0 (\"The changelog failed to run: \" \\r
+ . \$Err)}\r\\r
+ \n } else={\$LogPrint warning \$0 (\"The changelog failed syntax vali\\r
+ dation!\")}\r\\r
+ \n }\r\\r
+ \n :if ([ :len \$GlobalConfMigration ] > 0) do={\r\\r
+ \n :for I from=(\$GlobalConfVersionBefore + 1) to=\$GlobalConfVersion\\r
+ \_do={\r\\r
+ \n :local Migration (\$GlobalConfMigration->[ :tostr \$I ]);\r\\r
+ \n :do {\r\\r
+ \n :if ([ :typeof \$Migration ] != \"str\") do={\r\\r
+ \n \$LogPrint debug \$0 (\"Migration code for change \" . \$I .\\r
+ \_\" is not available.\");\r\\r
+ \n :error false;\r\\r
+ \n }\r\\r
+ \n :if ([ \$ValidateSyntax \$Migration ] = false) do={\r\\r
+ \n \$LogPrint warning \$0 (\"Migration code for change \" . \$I\\r
+ \_. \" failed syntax validation!\");\r\\r
+ \n :error false}\r\\r
+ \n \$LogPrint info \$0 (\"Applying migration for change \" . \$I \\r
+ . \": \" . \$Migration);\r\\r
+ \n :onerror Err {\r\\r
+ \n [ :parse \$Migration ];\r\\r
+ \n } do={\$LogPrint warning \$0 (\"Migration code for change \" .\\r
+ \_\$I . \" failed to run: \" . \$Err)}\r\\r
+ \n } on-error={ }\r\\r
+ \n }\r\\r
+ \n }\r\\r
+ \n :local NotificationMessage (\"The configuration version on \" . \$Id\\r
+ entity . \" increased \" . \\\r\\r
+ \n \"to \" . \$GlobalConfVersion . \", current configuration may nee\\r
+ d modification. \" . \\\r\\r
+ \n \"Please review and update global-config-overlay, then re-run glo\\r
+ bal-config.\");\r\\r
+ \n \$LogPrint info \$0 (\$NotificationMessage);\r\\r
+ \n :if ([ :len \$GlobalConfChanges ] > 0) do={\r\\r
+ \n :set NotificationMessage (\$NotificationMessage . \"\\n\\nChanges:\\r
+ \");\r\\r
+ \n :for I from=(\$GlobalConfVersionBefore + 1) to=\$GlobalConfVersion\\r
+ \_do={\r\\r
+ \n :local Change (\$GlobalConfChanges->[ :tostr \$I ]);\r\\r
+ \n :set NotificationMessage (\$NotificationMessage . \"\\n \" . \\\\r
+ \r\\r
+ \n [ \$SymbolForNotification \"pushpin\" \"*\" ] . \$Change);\r\\r
+ \n \$LogPrint info \$0 (\"Change \" . \$I . \": \" . \$Change);\r\\r
+ \n }\r\\r
+ \n } else={\r\\r
+ \n :set NotificationMessage (\$NotificationMessage . \"\\n\\nNews and\\r
+ \_changes are not available.\");\r\\r
+ \n\r\\r
+ \n }\r\\r
+ \n\r\\r
+ \n :if ([ :len \$GlobalConfChanges ] > 0) do={ :set GlobalConfChanges; \\r
+ } else={ :global GlobalConfChanges (a); }\r\\r
+ \n :if ([ :len \$GlobalConfMigration ] > 0) do={ :set GlobalConfMigrati\\r
+ on; } else={ :global GlobalConfMigration (a); }\r\\r
+ \n }\r\\r
+ \n} do={\r\\r
+ \n :global ExitOnError; \$ExitOnError \$0 \$Err;\r\\r
+ \n} }\r\\r
+ \n\r\\r
+ \n# load modules\r\\r
+ \n:foreach Script in=[ /system/script/find where name ~ \"^(global-functio\\r
+ ns\\\\.d|mod)/.\" ] do={\r\\r
+ \n :local ScriptVal [ /system/script/get \$Script ];\r\\r
+ \n :if ([ \$ValidateSyntax (\$ScriptVal->\"source\") ] = true) do={\r\\r
+ \n :onerror Err {\r\\r
+ \n /system/script/run \$Script;\r\\r
+ \n } do={\r\\r
+ \n \$LogPrint error \$0 (\"Module '\" . \$ScriptVal->\"name\" . \"' f\\r
+ ailed to run: \" . \$Err);\r\\r
+ \n }\r\\r
+ \n } else={\r\\r
+ \n \$LogPrint error \$0 (\"Module '\" . \$ScriptVal->\"name\" . \"' fai\\r
+ led syntax validation, skipping.\");\r\\r
+ \n }\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n# Add and fix global scheduler\r\\r
+ \n:put \"Add or/and fix Global scheduler...\";\r\\r
+ \n:local OnEvent \"/system/script { run AM-GlobalConfig; run AM-GlobalFunc\\r
+ ; }\";\r\\r
+ \n:local Comment \"Every Day Set Global Environment Variables\";\r\\r
+ \n:if ([ :len [ /system/scheduler/find where name=\"AM-SetGlobalEnv\" ] ] \\r
+ = 0) do={\r\\r
+ \n /system/scheduler/add name=\"AM-SetGlobalEnv\" comment=\$Comment on-ev\\r
+ ent=\$OnEvent start-time=startup;\r\\r
+ \n}\r\\r
+ \n:if ([ /system/scheduler/get \"AM-SetGlobalEnv\" comment ] != \$Comment)\\r
+ \_do={\r\\r
+ \n /system/scheduler/set \"AM-SetGlobalEnv\" comment=\$Comment;\r\\r
+ \n}\r\\r
+ \n:if ([ /system/scheduler/get \"AM-SetGlobalEnv\" on-event ] != \$OnEvent\\r
+ ) do={\r\\r
+ \n /system/scheduler/set \"AM-SetGlobalEnv\" on-event=\$OnEvent;\r\\r
+ \n}\r\\r
+ \n# Add Update Script scheduler\r\\r
+ \n:put \"Add or/and fix Update Script scheduler\";\r\\r
+ \n:set OnEvent \":global ScriptInstallUpdate; \\\$ScriptInstallUpdate;\";\\r
+ \r\\r
+ \n:set Comment \"Every Day Check For Update Scripts\";\r\\r
+ \n:if ([ :len [ /system/scheduler/find where name=\"AM-ScriptInstallUpdate\\r
+ \" ] ] = 0) do={\r\\r
+ \n/system/scheduler/add name=\"AM-ScriptInstallUpdate\" comment=\$Comment \\r
+ start-time=startup interval=1d on-event=\$OnEvent;\r\\r
+ \n}\r\\r
+ \n\r\\r
+ \n:onerror Err {\r\\r
+ \n :global GlobalConfReady;\r\\r
+ \n :retry { :if (\$GlobalConfReady != true) do={ :error (\"Global configs\\r
+ \_not ready.\"); }; } delay=100ms max=5;\r\\r
+ \n\r\\r
+ \n:log warning (\"This script \$ScriptName Loaded \" . \\\r\\r
+ \n [ \$IfThenElse (\$CommitId != \"unknown\") ([ \$CommitBrief ] . \" \\r
+ \") ] . \\\r\\r
+ \n \"on \" . \$devBoardName . \"\\nRouterOS: \" . \$devCurVersion . \"\\r
+ \\nArchitecture: \" . \$devCurArch . \"\\nIdentity: \" . \$Identity);\r\\r
+ \n # signal we are ready\r\\r
+ \n:set GlobalFuncReady true;\r\\r
+ \n:set ExitOK true;\r\\r
+ \n\r\\r
+ \n:log info (\$0 . \"Global configs ready!\");\r\\r
+ \n} do={\r\\r
+ \n :global ExitOnError; \$ExitOnError \$0 \$Err;\r\\r
+ \n}\r\\r
+ \n"\r
+add dont-require-permissions=no name=mod/AM-Certs-By-Ident owner=admin \\r
+ policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon \\r
+ source="#!rsc by Vados\\r
+ \n# RouterOS script: AM-Certs-By-Ident\\r
+ \n# Script comment: Download custom Certificates By Routers Identity \\r
+ \n# Copyright (c) 2005-2026 Vados <vados@vados.ru>\\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#\\r
+ \n# CloudFlare\\r
+ \n#/tool/fetch mode=https url=https://cacerts.digicert.com/DigiCertGlobalR\\r
+ ootCA.crt.pem;\\r
+ \n#/certificate/import file-name=DigiCertGlobalRootCA.crt.pem passphrase=\\r
+ \"\";\\r
+ \n#/tool/ fetch mode=https url=https://cacerts.digicert.com/DigiCertGlobal\\r
+ G2TLSRSASHA2562020CA1-1.crt.pem;\\r
+ \n#/certificate/import file-name=DigiCertGlobalG2TLSRSASHA2562020CA1-1.crt\\r
+ .pem passphrase=\"\";\\r
+ \n# Quad9\\r
+ \n#/tool/fetch mode=https url=\"https://cacerts.digicert.com/DigiCertGloba\\r
+ lG3TLSECCSHA3842020CA1-1.crt.pem\"\\r
+ \n#/certificate/import file-name=DigiCertGlobalG3TLSECCSHA3842020CA1-1.crt\\r
+ .pem passphrase=\"\";\\r
+ \n\\r
+ \n:global GlobalScriptsUrl;\\r
+ \n:local UrlSuffix [/system/identity/get name];\\r
+ \n:local UrlDir \"certs/\";\\r
+ \n:local CertUrl (\$GlobalScriptsUrl . \$UrlDir . \$UrlSuffix .\"/\");\\r
+ \n\\r
+ \n:log error \$CertUrl;\\r
+ \n\\r
+ \n:local CertName \"DigiCert-Global-Root-CA.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-Global-Root-CA\" [ find where common-na\\r
+ me=\"DigiCert Global Root CA\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-Assured-ID-Root-CA.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-Assured-ID-Root-CA\" [ find where commo\\r
+ n-name=\"DigiCert Assured ID Root CA\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-Assured-ID-Root-G2.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-Assured-ID-Root-G2\" [ find where commo\\r
+ n-name=\"DigiCert Assured ID Root G3\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-Assured-ID-Root-G3.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-Assured-ID-Root-G3\" [ find where commo\\r
+ n-name=\"DigiCert Assured ID Root G3\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-Global-G2-TLS-RSA-SHA256-2020-CA1.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-Global-G2-TLS-RSA-SHA256-2020-CA1\" [ f\\r
+ ind where common-name=\"DigiCert Global G2 TLS RSA SHA256 2020 CA1\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-Global-G3-TLS-ECC-SHA384-2020-CA1.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-Global-G3-TLS-ECC-SHA384-2020-CA1\" [ f\\r
+ ind where common-name=\"DigiCert Global G3 TLS ECC SHA384 2020 CA1\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-Global-Root-G2.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-Global-Root-G2\" [ find where common-na\\r
+ me=\"DigiCert Global Root G2\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-Global-Root-G3.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-Global-Root-G3\" [ find where common-na\\r
+ me=\"DigiCert Global Root G3\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-TLS-ECC-P384-Root-G5.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-TLS-ECC-P384-Root-G5\" [ find where com\\r
+ mon-name=\"DigiCert TLS ECC P384 Root G5\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-TLS-RSA4096-Root-G5.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-TLS-RSA4096-Root-G5\" [ find where comm\\r
+ on-name=\"DigiCert TLS RSA4096 Root G5\" ];\\r
+ \n\\r
+ \n:set CertName \"DigiCert-Trusted-Root-G4.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"DigiCert-Trusted-Root-G4\" [ find where common-n\\r
+ ame=\"DigiCert Trusted Root G4\" ];\\r
+ \n\\r
+ \n:set CertName \"GTS-Root-R4.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"GTS-Root-R4\" [ find where common-name=\"GTS Roo\\r
+ t R4\" ];\\r
+ \n\\r
+ \n:set CertName \"Go-Daddy-Root-Certificate-Authority-G2.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"Go-Daddy-Root-Certificate-Authority-G2\" [ find \\r
+ where common-name=\"Go Daddy Root Certificate Authority - G2\" ];\\r
+ \n\\r
+ \n:set CertName \"ISRG-Root-X1.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"ISRG-Root-X1\" [ find where common-name=\"ISRG R\\r
+ oot X1\" ];\\r
+ \n\\r
+ \n:set CertName \"Root-YE.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"Root-YE\" [ find where common-name=\"Root YE\" ]\\r
+ ;\\r
+ \n\\r
+ \n:set CertName \"Starfield-Root-Certificate-Authority-G2.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"Starfield-Root-Certificate-Authority-G2\" [ find\\r
+ \_where common-name=\"Starfield Root Certificate Authority - G2\" ];\\r
+ \n\\r
+ \n:set CertName \"USERTrust-RSA-Certification-Authority.pem\";\\r
+ \n/tool/fetch mode=https url=(\$CertUrl . \$CertName);\\r
+ \n/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n/certificate/set name=\"USERTrust-RSA-Certification-Authority\" [ find w\\r
+ here common-name=\"USERTrust RSA Certification Authority\" ];\\r
+ \n\\r
+ \n#/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n#/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n#:set CertName \"GTS-Root-RX.pem\";\\r
+ \n#/tool/fetch mode=https url=(\$AmScriptsUrl . \"certs/\" . \$CertName);\\r
+ \n#/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n#internet\\r
+ \n#/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n#:set CertName \"ISRG-Root-X2.pem\";\\r
+ \n#/tool/fetch mode=https url=(\$AmScriptsUrl . \"certs/\" . \$CertName);\\r
+ \n#/certificate/import file-name=\$CertName passphrase=\"\";\\r
+ \n\\r
+ \n\\r
+ \n#/ip/dns/set allow-remote-requests=yes doh-max-concurrent-queries=100 do\\r
+ h-max-server-connections=20 use-doh-server=https://security.cloudflare-dns\\r
+ .com/dns-query verify-doh-cert=yes;\\r
+ \n#/ip/dns/static remove [find where address=1.1.1.1];\\r
+ \n#/ip/dns/static add address=1.1.1.1 name=security.cloudflare-dns.com com\\r
+ ment=\"cloudflare-dns IPv4 1\";\\r
+ \n#/ip/dns/ static remove [find where address=1.0.0.1];\\r
+ \n#/ip/dns/static add address=1.0.0.1 name=security.cloudflare-dns.com com\\r
+ ment=\"cloudflare-dns IPv4 2\"\\r
+ \n#/ip dns static add address=2606:4700:4700::1111 name=security.cloudflar\\r
+ e-dns.com type=AAAA\\r
+ \n#/ip dns static add address=2606:4700:4700::1001 name=security.cloudflar\\r
+ e-dns.com type=AAAA\\r
+ \n#/ip/dns set servers=\"1.0.0.1, 8.8.4.4\";\\r
+ \n#/ip/dns set servers=\"\";"\r
+add dont-require-permissions=no name=fetchCustom owner=vados policy=\\r
+ ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="\\r
+ \r\\r
+ \n:global GlobalScriptsUrl;\r\\r
+ \n/tool/fetch mode=https url=(\$GlobalScriptsUrl . \".bak/mikro_bak_rsa@10\\r
+ .30.30.86.pub\") dst-path=\"/mikro_bak_rsa@10.30.30.86.pub\";\\r
+ \n"\r
+/tool e-mail\r
+set certificate-verification=no from=MikroVados<vadossio@icloud.com> port=587 \\r
+ server=smtp.mail.me.com tls=starttls user=vadossio@icloud.com\r
--- /dev/null
+119,120c119
+< add comment="Script for setup routeros script system" \\r
+< dont-require-permissions=no name=AM-setup owner=AM-setup policy=\\r
+---
+> add dont-require-permissions=no name=AM-setup owner=AM-setup policy=\\r
+164c163
+< \n:global Identity [/system/identity/get name];\r\\r
+---
+> \n:global Identity [ /system identity get name ];\r\\r
+340,370c339,368
+< add comment="Global Config Script" dont-require-permissions=no name=\\r
+< AM-GlobalConfig owner=AM-GlobalConfig policy=\\r
+< ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\\r
+< !rsc by Vados\r\\r
+< \n# RouterOS script: AM-GlobalConfig\r\\r
+< \n# Script comment: Global Config Script\r\\r
+< \n# Copyright (c) 2007-2026 Vados <vados@vados.ru>\r\\r
+< \n#\r\\r
+< \n#\r\\r
+< \n# Warning: Dont touch this line!\r\\r
+< \n:global Identity [/system/identity/get name];\r\\r
+< \n:global GlobalConfReady false;\r\\r
+< \n#\r\\r
+< \n#\r\\r
+< \n# Global Url For Amster scripts to fetch\r\\r
+< \n# most be defined in AM-Init-Script or AM-setup scripts\r\\r
+< \n:global GlobalScriptsUrl \"https://ros.vados.ru/\";\r\\r
+< \n:global ScriptsUrlSuffix (a);\r\\r
+< \n:global CheckSumsVerify true;\r\\r
+< \n\r\\r
+< \n:global ScriptUpdatesCRLF true;\r\\r
+< \n:global CommentsInScripts true;\r\\r
+< \n\r\\r
+< \n# Debug output:\r\\r
+< \n:global PrintDebug true; #false;\r\\r
+< \n\r\\r
+< \n# Debug output for specific script:\r\\r
+< \n#:set (\$PrintDebugOverride->\"AM-GlobalFunc\") true;\r\\r
+< \n\r\\r
+< \n# Debug logs\r\\r
+< \n# Other actions (disk, email, remote or support) can be used as well.\r\\r
+---
+> add dont-require-permissions=no name=AM-GlobalConfig owner=AM-GlobalConfig \\r
+> policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon \\r
+> source="#!rsc by Vados\\r
+> \n# RouterOS script: AM-GlobalConfig\\r
+> \n# Script comment: Global Config Script\\r
+> \n# Copyright (c) 2007-2026 Vados <vados@vados.ru>\\r
+> \n#\\r
+> \n#\\r
+> \n# Warning: Dont touch this line!\\r
+> \n:global Identity [ /system identity get name ];\\r
+> \n:global GlobalConfReady false;\\r
+> \n#\\r
+> \n#\\r
+> \n# Global Url For Amster scripts to fetch\\r
+> \n# most be defined in AM-Init-Script or AM-setup scripts\\r
+> \n:global GlobalScriptsUrl \"https://ros.vados.ru/\";\\r
+> \n:global ScriptsUrlSuffix (a);\\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
+372,381c370,379
+< eworm.de/main/DEBUG.html#debug-output).\r\\r
+< \n#/system/logging/add topics=script,debug action=memory;\r\\r
+< \n\r\\r
+< \n:global MikrotikUpgradeUrl \"https://upgrade.mikrotik.com/routeros\";\r\\r
+< \n:global Domain \"WORKGROUP\";\r\\r
+< \n\r\\r
+< \n:global EmailGeneralTo \"vados@vados.ru\";\r\\r
+< \n#:global EmailGeneralCc \"\";\r\\r
+< \n\r\\r
+< \n# \$ScriptInstallUpdate mod/notification-telegram\r\\r
+---
+> 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\";\\r
+> \n#:global EmailGeneralCc \"\";\\r
+> \n\\r
+> \n# \$ScriptInstallUpdate mod/notification-telegram\\r
+383,386c381,384
+< \";\r\\r
+< \n:global TelegramChatId \"-1003631309063\"; #\"454403445\";\r\\r
+< \n# Use this to send notifications to a specific topic in group.\r\\r
+< \n#:global TelegramThreadId \"30\";\r\\r
+---
+> \";\\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
+388,411c386,409
+< !)\r\\r
+< \n# or user names. Groups allow to chat with devices simultaneously.\r\\r
+< \n:global TelegramChatIdsTrusted {\r\\r
+< \n \"454403445\"\r\\r
+< \n \"-1003631309063\"\r\\r
+< \n \"-5124482807\"\r\\r
+< \n \"1087968824\";\r\\r
+< \n};\r\\r
+< \n# \"-5294757340\";\r\\r
+< \n\r\\r
+< \n:global TelegramChatGroups \"(all)\";\r\\r
+< \n#:global TelegramChatGroups \"(all|home|office)\";\r\\r
+< \n\r\\r
+< \n:global NotificationFunctions {\r\\r
+< \n \"email\"\r\\r
+< \n \"telegram\";\r\\r
+< \n};\r\\r
+< \n# Toggle this to disable symbols in notifications.\r\\r
+< \n:global NotificationsWithSymbols true;\r\\r
+< \n:global TerminalColorOutput true;\r\\r
+< \n\r\\r
+< \n:global DetectIpAddrDefault \"https://ipv4.mikrotik.ovh/\";\r\\r
+< \n:global DetectIpAddrFallback \"https://api.ipify.org/\";\r\\r
+< \n\r\\r
+---
+> !)\\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
+413,415c411,413
+< ent\r\\r
+< \n:global updateChannel \"stable\";\r\\r
+< \n\r\\r
+---
+> ent\\r
+> \n:global updateChannel \"stable\";\\r
+> \n\\r
+417,431c415,429
+< \");\r\\r
+< \n:global CertRenewTime 2w;\r\\r
+< \n:global CertRenewPass (a); #{\r\\r
+< \n# \"\";\r\\r
+< \n# \"v3ry-s3cr3t\";\r\\r
+< \n# \"4n0th3r-s3cr3t\";\r\\r
+< \n#};\r\\r
+< \n:global CertWarnTime 1w;\r\\r
+< \n:global CertIssuedExportPass (a); # {\r\\r
+< \n# \"\";\r\\r
+< \n# \"cert1-cn\"=\"v3ry-s3cr3t\";\r\\r
+< \n# \"cert2-cn\"=\"4n0th3r-s3cr3t\";\r\\r
+< \n#};\r\\r
+< \n\r\\r
+< \n# Script BackupAndUpdate mode, possible values: backup,\r\\r
+---
+> \");\\r
+> \n:global CertRenewTime 2w;\\r
+> \n:global CertRenewPass (a); #{\\r
+> \n# \"\";\\r
+> \n# \"v3ry-s3cr3t\";\\r
+> \n# \"4n0th3r-s3cr3t\";\\r
+> \n#};\\r
+> \n:global CertWarnTime 1w;\\r
+> \n:global CertIssuedExportPass (a); # {\\r
+> \n# \"\";\\r
+> \n# \"cert1-cn\"=\"v3ry-s3cr3t\";\\r
+> \n# \"cert2-cn\"=\"4n0th3r-s3cr3t\";\\r
+> \n#};\\r
+> \n\\r
+> \n# Script BackupAndUpdate mode, possible values: backup,\\r
+433c431
+< n terminal run :set OSUpdateMode updateOnce; \$OSUpdateMode;). \r\\r
+---
+> n terminal run :set OSUpdateMode updateOnce; \$OSUpdateMode;). \\r
+435c433
+< \_(ignores `forceBackup`)\r\\r
+---
+> \_(ignores `forceBackup`)\\r
+437,495c435,493
+< \_without updates\r\\r
+< \n# osnotify - Set `forceBackup` to always create backups on every run\r\\r
+< \n:global DevInfoIncludeIP true;\r\\r
+< \n:global BackupAndUpdateMode \"osnotify\"\r\\r
+< \n\r\\r
+< \n:global forceBackup true;\r\\r
+< \n:global BackupPassword \"Peskar55\";\r\\r
+< \n\r\\r
+< \n# SFTP Backup Variables\r\\r
+< \n:global BackupRandomDelay 0;\r\\r
+< \n:global BackupUploadUrl \"sftp://amster.vados.ru/upload/\";\r\\r
+< \n:global BackupUploadUser \$Identity;\r\\r
+< \n:global BackupUploadPass \"root.mnuc.backuper\";\r\\r
+< \n\r\\r
+< \n:global BackupSendBinary true;\r\\r
+< \n:global BackupSendExport true;\r\\r
+< \n:global BackupSendGlobalConfig true;\r\\r
+< \n:global BackupSendScripts true;\r\\r
+< \n\r\\r
+< \n# Remove local file after uploading if no errors\r\\r
+< \n:global BackupRmLocal true;\r\\r
+< \n\r\\r
+< \n# Local Backups Root Directory \r\\r
+< \n:global BackupLocalRoot \"tmpfs\";\r\\r
+< \n\r\\r
+< \n# Encrypt Backup\r\\r
+< \n:global BackupEncrypt true;\r\\r
+< \n\r\\r
+< \n# Sensitive information in Backups\r\\r
+< \n:global BackupSens true;\r\\r
+< \n\r\\r
+< \n# User Export\r\\r
+< \n:global BackupUser true;\r\\r
+< \n\r\\r
+< \n# License Export (not for CHR, will silently skip)\r\\r
+< \n:global BackupLicense false;\r\\r
+< \n\r\\r
+< \n# SSH Keys\r\\r
+< \n:global BackupSshKeys true;\r\\r
+< \n\r\\r
+< \n# Certificate Export\r\\r
+< \n:global BackupCerts true;\r\\r
+< \n\r\\r
+< \n# Certificate Password\r\\r
+< \n:global BackupCertsPasswd \"\";\r\\r
+< \n\r\\r
+< \n# User-Manager Export\r\\r
+< \n:global BackupUserMan false;\r\\r
+< \n\r\\r
+< \n# The Dude Export\r\\r
+< \n:global BackupDude false;\r\\r
+< \n\r\\r
+< \n# User Files to export, comma-separated string or array of strings\r\\r
+< \n# User Files are not removed on backup\r\\r
+< \n# Any directory paths will be removed (/ -> _) on remote file\r\\r
+< \n# Nonpresent files are silently skipped\r\\r
+< \n:global BackupUserList \"autosupout.rif,autosupout.old.rif\";\r\\r
+< \n\r\\r
+< \n# load functions and any custom scripts\r\\r
+---
+> \_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
+497c495
+< erlay\" ], \\\r\\r
+---
+> erlay\" ], \\\\r
+499,500c497,498
+< verlay\\\\.d/.\" ]\r\\r
+< \n#\r\\r
+---
+> verlay\\\\.d/.\" ]\\r
+> \n#\\r
+503,506c501,503
+< \r\\r
+< \n# :onerror Err {\r\\r
+< \n# /system/script/run \$Script;\r\\r
+< \n# } do={\r\\r
+---
+> \n# :onerror Err {\\r
+> \n# /system/script/run \$Script;\\r
+> \n# } do={\\r
+508,512c505,509
+< \_. [ /system/script/get \$Script name ] . \" failed: \" . \$Err);\r\\r
+< \n# }\r\\r
+< \n#}\r\\r
+< \n#:log info \"\\ndevMode = \$devMode\";\r\\r
+< \n#:log info \"\\ndevRunning = \$devRunning\";\r\\r
+---
+> \_. [ /system/script/get \$Script name ] . \" failed: \" . \$Err);\\r
+> \n# }\\r
+> \n#}\\r
+> \n#:log info \"\\ndevMode = \$devMode\";\\r
+> \n#:log info \"\\ndevRunning = \$devRunning\";\\r
+514,517c511,514
+< GlobalRUN\\r\?\\n\" ] do={\r\\r
+< \n :onerror Err {\r\\r
+< \n /system/script/run \$Script;\r\\r
+< \n } do={\r\\r
+---
+> GlobalRUN\\r\?\\n\" ] do={\\r
+> \n :onerror Err {\\r
+> \n /system/script/run \$Script;\\r
+> \n } do={\\r
+519,525c516,522
+< ] . \" width marker \\\" GlobalRUN\\\" failed: \" . \$Err);\r\\r
+< \n }\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n# signal we are ready\r\\r
+< \n:set GlobalConfReady true;\r\\r
+< \n:while (\$GlobalConfReady != true) do={:delay 500ms};\r\\r
+---
+> ] . \" 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
+527,542c524,538
+< add comment="Global functions" dont-require-permissions=no name=AM-GlobalFunc \\r
+< owner=AM-GlobalFunc policy=\\r
+< ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source="#\\r
+< !rsc by Vados\r\\r
+< \n# RouterOS script: AM-GglobalFunc\r\\r
+< \n# Script comment: Global functions\r\\r
+< \n# Copyright (c) 2005-2026 Vados <vados@vados.ru>\r\\r
+< \n#\r\\r
+< \n#\r\\r
+< \n# requires RouterOS, version=7.19\r\\r
+< \n# requires device-mode, fetch, scheduler\r\\r
+< \n:local ExitOK false;\r\\r
+< \n:local ScriptName [ :jobname ];\r\\r
+< \n#:global checkRunJob \$SriptName;\r\\r
+< \n#:global fixCRLF;\r\\r
+< \n#:if (\$fixCRLF != false) do={\r\\r
+---
+> add dont-require-permissions=no name=AM-GlobalFunc owner=AM-GlobalFunc \\r
+> policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon \\r
+> source="#!rsc by Vados\\r
+> \n# RouterOS script: AM-GglobalFunc\\r
+> \n# Script comment: Global functions\\r
+> \n# Copyright (c) 2005-2026 Vados <vados@vados.ru>\\r
+> \n#\\r
+> \n#\\r
+> \n# requires RouterOS, version=7.19\\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
+545c541
+< }\r\\r
+---
+> }\\r
+547,553c543,549
+< et \$fixScript source ] ] \$fixScript};};\r\\r
+< \n#}\r\\r
+< \n:global GlobalFuncReady false;\r\\r
+< \n\r\\r
+< \n# Git commit id & info, expected configuration version\r\\r
+< \n:global CommitId \"main/633/2f6d4158\";\r\\r
+< \n:global CommitTAG \"unknown\";\r\\r
+---
+> et \$fixScript source ] ] \$fixScript};};\\r
+> \n#}\\r
+> \n:global GlobalFuncReady false;\\r
+> \n\\r
+> \n# Git commit id & info, expected configuration version\\r
+> \n:global CommitId \"main/625/14252114\";\\r
+> \n:global CommitTAG \"unknown\";\\r
+555,691c551,687
+< r: root, in 14:35:03 05.05.2026.\";\r\\r
+< \n\r\\r
+< \n# The variables are received right here.\r\\r
+< \n:global GlobalConfVersion 140;\r\\r
+< \n\r\\r
+< \n:global SumsDirAndFileName \"tmp/checksums.json\";\r\\r
+< \n\r\\r
+< \n:global Identity [/system/identity/get name];\r\\r
+< \n:global IdentityShort [:pick \$Identity 0 18];\r\\r
+< \n\r\\r
+< \n:global devBoardName [/system/resource/get board-name];\r\\r
+< \n:global devMode [/system/device-mode/get mode];\r\\r
+< \n:global devCurArch [/system/resource/get architecture-name];\r\\r
+< \n:global devCurVersion [/system/resource/get version];\r\\r
+< \n\r\\r
+< \n# Variables defined in AM-GlobalConfig.rsc\r\\r
+< \n:global TerminalColorOutput;\r\\r
+< \n:global CommentsInScripts;\r\\r
+< \n:global DetectIpAddrDefault;\r\\r
+< \n:global DetectIpAddrFallback;\r\\r
+< \n:global updateChannel;\r\\r
+< \n:global Domain;\r\\r
+< \n:global EmailGeneralTo;\r\\r
+< \n:global BackupAndUpdateMode;\r\\r
+< \n\r\\r
+< \n# Single functions, without nested functions.\r\\r
+< \n:global MiniDateTimeStamp;\r\\r
+< \n:global MicroDateTimeStamp;\r\\r
+< \n\r\\r
+< \n# Include globals \$PrintDebug and \$PrintDebugOverride\r\\r
+< \n:global LogPrint;\r\\r
+< \n\r\\r
+< \n# DeviceInfo and Updates\r\\r
+< \n:global IsCheckUpdates;\r\\r
+< \n:global WaitCheckUpdates;\r\\r
+< \n:global GetPubIp;\r\\r
+< \n\r\\r
+< \n:global GetArrDeviceInfo;\r\\r
+< \n:global WaitArrDeviceInfo;\r\\r
+< \n\r\\r
+< \n:global devModel;\r\\r
+< \n:global devRunningMode;\r\\r
+< \n\r\\r
+< \n:global devRbRevision;\r\\r
+< \n:global devRbSerialNumber;\r\\r
+< \n:global devRbVerAvail;\r\\r
+< \n\r\\r
+< \n:global runningChannelVersion;\r\\r
+< \n:global runningChannel;\r\\r
+< \n:global runningVersion;\r\\r
+< \n\r\\r
+< \n:global devBuildTime;\r\\r
+< \n:global ROsVerAvail;\r\\r
+< \n:global PkgUpdStatus;\r\\r
+< \n:global currentUpdateChannel;\r\\r
+< \n\r\\r
+< \n:global ScriptInstallUpdate;\r\\r
+< \n\r\\r
+< \n:global DeviceInfo;\r\\r
+< \n\r\\r
+< \n:global OldMode;\r\\r
+< \n\r\\r
+< \n:global ParseKeyValueStore;\r\\r
+< \n:global RandomDelay;\r\\r
+< \n:global GetRandomNumber;\r\\r
+< \n:global EscapeForRegEx;\r\\r
+< \n:global CharacterMultiply;\r\\r
+< \n:global CharacterReplace;\r\\r
+< \n:global CleanFilePath;\r\\r
+< \n:global CleanName;\r\\r
+< \n\r\\r
+< \n:global CommitBrief;\r\\r
+< \n\r\\r
+< \n:global EitherOr;\r\\r
+< \n:global FormatLine;\r\\r
+< \n:global GetRandom20CharAlNum;\r\\r
+< \n:global GetRandom20CharHex;\r\\r
+< \n:global GetRandomNumber;\r\\r
+< \n:global Grep;\r\\r
+< \n:global IfThenElse;\r\\r
+< \n:global MAX;\r\\r
+< \n:global MIN;\r\\r
+< \n:global HumanReadableNum;\r\\r
+< \n\r\\r
+< \n:global IsFullyConnected;\r\\r
+< \n:global IsDNSResolving;\r\\r
+< \n:global IsTimeSync;\r\\r
+< \n:global IsTimeSyncCached;\r\\r
+< \n:global IsTimeSyncResetNtp;\r\\r
+< \n\r\\r
+< \n:global WaitDNSResolving;\r\\r
+< \n:global WaitFullyConnected;\r\\r
+< \n:global WaitTimeSync;\r\\r
+< \n:global MkDir;\r\\r
+< \n:global RmDir;\r\\r
+< \n:global RmFile;\r\\r
+< \n:global FileGet;\r\\r
+< \n:global Unix2Dos;\r\\r
+< \n:global UrlEncode;\r\\r
+< \n:global WaitForFile;\r\\r
+< \n:global ScriptLock;\r\\r
+< \n:global SendTelegram;\r\\r
+< \n:global NotificationFunctions;\r\\r
+< \n:global SendNotification;\r\\r
+< \n:global SendNotification2;\r\\r
+< \n:global SymbolForNotification;\r\\r
+< \n:global SymbolByUnicodeName;\r\\r
+< \n:global ValidateSyntax;\r\\r
+< \n:global CheckSumsVerify;\r\\r
+< \n:global GlobalConfChanges;\r\\r
+< \n:global GlobalConfMigration;\r\\r
+< \n:global VersionToNum;\r\\r
+< \n:global RequiredRouterOS;\r\\r
+< \n:global ExitError;\r\\r
+< \n:global ExitOnError;\r\\r
+< \n\r\\r
+< \n:global FetchHugeFiles;\r\\r
+< \n:global FetchUserAgentStr;\r\\r
+< \n:global FileExists;\r\\r
+< \n:global CertificateAvailable;\r\\r
+< \n:global CertificateDownload;\r\\r
+< \n:global CertificateNameByCN;\r\\r
+< \n:global CharacterMultiply;\r\\r
+< \n\r\\r
+< \n:global InspectVar;\r\\r
+< \n:global InspectVarRet;\r\\r
+< \n:global ParseCustom;\r\\r
+< \n\r\\r
+< \n:set IsCheckUpdates do={\r\\r
+< \n :local isInfo [:tobool \$1];\r\\r
+< \n :global updateChannel;\r\\r
+< \n :global PkgUpdStatus;\r\\r
+< \n :global currentUpdateChannel;\r\\r
+< \n :global ROsVerAvail;\r\\r
+< \n :global arrDeviceInfo;\r\\r
+< \n :log info (\$0 . \" \\\$isInfo = \" . \$isInfo); \r\\r
+< \n :local CurrentChannel [ /system/package/update/get channel ];\r\\r
+---
+> r: root, in 02:45:03 05.05.2026.\";\\r
+> \n\\r
+> \n# The variables are received right here.\\r
+> \n:global GlobalConfVersion 140;\\r
+> \n\\r
+> \n:global SumsDirAndFileName \"tmp/checksums.json\";\\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 MiniDateTimeStamp;\\r
+> \n:global MicroDateTimeStamp;\\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 CharacterMultiply;\\r
+> \n:global CharacterReplace;\\r
+> \n:global CleanFilePath;\\r
+> \n:global CleanName;\\r
+> \n\\r
+> \n:global CommitBrief;\\r
+> \n\\r
+> \n:global EitherOr;\\r
+> \n:global FormatLine;\\r
+> \n:global GetRandom20CharAlNum;\\r
+> \n:global GetRandom20CharHex;\\r
+> \n:global GetRandomNumber;\\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 ExitError;\\r
+> \n:global ExitOnError;\\r
+> \n\\r
+> \n:global FetchHugeFiles;\\r
+> \n:global FetchUserAgentStr;\\r
+> \n:global FileExists;\\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 updateChannel;\\r
+> \n :global PkgUpdStatus;\\r
+> \n :global currentUpdateChannel;\\r
+> \n :global ROsVerAvail;\\r
+> \n :global arrDeviceInfo;\\r
+> \n :log info (\$0 . \" \\\$isInfo = \" . \$isInfo); \\r
+> \n :local CurrentChannel [ /system/package/update/get channel ];\\r
+693c689
+< el) do={\r\\r
+---
+> el) do={\\r
+695,703c691,699
+< \_delay=300ms max=5 on-error={};\r\\r
+< \n :log info (\$0 . \" Set updates channel to: \$updateChannel\");\r\\r
+< \n }\r\\r
+< \n :local Update [ /system/package/update/get ];\r\\r
+< \n :local Channel [ :tostr (\$Update->\"channel\") ];\r\\r
+< \n :set currentUpdateChannel \$Channel;\r\\r
+< \n :log info (\$0 . \" Update Channel: \" . \$Channel . \".\");\r\\r
+< \n :local StatusPkg \"undefined\";\r\\r
+< \n :log info (\$0 . \" Checking for updates...\");\r\\r
+---
+> \_delay=300ms max=5 on-error={};\\r
+> \n :log info (\$0 . \" Set updates channel to: \$updateChannel\");\\r
+> \n }\\r
+> \n :local Update [ /system/package/update/get ];\\r
+> \n :local Channel [ :tostr (\$Update->\"channel\") ];\\r
+> \n :set currentUpdateChannel \$Channel;\\r
+> \n :log info (\$0 . \" Update Channel: \" . \$Channel . \".\");\\r
+> \n :local StatusPkg \"undefined\";\\r
+> \n :log info (\$0 . \" Checking for updates...\");\\r
+705,707c701,703
+< dates without-paging as-value]->\"status\")} \\\r\\r
+< \n delay=300ms max=5 on-error={};\r\\r
+< \n :log info (\$0 . \" \\\$StatusPkg = \" . \$StatusPkg);\r\\r
+---
+> dates without-paging as-value]->\"status\")} \\\\r
+> \n delay=300ms max=5 on-error={};\\r
+> \n :log info (\$0 . \" \\\$StatusPkg = \" . \$StatusPkg);\\r
+709c705
+< s true; } else={ :set PkgUpdStatus false; }\r\\r
+---
+> s true; } else={ :set PkgUpdStatus false; }\\r
+711,717c707,713
+< ] ];\r\\r
+< \n :log info (\$0 . \" \\\$PkgUpdStatus = \" . \$PkgUpdStatus);\r\\r
+< \n :if (\$isInfo != false || \$PkgUpdStatus = true) do={\r\\r
+< \n :log info (\$0 . \" \\\$PkgUpdStatus = \" . \$PkgUpdStatus);\r\\r
+< \n :if ([ :typeof \$arrDeviceInfo ] != \"array\") do={\r\\r
+< \n :set arrDeviceInfo [:toarray \$arrDeviceInfo];\r\\r
+< \n }\r\\r
+---
+> ] ];\\r
+> \n :log info (\$0 . \" \\\$PkgUpdStatus = \" . \$PkgUpdStatus);\\r
+> \n :if (\$isInfo != false || \$PkgUpdStatus = true) do={\\r
+> \n :log info (\$0 . \" \\\$PkgUpdStatus = \" . \$PkgUpdStatus);\\r
+> \n :if ([ :typeof \$arrDeviceInfo ] != \"array\") do={\\r
+> \n :set arrDeviceInfo [:toarray \$arrDeviceInfo];\\r
+> \n }\\r
+719,738c715,734
+< kage/update/get ]} delay=500ms max=5 on-error={:log error (\"Error\")};\r\\r
+< \n :return true;\r\\r
+< \n } else={\r\\r
+< \n :return \$PkgUpdStatus;\r\\r
+< \n }\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set WaitCheckUpdates do={\r\\r
+< \n :global IsCheckUpdates;\r\\r
+< \n :global PkgUpdStatus;\r\\r
+< \n :global currentUpdateChannel;\r\\r
+< \n :global ROsVerAvail;\r\\r
+< \n :global arrDeviceInfo;\r\\r
+< \n :local Status \"\";\r\\r
+< \n :local Update;\r\\r
+< \n :local WaitCount 0;\r\\r
+< \n :if ([ \$IsCheckUpdates true ] = false) do={\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :set Status [ :tostr [ /system/package/update/get status ] ];\r\\r
+---
+> kage/update/get ]} delay=500ms max=5 on-error={:log error (\"Error\")};\\r
+> \n :return true;\\r
+> \n } else={\\r
+> \n :return \$PkgUpdStatus;\\r
+> \n }\\r
+> \n}\\r
+> \n\\r
+> \n:set WaitCheckUpdates do={\\r
+> \n :global IsCheckUpdates;\\r
+> \n :global PkgUpdStatus;\\r
+> \n :global currentUpdateChannel;\\r
+> \n :global ROsVerAvail;\\r
+> \n :global arrDeviceInfo;\\r
+> \n :local Status \"\";\\r
+> \n :local Update;\\r
+> \n :local WaitCount 0;\\r
+> \n :if ([ \$IsCheckUpdates true ] = false) do={\\r
+> \n :return false;\\r
+> \n }\\r
+> \n :set Status [ :tostr [ /system/package/update/get status ] ];\\r
+740,756c736,752
+< \") && \$WaitCount < 60) do={\r\\r
+< \n :delay 1s;\r\\r
+< \n :set WaitCount (\$WaitCount + 1);\r\\r
+< \n :set Status [ :tostr [ /system/package/update/get status ] ];\r\\r
+< \n }\r\\r
+< \n :set Update [ /system/package/update/get ];\r\\r
+< \n :set currentUpdateChannel [ :tostr (\$Update->\"channel\") ];\r\\r
+< \n :set ROsVerAvail [ :tostr (\$Update->\"latest-version\") ];\r\\r
+< \n :if ((\$Update->\"status\") = \"New version is available\") do={\r\\r
+< \n :set PkgUpdStatus true;\r\\r
+< \n } else={\r\\r
+< \n :set PkgUpdStatus false;\r\\r
+< \n }\r\\r
+< \n :if ([ :typeof \$arrDeviceInfo ] != \"array\") do={\r\\r
+< \n :set arrDeviceInfo [:toarray \$arrDeviceInfo];\r\\r
+< \n }\r\\r
+< \n :set (\$arrDeviceInfo->\"devUpdates\") \$Update;\r\\r
+---
+> \") && \$WaitCount < 60) do={\\r
+> \n :delay 1s;\\r
+> \n :set WaitCount (\$WaitCount + 1);\\r
+> \n :set Status [ :tostr [ /system/package/update/get status ] ];\\r
+> \n }\\r
+> \n :set Update [ /system/package/update/get ];\\r
+> \n :set currentUpdateChannel [ :tostr (\$Update->\"channel\") ];\\r
+> \n :set ROsVerAvail [ :tostr (\$Update->\"latest-version\") ];\\r
+> \n :if ((\$Update->\"status\") = \"New version is available\") do={\\r
+> \n :set PkgUpdStatus true;\\r
+> \n } else={\\r
+> \n :set PkgUpdStatus false;\\r
+> \n }\\r
+> \n :if ([ :typeof \$arrDeviceInfo ] != \"array\") do={\\r
+> \n :set arrDeviceInfo [:toarray \$arrDeviceInfo];\\r
+> \n }\\r
+> \n :set (\$arrDeviceInfo->\"devUpdates\") \$Update;\\r
+758,801c754,797
+< do={\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set WaitArrDeviceInfo do={\r\\r
+< \n :global GetArrDeviceInfo;\r\\r
+< \n :while ([ \$GetArrDeviceInfo ] = false) do={\r\\r
+< \n :delay 1s;\r\\r
+< \n }\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set GetArrDeviceInfo do={\r\\r
+< \n :global LogPrint;\r\\r
+< \n :global arrDeviceInfo;\r\\r
+< \n :global devBoardName;\r\\r
+< \n :global devModel;\r\\r
+< \n :global devRunning;\r\\r
+< \n :global devCurArch;\r\\r
+< \n :global devRbRevision;\r\\r
+< \n :global devRbSerialNumber;\r\\r
+< \n :global devBuildTime;\r\\r
+< \n :global runningChannelVersion;\r\\r
+< \n :global runningChannel;\r\\r
+< \n :global runningVersion;\r\\r
+< \n :global currentUpdateChannel;\r\\r
+< \n :global ROsVerAvail;\r\\r
+< \n\r\\r
+< \n :local DeviceInfo;\r\\r
+< \n :local Resource [/system/resource/get];\r\\r
+< \n :local Update [ /system/package/update/get ];\r\\r
+< \n :local VersionString [ :tostr (\$Resource->\"version\") ];\r\\r
+< \n :local ChannelStart [ :find \$VersionString \" (\" ];\r\\r
+< \n :local RouterBoard;\r\\r
+< \n :local IsRouterBoard false;\r\\r
+< \n :local RunningMode \"\";\r\\r
+< \n\r\\r
+< \n :set devCurArch [ :tostr (\$Resource->\"architecture-name\") ];\r\\r
+< \n :set devBuildTime [ :tostr (\$Resource->\"build-time\") ];\r\\r
+< \n :set runningChannelVersion \$VersionString;\r\\r
+< \n :set runningVersion \$VersionString;\r\\r
+< \n :set runningChannel \"\";\r\\r
+< \n\r\\r
+---
+> do={\\r
+> \n :return false;\\r
+> \n }\\r
+> \n :return true;\\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 :global arrDeviceInfo;\\r
+> \n :global devBoardName;\\r
+> \n :global devModel;\\r
+> \n :global devRunning;\\r
+> \n :global devCurArch;\\r
+> \n :global devRbRevision;\\r
+> \n :global devRbSerialNumber;\\r
+> \n :global devBuildTime;\\r
+> \n :global runningChannelVersion;\\r
+> \n :global runningChannel;\\r
+> \n :global runningVersion;\\r
+> \n :global currentUpdateChannel;\\r
+> \n :global ROsVerAvail;\\r
+> \n\\r
+> \n :local DeviceInfo;\\r
+> \n :local Resource [/system/resource/get];\\r
+> \n :local Update [ /system/package/update/get ];\\r
+> \n :local VersionString [ :tostr (\$Resource->\"version\") ];\\r
+> \n :local ChannelStart [ :find \$VersionString \" (\" ];\\r
+> \n :local RouterBoard;\\r
+> \n :local IsRouterBoard false;\\r
+> \n :local RunningMode \"\";\\r
+> \n\\r
+> \n :set devCurArch [ :tostr (\$Resource->\"architecture-name\") ];\\r
+> \n :set devBuildTime [ :tostr (\$Resource->\"build-time\") ];\\r
+> \n :set runningChannelVersion \$VersionString;\\r
+> \n :set runningVersion \$VersionString;\\r
+> \n :set runningChannel \"\";\\r
+> \n\\r
+803,804c799,800
+< {\r\\r
+< \n :set runningVersion [ :pick \$VersionString 0 \$ChannelStart ];\r\\r
+---
+> {\\r
+> \n :set runningVersion [ :pick \$VersionString 0 \$ChannelStart ];\\r
+806,807c802,803
+< len \$VersionString ] ];\r\\r
+< \n :local ChannelEnd [ :find \$ChannelRest \")\" ];\r\\r
+---
+> len \$VersionString ] ];\\r
+> \n :local ChannelEnd [ :find \$ChannelRest \")\" ];\\r
+809,813c805,808
+< \r\\r
+< \n :set runningChannel [ :pick \$ChannelRest 0 \$ChannelEnd ];\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n\r\\r
+---
+> \n :set runningChannel [ :pick \$ChannelRest 0 \$ChannelEnd ];\\r
+> \n }\\r
+> \n }\\r
+> \n\\r
+815,838c810,833
+< \_3] != \"x86\") do={\r\\r
+< \n :do {\r\\r
+< \n :set RouterBoard [[ :parse \"/system/routerboard/get\" ]];\r\\r
+< \n# :set RouterBoard [ /system/routerboard/get ];\r\\r
+< \n :if ((\$RouterBoard->\"routerboard\") = true) do={\r\\r
+< \n :set IsRouterBoard true;\r\\r
+< \n }\r\\r
+< \n } on-error={}\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :do {\r\\r
+< \n :set RunningMode [ /system/device-mode/get mode ];\r\\r
+< \n } on-error={\r\\r
+< \n :do {\r\\r
+< \n :set RunningMode [ /system/device-mode/get running ];\r\\r
+< \n } on-error={\r\\r
+< \n :set RunningMode \"\";\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :set devRunning \$RunningMode;\r\\r
+< \n\r\\r
+< \n :if (\$IsRouterBoard = true) do={\r\\r
+< \n :set devModel [ :tostr (\$RouterBoard->\"model\") ];\r\\r
+< \n :set devRbRevision [ :tostr (\$RouterBoard->\"revision\") ];\r\\r
+---
+> \_3] != \"x86\") do={\\r
+> \n :do {\\r
+> \n :set RouterBoard [[ :parse \"/system/routerboard/get\" ]];\\r
+> \n# :set RouterBoard [ /system/routerboard/get ];\\r
+> \n :if ((\$RouterBoard->\"routerboard\") = true) do={\\r
+> \n :set IsRouterBoard true;\\r
+> \n }\\r
+> \n } on-error={}\\r
+> \n }\\r
+> \n\\r
+> \n :do {\\r
+> \n :set RunningMode [ /system/device-mode/get mode ];\\r
+> \n } on-error={\\r
+> \n :do {\\r
+> \n :set RunningMode [ /system/device-mode/get running ];\\r
+> \n } on-error={\\r
+> \n :set RunningMode \"\";\\r
+> \n }\\r
+> \n }\\r
+> \n :set devRunning \$RunningMode;\\r
+> \n\\r
+> \n :if (\$IsRouterBoard = true) do={\\r
+> \n :set devModel [ :tostr (\$RouterBoard->\"model\") ];\\r
+> \n :set devRbRevision [ :tostr (\$RouterBoard->\"revision\") ];\\r
+840,856c835,851
+< ];\r\\r
+< \n } else={\r\\r
+< \n :set devModel \$devBoardName;\r\\r
+< \n :set devRbRevision \"\";\r\\r
+< \n :set devRbSerialNumber \"\";\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :set currentUpdateChannel [ :tostr (\$Update->\"channel\") ];\r\\r
+< \n :set ROsVerAvail [ :tostr (\$Update->\"latest-version\") ];\r\\r
+< \n\r\\r
+< \n :set (\$DeviceInfo->\"board-name\") \$devBoardName;\r\\r
+< \n :set (\$DeviceInfo->\"architecture-name\") \$devCurArch;\r\\r
+< \n :set (\$DeviceInfo->\"model\") \$devModel;\r\\r
+< \n :set (\$DeviceInfo->\"revision\") \$devRbRevision;\r\\r
+< \n :set (\$DeviceInfo->\"serial-number\") \$devRbSerialNumber;\r\\r
+< \n :set (\$DeviceInfo->\"running-mode\") \$devRunning;\r\\r
+< \n :set (\$DeviceInfo->\"build-time\") \$devBuildTime;\r\\r
+---
+> ];\\r
+> \n } else={\\r
+> \n :set devModel \$devBoardName;\\r
+> \n :set devRbRevision \"\";\\r
+> \n :set devRbSerialNumber \"\";\\r
+> \n }\\r
+> \n\\r
+> \n :set currentUpdateChannel [ :tostr (\$Update->\"channel\") ];\\r
+> \n :set ROsVerAvail [ :tostr (\$Update->\"latest-version\") ];\\r
+> \n\\r
+> \n :set (\$DeviceInfo->\"board-name\") \$devBoardName;\\r
+> \n :set (\$DeviceInfo->\"architecture-name\") \$devCurArch;\\r
+> \n :set (\$DeviceInfo->\"model\") \$devModel;\\r
+> \n :set (\$DeviceInfo->\"revision\") \$devRbRevision;\\r
+> \n :set (\$DeviceInfo->\"serial-number\") \$devRbSerialNumber;\\r
+> \n :set (\$DeviceInfo->\"running-mode\") \$devRunning;\\r
+> \n :set (\$DeviceInfo->\"build-time\") \$devBuildTime;\\r
+858,861c853,856
+< ion;\r\\r
+< \n :set (\$DeviceInfo->\"running-version\") \$runningVersion;\r\\r
+< \n :set (\$DeviceInfo->\"running-channel\") \$runningChannel;\r\\r
+< \n :set (\$DeviceInfo->\"routerboard\") \$IsRouterBoard;\r\\r
+---
+> ion;\\r
+> \n :set (\$DeviceInfo->\"running-version\") \$runningVersion;\\r
+> \n :set (\$DeviceInfo->\"running-channel\") \$runningChannel;\\r
+> \n :set (\$DeviceInfo->\"routerboard\") \$IsRouterBoard;\\r
+863c858
+< current-firmware\") ];\r\\r
+---
+> current-firmware\") ];\\r
+865,866c860,861
+< upgrade-firmware\") ];\r\\r
+< \n :set (\$DeviceInfo->\"package-channel\") \$currentUpdateChannel;\r\\r
+---
+> upgrade-firmware\") ];\\r
+> \n :set (\$DeviceInfo->\"package-channel\") \$currentUpdateChannel;\\r
+868,869c863,864
+< alled-version\") ];\r\\r
+< \n :set (\$DeviceInfo->\"latest-version\") \$ROsVerAvail;\r\\r
+---
+> alled-version\") ];\\r
+> \n :set (\$DeviceInfo->\"latest-version\") \$ROsVerAvail;\\r
+871,895c866,890
+< ) ];\r\\r
+< \n\r\\r
+< \n :set arrDeviceInfo \$DeviceInfo;\r\\r
+< \n :return \$DeviceInfo;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set DeviceInfo do={\r\\r
+< \n :global GetArrDeviceInfo;\r\\r
+< \n :global GlobalConfVersion;\r\\r
+< \n :global Identity;\r\\r
+< \n :global IfThenElse;\r\\r
+< \n :global FormatLine;\r\\r
+< \n :global CommitBrief;\r\\r
+< \n\r\\r
+< \n :local License [/system/license/get];\r\\r
+< \n :local Snmp [ /snmp/get ];\r\\r
+< \n :local Info [ \$GetArrDeviceInfo ];\r\\r
+< \n\r\\r
+< \n :if ([ :typeof \$Info ] != \"array\") do={\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :return ( \\\r\\r
+< \n [ \$FormatLine \"Hostname\" \$Identity ] . \"\\n\" . \\\r\\r
+< \n [ \$IfThenElse ([ :len (\$Snmp->\"location\") ] > 0) \\\r\\r
+---
+> ) ];\\r
+> \n\\r
+> \n :set arrDeviceInfo \$DeviceInfo;\\r
+> \n :return \$DeviceInfo;\\r
+> \n}\\r
+> \n\\r
+> \n:set DeviceInfo do={\\r
+> \n :global GetArrDeviceInfo;\\r
+> \n :global GlobalConfVersion;\\r
+> \n :global Identity;\\r
+> \n :global IfThenElse;\\r
+> \n :global FormatLine;\\r
+> \n :global CommitBrief;\\r
+> \n\\r
+> \n :local License [/system/license/get];\\r
+> \n :local Snmp [ /snmp/get ];\\r
+> \n :local Info [ \$GetArrDeviceInfo ];\\r
+> \n\\r
+> \n :if ([ :typeof \$Info ] != \"array\") do={\\r
+> \n :return false;\\r
+> \n }\\r
+> \n\\r
+> \n :return ( \\\\r
+> \n [ \$FormatLine \"Hostname\" \$Identity ] . \"\\n\" . \\\\r
+> \n [ \$IfThenElse ([ :len (\$Snmp->\"location\") ] > 0) \\\\r
+897,898c892,893
+< \_. \\\r\\r
+< \n [ \$IfThenElse ([ :len (\$Snmp->\"contact\") ] > 0) \\\r\\r
+---
+> \_. \\\\r
+> \n [ \$IfThenElse ([ :len (\$Snmp->\"contact\") ] > 0) \\\\r
+900,901c895,896
+< \_\\\r\\r
+< \n \"Hardware:\\n\" . \\\r\\r
+---
+> \_\\\\r
+> \n \"Hardware:\\n\" . \\\\r
+903c898
+< \\\r\\r
+---
+> \\\\r
+905,909c900,904
+< n\" . \\\r\\r
+< \n [ \$FormatLine \" Model\" (\$Info->\"model\") ] . \\\r\\r
+< \n [ \$IfThenElse ([ :len (\$Info->\"revision\") ] > 0) \\\r\\r
+< \n (\" \" . (\$Info->\"revision\")) ] . \"\\n\" . \\\r\\r
+< \n [ \$IfThenElse ([ :len (\$Info->\"serial-number\") ] > 0) \\\r\\r
+---
+> n\" . \\\\r
+> \n [ \$FormatLine \" Model\" (\$Info->\"model\") ] . \\\\r
+> \n [ \$IfThenElse ([ :len (\$Info->\"revision\") ] > 0) \\\\r
+> \n (\" \" . (\$Info->\"revision\")) ] . \"\\n\" . \\\\r
+> \n [ \$IfThenElse ([ :len (\$Info->\"serial-number\") ] > 0) \\\\r
+911,912c906,907
+< \\n\") ] . \\\r\\r
+< \n [ \$IfThenElse ([ :len (\$License->\"nlevel\") ] > 0) \\\r\\r
+---
+> \\n\") ] . \\\\r
+> \n [ \$IfThenElse ([ :len (\$License->\"nlevel\") ] > 0) \\\\r
+914,916c909,911
+< \")) ] . \"\\n\") ] . \\\r\\r
+< \n \"RouterOS:\\n\" . \\\r\\r
+< \n [ \$IfThenElse ([ :len (\$License->\"level\") ] > 0) \\\r\\r
+---
+> \")) ] . \"\\n\") ] . \\\\r
+> \n \"RouterOS:\\n\" . \\\\r
+> \n [ \$IfThenElse ([ :len (\$License->\"level\") ] > 0) \\\\r
+918c913
+< \")) ] . \"\\n\") ] . \\\r\\r
+---
+> \")) ] . \"\\n\") ] . \\\\r
+920c915
+< \\n\" . \\\r\\r
+---
+> \\n\" . \\\\r
+922,923c917,918
+< \_\"\\n\" . \\\r\\r
+< \n [ \$IfThenElse ([ :len (\$Info->\"running-channel\") ] > 0) \\\r\\r
+---
+> \_\"\\n\" . \\\\r
+> \n [ \$IfThenElse ([ :len (\$Info->\"running-channel\") ] > 0) \\\\r
+925c920
+< \" (\" . (\$Info->\"running-channel\") . \")\") ] . \"\\n\") \\\r\\r
+---
+> \" (\" . (\$Info->\"running-channel\") . \")\") ] . \"\\n\") \\\\r
+927,928c922,923
+< \"\\n\") ] . \\\r\\r
+< \n [ \$IfThenElse ([ :len (\$Info->\"latest-version\") ] > 0 && \\\r\\r
+---
+> \"\\n\") ] . \\\\r
+> \n [ \$IfThenElse ([ :len (\$Info->\"latest-version\") ] > 0 && \\\\r
+930c925
+< \_\\\r\\r
+---
+> \_\\\\r
+932,933c927,928
+< \_\"\\n\") ] . \\\r\\r
+< \n [ \$IfThenElse ((\$Info->\"routerboard\") = true && \\\r\\r
+---
+> \_\"\\n\") ] . \\\\r
+> \n [ \$IfThenElse ((\$Info->\"routerboard\") = true && \\\\r
+935c930
+< ) \\\r\\r
+---
+> ) \\\\r
+937,942c932,937
+< \_\" -> \" . (\$Info->\"upgrade-firmware\")) ] . \"\\n\") ] . \\\r\\r
+< \n \"RouterOS-Scripts:\\n\" . \\\r\\r
+< \n [ \$FormatLine \" Commit\" [ \$CommitBrief ] ] . \"\\n\" . \\\r\\r
+< \n [ \$FormatLine \" Version\" \$GlobalConfVersion ]);\r\\r
+< \n}\r\\r
+< \n\r\\r
+---
+> \_\" -> \" . (\$Info->\"upgrade-firmware\")) ] . \"\\n\") ] . \\\\r
+> \n \"RouterOS-Scripts:\\n\" . \\\\r
+> \n [ \$FormatLine \" Commit\" [ \$CommitBrief ] ] . \"\\n\" . \\\\r
+> \n [ \$FormatLine \" Version\" \$GlobalConfVersion ]);\\r
+> \n}\\r
+> \n\\r
+944,947c939,942
+< tionFunctions ({})}\r\\r
+< \n\r\\r
+< \n:set GetRandom20CharAlNum do={\r\\r
+< \n :global EitherOr;\r\\r
+---
+> tionFunctions ({})}\\r
+> \n\\r
+> \n:set GetRandom20CharAlNum do={\\r
+> \n :global EitherOr;\\r
+949,951c944,946
+< FGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\" ];\r\\r
+< \n}\r\\r
+< \n\r\\r
+---
+> FGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\" ];\\r
+> \n}\\r
+> \n\\r
+953c948
+< \_\$EitherOr [ :tonum \$1 ] 20 ] from=\"0123456789abcdef\" ]; }\r\\r
+---
+> \_\$EitherOr [ :tonum \$1 ] 20 ] from=\"0123456789abcdef\" ]; }\\r
+955,961c950,956
+< \_\$EitherOr [ :tonum \$1 ] 4294967295 ] ]; }\r\\r
+< \n\r\\r
+< \n:global checkRunJob;\r\\r
+< \n:set checkRunJob do={\r\\r
+< \n :local Script [ :tostr \$1 ];\r\\r
+< \n :global ScriptLock; \r\\r
+< \n :if ([ \$ScriptLock \$Script ] = false) do={:return false}\r\\r
+---
+> \_\$EitherOr [ :tonum \$1 ] 4294967295 ] ]; }\\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
+963c958
+< :set Job [ /system/script/job/get \$Job ];\r\\r
+---
+> :set Job [ /system/script/job/get \$Job ];\\r
+965c960
+< stem/script/job/get [ find where .id=(\$Job->\"parent\") ] ]}\r\\r
+---
+> stem/script/job/get [ find where .id=(\$Job->\"parent\") ] ]}\\r
+967,994c962,989
+< lse; \r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set InspectVar do={\r\\r
+< \n :global InspectVarRet;\r\\r
+< \n :put [ :tocrlf [ \$InspectVarRet \$1 ] ];\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set CommitBrief do={\r\\r
+< \n :global CommitId;\r\\r
+< \n :global CommitInfo;\r\\r
+< \n :if (\$CommitId = \"unknown\") do={\r\\r
+< \n :return \"unknown\";\r\\r
+< \n }\r\\r
+< \n :return (\$CommitInfo . \"/\" . [ :pick \$CommitId 0 8 ]);\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set InspectVarRet do={\r\\r
+< \n :local Input \$1;\r\\r
+< \n :local Level (0 + [ :tonum \$2 ]);\r\\r
+< \n :global CharacterReplace;\r\\r
+< \n :global IfThenElse;\r\\r
+< \n :global InspectVarRet;\r\\r
+< \n :local IndentReturn do={\r\\r
+< \n :local Prefix [ :tostr \$1 ];\r\\r
+< \n :local Value [ :tostr \$2 ];\r\\r
+< \n :local Level [ :tonum \$3 ];\r\\r
+< \n :global CharacterMultiply;\r\\r
+---
+> 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 CommitBrief do={\\r
+> \n :global CommitId;\\r
+> \n :global CommitInfo;\\r
+> \n :if (\$CommitId = \"unknown\") do={\\r
+> \n :return \"unknown\";\\r
+> \n }\\r
+> \n :return (\$CommitInfo . \"/\" . [ :pick \$CommitId 0 8 ]);\\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
+996,1019c991,1014
+< fix . \"-> \" . \$Value);\r\\r
+< \n }\r\\r
+< \n :local TypeOf [ :typeof \$Input ];\r\\r
+< \n :local Len [ :len \$Input ];\r\\r
+< \n :local Return [ \$IndentReturn \"type\" \$TypeOf \$Level ];\r\\r
+< \n :if (\$TypeOf = \"array\") do={\r\\r
+< \n :foreach Key,Value in=\$Input do={\r\\r
+< \n :set \$Return (\$Return . \"\\n\" . \\\r\\r
+< \n [ \$IndentReturn \"key\" \$Key (\$Level + 1) ] . \"\\n\" . \\\r\\r
+< \n [ \$InspectVarRet \$Value (\$Level + 2) ]);\r\\r
+< \n }\r\\r
+< \n } else={\r\\r
+< \n :if (\$TypeOf = \"str\") do={\r\\r
+< \n :set \$Return (\$Return . \"\\n\" . \\\r\\r
+< \n [ \$IndentReturn \"len\" \$Len \$Level ]);\r\\r
+< \n :if ([ :typeof [ :find \$Input (\"\\r\") ] ] = \"num\") do={\r\\r
+< \n :set Input [ \$CharacterReplace \$Input (\"\\r\") \"\" ];\r\\r
+< \n }\r\\r
+< \n :if ([ :typeof [ :find \$Input (\"\\n\") ] ] = \"num\") do={\r\\r
+< \n :set Input [ \$CharacterReplace \$Input (\"\\n\") \" \" ];\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :if (\$TypeOf != \"nothing\") do={\r\\r
+< \n :set \$Return (\$Return . \"\\n\" . \\\r\\r
+---
+> 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
+1021,1036c1016,1031
+< \_\\\r\\r
+< \n ([ :pick \$Input 0 77 ] . \"...\") \$Input ] \$Level ]);\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set GetPubIp do={\r\\r
+< \n :global DetectIpAddrDefault;\r\\r
+< \n :global DetectIpAddrFallback;\r\\r
+< \n\r\\r
+< \n :local PubIpAddr false;\r\\r
+< \n :local Url \$DetectIpAddrDefault;\r\\r
+< \n :local JobName [ :jobname ];\r\\r
+< \n\r\\r
+< \n :do {\r\\r
+---
+> \_\\\\r
+> \n ([ :pick \$Input 0 77 ] . \"...\") \$Input ] \$Level ]);\\r
+> \n }\\r
+> \n }\\r
+> \n :return \$Return;\\r
+> \n}\\r
+> \n\\r
+> \n:set GetPubIp do={\\r
+> \n :global DetectIpAddrDefault;\\r
+> \n :global DetectIpAddrFallback;\\r
+> \n\\r
+> \n :local PubIpAddr false;\\r
+> \n :local Url \$DetectIpAddrDefault;\\r
+> \n :local JobName [ :jobname ];\\r
+> \n\\r
+> \n :do {\\r
+1038c1033
+< ice: \" . \$Url . \"...\");\r\\r
+---
+> ice: \" . \$Url . \"...\");\\r
+1041c1036
+< )} \\\r\\r
+---
+> )} \\\\r
+1043,1044c1038,1039
+< detect public IP using default service: \" . \$Url . \".\")}\r\\r
+< \n } on-error={\r\\r
+---
+> detect public IP using default service: \" . \$Url . \".\")}\\r
+> \n } on-error={\\r
+1046,1047c1041,1042
+< ice: \" . \$Url . \".\");\r\\r
+< \n :set Url \$DetectIpAddrFallBack;\r\\r
+---
+> ice: \" . \$Url . \".\");\\r
+> \n :set Url \$DetectIpAddrFallBack;\\r
+1049c1044
+< vice: \" . \$Url . \"...\");\r\\r
+---
+> vice: \" . \$Url . \"...\");\\r
+1052c1047
+< )} \\\r\\r
+---
+> )} \\\\r
+1054,1056c1049,1051
+< \_detect public IP using fallback service: \" . \$Url . \".\")}\r\\r
+< \n };\r\\r
+< \n :local IpLen ([ :len \$PubIpAddr ] -1);\r\\r
+---
+> \_detect public IP using fallback service: \" . \$Url . \".\")}\\r
+> \n };\\r
+> \n :local IpLen ([ :len \$PubIpAddr ] -1);\\r
+1058,1072c1053,1067
+< {:set PubIpAddr [:pick \$PubIpAddr 0 \$IpLen]}\r\\r
+< \n :return \$PubIpAddr;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set FormatLine do={\r\\r
+< \n :local Key [ :tostr \$1 ];\r\\r
+< \n :local Value [ :tostr \$2 ];\r\\r
+< \n :local Indent [ :tonum \$3 ];\r\\r
+< \n :local Spaces;\r\\r
+< \n :local Return \"\";\r\\r
+< \n :global CharacterMultiply;\r\\r
+< \n :global EitherOr;\r\\r
+< \n :set Indent [ \$EitherOr \$Indent 16 ];\r\\r
+< \n :local Spaces [ \$CharacterMultiply \" \" \$Indent ];\r\\r
+< \n :if ([ :len \$Key ] > 0) do={ :set Return (\$Key . \":\")}\r\\r
+---
+> {:set PubIpAddr [:pick \$PubIpAddr 0 \$IpLen]}\\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
+1074c1069
+< n\" . [ :pick \$Spaces 0 \$Indent ] . \$Value);\r\\r
+---
+> n\" . [ :pick \$Spaces 0 \$Indent ] . \$Value);\\r
+1076,1087c1071,1082
+< \$Return ]) ] . \$Value)}\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set ParseCustom do={\r\\r
+< \n :local Str [ :tostr \$1 ];\r\\r
+< \n :local Start [:find [ \$Str ] [:tostr \$2]];\r\\r
+< \n :local End [ :tostr \$3 ];\r\\r
+< \n :local Num [ :tonum \$4 ];\r\\r
+< \n :local Return;\r\\r
+< \n :if ([:len \$Num] = 0) do={:set Num \"0\"}\r\\r
+< \n :local rest [:pick \$Str (\$Start+\$Num) [:len \$Str]]; \r\\r
+---
+> \$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
+1089,1102c1084,1097
+< lse={\r\\r
+< \n :set End [:find \$rest \$End];\r\\r
+< \n :set Return [:pick \$rest 0 \$End];\r\\r
+< \n }\r\\r
+< \n:return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set LogPrint do={\r\\r
+< \n :local Severity [ :tostr \$1 ];\r\\r
+< \n :local Name [ :tostr \$2 ];\r\\r
+< \n :local Message [ :tostr \$3 ];\r\\r
+< \n :global PrintDebug;\r\\r
+< \n :global PrintDebugOverride;\r\\r
+< \n :global EitherOr;\r\\r
+---
+> 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
+1104,1110c1099,1105
+< ];\r\\r
+< \n :local PrintSeverity do={\r\\r
+< \n :global TerminalColorOutput;\r\\r
+< \n :if (\$TerminalColorOutput != true) do={:return \$1}\r\\r
+< \n :local Color { debug=96; info=97; warning=93; error=91 };\r\\r
+< \n :return (\"\\1B[\" . \$Color->\$1 . \"m\" . \$1 . \"\\1B[0m\");\r\\r
+< \n}\r\\r
+---
+> ];\\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
+1112,1117c1107,1111
+< \r\\r
+< \n :if (\$Severity ~ (\"^(custom|debug|error|info)\\\$\")) do={\r\\r
+< \n :if (\$Severity = \"debug\") do={:log debug \$Log}\r\\r
+< \n :if (\$Severity = \"error\") do={:log error \$Log}\r\\r
+< \n :if (\$Severity = \"info\" ) do={:log info \$Log}\r\\r
+< \n } else={:log warning \$Log; :set Severity \"warning\"}\r\\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
+1119,1135c1113,1129
+< erity \$Severity ] . \": \" . \$Message)}\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set CertificateAvailable do={\r\\r
+< \n :local CommonName [ :tostr \$1 ];\r\\r
+< \n :local UseFor [ :tostr \$2 ];\r\\r
+< \n\r\\r
+< \n :global CertificateDownload;\r\\r
+< \n :global ParseKeyValueStore;\r\\r
+< \n\r\\r
+< \n :if ([ :len \$UseFor ] = 0) do={\r\\r
+< \n :log warning (\$0 . \"The intended use is undefined!\");\r\\r
+< \n :set UseFor \"undefined\";\r\\r
+< \n }\r\\r
+< \n :if ([ /system/resource/get free-hdd-space ] < 8388608 && \\\r\\r
+< \n [ /certificate/settings/get crl-download ] = true && \\\r\\r
+< \n [ /certificate/settings/get crl-store ] = \"system\") do={\r\\r
+---
+> 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\\r
+> \n :global CertificateDownload;\\r
+> \n :global ParseKeyValueStore;\\r
+> \n\\r
+> \n :if ([ :len \$UseFor ] = 0) do={\\r
+> \n :log warning (\$0 . \"The intended use is undefined!\");\\r
+> \n :set UseFor \"undefined\";\\r
+> \n }\\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
+1137,1144c1131,1138
+< \\\r\\r
+< \n \"is configured to download certificate CRLs to system!\");\r\\r
+< \n }\r\\r
+< \n :if ([ :len \$CommonName ] = 0) do={\r\\r
+< \n :log warning (\$0 . \"No CommonName given!\");\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :local CertSettings [ /certificate/settings/get ];\r\\r
+---
+> \\\\r
+> \n \"is configured to download certificate CRLs to system!\");\\r
+> \n }\\r
+> \n :if ([ :len \$CommonName ] = 0) do={\\r
+> \n :log warning (\$0 . \"No CommonName given!\");\\r
+> \n :return false;\\r
+> \n }\\r
+> \n :local CertSettings [ /certificate/settings/get ];\\r
+1146,1148c1140,1141
+< \r\\r
+< \n (\$CertSettings->\"builtin-trust-store\") ~ \$UseFor || \\\r\\r
+< \n (\$CertSettings->\"builtin-trust-store\") = \"all\") && \\\r\\r
+---
+> \n (\$CertSettings->\"builtin-trust-store\") ~ \$UseFor || \\\\r
+> \n (\$CertSettings->\"builtin-trust-store\") = \"all\") && \\\\r
+1150,1152c1143,1145
+< \_] ] > 0) do={\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+---
+> \_] ] > 0) do={\\r
+> \n :return true;\\r
+> \n }\\r
+1154c1147
+< ) do={\r\\r
+---
+> ) do={\\r
+1156,1160c1149,1153
+< \"' not available.\");\r\\r
+< \n :if ([ \$CertificateDownload \$CommonName ] = false) do={\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n }\r\\r
+---
+> \"' not available.\");\\r
+> \n :if ([ \$CertificateDownload \$CommonName ] = false) do={\\r
+> \n :return false;\\r
+> \n }\\r
+> \n }\\r
+1162c1155
+< ) do={\r\\r
+---
+> ) do={\\r
+1164,1166c1157,1159
+< \_CommonName '\" . \$CommonName . \"'. Should be ok.\");\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+---
+> \_CommonName '\" . \$CommonName . \"'. Should be ok.\");\\r
+> \n :return true;\\r
+> \n }\\r
+1168c1161
+< e ] ];\r\\r
+---
+> e ] ];\\r
+1170c1163
+< ertVal->\"skid\")) do={\r\\r
+---
+> ertVal->\"skid\")) do={\\r
+1172c1165
+< \_= 0) do={\r\\r
+---
+> \_= 0) do={\\r
+1174c1167
+< >\"CN\");\r\\r
+---
+> >\"CN\");\\r
+1176,1180c1169,1173
+< is incomplete, missing '\" . \$IssuerCN . \"'.\");\r\\r
+< \n :if ([ \$CertificateDownload \$IssuerCN ] = false) do={\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n }\r\\r
+---
+> is incomplete, missing '\" . \$IssuerCN . \"'.\");\\r
+> \n :if ([ \$CertificateDownload \$IssuerCN ] = false) do={\\r
+> \n :return false;\\r
+> \n }\\r
+> \n }\\r
+1182,1196c1175,1189
+< \") ] ];\r\\r
+< \n }\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set CertificateDownload do={\r\\r
+< \n :local CommonName [ :tostr \$1 ];\r\\r
+< \n :global ScriptUpdatesBaseUrl;\r\\r
+< \n :global ScriptUpdatesUrlSuffix;\r\\r
+< \n :global CertificateNameByCN;\r\\r
+< \n :global CleanName;\r\\r
+< \n :global FetchUserAgentStr;\r\\r
+< \n :global RmFile;\r\\r
+< \n :global WaitForFile;\r\\r
+< \n\r\\r
+---
+> \") ] ];\\r
+> \n }\\r
+> \n :return true;\\r
+> \n}\\r
+> \n\\r
+> \n:set CertificateDownload do={\\r
+> \n :local CommonName [ :tostr \$1 ];\\r
+> \n :global ScriptUpdatesBaseUrl;\\r
+> \n :global ScriptUpdatesUrlSuffix;\\r
+> \n :global CertificateNameByCN;\\r
+> \n :global CleanName;\\r
+> \n :global FetchUserAgentStr;\\r
+> \n :global RmFile;\\r
+> \n :global WaitForFile;\\r
+> \n\\r
+1198,1201c1191,1193
+< \r\\r
+< \n \"CommonName '\" . \$CommonName . \"'.\");\r\\r
+< \n :local FileName ([ \$CleanName \$CommonName ] . \".pem\");\r\\r
+< \n :do {\r\\r
+---
+> \n \"CommonName '\" . \$CommonName . \"'.\");\\r
+> \n :local FileName ([ \$CleanName \$CommonName ] . \".pem\");\\r
+> \n :do {\\r
+1203c1195
+< -field=({ [ \$FetchUserAgentStr \$0 ] }) \\\r\\r
+---
+> -field=({ [ \$FetchUserAgentStr \$0 ] }) \\\\r
+1205,1208c1197,1200
+< sUrlSuffix) \\\r\\r
+< \n dst-path=\$FileName as-value;\r\\r
+< \n \$WaitForFile \$FileName;\r\\r
+< \n } on-error={\r\\r
+---
+> sUrlSuffix) \\\\r
+> \n dst-path=\$FileName as-value;\\r
+> \n \$WaitForFile \$FileName;\\r
+> \n } on-error={\\r
+1210,1213c1202,1205
+< e '\" . \$CommonName . \\\r\\r
+< \n \"' from repository! Trying fallback to mkcert.org...\");\r\\r
+< \n :do {\r\\r
+< \n :local CertSettings [ /certificate/settings/get ];\r\\r
+---
+> e '\" . \$CommonName . \\\\r
+> \n \"' from repository! Trying fallback to mkcert.org...\");\\r
+> \n :do {\\r
+> \n :local CertSettings [ /certificate/settings/get ];\\r
+1215c1207
+< \_] ] = 0 && \\\r\\r
+---
+> \_] ] = 0 && \\\\r
+1217c1209
+< || \\\r\\r
+---
+> || \\\\r
+1219c1211
+< \\\r\\r
+---
+> \\\\r
+1221d1212
+< \r\\r
+1223c1214
+< \_Root X1\" ] ] > 0)) do={\r\\r
+---
+> \_Root X1\" ] ] > 0)) do={\\r
+1225,1227c1216,1217
+< \r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+---
+> \n :return false;\\r
+> \n }\\r
+1229c1219
+< er-field=({ [ \$FetchUserAgentStr \$0 ] }) \\\r\\r
+---
+> er-field=({ [ \$FetchUserAgentStr \$0 ] }) \\\\r
+1231,1238c1221,1228
+< n ({ \$CommonName }) ] \\\r\\r
+< \n dst-path=\$FileName as-value;\r\\r
+< \n \$WaitForFile \$FileName;\r\\r
+< \n :if ([ /file/get \$FileName size ] = 0) do={\r\\r
+< \n \$RmFile \$FileName;\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n } on-error={\r\\r
+---
+> n ({ \$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
+1240,1246c1230,1236
+< e '\" . \$CommonName . \"'!\");\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n /certificate/import file-name=\$FileName passphrase=\"\" as-value;\r\\r
+< \n :delay 1s;\r\\r
+< \n \$RmFile \$FileName;\r\\r
+---
+> e '\" . \$CommonName . \"'!\");\\r
+> \n :return false;\\r
+> \n }\\r
+> \n }\\r
+> \n /certificate/import file-name=\$FileName passphrase=\"\" as-value;\\r
+> \n :delay 1s;\\r
+> \n \$RmFile \$FileName;\\r
+1248c1238
+< ) do={\r\\r
+---
+> ) do={\\r
+1250c1240
+< +\\\$\") ];\r\\r
+---
+> +\\\$\") ];\\r
+1252,1254c1242,1244
+< e . \"' still unavailable!\");\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+---
+> e . \"' still unavailable!\");\\r
+> \n :return false;\\r
+> \n }\\r
+1256,1264c1246,1254
+< \"_[0-9]+\\\$\") ] do={\r\\r
+< \n \$CertificateNameByCN [ /certificate/get \$Cert common-name ];\r\\r
+< \n }\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set CertificateNameByCN do={\r\\r
+< \n :local Match [ :tostr \$1 ];\r\\r
+< \n :global CleanName;\r\\r
+---
+> \"_[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
+1266,1291c1256,1281
+< rint=\$Match or name=\$Match) ]->0);\r\\r
+< \n :if ([ :len \$Cert ] = 0) do={\r\\r
+< \n :log warning (\$0 .\" No matching certificate found.\");\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :local CommonName [ /certificate/get \$Cert common-name ];\r\\r
+< \n /certificate/set \$Cert name=[ \$CleanName \$CommonName ];\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set CharacterMultiply do={\r\\r
+< \n :local Str [ :tostr \$1 ];\r\\r
+< \n :local Num [ :tonum \$2 ];\r\\r
+< \n :if (\$Num = 0) do={:return \"\"}\r\\r
+< \n :local Return \"\";\r\\r
+< \n :for I from=1 to=\$Num do={:set Return (\$Return . \$Str)}\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set FileExists do={\r\\r
+< \n :local FileName [ :tostr \$1 ];\r\\r
+< \n :local Type [ :tostr \$2 ];\r\\r
+< \n :global FileGet;\r\\r
+< \n :local FileVal [ \$FileGet \$FileName ];\r\\r
+< \n :if (\$FileVal = false) do={ :return false; }\r\\r
+< \n :if ([ :len (\$FileVal->\"size\") ] = 0) do={ :return false; }\r\\r
+---
+> rint=\$Match or name=\$Match) ]->0);\\r
+> \n :if ([ :len \$Cert ] = 0) do={\\r
+> \n :log 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 FileExists do={\\r
+> \n :local FileName [ :tostr \$1 ];\\r
+> \n :local Type [ :tostr \$2 ];\\r
+> \n :global FileGet;\\r
+> \n :local FileVal [ \$FileGet \$FileName ];\\r
+> \n :if (\$FileVal = false) do={ :return false; }\\r
+> \n :if ([ :len (\$FileVal->\"size\") ] = 0) do={ :return false; }\\r
+1293,1299c1283,1289
+< \_true; }\r\\r
+< \n :return false;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set Grep do={\r\\r
+< \n :local Input ([ :tostr \$1 ] . \"\\n\");\r\\r
+< \n :local Pattern [ :tostr \$2 ];\r\\r
+---
+> \_true; }\\r
+> \n :return false;\\r
+> \n}\\r
+> \n\\r
+> \n:set Grep do={\\r
+> \n :local Input ([ :tostr \$1 ] . \"\\n\");\\r
+> \n :local Pattern [ :tostr \$2 ];\\r
+1301,1303c1291,1293
+< }\r\\r
+< \n :do {\r\\r
+< \n :local Line [ :pick \$Input 0 [ :find \$Input \"\\n\" ] ];\r\\r
+---
+> }\\r
+> \n :do {\\r
+> \n :local Line [ :pick \$Input 0 [ :find \$Input \"\\n\" ] ];\\r
+1305c1295
+< \$Line}\r\\r
+---
+> \$Line}\\r
+1307,1329c1297,1319
+< Input ] ];\r\\r
+< \n } while=([ :len \$Input ] > 0);\r\\r
+< \n :return [];\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set HumanReadableNum do={\r\\r
+< \n :local Input [ :tonum \$1 ];\r\\r
+< \n :local Base [ :tonum \$2 ];\r\\r
+< \n :global EitherOr;\r\\r
+< \n :global IfThenElse;\r\\r
+< \n :local Prefix \"kMGTPE\";\r\\r
+< \n :local Pow 1;\r\\r
+< \n :set Base [ \$EitherOr \$Base 1024 ];\r\\r
+< \n :local Bin [ \$IfThenElse (\$Base = 1024) \"i\" \"\" ];\r\\r
+< \n :if (\$Input < \$Base) do={:return \$Input}\r\\r
+< \n :for I from=0 to=[ :len \$Prefix ] do={\r\\r
+< \n :set Pow (\$Pow * \$Base);\r\\r
+< \n :if (\$Input / \$Base < \$Pow) do={\r\\r
+< \n :set Prefix [ :pick \$Prefix \$I ];\r\\r
+< \n :local Tmp1 (\$Input * 100 / \$Pow);\r\\r
+< \n :local Tmp2 (\$Tmp1 / 100);\r\\r
+< \n :if (\$Tmp2 >= 100) do={:return (\$Tmp2 . \$Prefix . \$Bin)}\r\\r
+< \n :return (\$Tmp2 . \".\" . \\\r\\r
+---
+> 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
+1331,1339c1321,1329
+< 2 ] + 1) ] . \\\r\\r
+< \n \$Prefix . \$Bin);\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set CleanFilePath do={\r\\r
+< \n :local Path [ :tostr \$1 ];\r\\r
+< \n :global CharacterReplace;\r\\r
+---
+> 2 ] + 1) ] . \\\\r
+> \n \$Prefix . \$Bin);\\r
+> \n }\\r
+> \n }\\r
+> \n}\\r
+> \n\\r
+> \n:set CleanFilePath do={\\r
+> \n :local Path [ :tostr \$1 ];\\r
+> \n :global CharacterReplace;\\r
+1341c1331
+< \"//\" \"/\" ]; }\r\\r
+---
+> \"//\" \"/\" ]; }\\r
+1343c1333
+< n \$Path ] ]; }\r\\r
+---
+> n \$Path ] ]; }\\r
+1345,1353c1335,1343
+< :pick \$Path 0 ([ :len \$Path ] - 1) ]; }\r\\r
+< \n :return \$Path;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set CleanName do={\r\\r
+< \n :local Input [ :tostr \$1 ];\r\\r
+< \n :local Return \"\";\r\\r
+< \n :for I from=0 to=([ :len \$Input ] - 1) do={\r\\r
+< \n :local Char [ :pick \$Input \$I ];\r\\r
+---
+> :pick \$Path 0 ([ :len \$Path ] - 1) ]; }\\r
+> \n :return \$Path;\\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
+1355,1356c1345,1346
+< stuvwxyz0123456789\" \$Char ] ] = \"nil\") do={\r\\r
+< \n :do {:if ([ :len \$Return ] = 0) do={:error true};\r\\r
+---
+> stuvwxyz0123456789\" \$Char ] ] = \"nil\") do={\\r
+> \n :do {:if ([ :len \$Return ] = 0) do={:error true};\\r
+1358,1370c1348,1360
+< ror true}; :set Char \"-\"} on-error={:set Char \"\"}; \r\\r
+< \n };\r\\r
+< \n :set Return (\$Return . \$Char)};\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set RandomDelay do={\r\\r
+< \n :local Time [ :tonum \$1 ];\r\\r
+< \n :local Unit [ :tostr \$2 ];\r\\r
+< \n :global EitherOr;\r\\r
+< \n :global GetRandomNumber;\r\\r
+< \n :global MAX;\r\\r
+< \n :if (\$Time = 0) do={:return false}\r\\r
+---
+> 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 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
+1372,1393c1362,1383
+< [ \$EitherOr \$Unit \"s\" ]) ] ] / 1000000) ] ] . \"ms\");\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set EscapeForRegEx do={\r\\r
+< \n :local Input [ :tostr \$1 ];\r\\r
+< \n :if ([ :len \$Input ] = 0) do={:return \"\"}\r\\r
+< \n :local Return \"\";\r\\r
+< \n :local Chars (\"^.[]\\\$()|*+\?{}\\\\\");\r\\r
+< \n :for I from=0 to=([ :len \$Input ] - 1) do={\r\\r
+< \n :local Char [ :pick \$Input \$I ];\r\\r
+< \n :if ([ :find \$Chars \$Char ]) do={:set Char (\"\\\\\" . \$Char)}\r\\r
+< \n :set Return (\$Return . \$Char);\r\\r
+< \n }\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set ExitError do={\r\\r
+< \n :local ExitOK [ :tostr \$1 ];\r\\r
+< \n :local Name [ :tostr \$2 ];\r\\r
+< \n :local Error [ :tostr \$3 ];\r\\r
+< \n :global IfThenElse;\r\\r
+< \n :if (\$ExitOK = \"false\") do={\r\\r
+---
+> [ \$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\\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 :if (\$ExitOK = \"false\") do={\\r
+1395c1385
+< \\\r\\r
+---
+> \\\\r
+1397c1387
+< ror\" . \\\r\\r
+---
+> ror\" . \\\\r
+1399,1406c1389,1396
+< \$Error) \".\" ]);\r\\r
+< \n }\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set ExitOnError do={\r\\r
+< \n :local Name [ :tostr \$1 ];\r\\r
+< \n :local Error [ :tostr \$2 ];\r\\r
+< \n :global IfThenElse;\r\\r
+---
+> \$Error) \".\" ]);\\r
+> \n }\\r
+> \n}\\r
+> \n\\r
+> \n:set ExitOnError do={\\r
+> \n :local Name [ :tostr \$1 ];\\r
+> \n :local Error [ :tostr \$2 ];\\r
+> \n :global IfThenElse;\\r
+1408c1398
+< \\\$\") \\\r\\r
+---
+> \\\$\") \\\\r
+1410c1400
+< r\" . \\\r\\r
+---
+> r\" . \\\\r
+1412,1424c1402,1414
+< rror) \".\" ]);\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set MiniDateTimeStamp do={\r\\r
+< \n :local mikro [ :tobool \$1 ];\r\\r
+< \n /system/clock;\r\\r
+< \n :local vdate [get date];\r\\r
+< \n :local vtime [get time];\r\\r
+< \n :local vdoff [:toarray \"0,4,5,7,8,10\"];\r\\r
+< \n :local MM [:pick \$vdate (\$vdoff->2) (\$vdoff->3)];\r\\r
+< \n :local M [:tonum \$MM];\r\\r
+< \n :if (\$vdate ~ \".../../....\") do={\r\\r
+< \n :set vdoff [:toarray \"7,11,1,3,4,6\"];\r\\r
+---
+> rror) \".\" ]);\\r
+> \n}\\r
+> \n\\r
+> \n:set MiniDateTimeStamp do={\\r
+> \n :local mikro [ :tobool \$1 ];\\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
+1426,1436c1416,1426
+< PCTOVEC\" [:pick \$vdate (\$vdoff->2) (\$vdoff->3)] -1] / 2);\r\\r
+< \n :if (\$M>12) do={:set M (\$M - 12)}\r\\r
+< \n :set MM [:pick (100 + \$M) 1 3];\r\\r
+< \n }\r\\r
+< \n :local yyyy [:pick \$vdate (\$vdoff->0) (\$vdoff->1)];\r\\r
+< \n :local dd [:pick \$vdate (\$vdoff->4) (\$vdoff->5)];\r\\r
+< \n :local HH [:pick \$vtime 0 2];\r\\r
+< \n :local mm [:pick \$vtime 3 5];\r\\r
+< \n :local ss [:pick \$vtime 6 8];\r\\r
+< \n :local Return;\r\\r
+< \n :if (\$mikro = true) do={\r\\r
+---
+> 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 :local Return;\\r
+> \n :if (\$mikro = true) do={\\r
+1438,1439c1428,1429
+< \_1] . [:pick \$mm 3 4] . [:pick \$ss 6 7]);\r\\r
+< \n } else={\r\\r
+---
+> \_1] . [:pick \$mm 3 4] . [:pick \$ss 6 7]);\\r
+> \n } else={\\r
+1441,1493c1431,1482
+< \r\\r
+< \n }\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set WaitForFile do={\r\\r
+< \n :local FileName [ :tostr \$1 ];\r\\r
+< \n :local WaitTime [ :totime \$2 ];\r\\r
+< \n :global CleanFilePath;\r\\r
+< \n :global EitherOr;\r\\r
+< \n :global MAX;\r\\r
+< \n :set FileName [ \$CleanFilePath \$FileName ];\r\\r
+< \n :local Delay ([ \$MAX [ \$EitherOr \$WaitTime 2s ] 100ms ] / 9);\r\\r
+< \n :do {\r\\r
+< \n :retry {\r\\r
+< \n /file/get \$FileName;\r\\r
+< \n :return true;\r\\r
+< \n } delay=\$Delay max=10;\r\\r
+< \n } on-error={ }\r\\r
+< \n :while ([ :len [ /file/find where name=\$FileName ] ] > 0) do={\r\\r
+< \n :do {\r\\r
+< \n /file/get \$FileName;\r\\r
+< \n :return true;\r\\r
+< \n } on-error={ }\r\\r
+< \n :delay \$Delay;\r\\r
+< \n :set Delay (\$Delay * 3 / 2);\r\\r
+< \n }\r\\r
+< \n :return false;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set FileGet do={\r\\r
+< \n :local FileName [ :tostr \$1 ];\r\\r
+< \n :global WaitForFile;\r\\r
+< \n :if ([ \$WaitForFile \$FileName 0s ] = false) do={\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :local FileVal false;\r\\r
+< \n :do {\r\\r
+< \n :set FileVal [ /file/get \$FileName ];\r\\r
+< \n } on-error={ }\r\\r
+< \n :return \$FileVal;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set RmDir do={\r\\r
+< \n :local DirName [ :tostr \$1 ];\r\\r
+< \n :global FileGet;\r\\r
+< \n :log debug (\$0 . \" Removing directory: \". \$DirName);\r\\r
+< \n :local DirVal [ \$FileGet \$DirName ];\r\\r
+< \n :if (\$DirVal = false) do={\r\\r
+< \n :log debug (\$0 . \" ... which does not exist.\");\r\\r
+< \n :return true;\r\\r
+< \n };\r\\r
+< \n :if (\$DirVal->\"type\" != \"directory\") do={\r\\r
+---
+> \n }\\r
+> \n :return \$Return;\\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={\\r
+> \n :return false;\\r
+> \n }\\r
+> \n :local FileVal false;\\r
+> \n :do {\\r
+> \n :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 :log debug (\$0 . \" Removing directory: \". \$DirName);\\r
+> \n :local DirVal [ \$FileGet \$DirName ];\\r
+> \n :if (\$DirVal = false) do={\\r
+> \n :log debug (\$0 . \" ... which does not exist.\");\\r
+> \n :return true;\\r
+> \n };\\r
+> \n :if (\$DirVal->\"type\" != \"directory\") do={\\r
+1495,1500c1484,1489
+< ory.\");\r\\r
+< \n :return false;\r\\r
+< \n };\r\\r
+< \n :onerror Err {\r\\r
+< \n /file/remove \$DirName;\r\\r
+< \n } do={\r\\r
+---
+> ory.\");\\r
+> \n :return false;\\r
+> \n };\\r
+> \n :onerror Err {\\r
+> \n /file/remove \$DirName;\\r
+> \n } do={\\r
+1502,1516c1491,1505
+< : \" . \$Err);\r\\r
+< \n :return false;\r\\r
+< \n };\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set RmFile do={\r\\r
+< \n :local FileName [ :tostr \$1 ];\r\\r
+< \n :global FileGet;\r\\r
+< \n :log debug (\$0 . \" Removing file: \". \$FileName);\r\\r
+< \n :local FileVal [ \$FileGet \$FileName ];\r\\r
+< \n :if (\$FileVal = false) do={\r\\r
+< \n :log debug (\$0 . \" ... which does not exist.\");\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+---
+> : \" . \$Err);\\r
+> \n :return false;\\r
+> \n };\\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 :log debug (\$0 . \" Removing file: \". \$FileName);\\r
+> \n :local FileVal [ \$FileGet \$FileName ];\\r
+> \n :if (\$FileVal = false) do={\\r
+> \n :log debug (\$0 . \" ... which does not exist.\");\\r
+> \n :return true;\\r
+> \n }\\r
+1518c1507
+< sk\") do={\r\\r
+---
+> sk\") do={\\r
+1520,1525c1509,1513
+< \r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :onerror Err {\r\\r
+< \n /file/remove \$FileName;\r\\r
+< \n } do={\r\\r
+---
+> \n :return false;\\r
+> \n }\\r
+> \n :onerror Err {\\r
+> \n /file/remove \$FileName;\\r
+> \n } do={\\r
+1527,1551c1515,1539
+< \_. \$Err); :return false;\r\\r
+< \n }\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set MkDir do={\r\\r
+< \n :local Path [ :tostr \$1 ];\r\\r
+< \n :global CleanFilePath;\r\\r
+< \n :global FileGet;\r\\r
+< \n :global RmDir;\r\\r
+< \n :global WaitForFile;\r\\r
+< \n\r\\r
+< \n :local MkTmpfs do={\r\\r
+< \n :global WaitForFile;\r\\r
+< \n :local TmpFs [ /disk/find where slot=tmpfs type=tmpfs ];\r\\r
+< \n :if ([ :len \$TmpFs ] = 1) do={\r\\r
+< \n :if ([ /disk/get \$TmpFs disabled ] = true) do={\r\\r
+< \n :log info (\$0 . \" The tmpfs is disabled, enabling.\");\r\\r
+< \n /disk/enable \$TmpFs;\r\\r
+< \n }\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+< \n :log info (\$0 . \" Creating disk of type tmpfs.\");\r\\r
+< \n \$RmDir \"tmpfs\";\r\\r
+< \n :onerror Err {\r\\r
+---
+> \_. \$Err); :return false;\\r
+> \n }\\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\\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 :log info (\$0 . \" The tmpfs is disabled, enabling.\");\\r
+> \n /disk/enable \$TmpFs;\\r
+> \n }\\r
+> \n :return true;\\r
+> \n }\\r
+> \n :log info (\$0 . \" Creating disk of type tmpfs.\");\\r
+> \n \$RmDir \"tmpfs\";\\r
+> \n :onerror Err {\\r
+1553,1555c1541,1543
+< /get total-memory ] / 3);\r\\r
+< \n \$WaitForFile \"tmpfs\";\r\\r
+< \n } do={\r\\r
+---
+> /get total-memory ] / 3);\\r
+> \n \$WaitForFile \"tmpfs\";\\r
+> \n } do={\\r
+1557,1580c1545,1568
+< Err);\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+< \n :set Path [ \$CleanFilePath \$Path ];\r\\r
+< \n :if (\$Path = \"\") do={\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+< \n :log debug (\$0 . \" Making directory: \" . \$Path);\r\\r
+< \n :local PathVal [ \$FileGet \$Path ];\r\\r
+< \n :if (\$PathVal->\"type\" = \"directory\") do={\r\\r
+< \n :log debug (\$0 . \" ... which already exists.\");\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+< \n :if ([ :pick \$Path 0 5 ] = \"tmpfs\") do={\r\\r
+< \n :if ([ \$MkTmpfs ] = false) do={\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :onerror Err {\r\\r
+< \n /file/add type=\"directory\" name=\$Path;\r\\r
+< \n \$WaitForFile \$Path;\r\\r
+< \n } do={\r\\r
+---
+> 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 :log debug (\$0 . \" Making directory: \" . \$Path);\\r
+> \n :local PathVal [ \$FileGet \$Path ];\\r
+> \n :if (\$PathVal->\"type\" = \"directory\") do={\\r
+> \n :log 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
+1582,1609c1570,1597
+< \" . \$Err);\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set MAX do={:if (\$1 > \$2) do={:return \$1}\r\\r
+< \n :return \$2;\r\\r
+< \n}\r\\r
+< \n:set MIN do={:if (\$1 < \$2) do={:return \$1}\r\\r
+< \n :return \$2;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set CharacterMultiply do={\r\\r
+< \n :local Str [ :tostr \$1 ];\r\\r
+< \n :local Num [ :tonum \$2 ];\r\\r
+< \n :if (\$Num = 0) do={:return \"\"}\r\\r
+< \n :local Return \"\";\r\\r
+< \n :for I from=1 to=\$Num do={:set Return (\$Return . \$Str)}\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set CharacterReplace do={\r\\r
+< \n :local String [ :tostr \$1 ];\r\\r
+< \n :local ReplaceFrom [ :tostr \$2 ];\r\\r
+< \n :local ReplaceWith [ :tostr \$3 ];\r\\r
+< \n :local Return \"\";\r\\r
+< \n :if (\$ReplaceFrom = \"\") do={:return \$String}\r\\r
+---
+> \" . \$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
+1611,1612c1599
+< \r\\r
+< \n :local Pos [ :find \$String \$ReplaceFrom ];\r\\r
+---
+> \n :local Pos [ :find \$String \$ReplaceFrom ];\\r
+1614d1600
+< \r\\r
+1616,1621c1602,1607
+< \_\$String ] ];\r\\r
+< \n }\r\\r
+< \n :return (\$Return . \$String);\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set IfThenElse do={\r\\r
+---
+> \_\$String ] ];\\r
+> \n }\\r
+> \n :return (\$Return . \$String);\\r
+> \n}\\r
+> \n\\r
+> \n:set IfThenElse do={\\r
+1623,1628c1609,1614
+< \$2};\r\\r
+< \n :return \$3;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set EitherOr do={\r\\r
+< \n :global IfThenElse;\r\\r
+---
+> \$2};\\r
+> \n :return \$3;\\r
+> \n}\\r
+> \n\\r
+> \n:set EitherOr do={\\r
+> \n :global IfThenElse;\\r
+1630c1616
+< \$1 \$2 ]}\r\\r
+---
+> \$1 \$2 ]}\\r
+1632,1643c1618,1629
+< \_\$1 \$2 ]}\r\\r
+< \n# this works for boolean values, literal ones with parentheses\r\\r
+< \n :return [ \$IfThenElse ([ :len [ :tostr \$1 ] ] > 0) \$1 \$2 ];\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set ParseKeyValueStore do={\r\\r
+< \n :local Source \$1;\r\\r
+< \n :if ([ :pick \$Source 0 1 ] = \"{\") do={\r\\r
+< \n :do {\r\\r
+< \n :return [ :deserialize from=json \$Source ];\r\\r
+< \n } on-error={ }\r\\r
+< \n } \r\\r
+---
+> \_\$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
+1645,1649c1631,1635
+< }\r\\r
+< \n :local Result ({});\r\\r
+< \n :foreach KeyValue in=[ :toarray \$Source ] do={\r\\r
+< \n :if ([ :find \$KeyValue \"=\" ]) do={\r\\r
+< \n :local Key [ :pick \$KeyValue 0 [ :find \$KeyValue \"=\" ] ];\r\\r
+---
+> }\\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
+1651,1664c1637,1650
+< \_:len \$KeyValue ] ];\r\\r
+< \n :if (\$Value=\"true\") do={:set Value true}\r\\r
+< \n :if (\$Value=\"false\") do={:set Value false}\r\\r
+< \n :set (\$Result->\$Key) \$Value;\r\\r
+< \n } else={:set (\$Result->\$KeyValue) true}\r\\r
+< \n }\r\\r
+< \n :return \$Result;\r\\r
+< \n}\r\\r
+< \n:set RequiredRouterOS do={\r\\r
+< \n :local Caller [ :tostr \$1 ];\r\\r
+< \n :local Required [ :tostr \$2 ];\r\\r
+< \n :local Warn [ :tostr \$3 ];\r\\r
+< \n :global IfThenElse;\r\\r
+< \n :global VersionToNum;\r\\r
+---
+> \_: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 VersionToNum;\\r
+1666,1669c1652,1655
+< \\\$\")) do={\r\\r
+< \n :log error (\$0 . \" No valid RouterOS version: \" . \$Required);\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+---
+> \\\$\")) do={\\r
+> \n :log error (\$0 . \" No valid RouterOS version: \" . \$Required);\\r
+> \n :return false;\\r
+> \n }\\r
+1671,1672c1657,1658
+< e/update/get installed-version ] ]) do={\r\\r
+< \n :if (\$Warn = \"true\") do={\r\\r
+---
+> e/update/get installed-version ] ]) do={\\r
+> \n :if (\$Warn = \"true\") do={\\r
+1674c1660
+< 0 ] = (\"\\\$\")) \"function\" \"script\" ] . \\\r\\r
+---
+> 0 ] = (\"\\\$\")) \"function\" \"script\" ] . \\\\r
+1676,1701c1662,1687
+< es RouterOS \" . \$Required . \". Please update!\");\r\\r
+< \n }\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set ValidateSyntax do={\r\\r
+< \n :local Code [ :tostr \$1 ];\r\\r
+< \n :global LogPrint;\r\\r
+< \n :onerror Err {\r\\r
+< \n [ :parse (\":local Validate do={\\n\" . \$Code . \"\\n}\") ];\r\\r
+< \n } do={\r\\r
+< \n \$LogPrint debug \$0 (\"Valdation failed: \" . \$Err);\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set VersionToNum do={\r\\r
+< \n :local Input [ :tostr \$1 ];\r\\r
+< \n :local Multi 0x1000000;\r\\r
+< \n :local Return 0;\r\\r
+< \n :global CharacterReplace;\r\\r
+< \n :set Input [ \$CharacterReplace \$Input \".\" \",\" ];\r\\r
+< \n :foreach I in={ \"zero\"; \"alpha\"; \"beta\"; \"rc\" } do={\r\\r
+---
+> es RouterOS \" . \$Required . \". Please update!\");\\r
+> \n }\\r
+> \n :return false;\\r
+> \n }\\r
+> \n :return true;\\r
+> \n}\\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\\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
+1703,1712c1689,1697
+< \r\\r
+< \n }\r\\r
+< \n :foreach Value in=([ :toarray \$Input ], 0) do={\r\\r
+< \n :local Num [ :tonum \$Value ];\r\\r
+< \n :if (\$Multi = 0x100) do={\r\\r
+< \n :if ([ :typeof \$Num ] = \"num\") do={\r\\r
+< \n :set Return (\$Return + 0xff00);\r\\r
+< \n :set Multi (\$Multi / 0x100);\r\\r
+< \n } else={\r\\r
+< \n :if (\$Value = \"zero\") do={ }\r\\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
+1714c1699
+< }\r\\r
+---
+> }\\r
+1716,1719c1701,1703
+< \r\\r
+< \n :if (\$Value = \"rc\") do={ :set Return (\$Return + 0x7f00); }\r\\r
+< \n }\r\\r
+< \n }\r\\r
+---
+> \n :if (\$Value = \"rc\") do={ :set Return (\$Return + 0x7f00); }\\r
+> \n }\\r
+> \n }\\r
+1721,1740c1705,1724
+< lue * \$Multi)); }\r\\r
+< \n :set Multi (\$Multi / 0x100);\r\\r
+< \n }\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set ScriptLock do={\r\\r
+< \n :local Script [ :tostr \$1 ];\r\\r
+< \n :local WaitMax [ :totime \$2 ];\r\\r
+< \n :global GetRandom20CharAlNum;\r\\r
+< \n :global IfThenElse;\r\\r
+< \n :global ScriptLockOrder;\r\\r
+< \n :if ([ :typeof \$ScriptLockOrder ] = \"nothing\") do={\r\\r
+< \n :set ScriptLockOrder ({});\r\\r
+< \n }\r\\r
+< \n :if ([ :typeof (\$ScriptLockOrder->\$Script) ] = \"nothing\") do={\r\\r
+< \n :set (\$ScriptLockOrder->\$Script) ({});\r\\r
+< \n }\r\\r
+< \n :local JobCount do={\r\\r
+< \n :local Script [ :tostr \$1 ];\r\\r
+---
+> lue * \$Multi)); }\\r
+> \n :set Multi (\$Multi / 0x100);\\r
+> \n }\\r
+> \n :return \$Return;\\r
+> \n}\\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 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
+1742,1748c1726,1731
+< \r\\r
+< \n }\r\\r
+< \n :local TicketCount do={\r\\r
+< \n :local Script [ :tostr \$1 ];\r\\r
+< \n :global ScriptLockOrder;\r\\r
+< \n :local Count 0;\r\\r
+< \n :foreach Ticket in=(\$ScriptLockOrder->\$Script) do={\r\\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
+1750,1759c1733,1742
+< + 1)}\r\\r
+< \n }\r\\r
+< \n :return \$Count;\r\\r
+< \n }\r\\r
+< \n :local IsFirstTicket do={\r\\r
+< \n :local Script [ :tostr \$1 ];\r\\r
+< \n :local Check [ :tostr \$2 ];\r\\r
+< \n :global ScriptLockOrder;\r\\r
+< \n :foreach Ticket in=(\$ScriptLockOrder->\$Script) do={\r\\r
+< \n :if (\$Ticket = \$Check) do={:return true}\r\\r
+---
+> + 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
+1761,1772c1744,1755
+< o={:return false}\r\\r
+< \n }\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :local AddTicket do={\r\\r
+< \n :local Script [ :tostr \$1 ];\r\\r
+< \n :local Add [ :tostr \$2 ];\r\\r
+< \n :global ScriptLockOrder;\r\\r
+< \n :while (true) do={\r\\r
+< \n :local Pos [ :len (\$ScriptLockOrder->\$Script) ];\r\\r
+< \n :set (\$ScriptLockOrder->\$Script->\$Pos) \$Add;\r\\r
+< \n :delay 10ms;\r\\r
+---
+> 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
+1774,1797c1757,1780
+< e}\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :local RemoveTicket do={\r\\r
+< \n :local Script [ :tostr \$1 ];\r\\r
+< \n :local Remove [ :tostr \$2 ];\r\\r
+< \n :global ScriptLockOrder;\r\\r
+< \n :foreach Id,Ticket in=(\$ScriptLockOrder->\$Script) do={\r\\r
+< \n :while ((\$ScriptLockOrder->\$Script->\$Id) = \$Remove) do={\r\\r
+< \n :set (\$ScriptLockOrder->\$Script->\$Id);\r\\r
+< \n :delay 10ms;\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :local CleanupTickets do={\r\\r
+< \n :local Script [ :tostr \$1 ];\r\\r
+< \n :global ScriptLockOrder;\r\\r
+< \n :foreach Ticket in=(\$ScriptLockOrder->\$Script) do={\r\\r
+< \n :if ([ :typeof \$Ticket ] != \"nothing\") do={:return false}\r\\r
+< \n }\r\\r
+< \n :set (\$ScriptLockOrder->\$Script) ({});\r\\r
+< \n }\r\\r
+< \n :if ([ :typeof \$WaitMax ] = \"nil\" ) do={:set WaitMax 0s}\r\\r
+< \n :if ([ :len [ /system/script/find where name=\$Script ] ] = 0) do={\r\\r
+---
+> 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
+1799,1802c1782,1785
+< ist!\");\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n :if ([ \$JobCount \$Script ] = 0) do={\r\\r
+---
+> ist!\");\\r
+> \n :error false;\\r
+> \n }\\r
+> \n :if ([ \$JobCount \$Script ] = 0) do={\\r
+1804,1807c1787,1790
+< );\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n :if ([ \$TicketCount \$Script ] >= [ \$JobCount \$Script ]) do={\r\\r
+---
+> );\\r
+> \n :error false;\\r
+> \n }\\r
+> \n :if ([ \$TicketCount \$Script ] >= [ \$JobCount \$Script ]) do={\\r
+1809,1829c1792,1812
+< t . \"', resetting!\");\r\\r
+< \n :set (\$ScriptLockOrder->\$Script) ({});\r\\r
+< \n /system/script/job/remove [ find where script=\$Script ];\r\\r
+< \n }\r\\r
+< \n :local MyTicket [ \$GetRandom20CharAlNum 6 ];\r\\r
+< \n \$AddTicket \$Script \$MyTicket;\r\\r
+< \n :local WaitInterval (\$WaitMax / 20);\r\\r
+< \n :local WaitTime \$WaitMax;\r\\r
+< \n :while (\$WaitTime > 0 && \\\r\\r
+< \n ([ \$IsFirstTicket \$Script \$MyTicket ] = false || \\\r\\r
+< \n [ \$TicketCount \$Script ] < [ \$JobCount \$Script ])) do={\r\\r
+< \n :set WaitTime (\$WaitTime - \$WaitInterval);\r\\r
+< \n :delay \$WaitInterval;\r\\r
+< \n }\r\\r
+< \n :if ([ \$IsFirstTicket \$Script \$MyTicket ] = true && \\\r\\r
+< \n [ \$TicketCount \$Script ] = [ \$JobCount \$Script ]) do={\r\\r
+< \n \$RemoveTicket \$Script \$MyTicket;\r\\r
+< \n \$CleanupTickets \$Script;\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+< \n \$RemoveTicket \$Script \$MyTicket;\r\\r
+---
+> t . \"', 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
+1831c1814
+< once\" . \\\r\\r
+---
+> once\" . \\\\r
+1833,1838c1816,1821
+< \_lock\" \"\" ] . \"...\");\r\\r
+< \n :return false;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set SendNotification do={ :onerror Err {\r\\r
+< \n :global SendNotification2;\r\\r
+---
+> \_lock\" \"\" ] . \"...\");\\r
+> \n :return false;\\r
+> \n}\\r
+> \n\\r
+> \n:set SendNotification do={ :onerror Err {\\r
+> \n :global SendNotification2;\\r
+1840,1847c1823,1830
+< \_silent=\$4 });\r\\r
+< \n} do={:global ExitOnError; \$ExitOnError \$0 \$Err}\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set SendNotification2 do={\r\\r
+< \n :local Notification \$1;\r\\r
+< \n :global NotificationFunctions;\r\\r
+< \n :foreach FunctionName,Discard in=\$NotificationFunctions do={\r\\r
+---
+> \_silent=\$4 });\\r
+> \n} do={:global ExitOnError; \$ExitOnError \$0 \$Err}\\r
+> \n}\\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
+1849,1900c1832,1883
+< ns->\\\"\" . \$FunctionName . \"\\\"\") \$Notification;\r\\r
+< \n }\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set SymbolByUnicodeName do={\r\\r
+< \n :local Name [ :tostr \$1 ];\r\\r
+< \n :global EitherOr;\r\\r
+< \n :global SymbolsExtra;\r\\r
+< \n :local Symbols ({\r\\r
+< \n \"abacus\"=\"\\F0\\9F\\A7\\AE\";\r\\r
+< \n \"alarm-clock\"=\"\\E2\\8F\\B0\";\r\\r
+< \n \"arrow-down\"=\"\\E2\\AC\\87\";\r\\r
+< \n \"arrow-up\"=\"\\E2\\AC\\86\";\r\\r
+< \n \"calendar\"=\"\\F0\\9F\\93\\85\";\r\\r
+< \n \"card-file-box\"=\"\\F0\\9F\\97\\83\";\r\\r
+< \n \"chart-decreasing\"=\"\\F0\\9F\\93\\89\";\r\\r
+< \n \"chart-increasing\"=\"\\F0\\9F\\93\\88\";\r\\r
+< \n \"cloud\"=\"\\E2\\98\\81\";\r\\r
+< \n \"cross-mark\"=\"\\E2\\9D\\8C\";\r\\r
+< \n \"earth\"=\"\\F0\\9F\\8C\\8D\";\r\\r
+< \n \"fire\"=\"\\F0\\9F\\94\\A5\";\r\\r
+< \n \"floppy-disk\"=\"\\F0\\9F\\92\\BE\";\r\\r
+< \n \"gear\"=\"\\E2\\9A\\99\";\r\\r
+< \n \"heart\"=\"\\E2\\99\\A5\";\r\\r
+< \n \"high-voltage-sign\"=\"\\E2\\9A\\A1\";\r\\r
+< \n \"incoming-envelope\"=\"\\F0\\9F\\93\\A8\";\r\\r
+< \n \"information\"=\"\\E2\\84\\B9\";\r\\r
+< \n \"large-orange-circle\"=\"\\F0\\9F\\9F\\A0\";\r\\r
+< \n \"large-red-circle\"=\"\\F0\\9F\\94\\B4\";\r\\r
+< \n \"link\"=\"\\F0\\9F\\94\\97\";\r\\r
+< \n \"lock-with-ink-pen\"=\"\\F0\\9F\\94\\8F\";\r\\r
+< \n \"memo\"=\"\\F0\\9F\\93\\9D\";\r\\r
+< \n \"mobile-phone\"=\"\\F0\\9F\\93\\B1\";\r\\r
+< \n \"pushpin\"=\"\\F0\\9F\\93\\8C\";\r\\r
+< \n \"scissors\"=\"\\E2\\9C\\82\";\r\\r
+< \n \"scroll\"=\"\\F0\\9F\\93\\9C\";\r\\r
+< \n \"smiley-partying-face\"=\"\\F0\\9F\\A5\\B3\";\r\\r
+< \n \"smiley-smiling-face\"=\"\\E2\\98\\BA\";\r\\r
+< \n \"smiley-winking-face-with-tongue\"=\"\\F0\\9F\\98\\9C\";\r\\r
+< \n \"sparkles\"=\"\\E2\\9C\\A8\";\r\\r
+< \n \"speech-balloon\"=\"\\F0\\9F\\92\\AC\";\r\\r
+< \n \"star\"=\"\\E2\\AD\\90\";\r\\r
+< \n \"warning-sign\"=\"\\E2\\9A\\A0\";\r\\r
+< \n \"white-heavy-check-mark\"=\"\\E2\\9C\\85\"\r\\r
+< \n }, \$SymbolsExtra);\r\\r
+< \n :local Magic [ :pick [ /system/clock/get date ] 4 10 ];\r\\r
+< \n :local Special {\r\\r
+< \n \"information-04-01\"=\"\\F0\\9F\\9A\\BB\";\r\\r
+< \n \"large-orange-circle-04-01\"=\"\\F0\\9F\\8D\\8A\";\r\\r
+< \n \"large-orange-circle-10-31\"=\"\\F0\\9F\\8E\\83\";\r\\r
+< \n \"large-red-circle-04-01\"=\"\\F0\\9F\\8D\\92\" };\r\\r
+< \n :if ([ :len (\$Symbols->\$Name) ] = 0) do={\r\\r
+---
+> ns->\\\"\" . \$FunctionName . \"\\\"\") \$Notification;\\r
+> \n }\\r
+> \n}\\r
+> \n\\r
+> \n:set SymbolByUnicodeName do={\\r
+> \n :local Name [ :tostr \$1 ];\\r
+> \n :global EitherOr;\\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
+1902,1904c1885,1887
+< '!\");\r\\r
+< \n :return \"\";\r\\r
+< \n }\r\\r
+---
+> '!\");\\r
+> \n :return \"\";\\r
+> \n }\\r
+1906,1912c1889,1895
+< me) ] . \"\\EF\\B8\\8F\");\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set SymbolForNotification do={\r\\r
+< \n :global NotificationsWithSymbols;\r\\r
+< \n :global SymbolByUnicodeName;\r\\r
+< \n :global IfThenElse;\r\\r
+---
+> me) ] . \"\\EF\\B8\\8F\");\\r
+> \n}\\r
+> \n\\r
+> \n:set SymbolForNotification do={\\r
+> \n :global NotificationsWithSymbols;\\r
+> \n :global SymbolByUnicodeName;\\r
+> \n :global IfThenElse;\\r
+1914,1915c1897,1898
+< \_:len \$2 ] > 0) ([ :tostr \$2 ] . \" \") \"\" ]}\r\\r
+< \n :local Return \"\";\r\\r
+---
+> \_:len \$2 ] > 0) ([ :tostr \$2 ] . \" \") \"\" ]}\\r
+> \n :local Return \"\";\\r
+1917,1926c1900,1909
+< mbolByUnicodeName \$Symbol ])}\r\\r
+< \n :return (\$Return . \" \");\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set Unix2Dos do={:return [ :tocrlf [ :tostr \$1 ] ]}\r\\r
+< \n:set UrlEncode do={\r\\r
+< \n :local Input [ :tostr \$1 ];\r\\r
+< \n :if ([ :len \$Input ] = 0) do={:return \"\"}\r\\r
+< \n :local Return \"\";\r\\r
+< \n :local Chars (\"\\n\\r !\\\"#\\\$%&'()*+,:;<=>\?@[\\\\]^`{|}~\");\r\\r
+---
+> mbolByUnicodeName \$Symbol ])}\\r
+> \n :return (\$Return . \" \");\\r
+> \n}\\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
+1928c1911
+< %24\"; \"%25\"; \"%26\"; \"%27\";\r\\r
+---
+> %24\"; \"%25\"; \"%26\"; \"%27\";\\r
+1930c1913
+< \"%3C\"; \"%3D\"; \"%3E\"; \"%3F\";\r\\r
+---
+> \"%3C\"; \"%3D\"; \"%3E\"; \"%3F\";\\r
+1932,1935c1915,1918
+< \"%7C\"; \"%7D\"; \"%7E\" };\r\\r
+< \n :for I from=0 to=([ :len \$Input ] - 1) do={\r\\r
+< \n :local Char [ :pick \$Input \$I ];\r\\r
+< \n :local Replace [ :find \$Chars \$Char ];\r\\r
+---
+> \"%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
+1937,1969c1920,1952
+< ce)}\r\\r
+< \n :set Return (\$Return . \$Char);\r\\r
+< \n }\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set IsDNSResolving do={\r\\r
+< \n :do {:resolve \"api.telegram.org\"} on-error={:return false}\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set IsFullyConnected do={\r\\r
+< \n :global IsDNSResolving;\r\\r
+< \n :global IsTimeSync;\r\\r
+< \n :if ([ \$IsDNSResolving ] = false) do={:return false};\r\\r
+< \n :if ([ \$IsTimeSync ] = false) do={:return false};\r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set IsTimeSync do={\r\\r
+< \n :global IsTimeSyncCached;\r\\r
+< \n :global IsTimeSyncResetNtp;\r\\r
+< \n :if (\$IsTimeSyncCached = true) do={:return true}\r\\r
+< \n :if ([ /system/ntp/client/get enabled ] = true) do={\r\\r
+< \n :if ([ /system/ntp/client/get status ] = \"synchronized\") do={\r\\r
+< \n :set IsTimeSyncCached true;\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+< \n :local Uptime [ /system/resource/get uptime ];\r\\r
+< \n :if ([ :typeof \$IsTimeSyncResetNtp ] = \"nothing\") do={\r\\r
+< \n :set IsTimeSyncResetNtp \$Uptime;\r\\r
+< \n }\r\\r
+< \n :if (\$Uptime - \$IsTimeSyncResetNtp < 3m) do={:return false}\r\\r
+---
+> ce)}\\r
+> \n :set Return (\$Return . \$Char);\\r
+> \n }\\r
+> \n :return \$Return;\\r
+> \n}\\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\\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\\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
+1971,1979c1954,1962
+< ;\r\\r
+< \n :set IsTimeSyncResetNtp \$Uptime;\r\\r
+< \n /system/ntp/client/set enabled=no;\r\\r
+< \n :delay 20ms;\r\\r
+< \n /system/ntp/client/set enabled=yes;\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n :if ([ /system/license/get ]->\"level\" = \"free\" || \\\r\\r
+< \n [ /system/resource/get ]->\"board-name\" = \"x86\") do={\r\\r
+---
+> ;\\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
+1981,1990c1964,1973
+< ee license and x86.\";\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+< \n :if ([ /ip/cloud/get update-time ] = true) do={\r\\r
+< \n :if ([ :typeof [ /ip/cloud/get public-address ] ] = \"ip\") do={\r\\r
+< \n :set IsTimeSyncCached true;\r\\r
+< \n :return true;\r\\r
+< \n }\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+---
+> 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
+1992,2010c1975,1992
+< \r\\r
+< \n :return true;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set FetchHugeFiles do={\r\\r
+< \n :local ScriptName [ :tostr \$1 ];\r\\r
+< \n :local Url [ :tostr \$2 ];\r\\r
+< \n :local CheckCert [ :tostr \$3 ];\r\\r
+< \n\r\\r
+< \n :global CleanName;\r\\r
+< \n :global FetchUserAgentStr;\r\\r
+< \n :global GetRandom20CharAlNum;\r\\r
+< \n :global IfThenElse;\r\\r
+< \n :global LogPrint;\r\\r
+< \n :global MkDir;\r\\r
+< \n :global RmDir;\r\\r
+< \n :global RmFile;\r\\r
+< \n :global WaitForFile;\r\\r
+< \n\r\\r
+---
+> \n :return true;\\r
+> \n}\\r
+> \n\\r
+> \n:set FetchHugeFiles do={\\r
+> \n :local ScriptName [ :tostr \$1 ];\\r
+> \n :local Url [ :tostr \$2 ];\\r
+> \n :local CheckCert [ :tostr \$3 ];\\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
+2012,2019c1994,2001
+< ithout-crl\" ];\r\\r
+< \n\r\\r
+< \n :local DirName (\"tmpfs/\" . [ \$CleanName \$ScriptName ]);\r\\r
+< \n :if ([ \$MkDir \$DirName ] = false) do={\r\\r
+< \n \$LogPrint error \$0 (\"Failed creating directory!\");\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n\r\\r
+---
+> ithout-crl\" ];\\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\\r
+2021,2022c2003,2004
+< \$GetRandom20CharAlNum ]);\r\\r
+< \n :onerror Err {\r\\r
+---
+> \$GetRandom20CharAlNum ]);\\r
+> \n :onerror Err {\\r
+2024c2006
+< \\\r\\r
+---
+> \\\\r
+2026,2030c2008,2012
+< lue;\r\\r
+< \n } do={\r\\r
+< \n :if ([ \$WaitForFile \$FileName 500ms ] = true) do={\r\\r
+< \n \$RmFile \$FileName;\r\\r
+< \n }\r\\r
+---
+> lue;\\r
+> \n } do={\\r
+> \n :if ([ \$WaitForFile \$FileName 500ms ] = true) do={\\r
+> \n \$RmFile \$FileName;\\r
+> \n }\\r
+2032,2037c2014,2019
+< \_. \$Err);\r\\r
+< \n \$RmDir \$DirName;\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :if ([ \$WaitForFile \$FileName 5s ] = false) do={\r\\r
+---
+> \_. \$Err);\\r
+> \n \$RmDir \$DirName;\\r
+> \n :return false;\\r
+> \n }\\r
+> \n\\r
+> \n :if ([ \$WaitForFile \$FileName 5s ] = false) do={\\r
+2039,2046c2021,2028
+< \_not show up.\");\r\\r
+< \n :return false;\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :local FileSize [ /file/get \$FileName size ];\r\\r
+< \n :local Return \"\";\r\\r
+< \n :local VarSize 0;\r\\r
+< \n :while (\$VarSize != \$FileSize) do={\r\\r
+---
+> \_not show up.\");\\r
+> \n :return false;\\r
+> \n }\\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
+2048,2064c2030,2046
+< 768 file=\$FileName as-value ]->\"data\"));\r\\r
+< \n :set FileSize [ /file/get \$FileName size ];\r\\r
+< \n :set VarSize [ :len \$Return ];\r\\r
+< \n :if (\$VarSize > \$FileSize) do={\r\\r
+< \n :delay 100ms;\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n \$RmDir \$DirName;\r\\r
+< \n :return \$Return;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set FetchUserAgentStr do={\r\\r
+< \n :local Caller [ :tostr \$1 ];\r\\r
+< \n :global GlobalScriptsUrl;\r\\r
+< \n :global CommitBrief;\r\\r
+< \n :global IfThenElse;\r\\r
+< \n :local Resource [ /system/resource/get ];\r\\r
+---
+> 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:set FetchUserAgentStr do={\\r
+> \n :local Caller [ :tostr \$1 ];\\r
+> \n :global GlobalScriptsUrl;\\r
+> \n :global CommitBrief;\\r
+> \n :global IfThenElse;\\r
+> \n :local Resource [ /system/resource/get ];\\r
+2066c2048
+< \_\$Resource->\"architecture-name\" . \\\r\\r
+---
+> \_\$Resource->\"architecture-name\" . \\\\r
+2068,2097c2050,2079
+< CommitBrief ] . \")\");\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:set ScriptInstallUpdate do={ :onerror Err {\r\\r
+< \n :local Scripts [ :toarray \$1 ];\r\\r
+< \n :local NewComment [ :tostr \$2 ];\r\\r
+< \n :global InitSetup;\r\\r
+< \n\r\\r
+< \n :global CommitId;\r\\r
+< \n :global ScriptUpdatesCRLF;\r\\r
+< \n :global GlobalConfVersion;\r\\r
+< \n :global Identity;\r\\r
+< \n :global CertificateAvailable;\r\\r
+< \n :global CheckSumsVerify;\r\\r
+< \n :global GlobalScriptsUrl;\r\\r
+< \n :global SumsDirAndFileName;\r\\r
+< \n :global GlobalScriptsUrlSuffix;\r\\r
+< \n :global EitherOr;\r\\r
+< \n :global FetchUserAgentStr;\r\\r
+< \n :global Grep;\r\\r
+< \n :global IfThenElse;\r\\r
+< \n :global LogPrint;\r\\r
+< \n :global ParseKeyValueStore;\r\\r
+< \n :global RequiredRouterOS;\r\\r
+< \n :global SendNotification2;\r\\r
+< \n :global SymbolForNotification;\r\\r
+< \n :global ValidateSyntax;\r\\r
+< \n :global CommentsInScripts;\r\\r
+< \n\r\\r
+< \n :if ([ \$CertificateAvailable \"Root YE\" \"fetch\" ] = false) do={\r\\r
+---
+> CommitBrief ] . \")\");\\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 CommitId;\\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 SumsDirAndFileName;\\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
+2099,2102c2081,2084
+< hout.\");\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :foreach Script in=\$Scripts do={\r\\r
+---
+> hout.\");\\r
+> \n }\\r
+> \n\\r
+> \n :foreach Script in=\$Scripts do={\\r
+2104,2105c2086
+< \r\\r
+< \n \$LogPrint info \$0 (\"Adding new script: \" . \$Script);\r\\r
+---
+> \n \$LogPrint info \$0 (\"Adding new script: \" . \$Script);\\r
+2107,2118c2088,2099
+< Vados\\n\" comment=\$NewComment;\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :local CommitIdBefore \$CommitId;\r\\r
+< \n :local GlobalConfVersionBefore \$GlobalConfVersion;\r\\r
+< \n :local ReloadGlobal false;\r\\r
+< \n :local DeviceMode [ /system/device-mode/get ];\r\\r
+< \n\r\\r
+< \n :if (\$CheckSumsVerify = true) do={\r\\r
+< \n :local CheckSums ({});\r\\r
+< \n :do {\r\\r
+---
+> Vados\\n\" comment=\$NewComment;\\r
+> \n }\\r
+> \n }\\r
+> \n\\r
+> \n :local CommitIdBefore \$CommitId;\\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
+2120c2101
+< iptsUrlSuffix);\r\\r
+---
+> iptsUrlSuffix);\\r
+2122d2102
+< \r\\r
+2124c2104
+< ficate=yes-without-crl \\\r\\r
+---
+> ficate=yes-without-crl \\\\r
+2126,2129c2106,2109
+< =user as-value ]->\"data\") ];\r\\r
+< \n } on-error={ \$LogPrint warning \$0 (\"Err = \" . \$Err); }\r\\r
+< \n }\r\\r
+< \n\r\\r
+---
+> =user as-value ]->\"data\") ];\\r
+> \n } on-error={ \$LogPrint warning \$0 (\"Err = \" . \$Err); }\\r
+> \n }\\r
+> \n\\r
+2131,2132c2111,2112
+< s\" ] do={\r\\r
+< \n :local ScriptVal [ /system/script/get \$Script ];\r\\r
+---
+> s\" ] do={\\r
+> \n :local ScriptVal [ /system/script/get \$Script ];\\r
+2134,2136c2114,2116
+< ];\r\\r
+< \n :local SourceNew;\r\\r
+< \n\r\\r
+---
+> ];\\r
+> \n :local SourceNew;\\r
+> \n\\r
+2138,2140c2118,2120
+< \\b\" . \$ScriptVal->\"name\" . \"\\\\b\") ] do={\r\\r
+< \n :local SchedulerVal [ /system/scheduler/get \$Scheduler ];\r\\r
+< \n :if (\$ScriptVal->\"policy\" != \$SchedulerVal->\"policy\") do={\r\\r
+---
+> \\b\" . \$ScriptVal->\"name\" . \"\\\\b\") ] do={\\r
+> \n :local SchedulerVal [ /system/scheduler/get \$Scheduler ];\\r
+> \n :if (\$ScriptVal->\"policy\" != \$SchedulerVal->\"policy\") do={\\r
+2143,2147c2123,2127
+< \"'!\");\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :do {\r\\r
+< \n :if (\$ScriptInfo->\"ignore\" = true) do={\r\\r
+---
+> \"'!\");\\r
+> \n }\\r
+> \n }\\r
+> \n :do {\\r
+> \n :if (\$ScriptInfo->\"ignore\" = true) do={\\r
+2149,2153c2129,2133
+< e\" . \"', as requested.\");\r\\r
+< \n :error true;\r\\r
+< \n }\r\\r
+< \n :if (\$CheckSumsVerify = true) do={\r\\r
+< \n :local CheckSum (\$CheckSums->(\$ScriptVal->\"name\"));\r\\r
+---
+> e\" . \"', as requested.\");\\r
+> \n :error true;\\r
+> \n }\\r
+> \n :if (\$CheckSumsVerify = true) do={\\r
+> \n :local CheckSum (\$CheckSums->(\$ScriptVal->\"name\"));\\r
+2155c2135
+< ptInfo->\"url-suffix\") ] = 0 && \\\r\\r
+---
+> ptInfo->\"url-suffix\") ] = 0 && \\\\r
+2157c2137
+< rce\") ] ] = \$CheckSum) do={\r\\r
+---
+> rce\") ] ] = \$CheckSum) do={\\r
+2159,2163c2139,2143
+< >\"name\" . \"' matches, ignoring.\");\r\\r
+< \n :error true;\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :if ([ :len (\$ScriptInfo->\"certificate\") ] > 0) do={\r\\r
+---
+> >\"name\" . \"' matches, ignoring.\");\\r
+> \n :error true;\\r
+> \n }\\r
+> \n }\\r
+> \n :if ([ :len (\$ScriptInfo->\"certificate\") ] > 0) do={\\r
+2165c2145
+< fetch\" ] = false) do={\r\\r
+---
+> fetch\" ] = false) do={\\r
+2167,2170c2147,2150
+< ng without.\");\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :onerror Err {\r\\r
+---
+> ng without.\");\\r
+> \n }\\r
+> \n }\\r
+> \n :onerror Err {\\r
+2172c2152
+< lScriptsUrl ];\r\\r
+---
+> lScriptsUrl ];\\r
+2174c2154
+< lobalScriptsUrlSuffix ];\r\\r
+---
+> lobalScriptsUrlSuffix ];\\r
+2176c2156
+< Suffix);\r\\r
+---
+> Suffix);\\r
+2178c2158
+< name\") . \"' from url: \" . \$Url);\r\\r
+---
+> name\") . \"' from url: \" . \$Url);\\r
+2180d2159
+< \r\\r
+2182,2186c2161,2165
+< ut=user as-value ];\r\\r
+< \n :if (\$Result->\"status\" = \"finished\") do={\r\\r
+< \n :set SourceNew [ :tolf (\$Result->\"data\") ];\r\\r
+< \n } \r\\r
+< \n } do={\r\\r
+---
+> ut=user as-value ];\\r
+> \n :if (\$Result->\"status\" = \"finished\") do={\\r
+> \n :set SourceNew [ :tolf (\$Result->\"data\") ];\\r
+> \n } \\r
+> \n } do={\\r
+2188,2192c2167,2171
+< al->\"name\" . \"': \" . \$Err);\r\\r
+< \n :if (\$Err != \"Fetch failed with status 404\") do={\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n :if (\$ScriptVal->\"source\" = \"#!rsc by Vados\") do={\r\\r
+---
+> 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
+2194,2198c2173,2177
+< \?\");\r\\r
+< \n /system/script/remove \$Script;\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n :if (\$CheckSumsVerify = true) do={\r\\r
+---
+> \?\");\\r
+> \n /system/script/remove \$Script;\\r
+> \n :error false;\\r
+> \n }\\r
+> \n :if (\$CheckSumsVerify = true) do={\\r
+2200,2201c2179,2180
+< riptInfo->\"url-suffix\") ] = 0 && \\\r\\r
+< \n [ :len \$CheckSum ] = 0) do={\r\\r
+---
+> riptInfo->\"url-suffix\") ] = 0 && \\\\r
+> \n [ :len \$CheckSum ] = 0) do={\\r
+2203,2209c2182,2188
+< pdates with 'ignore=true' in comment.\");\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :if ([ :len \$SourceNew ] = 0) do={\r\\r
+---
+> 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
+2211,2215c2190,2194
+< >\"name\") . \"'.\");\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :local SourceCRLF [ :tocrlf \$SourceNew ];\r\\r
+---
+> >\"name\") . \"'.\");\\r
+> \n :error false;\\r
+> \n }\\r
+> \n\\r
+> \n :local SourceCRLF [ :tocrlf \$SourceNew ];\\r
+2217c2196
+< lConfig\" || (\$ScriptVal->\"name\") != \"AM-GlobalFunc\")) do={\r\\r
+---
+> lConfig\" || (\$ScriptVal->\"name\") != \"AM-GlobalFunc\")) do={\\r
+2219c2198
+< \$ScriptVal->\"source\")) do={\r\\r
+---
+> \$ScriptVal->\"source\")) do={\\r
+2221,2223c2200,2202
+< . \"' source did not change. End of lines set to CRLF.\");\r\\r
+< \n if (\$ScriptUpdatesCRLF = false) do={\r\\r
+< \n :put [ :tolf \$SourceNew ];\r\\r
+---
+> . \"' source did not change. End of lines set to CRLF.\");\\r
+> \n if (\$ScriptUpdatesCRLF = false) do={\\r
+> \n :put [ :tolf \$SourceNew ];\\r
+2225,2231c2204,2210
+< ) . \"' source update end of lines to LF.\");\r\\r
+< \n }\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :if ([ :pick \$SourceNew 0 14 ] != \"#!rsc by Vados\") do={\r\\r
+---
+> ) . \"' 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
+2234,2238c2213,2217
+< );\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :if (\$CommentsInScripts = true) do={\r\\r
+---
+> );\\r
+> \n :error false;\\r
+> \n }\\r
+> \n\\r
+> \n :if (\$CommentsInScripts = true) do={\\r
+2240,2241c2219,2220
+< \_\") ];\r\\r
+< \n :if ([ :len \$CommentLine ] = 0) do={\r\\r
+---
+> \_\") ];\\r
+> \n :if ([ :len \$CommentLine ] = 0) do={\\r
+2244,2246c2223,2225
+< noring!\");\r\\r
+< \n :error false;\r\\r
+< \n } else={\r\\r
+---
+> noring!\");\\r
+> \n :error false;\\r
+> \n } else={\\r
+2249c2228
+< ] + 2) [ :len \$CommentLine] ]) do={\r\\r
+---
+> ] + 2) [ :len \$CommentLine] ]) do={\\r
+2252c2231
+< ;\r\\r
+---
+> ;\\r
+2254c2233
+< ind \$CommentLine \":\"] + 2) [ :len \$CommentLine] ];\r\\r
+---
+> ind \$CommentLine \":\"] + 2) [ :len \$CommentLine] ];\\r
+2257,2258c2236,2237
+< ded!\");\r\\r
+< \n } else={\r\\r
+---
+> ded!\");\\r
+> \n } else={\\r
+2260,2265c2239,2244
+< al->\"name\") . \"' did not change.\");\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n } \r\\r
+< \n }\r\\r
+< \n\r\\r
+---
+> al->\"name\") . \"' did not change.\");\\r
+> \n :error false;\\r
+> \n }\\r
+> \n } \\r
+> \n }\\r
+> \n\\r
+2267c2246
+< \"\\23 requires RouterOS, \") ] ]->version);\r\\r
+---
+> \"\\23 requires RouterOS, \") ] ]->version);\\r
+2269c2248
+< \_false ] = false) do={\r\\r
+---
+> \_false ] = false) do={\\r
+2271c2250
+< \") . \"' requires RouterOS \" . \\\r\\r
+---
+> \") . \"' requires RouterOS \" . \\\\r
+2273,2275c2252,2254
+< gnoring!\");\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+---
+> gnoring!\");\\r
+> \n :error false;\\r
+> \n }\\r
+2277,2279c2256,2258
+< \\23 requires device-mode, \") ] ];\r\\r
+< \n :local MissingDM ({});\r\\r
+< \n :foreach Feature,Value in=\$RequiredDM do={\r\\r
+---
+> \\23 requires device-mode, \") ] ];\\r
+> \n :local MissingDM ({});\\r
+> \n :foreach Feature,Value in=\$RequiredDM do={\\r
+2281,2285c2260,2264
+< ceMode->\$Feature) = false) do={\r\\r
+< \n :set MissingDM (\$MissingDM, \$Feature);\r\\r
+< \n }\r\\r
+< \n }\r\\r
+< \n :if ([ :len \$MissingDM ] > 0) do={\r\\r
+---
+> ceMode->\$Feature) = false) do={\\r
+> \n :set MissingDM (\$MissingDM, \$Feature);\\r
+> \n }\\r
+> \n }\\r
+> \n :if ([ :len \$MissingDM ] > 0) do={\\r
+2287c2266
+< \") . \"' requires disabled \" . \\\r\\r
+---
+> \") . \"' requires disabled \" . \\\\r
+2289,2293c2268,2272
+< gnoring!\");\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n\r\\r
+< \n :if ([ \$ValidateSyntax \$SourceNew ] = false) do={\r\\r
+---
+> gnoring!\");\\r
+> \n :error false;\\r
+> \n }\\r
+> \n\\r
+> \n :if ([ \$ValidateSyntax \$SourceNew ] = false) do={\\r
+2295,2298c2274,2277
+< ScriptVal->\"name\") . \"' failed! Ignoring!\");\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n \r\\r
+---
+> ScriptVal->\"name\") . \"' failed! Ignoring!\");\\r
+> \n :error false;\\r
+> \n }\\r
+> \n \\r
+2300,2301c2279,2280
+< ript comment: \" . (\$ScriptVal->\"comment\"));\r\\r
+< \n\r\\r
+---
+> ript comment: \" . (\$ScriptVal->\"comment\"));\\r
+> \n\\r
+2303c2282
+< Val->\"comment\") \\\r\\r
+---
+> Val->\"comment\") \\\\r
+2305,2307c2284,2286
+< F \$SourceNew ] \$Script;\r\\r
+< \n :if (\$ScriptVal->\"name\" = \"AM-GlobalConfig\" || \\\r\\r
+< \n \$ScriptVal->\"name\" = \"AM-GlobalFunc\" || \\\r\\r
+---
+> F \$SourceNew ] \$Script;\\r
+> \n :if (\$ScriptVal->\"name\" = \"AM-GlobalConfig\" || \\\\r
+> \n \$ScriptVal->\"name\" = \"AM-GlobalFunc\" || \\\\r
+2309,2314c2288,2293
+< o={\r\\r
+< \n :set ReloadGlobal true;\r\\r
+< \n }\r\\r
+< \n } on-error={ }\r\\r
+< \n }\r\\r
+< \n :if (\$ReloadGlobal = true) do={\r\\r
+---
+> o={\\r
+> \n :set ReloadGlobal true;\\r
+> \n }\\r
+> \n } on-error={ }\\r
+> \n }\\r
+> \n :if (\$ReloadGlobal = true) do={\\r
+2316,2319c2295,2298
+< \");\r\\r
+< \n :onerror Err {\r\\r
+< \n :global InitSetup (a);\r\\r
+< \n /system/script {run AM-GlobalConfig; run AM-GlobalFunc;};\r\\r
+---
+> \");\\r
+> \n :onerror Err {\\r
+> \n :global InitSetup (a);\\r
+> \n /system/script {run AM-GlobalConfig; run AM-GlobalFunc;};\\r
+2321,2323c2300,2302
+< ctions failed! \" . \$Err)}\r\\r
+< \n }\r\\r
+< \n :if (\$GlobalConfVersionBefore > \$GlobalConfVersion) do={\r\\r
+---
+> ctions failed! \" . \$Err)}\\r
+> \n }\\r
+> \n :if (\$GlobalConfVersionBefore > \$GlobalConfVersion) do={\\r
+2325,2336c2304,2315
+< \" . \\\r\\r
+< \n \$GlobalConfVersionBefore . \" to \" . \$GlobalConfVersion . \\\r\\r
+< \n \". Installed an older version\?\");\r\\r
+< \n }\r\\r
+< \n :if (\$GlobalConfVersionBefore < \$GlobalConfVersion) do={\r\\r
+< \n :global GlobalConfChanges;\r\\r
+< \n :global GlobalConfMigration;\r\\r
+< \n :local ChangeLogCode;\r\\r
+< \n :if ([ :len \$ChangeLogCode ] > 0) do={\r\\r
+< \n :if ([ \$ValidateSyntax \$ChangeLogCode ] = true) do={\r\\r
+< \n :onerror Err {\r\\r
+< \n [ :parse \$ChangeLogCode ];\r\\r
+---
+> \" . \\\\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
+2338c2317
+< . \$Err)}\r\\r
+---
+> . \$Err)}\\r
+2340,2342c2319,2321
+< dation!\")}\r\\r
+< \n }\r\\r
+< \n :if ([ :len \$GlobalConfMigration ] > 0) do={\r\\r
+---
+> dation!\")}\\r
+> \n }\\r
+> \n :if ([ :len \$GlobalConfMigration ] > 0) do={\\r
+2344,2347c2323,2326
+< \_do={\r\\r
+< \n :local Migration (\$GlobalConfMigration->[ :tostr \$I ]);\r\\r
+< \n :do {\r\\r
+< \n :if ([ :typeof \$Migration ] != \"str\") do={\r\\r
+---
+> \_do={\\r
+> \n :local Migration (\$GlobalConfMigration->[ :tostr \$I ]);\\r
+> \n :do {\\r
+> \n :if ([ :typeof \$Migration ] != \"str\") do={\\r
+2349,2352c2328,2331
+< \_\" is not available.\");\r\\r
+< \n :error false;\r\\r
+< \n }\r\\r
+< \n :if ([ \$ValidateSyntax \$Migration ] = false) do={\r\\r
+---
+> \_\" is not available.\");\\r
+> \n :error false;\\r
+> \n }\\r
+> \n :if ([ \$ValidateSyntax \$Migration ] = false) do={\\r
+2354,2355c2333,2334
+< \_. \" failed syntax validation!\");\r\\r
+< \n :error false}\r\\r
+---
+> \_. \" failed syntax validation!\");\\r
+> \n :error false}\\r
+2357,2359c2336,2338
+< . \": \" . \$Migration);\r\\r
+< \n :onerror Err {\r\\r
+< \n [ :parse \$Migration ];\r\\r
+---
+> . \": \" . \$Migration);\\r
+> \n :onerror Err {\\r
+> \n [ :parse \$Migration ];\\r
+2361,2364c2340,2343
+< \_\$I . \" failed to run: \" . \$Err)}\r\\r
+< \n } on-error={ }\r\\r
+< \n }\r\\r
+< \n }\r\\r
+---
+> \_\$I . \" failed to run: \" . \$Err)}\\r
+> \n } on-error={ }\\r
+> \n }\\r
+> \n }\\r
+2366c2345
+< entity . \" increased \" . \\\r\\r
+---
+> entity . \" increased \" . \\\\r
+2368c2347
+< d modification. \" . \\\r\\r
+---
+> d modification. \" . \\\\r
+2370,2372c2349,2351
+< bal-config.\");\r\\r
+< \n \$LogPrint info \$0 (\$NotificationMessage);\r\\r
+< \n :if ([ :len \$GlobalConfChanges ] > 0) do={\r\\r
+---
+> bal-config.\");\\r
+> \n \$LogPrint info \$0 (\$NotificationMessage);\\r
+> \n :if ([ :len \$GlobalConfChanges ] > 0) do={\\r
+2374c2353
+< \");\r\\r
+---
+> \");\\r
+2376,2377c2355,2356
+< \_do={\r\\r
+< \n :local Change (\$GlobalConfChanges->[ :tostr \$I ]);\r\\r
+---
+> \_do={\\r
+> \n :local Change (\$GlobalConfChanges->[ :tostr \$I ]);\\r
+2379,2383c2358,2361
+< \r\\r
+< \n [ \$SymbolForNotification \"pushpin\" \"*\" ] . \$Change);\r\\r
+< \n \$LogPrint info \$0 (\"Change \" . \$I . \": \" . \$Change);\r\\r
+< \n }\r\\r
+< \n } else={\r\\r
+---
+> \n [ \$SymbolForNotification \"pushpin\" \"*\" ] . \$Change);\\r
+> \n \$LogPrint info \$0 (\"Change \" . \$I . \": \" . \$Change);\\r
+> \n }\\r
+> \n } else={\\r
+2385,2388c2363,2366
+< \_changes are not available.\");\r\\r
+< \n\r\\r
+< \n }\r\\r
+< \n\r\\r
+---
+> \_changes are not available.\");\\r
+> \n\\r
+> \n }\\r
+> \n\\r
+2390c2368
+< } else={ :global GlobalConfChanges (a); }\r\\r
+---
+> } else={ :global GlobalConfChanges (a); }\\r
+2392,2398c2370,2376
+< on; } else={ :global GlobalConfMigration (a); }\r\\r
+< \n }\r\\r
+< \n} do={\r\\r
+< \n :global ExitOnError; \$ExitOnError \$0 \$Err;\r\\r
+< \n} }\r\\r
+< \n\r\\r
+< \n# load modules\r\\r
+---
+> on; } else={ :global GlobalConfMigration (a); }\\r
+> \n }\\r
+> \n} do={\\r
+> \n :global ExitOnError; \$ExitOnError \$0 \$Err;\\r
+> \n} }\\r
+> \n\\r
+> \n# load modules\\r
+2400,2405c2378,2383
+< ns\\\\.d|mod)/.\" ] do={\r\\r
+< \n :local ScriptVal [ /system/script/get \$Script ];\r\\r
+< \n :if ([ \$ValidateSyntax (\$ScriptVal->\"source\") ] = true) do={\r\\r
+< \n :onerror Err {\r\\r
+< \n /system/script/run \$Script;\r\\r
+< \n } do={\r\\r
+---
+> ns\\\\.d|mod)/.\" ] do={\\r
+> \n :local ScriptVal [ /system/script/get \$Script ];\\r
+> \n :if ([ \$ValidateSyntax (\$ScriptVal->\"source\") ] = true) do={\\r
+> \n :onerror Err {\\r
+> \n /system/script/run \$Script;\\r
+> \n } do={\\r
+2407,2409c2385,2387
+< ailed to run: \" . \$Err);\r\\r
+< \n }\r\\r
+< \n } else={\r\\r
+---
+> ailed to run: \" . \$Err);\\r
+> \n }\\r
+> \n } else={\\r
+2411,2416c2389,2394
+< led syntax validation, skipping.\");\r\\r
+< \n }\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n# Add and fix global scheduler\r\\r
+< \n:put \"Add or/and fix Global scheduler...\";\r\\r
+---
+> led syntax validation, skipping.\");\\r
+> \n }\\r
+> \n}\\r
+> \n\\r
+> \n# Add and fix global scheduler\\r
+> \n:put \"Add or/and fix Global scheduler...\";\\r
+2418,2419c2396,2397
+< ; }\";\r\\r
+< \n:local Comment \"Every Day Set Global Environment Variables\";\r\\r
+---
+> ; }\";\\r
+> \n:local Comment \"Every Day Set Global Environment Variables\";\\r
+2421c2399
+< = 0) do={\r\\r
+---
+> = 0) do={\\r
+2423,2424c2401,2402
+< ent=\$OnEvent start-time=startup;\r\\r
+< \n}\r\\r
+---
+> ent=\$OnEvent start-time=startup;\\r
+> \n}\\r
+2426,2428c2404,2406
+< \_do={\r\\r
+< \n /system/scheduler/set \"AM-SetGlobalEnv\" comment=\$Comment;\r\\r
+< \n}\r\\r
+---
+> \_do={\\r
+> \n /system/scheduler/set \"AM-SetGlobalEnv\" comment=\$Comment;\\r
+> \n}\\r
+2430,2434c2408,2412
+< ) do={\r\\r
+< \n /system/scheduler/set \"AM-SetGlobalEnv\" on-event=\$OnEvent;\r\\r
+< \n}\r\\r
+< \n# Add Update Script scheduler\r\\r
+< \n:put \"Add or/and fix Update Script scheduler\";\r\\r
+---
+> ) 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
+2436,2437c2414
+< \r\\r
+< \n:set Comment \"Every Day Check For Update Scripts\";\r\\r
+---
+> \n:set Comment \"Every Day Check For Update Scripts\";\\r
+2439c2416
+< \" ] ] = 0) do={\r\\r
+---
+> \" ] ] = 0) do={\\r
+2441,2445c2418,2422
+< start-time=startup interval=1d on-event=\$OnEvent;\r\\r
+< \n}\r\\r
+< \n\r\\r
+< \n:onerror Err {\r\\r
+< \n :global GlobalConfReady;\r\\r
+---
+> start-time=startup interval=1d on-event=\$OnEvent;\\r
+> \n}\\r
+> \n\\r
+> \n:onerror Err {\\r
+> \n :global GlobalConfReady;\\r
+2447,2449c2424,2426
+< \_not ready.\"); }; } delay=100ms max=5;\r\\r
+< \n\r\\r
+< \n:log warning (\"This script \$ScriptName Loaded \" . \\\r\\r
+---
+> \_not ready.\"); }; } delay=100ms max=5;\\r
+> \n\\r
+> \n:log warning (\"This script \$ScriptName Loaded \" . \\\\r
+2451c2428
+< \") ] . \\\r\\r
+---
+> \") ] . \\\\r
+2453,2461c2430,2438
+< \\nArchitecture: \" . \$devCurArch . \"\\nIdentity: \" . \$Identity);\r\\r
+< \n # signal we are ready\r\\r
+< \n:set GlobalFuncReady true;\r\\r
+< \n:set ExitOK true;\r\\r
+< \n\r\\r
+< \n:log info (\$0 . \"Global configs ready!\");\r\\r
+< \n} do={\r\\r
+< \n :global ExitOnError; \$ExitOnError \$0 \$Err;\r\\r
+< \n}\r\\r
+---
+> \\nArchitecture: \" . \$devCurArch . \"\\nIdentity: \" . \$Identity);\\r
+> \n # signal we are ready\\r
+> \n:set GlobalFuncReady true;\\r
+> \n:set ExitOK true;\\r
+> \n\\r
+> \n:log info (\$0 . \"Global configs ready!\");\\r
+> \n} do={\\r
+> \n :global ExitOnError; \$ExitOnError \$0 \$Err;\\r
+> \n}\\r
git.vados.ru / Mikrotiks / backups.git / commitdiff
