From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Thu, 7 Nov 2019 17:06:46 +0000 (+0000)
Subject: sg-report-host-history: New --no-install option for testing
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=c52d6547e59bccd238816e7ea753b4471c42f9e7;p=people%2Froyger%2Fosstest.git

sg-report-host-history: New --no-install option for testing

No change for existing callers.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---

diff --git a/sg-report-host-history b/sg-report-host-history
index 42def6b..c9f4aaa 100755
--- a/sg-report-host-history
+++ b/sg-report-host-history
@@ -31,6 +31,7 @@ use Osstest::Executive qw(:DEFAULT :colours);
 our $limit= 200;
 our $flightlimit;
 our $htmlout = ".";
+our $doinstall=1;
 our @blessings;
 
 open DEBUG, ">/dev/null";
@@ -51,6 +52,8 @@ while (@ARGV && $ARGV[0] =~ m/^-/) {
         push @blessings, split ',', $1;
     } elsif (m/^--html-dir=(.*)$/) {
         $htmlout= $1;
+    } elsif (m/^--no-install$/) {
+        $doinstall= 0;
     } elsif (m/^--debug/) {
         open DEBUG, ">&2" or die $!;
         DEBUG->autoflush(1);
@@ -322,7 +325,8 @@ END
     print H "</table></body></html>\n";
 
     close H or die $!;
-    rename "$html_file.new", "$html_file" or die "$html_file $!";
+    rename "$html_file.new", "$html_file" or die "$html_file $!"
+        if $doinstall;
 }
 
 db_retry($dbh_tests, [], sub {