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

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

Açılan Kod İsteği Üzerine
Yazdığım Koddur.

(Hiç Öngöremeyeceğim Kadar
Rağbet Gördü Her Nedense!...
Hiç Özenmeden,Öylesine İşini
Görsün Diye Yazdığım Bir Mini
Scriptti Oysa...)

Belki Kullanmak İsteyen Olabilir
Burada Diye ,Paylaşayım.

Sorgular Hemen Her Dilden Yapılabilir.
(Google Translate Kaç Dilden Çeviri
Yapabiliyorsa; Sınırı Odur!)

Bilgi Aldığı Sitenin Dil Seçeneği Yok...
Merkezi İngiltere Bu Sebeple Sorgunuza
Cevap İngilizce Dönecektir...

Örnek:

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

Kod:

Kod:

package require http 

 package require tls 1.6.4 
 

 bind pub - .t worldntime 
 

 proc worldntime {nick uhost hand chan text} { 

    if {![channel get $chan wtime]} { return 0 } 

    if {![llength $text]} { puthelp "privmsg $chan :Usage: $::lastbind <location>"; return 0 } 

    set TxT [YouGotTheSource https://translate.googleapis.com/translate_a/single?[http::formatQuery client gtx sl auto tl en dt t q $text]] 

    if {[regexp -- {\"([^\"]+)\"} $TxT - transout]} { set query $transout } { set query $text } 

    set data [YouGotTheSource http://localtimes.mobi/search/?[http::formatQuery s $query x 0 y 0]] 

    if {[regexp -- {Home</a>(.+?)</span>.+?<div class="timeinfo">(.+?)</div>.+?<div class="tz_container">(.+?)</li>} $data - loc t1 t2]} { 

       puthelp "privmsg $chan :\00304[cleanup $loc]\003: [cleanup $t1]" 

       puthelp "privmsg $chan :[cleanup $t2]" 

    } else { puthelp "privmsg $chan :No any information found for \"$text\". Please be more specific!"; return } 

    return 0 

 } 
 

 proc cleanup str { 

    regsub -all -- {(?:<label>|</label>)} $str \002 str 

    regsub -all -- "<.+?>" $str " " str 

    regsub -all -- {&raquo;} $str \003\u00bb\00304 str 

    regsub -all -- {&nbsp;} $str { } str 

    regsub -all -- {\s+} $str { } str 

    return $str 

 } 
 

 proc YouGotTheSource URL { 

    if {[catch {set token [http::geturl $URL -timeout 9000]} error]} { 

       set err "Connection failor! [string map {\n " "} $error]" 

    } elseif {[http::status $token] ne "ok" || [http::ncode $token] != "200"} { 

       set err "[http::status $token] - [http::code $token]" 

       ::http::cleanup $token 

    } else { 

       set data [http::data $token] 

       ::http::cleanup $token 

    } 

    if {[info exists data] && [string length $data]} { 

       return $data 

    } 

    if {[info exists err] && [string length $err]} { 

       foreach _ [channels] { if {[channel get $_ wtime]} { puthelp "privmsg $_ :$err" }} 

    } 

 } 
 

 ::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1] 
 

  setudef flag wtime

TclTLS Paketine Sahip Olmalısınız!
Yükledikten Sonra Aktif Etmek İçin:
.chanset #Kanal +wtime