Soucis tcl - bind join

[Meribre]

Bonjour à tous
Apres longue reflexions j'ai pas été trés doué lool
Je voudrais que des que quelqu'un se connecte à mon irc mon eggdrop entre dans son privé lui faire une annonce :)
Si quelqu'un pourrait m'aider ca me ferait plaisir,
Merci bcp

[heretoc]

tcl

bind join - "*" join:
proc join:  { nick uhost hand chan } {
 if {$chan == "#ton_channel"} {
putserv "PRIVMSG $nick :Ajoute ton message"
return 0
}
}

[Meribre]

Merci à toi Heretoc pour ton aide :)

[CrazyCat]

Il y a quand même moyen de faire mieux. Tout d'abord, on peut forcer dans le bind join le canal pour ne pas avoir à le vérifier ensuite.
Et il faut aussi éviter que l'eggdrop se parle seul, selon les tcls chargés ça peut être dangereux:

tcl

bind  join - "#canal *" join:msg
proc join:msg { nick uhost hand chan } {
   if {$nick == $::botnick } { return 0 }
   putserv "PRIVMSG $nick :Ajoute ton message"
   return 0
}

[heretoc]

En meme temps il y a XX solutions, suffit juste de ce documenter sur les binds et essayer de faire ton propre code pour qu'ont te corrige.

Crazycat et moi on ta mis des exemples mais tu peut faire encore beaucoup mieu
Exemple: faire en sorte qu'il garde l'utilisateur en mémoire Xminutes pour pas dire de nouveau le message si l'utilisateur "bug"