[PATCH RFC 4/9] ts-unixbench-reslts: for retrieving the results

[Dario Faggioli <dario.faggioli@citrix.com>]

and store them in $c{Stash}/$flight/$job/results.

XXX: - I think $c{Stash}/<flight>/<job>/results is a fine
       place (very similar to what build jobs do, IMO). If
       a different location should be used, please advise.
     - This is, for now, only fetching the results. Of
       course we'd like to do something with them
       (printing, plotting, storing for long term usage
       or comparison, etc.). Let's have a discussion
       about this and I'll implementi it too

Signed-off-by: Dario Faggioli <dario.faggioli@citrix.com>
---
 ts-unixbench-reslts |   56 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100755 ts-unixbench-reslts

diff --git a/ts-unixbench-reslts b/ts-unixbench-reslts
new file mode 100755
index 0000000..37bcfc6
--- /dev/null
+++ b/ts-unixbench-reslts
@@ -0,0 +1,56 @@
+#!/usr/bin/perl -w
+# This is part of "osstest", an automated testing framework for Xen.
+# Copyright (C) 2009-2013 Citrix Inc.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+use strict qw(vars);
+use Osstest;
+use DBI;
+use IO::File;
+use POSIX;
+use Osstest::TestSupport;
+use File::Basename;
+
+tsreadconfig();
+
+# what we expect as argument list is:
+#  host=<somehost> [<someguest>]
+our $ho= selecthost($ARGV[0]); shift @ARGV;
+our $gho= $ho;
+if ( (0+@ARGV) == 1) {
+  $gho= selectguest($ARGV[0], $ho);
+  my $err= guest_check_ip($gho);
+  die "$err $gho->{Name}" if defined $err;
+}
+
+my $lresults_dir= "$stash/results";
+my $rresults_dir= "/root/unixbench/results";
+ensuredir($lresults_dir);
+
+my $resultspat= "$rresults_dir/$gho->{Guest}*-01*";
+
+my $rresfiles_str= target_cmd_output_root($gho, <<END);
+    chmod a+r $resultspat 2>&1 ||:
+    echo $resultspat
+END
+
+my @rresfiles= split(' ', $rresfiles_str);
+
+foreach (@rresfiles) {
+  my ($name, $dir, $ext) = fileparse($_, qr/\.[^.]*/);
+  target_getfile_root($gho, 60, "$_", "$lresults_dir/$gho->{Name}-unixbench$ext");
+}
+
+logm("results captured to $lresults_dir");