Communauté Eggdrop
[Script] shoutcast.tcl - Version imprimable

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+---- Forum : Releases et support (https://forum.eggdrop.fr/forumdisplay.php?fid=20)
+---- Sujet : [Script] shoutcast.tcl (/showthread.php?tid=1009)

Pages : 1 2 3 4 5


[Script] shoutcast.tcl - djkenny - 09/08/2011

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


RE: [Script] shoutcast.tcl - Julien23 - 09/08/2011

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


RE: [Script] shoutcast.tcl - djkenny - 09/08/2011

je vais voir ce que je peux faire, tout dépendra du temps que ça met.


RE: [Script] shoutcast.tcl - Julien23 - 09/08/2011

Merci Dj_KennY


RE: [Script] shoutcast.tcl - djkenny - 10/08/2011

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


RE: [Script] shoutcast.tcl - Julien23 - 10/08/2011

Merci Dj_KennY pour les modifies tcl fonctionne très bien Smile


RE: [Script] shoutcast.tcl - djkenny - 27/08/2011

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"
}





RE: [Script] shoutcast.tcl - Julien23 - 02/09/2011

Le tcl fonctionne très bien merci. Y a t'il la possibilité de rajouter l URL de la radio ? ( !lien)


RE: [Script] shoutcast.tcl - djkenny - 03/09/2011

TCL
bind pub - !lien ::sc::lien
proc ::sc::lien {nick host hand chan arg} {
    putserv "PRIVMSG $chan :ton lien"
}





RE: [Script] shoutcast.tcl - DnS - 11/09/2011

Merci Dj_KennY pour ce partage.


RE: [Script] shoutcast.tcl - lesny - 14/09/2011

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


RE: [Script] shoutcast.tcl - cestlemien - 14/09/2011

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.


RE: [Script] shoutcast.tcl - lesny - 14/09/2011

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


RE: [Script] shoutcast.tcl - cestlemien - 14/09/2011

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.


RE: [Script] shoutcast.tcl - lesny - 14/09/2011

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)