Changeset 6640


Ignore:
Timestamp:
Nov 15, 2016 2:09:59 PM (5 years ago)
Author:
ldelgass
Message:

Report dataset type and size to pymol server in clientinfo stats

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/molvisviewer.tcl

    r6052 r6640  
    910910            set serial    1
    911911
    912             if { $_reportClientInfo }  {
    913                 set parent [$dataobj parent -as object]
    914                 while { $parent != "" } {
    915                     set xmlobj $parent
    916                     set parent [$parent parent -as object]
    917                 }
    918                 set info {}
    919                 lappend info "tool_id"      [$xmlobj get tool.id]
    920                 lappend info "tool_name"    [$xmlobj get tool.name]
    921                 lappend info "tool_title"   [$xmlobj get tool.title]
    922                 lappend info "tool_command" [$xmlobj get tool.execute]
    923                 lappend info "tool_revision" \
    924                     [$xmlobj get tool.version.application.revision]
    925                 SendCmd "clientinfo [list $info]"
    926             }
    927912            foreach _atom [$dataobj children -type atom components.molecule] {
    928913                set symbol [$dataobj get components.molecule.$_atom.symbol]
     
    946931                incr serial
    947932            }
     933            if { $_reportClientInfo }  {
     934                set parent [$dataobj parent -as object]
     935                while { $parent != "" } {
     936                    set xmlobj $parent
     937                    set parent [$parent parent -as object]
     938                }
     939            }
    948940            if {"" != $data1} {
    949941                # Save the PDB data in case the user wants to later save it.
    950942                set _pdbdata $data1
    951943                set numBytes [string length $data1]
     944
     945                if { $_reportClientInfo }  {
     946                    set info {}
     947                    lappend info "tool_id"      [$xmlobj get tool.id]
     948                    lappend info "tool_name"    [$xmlobj get tool.name]
     949                    lappend info "tool_title"   [$xmlobj get tool.title]
     950                    lappend info "tool_command" [$xmlobj get tool.execute]
     951                    lappend info "tool_revision" \
     952                        [$xmlobj get tool.version.application.revision]
     953                    lappend info "dataset_type" "molecule-xml"
     954                    lappend info "dataset_size"  $numBytes
     955                    lappend info "dataset_tag"   $model-$state
     956                    SendCmd "clientinfo [list $info]"
     957                }
    952958
    953959                # We know we're buffered here, so append the "loadpdb" command
     
    964970                set numBytes [string length $data2]
    965971
     972                if { $_reportClientInfo }  {
     973                    set info {}
     974                    lappend info "tool_id"      [$xmlobj get tool.id]
     975                    lappend info "tool_name"    [$xmlobj get tool.name]
     976                    lappend info "tool_title"   [$xmlobj get tool.title]
     977                    lappend info "tool_command" [$xmlobj get tool.execute]
     978                    lappend info "tool_revision" \
     979                        [$xmlobj get tool.version.application.revision]
     980                    lappend info "dataset_type" "pdb"
     981                    lappend info "dataset_size"  $numBytes
     982                    lappend info "dataset_tag"   $model-$state
     983                    SendCmd "clientinfo [list $info]"
     984                }
     985
    966986                # We know we're buffered here, so append the "loadpdb" command
    967987                # with the data payload immediately afterwards.
     
    971991            }
    972992            # lammps dump file overwrites pdb file (change this?)
    973             set lammpstypemap [$dataobj get components.molecule.lammpstypemap]
    974993            set lammpsdata [$dataobj get components.molecule.lammps]
    975994            if {"" != $lammpsdata} {
     995                set lammpstypemap [$dataobj get components.molecule.lammpstypemap]
    976996                set data3 ""
    977997                set modelcount 0
     
    10131033                    set numBytes [string length $data3]
    10141034
     1035                    if { $_reportClientInfo }  {
     1036                        set info {}
     1037                        lappend info "tool_id"      [$xmlobj get tool.id]
     1038                        lappend info "tool_name"    [$xmlobj get tool.name]
     1039                        lappend info "tool_title"   [$xmlobj get tool.title]
     1040                        lappend info "tool_command" [$xmlobj get tool.execute]
     1041                        lappend info "tool_revision" \
     1042                            [$xmlobj get tool.version.application.revision]
     1043                        lappend info "dataset_type" "lammps"
     1044                        lappend info "dataset_size"  $numBytes
     1045                        lappend info "dataset_tag"   $model-$state
     1046                        SendCmd "clientinfo [list $info]"
     1047                    }
     1048
    10151049                    # We know we're buffered here, so append the "loadpdb"
    10161050                    # command with the data payload immediately afterwards.
Note: See TracChangeset for help on using the changeset viewer.