TCL animradio.tcl

[blaster911]

Pour installer tcl8.5 il faut installer le paquetage tcl8.5 et tcl8.5-dev, pour ce qui est des scripts TCL shoutcast, ils ne sont pas compatibles avec radionomy, ils utilisent Icecast avec d'autres modules... donc il faut utiliser le xml pour le titrage.

Sinon, je me rapelle avoir vu un code de CrazyCat pour radionomy

tclcopier

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"
}

Il faut remplacer les "-RADIOUID-" dans le lien de la variable "url" par l'uid de la radio fourni sur le site radionomy.