diff options
author | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-01-07 19:53:20 +0000 |
---|---|---|
committer | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-01-07 19:53:20 +0000 |
commit | b7a2a009d7bd36a1b01e714f1c5e264f2811f2b6 (patch) | |
tree | 4db4327609d6dbffbab4445e3451de19ca3bbf4b /apps/JAWS/clients/WebSTONE/bin/write-testbed.pl | |
parent | be5c228c7a69ab3a219c762222d81ccca94560dd (diff) | |
download | ATCD-main_to_poa_merge_5.tar.gz |
This commit was manufactured by cvs2svn to create tagmain_to_poa_merge_5
'main_to_poa_merge_5'.
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 |