diff options
author | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2006-03-05 17:14:45 +0000 |
---|---|---|
committer | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2006-03-05 17:14:45 +0000 |
commit | 58033491c6d0bac82315c1fdb1ec9b39be58093f (patch) | |
tree | c69c3aa67ec66758066e959bd0d533ea336ec236 /apps/JAWS/clients/WebSTONE/bin/view-results.pl | |
parent | 2efc882384a34f61311a24fc641d1b5fd5776356 (diff) | |
download | ATCD-TAO-1_5.tar.gz |
This commit was manufactured by cvs2svn to create tag 'TAO-1_5'.TAO-1_5
Diffstat (limited to 'apps/JAWS/clients/WebSTONE/bin/view-results.pl')
-rwxr-xr-x | apps/JAWS/clients/WebSTONE/bin/view-results.pl | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/apps/JAWS/clients/WebSTONE/bin/view-results.pl b/apps/JAWS/clients/WebSTONE/bin/view-results.pl deleted file mode 100755 index ac375746e8a..00000000000 --- a/apps/JAWS/clients/WebSTONE/bin/view-results.pl +++ /dev/null @@ -1,55 +0,0 @@ -#!/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 |