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

Communauté sur les Eggdrops - Community about Eggdrops   ›   Eggdrop et TCL   ›   Scripts TCL   ›   TCL Webradio - Radionomy

Thread Closed 
TCL Webradio - Radionomy
 MenzAgitat
Moderator et à travers
******
Joined: 04/07/2007
Posts: 1,039


Type eggdrop:
  • Windrop 1.8
#31
22/07/2014, 15:33
 
(22/07/2014, 10:05)FleuryK Wrote: Ligne 45 :

Code:
regexp -all -- {<radioname>(.+)?</radioname} $html null radioname
La balise est mal fermé.

Code:
regexp -all -- {<radioname>(.+)?</radioname>} $html null radioname
Ici, la balise radioname est bien fermé.

Ca ne change rien : il ne s'agit pas d'une balise qui doit être équilibrée mais d'une expression régulière. Le résultat sera le même, sauf dans le cas peu probable où il existerait une autre balise dont le nom commencerait aussi par </radioname.
 
Toute l'actualité de mes scripts ici     (dernière mise à jour le 22/04/2020)

Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.
  Website
 FleuryK
Débutant
**
Joined: 21/07/2014
Posts: 11


Type eggdrop:
  • Eggdrop 1.6.x
#32
22/07/2014, 16:15 (This post was last modified: 22/07/2014, 16:30 by FleuryK.)
Bonjour MenzAgitat,

En HTML (la on est en dehors du TCL), une balise doit être toujours fermée. Exemple : <head></head>.
Donc en TCL, on doit avoir la même chose, une balise ouvrante, ici c'est <radioname> et une balise fermante, ici c'est </radioname>.

En version HTML, si on oublie de refermer une balise, on a pas le résultat attendu. Et une balise non fermée est considérée comme une faute sur le W3C.

Certaines balises HTML sont orphelines, c'est à dire qu'ils n'ont pas de balise fermante. Exemple : <br />.

Je ne dis pas ça par méchanceté (au contraire je suis calme) ni pour autre raison, mais quand je vois une balise mal fermé, je corrige aussitôt.

Cordialement.

-----

EDIT : Pour revenir au sujet, ça doit être nouveau chez radionomy les &eacute; sont remplacés par ce caractère &#xe9;

Code source :

Code:
<title>T&#xe9;l&#xe9;phone 3</title>
Visuellement :

Code:
<title>Téléphone 3</title>
J'ai trouvé une page qui explique ceci : http://www.princexml.com/doc/8.1/characters/
 CrazyCat
Ma(ni)tou
*******
Joined: 30/04/2004
Posts: 2,762


Type eggdrop:
  • Eggdrop 1.9
#33
22/07/2014, 16:54
(22/07/2014, 16:15)FleuryK Wrote: Donc en TCL, on doit avoir la même chose, une balise ouvrante, ici c'est <radioname> et une balise fermante, ici c'est </radioname>.
Sauf que là ce n'est pas du TCL mais une expression régulière.
Elle marcherait tout aussi bien avec:

Code:
regexp -all -- {name>(.+)?</radio} $html null radioname
Ou même, pour jouer:

Code:
regexp -all -- {<radioname>([^<]+)?<} $html null radioname
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
  Website
 FleuryK
Débutant
**
Joined: 21/07/2014
Posts: 11


Type eggdrop:
  • Eggdrop 1.6.x
#34
22/07/2014, 18:30
Bonjour,

Eh bien, j'aurais appris quelque chose.

J'ai ajouté les nouvelles balises comme &#xe9; dans le script et pour le moment, ça à l'air de fonctionner correctement.
 CrazyCat
Ma(ni)tou
*******
Joined: 30/04/2004
Posts: 2,762


Type eggdrop:
  • Eggdrop 1.9
#35
22/07/2014, 18:55
Toi qui semble être un puriste du html et consorts, ce sont des entités, pas des balises :)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
  Website
 FleuryK
Débutant
**
Joined: 21/07/2014
Posts: 11


Type eggdrop:
  • Eggdrop 1.6.x
#36
22/07/2014, 19:04 (This post was last modified: 22/07/2014, 20:16 by FleuryK.)
Bonsoir,

Exactement. Le HTML c'est mon dada ;)

http://tools.eggdrop.fr/pasteme/view/79c872cc => Ajout de nouveaux caractères HTML comme &#xe9;, ...
 MenzAgitat
Moderator et à travers
******
Joined: 04/07/2007
Posts: 1,039


Type eggdrop:
  • Windrop 1.8
#37
22/07/2014, 19:40 (This post was last modified: 22/07/2014, 19:47 by MenzAgitat.)
 
Plutôt qu'ajouter une par une toutes les entités html au format hexadécimal, tu pourrais faire comme ça pour les convertir toutes d'un seul coup :


