###############   K O M U T L A R  B Ö L Ü M Ü   ############# 

##                                                          ## 

##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ## 

##      kendinize özel yapabilir yada asla değiştirmeden    ## 

##             mevcut hali ile kullanabilirsiniz            ## 

##                                                          ## 

############################################################## 

 
set namaz(komut) "!namaz" 

set namaz(kanal) "#islam" 

 
bind pub - $namaz(komut) namaz:vakit 

proc namaz:vakit {nick uhost hand chan text} { 

  global botnick namaz

  if {![string match "$namaz(kanal)" $chan]} { return }

  set semt [lindex $text 0] 

  if {$semt == ""} {putquick "PRIVMSG $namaz(kanal) :Hata: Herhangi bir il'in namaz vakitlerini öğrenmek için lütfen bir şehir belirtiniz.";return} 

  set connect [::http::geturl http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set files [string map[list \n " "] [::http::data $connect]] 

  if {[string match -nocase "*Invalid use of Null*" $files]} {

    putquick "PRIVMSG $namaz(kanal) Hata: Herhangi bir il'in namaz 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 

    putquick "privmsg $namaz(kanal) :Bilgiler alınıyor, lütfen bekleyin." 

    putquick "privmsg $namaz(kanal) :- "

    putquick "privmsg $namaz(kanal) :$semt: İmsak: $imsak Güneş: $gunes Öğle: $ogle İkindi: $ikindi Akşam: $aksam Yatsı: $yatsi" 

    putquick "privmsg $namaz(kanal) :Hadis: Namaz her hayrın, her iyiliğin anahtarıdır." 

    putquick "privmsg $namaz(kanal) :-" 

    putquick "privmsg $namaz(kanal) :Namaz vakitleri bilgilendirme sonu."

  }

} 

 
putlog "Namaz Vakitleri TCL v1.0 - Written By CLubber" 

source scripts/http.tcl