tcl pour radionomy

[cecile155]

bonjour

j'ai vu que l'on pouvait faire un tcl pour les titres diffusés par radionomy mais j'ai essayer shoutcast.tcl sans succès

est ce que par hasard on pourrait m'aider a le configurer ?

ça fait un mois que je suis dessus et je n'y arrive toujours pas

je vous en remercie

bien cordialement

ps : j ai vu ce sujet mais pas le code entier http://www.ircz.fr/forum/viewtopic.php?id=1526
voilà j'ai cherché un peu partour mais je n'y suis pas arrivée

bien cordialement

cécile

[Mrvolks]

Bonjour cecile155

voici un tcl qui pourrais surment t'aider http://www.eggdrop.fr/board/downloads.ph...ew&did=281

[CrazyCat]

Tu parles de:

tclcopier

bind pub - "!titre" radio:titre
set url "http://api.radionomy.com/currentsong.cfm?radiouid=da858a58-ea9e-4c36-a22e-f5f028256fc1&apikey=da858a58-ea9e-4c36-a22e-f5f028256fc1&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[htmlentities_decode $title]\002 par \002[htmlentities_decode $artist]\002"
}
 
proc htmlentities_decode { text } {
    regsub -all "&lt;" $text "<" text
    regsub -all "&gt;" $text ">" text
    regsub -all "&amp;" $text "et" text
    regsub -all "&quot;" $text "" text
    regsub -all "&Aacute;" $text "Á" text
    regsub -all "&Acirc;" $text "Â" text
    regsub -all "&Agrave;" $text "À" text
    regsub -all "&Aring;" $text "Å" text
    regsub -all "&Atilde;" $text "Ã" text
    regsub -all "&Auml;" $text "Ä" text
    regsub -all "&Ccedil;" $text "Ç" text
    regsub -all "&Eacute;" $text "É" text
    regsub -all "&Ecirc;" $text "Ê" text
    regsub -all "&Egrave;" $text "È" text
    regsub -all "&Iacute;" $text "Í" text
    regsub -all "&Icirc;" $text "Î" text
    regsub -all "&Igrave;" $text "í" text
    regsub -all "&Iuml;" $text "Ï" text
    regsub -all "&Ntilde;" $text "Ñ" text
    regsub -all "&Oacute;" $text "Ó" text
    regsub -all "&Ocirc;" $text "Ô" text
    regsub -all "&Ograve;" $text "Ò" text
    regsub -all "&Oslash;" $text "Ø" text
    regsub -all "&Otilde;" $text "Õ" text
    regsub -all "&Ouml;" $text "Ö" text
    regsub -all "&Uacute;" $text "Ê" text
    regsub -all "&Ucirc;" $text "Û" text
    regsub -all "&Ugrave;" $text "Ù" text
    regsub -all "&Uuml;" $text "í" text
    regsub -all "&Yacute;" $text "Ý" text
    regsub -all "&aacute;" $text "á" text
    regsub -all "&aelig;" $text "ae" text
    regsub -all "&oelig;" $text "oe" text
    regsub -all "&agrave;" $text "à" text
    regsub -all -nocase "&#xe0;" $text "à" text
    regsub -all "&aring;" $text "å" text
    regsub -all "&atilde;" $text "ã" text
    regsub -all "&auml;" $text "ä" text
    regsub -all "&ccedil;" $text "ç" text
    regsub -all -nocase "&#xe7;" $text "ç" text
    regsub -all "&eacute;" $text "é" text
    regsub -all -nocase "&#xe9;" $text "é" text
    regsub -all "&euml;" $text "ë" text
    regsub -all "&iacute;" $text "í" text
    regsub -all "&egrave;" $text "è" text
    regsub -all -nocase "&#xe8;" $text "è" text
    regsub -all "&igrave;" $text "ì" text
    regsub -all "&iuml;" $text "ï" text
    regsub -all "&ntilde;" $text "ñ" text
    regsub -all "&oacute;" $text "ó" text
    regsub -all "&ocirc;" $text "ô" text
    regsub -all -nocase "&#xf4;" $text "ô" text
    regsub -all "&acirc;" $text "â" text
    regsub -all -nocase "&#xe2;" $text "â" text
    regsub -all "&ecirc;" $text "ê" text
    regsub -all -nocase "&#xea;" $text "ê" text
    regsub -all "&ograve;" $text "ò" text
    regsub -all "&icirc;" $text "î" text
    regsub -all "&otilde;" $text "õ" text
    regsub -all "&ouml;" $text "ö" text
    regsub -all "&uacute;" $text "ú" text
    regsub -all "&ucirc;" $text "û" text
    regsub -all -nocase "&#xfb;" $text "û" text
    regsub -all "&ugrave;" $text "ù" text
    regsub -all -nocase "&#xf9;" $text "ù" text
    regsub -all "&uuml;" $text "ü" text
    regsub -all "&yuml;" $text "ÿ" text
    regsub -all "&AElig;" $text "AE" text
    regsub -all "&OElig;" $text "OE" text
    regsub -all "&reg;" $text "®" text
    regsub -all -nocase "&#xae;" $text "®" text
    regsub -all "&copy;" $text "©" text
    regsub -all -nocase "&#xa9;" $text "©" text
    regsub -all "&trade;" $text "â„¢" text
    regsub -all "&plusmn;" $text "±" text
    regsub -all "&deg;" $text "°" text
    regsub -all "&sup1;" $text "¹" text
    regsub -all "&apos;" $text "¹" text
    regsub -all "&sup2;" $text "²" text
    regsub -all "&sup3;" $text "³" text
    regsub -all "&times;" $text "×" text
    regsub -all "&divide;" $text "÷" text
    regsub -all "&euro;" $text "euro" text
    regsub -all -nocase "&laquo;" $text "\"" text
    regsub -all -nocase "&raquo;" $text "\"" text
    return $text
}

