summaryrefslogtreecommitdiff
path: root/ACE/apps/JAWS/clients/WebSTONE/bin/view-results.pl
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