tcl 
while {
	[regexp {&#x([[:alnum:]]{2});} $TAVARIABLE {} value]
} {
	regsub {&#x([[:alnum:]]{2});} $TAVARIABLE [binary format H* $value] TAVARIABLE
}


Il faudra évidemment remplacer TAVARIABLE par le nom de la variable qui contient le texte à convertir (et n'ajoute pas un $ devant le dernier TAVARIABLE, il n'en comporte pas volontairement).
 
Toute l'actualité de mes scripts ici     (dernière mise à jour le 22/04/2020)

Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.
  Website
 AyRh0nS
Débutant
**
Joined: 08/10/2014
Posts: 7


Type eggdrop:
  • Eggdrop 1.6.x
#38
19/03/2016, 17:33
Bonjour,

J'ai le Tcl que CrazyCat à publié mais j'ai un erreur.

La diffusion des messages s'arrête et je suis obligé de faire !titre off et !titre on pour relancer.

voici le retour d'erreur que j'ai :



Code:
-----> can not find channel named "sock10"
----->     while executing
-----> "eof $sock"
Tcl error in script for 'timer2548':
can't read "title": no such variable
-----> can't read "title": no such variable
----->     while executing
-----> "if { $title != $::memo } {
-----> set ::memo $title
-----> putserv "PRIVMSG $::rchan :En cours sur \002 .::. Etoile-Fm .::. \002: \002[htmlentities_decode $title]\0..."
----->     (procedure "radio:titre" line 9)
-----> invoked from within
-----> "radio:titre"
 CrazyCat
Ma(ni)tou
*******
Joined: 30/04/2004
Posts: 2,762


Type eggdrop:
  • Eggdrop 1.9
#39
19/03/2016, 18:57
C'est que la balise title n'est pas dans le XML ou bien pas là où le script l'attend.
Peut-être que le flux est changé. Il faudrait que tu ouvres l'URL appelée dans un navigateur pour vérifier la structure

Envoyé de mon SM-G928F en utilisant Tapatalk
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
  Website
 AyRh0nS
Débutant
**
Joined: 08/10/2014
Posts: 7


Type eggdrop:
  • Eggdrop 1.6.x
#40
19/03/2016, 21:08

Code:
<tracks>
<radioname>nom de radio</radioname>
<rank>0</rank>
<isradionomy>1</isradionomy>
<radurl>Url</radurl>
<track>
<uniqueid>info</uniqueid>
<title>Funky Town1980</title>
<artists>LIPPS INC</artists>
<starttime>2016-03-19 19:56:27.667</starttime>
<playduration>231531</playduration>
<current>1</current>
</track>
</tracks>
Voila ce que ça me donne
 AyRh0nS
Débutant
**
Joined: 08/10/2014
Posts: 7


Type eggdrop:
  • Eggdrop 1.6.x
#41
21/03/2016, 12:46
Au moment de l'erreur aucune balise ne change sur la page XML, je viens de vérifier de nouveau.
 CrazyCat
Ma(ni)tou
*******
Joined: 30/04/2004
Posts: 2,762


Type eggdrop:
  • Eggdrop 1.9
#42
23/03/2016, 01:02
Tu devrais essayer:

tcl 
putlog $html

après le

tcl 
set html [::http::data $page]


Je pense que ton xml vu par l'eggdrop n'est pas celui que toi tu vois par ton navigateur.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
  Website
 AyRh0nS
Débutant
**
Joined: 08/10/2014
Posts: 7


Type eggdrop:
  • Eggdrop 1.6.x
#43
24/03/2016, 10:35
ça me fais toujours la même erreur.
 CrazyCat
Ma(ni)tou
*******
Joined: 30/04/2004
Posts: 2,762


Type eggdrop:
  • Eggdrop 1.9
#44
25/03/2016, 00:06
Oui, mais tu as quoi en partyline ?
Le putlog devrait te montrer le contenu de la page que tu ouvres, donc le xml.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
  Website
 AyRh0nS
Débutant
**
Joined: 08/10/2014
Posts: 7


Type eggdrop:
  • Eggdrop 1.6.x
#45
25/03/2016, 01:42 (This post was last modified: 25/03/2016, 01:44 by AyRh0nS.)

Code:
    <tracks>
    <radioname>nom de la radio</radioname>
        <rank>0</rank>
    <isradionomy>1</isradionomy>
        <radurl>URL</radurl>
        <track>
        <uniqueid>Chiffre</uniqueid>
        <title>Strike It Up (1990)</title>
            <artists>Black Box</artists>
            <starttime>2016-03-24 14:09:56.763</starttime>
            <playduration>311492</playduration>
            <current>1</current>
</track>

Tcl error in script for 'timer4509':
can't read "title": no such variable
-----> can't read "title": no such variable
----->     while executing
-----> "if { $title != $::memo } {
-----> set ::memo $title
-----> putserv "PRIVMSG $::rchan :En cours sur \002 .::. Etoile-Fm .::. \002: \002[htmlentities_decode $title]\0..."
----->     (procedure "radio:titre" line 10)
----->     invoked from within
-----> "radio:titre"

Voilà le retour que ça me donne !
Thread Closed 


Possibly Related Threads…
Thread Author Replies Views Last Post
  Existe t'il un tcl pour programme de diffusion webradio KeeViiNou 4 5,059 22/09/2012, 09:21
Last Post: KeeViiNou
  Besoin d'aide pour TCL radionomy JulienRoad 9 8,980 30/05/2012, 21:59
Last Post: CrazyCat
  tcl pour radionomy cecile155 14 8,538 10/01/2012, 13:14
Last Post: CrazyCat
  TCL WebRadio python33 20 12,937 19/07/2011, 21:31
Last Post: CrazyCat
  aide création script tcl webradio et divers cecile155 12 8,066 29/12/2010, 17:11
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)