From 32512097fa8fd103d842f3fe1573d3dc3b209439 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Tue, 16 Feb 2010 15:11:28 -0800 Subject: [PATCH] add build properties --- results2html | 30 +++++++++++++++++++++++++++++- 1 file changed, 29 insertions(+), 1 deletion(-) diff --git a/results2html b/results2html index 1b4622137f..0e39cb4ed7 100755 --- a/results2html +++ b/results2html @@ -15,7 +15,6 @@ print INDEX < -
    EOF print LOG_HTML <"; +sub read_vars { + my ($file) = @_; + my %vars = (); + if (open (VARS, "<", $file)) { + while () { + chomp; + my ($key, $value) = /^([^=]+)=(.*)/ or next; + $vars{$key} = $value; + } + close (VARS); + } + return %vars; +} + +my (%vars) = read_vars ('VARS'); +print INDEX "

    Build Properties

    \n"; +print INDEX "\n"; +print INDEX "\n"; +foreach my $key (sort (keys (%vars))) { + print INDEX ""; + print INDEX ""; + print INDEX ""; + print INDEX "\n"; +} +print INDEX "
    NameValue
    ", encode_entities ($key), "", encode_entities ($vars{$key}), "
    \n"; + +print INDEX "

    Build Summary

    \n"; +print INDEX "
      \n"; + my ($n_products) = 0; my ($n_steps) = 0; my ($new_page) = 0; -- 2.30.2