###########################################################################################
#                                                                                         #
#                                                                                         #
#                 İftar ve Namaz Vakitleri TCL v1.0 - Written By CLubber                  #
#        Bu TCL ile herhangi bir il'in namaz ve iftar vakitlerini öğrenebilirsiniz.       #
#              Kullanımı iftar kanalı genelinde !iftar şehir şeklindedir.                 #
#                Bu tcl'nin çalışması için, http.tcl'ye ihtiyaç vardır.                   #
#                                                                                         #
#                                                                                         #
###########################################################################################

# !iftar komutunun calismasini istediginiz kanali belirtin!!
set kanal "#sohbet"

# Burdan sonrasına kesinlikle dokunmayınız!!
bind pub - !iftar iftar:vakit 
proc iftar:vakit {nick uhost hand chan text} { 
  global botnick tcl kanal 
  if {![string match "$kanal" $chan]} { return 0 }
  set semt [lindex $text 0] 
  if {$semt == ""} {putquick "PRIVMSG $kanal :Hata: Herhangi bir il'in namaz ve iftar vakitlerini öğrenmek için lütfen bir şehir belirtiniz.";return} 
  set connect [::http::geturl 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set files [string map [list \n " "] [::http::data $connect]] 
       regexp -- {<td class="pngfix">.*?MSAK <strong>(.*?)</strong></td>} $files - imsak
    regexp -- {<td class="pngfix">G.*?NE.*? <strong>(.*?)</strong></td>} $files - gunes
    regexp -- {<td class="pngfix">.*?LE <strong>(.*?)</strong></td>} $files - ogle
    regexp -- {<td class="pngfix">.*?K.*?ND.*? <strong>(.*?)</strong></td>} $files - ikindi
    regexp -- {<td class="pngfix">AK.*?AM <strong>(.*?)</strong></td>} $files - aksam
    regexp -- {<td class="pngfix">YATS.*? <strong>(.*?)</strong></td>} $files - yatsi
    ::http::cleanup $connect 
    set int "00"
    set ex(time) "$aksam:$int"
    set serv(time) [clock seconds]
    set cur(time) [clock format [lindex $serv(time) 0] -format "%H:%M:%S"]
    set remain [duration [expr {[clock scan $ex(time)] - [clock scan $cur(time)]}]]
    regsub -all {hours} $remain {saat} remain
    regsub -all {hour} $remain {saat} remain
    regsub -all {minutes} $remain {dakika} remain
    regsub -all {minute} $remain {dakika} remain
    regsub -all {seconds} $remain {saniye} remain
    regsub -all {second} $remain {saniye} remain
    putquick "privmsg $kanal :Bilgiler alınıyor, lütfen bekleyin." 
    putquick "privmsg $kanal :- "
    putquick "privmsg $kanal :$semt: \002İmsak:\002 $imsak \002Güneş:\002 $gunes \002Öğle:\002 $ogle \002İkindi:\002 $ikindi \002Akşam:\002 $aksam \002Yatsı:\002 $yatsi" 
    putquick "privmsg $kanal :İftara Kalan Süre: ($remain)" 
    putquick "privmsg $kanal :-" 
    putquick "privmsg $kanal :Ramazan imsakiyesi bilgilendirme sonu."
    }

putlog "Namaz ve Iftar Vakitleri TCL - Written By CLubber"