[Doc_Dynamic] [global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]] Spectrum Browser @ [global env; set env(ComputerName)] $m"} }] >

Spectrum Browser @ [set MyInfo] client address is [set ClientIPAddress]

[namespace eval SpectrumServer { if {[llength $::DataAcquisition::ACQSERVERS] > 1} {set html "Acquisition Servers"} else {set html ""} set html }] [namespace eval SpectrumServer { set html "" if {[llength $::DataAcquisition::ACQSERVERS] > 1} { append html ""} else {set html ""} set html }] [namespace eval SpectrumServer { if {[llength $::DataAcquisition::ACQSERVERS] > 1} then \ {set html "Current Acquisition Server [set ::DataAcquisition::ACQSERVER]"} }]

[namespace eval SpectrumServer { if {[llength $::DataAcquisition::ACQSERVERS] > 1} {set html "
"} }]

[namespace eval SpectrumServer { if {$DiscSas == 1} { set html "" append html "\n" append html "\n" append html "" append html "" set html } }] [namespace eval SpectrumServer { set html "" append html "" set html }] [namespace eval SpectrumServer { set html "" append html "" set html }] [namespace eval SpectrumServer { set html "" append html "" set html }]
" append html "Directory Name:" append html " " append html "" append html "" append html "" append html "" append html "
" append html "Spectrum Name:" append html "" append html "" if {$multimode == "single"} { append html "" set s [lsort -dictionary $SpectrumList] foreach item $s { set name [lindex $item 1] append html "" } } append html "" set html }] [namespace eval SpectrumServer { set html "" if {$multimode == "single"} { append html "" } else { append html "" } append html "" if {$multimode == "multi"} { append html "" } else { append html "" } append html "" append html "" append html "" append html "

Channel:

XMin XMax YMin YMax

[namespace eval SpectrumServer { if {$ShowLogFlag == 1} then { set html " \

\ \

\ " } }]

[namespace eval SpectrumServer { if {$AUTOMODE == "OFF"} then { set html "" } else { set html "" } set html }]
\ \ \ \
[namespace eval SpectrumServer { global env variable OPT cd [file join $env(MIDASBASE) TclHttpd Html Spectrum] set z [catch {source opt.$OPT.tml} m] if {$z != 0} {puts "loading opt.$OPT.tml > $m"} set html }] [namespace eval SpectrumServer { global env cd [file join $env(MIDASBASE) TclHttpd Html Spectrum] set z [catch {source opt.SD.tml} m] if {$z != 0} {puts "loading opt.SD.tml > $m"} set html }]
[namespace eval SpectrumServer { if {$ShowLogFlag == 1} then { set html "" } else { set html "" } set html }] [namespace eval SpectrumServer { if {$LogFlag == 1} then { set html "" } else { set html "" } set html }]

Last Updated: [clock format [clock seconds] -format "%B %d, %Y %H:%M:%S"]

[namespace eval SpectrumServer { set html "" if {$AUTOMODE == "ON" && $AUTOSTATE == 0} { append html "" set AUTOSTATE 1 } if {$AUTOMODE == "OFF" && $AUTOSTATE == 1} { append html "" set AUTOSTATE 0 } set html }] [namespace eval SpectrumServer { if {$JS != ""} { append JS "\");" set html "" } }] [mypage::contents [list Home ../index.tml]] [mypage::footer]