blob: ac375746e8afbd9f4f55ddefcd8c3bc682ad5afa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/pkg/gnu/bin//perl5
#
#$Id$
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
require('wscollect.pl');
$debug = 0;
$printedTitles = 0;
html_begin("Results");
print CLIENT "<H3>WebStone Results</H3>";
($debug) && print STDERR "opening table\n";
print CLIENT "<BODY><TABLE BORDER=1>\r";
@directories = ("$wd/bin/runs");
directory: for (@directories) {
&find($_);
}
($debug) && print STDERR "closing table\n";
print CLIENT "</TABLE></BODY>\r";
html_end();
# end main
sub printcustom {
if (!$printedTitles) {
$printedTitles = 1;
print CLIENT "<TR>";
for $title (@title) {
print CLIENT "<TH>$title</TH>\r";
} # end for title
print CLIENT "</TR>\r";
}
print CLIENT "<TR>";
$first_column = 1;
for $data (@data) {
if ($first_column) {
$first_column = 0;
print CLIENT "<TD><A HREF=$wd/bin/runs/$data>$data</A></TD>\r";
} else {
print CLIENT "<TD ALIGN=RIGHT>$data</TD>\r";
}
} # end for data
print CLIENT "</TR>\r";
}
# end
|
