TCL scripting'de tarih ve zaman dilimini belirtmek için -clock format komutunu öğrenmek gerekir.
Bunu en basit şu şekilde yapabilirsin.
Öncelikle kullanacağın bind'i belirleyip, proc'u yazdıktan sonra altına
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set serv(time) [clock seconds]
Bu şekilde set komutu ile sunucunun zaman dilimi göstergesini belirlersin.
Daha sonrası için gerekli olan komut ise -clock format komutudur.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
[clock format [lindex $serv(time) 0] -format "%d-%m-%Y"]
Burdaki %d - %m - %Y; Gün Ay ve Yılı verir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
[clock format [lindex $serv(time) 0] -format "%H:%M"]
Buradaki %H ve %M ise Saat ve Dakikayı verir.
Bunu bir örnekle yapalım, anlatımımız açıklayıcı olsun.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !tarih time:date
proc time:date {nick uhost hand chan text} {
global server
set serv(time) [clock seconds]
putquick "PRIVMSG $chan Tarih: [clock format [lindex $serv(time) 0] -format "%d-%m-%Y"]"
putquick "PRIVMSG $chan Saat: [clock format [lindex $serv(time) 0] -format "%H:%M"]"
}
Bu kısımda açıklayama gerek duymuyorum, anlayacağını düşünüyorum.