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

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

Module   Act on ALL Modules?

Module Setup

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

" append html "" append html "" append html "
" append html "" append html "" append html "" append html "" append html "" foreach item $Settings1 { set Name [first $item] set Register [second $item] append html "" append html "" append html "" append html "" } append html "
RegisterSetting
$Name" append html "\n" append html "
" append html "		" append html "" append html "" append html "" append html "" append html "" foreach item $Settings2 { set Name [first $item] set Register [second $item] append html "" append html "" append html "" append html "" } append html "
RegisterSetting
$Name" append html "\n" append html "
" append html "		" append html "" append html "" append html "" append html "" append html "" foreach item $Settings3 { set Name [first $item] set Register [second $item] append html "" append html "" append html "" append html "" } append html "
RegisterSetting
$Name" append html "\n" append html "
" append html "		" append html "" append html "" append html "" append html "" append html "" foreach item $Settings4 { set Name [first $item] set Register [second $item] append html "" append html "" append html "" append html "" } append html "
RegisterSetting
$Name" append html "\n" append html "
" append html "
" append html "

" set html }]

Module Status

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

" append html "" append html "" append html "
" append html "" append html "" append html "" append html "" append html "" foreach item $Status1 { set Name [first $item] set Register [second $item] append html "" append html "" append html "" append html "" } append html "
RegisterSetting
$Name" append html "\n" append html "
" append html "		" append html "" append html "" append html "" append html "" append html "" foreach item $Status2 { set Name [first $item] set Register [second $item] append html "" append html "" append html "" append html "" } append html "
RegisterSetting
$Name" append html "\n" append html "
" append html "		" append html "" append html "" append html "" append html "" append html "" foreach item $Status3 { set Name [first $item] set Register [second $item] append html "" append html "" append html "" append html "" } append html "
RegisterSetting
$Name" append html "\n" append html "
" append html "		" append html "" append html "" append html "" append html "" append html "" foreach item $Status4 { set Name [first $item] set Register [second $item] append html "" append html "" append html "" append html "" } append html "
RegisterSetting
$Name" append html "\n" append html "
" append html "
" append html "

" set html }]

System functions  

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

" append html "" append html "

" set html } }]

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