Timer Script

 
   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
         }
      }
   }

   Set +moderate on the channels you want this timed +m/-m.