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

MERGE: Control @ [global env; set env(ComputerName)] 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 MRGE] set z [catch {source sys.tcl} m] if {$z != 0} {puts "loaded sys.tcl > $z $m"} set z [catch {source Merge.tcl} m] if {$z != 0} {puts "loaded Merge.tcl > $z $m"} }] >

Merge State = [namespace eval MERGE { set MRGEState [ReadNetVar NetVar.MRGE.State] switch $MRGEState { 0 {set html "RESET"} 1 {set html "STOPed"} 2 {set html "GOing"} default {set html "state=$MRGEState "} } set html }] [namespace eval MERGE { if {$MRGEState == 2} { set html "    :    " switch [ReadNetVar NetVar.MRGE.Spaused] { 0 {append html "merging"} 1 {append html "paused"} default {append html "unknown"} } set html } }] [namespace eval MERGE { if {$MRGEState == 2} { set html "    :    " switch [ReadNetVar NetVar.MRGE.Ctxenable] { 0 {append html "no xfer"} 1 {append html "xfer enabled"} default {append html "unknown"} } set html } }] [namespace eval MERGE { set html "    :    " if {$MRGEState == 0} {append html "try Setup & Configure"} else { switch [ReadNetVar NetVar.MRGE.dataState] { 0 {append html "want initial timestamp"} 1 {append html "want first SYNC"} 2 {append html "want next SYNC"} 3 {append html "ready for DATA"} 4 {append html "output paused"} 5 {append html "output halted"} default {append html "unknown"} } } set html }]

[namespace eval MERGE { if {$MRGEState == 2} { set RatesBlock [ReadNetVar NetVar.MRGE.Rates0] set html "Current merged data rate = [expr [lindex $RatesBlock 60]] items/sec" } else { set html "" } set html }]

Links [namespace eval MERGE { set html "" set k 0 for {set i 0} {$i < $NRows} {incr i} { append html "" for {set j 0} {$j < $NCols} {incr j} { append html "" } append html "" } append html "
" if {$k < $LinksAvailable} { append html "" } else { append html "" } incr k append html "
" set html }]

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

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

" append html "" append html "

" set html } }]

[namespace eval MERGE { if {$ShowLogFlag == 1} then { set html "" } else { set html "" } set html }] [namespace eval MERGE { 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 MERGE { if {$JS != ""} { append JS "\");" set html "" } }]