[Doc_Dynamic] [global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]] Run Control @ [global env; set env(ComputerName)]

Data Acquisition Run Control @ [set MyInfo] client address is [set ClientIPAddress]

[namespace eval DataAcquisitionControl { if {[llength $::DataAcquisition::ACQSERVERS] > 1} {set html "Acquisition Servers"} else {set html ""} set html }] [namespace eval DataAcquisitionControl { set html "" if {[llength $::DataAcquisition::ACQSERVERS] > 1} { append html ""} else {set html ""} set html }] [namespace eval DataAcquisitionControl { if {[llength $::DataAcquisition::ACQSERVERS] > 1} then { set html "Act on ALL Data Acquisition Servers?<" append html "input type=checkbox name=ALLSERVERS" if {$allservers == 1} {append html " checked"} append html " onClick=click_ALLSERVERS(document.RunControl)" set html } }]

[namespace eval DataAcquisitionControl { set html "Server State" append html "" set k 1 for {set i 0} {$i < $NRows} {incr i} { append html "" for {set j 0} {$j < $NCols} {incr j} { if {$SState($k) == 1} { append html "" } append html "" } append html "
" } else { append html "" } if {$k <= [llength $::DataAcquisition::ACQSERVERS]} { set s [lindex $::DataAcquisition::ACQSERVERS [expr $k-1]] append html "" } else { append html "" } incr k append html "
" if {$allservers == 0} {set html ""} set html }]

[namespace eval DataAcquisitionControl { if {$allservers == 0 && [llength $::DataAcquisition::ACQSERVERS] > 1} then \ {set html "Current Acquisition Server [set ::DataAcquisition::ACQSERVER]"} }]

[namespace eval DataAcquisitionControl { set html "" append html "
" append html "" switch $AcqCode { 0 { append html "" append html "" } 1 { append html "" append html "" } 2 { append html "" append html "" } default {} } set html }]

[namespace eval DataAcquisitionControl { if {$allservers == 0} { ;# for selected server give graphical status set html "

" append html "" switch $AcqCode { 0 {append html " "} 1 {append html " "} 2 {append html " "} 3 {append html " "} 4 {append html " "} 5 {append html " "} 6 {append html " "} 7 {append html " "} 8 {append html " "} 9 {append html " "} default {} } append html "

" } else { ;# show state of all servers set html "

" append html "" set j 0 set k 0 foreach item $::DataAcquisition::ACQSERVERS { if {$j == 0} {append html ""} append html ""; set j 0} incr k } append html "
" append html "" append html "" append html "" append html "" if {[lindex $::DataAcquisition::EnableHistogramming $k] == 1} {append html ""} \ else {append html ""} if {[lindex $::DataAcquisition::EnableDataTransfer $k] == 1} {append html ""} \ else {append html ""} append html "
$item$::DataAcquisition::AcqSysState($item)H X 
" incr j if {$j == 4} {append html "

" } set html }]

" append html "" append html "
[namespace eval DataAcquisitionControl { if {$allservers == 0} { ;# for selected server set html "Histogramming on  " append html "" append html "" append html "Data Transfer on  " append html "" } else { set html "Histogramming" append html "" append html "" append html "" append html "Data transfer" append html "" append html "" } set html }]

[namespace eval DataAcquisitionControl { if {$ShowLogFlag == 1} then { set html "" append html "

" append html "" append html "

" set html } }]

              

System functions (Only use if you know what they do!!!)  

[namespace eval DataAcquisitionControl { if {$ShowLogFlag == 1} then { set html "" } else { set html "" } set html }] [namespace eval DataAcquisitionControl { 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 DataAcquisitionControl { set html "" if {$AcqCode == 0 || $AcqCode == 2 || $AcqCode == 6} { set html "" } if {$AcqCode == 3 || $AcqCode == 4 || $AcqCode == 5 || $AcqCode == 7 || $AcqCode == 9} { set html "" } if {$AcqCode == 8} { set html "" } set html }] [namespace eval DataAcquisitionControl { set html "" if {$INFO != ""} { append html "" } if {$JS != ""} { append JS "\");" append html "" } set html }]
[mypage::contents [list Home ../index.tml "Service Definition" ../MIDASWebServices/DataAcquisitionControl.wsdl]] [mypage::footer]