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

Merge Statistics @ [set MyInfo] client address is [set ClientIPAddress]

$m"} set z [catch {source [file join $env(MIDASBASE) TclHttpd tcl Common netvar.tcl]} m] if {$z != 0} {puts "loading netvar.tcl > $m"} set z [catch {source [file join $env(MIDASBASE) TclHttpd tcl Common options.tcl]} m] if {$z != 0} {puts "loading options.tcl > $m"} set z [catch {source [file join $env(MIDASBASE) TclHttpd tcl Common db.tcl]} m] if {$z != 0} {puts "loading db.tcl > $m"} set z [catch {source [file join $env(MIDASBASE) TclHttpd tcl Common sigtask.tcl]} m] if {$z != 0} {puts "loading sigtask.tcl > $m"} set z [catch {source [file join $env(MIDASBASE) TclHttpd tcl Common dataacq.tcl]} m] if {$z != 0} {puts "loading dataacq.tcl > $m"} cd [file join $env(MIDASBASE) TclHttpd Html MERGE Stats] set z [catch {source MergeStats.tcl} m] if {$z != 0} {puts "loaded MergeStats.tcl > $z $m"} set z [catch {source stats.defn.tcl} m] if {$z != 0} {puts "loaded stats.defn.tcl > $z $m"} }] >
[namespace eval MergeStats { # first counters set html "

" append html "Counters" append html "" set counters [do_GetCounters] set count 0 for {set i 0} {$i < 16} {incr i} { append html "" for {set j 0} {$j < 4} {incr j} { if {$ITEM($count) != ""} { append html "" append html "" } incr count } append html "" } append html "
$ITEM($count)[lindex $counters $count]
" append html "

" # then rates append html "

" append html "Rates" append html "" append html "" set rates [do_GetRates] set rate 0 for {set i 0} {$i < 16} {incr i} { append html "" for {set j 0} {$j < 4} {incr j} { if {$ITEM($rate) != ""} { append html "" append html "" } incr rate } append html "" } append html "" append html "
$ITEM($rate)[lindex $rates $rate]
" append html "

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

" append html "" append html "

" set html } }]

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