namespace eval radu {   variable raduurl "http://radu.ovh:8080/crypto"   variable raduchan "#test"      package require http   package require json      proc feedget {url} {      set tok [::http::geturl $::radu::raduurl -timeout 1000]      upvar 0 $tok state      if {$state(status) ne "ok"} {         putlog "HTTP Error : $state(url) made $state(status) error"         return "error"      }      set datas [::http::data $tok]      ::http::cleanup $tok      return [json2dict $datas]   }      proc newsb {min hour day month dow} {      set datas [::radu::feedget $::radu::raduurl]      if {$datas eq "error" } {         return      }      set datas [::json::json2dict $datas]      foreach e $datas {         putserv "PRIVMSG $::radu::raduurl :[dict get $e titlu] ([dict get $e sursa])      }         }   bind cron - "*/15 * * * *" ::radu::newsb}

package require httppackage require jsonputlog "newsbot loaded"proc getinfo { url } {for { set i 1 } { $i <= 5 } { incr i } {        set rawpage [http::data [http::geturl "$url" -timeout 50000]]        if {[string length rawpage] > 0} { break }        }        if {[string length $rawpage] == 0} { error "newsapi returned ZERO no data :( or we couldnt connect properly" }set json [json::many-json2dict $rawpage]return $json}proc newsb {min hour day month dow} {    set chan "channel"    set url "YOURURL"    set news [getinfo $url]    for {set i 0} {$i < 1} {incr i} {        set title [encoding convertfrom [lindex $news 0 $i 1]]    set sursa [lindex $news 0 $i 3]    set link [lindex $news 0 $i 5]        if { $i == 0 } {            set output "Top stories : $title - $sursa (@$link)"        } else {           set output "$title - $sursa (@ $link)"    }        puthelp "PRIVMSG $chan :$output"}}bind cron -"*/15 * * * *" newsb