Index: build/web/building.cgi
==================================================================
--- build/web/building.cgi
+++ build/web/building.cgi
@@ -30,10 +30,57 @@
set logfile "${outfile}.log"
} else {
set status "Queued"
}
}
+
+if {[info exists buildinfo]} {
+ set description "Tcl $buildinfo(tcl_version)"
+ append description ", KitCreator $buildinfo(kitcreator_version)"
+ append description ", Platform $buildinfo(platform)"
+
+ foreach {option value} $buildinfo(options) {
+ switch -- $option {
+ "kitdll" {
+ if {$value} {
+ append description ", Built as a Library"
+ }
+ }
+ "threaded" {
+ if {$value} {
+ append description ", Threaded"
+ } else {
+ append description ", Unthreaded"
+ }
+ }
+ "debug" {
+ if {$value} {
+ append description ", With Symbols"
+ }
+ }
+ "storage" {
+ switch -- $value {
+ "mk4" {
+ append description ", Metakit-based"
+ }
+ "zip" {
+ append description ", Zip-kit"
+ }
+ "cvfs" {
+ append description ", Static Storage"
+ }
+ }
+ }
+ }
+ }
+
+ if {[llength $buildinfo(packages)] > 0} {
+ append description ", Packages: [join $buildinfo(packages) {, }]"
+ } else {
+ append description ", No packages"
+ }
+}
if {[info exists outfile]} {
if {[file exists $outfile]} {
set status "Complete"
set terminal 1
@@ -62,21 +109,24 @@
puts "\t"
puts "\t\tKitCreator, Web Interface"
puts "\t"
puts "\t"
puts "\t\tKitCreator Web Interface
"
-puts "\t\tStatus: $status
"
+if {[info exists description]} {
+ puts "\t\tDescription: $description"
+}
+puts "\t\t
Status: $status"
if {[info exists url]} {
- puts "\t\t
URL: $url
"
+ puts "\t\tURL: $url"
}
if {[info exists logfile]} {
catch {
set fd [open $logfile]
set logdata [read $fd]
close $fd
- puts "\t\t
Log:
\n$logdata
"
+ puts "\t\tLog:
\n$logdata
"
}
}
puts "\t"
puts "