Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 81" data-attributes="member: 1">[CODE]package require httppackage require tls::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1]set burclar {koç akrep kova balık yengeç terazi oğlak başak aslan yay ikizler boğa}bind pubm - &quot;% .*&quot; burc_pubmproc burc_pubm {nick uhost hand chan text} {&nbsp; &nbsp; set txt [stripcodes bcruag [string tolower $text]]&nbsp; &nbsp; set brc [string range [lindex [split $txt] 0] 1 end]&nbsp; &nbsp; if {$brc ni $::burclar} { return 0 }&nbsp; &nbsp; set burcu [string map {ç c ğ g ü u ö o ı i ş s} $brc]&nbsp; &nbsp; set brctok [http::geturl https://www.hurriyet.com.tr/mahmure/astroloji/${burcu}-burcu/]&nbsp; &nbsp; if {[http::status $brctok] eq &quot;ok&quot; &amp;&amp; [http::ncode $brctok] == &quot;200&quot;} {&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; set brcdt [http::data $brctok]&nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; putlog &quot;[lindex [info script] 0] Hata! Bağlantı başarısız oldu!&quot;&nbsp; &nbsp; }&nbsp; &nbsp; catch {::http::cleanup $brctok}&nbsp; &nbsp; if {[info exists brcdt] &amp;&amp; [string length $brcdt]} {&nbsp; &nbsp; &nbsp; &nbsp; regsub -all -- {(?:\n|\r|\t|\v|\f|\s+)} $brcdt { } brcdt&nbsp; &nbsp; &nbsp; &nbsp; if {[regexp -- {&lt;p&gt;(.+?)&lt;/p&gt;} $brcdt -&gt; yorum]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :[duzelt $yorum]&quot;&nbsp; &nbsp; &nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puthelp &quot;privmsg $chan :Günlük $brc yorumu alma başarısız oldu!&quot;&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; }&nbsp; &nbsp; return 0}proc duzelt str {&nbsp; &nbsp;&nbsp; string map {ğ \u011f Ğ \u011e ı \u0131 İ \u0130 ö \u00f6 Ö \u00d6 ü \u00fc\&nbsp; &nbsp;&nbsp; Ü \u00dc ş \u015f Ş \u015e ç \u00e7 Ç \u00c7} [join $str]}[/CODE]</blockquote>

[QUOTE="Che, post: 81, member: 1"] [CODE]package require http package require tls ::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1] set burclar {koç akrep kova balık yengeç terazi oğlak başak aslan yay ikizler boğa} bind pubm - "% .*" burc_pubm proc burc_pubm {nick uhost hand chan text} { set txt [stripcodes bcruag [string tolower $text]] set brc [string range [lindex [split $txt] 0] 1 end] if {$brc ni $::burclar} { return 0 } set burcu [string map {ç c ğ g ü u ö o ı i ş s} $brc] set brctok [http::geturl https://www.hurriyet.com.tr/mahmure/astroloji/${burcu}-burcu/] if {[http::status $brctok] eq "ok" && [http::ncode $brctok] == "200"} { set brcdt [http::data $brctok] } else { putlog "[lindex [info script] 0] Hata! Bağlantı başarısız oldu!" } catch {::http::cleanup $brctok} if {[info exists brcdt] && [string length $brcdt]} { regsub -all -- {(?:\n|\r|\t|\v|\f|\s+)} $brcdt { } brcdt if {[regexp -- {(.+?)} $brcdt -> yorum]} { puthelp "privmsg $chan :[duzelt $yorum]" } else { puthelp "privmsg $chan :Günlük $brc yorumu alma başarısız oldu!" } } return 0 } proc duzelt str { string map {ğ \u011f Ğ \u011e ı \u0131 İ \u0130 ö \u00f6 Ö \u00d6 ü \u00fc\ Ü \u00dc ş \u015f Ş \u015e ç \u00e7 Ç \u00c7} [join $str] }[/CODE] [/QUOTE]

Adı

İnsan doğrulaması