[MT] Scripts - sys-r5e-in

/system script add comment="=SYS-R5E-IN=" dont-require-permissions=no name=sys-r5e-in owner=admin policy=ftp,reboot,read,write,test,sniff source="# ROS System configuration restore after specified / default time period \
    \n# Functions:\
    \n# a. Save binary backup & restore it after specified or default time values;\
    \n# b. Default time value: 5 minutes\
    \n# Require:\
    \n# a. Global variable r5eTime should be set to user-defined value. \
    \n# Dmitry Shevchenko - 26.04.2019\
    \n# 1. Global variables\
    \n:global r5eTime ;\
    \n:if ( [ :typeof \"\$r5eTime\" ] != \"time\" ) do={\
    \n    :log warn ( \"r5e-in: Required time value is not specified or has incorrect type - using defaults (5 minutes)\" );\
    \n    :set r5eTime 5m\
    \n}\
    \n# 2. Local variables\
    \n:local cdate [ /system clock get date ] ;\
    \n:local ctime [ /system clock get time ] ;\
    \n:local bckpFile r5e-in-auto;\
    \n# 3. Main\
    \n# 3.0 Ugly hack - should parse board-name to detect which internal storage is used.\
    \nif ( [ :len [ file find where type=\"disk\" and name=\"flash\" ] ] != 0 ) do={ :set bckpFile \"flash/r5e-in-auto\" }\
    \n:do { /system backup save dont-encrypt=yes name=\"\$bckpFile\" } on-error={\
    \n    :log error ( \"r5e-in: Script execution failed - can't create binary backup\" );\
    \n    :error \"[ERR]: Can't create binary backup\"\
    \n}\
    \n/system scheduler remove [ find name=\"backup-r5e-in\" ] ;\
    \n/system scheduler add comment=\"=RESTORE-IN-XTIME=\" name=backup-r5e-in start-date=\$cdate start-time=[ ( \$ctime + \$r5eTime ) ] on-event=\"/system backup load name=\\\"\$bckpFile.backup\\\" password=\\\"\\\"\" disabled=no\
    \n:log warn ( \"r5e-in: System backup restore is scheduled in \$r5eTime (\$bckpFile)\" );\
    \n# 4. Clean-up\
    \n/system script environment remove [ find name=\"r5eTime\" ]\
    \n# 5. End"