1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
[Doc_Dynamic]
[::html::init]
[::html::head {Web Services for Tcl - Available Services}]
[::html::bodyTag]
[mypage::contents {}]
[::html::h1 {Web Services for Tcl - Available Services}]
[::html::openTag TABLE border=10 ]
[::html::hdrRow {Service} {Description} {Info Link} {WSDL Link} {Status} {Forms}]
[
set data {}
foreach serviceName [array names ::WS::Server::serviceArr] {
set statusFile [file normalize [file join $Config(docRoot) servicestatus $serviceName.tml]]
if {[file exist $statusFile]} {
set statusLink "<A HREF='../servicestatus/$serviceName.tml'>Status</A>"
} else {
set statusLink {None}
}
set formsFile [file normalize [file join $Config(docRoot) serviceforms $serviceName.tml]]
if {[file exist $formsFile]} {
set formsLink "<A HREF='../serviceforms/$serviceName.tml'>Forms</A>"
} else {
set formsLink {None}
}
append data [::html::row $serviceName \
[dict get $::WS::Server::serviceArr($serviceName) -description] \
[format {<A HREF="%s">Infomation</A>} $serviceName]\
[format {<A HREF="%s/wsdl">WSDL</A>} $serviceName] \
$statusLink \
$formsLink]
}
set data
]
[mypage::footer]
[::html::end]
|
