Communauté francophone sur les Eggdrops
[Bug] shoutcast - Printable Version

+- Communauté francophone sur les Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Eggdrop (https://forum.eggdrop.fr/forumdisplay.php?fid=3)
+--- Thread: [Bug] shoutcast (/showthread.php?tid=1847)

Pages: 1 2


shoutcast - Amigo - 13/09/2021

Bonsoir j'aurais besoin de vos lumière je me casse la tête en se moment en installant un bot shoutcast.tcl mais je me heurte a un message d'erreur 

ci dessous 


Quote:Eggdrop v1.6.21 © 1997 Robey Pointer © 2011 Eggheads
[21:45:15] --- Loading eggdrop v1.6.21 (Mon Sep 13 2021)
[21:45:15] Module loaded: dns
[21:45:15] Module loaded: channels
[21:45:15] Module loaded: server
[21:45:15] Module loaded: ctcp
[21:45:15] Module loaded: irc
[21:45:15] Module loaded: console          (with lang support)
[21:45:15] Module loaded: blowfish
[21:45:15] Listening at telnet port 3337 (all).
[21:45:15] Tcl error in file 'eggdrop.conf':
[21:45:15] invalid command name "stream.mp3"
    while executing
"stream.mp3  annonce 1  kpl 1  "
    (in namespace eval "::sc" script line 12)
    invoked from within
"namespace eval ::sc {
        package require http
        package require msgcat
        variable sc

        # Configuration mot de passe/ip/port du serveur
        # annonce:
        # 1- ..."
    (file "scripts/shoutcast.tcl" line 23)
    invoked from within
"source scripts/shoutcast.tcl"
    (file "eggdrop.conf" line 97)
[21:45:15] * FICHIER DE CONFIGURATION NON CHARGE (INTROUVABLE OU ERREUR)
(Amigo)(~/shell/eggdrop)->
(Amigo)(~/shell/eggdrop)->
(Amigo)(~/shell/eggdrop)-> ./eggdrop -m

Eggdrop v1.6.21 © 1997 Robey Pointer © 2011 Eggheads
[21:49:13] --- Loading eggdrop v1.6.21 (Mon Sep 13 2021)
[21:49:13] Module loaded: dns
[21:49:13] Module loaded: channels
[21:49:13] Module loaded: server
[21:49:13] Module loaded: ctcp
[21:49:13] Module loaded: irc
[21:49:13] Module loaded: console          (with lang support)
[21:49:13] Module loaded: blowfish
[21:49:13] Listening at telnet port 3337 (all).
[21:49:13] Creating channel file
 
je vous remercie par avance de l'aide que vous pouvez m'apporter


RE: shoutcast - CrazyCat - 14/09/2021

Il faudrait que tu montres ce que tu as mis dans la configuration (en changeant le pass admin, et l'ip), particulièrement cette partie:
tcl
array set sc [list\
		adminpass ****** \
		ip ****** \
		port ****** \
		lien http://maradio.com/listen \
		annonce 1 \
		kpl 1 \
	]





RE: shoutcast - Amigo - 14/09/2021

(14/09/2021, 00:45)CrazyCat Wrote: Il faudrait que tu montres ce que tu as mis dans la configuration (en changeant le pass admin, et l'ip), particulièrement cette partie:
tcl
array set sc [list\
 adminpass ****** \
 ip ****** \
 port ****** \
 lien http://maradio.com/listen \
 annonce 1 \
 kpl 1 \
 ]


Quote:# Configuration mot de passe/ip/port du serveur
# annonce:
# 1- le bot annonce les morceaux sur le salon.
# 0- le bot n'annonce pas les morceaux.
# il est important de laisser le "\" � la fin de chaque lignes!!
# kpl: faut-il kicker la pl 1-oui / 0-non
array set sc [list\
adminpass ft34vp5* \
ip ecmanager2.pro-fhi.net \
port 1960 \
lien http://ecmanager2.pro-fhi.net:1960/;stream.mp3 \
annonce 1 \
kpl 1 \
]



Voila 
j'ai cacher un caractère de adminpass


RE: shoutcast - pchevee - 14/09/2021

Bonjour Amigo,

je pense que tu devrais mettre le lien entre guillemets, depuis http jusqu'à mp3.

Et au fait, bonjour à CrazyCat (je ne viens plus très souvent sur ce forum!)

Bonne soirée,

PC


RE: shoutcast - Amigo - 14/09/2021

(14/09/2021, 20:42)pchevee Wrote: Bonjour Amigo,

je pense que tu devrais mettre le lien entre guillemets, depuis http jusqu'à mp3.

Et au fait, bonjour à CrazyCat (je ne viens plus très souvent sur ce forum!)

Bonne soirée,

PC

Cela ne change rien 

Quote:<Radio> [21:07:28] Rehashing ...
<Radio> [21:07:28] Listening at telnet port 3337 (all).
<Radio> [21:07:28] Userfile loaded, unpacking...



RE: shoutcast - CrazyCat - 14/09/2021

Ca change un peu, l'eggdrop ne se plante pas. Par contre, le script ne semble pas chargé du tout. As-tu laissé l'appel dans le .conf ? Ou as-tu essayé de le charger depuis la party-line ?

H.S.: eggdrop 1.6.21 commence à dater un peu, la dernière stable est 1.9.1


RE: shoutcast - aliasangelius - 15/09/2021

Quote:lien http://ecmanager2.pro-fhi.net:1960/;stream.mp3 \

Tu es sur pour le ";" ?
ça ne serais pas plutôt :
Quote:lien http://ecmanager2.pro-fhi.net:1960/stream.mp3 \

De même ya un espace entre le stream.mp3 et le \

Tiens je te transmet un tcl pour évitez le crash :


RE: shoutcast - ZarTek - 15/09/2021

(15/09/2021, 13:14)aliasangelius Wrote: Tiens je te transmet un tcl pour évitez le crash :

Je crois que ton message est incomplet

Le lien de Amigo est bon
tcl
array set sc [list \
                      adminpass "***PASS***" \
                      ip              ecmanager2.pro-fhi.net \
                      port           1960 \
                      lien            "http://ecmanager2.pro-fhi.net:1960/;stream.mp3" \
                      annonce     1 \
                      kpl             1 \
]



Amigo: Je te conseille de protéger les valeurs adminpass et lien en les entourant d'un " pour les protéger car TCL peu interpréter le ; comme la fin d'une ligne, et d'autres caractères également qui pourrais avoir d'ans un mot de passe ou dans un lien URL.

Nous pouvons que vivement te conseiller une mise à jour de ton Eggdrop v1.6.21 vers une version récente (V1.9...)

Apres les changements effectuer, relance complément le eggdrop. As-tu d'autres erreurs?


RE: shoutcast - Amigo - 15/09/2021

merci de votre aide le bot fontionne sauf les cmd !onair et !offair


RE: shoutcast - aliasangelius - 16/09/2021

@ZarTek en effet !

tcl
namespace eval sourcing {
	variable last
	if ![info exists last] {set last ""}
 
	bind pub n|n .source [namespace current]::LoadTcl
	bind dcc n|n source [namespace current]::LoadTcl_DCC
 
	proc LoadTcl {nick host hand chan arg} {
		set err [catch_source [lindex $arg 0]]
		if {$err==0} {
			putquick "PRIVMSG $chan :Pas d'erreur"
			return
		}
		foreach line [split $::errorInfo \n] {
			if {$line!=""} {putquick "PRIVMSG $chan :\00314$line\003"}
		}
	}
 
	proc LoadTcl_DCC {hand idx arg} {
		set err [catch_source [lindex $arg 0]]
		if {$err==0} {
			putdcc "Pas d'erreur"
			return
		}
		foreach line [split $::errorInfo \n] {
			if {$line!=""} {putdcc "\00314$line\003"}
		}
 
	}
 
	proc catch_source arg {
		variable last
		if {$arg=="" && $last!=""} {
			set arg $last
		} elseif {$arg=="" && $last==""} {
			return "Please specify a file"
		}
		if [catch {uplevel #0 source scripts/$arg} err] {
			return 1
		}
		return 0
	}
}



Voilà ce que je voulais mettre, un .source sur un canal ou en PL pour voir si ya erreur dans un tcl


RE: shoutcast - CrazyCat - 16/09/2021

Quand on met un code comme ça, on précise comment il s'utilise: la commande .source se retrouve modifiée et il faut l'utiliser en ne mettant que le nom du script, à condition qu'il soit dans scripts/.

tcl
if [catch {uplevel #0 source scripts/$arg} err] {





RE: shoutcast - Amigo - 26/09/2021

bonsoir, 
j'ai un autre petit problème au sujet de la police comment modifier les caractère ?


RE: shoutcast - CrazyCat - 27/09/2021

Pour ton information, ce n'est pas un souci de police mais d'encodage.

Il doit falloir ajouter un encodage ou décodage (plus probablement) utf8 dans la procédure sc::clean car le script, qui commence à dater, n'est pas en utf-8


RE: shoutcast - Amigo - 27/09/2021

(27/09/2021, 00:11)CrazyCat Wrote: Pour ton information, ce n'est pas un souci de police mais d'encodage.

Il doit falloir ajouter un encodage ou décodage (plus probablement) utf8 dans la procédure sc::clean car le script, qui commence à dater, n'est pas en utf-8

donc il faut trouvé un autre script


RE: shoutcast - CrazyCat - 28/09/2021

Conclusion un peu rapide alors qu'il y a une procédure à modifier pour lui ajouter quelques caractères à décoder et une ligne pour faire la conversion depuis l'utf-8 (ou vers, il faut tester).

Voici une petite modification de la procédure sc;;clean :

.tcl   scclean.tcl (Size: 3.16 KB / Downloads: 5)