ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-run.pl

   1 #!/pkg/gnu/bin//perl5
   2 #
   3
   4 $testbed = "conf/testbed";
   5
   6 push(@INC, "$wd/bin");
   7 require('WebStone-common.pl');
   8
   9 html_begin("Run");
  10
  11 print CLIENT <<EOF
  12 <H3><CENTER><A HREF="WebStone-setup.pl">Edit Configuration</A>
  13 </CENTER></H3>
  14 EOF
  15     ;
  16
  17 &show_model();
  18 print CLIENT "<PRE>";
  19
  20 open(FILEHANDLE, $testbed);
  21 while (<FILEHANDLE>) {
  22     (/^\#/) || print CLIENT $_;
  23 }
  24 close(FILEHANDLE);
  25
  26 print CLIENT <<EOF
  27 </PRE>
  28 <CENTER>
  29 <FORM METHOD=POST ACTION="http://localhost:$html_port$wd/bin/runbench.pl">
  30 <INPUT TYPE="submit" VALUE="Run WebStone">
  31 </CENTER>
  32 EOF
  33     ;
  34
  35 html_end();
  36
  37 # end