###########################################################################################
#                                                                                         #
#                                                                                         #
#                 İ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.                   #
#                                                                                         #
#                                                                                         #
###########################################################################################

bind pub - !iftar iftar:vakit 
proc iftar:vakit {nick uhost hand chan text} { 
  global botnick tcl 
  if {![string match "#iftar" $chan]} { return 0 }
  set semt [lindex $text 0] 
  if {$semt == ""} {putquick "PRIVMSG #iftar :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]] 
  if {[string match -nocase "*Invalid use of Null*" $files]} {
    putquick "PRIVMSG #iftar Hata: Herhangi bir il'in namaz ve iftar vakitlerini sorgularken türkçe karakter kullanmayınız."
    ::http::cleanup $connect 
    } else {
    regexp -- {<td width="100" height="25" class="vakitstl">.*?msak</td>.*?<td width="5" class="vakitstl2">:</td>.*?<td width="70" class="vakitstl">(.*?)</td>} $files - imsak 
    regexp -- {<td height="25" class="vakitstl">G.*?ne.*?</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</td>} $files - gunes 
    regexp -- {<td height="25" class="vakitstl">.*?le</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</td>} $files - ogle 
    regexp -- {<td height="25" class="vakitstl">.*?kindi</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</td>} $files - ikindi 
    regexp -- {<td height="25" class="vakitstl">Ak.*?am</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</td>} $files - aksam 
    regexp -- {<td height="25" class="vakitstl">Yats.*?</td>.*?<td class="vakitstl2">:</td>.*?<td class="vakitstl">(.*?)</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 #iftar :Bilgiler alınıyor, lütfen bekleyin." 
    putquick "privmsg #iftar :- "
    putquick "privmsg #iftar :$semt: İmsak: $imsak Güneş: $gunes Öğle: $ogle İkindi: $ikindi Akşam: $aksam Yatsı: $yatsi" 
    putquick "privmsg #iftar :İftara Kalan Süre: ($remain)" 
    putquick "privmsg #iftar :-" 
    putquick "privmsg #iftar :Ramazan imsakiyesi bilgilendirme sonu."
  }
} 

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

source scripts/http.tcl