1 files changed, 63 insertions, 0 deletions
diff --git a/ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-common.pl b/ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-common.pl
new file mode 100755
index 00000000000..9e52c1dec97
--- /dev/null
+++ b/ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-common.pl
@@ -0,0 +1,63 @@
+#!/pkg/gnu/bin//perl5
+#
+#$Id$
+#
+
+1;
+
+sub show_model {
+    $model = `head -1 $wd/conf/filelist`;
+    $model =~ s/\#//;
+    ( $model ) = split(':', $model);
+
+    print CLIENT <<EOF
+<P><STRONG>
+<A HREF=\"$wd/bin/WebStone-setup.pl\">$model
+</A></STRONG>
+EOF
+    ;
+}
+
+sub html_begin {
+
+    ( $title ) = @_;
+
+    close(STDOUT);
+    open(STDOUT, ">&CLIENT");
+    close(STDERR);
+    open(STDERR, ">&CLIENT");
+
+    print CLIENT <<EOF
+<HTML>
+<HEAD>
+<TITLE>WebStone $title</TITLE>
+<A HREF="$wd/doc/WebStone.html">
+<IMG SRC="$wd/doc/webstone.gif" ALT="WebStone" BORDER=0 ></A>
+<H1>World Wide Web Server Benchmarking</H1>
+<DL>
+<DT><EM>If you have any questions, please read the 
+<A HREF="$wd/doc/FAQ-webstone.html">WebStone FAQ</A>.</EM>
+<HR>
+EOF
+    ;
+
+}
+
+sub html_end {
+
+    print CLIENT <<EOF
+<HR>
+<ADDRESS><A HREF="$wd/doc/LICENSE.html">copyright 1995 Silicon Graphics</A>
+</ADDRESS>
+</BODY>
+</HTML>
+EOF
+    ;
+
+    close(STDERR);
+    close(STDOUT);
+    open(STDOUT);
+    open(STDERR);
+}
+
+# end