[Script] shoutcast.tcl

[djkenny]

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]

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]

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

[Julien23]

Merci Dj_KennY

[djkenny]

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]

Merci Dj_KennY pour les modifies tcl fonctionne très bien :)

[djkenny]

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]

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

[djkenny]

tcl

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

[DnS]

Merci Dj_KennY pour ce partage.

[lesny]

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]

salut,
je ne suis pas un pros, mais :

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 :)

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

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

[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 :)

Cordialement.

[lesny]

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]

re , ;)

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

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

nick, plutot que nnick , non ?

Cordialement.

[lesny]

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)