[Doc_Dynamic] [global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]] Merger Input Data Link Rates @ [global env; set env(ComputerName)]

Merger Link Data Rates @ [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 LinkRates] set z [catch {source LinkRates.tcl} m] if {$z != 0} {puts "loading LinkRates.tcl > $z $m"} }] >

" append html "" append html "" append html "" set NLinks $::MERGE::NLinks for { set link 0 } { $link < $NLinks } { incr link } { if { [ set ::MERGE::LinkInUse($link) ] == 1 } { set port [ ReadNetVar NetVar.MRGE.Link$link.Port ] append html "" append html "" append html "" append html "" append html "" append html "" } } set html }]
[namespace eval LinkRates { set html "" append html "
Total of all Links$::LinkRates::BaseTotal$::LinkRates::BaseRate
Link number : Stream number : IP addressTotal number of buffers per linkRate of buffersPercentage of the Current total RateSYNC TotalSYNC Rate
Link $link:$port => [ set ::LinkRates::LinkIP($link)][ set ::LinkRates::LastTotal($link)][ set ::LinkRates::LinkRate($link)][ set ::LinkRates::LinkPercent($link)][ set ::LinkRates::LinkSync_Total($link)][ set ::LinkRates::LinkSync_Rate($link)]

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

" append html "" append html "

" set html } }]

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