TCL Auto Update Topic memakai Cron

simple tcl.. bisa digabung ke uno.tcl atau lainnya..

Code:

# oleh dono 20150115 irc.ayochat.or.id
bind cron - {* * * * *} cron:week

proc cron:week {min hour day month weekday} {
        global shelltime_setting
        if {![botisop #minangcrew]} {return 0}
        if {[string trimleft $min 0] == 59 && [string trimleft $hour 0] == 23} {
  switch [string trimleft $weekday 0]  {
    "1" { puthelp "TOPIC #minangcrew : \00308,01 6 hari lagi - Auto Update Topic Testing - [clock format [clock seconds] -timezone :Asia/Jakarta -format $shelltime_setting(format)] \003" }
    "2" { puthelp "TOPIC #minangcrew : \00309,01 5 hari lagi - Auto Update Topic Testing - [clock format [clock seconds] -timezone :Asia/Jakarta -format $shelltime_setting(format)] \003" }
    "3" { puthelp "TOPIC #minangcrew : \00311,01 4 hari lagi - Auto Update Topic Testing - [clock format [clock seconds] -timezone :Asia/Jakarta -format $shelltime_setting(format)] \003" }
    "4" { puthelp "TOPIC #minangcrew : \00313,01 3 hari lagi - Auto Update Topic Testing - [clock format [clock seconds] -timezone :Asia/Jakarta -format $shelltime_setting(format)] \003" }
    "5" { puthelp "TOPIC #minangcrew : \00304,01 2 hari lagi - Auto Update Topic Testing - [clock format [clock seconds] -timezone :Asia/Jakarta -format $shelltime_setting(format)] \003" }
    "6" { puthelp "TOPIC #minangcrew : \00300,01 1 hari lagi - Auto Update Topic Testing - [clock format [clock seconds] -timezone :Asia/Jakarta -format $shelltime_setting(format)] \003" }
    "7" {
    putserv "PRIVMSG #minangcrew :Score akan di reset dalam 1 menit"
    puthelp "TOPIC #minangcrew : \00301,08 Hari Minggu - Auto Update Topic Testing - [clock format [clock seconds] -timezone :Asia/Jakarta -format $shelltime_setting(format)]"
        }

    }
  }
}

#NB: Aktifkan jam.tcl untuk mendapatkan shelltime_setting
# 1 = Senin ... 7 = Minggu - ganti channel dan jam diinginkan