Code:

bind pub - haloo lolleroproc lollero {nick host handle chan text} {package require tdompackage require httpset url "http://www.ampparit.com/xml.php?cat=13"set page [::http::data [::http::geturl $url]]set doc [dom parse $page]set root [$doc documentElement]set node [$root selectNodes {//item/title}]set node2 [$root selectNodes {//channel/title}]set text [[[lindex $node 0] childNodes] nodeValue]set text2 [[[lindex $node2 0] childNodes] nodeValue]putserv "privmsg #kustinihkukanava :[string trim $text2] | [string trim $text]"}