207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
}
puts $fd "<html>"
puts $fd " <head>"
puts $fd " <title>KitCreator Build and Test Status</title>"
puts $fd " </head>"
puts $fd " <body>"
puts $fd " <h1><a href=\"http://kitcreator.rkeene.org/\">KitCreator</a> Build and Test Status</h1>"
puts $fd " <p>The following table represents the status of the test results from the KitCreator test suite.</p>"
puts $fd " <table cellpadding=\"2\" border=\"1\">"
foreach key [lsort -dictionary [array names allkitinfo]] {
puts $fd " <tr>"
puts $fd " <th colspan=\"5\"><u>Tclkit for [pretty_print_key $key]</u></th>"
puts $fd " </tr>"
puts $fd " <tr>"
|
|
|
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
}
puts $fd "<html>"
puts $fd " <head>"
puts $fd " <title>KitCreator Build and Test Status</title>"
puts $fd " </head>"
puts $fd " <body>"
puts $fd " <h1><a href=\"http://kitcreator.rkeene.org/\">KitCreator</a> <a href=\"../\">Build and Test Status</a></h1>"
puts $fd " <p>The following table represents the status of the test results from the KitCreator test suite.</p>"
puts $fd " <table cellpadding=\"2\" border=\"1\">"
foreach key [lsort -dictionary [array names allkitinfo]] {
puts $fd " <tr>"
puts $fd " <th colspan=\"5\"><u>Tclkit for [pretty_print_key $key]</u></th>"
puts $fd " </tr>"
puts $fd " <tr>"
|