1 files changed, 97 insertions, 0 deletions
diff --git a/trunk/ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-setup.pl b/trunk/ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-setup.pl
new file mode 100755
index 00000000000..f47ac6a8f06
--- /dev/null
+++ b/trunk/ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-setup.pl
@@ -0,0 +1,97 @@
+#!/pkg/gnu/bin//perl5
+#
+#$Id$
+#
+
+push(@INC, "$wd/bin");
+require('WebStone-common.pl');
+
+@keylist = ();
+
+html_begin("Setup");
+
+show_model();
+
+print CLIENT <<EOF
+<FORM METHOD="POST" ACTION="$wd/bin/write-testbed.pl">
+EOF
+    ;
+
+&gettestbed();
+&getconfig();
+
+print CLIENT <<EOF
+</DL>
+<P><INPUT TYPE="SUBMIT" VALUE="Write Configuration">
+</FORM>
+
+<HR>
+<FORM METHOD="POST" ACTION="$wd/bin/move-filelist.pl">
+<H3>Choose a Web site model:</H3>
+<DL>
+EOF
+    ;
+
+for $key (sort(keys %filelist)) {
+    print CLIENT "<DD><INPUT TYPE=RADIO NAME=filelist ";
+    if ($key eq "filelist") {
+	print CLIENT " CHECKED ";
+    }
+    print CLIENT " VALUE=\"$wd/conf/$key\"> $key: $filelist{$key}";
+}
+
+print CLIENT <<EOF
+</DL>
+<INPUT TYPE="SUBMIT" VALUE="Set Workload">
+
+EOF
+    ;
+
+html_end();
+
+# end of main program
+
+sub gettestbed {
+    open(TESTBED, "$wd/conf/testbed");
+    while (<TESTBED>) {
+	if (/^\#|^(\w)*$/) { # do nothing
+	}
+	else {
+	    ( $textvalue, $thevalue ) = split( '=', $_ );
+	    ( $thevalue ) = split( '#', $thevalue);	    
+	    $testbed{$textvalue} = $thevalue;
+	    push(@keylist, $textvalue);
+	}
+    }
+    close(TESTBED);
+
+    open(HELPFILE, "$wd/doc/testbed.help");
+    while (<HELPFILE>) {
+	( $key, $textvalue ) = split( ':', $_ );
+	$helptext{$key} = $textvalue;
+    }
+    close(HELPFILE);
+
+    foreach $key (@keylist) {
+	print CLIENT "<P><DT>$helptext{$key}";
+	$thesize = length($testbed{$key}) + 5;
+	print CLIENT "<DD>$key <INPUT TYPE=TEXT NAME=$key ";
+	print CLIENT "SIZE=$thesize VALUE=$testbed{$key}>\n";
+    }
+}
+
+sub getconfig {
+    opendir(CONF, "$wd/conf") || die "open $wd/conf: $!";
+    %filelist = "";
+    foreach $file (sort readdir(CONF)) {
+	if ( $file =~ /^filelist.*/ ) {
+	    $headtext = `head -1 $wd/conf/$file`;
+	    $headtext =~ s/\#//;
+	    ( $headtext ) = split(':', $headtext);
+	    $filelist{$file} = $headtext;
+	}
+    }
+    closedir(CONF);
+}
+
+# end