diff options
author | Thorvald Natvig <slicer@users.sourceforge.net> | 2009-03-22 00:03:32 +0300 |
---|---|---|
committer | Thorvald Natvig <slicer@users.sourceforge.net> | 2009-03-22 00:04:16 +0300 |
commit | e0fe5c78fd61292ced7b3707be37c22dff7f5b05 (patch) | |
tree | da6fec628f6bfe4ddd80dc41b00d8318be0f6cee /scripts/git2cl.pl | |
parent | 4eb6d7d90f8f8754439617f12f42c7cd66b8da5c (diff) |
Update changelog script to credit SVN authors properly
Diffstat (limited to 'scripts/git2cl.pl')
-rw-r--r-- | scripts/git2cl.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/scripts/git2cl.pl b/scripts/git2cl.pl index 1c009da4e..5ca282769 100644 --- a/scripts/git2cl.pl +++ b/scripts/git2cl.pl @@ -14,12 +14,21 @@ my $lsub = ''; while(<LOG>) { chomp(); my ($hash,$author,$email,$date,$subject) = split(/\0/,$_); + + if ($subject =~ s/\s*\[(\w+)\]$//) { + $author = $1; + $email = lc "$1\@users.sourceforge.net"; + } + if (! exists($authors{$email})) { $authors{$email}=$author; } + next if ($subject =~ /^Merge branch 'master/); next if ($subject =~ /^Indent and submodule update/); next if ($subject =~ /^Indent run/); + next if ($subject =~ /^\*\*\* empty log message/); + next if ($subject =~ /^git-svn-id: http/); next if ($subject eq $lsub); $lsub = $subject; my $entry = wrap(" $hash ", " ", $subject); |