sg-report-host-history: Drop per-job debug etc.

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>

diff --git a/sg-report-host-history b/sg-report-host-history
index a159df3e3d284bfd29111b70cf167e92fba7e97e..a34458e0c3240451e90a62571799e8b0e43c715e 100755 (executable)
--- 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};