<link rel="stylesheet" href="build.css">
</head>
<body>
-<ol>
EOF
print LOG_HTML <<EOF;
EOF
print LOG_HTML "<pre>";
+sub read_vars {
+ my ($file) = @_;
+ my %vars = ();
+ if (open (VARS, "<", $file)) {
+ while (<VARS>) {
+ chomp;
+ my ($key, $value) = /^([^=]+)=(.*)/ or next;
+ $vars{$key} = $value;
+ }
+ close (VARS);
+ }
+ return %vars;
+}
+
+my (%vars) = read_vars ('VARS');
+print INDEX "<h2>Build Properties</h2>\n";
+print INDEX "<table>\n";
+print INDEX "<tr><th>Name</th><th>Value</th></tr>\n";
+foreach my $key (sort (keys (%vars))) {
+ print INDEX "<tr>";
+ print INDEX "<td>", encode_entities ($key), "</td>";
+ print INDEX "<td>", encode_entities ($vars{$key}), "</td>";
+ print INDEX "</tr>\n";
+}
+print INDEX "</table>\n";
+
+print INDEX "<h2>Build Summary</h2>\n";
+print INDEX "<ol>\n";
+
my ($n_products) = 0;
my ($n_steps) = 0;
my ($new_page) = 0;
projects / pspp / commitdiff