[Doc_Dynamic] [global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]] VME: [set ::V1495::ModuleName]#[set ::V1495::ModuleIndex] Statistics @ [global env; set env(ComputerName)]

[set ::V1495::ModuleName]#[set ::V1495::ModuleIndex] Statistics @ [set MyInfo] client address is [set ClientIPAddress]

[namespace eval V1495 {global env; cd [file join $env(MIDASBASE) TclHttpd Html VME]}] [namespace eval V1495 { source Global.tcl source [file join V1495 V1495.tcl] }]

[namespace eval V1495 { set html "" if {$CountsFlag == 1} { append html "" append html "" append html "" append html "
" append html "Counts" append html "
" append html "" append html "" append html "" for {set i 0} {$i < 8} {incr i} { append html "" } for {set i 1} {$i <= 12} {incr i} { append html "" append html "" for {set j 0} {$j < 8} {incr j} { set Data "[ReadRegister Stats$i.Ch$j] " append html "" } } append html "
Channel$i
Board $i$Data
" set html } }] [namespace eval V1495 { set html "" if {$RatesFlag == 1} { append html "" append html "" append html "" append html "" append html "
" append html "Rates" append html "
" set rates [do_rates] append html "" append html "" append html "" for {set i 0} {$i < 8} {incr i} { append html "" } set n 0 for {set i 1} {$i <= 12} {incr i} { append html "" append html "" for {set j 0} {$j < 8} {incr j} { set Data [lindex $rates $n] append html "" incr n } } append html "
Channel$i
Board $i$Data
" set html } }]

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

[namespace eval V1495 { if {$JS != ""} { append JS "\");" set html "" } }] [mypage::contents [list Home ../index.tml]] [mypage::footer]