+
+print INDEX "<h2>Build Products</h2>\n";
+print INDEX "<ul>\n";
+foreach my $p (@products) {
+ print INDEX "<li><a href=\"", encode_entities ($p->{HREF}), "\">";
+ print INDEX encode_entities ($p->{PRODUCT});
+ print INDEX "</a></li>\n";
+}
+print INDEX "</ul>\n";
+
+sub log_link {
+ my ($ln) = @_;
+ return "<small><a href=\"log.html#$ln\">(log)</a></small>";
+}
+
+print INDEX "<h2>Build Summary</h2>\n";
+print INDEX "<ol>\n";
+foreach my $s (@steps) {
+ print INDEX "<li>", encode_entities ($s->{TITLE});
+ print INDEX " ", log_link ($s->{LN});
+ foreach my $c (@{$s->{CHILDREN}}) {
+ if (defined ($c->{DIAGNOSTIC})) {
+ print INDEX "<p class=\"$c->{DIAGNOSTIC}\">";
+ print INDEX "<a href=\"log.html#$c->{LN}\">";
+ print INDEX encode_entities ($c->{MESSAGE});
+ print INDEX "</a></p>\n";
+ } else {
+ print INDEX "<p>→ <a href=\"", encode_entities ($c->{HREF}), "\">";
+ print INDEX encode_entities ($c->{PRODUCT});
+ print INDEX "</a></p>\n";
+ }
+ }
+ print INDEX "</li>\n";
+}
+print INDEX "</ol>\n";
+