~ubuntu-branches/ubuntu/intrepid/git-core/intrepid-updates

« back to all changes in this revision

Viewing changes to contrib/stats/mailmap.pl

• browse files at revision 31
• compare with another revision
• download diff
• download tarball
• view history from revision 31

Show diffs side-by-side

added

removed

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

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1