Changeset 3295 for branches


Ignore:
Timestamp:
Feb 13, 2013, 1:10:34 PM (12 years ago)
Author:
ldelgass
Message:

Fixes for clientinfo

Location:
branches/Rappture 1.2/gui/scripts
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/Rappture 1.2/gui/scripts/molvisviewer.tcl

    r3294 r3295  
    11001100            # what data objects are using the renderer until be get here.
    11011101            global env
    1102 
     1102            set args ""
    11031103            if { [info exists env(USER)] } {
    1104             lappend hub [exec hostname]
    1105                 lappend user $env(USER)
     1104                lappend args hub [exec hostname]
     1105                lappend args user $env(USER)
    11061106            }
    11071107            if { [info exists env(SESSION)] } {
    1108                 lappend session $env(SESSION)
     1108                lappend args session $env(SESSION)
    11091109            }
    1110             lappend args tool [$_first hints toolId]
    1111             lappend args version [$_first hints toolRevision]
    1112             lappend args dataset [$_first hints label]
    1113             SendCmd "clientinfo [list $args]"
    1114         }
    1115 
    1116         if 1 {
    1117             # Tell the server the name of the tool, the version, and dataset
    1118             # that we are rendering.  Have to do it here because we don't know
    1119             # what data objects are using the renderer until be get here.
    1120             set args ""
    11211110            lappend args tool [$_first hints toolId]
    11221111            lappend args version [$_first hints toolRevision]

  • branches/Rappture 1.2/gui/scripts/nanovisviewer.tcl

    r3294 r3295  
    892892            # what data objects are using the renderer until be get here.
    893893            global env
    894 
     894            set args ""
    895895            if { [info exists env(USER)] } {
    896             lappend hub [exec hostname]
    897                 lappend user $env(USER)
     896                lappend args hub [exec hostname]
     897                lappend args user $env(USER)
    898898            }
    899899            if { [info exists env(SESSION)] } {
    900                 lappend session $env(SESSION)
     900                lappend args session $env(SESSION)
    901901            }
    902902            lappend args tool [$_first hints toolId]

  • branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl

    r3294 r3295  
    983983            # what data objects are using the renderer until be get here.
    984984            global env
    985 
     985            set args ""
    986986            if { [info exists env(USER)] } {
    987             lappend hub [exec hostname]
    988                 lappend user $env(USER)
     987                lappend args hub [exec hostname]
     988                lappend args user $env(USER)
    989989            }
    990990            if { [info exists env(SESSION)] } {
    991                 lappend session $env(SESSION)
     991                lappend args session $env(SESSION)
    992992            }
    993993            lappend args tool [$_first hints toolId]

  • branches/Rappture 1.2/gui/scripts/vtkstreamlinesviewer.tcl

    r3294 r3295  
    10661066            # that we are rendering.  Have to do it here because we don't know
    10671067            # what data objects are using the renderer until be get here.
     1068            global env
    10681069            set args ""
     1070            if { [info exists env(USER)] } {
     1071                lappend args hub [exec hostname]
     1072                lappend args user $env(USER)
     1073            }
     1074            if { [info exists env(SESSION)] } {
     1075                lappend args session $env(SESSION)
     1076            }
    10691077            lappend args tool [$_first hints toolId]
    10701078            lappend args version [$_first hints toolRevision]

  • branches/Rappture 1.2/gui/scripts/vtkviewer.tcl

    r3263 r3295  
    946946            # that we are rendering.  Have to do it here because we don't know
    947947            # what data objects are using the renderer until be get here.
     948            global env
    948949            set args ""
     950            if { [info exists env(USER)] } {
     951                lappend args hub [exec hostname]
     952                lappend args user $env(USER)
     953            }
     954            if { [info exists env(SESSION)] } {
     955                lappend args session $env(SESSION)
     956            }
    949957            lappend args tool [$_first hints toolId]
    950958            lappend args version [$_first hints toolRevision]
Note: See TracChangeset for help on using the changeset viewer.