[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index] [Xen-devel] [OSSTEST PATCH 01/13] sg-report-host-history: Improve debugging output
Signed-off-by: Ian Jackson <ian.jackson@xxxxxxxxxxxxx> --- 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@xxxxxxxxxxxxxxxxxxxx https://lists.xenproject.org/mailman/listinfo/xen-devel
|
Lists.xenproject.org is hosted with RackSpace, monitoring our |