Quel est le souci ?

[cecile155]

oui en fait je n'arrive pas à le configurer pour qu'il fonctionne sur mon salon

j'ai pas le tcl en entier

pouvez vous m'aider ?

merci
bien cordialement

cecile

[cecile155]

je précise à priori le shoutcast.tcl ne fonctionne pas c'est pour cela que j'aimerais l'autre code en entier

merci

bien cordialement

cécile

[CrazyCat]

Ce code est complet et fonctionnel, il faut juste modifier l'url qui est dedans pour que cela pointe sur le bon radionomy (radiouid et apikey)

[cecile155]

en fait je me suis mal exprimée je voulais un tcl complet pour ma radio celui la ne donne en fin de compte que le titre ?

[CrazyCat]

Ah ! Il faudrait pour celà connaitre les fonctionnalités (possibilités) de radionomy et ce que tu désires avoir comme commandes.

[cecile155]

re bonjour et merci pour votre rapidité

pour les possibilités je ne sais pas ce que vous entendez

mais ce que je désire

!radio : donne le nom de la radio et que la radio est en ligne
!titre titre en cours
!dedicasse pour une dédicasse
!dj en ce moment sur votre antenne dj

et j'aimerais également que cela diffuse sur le salon à intervalles régulier

voila

je vous remercie de prendre votre temps pour me répondre

bien cordialement
cécile

[CrazyCat]

!radio : donne le nom de la radio et que la radio est en ligne

Cela semble assez simple à faire.

!titre titre en cours

C'est ce que fait le bout de script donné

!dedicasse pour une dédicasse
!dj en ce moment sur votre antenne dj

Il faut voir si leur système permet cela, ce qui n'est pas certain.

et j'aimerais également que cela diffuse sur le salon à intervalles régulier

Ca, c'est très simple aussi.

J'essayerai de jeter un oeil à ce que propose radionomy au niveau de son API et la possibilité de faire un tcl pour gérer ça.
A moins que d'autres ne l'aient déjà fait ?

[cecile155]

merci beaucoup c est sympa

j'ai vraiment du mal si je peux etre utile

n'hésite pas

bien cordialement

cécile

[cecile155]

bonjour

vous êtes vous pencher sur le problème pour le tcl pour radionomy

merci d'avance

cécile

[CrazyCat]

Houla, on se calme, on est pas aux pièces.

Je suis allé voir et j'ai même créé un compte, il n'y a quasimment aucune explication sur l'API V2.
Et de ce que j'ai pu voir pour l'instant, on ne peux que faire de l'affichage de titre et d'infos sur la radio, pas de dédicace ou d'info sur l'animateur.

[cecile155]

bonjour

ben c'est déjà pas mal pour un début ça donne des infos sur la radio

alors du coup qu'est ce que je dois mettre pour que ma radio fonctionne sur mon salon irc ?

d'avance merci

bien cordialement

ps: je m'excuse si vous avez cru que je voulais aller trop vite ce n'était pas le cas

cécile

[CrazyCat]

Le script donné plus haut est bon, il te suffit de remplacer la chaine suivante avec les bonnes valeurs de radiouid et apikey (surement disponibles sur le site de radionomy, dans ton interface administrateur)

Code :

radiouid=da858a58-ea9e-4c36-a22e-f5f028256fc1&apikey=da858a58-ea9e-4c36-a22e-f5f028256fc1