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 } }