#######################################################
## 					Hava.TCL						 ##
## Türkiye geneli hava durumlarını kanala yansıtır.  ##
## İl il, Bölge bölge hava durumunun haberini verir. ##
## Belli Başlı illerin hava durumuna bakılabilir.    ##
#######################################################
package require http
## Hava durumu haberlerinin aktarılacağı kanal
set havakanal "#kanaladi"

## Hava Durumu Haberleri kaç dakika arayla aktarılsın?
set havasure "30"

timer $havasure[list genel]

proc genel {} {
if { ($::havakanal ne "") } {
set havabaglan [http::geturl "https://www.mgm.gov.tr/tahmin/gunluk-tahmin.aspx?#sfB"]
set havadata [encoding convertto utf-8 [http::data $havabaglan]]
http::cleanup $havabaglan

putquick "privmsg $::havakanal :\002Türkiye Geneli Günlük Hava Tahmin Raporu:"
putquick "privmsg $::havakanal :--------------------------------------------------------------"
regexp -- {<td>\:(.*?)\-(.*?)</td>} $havadata - btarih bsaat
regexp -- {<td class="bbn">:(.*?)-(.*?)</td>} $havadata - starih ssaat
regexp -- {<td colspan="2">Yap.*?lan son de.*?erlendirmelere g.*?re.*? (.*?)</td>} $havadata - degerlendirme
putquick "privmsg $::havakanal :\0033Başlangıç:\003 $btarih - $bsaat \002/\002 \0034Bitiş:\003 $starih - $ssaat"
putquick "privmsg $::havakanal :--------------------------------------------------------------"
set sicaklik [string map {"<br /><br />" "\n"} $degerlendirme]
set hava 0
foreach sicak [split $sicaklik \n] {
if {$hava eq 3} { break }
if {$hava eq 0} { putquick "privmsg $::havakanal :\0037HAVA DURUMU:\003 $sicak"}
if {$hava eq 1} { putquick "privmsg $::havakanal :\0037[string map {" :" ":\003 " "<strong>" "" "</strong>" ""} $sicak]"}
if {$hava eq 2} { putquick "privmsg $::havakanal :\0037[string map {" :" ":\003 " "<strong>" "" "</strong>" ""} $sicak]"}
incr hava
}
putquick "privmsg $::havakanal :--------------------------------------------------------------"
putquick "privmsg $::havakanal :\002Bölgelerimizdeki Hava Durumu:"
putquick "privmsg $::havakanal :--------------------------------------------------------------"
while {[regexp -- {<strong>B.*?LGELER.*?M.*?ZDE HAVA</strong>(.*)$} $havadata - havadata]} {
regexp -- {<td colspan="2">(.*?)</td>(.*)$} $havadata - mrapor havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - bursa havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dbursa havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ybursa havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - edirne havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dedirne havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yedirne havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - istanbul havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - distanbul havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yistanbul havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - kirklareli havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dkirklareli havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ykirklareli havadata
regexp -- {<td>(.*?)</td>(.*)$} $havadata - erapor havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - karahisar havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dkarahisar havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ykarahisar havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - izmir havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dizmir havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yizmir havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - manisa havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dmanisa havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ymanisa havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - mugla havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dmugla havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ymugla havadata
regexp -- {<td>(.*?)</td>(.*)$} $havadata - arapor havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - adana havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dadana havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yadana havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - antalya havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dantalya havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yantalya havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - hatay havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dhatay havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - yhatay havadata
regexp -- {<td width="59%">(.*?)</td>(.*)$} $havadata - mersin havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - dmersin havadata
regexp -- {<strong>(.*?)</strong>(.*)$} $havadata - ymersin havadata
putquick "privmsg $::havakanal :\002\0037MARMARA:\003\002 $mrapor"
putquick "privmsg $::havakanal :[sekil $bursa] \0034Bursa:\003 $bursa \002->\002\00312 En Düşük:\003 $dbursa -\0037 En Yüksek:\003 $ybursa"
putquick "privmsg $::havakanal :[sekil $edirne] \0034Edirne:\003 $edirne \002->\002\00312 En Düşük:\003 $dedirne -\0037 En Yüksek:\003 $yedirne"
putquick "privmsg $::havakanal :[sekil $istanbul] \0034Istanbul:\003 $istanbul \002->\002\00312 En Düşük:\003 $distanbul -\0037 En Yüksek:\003 $yistanbul"
putquick "privmsg $::havakanal :[sekil $kirklareli] \0034Kirklareli:\003 $kirklareli \002->\002\00312 En Düşük:\003 $dkirklareli -\0037 En Yüksek:\003 $ykirklareli"
putquick "privmsg $::havakanal :--------------------------------------------------------------"
putquick "privmsg $::havakanal :\002\0037EGE:\003\002 $mrapor"
putquick "privmsg $::havakanal :[sekil $karahisar] \0034A.Karahisar:\003 $karahisar \002->\002\00312 En Düşük:\003 $dkarahisar -\0037 En Yüksek:\003 $ykarahisar"
putquick "privmsg $::havakanal :[sekil $izmir] \0034Izmir:\003 $izmir \002->\002\00312 En Düşük:\003 $dizmir -\0037 En Yüksek:\003 $yizmir"
putquick "privmsg $::havakanal :[sekil $manisa] \0034Manisa:\003 $manisa \002->\002\00312 En Düşük:\003 $dmanisa -\0037 En Yüksek:\003 $ymanisa"
putquick "privmsg $::havakanal :[sekil $mugla] \0034Mugla:\003 $mugla \002->\002\00312 En Düşük:\003 $dmugla -\0037 En Yüksek:\003 $ymugla"
putquick "privmsg $::havakanal :--------------------------------------------------------------"
putquick "privmsg $::havakanal :\002\0037AKDENIZ:\003\002 $arapor"
putquick "privmsg $::havakanal :[sekil $adana] \0034Adana:\003 $adana \002->\002\00312 En Düşük:\003 $dadana -\0037 En Yüksek:\003 $yadana"
putquick "privmsg $::havakanal :[sekil $antalya] \0034Antalya:\003 $antalya \002->\002\00312 En Düşük:\003 $dantalya -\0037 En Yüksek:\003 $yantalya"
putquick "privmsg $::havakanal :[sekil $hatay] \0034Hatay:\003 $hatay \002->\002\00312 En Düşük:\003 $dhatay -\0037 En Yüksek:\003 $yhatay"
putquick "privmsg $::havakanal :[sekil $mersin] \0034Mersin:\003 $mersin \002->\002\00312 En Düşük:\003 $dmersin -\0037 En Yüksek:\003 $ymersin"
putquick "privmsg $::havakanal :--------------------------------------------------------------"
}
timer $::havasure[list genel]
}
}

