@@ -203,18 +203,33 @@ # Store kit information with all kits set key [list $tclversion $kitos $kitcpu] lappend allkitinfo($key) [array get kitinfo] } + +# Determine human readable name, and URL +if {[string match "fossil_*" $kitcreator_vers]} { + set work [split $kitcreator_vers _] + + set kitcreator_fossil_vers [lindex $work 1] + + set kitcreator_readable_vers "Fossil trunk release checkin ${kitcreator_fossil_vers}" + + set url "http://kitcreator.rkeene.org/fossil/tarball/kitcreator-${kitcreator_vers}.tar.gz?uuid=${kitcreator_fossil_vers}" +} else { + set kitcreator_readable_vers $kitcreator_vers + + set url "http://www.rkeene.org/devel/kitcreator-${kitcreator_vers}.tar.gz" +} puts $fd "" puts $fd " " puts $fd " KitCreator Build and Test Status" puts $fd " " puts $fd " " puts $fd "

KitCreator Build and Test Status

" -puts $fd "

The following table represents the status of the test results from the KitCreator test suite.

" +puts $fd "

The following table represents the status of the test results from the KitCreator test suite for KitCreator ${kitcreator_readable_vers}.

" puts $fd " " foreach key [lsort -dictionary [array names allkitinfo]] { puts $fd " " puts $fd " " puts $fd " "
Tclkit for [pretty_print_key $key]