1 files changed, 0 insertions, 55 deletions
diff --git a/apps/JAWS/clients/WebSTONE/bin/view-results.pl b/apps/JAWS/clients/WebSTONE/bin/view-results.pl
deleted file mode 100755
index ac375746e8a..00000000000
--- a/apps/JAWS/clients/WebSTONE/bin/view-results.pl
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/pkg/gnu/bin//perl5
-#
-#$Id$
-#
-push(@INC, "$wd/bin");
-require('WebStone-common.pl');
-
-require('wscollect.pl');
-
-$debug = 0;
-
-$printedTitles = 0;
-
-html_begin("Results");
-
-print CLIENT "<H3>WebStone Results</H3>";
-
-($debug) && print STDERR "opening table\n";
-print CLIENT "<BODY><TABLE BORDER=1>\r";
-
-@directories = ("$wd/bin/runs");
-directory: for (@directories) {
-    &find($_);
-}
-
-($debug) && print STDERR "closing table\n";
-print CLIENT "</TABLE></BODY>\r";
-
-html_end();
-
-# end main
-
-sub printcustom {
-    if (!$printedTitles) {
-	$printedTitles = 1;
-	print CLIENT "<TR>";
-	for $title (@title) {
-	    print CLIENT "<TH>$title</TH>\r";
-	} # end for title
-	print CLIENT "</TR>\r";
-    }
-    print CLIENT "<TR>";
-    $first_column = 1;
-    for $data (@data) {
-	if ($first_column) {
-	    $first_column = 0;
-	    print CLIENT "<TD><A HREF=$wd/bin/runs/$data>$data</A></TD>\r";
-	} else {
-	    print CLIENT "<TD ALIGN=RIGHT>$data</TD>\r";
-	}
-    } # end for data
-    print CLIENT "</TR>\r";
-}
-
-# end