>From 9be25f68da32f4210088bcd9a56ee52a2465f440 Mon Sep 17 00:00:00 2001
From: Ralf Wildenhues <address@hidden>
Date: Mon, 30 Aug 2010 21:40:26 +0200
Subject: [PATCH 2/2] Add summaries keyed on mode.

---
 autobuild |   79 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 files changed, 78 insertions(+), 1 deletions(-)

diff --git a/autobuild b/autobuild
index fc4f8f1..b76436c 100755
--- a/autobuild
+++ b/autobuild
@@ -370,7 +370,7 @@ if (!$InlineHTML) {
 		    } else {
 			print " from $Buildtype</td>\n";
 		    }
-		    print "<td>$Mode</td>\n";
+		    print "<td><a href=\"#$project-$Mode\">$Mode</a></td>\n";
 		    print "<td><a href=\"#$project-$Revision\">$Revision</a></td>\n";
 		    print "<td><a href=\"#$project-$Hostname\">$Hostname</a></td>\n";
 		    print "<td>$Timestamp</td>\n";
@@ -414,6 +414,11 @@ foreach $project (sort keys %Projects) {
 	print "<a href=\"#$project-$hostname\">$hostname</a>, \n";
     }
     print "</p>\n";
+    print "<p>Modes (" . keys(%{$Modes{$project}}) . "): ";
+    foreach $mode (sort keys %{$Modes{$project}}) {
+	print "<a href=\"#$project-$mode\">$mode</a>, \n";
+    }
+    print "</p>\n";
 
     foreach $revision (reverse sort { if ($a eq $b) { return 0; } else { my $i = 0; do { my $j = substr ($a, $i, 1); my $k = substr ($b, $i, 1); if ($j != $k) { $j = substr ($a, $i); $k = substr ($b, $i); return $j <=> $k; } $i++; } while ($i < length($a)); } } keys %{$Revisions{$project}}) {
 	my $bit = 0;
@@ -629,6 +634,78 @@ foreach $project (sort keys %Projects) {
 	print "\n";
     }
     print "\n";
+
+    foreach $mode (sort keys %{$Modes{$project}}) {
+	my $bit = 0;
+
+	print "<hr />\n";
+	print "<h3><a name=\"$project-$mode\">\n";
+	print "Summary for $project in mode $mode</a></h3>\n";
+	print "\n";
+	print "<table border=\"0\">\n";
+	print "<tr bgcolor=\"lightblue\">\n";
+	print "<td>System</td>\n";
+	print "<td>Build host</td>\n";
+	print "<td>Revision</td>\n";
+	print "<td>Build date</td>\n";
+	print "<td>Results</td>\n";
+	print "</tr>\n";
+	print "\n";
+	foreach $file (@Files) {
+	    next unless $Project{$file} eq $project;
+	    next unless $Mode{$file} eq $mode;
+
+	    my ($Project);
+	    my ($Revision);
+	    my ($Mode);
+	    my ($Hosttype);
+	    my ($Buildtype);
+	    my ($Hostname);
+	    my ($Timestamp);
+	    my ($Status);
+
+	    $Revision = $Revision{$file};
+	    $Mode = $Mode{$file};
+	    $Hosttype = $Hosttype{$file};
+	    $Buildtype = $Buildtype{$file};
+	    $Hostname = $Hostname{$file};
+	    $Timestamp = $Timestamp{$file};
+	    $Status = $Status{$file};
+
+	    if ($bit) {
+		print "<tr bgcolor=\"lightgrey\">\n";
+	    } else {
+		print "<tr>\n";
+	    }
+	    $bit = !$bit;
+
+	    print "<td>$Hosttype";
+	    if ($Hosttype eq $Buildtype) {
+		print "</td>\n";
+	    } else {
+		print " from $Buildtype</td>\n";
+	    }
+	    print "<td>$Hostname</td>\n";
+	    print "<td>$Revision</td>\n";
+	    print "<td>$Timestamp</td>\n";
+	    print "<td><a href=\"$file\">\n";
+	    if ($Status eq "ok") {
+		print "<font color=\"green\">Success</font>\n";
+	    } elsif ($Status eq "almost") {
+		print "<font color=\"orange\">Almost</font>\n";
+	    } elsif ($Status eq "built") {
+		print "<font color=\"yellow\">Built</font>\n";
+	    } else {
+		print "<font color=\"red\">Failure</font>\n";
+	    }
+	    print "</a></td>\n";
+	    print "</tr>\n";
+	    print "\n";
+	}
+	print "</table>\n";
+	print "\n";
+    }
+    print "\n";
 }
 
 print "\n";
-- 
1.7.2.1.222.g9988