8 open (LOG, '<', "LOG");
9 open (INDEX, '>','index.html');
10 open (LOG_HTML, '>', "log.html");
15 <link rel="stylesheet" href="build.css">
24 <link rel="stylesheet" href="build.css">
28 print LOG_HTML "<pre>";
39 print LOG_HTML "</pre><hr><pre>\n";
47 if (my ($product) = /^Saving (.*)$/) {
48 print INDEX "\n <ul>\n" if !$n_products++;
49 my $href = "$product/index.html";
50 $href = $product if ! -e $href;
51 print INDEX " <li><a href=\"", encode_entities ($href), "\">";
52 print INDEX encode_entities ($product), "</a>";
53 print INDEX " <small><a href=\"log.html#$ln\">(log)</a></small>";
54 print INDEX "</li>\n";
56 print INDEX "</ul>" if !$n_steps;
57 print INDEX "<li>", encode_entities ($_);
58 print INDEX " <small><a href=\"log.html#$ln\">(log)</a></small>";
62 if (my ($diagnostic) = /(error|warning):/) {
64 print INDEX " </ul>\n";
67 print INDEX "<p class=\"$diagnostic\">";
68 print INDEX "<a href=\"log.html#$ln\">";
69 print INDEX encode_entities ($_);
70 print INDEX "</a></p>\n";
71 $log_class = "$diagnostic";
74 printf LOG_HTML "<a name=\"%d\"><tt>%4d</tt></a> ", $ln, $ln;
75 if (defined ($log_class)) {
76 print LOG_HTML "<span class=\"$log_class\">", encode_entities ($_), "</span>\n";
78 print LOG_HTML encode_entities ($_), "\n";
81 print INDEX " </ul>\n" if $n_products;
82 print INDEX "</li>\n" if $n_steps;
95 open (CSS, '>', "build.css");
100 padding: 0em 12em 0em 3em;
104 margin: 0pt 0pt 0pt 0em
126 H1, H2, H3, H4, H5, H6 {
127 font-family: sans-serif;
136 text-decoration: none;
140 text-decoration: none;
144 text-decoration: none;
147 text-decoration: underline