Communauté Eggdrop

Communauté Eggdrop > Eggdrop et TCL > Scripts TCL > Releases et support > [Script] shoutcast.tcl
Version complète : [Script] shoutcast.tcl
Vous consultez actuellement la version basse qualité d’un document. Voir la version complète avec le bon formatage.
Pages : 1 2 3 4 5

djkenny

09/08/2011, 11:30
Shoutcast.tcl entièrement re-codé
- configuration simplifiée
- utilisation du package http
- suppression du flood serveur généré par l'utilisation abusive de socket (qui souvent n'étaient même pas fermé) dans l'ancienne version
- utilisation du package msgcat pour les différents messages
- kick automatiquement la pl lorsque l'animateur tape !onair (configurable)
- tout est géré par des variables (plus de fichiers inutiles)

téléchargement: shoutcast.tcl

Julien23

09/08/2011, 18:31
Merci beaucoup pour ce partage, et j aimerai savoir si il est possible de faire en sorte d activé le tcl sur les salons au lieu d allez ce connecter en ftp pour ajouter les salons,car nous sommes plusieurs a ajouter les salons au bot est je n ai pas trop envie de leur donner accees au ftp ni même en pl

Merci de votre aide

djkenny

09/08/2011, 23:06
je vais voir ce que je peux faire, tout dépendra du temps que ça met.

Julien23

09/08/2011, 23:16
Merci Dj_KennY

djkenny

10/08/2011, 00:06
voila la version 0.9.1

Changelog:
- ajout de la commande radioadd pour ajouter un salon (ajoute automatiquement le salon a ceux de l eggdrop)
/msg lebot radioadd #salon

- ajout de la commande radiodel pour supprimer un salon (supprime automatiquement le salon de la liste d'eggdrop)
/msg lebot radiodel #salon

- ajout de la commande radiolist
/msg lebot radiolist

- correction d'un oublie dans la liste des msgcat

téléchargement: Shoutcast 0.9.1

Julien23

10/08/2011, 20:40
Merci Dj_KennY pour les modifies tcl fonctionne très bien Smile

djkenny

27/08/2011, 15:48
salut,

petite modification pour éviter le lag du bot, remplacer ça:
tcl
proc sc::send {type arg} {
	variable rchan
	if [string equal $rchan ""] {set rchan [channels]}
	foreach c $rchan {
		putserv "PRIVMSG $c :$arg"
	}
}


par ça:
tcl
proc sc::send {type arg} {
	variable rchan
	if [string equal $rchan ""] {set rchan [channels]}
	putserv "PRIVMSG [join $rchan ,] :$arg"
}


Julien23

02/09/2011, 21:49
Le tcl fonctionne très bien merci. Y a t'il la possibilité de rajouter l URL de la radio ? ( !lien)

djkenny

03/09/2011, 00:47
tcl
bind pub - !lien ::sc::lien
proc ::sc::lien {nick host hand chan arg} {
    putserv "PRIVMSG $chan :ton lien"
}


DnS

11/09/2011, 12:57
Merci Dj_KennY pour ce partage.

lesny

14/09/2011, 00:31
bonjour / bonsoir

j'ai mis le tcl dans mon eggdrop et en tapand .rehash j'ai cette erreur
tcl
00:34] <Isis> [00:36:08] can't create procedure "sc::nkchg": unknown namespace
[00:34] <Isis>     while executing
[00:34] <Isis> "proc sc::nkchg {nick host hand chan nnick} {
[00:34] <Isis> variable dj
[00:34] <Isis> if {[info exists dj] && [string equal $dj $nick]} {
[00:34] <Isis> set dj $nnick
[00:34] <Isis> }
[00:34] <Isis> }"
[00:34] <Isis>     (file "scripts/shoutcast.tcl" line 95)
[00:34] <Isis>     invoked from within
[00:34] <Isis> "source scripts/shoutcast.tcl"
[00:34] <Isis>     (file "Isis.conf" line 373)


puis le crash du eggdrop

cestlemien

14/09/2011, 00:54
salut,
je ne suis pas un pros, mais :

Citation :00:34] <Isis> [00:36:08] can't create procedure "sc::nkchg": unknown namespace
[00:34] <Isis> while executing
[00:34] <Isis> "proc sc::nkchg {nick host hand chan nnick} {
[00:34] <Isis> variable dj
[00:34] <Isis> if {[info exists dj] && [string equal $dj $nick]} {
[00:34] <Isis> set dj $nnick
[00:34] <Isis> }
[00:34] <Isis> }"
[00:34] <Isis> (file "scripts/shoutcast.tcl" line 95)
[00:34] <Isis> invoked from within
[00:34] <Isis> "source scripts/shoutcast.tcl"
[00:34] <Isis> (file "Isis.conf" line 373)

je dirait bien que la reponse a ta question, est dans le log Smile

Citation :[00:34] <Isis> (file "scripts/shoutcast.tcl" line 95)

Peut-être que justement l'erreure se trouve en ligne 95 du shoutcast.tcl , non ? Smile ( le : apres le " de fin de ligne, est il dans le tcl ? si oui, peut-etre le retirer)

Citation :[00:34] <Isis> (file "Isis.conf" line 373)
Et sans doute une autre dans le Isis.conf ,en ligne 373.

-Peut-etre que si tu donnais ces deux fameuses lignes pour les fichier, on/ils pourrait mieux aborder une ebauche de reponse Smile

Cordialement.

lesny

14/09/2011, 01:02
bonjour / bonsoir

voila la ligne 95 du tcl

proc sc::nkchg {nick host hand chan nnick} {

et l'erreur dans isis.conf ces source scripts/shoutcast.tcl

cestlemien

14/09/2011, 01:05
re , Wink

il n'y aurait pas une erreure là, ou est ce une faute de frappe de ta part ? :

Citation :proc sc::nkchg {nick host hand chan nnick} {

nick, plutot que nnick , non ?

Cordialement.

lesny

14/09/2011, 01:12
bonjour / bonsoir

j'ai donc retiré le n surement en trop et après reconnexion de l'eggdrop en pl quand je .rehash le bot crash et j'ai la même erreur sans le n en trop cette fois ^^

tcl
[01:10] <Isis> [01:12:05] can't create procedure "sc::nkchg": unknown namespace
[01:10] <Isis>     while executing
[01:10] <Isis> "proc sc::nkchg {nick host hand chan nick} {
[01:10] <Isis> variable dj
[01:10] <Isis> if {[info exists dj] && [string equal $dj $nick]} {
[01:10] <Isis> set dj $nnick
[01:10] <Isis> }
[01:10] <Isis> }"
[01:10] <Isis>     (file "scripts/shoutcast.tcl" line 95)
[01:10] <Isis>     invoked from within
[01:10] <Isis> "source scripts/shoutcast.tcl"
[01:10] <Isis>     (file "Isis.conf" line 373)
[01:10] <Isis> [01:12:05] * FICHIER DE CONFIGURATION NON CHARGE (INTROUVABLE OU ERREUR)


Pages : 1 2 3 4 5
Communauté Eggdrop > Eggdrop et TCL > Scripts TCL > Releases et support > [Script] shoutcast.tcl