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 42def6bfdf7fb8f6aa0c67689a099e7895016f7f..c9f4aaa6622bbf526cfa4fd018c2fb7834056cb3 100755 (executable)
--- 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 {