Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


tcl pour radionomy
#1
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
#2
Bonjour cecile155

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

:)
#3
Tu parles de:

tcl
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 ?
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#4
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
#5
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
#6
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)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#7
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 ?
#8
Ah ! Il faudrait pour celà connaitre les fonctionnalités (possibilités) de radionomy et ce que tu désires avoir comme commandes.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#9
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
#10
cecile155 Wrote:!radio : donne le nom de la radio et que la radio est en ligne
Cela semble assez simple à faire.
cecile155 Wrote:!titre titre en cours
C'est ce que fait le bout de script donné
cecile155 Wrote:!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.
cecile155 Wrote: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 ?
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#11
merci beaucoup c est sympa

j'ai vraiment du mal si je peux etre utile

n'hésite pas

bien cordialement

cécile
#12
bonjour

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

merci d'avance

cécile
#13
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.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#14
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
#15
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
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  TCL Webradio - Radionomy Raiding 48 31,959 04/05/2016, 08:50
Last Post: CrazyCat
  Besoin d'aide pour TCL radionomy JulienRoad 9 8,948 30/05/2012, 21:59
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)