setudef flag saat

bind pubm - "*" saat:pub

proc saat:pub {nick uhost hand chan text} {
  if {![channel get $chan saat]} { return;}
  set ::schan $chan
  set a [lindex [string tolower $text] 0]
  switch -- $a {
  .saat { set saat [clock format [clock scan "0 second" -base [clock seconds]] -format "\00304,01\002%H:%M:%S\002\003"]
         putserv "privmsg $chan :\002Saat\002: $saat"
        }
  .tarih { set tarih [clock format [clock scan "0 day" -base [clock seconds]] -format "\00304,01Tarih:\003 \002%d-%B-%Y %A\002 \00304,01Saat:\003 \002%H:%M:%S\002"]
           set tarih [string map -nocase {
                     "January" "Ocak" "February" "Şubat" "March" "Mart" "April" "Nisan" "May" "Mayıs" "June" "Haziran"
                     "July" "Temmuz" "August" "Ağustos" "September" "Eylül" "October" "Ekim" "November" "Kasım"
                     "December" "Aralık" "Monday" "Pazartesi" "Tuesday" "Salı" "Wednesday" "Çarşamba" "Thursday" "Perşembe"
                     "Friday" "Cuma" "Saturday" "Cumartesi" "Sunday" "Pazar"} [join $tarih]]
           putserv "privmsg $chan :$tarih"
        }
      return 0
      }
 }      

bind time - "00 *" sayac:pub

proc sayac:pub {min hour day mon year} {
  set chan $::schan
  if {![channel get $chan saat]} { return;}
  set tarih [clock format [clock scan "0 day" -base [clock seconds]] -format "\00304,01Tarih:\003 \002%d-%B-%Y %A\002 \00304,01Saat:\003 \002%H:%M:%S\002 \026%z\026"]
  set tarih [string map -nocase {
            "January" "Ocak" "February" "Şubat" "March" "Mart" "April" "Nisan" "May" "Mayıs" "June" "Haziran"
            "July" "Temmuz" "August" "Ağustos" "September" "Eylül" "October" "Ekim" "November" "Kasım"
            "December" "Aralık" "Monday" "Pazartesi" "Tuesday" "Salı" "Wednesday" "Çarşamba" "Thursday" "Perşembe"
            "Friday" "Cuma" "Saturday" "Cumartesi" "Sunday" "Pazar"} [join $tarih]]
    putserv "privmsg $chan :$tarih"
    return 0       
}

putlog "ok..."

set timezone "EST"
set offset "-3"
set env(TZ) "$timezone$offset"

set env(TZ) "$timezone $offset"

set env(TZ) "$timezone$offset"