proc pub_tjam {nick host hand chan text} {
global curTzone varIndi     
set varjfor "%A, %I:%M %p $varIndi. %d %B %Y"     
#set varjfor "%I:%M %p"     
set varJam1 [clock format [clock seconds] -timezone :$curTzone -format $varjfor]    
regsub -all {Sunday} $varJam1 "\00304Minggu\003" varJam1     
regsub -all {Monday} $varJam1 "\00303Senin\003" varJam1     
regsub -all {Tuesday} $varJam1 "\00303Selasa\003" varJam1     
regsub -all {Wednesday} $varJam1 "\00303Rabu\003" varJam1     
regsub -all {Thursday} $varJam1 "\00303Kamis\003" varJam1     
regsub -all {Friday} $varJam1 "\00303Jumat\003" varJam1     
regsub -all {Saturday} $varJam1 "\00303Sabtu\003" varJam1     
regsub -all {January} $varJam1 "\00305Januari\003" varJam1    
regsub -all {February} $varJam1 "\00313Februari\003" varJam1    
regsub -all {March} $varJam1 "\00302Maret\003" varJam1    
regsub -all {April} $varJam1 "\00310April\003" varJam1     
regsub -all {May} $varJam1 "\00314Mei\003" varJam1     
regsub -all {June} $varJam1 "\00308Juni\003" varJam1     
regsub -all {July} $varJam1 "\00307Juli\003" varJam1     
regsub -all {August} $varJam1 "\00311Agustus\003" varJam1     
regsub -all {September} $varJam1 "\00304September\003" varJam1     
regsub -all {October} $varJam1 "\00309Oktober\003" varJam1     
 regsub -all {November} $varJam1 "\00313November\003" varJam1     regsub -all {December} $varJam1 "\00303Desember\003" varJam1     putserv "PRIVMSG $chan :$varJam1" 
}