Code:

package require http #  For storing old data:set tempData ""#  Update time (in minutes):set updTime 1#  Set autodisplay channel(s) [separated by spaces]:set notChans "#lamest #laamah"#  Killing existing timer (needed if rehashing or restarting):if {[timerexists updData]!=""} {    killtimer $updTimer}#  Updating data...proc updData {} {global updTimer updTime tempDataset newsfile [::http::geturl http://xxx.xxxx.xxx/xxx.txt] set data [::http::data $newsfile] if {$data!=$tempData} {  # data is new, put this data to chans:notifyChans $dataset tempData $dataputlog "Updating... New data found!"} else {putlog "Updating... New data not found!"}set updTimer [timer $updTime updData]}#  Chan notices:proc notifyChans {data} {global notChansforeach _chan $notChans {if {[botonchan $_chan]} {putquick "NOTICE $_chan :your text here..."putquick "NOTICE $_chan :your text here..."  foreach z [split $data \n] {   putquick "NOTICE $_chan :$z"   } } else {putlog "I'm not on $_chan"}}} # Also you can bind command:bind pub -|- !test performTestproc performTest {nick host hand chan text} {global tempDataif {$tempData!=""} {putquick "NOTICE $chan :last updated data..."foreach z [split $tempData \n] { putquick "NOTICE $chan :$z" } }}# Autoupdating data on start, rehash or restart:set updTimer [timer $updTime updData]

Code:

package require httpproc check_news {nick uhost hand chan text} {set dataoggi [clock format [clock seconds] -format "%d/%m/%y"]putquick "NOTICE $chan :News - Update date $tdate$tdate"putquick "NOTICE $chan :."set newsfile [::http::geturl http://xxx.xxxx.xxx/xxx.txt]set data [::http::data $newsfile]foreach z [split $data \n] {putquick "NOTICE $chan :$z"  }}