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

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