| ",
- "$query_link\n$pretty_time$end_query | \n";
-
- # Guilty
- #
- print '';
- for $who (sort keys %{$who_list->[$tt]} ){
- my $qr = &who_menu($td, $build_time_times->[$tt],
- $build_time_times->[$tt-1],$who);
- $who =~ s/%.*$//;
- print " $qr$who\n";
- }
- print ' | ';
-
- # Build Status
- #
- for (my $build_index=0; $build_index < $name_count; $build_index++) {
- if (not defined($br = $build_table->[$tt][$build_index])) {
- # No build data for this time
- print " | \n";
- next;
- }
- next if $br == -1; # rowspan has covered this row
-
- my $rowspan = $br->{rowspan};
- $rowspan = $mindate_time_count - $tt + 1
- if $tt + $rowspan - 1 > $mindate_time_count;
- print "{buildstatus}}>\n";
-
- my $logfile = $br->{logfile};
- my $buildtree = $br->{td}->{name};
-
- print "\n";
-
- # Build Note
- #
- my $logurl = "${rel_path}showlog.cgi?log=$buildtree/$logfile";
-
- if ($br->{hasnote}) {
- print "{noteid},'$logfile');\">",
- " \n";
- }
-
- # Build Log
- #
- print ""
- ."L";
-
- # What Changed
- #
- # Only add the "C" link if there have been changes since the last build.
- if( $br->{previousbuildtime} ){
- my $previous_br = $build_table->[$tt+$rowspan][$build_index];
- my $previous_rowspan = $previous_br->{rowspan};
- if (&has_who_list($tt+$rowspan,
- $tt+$rowspan+$previous_rowspan-1)) {
- print "\n", &query_ref($br->{td},
- $br->{previousbuildtime},
- $br->{buildtime});
- print "C";
- }
- }
-
- # Leak/Bloat
- #
- if (defined $bloaty_by_log->{$logfile}) {
- my ($leaks, $bloat);
- ($leaks, $bloat) = @{ $bloaty_by_log->{$logfile} };
- printf "
Lk:%s
Bl:%s",
- print_bloat_delta($leaks, $bloaty_min_leaks),
- print_bloat_delta($bloat, $bloaty_min_bloat);
- }
-
- # Binary
- #
- if ($br->{binaryname} ne '') {
- $binfile = "$buildtree/bin/$br->{buildtime}/$br->{buildname}/"
- ."$br->{binaryname}";
- $binfile =~ s/ //g;
- print " B";
- }
- print "\n | ";
- }
- print "
\n";
+ if ($lasthour != $hour or &has_who_list($tt)) {
+ $query_link = &query_ref($td1, $build_time_times->[$tt]);
+ $end_query = '';
}
+ if ($lasthour == $hour) {
+ $pretty_time =~ s/^.* //;
+ } else {
+ $lasthour = $hour;
+ }
+
+ my $hour_color = '';
+ $hour_color = ' bgcolor=#e7e7e7' if $build_time_times->[$tt] % 7200 <= 3600;
+ print "| ",
+ "$query_link\n$pretty_time$end_query | \n";
+
+ # Guilty
+ #
+ print '';
+ for $who (sort keys %{$who_list->[$tt]} ){
+ $qr = &who_menu($td1, $build_time_times->[$tt],
+ $build_time_times->[$tt-1],$who);
+ $who =~ s/%.*$//;
+ print " ${qr}$who\n";
+ }
+ print ' | ';
+
+ # Build Status
+ #
+ for ($bn=1; $bn <= $name_count; $bn++) {
+ if (not defined($br = $build_table->[$tt][$bn])) {
+ # No build data for this time
+ print " | \n";
+ next;
+ }
+ next if $br == -1; # rowspan has covered this row
+
+ $hasnote = $br->{hasnote};
+ $noteid = $hasnote ? $br->{noteid} : 0;
+ $rowspan = $br->{rowspan};
+ $rowspan = $mindate_time_count - $tt + 1
+ if $tt + $rowspan - 1 > $mindate_time_count;
+ $color = $colormap{$br->{buildstatus}};
+ $status = $br->{buildstatus};
+ print "\n";
+
+ $logfile = $br->{logfile};
+ $errorparser = $br->{errorparser};
+ $buildname = $br->{buildname};
+ $buildtime = $br->{buildtime};
+ $buildtree = $br->{td}->{name};
+
+ print "\n";
+
+ # Build Note
+ #
+ $buildname = &url_encode($buildname);
+ my $logurl = "${rel_path}showlog.cgi?log=$buildtree/$logfile";
+
+ if ($hasnote) {
+ print "",
+ "\n";
+ }
+
+ # Build Log
+ #
+ print "";
+ print "L";
+
+ # What Changed
+ #
+ if( $br->{previousbuildtime} ){
+ my $previous_br = $build_table->[$tt+$rowspan][$bn];
+ my $previous_rowspan = $previous_br->{rowspan};
+ if (&has_who_list($tt+$rowspan,
+ $tt+$rowspan+$previous_rowspan-1)) {
+ print "\n", &query_ref($br->{td},
+ $br->{previousbuildtime},
+ $br->{buildtime});
+ print "C";
+ }
+ }
+
+ # Leak/Bloat
+ #
+ if (defined $bloat_by_log->{$logfile}) {
+ my $leaks, $bloat;
+ ($leaks, $bloat) = @{ $bloat_by_log->{$logfile} };
+ # Percentage, or absolute?
+ # printf "
%+.2f
%+.2f", $leaks, $bloat;
+ #printf "
%d
%d", $leaks, $bloat;
+ printf "
Lk:%s
Bl:%s",
+ print_delta($leaks, $minLeaks),
+ print_delta($bloat, $minBloat);
+ }
+
+ # Binary
+ #
+ if ($br->{binaryname} ne '') {
+ $binfile = "$buildtree/bin/$buildtime/$br->{buildname}/"
+ ."$br->{binaryname}";
+ $binfile =~ s/ //g;
+ print " B";
+ }
+ print "\n | ";
+ }
+ print "
\n";
}
sub print_table_header {
+ my $ii, $nspan;
+
print "