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]
}