Scheduled Maintenance Window

Try this workaround out:

Use this:

 
 regexp {(\d+)\s+0*(\d+)\s+0*(\d+)} \ 
    [clock format [clock seconds] -format {%u %H %M}]\ 
    match cur_day Hour Min 
 set cur_time [expr ($Hour * 100) + $Min] 
 

Replacing this:

 
 set l [split [clock format [clock seconds] -format {%A %H %M}] " "]  
 set cur_day [lindex $l 0]  
 set cur_time [expr [expr {[lindex $l 1] *100}] + [lindex $l 2]]  
 

It looks like the split from clock produces invalid octal value in Tcl (eg. 08 and 09).

Any solution without regex or correction are welcome