diff options
Diffstat (limited to 'apps/JAWS/clients/WebSTONE/bin/write-testbed.pl')
-rwxr-xr-x | apps/JAWS/clients/WebSTONE/bin/write-testbed.pl | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/apps/JAWS/clients/WebSTONE/bin/write-testbed.pl b/apps/JAWS/clients/WebSTONE/bin/write-testbed.pl deleted file mode 100755 index 9f2c75af0ba..00000000000 --- a/apps/JAWS/clients/WebSTONE/bin/write-testbed.pl +++ /dev/null @@ -1,47 +0,0 @@ -#!/pkg/gnu/bin//perl5 -# -# write new values from form to $wd/conf/testbed, and run WebStone -# - -push(@INC, "$wd/bin"); -require('WebStone-common.pl'); - -html_begin("Current Configuration"); - -&show_model(); -&write_data(); - -print CLIENT <<EOF -<HR> -<FORM METHOD="POST" ACTION="$wd/bin/runbench.pl"> -<P><INPUT TYPE="SUBMIT" VALUE="Run WebStone"> -</FORM> -</DL> - -EOF - ; - -html_end(); - -# end main - -sub write_data { - rename("$wd/conf/testbed", "$wd/conf/testbed.bak") || - die "rename testbed: $!\n"; - open(TESTBED, ">>$wd/conf/testbed") || die "open testbed: $!\n"; - - print CLIENT "<PRE>"; - - foreach $key (@keylist) { - $$key =~ s/\+/ /g; - $newvalue = "$key=\"$$key\"\n"; - print CLIENT $newvalue; - print TESTBED $newvalue; - } - - print CLIENT "</PRE>"; - - close(TESTBED); -} - -# end |