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

DT5780 Control @ [set MyInfo] client address is [set ClientIPAddress]

[namespace eval VMEConfig { if {![info exists ::VMEControl::started]} { set html "" } }] $m"} }] > [namespace eval VMEConfig { if {[ReadVMERegister HasBeenConfigured] == 0} { set html "" } }]

Module   [ if {[set ::DT5780::AcqStatus.B8] == 1} { set html "Module Ready" } else { set html "Warning: Module NOT Ready" } set html ] [ if {[set ::DT5780::AcqStatus.B2] == 1} { set html "Acquisition Running" } else { set html "Module Idle" } set html ] [ if {[::DT5780::ReadRegister "FirmWareLicense"] == 0} {set html "WARNING: firmware license expired"} else {set html "DPP firmware OK"} set html ] [ set html "Module firmware: " append html "[expr ([set ::DT5780::ROC_FPGARev] >> 8) & 255]" append html "." append html "[expr [set ::DT5780::ROC_FPGARev] & 255]" append html "_" append html "[expr ([set ::DT5780::AMC_FPGARev] >> 8) & 255]" append html "." append html "[expr [set ::DT5780::AMC_FPGARev] & 255]" set html ]

Module Setup

Module Register   Act on ALL Modules?

[namespace eval DT5780 { set updateproc [lindex $ModuleRegItem 3] if {$updateproc != "null"} {eval $updateproc} set drawproc [lindex $ModuleRegItem 4] if {$drawproc != "null"} {eval $drawproc} }]

System functions (Expert users only for debugging purposes!!!)                

Channel Setup

Channel Register   Act on ALL Channels?

[namespace eval DT5780 { set updateproc [lindex $ChRegItem 3] if {$updateproc != "null"} {eval $updateproc} set drawproc [lindex $ChRegItem 4] if {$drawproc != "null"} {eval $drawproc} }]

[namespace eval DT5780 { variable Name if {[set Name] == "V1724PHA"} {set html ""} else {set html ""} }]


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

" append html "" append html "

" set html } }]

[namespace eval DT5780 { if {$ShowLogFlag == 1} then { set html "" } else { set html "" } set html }] [namespace eval DT5780 { if {$LogFlag == 1} then { set html "" } else { set html "" } set html }] [namespace eval DT5780 { if {$DebugFlag == 1} then { set html "" } else { set html "" } set html }]

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

[namespace eval DT5780 { if {$JS != ""} { append JS "\");" set html "" } }]