Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---
 sg-report-host-history | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/sg-report-host-history b/sg-report-host-history
index bd7391e0..42def6bf 100755
--- a/sg-report-host-history
+++ b/sg-report-host-history
@@ -101,6 +101,8 @@ END
     $minflight //= 0;
 
     $flightcond = "(flight > $minflight)";
+
+    print DEBUG "MINFLIGHT $minflight\n";
 }
 
 sub jobquery ($$) {
@@ -128,18 +130,22 @@ END
 
     push @params, scalar keys %hosts;
 
+    print DEBUG "MAINQUERY...\n";
     $runvarq->execute(@params);
 
     print DEBUG "FIRST PASS\n";
     while (my $jr= $runvarq->fetchrow_hashref()) {
-	print DEBUG "JOB $jr->{flight}.$jr->{job} ";
+	print DEBUG " $jr->{flight}.$jr->{job} ";
 	push @{ $hosts{$jr->{val}} }, $jr;
     }
+    print DEBUG "\n";
 }
 
 sub reporthost ($) {
     my ($hostname) = @_;
 
+    print DEBUG "HOST $hostname...\n";
+
     die if $hostname =~ m/[^-_.+0-9a-z]/;
 
     my $html_file= "$htmlout/$hostname.html";
@@ -204,7 +210,7 @@ END
 
     my @rows;
     foreach my $jr (@$inrows) {
-	print DEBUG "JOB $jr->{flight}.$jr->{job}\n";
+	print DEBUG "JOB $jr->{flight}.$jr->{job} ";
 
 	my $endedrow = jobquery($endedq, $jr);
 	if (!$endedrow) {
@@ -222,6 +228,7 @@ END
 
     my $alternate = 0;
     foreach my $jr (@rows) {
+        print DEBUG "JR $jr->{flight}.$jr->{job}\n";
 	my $ir = jobquery($infoq, $jr);
 	my $ar = jobquery($allocdq, $jr);
 	my $ident = $jr->{name};
@@ -340,6 +347,7 @@ foreach my $host (@ARGV) {
 END
             $hostsinflightq->execute($flight);
 	    while (my $row = $hostsinflightq->fetchrow_hashref()) {
+                print DEBUG "HR $row->{val}\n";
 		$hosts{$row->{val}} = [ ];
 	    }
 	});
-- 
2.11.0


_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xenproject.org
https://lists.xenproject.org/mailman/listinfo/xen-devel