Probleme sur deux codes tcl...

[heretoc]

Voila Merwin ce que tu me demander.
La variable text:

tclcopier

set text [lrange [split $raw_brute] 5 end];

La fonction qui appel la commande:

tclcopier

if {$commande == "!addtaff"} {
	if {$Hosts_Equipe_Niveaux >= 9} {
		set Sortie 1;
			addtaff:addtaff $text $pseudonyme;
		}

La commande :

tclcopier

proc addtaff:addtaff {text pseudonyme} {
global Clam;
set f [open "[Clam:scriptdir]db/taff.db" "a"]
puts $f "([clock format [clock seconds] -format " %x  %X"] ) $text par $pseudonyme"
close $f
putdcc $Clam(idx) ":$Clam(pseudo) NOTICE $pseudonyme OK. Travail à faire bien ajouté."
}