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