Changeset 3376 for trunk/gui/scripts

Timestamp:

Feb 27, 2013, 9:39:10 PM (12 years ago)

Author:

gah

Message:

new version of stats file handling without file locking

Location:

trunk/gui/scripts

Files:

• molvisviewer.tcl (modified) (2 diffs)
• vtkheightmapviewer.tcl (modified) (1 diff)

trunk/gui/scripts/molvisviewer.tcl

@@ -1107 +1107 @@
             # what data objects are using the renderer until be get here.
             global env
-            lappend out "hub" [exec hostname]
+            set hub [exec hostname]
             lappend out "viewer" "molvisviewer"
             if { [info exists env(USER)] } {
                 lappend out "user" $env(USER)
             }
+            set session "unknown"
             if { [info exists env(SESSION)] } {
-                lappend out "session" $env(SESSION)
+                set session $env(SESSION)
             }
             set parent [$_first parent -as object]
@@ -1126 +1127 @@
             lappend out "tool_revision" \
                 [$xmlobj get tool.version.application.revision]
-            SendCmd "clientinfo $out"
+            SendCmd "clientinfo $hub/$session [list $out]"
         }
 

trunk/gui/scripts/vtkheightmapviewer.tcl

@@ -989 +989 @@
             lappend out "tool_title"   [$_first hints toolTitle]
             lappend out "tool_dataset" [$_first hints label]
-            SendCmd "clientinfo [list $out]"
+            SendCmd "clientinfo $hub/$user/$session [list $out]"
         }
         set _fieldNames [$_first hints fieldnames]