Un soucis avec TCL
#1
Salut,

J'ai actuellement rencontré un soucis avec un script tcl, à vrai dire le script ne répond pas, en sachant bien qu'il a bien été poser, et aucunes modifications a pu rendre le script inutilisable.

En tapant (.tcl set ::errorInfo) voilà le message que j'ai :

[16:46:10] <(eggdrop)> Tcl: invalid command name "storenote"
[16:46:11] <(eggdrop)> Tcl: while executing
[16:46:11] <(eggdrop)> Tcl: "storenote $_from $_to $_data $_idx"

J'ai aussi essayer de reload l'eggdrop, mais en vin ça n'a toujours pas fonctionner, je vais vous mettrez le script tcl :

bind join - "*" join:
proc join: { nick uhost hand chan } {
if {$chan == "#Test"} {
putserv "PRIVMSG $nick :Bienvenue à vous sur #Test !"
return 0
}
}

Voilà quoi, l'eggdrop n'envoie pas de message quand une personne, se connecte dans mon salon, pouvez-vous m'en dire d'avantages à ce sujet là s'il-vous-plaît ?
Répondre Avertir
#2
salut,

essais de remplacer
TCL
if {$chan == "#Test"} {


par
TCL
if [string equal -nocase $chan "#test"] {


C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#3
Ca ne marche toujours pas, je regardes même dans la partyline pour voir si il n'y a pas de messages d'erreurs.
Il ne répond toujours pas au script, et il n'indique pas une erreur.

Peut-être est-ce la version de l'eggdrop ? j'ai la version 1.6.20 !
Pour ma par, je ne penses pas que la version influence sur le script tcl, je peux me tromper aussi.
Répondre Avertir
#4
essais de changer le nom de la proc, j ai un doute sur le bon fonctionnement du "join:" essais de mettre un truc du genre
TCL
bind join - "*" join:welcome
proc join:welcome { nick uhost hand chan } {
  if [string equal -nocase $chan "#test"] {
      putserv "PRIVMSG $nick :Bienvenue à vous sur $chan !"
  }
}


C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#5
Je viens de le faire, j'ai ensuite fait un rehash sur l'eggdrop, mais ça ne marche toujours pas.
Je sais pas si l'éventuelle souci, viendrai du tcl, ou alors du eggdrop même.
Répondre Avertir
#6
En party-line, ça donne quoi si tu fais:
Code :
.binds join
Répondre
#7
Ca donne ça :

[16:07:46] <(eggdrop)> [16:06:58] #dorset_sp# binds join
[16:07:46] <(eggdrop)> Liaisons de commande:
[16:07:46] <(eggdrop)> TYPE FLAGS COMMAND HITS BINDING (TCL)
[16:07:46] <(eggdrop)> No command bindings for type: join.
Répondre Avertir
#8
si tu fais un restart, tu n'as pas d' erreurs?
C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#9
Aucuns rapports d'erreurs.
Répondre Avertir
#10
Bonjour,

Voici ce que j'obtien moi :

Citation :[17:32:25] ( alias_angelius ) .binds join
[17:32:25] <Xbot02> [16:32:32] #alias_angelius# binds join
[17:32:26] <Xbot02> Liaisons de commande:
[17:32:26] <Xbot02> TYPE FLAGS COMMAND HITS BINDING (TCL)
[17:32:26] <Xbot02> join -|- * 0 join:welcome

ensuite je fait un part/join sur le salon ou j'ai pris soin de mettre dans le code qui à été mis j'ai juste remplace #test part #Services

et voici le résultat :

[quote]
[17:32:46] ( Part ) * alias_angelius * (00Hadmin@430935128.9tel.net) de #services
[17:32:46] ( Join ) * alias_angelius * (00Hadmin@430935128.9tel.net) sur #services
[17:32:46] ( Information ) Mode +sntO
[17:32:46]
[17:32:47] ( Privé ) * Xbot02 * (user-FR@7596679435.talk-me.fr)

[17:32:47] ( Xbot02 ) Bienvenue à vous sur #Services !
[quote]

en ayant le tcl :

TCL
bind join - "*" join:welcome
proc join:welcome { nick uhost hand chan } {
  if [string equal -nocase $chan "#Services"] {
      putserv "PRIVMSG $nick :Bienvenue à vous sur $chan !"
  }
}



Donc question :

as-tu mis le tcl dans le dossier scripts ?
as-tu mis dans ta conf de l'eggdrop la ligne : source scripts/letcl.tcl
as-tu rehash l'eggdrop ?
Répondre Avertir
#11
Oui j'ai fais tout ça.
Répondre Avertir
#12
hmm tente un .restart voir même si pour ceci normalement pas besoin mais essaye.

Ps : tu te situe bien sur le salon ou le bot doit te pv donc : #test ?
Répondre Avertir
#13
Je viens à nouveau faire un .restart, le bot s'est déconnecté parfaitement, sans message d'erreur.
Et oui, je me situes bien sur le salon #Test
Répondre Avertir
#14
et en PL .binds join

Te retourne rien comme résultat ?
Répondre Avertir
#15
Ca m'affiche ça :

[16:07:46] <(eggdrop)> [16:06:58] #dorset_sp# binds join
[16:07:46] <(eggdrop)> Liaisons de commande:
[16:07:46] <(eggdrop)> TYPE FLAGS COMMAND HITS BINDING (TCL)
[16:07:46] <(eggdrop)> No command bindings for type: join.
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté