1 files changed, 0 insertions, 63 deletions
diff --git a/apps/JAWS/clients/WebSTONE/bin/WebStone-common.pl b/apps/JAWS/clients/WebSTONE/bin/WebStone-common.pl
deleted file mode 100755
index 9e52c1dec97..00000000000
--- a/apps/JAWS/clients/WebSTONE/bin/WebStone-common.pl
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/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