comment fais en tcl?

[djkenny]

tclcopier

bind mode - *-o*  AutoReOp
proc AutoReOp {nick host hand chan mode pseudo} {
    if {![string equal -nocase $pseudo $nick] && [string equal -nocase $chan "#ton_salon"] && [botisop $chan]} {
       putserv "mode $chan +o $pseudo"
    }
}