diff options
| author | William R. Otte <wotte@dre.vanderbilt.edu> | 2008-03-04 14:51:23 +0000 |
|---|---|---|
| committer | William R. Otte <wotte@dre.vanderbilt.edu> | 2008-03-04 14:51:23 +0000 |
| commit | 99aa8c60282c7b8072eb35eb9ac815702f5bf586 (patch) | |
| tree | bda96bf8c3a4c2875a083d7b16720533c8ffeaf4 /ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-run.pl | |
| parent | c4078c377d74290ebe4e66da0b4975da91732376 (diff) | |
| download | ATCD-99aa8c60282c7b8072eb35eb9ac815702f5bf586.tar.gz | |
undoing accidental deletion
Diffstat (limited to 'ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-run.pl')
| -rwxr-xr-x | ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-run.pl | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-run.pl b/ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-run.pl new file mode 100755 index 00000000000..28efe90c4d5 --- /dev/null +++ b/ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-run.pl @@ -0,0 +1,39 @@ +#!/pkg/gnu/bin//perl5 +# +#$Id$ +# + +$testbed = "conf/testbed"; + +push(@INC, "$wd/bin"); +require('WebStone-common.pl'); + +html_begin("Run"); + +print CLIENT <<EOF +<H3><CENTER><A HREF="WebStone-setup.pl">Edit Configuration</A> +</CENTER></H3> +EOF + ; + +&show_model(); +print CLIENT "<PRE>"; + +open(FILEHANDLE, $testbed); +while (<FILEHANDLE>) { + (/^\#/) || print CLIENT $_; +} +close(FILEHANDLE); + +print CLIENT <<EOF +</PRE> +<CENTER> +<FORM METHOD=POST ACTION="http://localhost:$html_port$wd/bin/runbench.pl"> +<INPUT TYPE="submit" VALUE="Run WebStone"> +</CENTER> +EOF + ; + +html_end(); + +# end |