Changeset 680 for trunk

Timestamp:

Apr 24, 2007, 9:07:18 AM (17 years ago)

Author:

mmc

Message:

Fixed the handling of MiddlewareTime? statements so that any extra parameters
sent from the subjobs (venue=, etc.) are passed right through.

File:

• trunk/gui/scripts/tool.tcl (modified) (1 diff)

trunk/gui/scripts/tool.tcl

@@ -205 +205 @@
                 set data($key) $val
             }
-
-            puts stderr "MiddlewareTime: job=[expr {$jobnum+$data(job)}] event=subsimulation start=[expr {$times(start)+$data(start)}] walltime=$data(walltime) cputime=$data(cputime) status=$data(status)"
+            set data(job) [expr {$jobnum+$data(job)}]
+            set data(event) "subsimulation"
+            set data(start) [expr {$times(start)+$data(start)}]
+
+            set stmt "MiddlewareTime:"
+            foreach key {job event start walltime cputime status} {
+                # add required keys in a particular order
+                append stmt " $key=$data($key)"
+                unset data($key)
+            }
+            foreach key [array names data] {
+                # add anything else that the client gave -- venue, etc.
+                append stmt " $key=$data($key)"
+            }
+            puts stderr $stmt
             incr subjobs