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