Vous n'êtes pas identifié(e).

Top posteurs

Statistiques

Partenaires

  • eXolia Hosting
  • Eggdrop.fr

#1 21/11/2011 00:32:15

snip74
IRCzien
Lieu : haute-savoie
Inscription : 08/07/2011
Messages : 148
Site Web

Tcl ou autre pour difusé les titre de Radionomy

Bonjour,
Je recherche un système pour diffusé les titres  qui passe sur Radionomy et que sa les affiches sur mon salon.

J'ai essayer avec  shoutcast.tcl, radio.tcl etc... y a rien a faire sa veut pas smile

Donc vous avais un code tcl de préférence ou un autre truc simple a me conseillé ?

Cordialement Stéphane


Bénéficiez d'un un tchat gratuit sans inscription et découvrez les nouvautés notre tchat de rencontre gratuit : http://www.tchat-fusion.org/
Par script /server irc.tchat-fusion.org

Hors ligne

#2 21/11/2011 09:36:52

Harakiri
Administrateur
Lieu : Paris
Inscription : 02/07/2011
Messages : 260

Re : Tcl ou autre pour difusé les titre de Radionomy

Salut,

Je ne peux que te conseiller de jeter un oeil par là : http://help.radionomy.com/2009/09/10/api-radionomy/
Juste cette partie :

API Current title (Titre en cours)

Ca n'est pas bien compliqué a première vue. Tu fais une requête HTTP avec quelques paramètres pour t'identifier. Une page au format XML est générée avec les titres diffusés.
Il ne te reste alors qu'a parser ce fichier et à afficher le résultat ou bon te semble.
A part ca, en ce qui me concerne, je ne connais pas du tout les scripts du genre qui existent... Et puis de toute façon, on n'est jamais si bien servi que par soi même big_smile


EOF

Hors ligne

#3 21/11/2011 12:19:16

snip74
IRCzien
Lieu : haute-savoie
Inscription : 08/07/2011
Messages : 148
Site Web

Re : Tcl ou autre pour difusé les titre de Radionomy

Bonjour Harakiri,
Merci de ton aide smile

Hier j'ai regardé et testé le tuto smile mais quand je clic sur se lien http://api.radionomy.com/currentsong.cfm j'obtiens :

Server Error404 - File or directory not found.
The resource you are looking for might have been removed, had its name changed, or is temporarily unavailable

Donc j'ai trouvé un code en php qui dit les titres mais je c'est pas comment les afficher sur irc.
Pour se qui et du xlm je vais regardé mais je ne connais vraiment rien en xlm comment sa s'installe comment on le mais en place et comment l'afficher sur irc smile etc...

Harakiri a écrit :

Salut,

Je ne peux que te conseiller de jeter un oeil par là : http://help.radionomy.com/2009/09/10/api-radionomy/
Juste cette partie :

API Current title (Titre en cours)

Ca n'est pas bien compliqué a première vue. Tu fais une requête HTTP avec quelques paramètres pour t'identifier. Une page au format XML est générée avec les titres diffusés.
Il ne te reste alors qu'a parser ce fichier et à afficher le résultat ou bon te semble.
A part ca, en ce qui me concerne, je ne connais pas du tout les scripts du genre qui existent... Et puis de toute façon, on n'est jamais si bien servi que par soi même big_smile

Cordialement Stéphane

Dernière modification par snip74 (21/11/2011 12:21:23)


Bénéficiez d'un un tchat gratuit sans inscription et découvrez les nouvautés notre tchat de rencontre gratuit : http://www.tchat-fusion.org/
Par script /server irc.tchat-fusion.org

Hors ligne

#4 21/11/2011 12:55:12

snip74
IRCzien
Lieu : haute-savoie
Inscription : 08/07/2011
Messages : 148
Site Web

Re : Tcl ou autre pour difusé les titre de Radionomy

Bonjour CrazyCat,
Merci aussi de ton aide wink

Pour te répondre a cette question la réponse et oui.

CrazyCat a écrit :

As-tu bien mis un radiouid ? Et bien ajouté &type=xml à la fin de l'url ?

Sinon regarde Regarde ici sa fonctionne très bien sa génère bien mes titre :
Lien qui génère mes titres

mais c'est pas avec un lien que je vais affiché mes titres dans mon salon irc ?

Sinon un truc qui va aidé d'autre user et que sa leur serra utile pour afficher les pochettes ou que les titres j'ai trouvé un super truc sur se lien :

http://radionomy.radio-station.fr/

