bind pub - "!titre" radio:titre
set url "http://api.radionomy.com/currentsong.cfm?radiouid=-RADIOUID-&apikey=-RADIOUID-&apikey=-RADIOUID-&type=xml"
 
package require http
proc radio:titre { nick uhost handle chan args } {
   set page [::http::geturl $::url -timeout 3000]
   set html [::http::data $page]
   regexp -all -- {<title>(.+)?</title>} $html null title
   regexp -all -- {<artists>(.+)?</artists>} $html null artist
   putserv "PRIVMSG $chan :En cours: \002$title\002 par \002$artist\002"
}