diff options
author | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-03-07 16:30:11 +0000 |
---|---|---|
committer | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-03-07 16:30:11 +0000 |
commit | a980eaccb9f0338f262549f31cc99a23529efd73 (patch) | |
tree | 726d1a64fda6757c5c37b41a489af40bcfa7505c /apps/JAWS/clients/WebSTONE/bin/write-testbed.pl | |
parent | dcd83bbd125e03d0659576ba51831a7350e3fd49 (diff) | |
download | ATCD-a980eaccb9f0338f262549f31cc99a23529efd73.tar.gz |
This commit was manufactured by cvs2svn to create tag 'TAO-1_0_15'.TAO-1_0_15
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 |