Vous pouvez regarde se que sa donne sur mon site (perso j'ai mis Les 10 derniers titres jouer) et un code en PHP pour les titres seule.

Voir un exemple :
http://www.tchat-fusion.org/radio.php

Et ici je vous mais le code php que j'ai trouvé pour affiché uniquement les titres sans les pochettes ni rien.
Pour ma par il fonctionne super bien mais il et pas encore en place car je je chercher comment faire un refresh uniquement sur le code qui produit le titre.

Code: PHP
<?php
#####################
# TITRAGE RADIONOMY #
#   CODÉ PAR JOHAN POUR BRITANIA.WS   #
#####################

// Url du xml
$xml = @ simplexml_load_file('http://api.radionomy.com/currentsong.cfm?radiouid=Numero&apikey=Numero&type=xml');
foreach ($xml as $track)
{
 
  $artiste = $track->artists;
  $titre = $track->title;
 
}
$artiste = ucwords($artiste);
$titre = ucwords($titre);
if ($artiste == "EnjoyStation" ) // Si c'est un jingle, on affiche le message "pas de vote"
{
  echo "<b>EnjoyStation revient dans quelques instants ...";
}
else // Sinon on affiche le titrage
{
echo "<b>$artiste</b><br>$titre";
}
?>

J'espère que tout sa serra utile et qu'avec sa on pourra afficher les titre sur un salon comme avec  shoutcast.tcl wink


CrazyCat a écrit :
snip74 a écrit :

Bonjour Harakiri,
Merci de ton aide smile

Hier j'ai regardé et testé le tuto smile mais quand je clic sur se lien http://api.radionomy.com/currentsong.cfm j'obtiens :

Server Error404 - File or directory not found.
The resource you are looking for might have been removed, had its name changed, or is temporarily unavailable

As-tu bien mis un radiouid ? Et bien ajouté &type=xml à la fin de l'url ?
Et peux tu donner un lien vers le script PHP que tu as trouvé ?

Cordialement Stéphane


Bénéficiez d'un un tchat gratuit sans inscription et découvrez les nouvautés notre tchat de rencontre gratuit : http://www.tchat-fusion.org/
Par script /server irc.tchat-fusion.org

Hors ligne

#5 21/11/2011 20:05:10

snip74
IRCzien
Lieu : haute-savoie
Inscription : 08/07/2011
Messages : 148
Site Web

Re : Tcl ou autre pour difusé les titre de Radionomy

Bonjour CrazyCat,
Merci beaucoup de se code et de ton aide smile

Voila j'ai testé ton code et y a 2 erreurs une que j'ai pue trouvé seule comme un grand (remarque fallait pas cherché bien loin tongue )

Sur la ligne :

Code:
set url "http://api.radionomy.com/currentsong.cfm?radiouid=da858a58-ea9e-4c36-a22e-f5f028256fc1&apikey=da858a58-ea9e-4c36-a22e-f5f028256fc1&type=xml

il manque juste un petit  ( " ) a la fin de xml smile

Par contre pour cette erreur je trouve pas j'ai cherché quasiment toute cette après-midi-midi mais je suis pas arrivé smile

Code:
[18:53:58] Tcl error [radio:titre]: can't read "artist": no such variable

et comme tu a dit que :

CrazyCat a écrit :

J'essayerai ce soir de te faire un tcl, mais voici à peu près à quoi ça devrait ressembler:

Donc voila pourquoi je n'est pas poster plutôt pour évité des posts inutile smile

J'ai même testé de modifier un tcl que j'avais trouvé sur google pour diffusé seule c'était une catastrophe j'ai donc supprimer le tcl que j'avais trouvé sur le net ^^ 

CrazyCat a écrit :

Donc, ton url fonctionne bien.
J'essayerai ce soir de te faire un tcl, mais voici à peu près à quoi ça devrait ressembler:

Code: 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 title
   regexp -all -- {<artist>(.+)?</artist>} $html artist
   putserv "PRIVMSG $chan :En cours: \034$title\034 par \034$artist\034"
}

Cordialement Stéphane


Bénéficiez d'un un tchat gratuit sans inscription et découvrez les nouvautés notre tchat de rencontre gratuit : http://www.tchat-fusion.org/
Par script /server irc.tchat-fusion.org

Hors ligne

#6 21/11/2011 22:10:56

Nickoos
IRCzien
Lieu : Treignes
Inscription : 10/09/2011
Messages : 163

Re : Tcl ou autre pour difusé les titre de Radionomy

Shoutcast a été mise a jour dernièrement et n'utilise plus exactement l'ancien système.
Tout les tcl que tu trouveras (ou avec un peu de chance) ne fonctionneront pas.

Dès que j'ai une minute, je mettrai mon tcl pour la nouvelle version de shoutcast en ligne.

Hors ligne

#7 21/11/2011 22:13:54

snip74
IRCzien
Lieu : haute-savoie
Inscription : 08/07/2011
Messages : 148
Site Web

Re : Tcl ou autre pour difusé les titre de Radionomy

Bonjour Nickoos,
Merci de ton aide smile

Me semble que Shoutcast.tcl ou autre ne fonctionne pas avec radionomy mais il serra utile smile donc poste le quand même sa peut servir merci smile

Nickoos a écrit :

Shoutcast a été mise a jour dernièrement et n'utilise plus exactement l'ancien système.
Tout les tcl que tu trouveras (ou avec un peu de chance) ne fonctionneront pas.

Dès que j'ai une minute, je mettrai mon tcl pour la nouvelle version de shoutcast en ligne.

Cordialement Stéphane


Bénéficiez d'un un tchat gratuit sans inscription et découvrez les nouvautés notre tchat de rencontre gratuit : http://www.tchat-fusion.org/
Par script /server irc.tchat-fusion.org

Hors ligne

#8 21/11/2011 22:27:36

snip74
IRCzien
Lieu : haute-savoie
Inscription : 08/07/2011
Messages : 148
Site Web

Re : Tcl ou autre pour difusé les titre de Radionomy

Bonjour CrazyCat,
encore merci mister wink
Ton code et parfait et fonctionne smile

Par contre sa me dite les titre avec des caractères : En cours: Ville de lumière par Gold

Me semble que c'est a cause des éàè dans les .mp3 ?

Pis y a toujours mieux mais c'est déjà super sympa a toi d'avoir mis se petit code et c'est mieux que rien wink


CrazyCat a écrit :

Voila, corrigé et testé:

Code: TCL
bind pub - "!titre" radio:titre
set url "[url]http://api.radionomy.com/currentsong.cfm?radiouid=da858a58-ea9e-4c36-a22e-f5f028256fc1&apikey=da858a58-ea9e-4c36-a22e-f5f028256fc1&apikey=da858a58-ea9e-4c36-a22e-f5f028256fc1&type=xml[/url]"
 
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"
}

