From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Wed, 12 Aug 2020 10:08:44 +0000 (+0100)
Subject: sg-report-host-history: Cache report_run_getinfo
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=d2459edc07981f1608f07a1d94ca834a561ec10a;p=people%2Faperard%2Fosstest.git

sg-report-host-history: Cache report_run_getinfo

No logical change.

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

diff --git a/sg-report-host-history b/sg-report-host-history
index efe652bb..a814ef37 100755
--- a/sg-report-host-history
+++ b/sg-report-host-history
@@ -266,7 +266,9 @@ END
 
 	print H "<td><a href=\"$url\">$jr->{job}</td>\n";
 
-	my $ri = report_run_getinfo({ %$jr, %$ir });
+	my $ri = cacheable_fn($jr, 'rri', sub {
+            report_run_getinfo({ %$jr, %$ir })
+	});
 	print H "<td $ri->{ColourAttr}>$ri->{Content}</td>\n";
 
 	my $powers = cacheable_fn($jr, 'b', sub {