[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 # 0 stopped # 1 going # 2 reset # 3 setting up # 4 changing to going # 5 changing to stopped # 6 error # 7 changing to reset # 8 undefined # 9 executing 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 {} } 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 {$::DataAcquisition::DataTransferStreams == 1} { if {[lindex $::DataAcquisition::EnableDataTransfer $k] == 1} {append html ""} \ else {append html ""} } if {$::DataAcquisition::DataTransferStreams == 2} { if {[lindex $::DataAcquisition::EnableDataTransfer $k] == 1} {append html ""} \ else {append html ""} if {[lindex $::DataAcquisition::EnableDataTransfer2 $k] == 1} {append html ""} \ else {append html ""} } append html "
$item$::DataAcquisition::AcqSysState($item)H X X X 
" incr j if {$j == 4} {append html "

" } global MIDAS_TapeServer_Exists if {[info exists MIDAS_TapeServer_Exists]} { set rc [catch {Inform TapeService do_update}] set rc [catch {Inform TapeService do_getSTATE} m] if {$rc != 0} { set rc $errorCode return -code error -errorcode $errorCode -errorinfo "[first [split $errorInfo \n]]" } append html "

" append html "" append html "" append html "" append html "

" } set html }]

[namespace eval DataAcquisitionControl { set html "" if {$allservers == 0} { ;# for selected server append html "" if {$::DataAcquisition::DataTransferStreams == 1} { append html "" } if {$::DataAcquisition::DataTransferStreams == 2} { append html "" append html "" } set html++ "" global MIDAS_MERGERunControl_Exists if {[info exists MIDAS_MERGERunControl_Exists]} { append html++ "" } global MIDAS_TapeServer_Exists if {[info exists MIDAS_TapeServer_Exists]} { append html++ "" } append html [set html++] } else { append html "" append html "
" append html "Histogramming on  " append html "" append html "" append html "Data Transfer on  " append html ""} else {append html " value=on>"} append html "" append html "Data Transfer #1 on  " append html ""} else {append html " value=on>"} append html "" append html "Data Transfer #2 on  " append html ""} else {append html " value=on>"} append html "" append html++ "Merge Control enabled  " append html++ "" append html++ "" append html++ "Data Storage Control enabled  " append html++ "" append html++ "" append html "Histogramming" append html "" append html "" append html "" append html "Data transfer" if {$::DataAcquisition::DataTransferStreams == 1} { append html "" append html "" } if {$::DataAcquisition::DataTransferStreams == 2} { append html "" append html "" append html "" append html "" } } set html }]

[namespace eval DataAcquisitionControl { if {$::DataAcquisition::PROJECT == "AIDA" } { set html "

" append html "
" append html "" append html "

" set html } }] [namespace eval DataAcquisitionControl { if {$::DataAcquisition::PROJECT == "CAEN" || $::DataAcquisition::PROJECT == "MEIS" || $::DataAcquisition::PROJECT == "ISOL"} { global MIDAS_TapeServer_Exists if {[info exists MIDAS_TapeServer_Exists]} { set rc [catch {Inform TapeService do_inquireacqstatus} m] if {$rc != 0} { set rc $errorCode return -code error -errorcode $errorCode -errorinfo "[first [split $errorInfo \n]]" } set html "

" append html "
" append html "Data Storage: VolName = [set ::TapeService::VolN] ; FileName = [set ::TapeService::FileN]" append html "

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

" append html "" append html "

" set html } }]

                    [namespace eval DataAcquisitionControl { global MIDAS_TapeServer_Exists set html "" if {[info exists MIDAS_TapeServer_Exists]} { set 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]