1 files changed, 0 insertions, 63 deletions
diff --git a/TAO/performance-tests/Cubit/TAO/MT_Cubit/summarize b/TAO/performance-tests/Cubit/TAO/MT_Cubit/summarize
deleted file mode 100755
index 3a4f7f43bd9..00000000000
--- a/TAO/performance-tests/Cubit/TAO/MT_Cubit/summarize
+++ /dev/null
@@ -1,63 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
-    & eval 'exec perl -w -S $0 $argv:q'
-    if 0;
-
-# $Id$
-#
-# Summarizes results from a series of runs of MT_Cubit_Test, with
-# different numbers of clients.  Example usage:
-#
-# $ for i in 1 2 5 10 15 20 25 30 35 40 45 50; do ./MT_Cubit_Test $i; done
-# $ ./summarize
-#
-# The first three lines above let this script run without specifying the
-# full path to perl, as long as it is in the user's PATH.
-# Taken from perlrun man page.
-
-@files = glob 'client-*.log';
-@total_threads = ();
-
-foreach $file (@files) {
-  my ($i);
-  ($i = $file) =~ s/client-(\d+).log/$1/;
-  push @total_threads, $i;
-}
-
-print "                          Round-trip, usec\n";
-print "Low-priority      High-priority         Low-priority\n";
-print "   threads      Latency    Jitter    Latency    Jitter\n";
-
-foreach $total_threads (sort {$a <=> $b} @total_threads) {
-  undef $high_latency;
-  undef $high_jitter;
-  undef $low_latency;
-  undef $low_jitter;
-
-  open (FILE, "client-${total_threads}.log")  ||
-    die "$0: unable to open \"client-${total_threads}.log\"\n";
-  while (<FILE>) {
-    #### Add 0.5 to round instead of truncate.
-
-    if (/^High priority client latency : ([\d\.]+) msec, jitter: ([\d\.]+)/) {
-      #### For old versions of client.cpp that printed out in msec.
-      $high_latency = ($1 + 0.5) * 1000;
-      $high_jitter = ($2 + 0.5) * 1000;
-    } elsif (/^High priority client latency : ([\d\.]+) usec, jitter: ([\d\.]+)/) {
-      $high_latency = $1 + 0.5;
-      $high_jitter = $2 + 0.5;
-    } elsif (/^Low priority client latency : ([\d\.]+) msec, jitter: ([\d\.]+)/) {
-      #### For old versions of client.cpp that printed out in msec.
-      $low_latency = ($1 + 0.5) * 1000;
-      $low_jitter = ($2 + 0.5) * 1000;
-        last;
-    } elsif (/^Low priority client latency : ([\d\.]+) usec, jitter: ([\d\.]+)/) {
-      $low_latency = $1 + 0.5;;
-      $low_jitter = $2 + 0.5;;
-        last;
-    }
-  }
-  close FILE;
-
-  printf "    %3d      %8d   %8d  %8d   %8d\n",
-    $total_threads - 1, $high_latency, $high_jitter, $low_latency, $low_jitter;
-}