en fait ta proc se termine la
TCL
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
}
C'est en reconnaissant ses erreurs que l'on progresse