TCL animradio.tcl

[Raiding]

L'ip, Port, Url, salon

[djkenny]

t as quelle version d eggdrop et quelle version de tcl?

[Raiding]

tcl8.5 eggdrop1.6.18

[djkenny]

tcl8.5 avec un eggdrop 1.6.18?? impossible! eggdrop1.6.18 ne le prend pas en charge

[Raiding]

Pourtant moi sa fonctionne

[djkenny]

la preuve que non, ce tcl a été testé par plein de monde et il fonctionne parfaitement.
commences par mettre à jour ton eggdrop en 1.6.20 avec tcl8.5.3 minimum

[Raiding]

Quand je met tcl8.5.3 sa me met ça :

Code :

Reading package lists... Done
Building dependency tree
Reading state information... Done
E: Couldn't find package tcl8.5.3

[djkenny]

le .3 c est la subversion, a toi de contrôler si tu l'as bien. mais pour l installation il faut utiliser "8.5"

[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.

[Raiding]

Merci pour le code blaster91.