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

Data Acquisition Statistics @ [set MyInfo] client address is [set ClientIPAddress]

[namespace eval DataAcquisitionStats { if {[llength $::DataAcquisition::ACQSERVERS] > 1} {set html "Acquisition Servers"} else {set html ""} set html }] [namespace eval DataAcquisitionStats { set html "" if {[llength $::DataAcquisition::ACQSERVERS] > 1} { append html ""} else {set html ""} set html }] [namespace eval DataAcquisitionStats { set html "" if {[llength $::DataAcquisition::ACQSERVERS] > 1} {set html "Current Acquisition Server $::DataAcquisition::ACQSERVER"} set html }] [namespace eval DataAcquisitionStats { global MIDAS_DataAcquisitionControlClient_Exists if {[info exists MIDAS_DataAcquisitionControlClient_Exists]} then { set html "Show ALL Data Acquisition Servers?<" append html "input type=checkbox name=ALLSERVERS" if {$allservers == 1} {append html " checked"} append html " onClick=click_ALLSERVERS(document.Stats)" set html } }]

[namespace eval DataAcquisitionStats { if {$allservers == 0} {set rc [catch {DrawStatsSINGLE} m]} else {set rc [catch {DrawStatsALL} m]} if {$rc != 0} {InsertLog "$m"} else {set m} }]
[namespace eval DataAcquisitionStats { if {$ShowLogFlag == 1} then { set html "" append html "

" append html "" append html "

" set html } }]

[namespace eval DataAcquisitionStats { if {$ShowLogFlag == 1} then { set html "" } else { set html "" } set html }] [namespace eval DataAcquisitionStats { 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 DataAcquisitionStats { set html "" if {$AutoUpdate == 1 && $::DataAcquisitionControl::AcqCode == 1} { append html "" } else { append html "" } set html }] [namespace eval DataAcquisitionStats { if {$JS != ""} { append JS "\");" set html "" } }] [mypage::contents [list Home ../index.tml ]] [mypage::footer]