# :local StartDate "jan/01/1970";\r
# :local Policy "ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon";\r
\r
-:set EditSchedulers do={ :onerror Err {\r
+:set EditSchedulers do={\r
:global LogPrint;\r
:local SchedName [ :tostr $1 ];\r
:local Comment [ :tostr $2 ];\r
:local StartTime [ :tostr $7 ];\r
:if ([ :len $StartTime ] = 0) do={:set StartTime [get time]};\r
\r
-} do={\r
-# Check if scheduler exists, if not - create it\r
- :if ([ :len [ /system/scheduler/find where name=$SchedName ] ] = 0) do={\r
- $LogPrint warning $SchedName ("System Scheduler for script: " . $SchedName . " is NOT SET! Fix It Now!");\r
- /system/scheduler/add comment=$Comment interval=$Interval name=$SchedName on-event=$OnEvent policy=$Policy start-date=$StartDate start-time=$StartTime;\r
- }\r
-# Check if scheduler parameters are correct, if not - fix them\r
- :if ([ /system/scheduler/get $SchedName comment ] != $Comment) do={\r
- /system/scheduler/set $SchedName comment=$Comment;\r
- }\r
- :if ([ /system/scheduler/get $SchedName interval ] != $Interval) do={\r
- /system/scheduler/set $SchedName interval=$Interval;\r
- }\r
- :if ([ /system/scheduler/get $SchedName on-event ] != $OnEvent) do={\r
- /system/scheduler/set $SchedName on-event=$OnEvent;\r
- }\r
- :if ([ /system/scheduler/get $SchedName policy ] != $Policy) do={\r
- /system/scheduler/set $SchedName policy=$Policy;\r
- }\r
- :if ([ /system/scheduler/get $SchedName start-date ] != $StartDate) do={\r
- /system/scheduler/set $SchedName start-date=$StartDate;\r
- }\r
- :if ([ /system/scheduler/get $SchedName start-time ] != $StartTime) do={\r
- /system/scheduler/set $SchedName start-time=$StartTime;\r
- }\r
-\r
-} do={:global ExitOnError; $ExitOnError $0 $Err}\r
+ :onerror Err {\r
+ # Check if scheduler exists, if not - create it\r
+ :if ([ :len [ /system/scheduler/find where name=$SchedName ] ] = 0) do={\r
+ $LogPrint warning $SchedName ("System Scheduler for script: " . $SchedName . " is NOT SET! Fix It Now!");\r
+ /system/scheduler/add comment=$Comment interval=$Interval name=$SchedName on-event=$OnEvent policy=$Policy start-date=$StartDate start-time=$StartTime;\r
+ }\r
+ # Check if scheduler parameters are correct, if not - fix them\r
+ :if ([ /system/scheduler/get $SchedName comment ] != $Comment) do={\r
+ /system/scheduler/set $SchedName comment=$Comment;\r
+ }\r
+ :if ([ /system/scheduler/get $SchedName interval ] != $Interval) do={\r
+ /system/scheduler/set $SchedName interval=$Interval;\r
+ }\r
+ :if ([ /system/scheduler/get $SchedName on-event ] != $OnEvent) do={\r
+ /system/scheduler/set $SchedName on-event=$OnEvent;\r
+ }\r
+ :if ([ /system/scheduler/get $SchedName policy ] != $Policy) do={\r
+ /system/scheduler/set $SchedName policy=$Policy;\r
+ }\r
+ :if ([ /system/scheduler/get $SchedName start-date ] != $StartDate) do={\r
+ /system/scheduler/set $SchedName start-date=$StartDate;\r
+ }\r
+ :if ([ /system/scheduler/get $SchedName start-time ] != $StartTime) do={\r
+ /system/scheduler/set $SchedName start-time=$StartTime;\r
+ }\r
+ } do={$LogPrint error $0 ("Removing directory '" . $DirName . "' failed: " . $Err); :return false};\r
+ :return true;\r
}\r
\r
# Add global Function OSUpdateMode\r