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

   1 #!/pkg/gnu/bin//perl5
   2 #
   3
   4 push(@INC, "$wd/bin");
   5 require('WebStone-common.pl');
   6
   7 html_begin("Administration");
   8
   9 $runsdir = "$wd/bin/runs";
  10 $thelength = length($runsdir) + 10;
  11 $oldrunsdir = $runsdir;
  12 $oldfilelist = "$wd/conf/filelist";
  13
  14 print CLIENT <<EOF
  15 <FORM METHOD="POST" ACTION="$wd/bin/killbench.pl">
  16 <H3>Clean up stray WebStone processes</H3>
  17 <INPUT TYPE="SUBMIT" VALUE="Kill">
  18 </FORM>
  19
  20 <HR>
  21 <FORM METHOD="POST" ACTION="$wd/bin/move-runs.pl">
  22 <H3>Move Results Directory to:</H3>
  23 <INPUT TYPE=TEXT NAME=runsdir SIZE=$thelength VALUE=$runsdir>
  24 <INPUT TYPE="SUBMIT" VALUE="Move Directory">
  25 </FORM>
  26 EOF
  27     ;
  28
  29 html_end();
  30
  31 # end