action non déclarer.

[djkenny]

en fait ta proc se termine la

tclcopier

proc fepo {nick action arg} {
   set arg [charfilter $arg]
   set fa [open "$basedir/$autorise(fichier)" a+]
   seek $fa 0
   while {![eof $fa]} {
      set get [gets $fa]
      if {[string equal [string tolower $get] [string tolower $nick]]==1} {
      }
   }
   close $fa
   return 0
}