Un soucis avec TCL

[djkenny]

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

tclcopier

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