Posted to tcl by kbk at Thu Jul 14 19:09:45 GMT 2011view raw
- 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
- }
- }