Mailing List Archive

This printing has a significant effect on the performance of this
program, at least after we optimise various other things.

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

diff --git a/sg-report-host-history b/sg-report-host-history
index a159df3e..a34458e0 100755
--- a/sg-report-host-history
+++ b/sg-report-host-history
@@ -102,9 +102,9 @@ sub read_existing_logs ($) {
my $k = $1;
s{\%([0-9a-f]{2})}{ chr hex $1 }ge;
$ch->{$k} = $_;
- print DEBUG "GOTCACHE $hostname $k\n";
+# print DEBUG "GOTCACHE $hostname $k\n";
}
- print DEBUG "GOTCACHE $hostname \@ $jr->{flight} $jr->{job} $jr->{status},$jr->{name}\n";
+# print DEBUG "GOTCACHE $hostname \@ $jr->{flight} $jr->{job} $jr->{status},$jr->{name}\n";
$tcache->{$jr->{flight},$jr->{job},$jr->{status},$jr->{name}} = $jr;
}
close H;
@@ -272,7 +272,7 @@ END
my @rows;
my $cachehits = 0;
foreach my $jr (@$inrows) {
- print DEBUG "JOB $jr->{flight}.$jr->{job} ";
+ #print DEBUG "JOB $jr->{flight}.$jr->{job} ";

my $cacherow =
$tcache->{$jr->{flight},$jr->{job},$jr->{status},$jr->{name}};
@@ -283,11 +283,11 @@ END

my $endedrow = jobquery($endedq, $jr, 'e');
if (!$endedrow) {
- print DEBUG "no-finished\n";
+ #print DEBUG "no-finished\n";
next;
}
- print DEBUG join " ", map { $endedrow->{$_} } sort keys %$endedrow;
- print DEBUG ".\n";
+ #print DEBUG join " ", map { $endedrow->{$_} } sort keys %$endedrow;
+ #print DEBUG ".\n";

push @rows, { %$jr, %$endedrow };
}
@@ -329,7 +329,7 @@ END
next;
}

- print DEBUG "JR $jr->{flight}.$jr->{job}\n";
+ #print DEBUG "JR $jr->{flight}.$jr->{job}\n";
my $ir = jobquery($infoq, $jr, 'i');
my $ar = jobquery($allocdq, $jr, 'a');
my $ident = $jr->{name};
--
2.20.1