summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xparse-git12
1 files changed, 10 insertions, 2 deletions
diff --git a/parse-git b/parse-git
index 2e28fb7..60c529e 100755
--- a/parse-git
+++ b/parse-git
@@ -50,6 +50,7 @@ die ("Project is not a nice name.\n") unless defined $project;
my $subject;
my $who;
my $date;
+my $author;
open (MAIL, $ARGV[1]) || die ("Cannot open $ARGV[1]: $!\n");
my @mail = <MAIL>;
@@ -70,6 +71,9 @@ while (defined($line = shift @mail)) {
} elsif ($chomped =~ m/^From: (.*)/) {
$who = $1;
next;
+ } elsif ($chomped =~ m/^Patch-Author: (.*)/) {
+ $author = $1;
+ next;
}
}
@@ -91,7 +95,11 @@ my $at;
if (defined $date) {
$at = " at $date";
}
-$subject =~ s/\[([^\]]*)\] /in $1: /;
-print MAIL "$who$at $subject\n";
+my $by;
+if (defined $author) {
+ $by = " by $by";
+}
+$subject =~ s/\[([^\]]*)\] /to $1: /;
+print MAIL "$who committed patch$by$at $subject\n";
close(MAIL);