IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Hürriyet/Mahmure'den

Günlük Burç Yorumu Alır...

Kod:

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://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 -- {<p>(.+?)</p>} $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]

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]