Diff

Differences From Artifact [80597b0681]:

To Artifact [5e90e12104]:


   201    201   	set kitinfo(cpu) $kitcpu
   202    202   	set kitinfo(built) $kitbuilt
   203    203   
   204    204   	# Store kit information with all kits
   205    205   	set key [list $tclversion $kitos $kitcpu]
   206    206   	lappend allkitinfo($key) [array get kitinfo]
   207    207   }
          208  +
          209  +# Determine human readable name, and URL
          210  +if {[string match "fossil_*" $kitcreator_vers]} {
          211  +	set work [split $kitcreator_vers _]
          212  +
          213  +	set kitcreator_fossil_vers [lindex $work 1]
          214  +
          215  +	set kitcreator_readable_vers "Fossil trunk release checkin ${kitcreator_fossil_vers}"
          216  +
          217  +	set url "http://kitcreator.rkeene.org/fossil/tarball/kitcreator-${kitcreator_vers}.tar.gz?uuid=${kitcreator_fossil_vers}"
          218  +} else {
          219  +	set kitcreator_readable_vers $kitcreator_vers
          220  +
          221  +	set url "http://www.rkeene.org/devel/kitcreator-${kitcreator_vers}.tar.gz"
          222  +}
   208    223   
   209    224   puts $fd "<html>"
   210    225   puts $fd "  <head>"
   211    226   puts $fd "    <title>KitCreator Build and Test Status</title>"
   212    227   puts $fd "  </head>"
   213    228   puts $fd "  <body>"
   214    229   puts $fd "    <h1><a href=\"http://kitcreator.rkeene.org/\">KitCreator</a> <a href=\"../\">Build and Test Status</a></h1>"
   215         -puts $fd "    <p>The following table represents the status of the test results from the KitCreator test suite.</p>"
          230  +puts $fd "    <p>The following table represents the status of the test results from the KitCreator test suite for <a href=\"${url}\">KitCreator ${kitcreator_readable_vers}</a>.</p>"
   216    231   puts $fd "    <table cellpadding=\"2\" border=\"1\">"
   217    232   foreach key [lsort -dictionary [array names allkitinfo]] {
   218    233   	puts $fd "      <tr>"
   219    234   	puts $fd "        <th colspan=\"5\"><u>Tclkit for [pretty_print_key $key]</u></th>"
   220    235   	puts $fd "      </tr>"
   221    236   	puts $fd "      <tr>"
   222    237   	puts $fd "        <th>Kit Features</th>"