1 files changed, 123 insertions, 0 deletions
diff --git a/src/hackbench/runit.pl b/src/hackbench/runit.pl
new file mode 100644
index 0000000..6e46b7b
--- /dev/null
+++ b/src/hackbench/runit.pl
@@ -0,0 +1,123 @@
+#!/usr/bin/perl -w
+
+use Env;
+
+if ( ! $STP_CLIENT_API ) 
+{
+	print "No STP environment.  Exiting.\n";
+	exit -1;
+}
+
+# This will take two optional arguments:
+# STEP: Min value and The step to use 
+# MAX: The maximum # of groups to reach in testing
+
+if ($#ARGV == 1)
+{
+  $STEP = $ARGV[0];
+  $MAX = $ARGV[1];
+} else {
+  $STEP = 20;
+  $MAX = 100;
+}
+
+# We suggest that unless you want to build in package listings for each possible
+# target OS, you should have a script ready to automate the build process.
+
+print "\nWelcome to the hackbench test\n\n";
+print "---Making the binaries (via make clean all)---\n";
+print `rm -rf bin`;
+print `tar -zxf hackbench_bin.tar.gz`;
+chdir "bin";
+print `make clean all 1> /dev/null`;
+print "---Done---\n\n"; 
+
+# Create final index.html
+open FHI, ">$WRAP_HOME/index.html";
+open FHO, "<$RESULTS_HEADER";
+while(<FHO>){
+	print FHI;
+}
+close FHO;
+open FHO, "<$WRAP_HOME/index.body";
+while(<FHO>){
+	print FHI;
+}
+close FHO;
+open FHO, "<$RESULTS_FOOTER";
+while(<FHO>){
+	print FHI;
+}
+close FHI;
+close FHO;
+
+open (FILE, ">>$RESULTS/data") || die "cannot append to results file";
+print FILE "# Hackbench Results\n";
+print FILE "# -------------------------------\n";
+print FILE "# Processes | Ave Time(sec)\n";
+print FILE "# -------------------------------\n";
+
+# REMEMBER, any output form this file is sent as an email to the user, make sure it's
+# short, informative and not filled with binary error spews.
+
+print "========================\n";
+print "Executing hackbench runs\n";
+print "========================\n\n";
+
+# This is a basic run with simple values
+
+# The system makes this directory now
+#system "rm -rf $RESULTS";
+#mkdir "$RESULTS";
+
+@times = ();
+
+print "Running with $STEP to $MAX groups, with step $STEP\n";
+
+system ("/usr/bin/stp_timeout.sh 2h hackbench &");
+
+system ("stp_profile 'Test set-up complete.'");
+
+for ($numgr = $STEP; $numgr <= $MAX; $numgr += $STEP )
+{
+  print "Running with $numgr groups";
+
+  for ($run = 0; $run < 5; $run++)
+  {
+
+    if ( `./hackbench $numgr` =~ m/Time: ([0-9.]+)/ ) {
+      $time = $1;
+    }
+    push(@times, $time);
+    print ".";
+  }
+
+  $ave = 0;
+  foreach $time (@times)
+  {
+    $ave += $time;
+  }
+  $ave = $ave / scalar(@times);
+  print " Average $ave s\n";
+  
+  print FILE  "$numgr 		$ave\n";
+}
+close FILE;
+
+system ("stp_profile 'Run test.'");
+
+open FHO,  "<$RESULTS/data"; 
+open FHI,  ">>$RESULTS_EMAIL";
+while (<FHO>){
+	print  FHI;
+}
+close FHO; 
+close FHI; 
+
+# Make the plot
+system "cp -a $WRAP_HOME/graph.cfg $RESULTS/";
+chdir $RESULTS;
+chmod 0755, 'graph.cfg';
+system ("$RESULTS/graph.cfg");
+
+exit;