1 files changed, 49 insertions, 0 deletions
diff --git a/ACE/apps/JAWS/clients/WebSTONE/bin/write-testbed.pl b/ACE/apps/JAWS/clients/WebSTONE/bin/write-testbed.pl
new file mode 100755
index 00000000000..f16d626f2ad
--- /dev/null
+++ b/ACE/apps/JAWS/clients/WebSTONE/bin/write-testbed.pl
@@ -0,0 +1,49 @@
+#!/pkg/gnu/bin//perl5
+#
+#$Id$
+#
+# 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