bind pub - .hava havatahmin

proc havatahmin {nick host hand chan a} {
if { [string match $::havakanal $chan] } {
set tbaglan [http::geturl "https://www.mgm.gov.tr/tahmin/default.aspx?s=[set sehir [strupr $a]]"]
set hdata [encoding convertto utf-8 [http::data $tbaglan]]
http::cleanup $tbaglan
regexp -- {<h1 id=\"sfB\">Saatlik Hava Tahmini \| (.*?)</h1>} $hdata - esle
regexp -- {<td class="hadise1" title=" (.*?) "(.*)$} $hdata - t hdata
regexp -- {<th  class="sicak1"  style="font-weight:bold; color:red; background-color:#ecf4f8;">(.*?)</th><th(.*)$} $hdata - s hdata
regexp -- {<th class="sicakh1" style=" color:red; background-color:"#ffffff";">(.*?)</th><th(.*)$} $hdata - h hdata
regexp -- {<th  class="nem1" style="color:#4247b8; font-weight:bold; background-color:#ecf4f8; ">(.*?)</th><th(.*)$} $hdata - n hdata
regexp -- {<td class="ruzgarhiz1" title=" .*? " ><img src=".*?" style="width:20px;" /> </br>(.*?)</td><td(.*)$} $hdata - r hdata
regexp -- {<th class="ruzgarham1" style="color:#731d75; font-weight:bold; background-color:#ecf4f8; ">(.*?)</th><th(.*)$} $hdata - rh hdata
if { $sehir eq $esle } {
putquick "privmsg $::havakanal :\00312MERKEZLER :\003istanbul - ankara - izmir- antalya - afyonkarahisar - adana - samsun - trabzon - eskisehir - diyabakir"
putquick "privmsg $::havakanal :\0034$sehir\003 HAVA DURUMU"
putquick "privmsg $::havakanal :-----------------------------------"
putquick "privmsg $::havakanal :\002Beklenen Hadise:\002 [sekil $t] $t"
putquick "privmsg $::havakanal :\002Sicaklik:\002 $s"
putquick "privmsg $::havakanal :\002Hissedilen Sicaklik:\002 $h"
putquick "privmsg $::havakanal :\002Nem:\002 $n"
putquick "privmsg $::havakanal :\002Ruzgar Yonu:\002 $r"
putquick "privmsg $::havakanal :\002Ruzgar Hamlesi:\002 $rh"
} else {
putquick "NOTICE $nick :Türkçe karakter kullanımına dikkat edelim. Sadece aşağıdaki şehirlerin bilgilerini alabilirsiniz."
putquick "NOTICE $nick :\0034MERKEZLER :\0031istanbul - ankara - izmir - antalya - afyonkarahisar - adana - samsun - trabzon - eskisehir - diyabakir"
}
}
}

proc sekil {veri} {
if {[string match -nocase "*anak*" $veri]} {
set yagis "\00311,1::.:.\003"
return $yagis
} elseif {[string match -nocase "*bulutlu*" $veri] & ![string match -nocase "*anak*" $veri]} {
set yagis "\0030,1~\0037O\0030~\003"
return $yagis
} elseif {[string match -nocase "A*" $veri] & ![string match -nocase "*anak*" $veri] & ![string match -nocase "*bulutlu*" $veri]} {
set yagis "\0037,1-O-\003"
return $yagis
}
}

putlog "Hava Durumu kodlama rascoLn"