Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


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 ?
#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 ;)
Away
#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.
#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 ;)
Away
#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.
#6
En party-line, ça donne quoi si tu fais:

Code:
.binds join
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
#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.
#8
si tu fais un restart, tu n'as pas d' erreurs?
C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#9
Aucuns rapports d'erreurs.
#10
Bonjour,

Voici ce que j'obtien moi :

Quote:[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 ?
#11
Oui j'ai fais tout ça.
#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 ?
#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
#14
et en PL .binds join

Te retourne rien comme résultat ?
#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.


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Bug] Soucis avec un tcl Dark.tcl de Kyrien d'après la création de GeoZzZ [Sujet Reformulé] KeeViiNou 2 3,249 24/02/2017, 10:59
Last Post: KeeViiNou
  [Demande] Soucis avec expr aliasangelius 6 4,166 13/01/2017, 18:06
Last Post: aliasangelius
  Soucis avec un tcl KeeViiNou 1 3,706 08/05/2016, 14:06
Last Post: KeeViiNou
  [Résolu] Soucis avec une commande Scorpio 11 6,383 22/01/2016, 12:58
Last Post: Scorpio
  Soucis de codage avec un kick KeeViiNou 14 8,499 26/03/2014, 23:18
Last Post: KeeViiNou
  Soucis avec un codage KeeViiNou 9 6,328 14/03/2014, 21:22
Last Post: aliasangelius
  Soucis avec un tcl de sajoin KeeViiNou 15 11,134 14/03/2014, 10:51
Last Post: KeeViiNou
  Petit soucis avec un script d'annonce de la saint du jour, etc... loulou7593 3 5,902 19/11/2011, 14:53
Last Post: CrazyCat
  petit soucis avec logger lesny 54 33,226 12/08/2011, 18:52
Last Post: lesny
  soucis avec irix lesny 5 5,486 29/06/2011, 21:15
Last Post: djkenny

Forum Jump:


Users browsing this thread: 1 Guest(s)