23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
+
|
set fd [open [file join $workdir buildinfo]]
set buildinfo_list [gets $fd]
close $fd
array set buildinfo $buildinfo_list
set filename $buildinfo(filename)
set outfile [file join $workdir $filename]
set logfile "${outfile}.log"
} else {
set status "Queued"
}
}
if {[info exists outfile]} {
if {[file exists $outfile]} {
|
61
62
63
64
65
66
67
68
69
70
71
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
-
+
+
+
+
+
+
+
+
+
+
+
|
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</p>"
if {[info exists url]} {
puts "\t\t<p><b>URL:</b> <a href=\"$url\">$url</a></p>"
puts "\t\t<p><b>URL:</b> <a href=\"$url\">$url</a></p>"
}
if {[info exists logfile]} {
catch {
set fd [open $logfile]
set logdata [read $fd]
close $fd
puts "\t\t<p><b>Log:</b><pre>\n$logdata</pre></p>"
}
}
puts "\t</body>"
puts "</html>"
|