Caesars timer +R -R

namespace eval moderate {

   setudef flag moderate

   bind cron - {0 0 * * *} [namespace current]::lock
   bind cron - {0 7 * * *} [namespace current]::unlock
   
   proc lock {min hour day month weekday} {
      push "+m"
   }
   
   proc unlock {min hour day month weekday} {
      push "-m"
   }
   
   proc push {m} {
      foreach chan [channels] {
         if {![channel get $chan moderate]} continue
         if {![botonchan $chan] || ![botisop $chan]} continue
         pushmode $chan $m
      }
   }
}