Permalink
Browse files

Add a "Who" column to index.cgi.

  • Loading branch information...
1 parent 08f9658 commit f2fcfe80fe7dfbd62046d6a93cd75ec48097cbf1 @apenwarr committed Sep 11, 2008
Showing with 16 additions and 8 deletions.
  1. +8 −4 out/index.cgi
  2. +4 −1 out/log.cgi
  3. +4 −3 revlist.sh
View
12 out/index.cgi
@@ -88,7 +88,7 @@ print h1("Autobuilder results",
print start_table();
print Tr(th("        "),
- th("Result"), th("Commit"), th("Details"));
+ th("Result"), th("Commit"), th("Who"), th("Details"));
for my $branch (list_branches()) {
my $branchprint = $branch;
@@ -102,18 +102,19 @@ for my $branch (list_branches()) {
$last_was_pending -= $print_pending;
$print_pending = 0;
print Tr(td($branchprint),
- td("...$last_was_pending..."), td(""), td(""));
+ td("...$last_was_pending..."), td(""), td(""), td(""));
$branchprint = "";
}
$last_was_pending = 0;
}
foreach my $rev (revs_for_branch($branch)) {
- my ($commit, $comment) = split(" ", $rev, 2);
+ my ($commit, $email, $comment) = split(" ", $rev, 3);
my $filename;
my $failed;
my $logcgi = "log.cgi?log=$commit";
+ $email =~ s/\@.*//;
if (-f "pass/$commit") {
$filename = "pass/$commit";
@@ -126,13 +127,15 @@ for my $branch (list_branches()) {
print Tr(td($branchprint),
td({bgcolor=>'#ffff66'}, "BUILDING"),
td(shorten($commit, 7)),
+ td($email),
td($comment));
$branchprint = "";
next;
} elsif ($last_was_pending == 0 && $print_pending) {
print Tr(td($branchprint),
td("(Pending)"),
td(shorten($commit, 7)),
+ td($email),
td($comment));
$last_was_pending = 1;
$branchprint = "";
@@ -150,14 +153,15 @@ for my $branch (list_branches()) {
td({bgcolor=>($failed ? "#ff6666" : "#66ff66")},
$failed ? b("FAIL") : "ok"),
td(shorten($commit, 7)),
+ td($email),
td(a({-href=>$logcgi}, "$codestr") . " $comment"));
$branchprint = "";
}
do_pending_dots();
if (!$branchprint) {
- print Tr(td({colspan=>4}, hr));
+ print Tr(td({colspan=>5}, hr));
}
}
View
5 out/log.cgi
@@ -56,7 +56,8 @@ while (defined(my $s = <$fh>))
print end_ul;
$in = 0;
}
- } elsif ($s =~ /^Project ".*"/ || $s =~ /^---/ || $s =~ /^-->/) {
+ } elsif ($s =~ /^Project ".*"/ || $s =~ /^---/ || $s =~ /^-->/
+ || $s =~ /^Testing ".*" in .*:\s*/) {
$class = "msbuild";
if ($in) {
print end_ul;
@@ -72,6 +73,8 @@ while (defined(my $s = <$fh>))
} elsif ($s =~ /(hint|warning|error|fatal)\s*:\s*(.*)/i) {
$class = lc $1;
$s = ul("$1: $2");
+ } elsif ($s =~ /^!\s*(.*?)\s+(\S+)\s*$/ && $2 ne "ok") {
+ $class = 'error';
}
print div({-class=>$class}, $s);
View
7 revlist.sh
@@ -4,13 +4,14 @@ cd "$DIR/build"
#ls ../out/pass/* |
# sed -e 's,^\(.*/\)*\([0-9a-f]*\).*$,^\2^,g' |
-git rev-list --first-parent --pretty=oneline "$@" |
- while read commit comment; do
+git rev-list --first-parent --pretty='format:%H %ce %s' "$@" |
+ while read commit email comment; do
+ [ "$commit" = "commit" ] && continue
if [ -f ../out/ignore/$commit ]; then
# never print an ignored commit
exit 0;
fi
- echo "$commit $comment"
+ echo "$commit $email $comment"
if [ -f ../out/pass/$commit ]; then
# print the first passing commit, then done
exit 0;

0 comments on commit f2fcfe8

Please sign in to comment.