# hangi kanal/lar üstünde çalıştırmak isteniyorsa:
# .chanset #kanal +hava
# yükledikten sonra ayarlamalısınız.
package require http
setudef flag hava
bind pub - .h hava
proc hava {nick uhost hand chan text} {
 if {![channel get $chan hava]} { :return 0 }
  set query [lindex [split $text] 0]
 if {[llength $query] == "0"} {
   putserv "notice $nick :\00304kullanım şekli : .h <şehir-ismi>\00304" 
   return 0
 }
::http::config -useragent "UserAgent"
set tok [::http::geturl "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]" -timeout 15000]
set data [::http::data $tok]
::http::cleanup $tok
regexp -- {<td class="sond_zaman">(.+?)<br .>(.+?)</td>} $data "" zaman saat
regexp -- {<td><em class="renkMin zemimeZ">(.+?)°(.+?)</em></td>} $data "" max santi
regexp -- {<td><em>(.*?)</em></td>} $data "" nem
regexp -- {<br /><em>(.*?)</em></td>} $data "" ruzgar
regexp -- {<p id="cp_sayfa_pMerkezYuksekligi"><strong>Yükseklik: </strong>&nbsp;(.*?)</p>} $data "" rakim
regexp -- {<p id="cp_sayfa_pMerkezBoylam"><strong>Boylam: </strong>&nbsp;(.*?)° (.*?)' (.*?)</p>} $data "" boylam derece dakika
regexp -- {<p id="cp_sayfa_pMerkezEnlem"><strong>Enlem: </strong>&nbsp;(.*?)° (.*?)' (.*?)</p>} $data "" enlem der dak
regexp -- {<p id="cp_sayfa_pMerkezGD"><strong>Gün Doğumu: </strong>&nbsp;(.*?)</p>} $data "" dogum
regexp -- {<p id="cp_sayfa_pMerkezGB"><strong>Gün Batımı: </strong>&nbsp;(.*?)</p>} $data "" batim
regsub -all {\n} $data {} data
regsub -all {\t} $data {} data
regsub -all {&nbsp;} $data { } data
regsub -all {°} $data {°} data
regsub -all {'} $data {'} data
  putserv "PRIVMSG $chan :\00304 $query için hava raporu:\00304 \0032Ölçüm zamanı:\0032 \002$zaman - $saat\002 - \0032Maksimum sıcaklık:\0032 \002$max $santi°\002 - \0032Nem oranı:\0032 \002$nem\002 - \0032Rüzgar hızı:\0032 \002$ruzgar\002"
  putserv "PRIVMSG $chan :\0032Yükseklik:\0032 \002$rakim\002 -\0032 Enlem:\0032 \002$enlem° $der' $dak\002 - \0032Boylam:\0032 \002$boylam° $derece' $dakika\002 - \0032Gün doğumu:\0032 \002$dogum\002 - \0032Gün batımı:\0032 \002$batim\002 "
}
putlog "havadar.tcl yuklendi..."