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

MyRIAD Control @ [set MyInfo] client address is [set ClientIPAddress]

Module   Act on ALL Modules?

Module Setup

[namespace eval MyRIAD { set html "" append html "

" append html "" append html "
" append html "" append html "" append html "" append html "" append html "" append html "" append html "
RegisterUseAddressSetting
" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "
RegisterUseAddressSetting
" append html "

" set html }]

[namespace eval MyRIAD { set html "" append html "

" append html "" append html "
" foreach item $MyRIADRegisterMapA1 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "" foreach item $MyRIADRegisterMapA2 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "

" set html }]

 

[namespace eval MyRIAD { set html "" append html "

" append html "" append html "
" foreach item $MyRIADRegisterMapD1 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "" foreach item $MyRIADRegisterMapD2 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "

" set html }]

 

[namespace eval MyRIAD { set html "" append html "

" append html "" append html "
" foreach item $MyRIADRegisterMapB1 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "" foreach item $MyRIADRegisterMapB2 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "

" set html }]

 

[namespace eval MyRIAD { set html "" append html "

" append html "" append html "
" foreach item $MyRIADRegisterMapC1 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "" foreach item $MyRIADRegisterMapC2 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "

" set html }]

 

[namespace eval MyRIAD { set html "" append html "

" append html "" append html "
" foreach item $MyRIADRegisterMapE1 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "" foreach item $MyRIADRegisterMapE2 { set Register [first $item] set Name [second $item] set Address [third $item] set access [fourth $item] append html "" append html "" append html "" append html "" append html "" append html "" } append html "
$Register$Name$Address" append html "\n" append html "
" append html "

" set html }]

 

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

              

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

" append html "" append html "

" set html } }]

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