#!/pkg/gnu/bin//perl5
#
#view-results.pl,v 1.2 2000/06/04 22:00:03 brunsch Exp
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
require('wscollect.pl');
$debug = 0;
$printedTitles = 0;
html_begin("Results");
print CLIENT "WebStone Results
";
($debug) && print STDERR "opening table\n";
print CLIENT "\r";
@directories = ("$wd/bin/runs");
directory: for (@directories) {
&find($_);
}
($debug) && print STDERR "closing table\n";
print CLIENT "
\r";
html_end();
# end main
sub printcustom {
if (!$printedTitles) {
$printedTitles = 1;
print CLIENT "";
for $title (@title) {
print CLIENT "| $title | \r";
} # end for title
print CLIENT "
\r";
}
print CLIENT "";
$first_column = 1;
for $data (@data) {
if ($first_column) {
$first_column = 0;
print CLIENT "| $data | \r";
} else {
print CLIENT "$data | \r";
}
} # end for data
print CLIENT "
\r";
}
# end