29 Haziran 2016, 18:19
|
#1 |
Çevrimiçi | Namaz ve Iftar Vakitleri + Hadis-i Serif + Sure Mealleri Kod: Kodu kopyalamak için üzerine çift tıklayın! ###########################################################################################
# #
# #
# iftar ve Namaz Vakitleri + Kuran-ı Kerim Sure ve Mealleri + Hadis-i Şerif #
# #
# #
###########################################################################################
# Namaz ve iftar saatlerinin gozukmesini istediginiz kanali belirtin!!
set kanal "#kanaladi"
# Burdan sonrasına kesinlikle dokunmayınız!!
bind pub - !iftar iftar:vakit
bind time - "?0 * * * *" hadis
bind msg - .sure meal
bind msgm - * ayet
proc iftar:vakit {nick uhost hand chan text} {
global botnick kanal
if {![string match -nocase "$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 https://www.haberler.com/$semt/namaz-vakitleri/]
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: İmsak:4 $imsak1 Güneş:4 $gunes1 Öğle:4 $ogle1 İkindi:4 $ikindi1 Akşam:4 $aksam1 Yatsı:4 $yatsi1"
putquick "privmsg $kanal :İftara Kalan Süre: ($remain)"
putquick "privmsg $kanal :-"
putquick "privmsg $kanal :Ramazan imsakiyesi bilgilendirme sonu."
}
proc hadis {d s g a y} {
set number[list 2 5]
if { [set b [expr [rand 160]]] != 0 } {
set connect [::http::geturl https://www.16000hadisiserif.com/index.php?c=[lindex $number [expr [rand [llength $number]]]]&ss=$b]
set files [string map[list \n " "] [::http::data $connect]]
set hadisal [string trim [harfdecode [string range $files [expr [string first "<div class=\"post-text\" id=\"icerikk\">" $files]+36] [expr [string last "<!-- End Text -->" $files]-18]]]]
putquick "privmsg $::kanal :++++++++++++++++++++++++"
hadisver privmsg $::kanal "\0030,4 Hadisi Şerif \003 \00314 [string map {"\{" "" "\}" ""} [lrange $hadisal 2 end]] \003"
putquick "privmsg $::kanal :++++++++++++++++++++++++"
} else {
hadis $d $s $g $a $y
}
}
set sureler {
"\002 KURAN-I KERİM MEALİ \002"
"\003"
"\0034 1-\003Fatiha |\0034 2-\003Bakara |\0034 3-\003Al-i İmran |\0034 4-\003Nisa |\0034 5-\003Maide |\0034 6-\003Enam |\0034 7-\003Araf |\0034 8-\003Enfal |\0034 9-\003Tevbe |\0034 10-\003Yunus"
"\003"
"\0034 11-\003Hud |\0034 12-\003Yusuf |\0034 13-\003Rad |\0034 14-\003İbrahim |\0034 15-\003Hicr |\0034 16-\003Nahl |\0034 17-\003İsra |\0034 18-\003Kehf |\0034 19-\003Meryem |\0034 20-\003Taha"
"\003"
"\0034 21-\003Enbiya |\0034 22-\003\003Hac |\0034 23-\003Muminun |\0034 24-\003Nur |\0034 25-\003Furkan |\0034 26-\003Suara |\0034 27-\003Neml |\0034 28-\003Kasas |\0034 29-\003Ankebut |\0034 30-\003Rum"
"\003"
"\0034 31-\003Lokman |\0034 32-\003\003Secde |\0034 33-\003Ahzab |\0034 34-\003Sebe |\0034 35-\003Fatir |\0034 36-\003Yasin |\0034 37-\003Saffat |\0034 38-\003Sad |\0034 39-\003Zümer |\0034 40-\003Mümin"
"\003"
"\0034 41-\003Fusilet |\0034 42-\003\003Şura |\0034 43-\003Zuhruf |\0034 44-\003Duhan |\0034 45-\003Casiye |\0034 46-\003Ahkaf |\0034 47-\003Muhammed |\0034 48-\003Fetih |\0034 49-\003Hucurat |\0034 50-\003Kaf"
"\003"
"\0034 51-\003Zariyat |\0034 52-\003\003Tur |\0034 53-\003Necm |\0034 54-\003Kamer |\0034 55-\003Rahman |\0034 56-\003Vakia |\0034 57-\003Hadid |\0034 58-\003Mucadele |\0034 59-\003Hasr |\0034 60-\003Mumtehine"
"\003"
"\0034 61-\003Saff |\0034 62-\003\003Cuma |\0034 63-\003Munafikun |\0034 64-\003Tegabun |\0034 65-\003Talak |\0034 66-\003Tahrim |\0034 67-\003Mülk |\0034 68-\003Kalem |\0034 69-\003Hakka |\0034 70-\003Mearic"
"\003"
"\0034 71-\003Nuh |\0034 72-\003\003Cin |\0034 73-\003Müzzemmil |\0034 74-\003Muddessir |\0034 75-\003Kıyame |\0034 76-\003İnsan |\0034 77-\003Murselat |\0034 78-\003Nebe |\0034 79-\003Naziat |\0034 80-\003Abese"
"\003"
"\0034 81-\003Tekvir |\0034 82-\003\003İnfitar |\0034 83-\003Mütaffirin |\0034 84-\003İnşikak |\0034 85-\003Büruc |\0034 86-\003Tarık |\0034 87-\003A'la |\0034 88-\003Gasiye |\0034 89-\003Fecr |\0034 90-\003Beled"
"\003"
"\0034 91-\003Şems |\0034 92-\003\003Lehl |\0034 93-\003Duha |\0034 94-\003İnşirah |\0034 95-\003Tin |\0034 96-\003Alak |\0034 97-\003Kadr |\0034 98-\003Beyyine |\0034 99-\003Zilzal |\0034 100-\003Adiyat"
"\003"
"\0034 101-\003Karia |\0034 102-\003\003Tekasur |\0034 103-\003Asr |\0034 104-\003Hümeze |\0034 105-\003Fil |\0034 106-\003Kureyş |\0034 107-\003Maun |\0034 108-\003Kevser |\0034 109-\003Kafirun |\0034 110-\003Nasr"
"\003"
"\0034 111-\003Tebbet |\0034 112-\003\003İhlas |\0034 113-\003Felak |\0034 114-\003Nas"
"\003"
}
proc meal {n u h a} {
foreach sureliste $::sureler {
putquick "privmsg $n :$sureliste"
}
}
proc ayet {nick host hand text} {
if {$text < 115} {
set suresite [::http::geturl https://www.kurandan.com/kk/1fatiha.htm -timeout 5000]
set suredata [::http::data $suresite]
::http::cleanup $suresite
set sureayir [string range $suredata [expr [string first "<a href=\"#\">Sure'ler 1 - 10</a>" $suredata]] [expr [string last "<a href=\"#\">Konular ve Ayetler</a>" $suredata]]]
while {[regexp -- {<li><a href="(.*?)">.*? (.*?)</a></li>(.*)$} $sureayir - sayi sureismi sureayir]} {
if {[string match -nocase "*$text*" $sayi] } {
set suresite [::http::geturl https://www.kurandan.com/kk/$sayi -timeout 5000]
set suredata [string map -nocase {"scope=\"col\"><h4 align=\"center\">" "\n"} [::http::data $suresite]]
::http::cleanup $suresite
set sureara [string range $suredata [expr [string first "Bismillâhirrahmânirrahîm </h4>" $suredata]] [expr [string last "<td><div align=\"center\" class=\"style76\">" $suredata]]]
putquick "privmsg $nick :\002\0034$sureismi SURESİ\002\003"
set surex 0
foreach surever [split [harfdecode $sureara] \n] {
if {$surex == 0} {
putquick "privmsg $nick :\002$surever\002"
} else {
putquick "privmsg $nick :[string trimright [string trim $surever] "<"]"
}
incr surex
}
break
}
}
}
}
proc harfdecode {harfler} {
regsub -all "<p>" $harfler "" harfler
regsub -all "<br />" $harfler "" harfler
regsub -all "</p>" $harfler "" harfler
regsub -all "</div>" $harfler "" harfler
regsub -all "</div>" $harfler "" harfler
regsub -all " " $harfler "" harfler
regsub -all "</em>" $harfler "" harfler
regsub -all "<em>" $harfler "" harfler
regsub -all "<div align=\"center\" class=\"style76\">" $harfler "" harfler
regsub -all "<td>" $harfler "" harfler
regsub -all "<tr>" $harfler "" harfler
regsub -all "</table>" $harfler "" harfler
regsub -all "</td>" $harfler "" harfler
regsub -all "</tr>" $harfler "" harfler
regsub -all "<h4 align=\"left\" class=\"style78 style85\">" $harfler "" harfler
regsub -all "<p align=\"left\" class=\"style83\">" $harfler "" harfler
regsub -all "<td valign=\"top\" bgcolor=\"#FFFFFF\" scope=\"col\"><h4 align=\"center\">" $harfler "" harfler
regsub -all "<p align=\"center\">" $harfler "" harfler
regsub -all "<p align=\"left\">" $harfler "" harfler
regsub -all "<h4 align=\"left\" class=\"style78 style85\">" $harfler "" harfler
regsub -all "</h4>" $harfler "" harfler
return $harfler
}
proc hadisver {type target text {delims {" "•,.!?}}} {
set lineLen [expr {412 - [string length ":$::botname $type [join $target] :\r\n"]}]
if {[string length $text] <= $lineLen} {
putquick "$type $target :\00314[entityToChar $text] \003"
return 0
}
set _text [split [entityToChar $text] $delims]
set x 0
set i 0
while {$x < $lineLen} {
if {$i >= [llength $_text]} {
return 0
}
set wordlen [string length [lindex $_text $i]]
if {$x + $wordlen > $lineLen} {
break
}
incr x $wordlen
incr x
incr i
}
putquick "$type $target :\00314[string range [entityToChar $text] 0 [expr {$x - 1}]] \003"
hadisver $type $target [string trimleft [string range [entityToChar $text] $x end]] $delims
}
proc entityToChar {text {char utf-8}} {
if {![string match *&* $text]} {return $text}
set escapes {
\xa0 ¡ \xa1 ¢ \xa2 £ \xa3 ¤ \xa4
¥ \xa5 ¦ \xa6 § \xa7 ¨ \xa8 © \xa9
ª \xaa « \xab ¬ \xac * \xad ® \xae
¯ \xaf ° \xb0 ± \xb1 ² \xb2 ³ \xb3
´ \xb4 µ \xb5 ¶ \xb6 · \xb7 ¸ \xb8
¹ \xb9 º \xba » \xbb ¼ \xbc ½ \xbd
¾ \xbe ¿ \xbf À \xc0 Á \xc1 Â \xc2
à \xc3 Ä \xc4 Å \xc5 Æ \xc6 Ç \xc7
È \xc8 É \xc9 Ê \xca Ë \xcb Ì \xcc
Í \xcd Î \xce Ï \xcf Ð \xd0 Ñ \xd1
Ò \xd2 Ó \xd3 Ô \xd4 Õ \xd5 Ö \xd6
× \xd7 Ø \xd8 Ù \xd9 Ú \xda Û \xdb
Ü \xdc Ý \xdd Þ \xde ß \xdf à \xe0
á \xe1 â \xe2 ã \xe3 ä \xe4 å \xe5
æ \xe6 ç \xe7 è \xe8 é \xe9 ê \xea
ë \xeb ì \xec í \xed î \xee ï \xef
ð \xf0 ñ \xf1 ò \xf2 ó \xf3 ô \xf4
õ \xf5 ö \xf6 ÷ \xf7 ø \xf8 ù \xf9
ú \xfa û \xfb ü \xfc ý \xfd þ \xfe
ÿ \xff ƒ \u192 Α \u391 Β \u392 Γ \u393 Δ \u394
Ε \u395 Ζ \u396 Η \u397 Θ \u398 Ι \u399
Κ \u39A Λ \u39B Μ \u39C Ν \u39D Ξ \u39E
Ο \u39F Π \u3A0 Ρ \u3A1 Σ \u3A3 Τ \u3A4
Υ \u3A5 Φ \u3A6 Χ \u3A7 Ψ \u3A8 Ω \u3A9
α \u3B1 β \u3B2 γ \u3B3 δ \u3B4 ε \u3B5
ζ \u3B6 η \u3B7 θ \u3B8 ι \u3B9 κ \u3BA
λ \u3BB μ \u3BC ν \u3BD ξ \u3BE ο \u3BF
π \u3C0 ρ \u3C1 ς \u3C2 σ \u3C3 τ \u3C4
υ \u3C5 φ \u3C6 χ \u3C7 ψ \u3C8 ω \u3C9
ϑ \u3D1 ϒ \u3D2 ϖ \u3D6 • \u2022
… \u2026 ′ \u2032 ″ \u2033 ‾ \u203E
⁄ \u2044 ℘ \u2118 ℑ \u2111 ℜ \u211C
™ \u2122 ℵ \u2135 ← \u2190 ↑ \u2191
→ \u2192 ↓ \u2193 ↔ \u2194 ↵ \u21B5
⇐ \u21D0 ⇑ \u21D1 ⇒ \u21D2 ⇓ \u21D3 ⇔ \u21D4
∀ \u2200 ∂ \u2202 ∃ \u2203 ∅ \u2205
∇ \u2207 ∈ \u2208 ∉ \u2209 ∋ \u220B ∏ \u220F
∑ \u2211 − \u2212 ∗ \u2217 √ \u221A
∝ \u221D ∞ \u221E ∠ \u2220 ∧ \u2227 ∨ \u2228
∩ \u2229 ∪ \u222A ∫ \u222B ∴ \u2234 ∼ \u223C
≅ \u2245 ≈ \u2248 ≠ \u2260 ≡ \u2261 ≤ \u2264
≥ \u2265 ⊂ \u2282 ⊃ \u2283 ⊄ \u2284 ⊆ \u2286
⊇ \u2287 ⊕ \u2295 ⊗ \u2297 ⊥ \u22A5
⋅ \u22C5 ⌈ \u2308 ⌉ \u2309 ⌊ \u230A
⌋ \u230B ⟨ \u2329 ⟩ \u232A ◊ \u25CA
♠ \u2660 ♣ \u2663 ♥ \u2665 ♦ \u2666
" \x22 & \x26 < \x3C > \x3E O&Elig; \u152 œ \u153
Š \u160 š \u161 Ÿ \u178 ˆ \u2C6
˜ \u2DC   \u2002   \u2003   \u2009
‌ \u200C ‍ \u200D ‎ \u200E ‏ \u200F – \u2013
— \u2014 ‘ \u2018 ’ \u2019 ‚ \u201A
“ \u201C ” \u201D „ \u201E † \u2020
‡ \u2021 ‰ \u2030 ‹ \u2039 › \u203A
€ \u20AC ' \u0027 ‎ "" ‏ "" ? "" * ""
* ""
};
set text [string map[list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] [string map $escapes $text]]
regsub -all -- {&#([[:digit:]]{1,5});} $text {[format %c [string trimleft "\1" "0"]]} text
regsub -all -- {&#x([[:xdigit:]]{1,4});} $text {[format %c [scan "\1" %x]]} text
return [subst "$text"]
}
putlog "Namaz ve Iftar Vakitleri + Hadis-i Serif + Sure Mealleri ( rascoLn )" Kod: Kodu kopyalamak için üzerine çift tıklayın! ###########################################################################################
# #
# #
# iftar ve Namaz Vakitleri + Kuran-ı Kerim Sure ve Mealleri + Hadis-i Şerif #
# #
# #
###########################################################################################
# Namaz ve iftar saatlerinin gozukmesini istediginiz kanali belirtin!!
set kanal "#kanaladi"
# Burdan sonrasına kesinlikle dokunmayınız!!
bind pub - !iftar iftar:vakit
bind time - "?0 * * * *" hadis
bind msg - .sure meal
bind msgm - * ayet
proc iftar:vakit {nick uhost hand chan text} {
global botnick kanal
if {![string match -nocase "$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 https://www.haberler.com/$semt/namaz-vakitleri/]
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: İmsak:4 $imsak1 Güneş:4 $gunes1 Öğle:4 $ogle1 İkindi:4 $ikindi1 Akşam:4 $aksam1 Yatsı:4 $yatsi1"
putquick "privmsg $kanal :İftara Kalan Süre: ($remain)"
putquick "privmsg $kanal :-"
putquick "privmsg $kanal :Ramazan imsakiyesi bilgilendirme sonu."
}
proc hadis {d s g a y} {
set number[list 2 5]
if { [set b [expr [rand 160]]] != 0 } {
set connect [::http::geturl https://www.16000hadisiserif.com/index.php?c=[lindex $number [expr [rand [llength $number]]]]&ss=$b]
set files [string map[list \n " "] [::http::data $connect]]
set hadisal [string trim [harfdecode [string range $files [expr [string first "<div class=\"post-text\" id=\"icerikk\">" $files]+36] [expr [string last "<!-- End Text -->" $files]-18]]]]
putquick "privmsg $::kanal :++++++++++++++++++++++++"
hadisver privmsg $::kanal "\0030,4 Hadisi Şerif \003 \00314 [string map {"\{" "" "\}" ""} [lrange $hadisal 2 end]] \003"
putquick "privmsg $::kanal :++++++++++++++++++++++++"
} else {
hadis $d $s $g $a $y
}
}
set sureler {
"\002 KURAN-I KERİM MEALİ \002"
"\003"
"\0034 1-\003Fatiha |\0034 2-\003Bakara |\0034 3-\003Al-i İmran |\0034 4-\003Nisa |\0034 5-\003Maide |\0034 6-\003Enam |\0034 7-\003Araf |\0034 8-\003Enfal |\0034 9-\003Tevbe |\0034 10-\003Yunus"
"\003"
"\0034 11-\003Hud |\0034 12-\003Yusuf |\0034 13-\003Rad |\0034 14-\003İbrahim |\0034 15-\003Hicr |\0034 16-\003Nahl |\0034 17-\003İsra |\0034 18-\003Kehf |\0034 19-\003Meryem |\0034 20-\003Taha"
"\003"
"\0034 21-\003Enbiya |\0034 22-\003\003Hac |\0034 23-\003Muminun |\0034 24-\003Nur |\0034 25-\003Furkan |\0034 26-\003Suara |\0034 27-\003Neml |\0034 28-\003Kasas |\0034 29-\003Ankebut |\0034 30-\003Rum"
"\003"
"\0034 31-\003Lokman |\0034 32-\003\003Secde |\0034 33-\003Ahzab |\0034 34-\003Sebe |\0034 35-\003Fatir |\0034 36-\003Yasin |\0034 37-\003Saffat |\0034 38-\003Sad |\0034 39-\003Zümer |\0034 40-\003Mümin"
"\003"
"\0034 41-\003Fusilet |\0034 42-\003\003Şura |\0034 43-\003Zuhruf |\0034 44-\003Duhan |\0034 45-\003Casiye |\0034 46-\003Ahkaf |\0034 47-\003Muhammed |\0034 48-\003Fetih |\0034 49-\003Hucurat |\0034 50-\003Kaf"
"\003"
"\0034 51-\003Zariyat |\0034 52-\003\003Tur |\0034 53-\003Necm |\0034 54-\003Kamer |\0034 55-\003Rahman |\0034 56-\003Vakia |\0034 57-\003Hadid |\0034 58-\003Mucadele |\0034 59-\003Hasr |\0034 60-\003Mumtehine"
"\003"
"\0034 61-\003Saff |\0034 62-\003\003Cuma |\0034 63-\003Munafikun |\0034 64-\003Tegabun |\0034 65-\003Talak |\0034 66-\003Tahrim |\0034 67-\003Mülk |\0034 68-\003Kalem |\0034 69-\003Hakka |\0034 70-\003Mearic"
"\003"
"\0034 71-\003Nuh |\0034 72-\003\003Cin |\0034 73-\003Müzzemmil |\0034 74-\003Muddessir |\0034 75-\003Kıyame |\0034 76-\003İnsan |\0034 77-\003Murselat |\0034 78-\003Nebe |\0034 79-\003Naziat |\0034 80-\003Abese"
"\003"
"\0034 81-\003Tekvir |\0034 82-\003\003İnfitar |\0034 83-\003Mütaffirin |\0034 84-\003İnşikak |\0034 85-\003Büruc |\0034 86-\003Tarık |\0034 87-\003A'la |\0034 88-\003Gasiye |\0034 89-\003Fecr |\0034 90-\003Beled"
"\003"
"\0034 91-\003Şems |\0034 92-\003\003Lehl |\0034 93-\003Duha |\0034 94-\003İnşirah |\0034 95-\003Tin |\0034 96-\003Alak |\0034 97-\003Kadr |\0034 98-\003Beyyine |\0034 99-\003Zilzal |\0034 100-\003Adiyat"
"\003"
"\0034 101-\003Karia |\0034 102-\003\003Tekasur |\0034 103-\003Asr |\0034 104-\003Hümeze |\0034 105-\003Fil |\0034 106-\003Kureyş |\0034 107-\003Maun |\0034 108-\003Kevser |\0034 109-\003Kafirun |\0034 110-\003Nasr"
"\003"
"\0034 111-\003Tebbet |\0034 112-\003\003İhlas |\0034 113-\003Felak |\0034 114-\003Nas"
"\003"
}
proc meal {n u h a} {
foreach sureliste $::sureler {
putquick "privmsg $n :$sureliste"
}
}
proc ayet {nick host hand text} {
if {$text < 115} {
set suresite [::http::geturl https://www.kurandan.com/kk/1fatiha.htm -timeout 5000]
set suredata [::http::data $suresite]
::http::cleanup $suresite
set sureayir [string range $suredata [expr [string first "<a href=\"#\">Sure'ler 1 - 10</a>" $suredata]] [expr [string last "<a href=\"#\">Konular ve Ayetler</a>" $suredata]]]
while {[regexp -- {<li><a href="(.*?)">.*? (.*?)</a></li>(.*)$} $sureayir - sayi sureismi sureayir]} {
if {[string match -nocase "*$text*" $sayi] } {
set suresite [::http::geturl https://www.kurandan.com/kk/$sayi -timeout 5000]
set suredata [string map -nocase {"scope=\"col\"><h4 align=\"center\">" "\n"} [::http::data $suresite]]
::http::cleanup $suresite
set sureara [string range $suredata [expr [string first "Bismillâhirrahmânirrahîm </h4>" $suredata]] [expr [string last "<td><div align=\"center\" class=\"style76\">" $suredata]]]
putquick "privmsg $nick :\002\0034$sureismi SURESİ\002\003"
set surex 0
foreach surever [split [harfdecode $sureara] \n] {
if {$surex == 0} {
putquick "privmsg $nick :\002$surever\002"
} else {
putquick "privmsg $nick :[string trimright [string trim $surever] "<"]"
}
incr surex
}
break
}
}
}
}
proc harfdecode {harfler} {
regsub -all "<p>" $harfler "" harfler
regsub -all "<br />" $harfler "" harfler
regsub -all "</p>" $harfler "" harfler
regsub -all "</div>" $harfler "" harfler
regsub -all "</div>" $harfler "" harfler
regsub -all " " $harfler "" harfler
regsub -all "</em>" $harfler "" harfler
regsub -all "<em>" $harfler "" harfler
regsub -all "<div align=\"center\" class=\"style76\">" $harfler "" harfler
regsub -all "<td>" $harfler "" harfler
regsub -all "<tr>" $harfler "" harfler
regsub -all "</table>" $harfler "" harfler
regsub -all "</td>" $harfler "" harfler
regsub -all "</tr>" $harfler "" harfler
regsub -all "<h4 align=\"left\" class=\"style78 style85\">" $harfler "" harfler
regsub -all "<p align=\"left\" class=\"style83\">" $harfler "" harfler
regsub -all "<td valign=\"top\" bgcolor=\"#FFFFFF\" scope=\"col\"><h4 align=\"center\">" $harfler "" harfler
regsub -all "<p align=\"center\">" $harfler "" harfler
regsub -all "<p align=\"left\">" $harfler "" harfler
regsub -all "<h4 align=\"left\" class=\"style78 style85\">" $harfler "" harfler
regsub -all "</h4>" $harfler "" harfler
return $harfler
}
proc hadisver {type target text {delims {" "•,.!?}}} {
set lineLen [expr {412 - [string length ":$::botname $type [join $target] :\r\n"]}]
if {[string length $text] <= $lineLen} {
putquick "$type $target :\00314[entityToChar $text] \003"
return 0
}
set _text [split [entityToChar $text] $delims]
set x 0
set i 0
while {$x < $lineLen} {
if {$i >= [llength $_text]} {
return 0
}
set wordlen [string length [lindex $_text $i]]
if {$x + $wordlen > $lineLen} {
break
}
incr x $wordlen
incr x
incr i
}
putquick "$type $target :\00314[string range [entityToChar $text] 0 [expr {$x - 1}]] \003"
hadisver $type $target [string trimleft [string range [entityToChar $text] $x end]] $delims
}
proc entityToChar {text {char utf-8}} {
if {![string match *&* $text]} {return $text}
set escapes {
\xa0 ¡ \xa1 ¢ \xa2 £ \xa3 ¤ \xa4
¥ \xa5 ¦ \xa6 § \xa7 ¨ \xa8 © \xa9
ª \xaa « \xab ¬ \xac * \xad ® \xae
¯ \xaf ° \xb0 ± \xb1 ² \xb2 ³ \xb3
´ \xb4 µ \xb5 ¶ \xb6 · \xb7 ¸ \xb8
¹ \xb9 º \xba » \xbb ¼ \xbc ½ \xbd
¾ \xbe ¿ \xbf À \xc0 Á \xc1 Â \xc2
à \xc3 Ä \xc4 Å \xc5 Æ \xc6 Ç \xc7
È \xc8 É \xc9 Ê \xca Ë \xcb Ì \xcc
Í \xcd Î \xce Ï \xcf Ð \xd0 Ñ \xd1
Ò \xd2 Ó \xd3 Ô \xd4 Õ \xd5 Ö \xd6
× \xd7 Ø \xd8 Ù \xd9 Ú \xda Û \xdb
Ü \xdc Ý \xdd Þ \xde ß \xdf à \xe0
á \xe1 â \xe2 ã \xe3 ä \xe4 å \xe5
æ \xe6 ç \xe7 è \xe8 é \xe9 ê \xea
ë \xeb ì \xec í \xed î \xee ï \xef
ð \xf0 ñ \xf1 ò \xf2 ó \xf3 ô \xf4
õ \xf5 ö \xf6 ÷ \xf7 ø \xf8 ù \xf9
ú \xfa û \xfb ü \xfc ý \xfd þ \xfe
ÿ \xff ƒ \u192 Α \u391 Β \u392 Γ \u393 Δ \u394
Ε \u395 Ζ \u396 Η \u397 Θ \u398 Ι \u399
Κ \u39A Λ \u39B Μ \u39C Ν \u39D Ξ \u39E
Ο \u39F Π \u3A0 Ρ \u3A1 Σ \u3A3 Τ \u3A4
Υ \u3A5 Φ \u3A6 Χ \u3A7 Ψ \u3A8 Ω \u3A9
α \u3B1 β \u3B2 γ \u3B3 δ \u3B4 ε \u3B5
ζ \u3B6 η \u3B7 θ \u3B8 ι \u3B9 κ \u3BA
λ \u3BB μ \u3BC ν \u3BD ξ \u3BE ο \u3BF
π \u3C0 ρ \u3C1 ς \u3C2 σ \u3C3 τ \u3C4
υ \u3C5 φ \u3C6 χ \u3C7 ψ \u3C8 ω \u3C9
ϑ \u3D1 ϒ \u3D2 ϖ \u3D6 • \u2022
… \u2026 ′ \u2032 ″ \u2033 ‾ \u203E
⁄ \u2044 ℘ \u2118 ℑ \u2111 ℜ \u211C
™ \u2122 ℵ \u2135 ← \u2190 ↑ \u2191
→ \u2192 ↓ \u2193 ↔ \u2194 ↵ \u21B5
⇐ \u21D0 ⇑ \u21D1 ⇒ \u21D2 ⇓ \u21D3 ⇔ \u21D4
∀ \u2200 ∂ \u2202 ∃ \u2203 ∅ \u2205
∇ \u2207 ∈ \u2208 ∉ \u2209 ∋ \u220B ∏ \u220F
∑ \u2211 − \u2212 ∗ \u2217 √ \u221A
∝ \u221D ∞ \u221E ∠ \u2220 ∧ \u2227 ∨ \u2228
∩ \u2229 ∪ \u222A ∫ \u222B ∴ \u2234 ∼ \u223C
≅ \u2245 ≈ \u2248 ≠ \u2260 ≡ \u2261 ≤ \u2264
≥ \u2265 ⊂ \u2282 ⊃ \u2283 ⊄ \u2284 ⊆ \u2286
⊇ \u2287 ⊕ \u2295 ⊗ \u2297 ⊥ \u22A5
⋅ \u22C5 ⌈ \u2308 ⌉ \u2309 ⌊ \u230A
⌋ \u230B ⟨ \u2329 ⟩ \u232A ◊ \u25CA
♠ \u2660 ♣ \u2663 ♥ \u2665 ♦ \u2666
" \x22 & \x26 < \x3C > \x3E O&Elig; \u152 œ \u153
Š \u160 š \u161 Ÿ \u178 ˆ \u2C6
˜ \u2DC   \u2002   \u2003   \u2009
‌ \u200C ‍ \u200D ‎ \u200E ‏ \u200F – \u2013
— \u2014 ‘ \u2018 ’ \u2019 ‚ \u201A
“ \u201C ” \u201D „ \u201E † \u2020
‡ \u2021 ‰ \u2030 ‹ \u2039 › \u203A
€ \u20AC ' \u0027 ‎ "" ‏ "" ? "" * ""
* ""
};
set text [string map[list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] [string map $escapes $text]]
regsub -all -- {&#([[:digit:]]{1,5});} $text {[format %c [string trimleft "\1" "0"]]} text
regsub -all -- {&#x([[:xdigit:]]{1,4});} $text {[format %c [scan "\1" %x]]} text
return [subst "$text"]
}
putlog "Namaz ve Iftar Vakitleri + Hadis-i Serif + Sure Mealleri ( rascoLn )" |
| |
IRCForumu.Net - Reklam Alanı |
|