Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 80" data-attributes="member: 1">[CODE]# Google news v0.3 by nrt (01Dec2015)# Updated GoogleNews Country links and added some more lines for redirected link support (04Jan2018) karakedipackage require tdompackage require httppackage require htmlparsepackage require textutil::splitpackage require tls 1.6.4package present Tcl 8.6set ::oldnews [list ]set googlelink {https://news.google.com/news/rss/headlines/section/topic/NATION}# Bir Satırdaki Maksimum Karakter Sayısıset newsmax 412# Linkler TinyUrl Olarak Kısaltılsın Mı?set tinyurl 1# 1 = US_en (U.S.A), 2 = TR (Turkey) , 3 = FR (France), 4 = DE (Germany), 5 = UK_en (U.K) , 6 = RU (Russia)# 7 = IT (Italy) , 8 = NL (Netherlands) , 9 = AU_en (Australia) , 10 = PT (Portugal) , 11 = AR (Arabian World) , 12 = AT_de (Austria)# 13 = BE_fr (Belgium) , 14 = BR_pt (Brazil) , 15 = BG (Bulgaria) , 16 = CA_en (Canada) , 17 = NZ_en (New Zealand) , 18 = PL (Poland)# 19 = RO (Romania) , 20 = CS (Czech Republic) , 21 = NO (Norway) , 22 = CH_fr (Switzerland) , 23 = SV (Sweden) , 24 = SR (Serbia)# 25 = CN_zh (China) , 26 = JA (Japan) , 27 = GR (Greece) , 28 = LT (Lithuania) , 29 = IN_en (India) , 30 = HU (Hungary)# 31 = AR (Argentina) , 32 = ID (Indonesia) , 33 = MY (Malaysia) , 34 = BN (Bangladesh) , 35 = MX (Mexico) , 36 = PK_en (Pakistan)# Haber Alınacak Dil/Ülke Seçimiset newslang 2# Şu Kadar Dakikadan Eski Olan Haber Başlıkları Tekrar Postalanmayacak.set headlinedelay 40# .topnews Komutuyla Gösterilecek Haber Sayısı?set TopNewsPosts 4# .news on &lt;- #Kanalıızda Aktif Eder / .news off &lt;- Kapatır.setudef flag googlenewsbind pub mnf|oa &quot;.news&quot; news_controlbind evnt - init-server news_refreshbind pub mnf|oa &quot;.topnews&quot; Google_TopNewsif {[package vcompare [package present tls] 1.7] &gt; 0} {&nbsp; &nbsp; ::http::register https 443 [list ::tls::socket -autoservername 1]} else {&nbsp; &nbsp; ::http::register https 443 [list ::tls::socket -request 0 -require 1 -ssl2 0 -ssl3 0 -tls1 1]}proc Google_TopNews {nick uhost hand chan arg} {&nbsp; &nbsp; if {![channel get $chan googlenews]} { return 0 }&nbsp; &nbsp; set doc [dom parse [getit [langSel]]]&nbsp; &nbsp; set root [$doc documentElement]&nbsp; &nbsp; set i 0&nbsp; &nbsp; foreach id [$root selectNodes &quot;/rss/channel/item&quot;] {&nbsp; &nbsp; &nbsp; &nbsp; set desc [[$id selectNodes &quot;description&quot;] text]&nbsp; &nbsp; &nbsp; &nbsp; set Date [[$id selectNodes &quot;pubDate&quot;] text]&nbsp; &nbsp; &nbsp; &nbsp; set newsurl [[$id selectNodes &quot;link&quot;] text]&nbsp; &nbsp; &nbsp; &nbsp; set newstime [lsort -integer -decreasing -index end [clock scan $Date]]&nbsp; &nbsp; &nbsp; &nbsp; set news &quot;[dom_trim $desc] [news_tiny [getRealLink [dom_trim $newsurl]]]\&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ([duration [expr {[clock seconds] - $newstime}]] ago.)&quot;&nbsp; &nbsp; &nbsp; &nbsp; if {$i == $::TopNewsPosts} break&nbsp; &nbsp; &nbsp; &nbsp; news_print $chan &quot;[htmlparse::mapEscapes $news]&quot;&nbsp; &nbsp; &nbsp; &nbsp; incr i&nbsp; &nbsp; }&nbsp; &nbsp; $doc delete}proc langSel {} {&nbsp; &nbsp; switch -exact -- $::newslang {&nbsp; &nbsp; &nbsp; &nbsp; 1 { set url {us&amp;hl=en&amp;gl=US} }&nbsp; &nbsp; &nbsp; &nbsp; 2 { set url {tr_tr&amp;hl=tr&amp;gl=TR} }&nbsp; &nbsp; &nbsp; &nbsp; 3 { set url {fr&amp;hl=fr&amp;gl=FR} }&nbsp; &nbsp; &nbsp; &nbsp; 4 { set url {de&amp;hl=de&amp;gl=DE} }&nbsp; &nbsp; &nbsp; &nbsp; 5 { set url {uk&amp;hl=en-GB&amp;gl=GB} }&nbsp; &nbsp; &nbsp; &nbsp; 6 { set url {ru_ru&amp;hl=ru&amp;gl=RU} }&nbsp; &nbsp; &nbsp; &nbsp; 7 { set url {it&amp;hl=it&amp;gl=IT} }&nbsp; &nbsp; &nbsp; &nbsp; 8 { set url {nl_nl&amp;hl=nl&amp;gl=NL} }&nbsp; &nbsp; &nbsp; &nbsp; 9 { set url {au&amp;hl=en-AU&amp;gl=AU} }&nbsp; &nbsp; &nbsp; &nbsp; 10 { set url {pt-PT_pt&amp;hl=pt-PT&amp;gl=PT} }&nbsp; &nbsp; &nbsp; &nbsp; 11 { set url {ar_me&amp;hl=ar&amp;gl=ME} }&nbsp; &nbsp; &nbsp; &nbsp; 12 { set url {de_at&amp;hl=de-AT&amp;gl=AT} }&nbsp; &nbsp; &nbsp; &nbsp; 13 { set url {fr_be&amp;hl=fr&amp;gl=BE} }&nbsp; &nbsp; &nbsp; &nbsp; 14 { set url {pt-BR_br&amp;hl=pt-BR&amp;gl=BR} }&nbsp; &nbsp; &nbsp; &nbsp; 15 { set url {bg_bg&amp;hl=bg&amp;gl=BG} }&nbsp; &nbsp; &nbsp; &nbsp; 16 { set url {ca&amp;hl=en-CA&amp;gl=CA} }&nbsp; &nbsp; &nbsp; &nbsp; 17 { set url {nz&amp;hl=en-NZ&amp;gl=NZ} }&nbsp; &nbsp; &nbsp; &nbsp; 18 { set url {pl_pl&amp;hl=pl&amp;gl=PL} }&nbsp; &nbsp; &nbsp; &nbsp; 19 { set url {ro_ro&amp;hl=ro&amp;gl=RO} }&nbsp; &nbsp; &nbsp; &nbsp; 20 { set url {cs_cz&amp;hl=cs&amp;gl=CZ} }&nbsp; &nbsp; &nbsp; &nbsp; 21 { set url {no_no&amp;hl=no&amp;gl=NO} }&nbsp; &nbsp; &nbsp; &nbsp; 22 { set url {fr_ch&amp;hl=fr-CH&amp;gl=CH} }&nbsp; &nbsp; &nbsp; &nbsp; 23 { set url {sv_se&amp;hl=sv&amp;gl=SE} }&nbsp; &nbsp; &nbsp; &nbsp; 24 { set url {sr_rs&amp;hl=sr&amp;gl=RS} }&nbsp; &nbsp; &nbsp; &nbsp; 25 { set url {cn&amp;hl=zh-CN&amp;gl=CN} }&nbsp; &nbsp; &nbsp; &nbsp; 26 { set url {jp&amp;hl=ja&amp;gl=JP} }&nbsp; &nbsp; &nbsp; &nbsp; 27 { set url {el_gr&amp;hl=el&amp;gl=GR} }&nbsp; &nbsp; &nbsp; &nbsp; 28 { set url {lt_lt&amp;hl=lt&amp;gl=LT} }&nbsp; &nbsp; &nbsp; &nbsp; 29 { set url {in&amp;hl=en-IN&amp;gl=IN} }&nbsp; &nbsp; &nbsp; &nbsp; 30 { set url {hu_hu&amp;hl=hu&amp;gl=HU} }&nbsp; &nbsp; &nbsp; &nbsp; 31 { set url {es_ar&amp;hl=es-419&amp;gl=AR} }&nbsp; &nbsp; &nbsp; &nbsp; 32 { set url {id_id&amp;hl=id&amp;gl=ID} }&nbsp; &nbsp; &nbsp; &nbsp; 33 { set url {en_my&amp;hl=en-MY&amp;gl=MY} }&nbsp; &nbsp; &nbsp; &nbsp; 34 { set url {bn_bd&amp;hl=bn&amp;gl=BD} }&nbsp; &nbsp; &nbsp; &nbsp; 35 { set url {es_mx&amp;hl=es-419&amp;gl=MX} }&nbsp; &nbsp; &nbsp; &nbsp; 36 { set url {en_pk&amp;hl=en&amp;gl=PK} }&nbsp; &nbsp; &nbsp; &nbsp; default { set url {us&amp;hl=en&amp;gl=US} }&nbsp; &nbsp; }&nbsp; &nbsp; return ${::googlelink}?ned=$url}proc news_refresh type {&nbsp; &nbsp; foreach chan [channels] newsbind [binds time] {&nbsp; &nbsp; &nbsp; &nbsp; if {([lsearch -exact [channel info $chan] &quot;+googlenews&quot;] != &quot;-1&quot;)\&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &amp;&amp; ![string match &quot;*Google:News*&quot; $newsbind]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bind time - &quot;*&quot; Google:News&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return 1&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; }}proc news_control {nick uhost hand chan text} {&nbsp; &nbsp; switch -nocase -- [lindex [split $text] 0] {&nbsp; &nbsp; &nbsp; &nbsp; &quot;on&quot; { if {[channel get $chan googlenews]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :News already running @ $chan&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; } {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bind time - &quot;*&quot; Google:News&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channel set $chan +googlenews&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :News now enabled @ $chan&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &quot;off&quot; { if {![channel get $chan googlenews]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :News already disabled @ $chan&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; } {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; unbind time - &quot;*&quot; Google:News&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channel set $chan -googlenews&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :News now stopped @ $chan&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; default { puthelp &quot;privmsg $chan :Usage: $::lastbind &lt;on/off&gt;&quot; }&nbsp; &nbsp; }&nbsp; &nbsp; return 0}proc getit url {&nbsp; &nbsp; if {[catch {set token [http::geturl $url -binary 1 -timeout 15000]} error]} {&nbsp; &nbsp; &nbsp; &nbsp; putcmdlog &quot;[string map [list \n &quot; &quot;] $error]&quot;&nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; } elseif {[string match *[http::ncode $token]* &quot;307|303|302|301&quot;]} {&nbsp; &nbsp; &nbsp; &nbsp; upvar #0 $token state&nbsp; &nbsp; &nbsp; &nbsp; if {[dict exists $state(meta) Location]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set newurl [dict get $state(meta) Location]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ::http::cleanup $token&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {[catch {set newtok [http::geturl $newurl -binary 1 -timeout 15000]} err]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; putcmdlog &quot;[string map [list \n &quot; &quot;] $err]&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; } elseif {[http::status $newtok] eq &quot;ok&quot; &amp;&amp; [http::ncode $newtok] == &quot;200&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set data [http::data $newtok]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ::http::cleanup $newtok&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; putcmdlog &quot;[http::status $newtok] - [http::code $newtok]&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ::http::cleanup $newtok&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; ::http::cleanup $token&nbsp; &nbsp; } elseif {[http::status $token] eq &quot;ok&quot; &amp;&amp; [http::ncode $token] == &quot;200&quot;} {&nbsp; &nbsp; &nbsp; &nbsp; set data [http::data $token]&nbsp; &nbsp; &nbsp; &nbsp; ::http::cleanup $token&nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; putcmdlog &quot;[http::status $token] - [http::code $token]&quot;&nbsp; &nbsp; &nbsp; &nbsp; ::http::cleanup $token&nbsp; &nbsp; }&nbsp; &nbsp; if {[info exists data]} {&nbsp; &nbsp; &nbsp; &nbsp; return [encoding convertfrom utf-8 $data]&nbsp; &nbsp; }}proc newsdom {} {&nbsp; &nbsp; set document [dom parse [getit [langSel]]]&nbsp; &nbsp; set root [$document documentElement]&nbsp; &nbsp; foreach id [$root selectNodes &quot;/rss/channel/item&quot;] {&nbsp; &nbsp; &nbsp; &nbsp; set description [[$id selectNodes &quot;description&quot;] text]&nbsp; &nbsp; &nbsp; &nbsp; set pubDate [[$id selectNodes &quot;pubDate&quot;] text]&nbsp; &nbsp; &nbsp; &nbsp; set newsurl [[$id selectNodes &quot;link&quot;] text]&nbsp; &nbsp; &nbsp; &nbsp; lappend news &quot;[dom_trim $description] | [dom_trim $newsurl] | [clock scan [dom_trim $pubDate]]&quot;&nbsp; &nbsp; }&nbsp; &nbsp; $document delete&nbsp; &nbsp; set listnews [lindex [lsort -integer -decreasing -index end $news] 0]&nbsp; &nbsp; return [join [htmlparse::mapEscapes $listnews]]}proc news_print {where what} {&nbsp; &nbsp; regexp {^(.*?)(http(?:s|)://[^\s]+)(.*?)$} $what - res links _&nbsp; &nbsp; set output [textutil::split::splitn $what $::newsmax]&nbsp; &nbsp; if {[string match *${links}* $output]} {&nbsp; &nbsp; &nbsp; &nbsp; lmap newsout $output { puthelp &quot;privmsg $where :$newsout&quot; }&nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; lmap newsout [textutil::split::splitn $what [string length $res]] { puthelp &quot;privmsg $where :$newsout&quot; }&nbsp; &nbsp; }}proc dom_trim str {&nbsp; &nbsp; regsub -all -nocase {(?:&lt;strong&gt;|&lt;/strong&gt;|&lt;b&gt;|&lt;/b&gt;)} $str \002 str&nbsp; &nbsp; regsub -all -- {&lt;font color=&quot;#6f6f6f&quot;&gt;(.*?)&lt;/font&gt;} $str &quot;(\00304\\1\003)&quot; str&nbsp; &nbsp; set str [string map [list &amp;lt\; \u003c &amp;gt\; \u003e &amp;nbsp\; \u0020 \&quot; \u0027] $str]&nbsp; &nbsp; regsub -all -- &quot;&lt;.+?&gt;&quot; $str { } str&nbsp; &nbsp; regsub -all -- {\s+} $str \u0020 str&nbsp; &nbsp; set str [string map {&quot;View Full coverage on Google News&quot; &quot;&quot;} $str]&nbsp; &nbsp; return [string trim $str]}proc news_tiny link {&nbsp; &nbsp; set tinyurl [getit http://tinyurl.com/api-create.php?[http::formatQuery url $link]]&nbsp; &nbsp; if {[info exists tinyurl] &amp;&amp; [string length $tinyurl]} {&nbsp; &nbsp; &nbsp; &nbsp; return $tinyurl&nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; return $link&nbsp; &nbsp; }}proc getRealLink RealURL {&nbsp; &nbsp; set TokLink [http::geturl [string trim $RealURL]]&nbsp; &nbsp; upvar #0 $TokLink state&nbsp; &nbsp; set RealLink [dict get $state(meta) Location]&nbsp; &nbsp; ::http::cleanup $TokLink&nbsp; &nbsp; if {[info exists RealLink] &amp;&amp; [string length $RealLink]} {&nbsp; &nbsp; &nbsp; &nbsp; return $RealLink&nbsp; &nbsp; } {&nbsp; &nbsp; &nbsp; &nbsp; return $RealURL&nbsp; &nbsp; }}proc Google:News args {&nbsp; &nbsp; foreach chan [channels] {&nbsp; &nbsp; &nbsp; &nbsp; if {[channel get $chan googlenews]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set news [newsdom]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set newsdesc [lindex [split $news |] 0]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set newslink [getRealLink [lindex [split $news |] end-1]]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set newstime [string trim [lindex [split $news |] end]]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; #scan $newsdesc {%[^(]} headline&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {(![string match *$newslink* $::oldnews] &amp;&amp; [expr {([clock seconds] - $newstime) &lt; ($::headlinedelay * 60)}]) || ![llength $::oldnews]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {$::tinyurl &lt; &quot;1&quot; || ![string length $::tinyurl]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; news_print $chan &quot;$newsdesc : $newslink ([duration [expr {[clock seconds] - $newstime}]] ago.)&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; news_print $chan &quot;$newsdesc : [news_tiny [string trim $newslink]] ([duration [expr {[clock seconds] - $newstime}]] ago.)&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set ::oldnews &quot;$newsdesc $newslink&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; }&nbsp; &nbsp; return 0}putlog &quot;ok...&quot;[/CODE]</blockquote>

