107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
puts ""
puts "<html>"
puts "\t<head>"
puts "\t\t<title>KitCreator, Web Interface</title>"
puts "\t</head>"
puts "\t<body>"
puts "\t\t<h1>KitCreator Web Interface</h1>"
if {[info exists description]} {
puts "\t\t<p><b>Description:</b> $description"
}
|
<
<
<
>
>
>
|
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
puts ""
puts "<html>"
puts "\t<head>"
puts "\t\t<title>KitCreator, Web Interface</title>"
puts "\t</head>"
puts "\t<body>"
puts "\t\t<h1>KitCreator Web Interface</h1>"
puts "\t\t<p><b>Status:</b> $status"
if {[info exists url]} {
puts "\t\t<p><b>URL:</b> <a href=\"$url\">$url</a>"
}
if {[info exists description]} {
puts "\t\t<p><b>Description:</b> $description"
}
if {[info exists logfile]} {
catch {
set fd [open $logfile]
set logdata [read $fd]
close $fd
|