ACE/apps/JAWS/clients/WebSTONE/bin/runbench.pl

   1 #!/pkg/gnu/bin//perl5
   2 #
   3
   4 push(@INC, "$wd/bin");
   5 require('WebStone-common.pl');
   6 require('flush.pl');
   7
   8 # force flush after every write or print
   9 $| = 1;
  10
  11 html_begin("In Progress");
  12
  13 print CLIENT "<H3><CENTER>Running WebStone</CENTER></H3><PRE>";
  14 show_model();
  15 &flush(CLIENT);
  16 &flush(STDOUT);
  17
  18 &start_runbench();
  19
  20 print CLIENT <<EOF
  21 <TITLE>WebStone Completed</TITLE>
  22 </PRE><CENTER>
  23 <FORM METHOD=POST ACTION="http://localhost:$html_port$wd/bin/view-results.pl">
  24 <INPUT TYPE="submit" VALUE="View Results">
  25 </CENTER>
  26 EOF
  27     ;
  28
  29 html_end();
  30
  31 sub start_runbench {
  32     $command = "cd $wd/bin; ./runbench";
  33     system($command);
  34 }
  35
  36 # end