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

MRGE 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"} cd [file join $env(MIDASBASE) TclHttpd Html MERGE MRGEStats] set z [catch {source MRGEStats.tcl} m] if {$z != 0} {puts "loaded MRGEStats.tcl > $z $m"} set z [catch {source MRGEStatsSINGLE.tcl} m] if {$z != 0} {puts "loaded MRGEStatsSINGLE.tcl > $z $m"} set z [catch {source MRGEStatsALL.tcl} m] if {$z != 0} {puts "loaded MRGEStatsALL.tcl > $z $m"} set z [catch {source stats.defn.tcl} m] if {$z != 0} {puts "loaded stats.defn.tcl > $z $m"} }] >

[namespace eval MRGEStats { variable statsBlocks if {[llength $statsBlocks] > 1} {set html "Statistics Block"} else {set html ""} set html }] [namespace eval MRGEStats { variable statsBlocks variable statsBlock set html "" if {[llength $statsBlocks] > 1} { append html ""} else {set html ""} set html }] [namespace eval MRGEStats { set html "" if {[llength $statsBlocks] > 1} {set html "Current Statistics Block $statsBlock"} set html }] [namespace eval MRGEStats { set html "Show ALL Statistics Blocks?" append html "" set html }]
[namespace eval MRGEStats { variable NUMlinks for {set i 1} {$i <= $NUMlinks} {incr i} { set rc [catch {ReadNetVar NetVar.MRGE.Stats$i} StatsBlock] set m$i "[format 0x%08x [lindex $StatsBlock [expr 63*2]]][format %08x [lindex $StatsBlock [expr 62*2]]]" } set html "
Counts Updated [date] -
Time Stamps:" for {set i 1} {$i <= $NUMlinks} {incr i} { append html " [set m$i]" if {$i == 10} {append html "
"} if {$i == 20} {append html "
"} } set html }]

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

" append html "" append html "

" set html } }]

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