logging: added sceonds to log_cmd if a command takes more than 5 seconds

Signed-off-by: Øyvind Harboe <[email protected]>

Author: oharboe

flow/scripts/util.tcl

@@ -1,7 +1,13 @@
 proc log_cmd {cmd args} {
   # log the command, escape arguments with spaces
-  puts "$cmd [join [lmap arg $args {expr {[string match {* *} $arg] ? "\"$arg\"" : $arg}}] " "]"
+  puts -nonewline "$cmd[join [lmap arg $args {expr {[string match {* *} $arg] ? " \"$arg\"" : " $arg"}}] ""]"
+  set start [clock seconds]
   $cmd {*}$args
+  set time [expr {[clock seconds] - $start}]
+  if {$time >= 5} {
+    puts -nonewline " ($time seconds)"
+  }
+  puts ""
 }
 
 proc fast_route {} {