#!/usr/local/bin/perl5.001
############################################################################
#                                                                          #
# The contents of this file are subject to the WebStone Public License     #
# Version 1.0 (the "License"); you may not use this file except in         #
# compliance with the License. You may obtain a copy of the License        #
# at http://www.mindcraft.com/webstone/license10.html                      #
#                                                                          #
# Software distributed under the License is distributed on an "AS IS"      #
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See      #
# the License for the specific language governing rights and limitations   #
# under the License.                                                       #
#                                                                          #
# The Original Code is WebStone 2.5.                                       #
#                                                                          #
# The Initial Developer of the Original Code is Silicon Graphics, Inc.     #
# and Mindcraft, Inc.. Portions created by Silicon Graphics. and           #
# Mindcraft. are Copyright (C) 1995#1998 Silicon Graphics, Inc. and        #
# Mindcraft, Inc. All Rights Reserved.                                     #
#                                                                          #
# Contributor(s): ______________________________________.                  #
#                                                                          #
############################################################################

# @(#) WebStone-run.wpl 2.5@(#)

$testbed = "conf/testbed";

push(@INC, "$wd/bin");
require('WebStone-common.pl');

html_begin("Run");
 
print CLIENT <<EOF
<CENTER>
<STRONG>
<FONT SIZE=+2>
<FORM METHOD=POST ACTION="http://localhost:$html_port$wd/bin/runbench.wpl">
<INPUT TYPE="submit" VALUE="Run WebStone">
</FORM>
</FONT>
</STRONG>
</CENTER>
<HR>
EOF
    ;
print CLIENT "<H2>URL List (Web site model):</H2>" ;

&show_model();

print CLIENT <<EOF
<UL>
<STRONG>
<FONT SIZE=+1>
<FORM METHOD=POST ACTION="http://localhost:$html_port$wd/bin/WebStone-filelist.wpl">
<INPUT TYPE="submit" VALUE="Change">
</FORM>
</FONT>
</STRONG>
</UL>

<HR>

<H2>Configuration:</H2>
<PRE>
EOF
	;

open(FILEHANDLE, $testbed);
while (<FILEHANDLE>) {
    (/^\s*\#/) || (/^\s+$/) || print CLIENT $_;
}
close(FILEHANDLE);

print CLIENT <<EOF
</PRE>

<UL>
<STRONG>
<FONT SIZE=+1>
<FORM METHOD=POST
ACTION="http://localhost:$html_port$wd/bin/WebStone-testbed.wpl">
<INPUT TYPE="submit" VALUE="Change">
</FORM>
</FONT>
</STRONG>
</UL>

<HR>

<CENTER>
<STRONG>
<FONT SIZE=+2>
<FORM METHOD=POST ACTION="http://localhost:$html_port$wd/bin/runbench.wpl">
<INPUT TYPE="submit" VALUE="Run WebStone">
</FORM>
</FONT>
</STRONG>
</CENTER>
EOF
    ;

html_end();

# end
