| ",
- "$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
+ # Time column
#
- $buildname = &url_encode($buildname);
- my $logurl = "${rel_path}showlog.cgi?log=$buildtree/$logfile";
+ my $query_link = '';
+ my $end_query = '';
+ my $pretty_time = &print_time($build_time_times->[$tt]);
+
+ ($hour) = $pretty_time =~ /(\d\d):/;
- if ($hasnote) {
- print "",
- " \n";
+ if ($lasthour ne $hour or &has_who_list($tt)) {
+ $query_link = &query_ref($td, $build_time_times->[$tt]);
+ $end_query = '';
}
-
- # Build Log
- #
- print "";
- print "L";
-
- # What Changed
+ if ($lasthour eq $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
#
- 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";
+ 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
- # 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);
- }
+ 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/$buildtime/$br->{buildname}/"
- ."$br->{binaryname}";
- $binfile =~ s/ //g;
- print " B";
+ # Binary
+ #
+ if ($br->{binaryname} ne '') {
+ $binfile = "$buildtree/bin/$br->{buildtime}/$br->{buildname}/"
+ ."$br->{binaryname}";
+ $binfile =~ s/ //g;
+ print " B";
+ }
+ print "\n | ";
}
- print "\n";
+ print " \n";
}
- print " |
\n";
}
sub print_table_header {
- my $ii, $nspan;
-
print "