diff options
-rwxr-xr-x | parse-git | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -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); |