Posted to tcl by kbk at Thu Jul 14 19:09:45 GMT 2011view pretty

set counter 3
foreach line [split $expect_out(buffer) \n] {
    if {[regexp {(Ten\S+\s+\[[uU]p\/[uU]p\]\r)} $line]} {
	log_user $line
	set counter 0
    } elseif {[incr counter] <= 2} {
	log_user $line
    }
}