[Script] shoutcast.tcl
#1
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
Absent
  Répondre   Avertir
#2
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
  Répondre   Avertir
#3
je vais voir ce que je peux faire, tout dépendra du temps que ça met.
Absent
  Répondre   Avertir
#4
Merci Dj_KennY
  Répondre   Avertir
#5
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
Absent
  Répondre   Avertir
#6
Merci Dj_KennY pour les modifies tcl fonctionne très bien Smile
  Répondre   Avertir
#7
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"
}


Absent
  Répondre   Avertir
#8
Le tcl fonctionne très bien merci. Y a t'il la possibilité de rajouter l URL de la radio ? ( !lien)
  Répondre   Avertir
#9
tcl
bind pub - !lien ::sc::lien
proc ::sc::lien {nick host hand chan arg} {
    putserv "PRIVMSG $chan :ton lien"
}


Absent
  Répondre   Avertir
#10
Merci Dj_KennY pour ce partage.
  Répondre   Avertir
#11
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
  Répondre   Avertir
#12
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.
  Répondre   Avertir
#13
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
  Répondre   Avertir
#14
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.
  Répondre   Avertir
#15
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)


  Répondre   Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)