Tu peux essayer ceci :
tcl
if {[lindex $arg 1]=="QUIT"} { set nick [string trim [lindex $arg 0] :]
set chan [string trim [lrange $arg 2 end] :]
set ident [string trim [lindex $arg 4] :]
set host [string trim [lindex $arg 5] :]
set real [string trim [lrange $arg 8 end] :]
putdcc $geofront(idx) ":$geofront(pseudo) PRIVMSG $geofront(salon) \0034SIGNED OFF : \0033 $nick \0034( $ident@$host ) \00310( $real ) "
return 0
}