ACE/apps/JAWS/clients/WebSTONE/bin/write-testbed.pl

   1 #!/pkg/gnu/bin//perl5
   2 #
   3 # write new values from form to $wd/conf/testbed, and run WebStone
   4 #
   5
   6 push(@INC, "$wd/bin");
   7 require('WebStone-common.pl');
   8
   9 html_begin("Current Configuration");
  10
  11 &show_model();
  12 &write_data();
  13
  14 print CLIENT <<EOF
  15 <HR>
  16 <FORM METHOD="POST" ACTION="$wd/bin/runbench.pl">
  17 <P><INPUT TYPE="SUBMIT" VALUE="Run WebStone">
  18 </FORM>
  19 </DL>
  20
  21 EOF
  22     ;
  23
  24 html_end();
  25
  26 # end main
  27
  28 sub write_data {
  29     rename("$wd/conf/testbed", "$wd/conf/testbed.bak") ||
  30         die "rename testbed: $!\n";
  31     open(TESTBED, ">>$wd/conf/testbed") || die "open testbed: $!\n";
  32
  33     print CLIENT "<PRE>";
  34
  35     foreach $key (@keylist) {
  36         $$key =~ s/\+/ /g;
  37         $newvalue = "$key=\"$$key\"\n";
  38         print CLIENT $newvalue;
  39         print TESTBED $newvalue;
  40     }
  41
  42     print CLIENT "</PRE>";
  43
  44     close(TESTBED);
  45 }
  46
  47 # end