comment fais en tcl?

[zyrte]

Non le deop ne marche pas
en on join, j'ai :

bind join - "*" opauto
proc opauto { nick uhost hand chan } {
if {[string tolower $chan] =="#le-bistrot" && [isop $botnick $chan]} {
putserv "mode $chan +o $nick"
}
}

mais lors d'un deop, rien ne marche