problème sur un principe de tcl [résolu]

[MenzAgitat]

il manque un "{" :

tclcopier

set nadmin "Orion,systak,test"
bind pub - !xkick kick
proc kick {nick uhost hand chan arg} {
   set n0 [string tolower [lindex $arg 0]]
   set protected [split [string tolower $::nadmin] ","]
   if {[lsearch $protected $n0] == -1} {
      putquick "kick $chan $n0 kicked"
   }
}