Bon, on peut faire bien mieux, mais au moins ça donne la base.

Cordialement Stéphane


Bénéficiez d'un un tchat gratuit sans inscription et découvrez les nouvautés notre tchat de rencontre gratuit : http://www.tchat-fusion.org/
Par script /server irc.tchat-fusion.org

Hors ligne

#9 22/11/2011 19:09:50

snip74
IRCzien
Lieu : haute-savoie
Inscription : 08/07/2011
Messages : 148
Site Web

Re : Tcl ou autre pour difusé les titre de Radionomy

Bonjour CrazyCat,
Merci de ta source et de ton aide smile

J'ai essayer avec le code :

Code: TCL
bind pub - "!titre" radio:titre
set url "[url]http://api.radionomy.com/currentsong.cfm?radiouid=da858a58-ea9e-4c36-a22e-f5f028256fc1&apikey=da858a58-ea9e-4c36-a22e-f5f028256fc1&apikey=da858a58-ea9e-4c36-a22e-f5f028256fc1&type=xml[/url]"
 
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"
}
 
proc htmlentities_decode { text } {
    regsub -all "<" $text "<" text
    regsub -all ">" $text ">" text
    regsub -all "&" $text "et" text
    regsub -all """ $text "" text
    regsub -all "Á" $text "Á" text
    regsub -all "Â" $text "Â" text
    regsub -all "À" $text "À" text
    regsub -all "Å" $text "Å" text
    regsub -all "Ã" $text "Ã" text
    regsub -all "Ä" $text "Ä" text
    regsub -all "Ç" $text "Ç" text
    regsub -all "É" $text "É" text
    regsub -all "Ê" $text "Ê" text
    regsub -all "È" $text "È" text
    regsub -all "Í" $text "Í" text
    regsub -all "Î" $text "Î" text
    regsub -all "Ì" $text "Ì" text
    regsub -all "Ï" $text "Ï" text
    regsub -all "Ñ" $text "Ñ" text
    regsub -all "Ó" $text "Ó" text
    regsub -all "Ô" $text "Ô" text
    regsub -all "Ò" $text "Ò" text
    regsub -all "Ø" $text "Ø" text
    regsub -all "Õ" $text "Õ" text
    regsub -all "Ö" $text "Ö" text
    regsub -all "Ú" $text "Ú" text
    regsub -all "Û" $text "Û" text
    regsub -all "Ù" $text "Ù" text
    regsub -all "Ü" $text "Ü" text
    regsub -all "Ý" $text "Ý" text
    regsub -all "á" $text "á" text
    regsub -all "æ" $text "ae" text
    regsub -all "œ" $text "oe" text
    regsub -all "à" $text "à" text
    regsub -all -nocase "à" $text "à" text
    regsub -all "å" $text "å" text
    regsub -all "ã" $text "ã" text
    regsub -all "ä" $text "ä" text
    regsub -all "ç" $text "ç" text
    regsub -all -nocase "ç" $text "ç" text
    regsub -all "é" $text "é" text
    regsub -all -nocase "é" $text "é" text
    regsub -all "ë" $text "ë" text
    regsub -all "í" $text "í" text
    regsub -all "è" $text "è" text
    regsub -all -nocase "è" $text "è" text
    regsub -all "ì" $text "ì" text
    regsub -all "ï" $text "ï" text
    regsub -all "ñ" $text "ñ" text
    regsub -all "ó" $text "ó" text
    regsub -all "ô" $text "ô" text
    regsub -all -nocase "ô" $text "ô" text
    regsub -all "â" $text "â" text
    regsub -all -nocase "â" $text "â" text
    regsub -all "ê" $text "ê" text
    regsub -all -nocase "ê" $text "ê" text
    regsub -all "ò" $text "ò" text
    regsub -all "î" $text "î" text
    regsub -all "õ" $text "õ" text
    regsub -all "ö" $text "ö" text
    regsub -all "ú" $text "ú" text
    regsub -all "û" $text "û" text
    regsub -all -nocase "û" $text "û" text
    regsub -all "ù" $text "ù" text
    regsub -all -nocase "ù" $text "ù" text
    regsub -all "ü" $text "ü" text
    regsub -all "ÿ" $text "ÿ" text
    regsub -all "Æ" $text "AE" text
    regsub -all "Œ" $text "OE" text
    regsub -all "®" $text "®" text
    regsub -all -nocase "®" $text "®" text
    regsub -all "©" $text "©" text
    regsub -all -nocase "©" $text "©" text
    regsub -all "" $text "" text
    regsub -all "±" $text "±" text
    regsub -all "°" $text "°" text
    regsub -all "¹" $text "¹" text
    regsub -all "&apos;" $text "¹" text
    regsub -all "²" $text "²" text
    regsub -all "³" $text "³" text
    regsub -all "×" $text "×" text
    regsub -all "÷" $text "÷" text
    regsub -all "" $text "euro" text
    regsub -all -nocase "«" $text "\"" text
    regsub -all -nocase "»" $text "\"" text
    return $text
}

Mais y a encore qui passe exemple :

En cours: Soprano - Dernière Chance par Lea Castel fea smile

Donc ma question pour quoi j'ai encore sa vue que y a les lettres avec accent dans ton code ?

moi j'ai aussi a jouté sa :

regsub -all "&apos;" $text "'" text mais quand je fait un copier coller sa mais des minis 1 --> "¹"

CrazyCat a écrit :

J'ai fait une petite procédure pour décoder le html (ou le xml) : http://www.eggdrop.fr/board/htmlentitie … -1077.html

Cordialement Stéphane


Bénéficiez d'un un tchat gratuit sans inscription et découvrez les nouvautés notre tchat de rencontre gratuit : http://www.tchat-fusion.org/
Par script /server irc.tchat-fusion.org

Hors ligne

#10 14/02/2012 22:54:32

snip74
IRCzien
Lieu : haute-savoie
Inscription : 08/07/2011
Messages : 148
Site Web

Re : Tcl ou autre pour difusé les titre de Radionomy

Bonsoir,

Comment je peut bloquer le code sur un seule salon ?
j'ai changer $chan cette sa marche mais c'est pas la bonne solution,
vue que si un user tape !titre sur un autre salon sa va affiché le titre sur le salon radio mais pas sur le salon courent smile

Code: TCL
putserv "PRIVMSG #radio :En cours: \002$title\002 par \002$artist\002"
Code: TCL
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"
}

Cordialement Stéphane


Bénéficiez d'un un tchat gratuit sans inscription et découvrez les nouvautés notre tchat de rencontre gratuit : http://www.tchat-fusion.org/
Par script /server irc.tchat-fusion.org

Hors ligne

Pied de page des forums

475014 visites ( 162 aujourd'hui ) 3 visiteurs en ligne
Copyright © 2004 - 2013 IRCz