ACE/apps/JAWS/clients/WebSTONE/bin/view-results.pl

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