essais de remplacer ca:
par
tcl
if {[join [lrange $text 2 5]] == "Notice -- Client connecting"} {
par
tcl
if {[string match -nocase "*notice*client*connecting*" $text]} {