Merge git://git.kernel.org/pub/scm/gitk/gitk
[git] / contrib / stats / mailmap.pl
1 #!/usr/bin/perl -w
2 my %mailmap = ();
3 open I, "<", ".mailmap";
4 while (<I>) {
5         chomp;
6         next if /^#/;
7         if (my ($author, $mail) = /^(.*?)\s+<(.+)>$/) {
8                 $mailmap{$mail} = $author;
9         }
10 }
11 close I;
12
13 my %mail2author = ();
14 open I, "git log --pretty='format:%ae   %an' |";
15 while (<I>) {
16         chomp;
17         my ($mail, $author) = split(/\t/, $_);
18         next if exists $mailmap{$mail};
19         $mail2author{$mail} ||= {};
20         $mail2author{$mail}{$author} ||= 0;
21         $mail2author{$mail}{$author}++;
22 }
23 close I;
24
25 while (my ($mail, $authorcount) = each %mail2author) {
26         # %$authorcount is ($author => $count);
27         # sort and show the names from the most frequent ones.
28         my @names = (map { $_->[0] }
29                 sort { $b->[1] <=> $a->[1] }
30                 map { [$_, $authorcount->{$_}] }
31                 keys %$authorcount);
32         if (1 < @names) {
33                 for (@names) {
34                         print "$_ <$mail>\n";
35                 }
36         }
37 }
38