[QUOTE="Che, post: 80, member: 1"] [CODE]# Google news v0.3 by nrt (01Dec2015) # Updated GoogleNews Country links and added some more lines for redirected link support (04Jan2018) karakedi package require tdom package require http package require htmlparse package require textutil::split package require tls 1.6.4 package present Tcl 8.6 set ::oldnews [list ] set googlelink {https://news.google.com/news/rss/headlines/section/topic/NATION} # Bir Satırdaki Maksimum Karakter Sayısı set newsmax 412 # Linkler TinyUrl Olarak Kısaltılsın Mı? set tinyurl 1 # 1 = US_en (U.S.A), 2 = TR (Turkey) , 3 = FR (France), 4 = DE (Germany), 5 = UK_en (U.K) , 6 = RU (Russia) # 7 = IT (Italy) , 8 = NL (Netherlands) , 9 = AU_en (Australia) , 10 = PT (Portugal) , 11 = AR (Arabian World) , 12 = AT_de (Austria) # 13 = BE_fr (Belgium) , 14 = BR_pt (Brazil) , 15 = BG (Bulgaria) , 16 = CA_en (Canada) , 17 = NZ_en (New Zealand) , 18 = PL (Poland) # 19 = RO (Romania) , 20 = CS (Czech Republic) , 21 = NO (Norway) , 22 = CH_fr (Switzerland) , 23 = SV (Sweden) , 24 = SR (Serbia) # 25 = CN_zh (China) , 26 = JA (Japan) , 27 = GR (Greece) , 28 = LT (Lithuania) , 29 = IN_en (India) , 30 = HU (Hungary) # 31 = AR (Argentina) , 32 = ID (Indonesia) , 33 = MY (Malaysia) , 34 = BN (Bangladesh) , 35 = MX (Mexico) , 36 = PK_en (Pakistan) # Haber Alınacak Dil/Ülke Seçimi set newslang 2 # Şu Kadar Dakikadan Eski Olan Haber Başlıkları Tekrar Postalanmayacak. set headlinedelay 40 # .topnews Komutuyla Gösterilecek Haber Sayısı? set TopNewsPosts 4 # .news on <- #Kanalıızda Aktif Eder / .news off <- Kapatır. setudef flag googlenews bind pub mnf|oa ".news" news_control bind evnt - init-server news_refresh bind pub mnf|oa ".topnews" Google_TopNews if {[package vcompare [package present tls] 1.7] > 0} { ::http::register https 443 [list ::tls::socket -autoservername 1] } else { ::http::register https 443 [list ::tls::socket -request 0 -require 1 -ssl2 0 -ssl3 0 -tls1 1] } proc Google_TopNews {nick uhost hand chan arg} { if {![channel get $chan googlenews]} { return 0 } set doc [dom parse [getit [langSel]]] set root [$doc documentElement] set i 0 foreach id [$root selectNodes "/rss/channel/item"] { set desc [[$id selectNodes "description"] text] set Date [[$id selectNodes "pubDate"] text] set newsurl [[$id selectNodes "link"] text] set newstime [lsort -integer -decreasing -index end [clock scan $Date]] set news "[dom_trim $desc] [news_tiny [getRealLink [dom_trim $newsurl]]]\ ([duration [expr {[clock seconds] - $newstime}]] ago.)" if {$i == $::TopNewsPosts} break news_print $chan "[htmlparse::mapEscapes $news]" incr i } $doc delete } proc langSel {} { switch -exact -- $::newslang { 1 { set url {us&hl=en&gl=US} } 2 { set url {tr_tr&hl=tr&gl=TR} } 3 { set url {fr&hl=fr&gl=FR} } 4 { set url {de&hl=de&gl=DE} } 5 { set url {uk&hl=en-GB&gl=GB} } 6 { set url {ru_ru&hl=ru&gl=RU} } 7 { set url {it&hl=it&gl=IT} } 8 { set url {nl_nl&hl=nl&gl=NL} } 9 { set url {au&hl=en-AU&gl=AU} } 10 { set url {pt-PT_pt&hl=pt-PT&gl=PT} } 11 { set url {ar_me&hl=ar&gl=ME} } 12 { set url {de_at&hl=de-AT&gl=AT} } 13 { set url {fr_be&hl=fr&gl=BE} } 14 { set url {pt-BR_br&hl=pt-BR&gl=BR} } 15 { set url {bg_bg&hl=bg&gl=BG} } 16 { set url {ca&hl=en-CA&gl=CA} } 17 { set url {nz&hl=en-NZ&gl=NZ} } 18 { set url {pl_pl&hl=pl&gl=PL} } 19 { set url {ro_ro&hl=ro&gl=RO} } 20 { set url {cs_cz&hl=cs&gl=CZ} } 21 { set url {no_no&hl=no&gl=NO} } 22 { set url {fr_ch&hl=fr-CH&gl=CH} } 23 { set url {sv_se&hl=sv&gl=SE} } 24 { set url {sr_rs&hl=sr&gl=RS} } 25 { set url {cn&hl=zh-CN&gl=CN} } 26 { set url {jp&hl=ja&gl=JP} } 27 { set url {el_gr&hl=el&gl=GR} } 28 { set url {lt_lt&hl=lt&gl=LT} } 29 { set url {in&hl=en-IN&gl=IN} } 30 { set url {hu_hu&hl=hu&gl=HU} } 31 { set url {es_ar&hl=es-419&gl=AR} } 32 { set url {id_id&hl=id&gl=ID} } 33 { set url {en_my&hl=en-MY&gl=MY} } 34 { set url {bn_bd&hl=bn&gl=BD} } 35 { set url {es_mx&hl=es-419&gl=MX} } 36 { set url {en_pk&hl=en&gl=PK} } default { set url {us&hl=en&gl=US} } } return ${::googlelink}?ned=$url } proc news_refresh type { foreach chan [channels] newsbind [binds time] { if {([lsearch -exact [channel info $chan] "+googlenews"] != "-1")\ && ![string match "*Google:News*" $newsbind]} { bind time - "*" Google:News return 1 } } } proc news_control {nick uhost hand chan text} { switch -nocase -- [lindex [split $text] 0] { "on" { if {[channel get $chan googlenews]} { puthelp "privmsg $chan :News already running @ $chan" } { bind time - "*" Google:News channel set $chan +googlenews puthelp "privmsg $chan :News now enabled @ $chan" } } "off" { if {![channel get $chan googlenews]} { puthelp "privmsg $chan :News already disabled @ $chan" } { unbind time - "*" Google:News channel set $chan -googlenews puthelp "privmsg $chan :News now stopped @ $chan" } } default { puthelp "privmsg $chan :Usage: $::lastbind <on/off>" } } return 0 } proc getit url { if {[catch {set token [http::geturl $url -binary 1 -timeout 15000]} error]} { putcmdlog "[string map [list \n " "] $error]" return 0 } elseif {[string match *[http::ncode $token]* "307|303|302|301"]} { upvar #0 $token state if {[dict exists $state(meta) Location]} { set newurl [dict get $state(meta) Location] ::http::cleanup $token if {[catch {set newtok [http::geturl $newurl -binary 1 -timeout 15000]} err]} { putcmdlog "[string map [list \n " "] $err]" return 0 } elseif {[http::status $newtok] eq "ok" && [http::ncode $newtok] == "200"} { set data [http::data $newtok] ::http::cleanup $newtok } else { putcmdlog "[http::status $newtok] - [http::code $newtok]" ::http::cleanup $newtok } } ::http::cleanup $token } elseif {[http::status $token] eq "ok" && [http::ncode $token] == "200"} { set data [http::data $token] ::http::cleanup $token } else { putcmdlog "[http::status $token] - [http::code $token]" ::http::cleanup $token } if {[info exists data]} { return [encoding convertfrom utf-8 $data] } } proc newsdom {} { set document [dom parse [getit [langSel]]] set root [$document documentElement] foreach id [$root selectNodes "/rss/channel/item"] { set description [[$id selectNodes "description"] text] set pubDate [[$id selectNodes "pubDate"] text] set newsurl [[$id selectNodes "link"] text] lappend news "[dom_trim $description] | [dom_trim $newsurl] | [clock scan [dom_trim $pubDate]]" } $document delete set listnews [lindex [lsort -integer -decreasing -index end $news] 0] return [join [htmlparse::mapEscapes $listnews]] } proc news_print {where what} { regexp {^(.*?)(http(?:s|)://[^\s]+)(.*?)$} $what - res links _ set output [textutil::split::splitn $what $::newsmax] if {[string match *${links}* $output]} { lmap newsout $output { puthelp "privmsg $where :$newsout" } } else { lmap newsout [textutil::split::splitn $what [string length $res]] { puthelp "privmsg $where :$newsout" } } } proc dom_trim str { regsub -all -nocase {(?:|||)} $str \002 str regsub -all -- {(.*?)} $str "(\00304\\1\003)" str set str [string map [list &lt\; \u003c &gt\; \u003e &nbsp\; \u0020 \" \u0027] $str] regsub -all -- "<.+?>" $str { } str regsub -all -- {\s+} $str \u0020 str set str [string map {"View Full coverage on Google News" ""} $str] return [string trim $str] } proc news_tiny link { set tinyurl [getit http://tinyurl.com/api-create.php?[http::formatQuery url $link]] if {[info exists tinyurl] && [string length $tinyurl]} { return $tinyurl } else { return $link } } proc getRealLink RealURL { set TokLink [http::geturl [string trim $RealURL]] upvar #0 $TokLink state set RealLink [dict get $state(meta) Location] ::http::cleanup $TokLink if {[info exists RealLink] && [string length $RealLink]} { return $RealLink } { return $RealURL } } proc Google:News args { foreach chan [channels] { if {[channel get $chan googlenews]} { set news [newsdom] set newsdesc [lindex [split $news |] 0] set newslink [getRealLink [lindex [split $news |] end-1]] set newstime [string trim [lindex [split $news |] end]] #scan $newsdesc {%[^(]} headline if {(![string match *$newslink* $::oldnews] && [expr {([clock seconds] - $newstime) < ($::headlinedelay * 60)}]) || ![llength $::oldnews]} { if {$::tinyurl < "1" || ![string length $::tinyurl]} { news_print $chan "$newsdesc : $newslink ([duration [expr {[clock seconds] - $newstime}]] ago.)" } else { news_print $chan "$newsdesc : [news_tiny [string trim $newslink]] ([duration [expr {[clock seconds] - $newstime}]] ago.)" } set ::oldnews "$newsdesc $newslink" } } } return 0 } putlog "ok..."[/CODE] [/QUOTE]

Adı

İnsan doğrulaması