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

Tape Service (User) @ [set MyInfo] client address is [set ClientIPAddress]

Server:   Current State:   [namespace eval TapeService {lindex [list Stopped Running] $TapeServerState}] [namespace eval TapeService {if {$TapeServerState > 0 && $NoStorage == 1} {set html "with No Storage"}}]

[namespace eval TapeService { switch $TapeServerState { 0 {set html "[source stopped.tml]"} 1 {set html "[source running.tml]"} } set html }] [namespace eval TapeService { if {$ShowLogFlag == 1} then { set html "" append html "

" append html "" append html "

" set html } }]

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