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

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

Module   [ if {[set ::V1724::AcqStatus.B8] == 1} { set html "Module Ready" } else { set html "Warning: Module NOT Ready" } set html ] [ set ROC_FPGARev [::V1724::ReadRegister FPGARev] set AMC_FPGARev [::V1724::ReadRegister Ch0.FPGARev] set html "Module firmware: " append html "[expr ($ROC_FPGARev >> 8) & 255]" append html "." append html "[expr $ROC_FPGARev & 255]" append html "_" append html "[expr ($AMC_FPGARev >> 8) & 255]" append html "." append html "[expr $AMC_FPGARev & 255]" set html ]

Module Setup

Module Register   Act on ALL Modules?

[namespace eval V1724 { 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 V1724 { set updateproc [lindex $ChRegItem 3] if {$updateproc != "null"} {eval $updateproc} set drawproc [lindex $ChRegItem 4] if {$drawproc != "null"} {eval $drawproc} }]



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

" append html "" append html "

" set html } }]

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