[p5sagit/p5-mst-13.2.git] / Porting / checkAUTHORS.pl

#!/usr/bin/perl -w
use strict;
use Text::Wrap;
$Text::Wrap::columns = 80;
my ($committer, $patch, $log);
use Getopt::Long;

my ($rank, $percentage, $cumulative, $reverse, $ta, @authors, %authors,
    %untraced, %patchers, %committers);
my $result = GetOptions ("rank" => \$rank,		    # rank authors
			 "thanks-applied" => \$ta,	    # ranks committers
			 "acknowledged=s"   => \@authors ,  # authors files
			 "percentage" => \$percentage,      # show as %age
			 "cumulative" => \$cumulative,
			 "reverse" => \$reverse,
			);

if (!$result or (($rank||0) + ($ta||0) + (@authors ? 1 : 0) != 1) or !@ARGV) {
  die <<"EOS";
$0 --rank Changelogs                        # rank authors by patches
$0 --acknowledged <authors file> Changelogs # Display unacknowledged authors
$0 --thanks-applied Changelogs		    # ranks committers
$0 --percentage ...                         # show rankings as percentages
$0 --cumulative ...                         # show rankings cumulatively
$0 --reverse ...                            # show rankings in reverse
Specify stdin as - if needs be. Remember that option names can be abbreviated.
EOS
}


my $prev = "";
my %map;

while (<DATA>) {
    chomp;
    s/\\100/\@/g;
    $_ = lc;
    if (my ($correct, $alias) = /^\s*([^#\s]\S*)\s+(.*\S)/) {
        $correct =~ s/^\\043/#/;
        if ($correct eq '+') {$correct = $prev} else {$prev = $correct}
        $map {$alias} = $correct;
    }
}

#
# Email addresses for we do not have names.
#
$map {$_} = "?" for 
    "agrow\100thegotonerd.com",
    "alexander_bluhm\100genua.de",
    "alexander_gernler\100genua.de",
    "ammon\100rhythm.com",
    "andrew\100sundale.net",
    "bah\100longitude.com",
    "bbucklan\100jpl-devvax.jpl.nasa.gov",
    "ben\100linuxgazette.net",
    "bilbo\100ua.fm",
    "blino\100mandriva.com",
    "bob\100starlabs.net",
    "bonefish\100cs.tu-berlin.de",
    "bstrand\100switchmanagement.com",
    "cygwin\100cygwin.com",
    "david\100dhaller.de",
    "dformosa\100dformosa.zeta.org.au",
    "dgay\100acm.org",
    "erik\100cs.uni-jena.de",
    "glasser\100tang-eleven-seventy-nine.mit.edu",
    "gml4410\100ggr.co.uk",
    "grommel\100sears.com",
    "ilmari\100vesla.ilmari.org",
    "ilya\100juil.nonet",
    "info\100lingo.kiev.ua",
    "jms\100mathras.comcast.net",
    "johnh\100isi.edu",
    "kan\100dcit.cz",
    "kaminsky\100math.huji.ac.il",
    "knew-p5p\100pimb.org",
    "kvr\100centrum.cz",
    "lemkemch\100t-online.de",
    "mauzo\100csv.warwick.ac.uk",
    "merijnb\100ms.com",
    "mlelstv\100serpens.de",
    "p.boven\100sara.nl",
    "padre\100elte.hu",
    "pancho\100pancho.name",
    "perlbug\100veggiechinese.net",
    "pm\100capmon.dk",
    "premchai21\100yahoo.com",
    "pxm\100nubz.org",
    "raf\100tradingpost.com.au",
    "scott\100perlcode.org",
    "smoketst\100hp46t243.cup.hp.com",
    "yath-perlbug\100yath.de",
;

#
# Email addresses for people that don't have an email address in AUTHORS
# Presumably deliberately?
# 

$map {$_} = '!' for
     # Nick Ing-Simmons has passed away (2006-09-25).
     "nick\100ing-simmons.net",
     "nik\100tiuk.ti.com",
     "nick.ing-simmons\100elixent.com",

     # Iain Truskett has passed away (2003-12-29).
     "perl\100dellah.anu.edu.au",
     "spoon\100dellah.org",
     "spoon\100cpan.org",

     # Ton Hospel
     "me-02\100ton.iguana.be",
     "perl-5.8.0\100ton.iguana.be",
     "perl5-porters\100ton.iguana.be",

     # Beau Cox
     "beau\100beaucox.com",

     # Randy W. Sims 
     "ml-perl\100thepierianspring.org",

     # Yuval Kogman
     "nothingmuch\100woobling.org",

;


if (@authors) {
  my %raw;
  foreach my $filename (@authors) {
    open FH, "<$filename" or die "Can't open $filename: $!";
    while (<FH>) {
      next if /^\#/;
      next if /^-- /;
      if (/<([^>]+)>/) {
	# Easy line.
	$raw{$1}++;
      } elsif (/^([-A-Za-z0-9 .\'À-ÖØöø-ÿ]+)[\t\n]/) {
	# Name only
	$untraced{$1}++;
      } else {
	chomp;
	warn "Can't parse line '$_'";
      }
    }
  }
  foreach (keys %raw) {
    print "E-mail $_ occurs $raw{$_} times\n" if $raw{$_} > 1;
    $_ = lc $_;
    $authors{$map{$_} || $_}++;
  }
  ++$authors{'!'};
  ++$authors{'?'};
}

while (<>) {
  next if /^-+/;
  if (m!^\[\s+(\d+)\]\s+By:\s+(\S+)\s+on!) {
    # new patch
    my @new = ($1, $2);
    &process ($committer, $patch, $log);
    ($patch, $committer) = @new;
    undef $log;
  } elsif (s/^(\s+Log: )//) {
    die "Duplicate Log:" if $log;
    $log = $_;
    my $prefix = " " x length $1;
    LOG: while (<>) {
      next if /^$/;
      s/^\t/        /;
      if (s/^$prefix//) {
	$log .= $_;
      } elsif (/^\s+Branch:/) {
	last LOG;
      } else {
	chomp;
	die "Malformed log end with '$_'";
      }
    }
  }
}

&process ($committer, $patch, $log);

if ($rank) {
  &display_ordered(\%patchers);
} elsif ($ta) {
  &display_ordered(\%committers);
} elsif (%authors) {
  my %missing;
  foreach (sort keys %patchers) {
    next if $authors{$_};
    # Sort by number of patches, then name.
    $missing{$patchers{$_}}->{$_}++;
  }
  foreach my $patches (sort {$b <=> $a} keys %missing) {
    print "$patches patch(es)\n";
    foreach my $author (sort keys %{$missing{$patches}}) {
      print "  $author\n";
    }
  }
}

sub display_ordered {
  my $what = shift;
  my @sorted;
  my $total;
  while (my ($name, $count) = each %$what) {
    push @{$sorted[$count]}, $name;
    $total += $count;
  }

  my $i = @sorted;
  return unless @sorted;
  my $sum = 0;
  foreach my $i ($reverse ? 0 .. $#sorted : reverse 0 .. $#sorted) {
    next unless $sorted[$i];
    my $prefix;
    $sum += $i * @{$sorted[$i]};
    # Value to display is either this one, or the cumulative sum.
    my $value = $cumulative ? $sum : $i;
    if ($percentage) {
	$prefix = sprintf "%6.2f:\t", 100 * $value / $total;
    } else {
	$prefix = "$value:\t";
    }
    print wrap ($prefix, "\t", join (" ", sort @{$sorted[$i]}), "\n");
  }
}

sub process {
  my ($committer, $patch, $log) = @_;
  return unless $committer;
  my @authors = $log =~ /From:\s+.*?([^"\@ \t\n<>]+\@[^"\@ \t\n<>]+)/gm;

  if (@authors) {
    foreach (@authors) {
      s/^<//;
      s/>$//;
      $_ = lc $_;
      $patchers{$map{$_} || $_}++;
    }
    # print "$patch: @authors\n";
    ++$committers{$committer};
  } else {
    # print "$patch: $committer\n";
    # Not entirely fair as this means that the maint pumpking scores for
    # everything intergrated that wasn't a third party patch in blead
    $patchers{$committer}++;
  }
}


__DATA__

#
# List of mappings. First entry the "correct" email address, as appears
# in the AUTHORS file. Second is any "alias" mapped to it.
#
# If the "correct" email address is a '+', the entry above is reused; 
# this for addresses with more than one alias.
#
# Note that all entries are in lowercase. Further, no '@' signs should
# appear; use \100 instead.
#
#
#  Committers.
#
adi                                     enache\100rdslink.ro
alanbur                                 alan.burlison\100sun.com
+                                       alan.burlison\100uk.sun.com
ams                                     ams\100wiw.org
chip                                    chip\100pobox.com
craigb                                  craig.berry\100psinetcs.com
+                                       craig.berry\100metamorgs.com
+                                       craig.berry\100signaltreesolutions.com
+                                       craigberry\100mac.com
+                                       craig.a.berry\100gmail.com
davem                                   davem\100fdgroup.com
+                                       davem\100iabyn.nospamdeletethisbit.com
+                                       davem\100iabyn.com
+                                       davem\100fdgroup.co.uk
+                                       davem\100fdisolutions.com
+                                       davem\100iabyn.com
demerphq                                demerphq\100gmail.com
+                                       yves.orton\100de.mci.com
+                                       yves.orton\100mciworldcom.de
doughera                                doughera\100lafayette.edu
gbarr                                   gbarr\100pobox.com
gisle                                   gisle\100activestate.com
+                                       gisle\100aas.no
gsar                                    gsar\100activestate.com
+                                       gsar\100cpan.org
hv                                      hv\100crypt.compulink.co.uk
+                                       hv\100crypt.org
jhi                                     jhi\100iki.fi
+                                       jhietaniemi\100gmail.com
+                                       jhi\100kosh.hut.fi
+                                       jhi\100cc.hut.fi
+                                       jarkko.hietaniemi\100nokia.com
merijn                                  h.m.brand\100xs4all.nl
+                                       h.m.brand\100hccnet.nl
+                                       merijn\100l1.procura.nl
mhx                                     mhx-perl\100gmx.net
nicholas                                nick\100unfortu.net
+                                       nick\100ccl4.org
+                                       nick\100talking.bollo.cx
+                                       nick\100plum.flirble.org
+                                       nick\100babyhippo.co.uk
+                                       nick\100bagpuss.unfortu.net
pudge                                   pudge\100pobox.com
rgs                                     rgarciasuarez\100free.fr
+                                       rgarciasuarez\100mandrakesoft.com
+                                       rgarciasuarez\100mandriva.com
+                                       rgarciasuarez\100gmail.com
+                                       raphel.garcia-suarez\100hexaflux.com
sky                                     sky\100nanisky.com
+                                       artur\100contiller.se
+                                       arthur\100contiller.se
steveh                                  stevehay\100planit.com
+                                       steve.hay\100uk.radan.com
stevep                                  steve\100fisharerojo.org
+                                       steve.peters\100gmail.com

#
# Mere mortals.
#
\043####\100juerd.nl			juerd\100cpan.org
+					juerd\100convolution.nl
7k8lrvf02\100sneakemail.com             kjx9zthh3001\100sneakemail.com
+                                       dtr8sin02\100sneakemail.com
+                                       rt8363b02\100sneakemail.com
+                                       o6hhmk002\100sneakemail.com
+                                       smueller\100cpan.org
+                                       l2ot9pa02\100sneakemail.com
+                                       wyp3rlx02\100sneakemail.com

a.r.ferreira\100gmail.com		aferreira\100shopzilla.com
abe\100ztreet.demon.nl                  abeltje\100cpan.org
abigail\100abigail.be                   abigail\100foad.org
+                                       abigail\100abigail.nl
ajohnson\100nvidia.com                  ajohnson\100wischip.com
alexm\100netli.com                      alexm\100w-m.ru
alex-p5p\100earth.li                    alex\100rcon.rog
alian\100cpan.org                       alian\100alianwebserver.com
allens\100cpan.org                      easmith\100beatrice.rutgers.edu
andreas.koenig\100anima.de        	andreas.koenig.gmwojprw\100franz.ak.mind.de
+                                 	andreas.koenig.7os6vvqr\100franz.ak.mind.de
+                                       a.koenig\100mind.de
anno4000\100lublin.zrz.tu-berlin.de     anno4000\100mailbox.tu-berlin.de
+                                       siegel\100zrz.tu-berlin.de
ash\100cpan.org                         ash_cpan\100firemirror.com
avarab\100gmail.com                     avar\100cpan.org

bah\100ecnvantage.com                   bholzman\100longitude.com
bcarter\100gumdrop.flyinganvil.org	q.eibcartereio.=~m-b.{6}-cgimosx\100gumdrop.flyinganvil.org
ben_tilly\100operamail.com              btilly\100gmail.com

chromatic\100wgz.org                    chromatic\100rmci.net
clkao\100clkao.org                      clkao\100bestpractical.com
corion\100corion.net			corion\100cpan.org
cp\100onsitetech.com                    publiustemp-p5p\100yahoo.com
+                                       publiustemp-p5p3\100yahoo.com
cpan\100audreyt.org                     autrijus\100egb.elixus.org
+                                       autrijus\100geb.elixus.org
+                                       autrijus\100gmail.com
+                                       autrijus\100ossf.iis.sinica.edu.tw
+                                       autrijus\100autrijus.org
+                                       audreyt\100audreyt.org

damian\100cs.monash.edu.au              damian\100conway.org
david.dyck\100fluke.com                 dcd\100tc.fluke.com
demerphq\100gmail.com                   demerphq\100hotmail.com
domo\100computer.org                    shouldbedomo\100mac.com

epeschko\100den-mdev1                   esp5\100pge.com

fugazi\100zyx.net                       larrysh\100cpan.org

jns\100integration-house.com            jns\100gellyfish.com
+                                       gellyfish\100gellyfish.com
gp\100familiehaase.de                   gerrit\100familiehaase.de
grazz\100pobox.com                      grazz\100nyc.rr.com

hio\100ymir.co.jp                       hio\100hio.jp

japhy\100pobox.com                      japhy\100pobox.org
+                                       japhy\100perlmonk.org
+                                       japhy\100cpan.org
jari.aalto\100poboxes.com               jari.aalto\100cante.net
jcromie\100divsol.com                   jcromie\100cpan.org
+                                       jim.cromie\100gmail.com
jdhedden\100cpan.org                    jerry\100hedden.us
+                                       jdhedden\1001979.usna.com
+                                       jdhedden\100gmail.com
+                                       jdhedden\100yahoo.com
jfriedl\100yahoo.com                    jfriedl\100yahoo-inc.com
jjore\100cpan.org                       twists\100gmail.com

kane\100dwim.org                        kane\100xs4all.net
+                                       kane\100cpan.org
+                                       kane\100xs4all.nl
+                                       jos\100dwim.org
+                                       jib\100ripe.net
ken\100mathforum.org			kenahoo\100gmail.com
kroepke\100dolphin-services.de          kay\100dolphin-services.de
kstar\100wolfetech.com                  kstar\100cpan.org
+					kurt_starsinic\100ml.com

marcel\100codewerk.com			gr\100univie.ac.at
mats\100sm6sxl.net                      mats\100sm5sxl.net
mbarbon\100dsi.unive.it                 mattia.barbon\100libero.it
mcmahon\100ibiblio.org                  mcmahon\100metalab.unc.edu
merijnb\100iloquent.nl                  merijnb\100iloquent.com
mgjv\100comdyn.com.au                   mgjv\100tradingpost.com.au
michael.schroeder\100informatik.uni-erlangen.de mls\100suse.de
mike\100stok.co.uk                      mike\100exegenix.com
mjtg\100cam.ac.uk                       mjtg\100cus.cam.ac.uk

nospam-abuse\100bloodgate.com           tels\100bloodgate.com
+                                       perl_dummy\100bloodgate.com
ilya\100math.berkeley.edu               ilya\100math.ohio-state.edu
+                                       nospam-abuse\100ilyaz.org

p5-authors\100crystalflame.net          perl\100crystalflame.net
+                                       rs\100crystalflame.net
paul.green\100stratus.com               paul_greenvos\100vos.stratus.com
paul.marquess\100btinternet.com         paul_marquess\100yahoo.co.uk
+                                       paul.marquess\100ntlworld.com
+                                       paul.marquess\100openwave.com
pcg\100goof.com                         schmorp\100schmorp.de
perl-rt\100wizbit.be			p5p\100perl.wizbit.be
# Maybe we should special case this to get real names out?
perlbug\100perl.org                     perlbug-followup\100perl.org
+                                       bugs-perl5\100bugs6.perl.org
phil\100perkpartners.com                phil\100finchcomputer.com
pimlott\100idiomtech.com                andrew\100pimlott.net
pne\100cpan.org                         philip.newton\100gmx.net
+                                       philip.newton\100datenrevision.de
+                                       pnewton\100gmx.de

radu\100netsoft.ro                      rgreab\100fx.ro
richard.foley\100ubsw.com               richard.foley\100t-online.de
+                                       richard.foley\100ubs.com
+                                       richard.foley\100rfi.net
rick\100consumercontact.com             rick\100bort.ca
+                                       rick.delaney\100rogers.com
+                                       rick\100bort.ca
rjbs\100cpan.org                        rjbs-perl-p5p\100lists.manxome.org
+					perl.p5p\100rjbs.manxome.org
rjk\100linguist.dartmouth.edu           rjk\100linguist.thayer.dartmouth.edu
+                                       rjk-perl-p5p\100tamias.net
rmgiroux\100acm.org                     rmgiroux\100hotmail.com
rmbarker\100cpan.org                    rmb1\100cise.npl.co.uk
+                                       robin.barker\100npl.co.uk
robertmay\100cpan.org			rob\100themayfamily.me.uk
rootbeer\100teleport.com                rootbeer\100redcat.com

schubiger\100cpan.org                   steven\100accognoscere.org
+                                       sts\100accognoscere.org
+					schubiger\100gmail.com
schwern\100pobox.com                    schwern\100gmail.com
+                                       schwern\100athens.arena-i.com
+                                       schwern\100blackrider.aocn.com
+                                       schwern\100ool-18b93024.dyn.optonline.net
sebastien\100aperghis.net               maddingue\100free.fr
+                                       saper\100cpan.org
simon\100simon-cozens.org               simon\100pembro4.pmb.ox.ac.uk
+                                       simon\100brecon.co.uk
+                                       simon\100othersideofthe.earth.li
+                                       simon\100cozens.net
+                                       simon\100netthink.co.uk
slaven\100rezic.de                      slaven.rezic\100berlin.de
+                                       srezic\100iconmobile.com
+					srezic\100cpan.org
smcc\100mit.edu                         smcc\100ocf.berkeley.edu
+                                       smcc\100csua.berkeley.edu
spider\100orb.nashua.nh.us              spider\100web.zk3.dec.com
+                                       spider\100leggy.zk3.dec.com
+                                       spider-perl\100orb.nashua.nh.us
+                                       spider\100peano.zk3.dec.com
stef\100mongueurs.net                   stef\100payrard.net
+                                       s.payrard\100wanadoo.fr

tassilo.parseval\100post.rwth-aachen.de tassilo.von.parseval\100rwth-aachen.de
thomas.dorner\100start.de               tdorner\100amadeus.net
tjenness\100cpan.org                    t.jenness\100jach.hawaii.edu
+                                       timj\100jach.hawaii.edu
tom.horsley\100mail.ccur.com            tom.horsley\100ccur.com

vkonovalov\100lucent.com                vkonovalov\100peterstar.ru
+                                       konovalo\100mail.wplus.net
+                                       vadim\100vkonovalov.ru
+                                       vkonovalov\100spb.lucent.com
+                                       vkonovalov\100alcatel-lucent.com

whatever\100davidnicol.com              davidnicol\100gmail.com
wolfgang.laun\100alcatel.at             wolfgang.laun\100chello.at
+                                       wolfgang.laun\100thalesgroup.com
+                                       wolfgang.laun\100gmail.com
Commit	Line	Data
5649b9c9	1	#!/usr/bin/perl -w
	2	use strict;
	3	use Text::Wrap;
	4	$Text::Wrap::columns = 80;
	5	my ($committer, $patch, $log);
	6	use Getopt::Long;
	7
2b0ba25f	8	my ($rank, $percentage, $cumulative, $reverse, $ta, @authors, %authors,
2b0ba25f	9	%untraced, %patchers, %committers);
ff4d71b5	10	my $result = GetOptions ("rank" => \$rank, # rank authors
ff4d71b5	11	"thanks-applied" => \$ta, # ranks committers
15b8f96d	12	"acknowledged=s" => \@authors , # authors files
15b8f96d	13	"percentage" => \$percentage, # show as %age
2b0ba25f	14	"cumulative" => \$cumulative,
2b0ba25f	15	"reverse" => \$reverse,
15b8f96d	16	);
5649b9c9	17
ff4d71b5	18	if (!$result or (($rank\|\|0) + ($ta\|\|0) + (@authors ? 1 : 0) != 1) or !@ARGV) {
5649b9c9	19	die <<"EOS";
	20	$0 --rank Changelogs # rank authors by patches
	21	$0 --acknowledged <authors file> Changelogs # Display unacknowledged authors
ff4d71b5	22	$0 --thanks-applied Changelogs # ranks committers
15b8f96d	23	$0 --percentage ... # show rankings as percentages
2b0ba25f	24	$0 --cumulative ... # show rankings cumulatively
2b0ba25f	25	$0 --reverse ... # show rankings in reverse
5649b9c9	26	Specify stdin as - if needs be. Remember that option names can be abbreviated.
	27	EOS
	28	}
	29
8513229b	30
	31	my $prev = "";
	32	my %map;
	33
	34	while (<DATA>) {
	35	chomp;
	36	s/\\100/\@/g;
	37	$_ = lc;
	38	if (my ($correct, $alias) = /^\s([^#\s]\S)\s+(.*\S)/) {
8b80c7bd	39	$correct =~ s/^\\043/#/;
8513229b	40	if ($correct eq '+') {$correct = $prev} else {$prev = $correct}
	41	$map {$alias} = $correct;
	42	}
	43	}
	44
	45	#
	46	# Email addresses for we do not have names.
	47	#
	48	$map {$_} = "?" for
4bc69901	49	"agrow\100thegotonerd.com",
8513229b	50	"alexander_bluhm\100genua.de",
	51	"alexander_gernler\100genua.de",
	52	"ammon\100rhythm.com",
8b80c7bd	53	"andrew\100sundale.net",
8513229b	54	"bah\100longitude.com",
8513229b	55	"bbucklan\100jpl-devvax.jpl.nasa.gov",
a94e4597	56	"ben\100linuxgazette.net",
8513229b	57	"bilbo\100ua.fm",
8b80c7bd	58	"blino\100mandriva.com",
8513229b	59	"bob\100starlabs.net",
	60	"bonefish\100cs.tu-berlin.de",
	61	"bstrand\100switchmanagement.com",
	62	"cygwin\100cygwin.com",
	63	"david\100dhaller.de",
	64	"dformosa\100dformosa.zeta.org.au",
	65	"dgay\100acm.org",
	66	"erik\100cs.uni-jena.de",
	67	"glasser\100tang-eleven-seventy-nine.mit.edu",
	68	"gml4410\100ggr.co.uk",
	69	"grommel\100sears.com",
8b80c7bd	70	"ilmari\100vesla.ilmari.org",
8513229b	71	"ilya\100juil.nonet",
	72	"info\100lingo.kiev.ua",
	73	"jms\100mathras.comcast.net",
a94e4597	74	"johnh\100isi.edu",
8513229b	75	"kan\100dcit.cz",
	76	"kaminsky\100math.huji.ac.il",
	77	"knew-p5p\100pimb.org",
	78	"kvr\100centrum.cz",
a94e4597	79	"lemkemch\100t-online.de",
8513229b	80	"mauzo\100csv.warwick.ac.uk",
	81	"merijnb\100ms.com",
	82	"mlelstv\100serpens.de",
	83	"p.boven\100sara.nl",
	84	"padre\100elte.hu",
8b80c7bd	85	"pancho\100pancho.name",
8513229b	86	"perlbug\100veggiechinese.net",
	87	"pm\100capmon.dk",
	88	"premchai21\100yahoo.com",
	89	"pxm\100nubz.org",
	90	"raf\100tradingpost.com.au",
	91	"scott\100perlcode.org",
	92	"smoketst\100hp46t243.cup.hp.com",
	93	"yath-perlbug\100yath.de",
	94	;
	95
	96	#
	97	# Email addresses for people that don't have an email address in AUTHORS
	98	# Presumably deliberately?
	99	#
	100
	101	$map {$_} = '!' for
cf3e690a	102	# Nick Ing-Simmons has passed away (2006-09-25).
	103	"nick\100ing-simmons.net",
	104	"nik\100tiuk.ti.com",
	105	"nick.ing-simmons\100elixent.com",
	106
	107	# Iain Truskett has passed away (2003-12-29).
8513229b	108	"perl\100dellah.anu.edu.au",
	109	"spoon\100dellah.org",
	110	"spoon\100cpan.org",
	111
	112	# Ton Hospel
	113	"me-02\100ton.iguana.be",
	114	"perl-5.8.0\100ton.iguana.be",
	115	"perl5-porters\100ton.iguana.be",
	116
	117	# Beau Cox
	118	"beau\100beaucox.com",
	119
	120	# Randy W. Sims
	121	"ml-perl\100thepierianspring.org",
	122
	123	# Yuval Kogman
	124	"nothingmuch\100woobling.org",
	125
	126	;
	127
a7ad7795	128
5649b9c9	129	if (@authors) {
	130	my %raw;
	131	foreach my $filename (@authors) {
	132	open FH, "<$filename" or die "Can't open $filename: $!";
	133	while (<FH>) {
	134	next if /^\#/;
	135	next if /^-- /;
	136	if (/<([^>]+)>/) {
	137	# Easy line.
	138	$raw{$1}++;
	139	} elsif (/^([-A-Za-z0-9 .\'À-ÖØöø-ÿ]+)[\t\n]/) {
	140	# Name only
	141	$untraced{$1}++;
	142	} else {
	143	chomp;
	144	warn "Can't parse line '$_'";
	145	}
	146	}
	147	}
	148	foreach (keys %raw) {
	149	print "E-mail $_ occurs $raw{$_} times\n" if $raw{$_} > 1;
	150	$_ = lc $_;
	151	$authors{$map{$_} \|\| $_}++;
	152	}
2b90724c	153	++$authors{'!'};
2b90724c	154	++$authors{'?'};
5649b9c9	155	}
	156
	157	while (<>) {
	158	next if /^-+/;
	159	if (m!^\[\s+(\d+)\]\s+By:\s+(\S+)\s+on!) {
	160	# new patch
	161	my @new = ($1, $2);
	162	&process ($committer, $patch, $log);
	163	($patch, $committer) = @new;
	164	undef $log;
	165	} elsif (s/^(\s+Log: )//) {
	166	die "Duplicate Log:" if $log;
	167	$log = $_;
	168	my $prefix = " " x length $1;
	169	LOG: while (<>) {
84fd1186	170	next if /^$/;
bdb5e10e	171	s/^\t/ /;
5649b9c9	172	if (s/^$prefix//) {
	173	$log .= $_;
	174	} elsif (/^\s+Branch:/) {
	175	last LOG;
	176	} else {
84fd1186	177	chomp;
84fd1186	178	die "Malformed log end with '$_'";
5649b9c9	179	}
	180	}
	181	}
	182	}
	183
	184	&process ($committer, $patch, $log);
	185
	186	if ($rank) {
ff4d71b5	187	&display_ordered(\%patchers);
	188	} elsif ($ta) {
	189	&display_ordered(\%committers);
5649b9c9	190	} elsif (%authors) {
	191	my %missing;
	192	foreach (sort keys %patchers) {
	193	next if $authors{$_};
	194	# Sort by number of patches, then name.
	195	$missing{$patchers{$_}}->{$_}++;
	196	}
	197	foreach my $patches (sort {$b <=> $a} keys %missing) {
	198	print "$patches patch(es)\n";
	199	foreach my $author (sort keys %{$missing{$patches}}) {
	200	print " $author\n";
	201	}
	202	}
	203	}
	204
	205	sub display_ordered {
ff4d71b5	206	my $what = shift;
5649b9c9	207	my @sorted;
15b8f96d	208	my $total;
ff4d71b5	209	while (my ($name, $count) = each %$what) {
5649b9c9	210	push @{$sorted[$count]}, $name;
15b8f96d	211	$total += $count;
5649b9c9	212	}
	213
	214	my $i = @sorted;
2b0ba25f	215	return unless @sorted;
	216	my $sum = 0;
	217	foreach my $i ($reverse ? 0 .. $#sorted : reverse 0 .. $#sorted) {
5649b9c9	218	next unless $sorted[$i];
15b8f96d	219	my $prefix;
2b0ba25f	220	$sum += $i * @{$sorted[$i]};
	221	# Value to display is either this one, or the cumulative sum.
	222	my $value = $cumulative ? $sum : $i;
15b8f96d	223	if ($percentage) {
2b0ba25f	224	$prefix = sprintf "%6.2f:\t", 100 * $value / $total;
15b8f96d	225	} else {
2b0ba25f	226	$prefix = "$value:\t";
15b8f96d	227	}
15b8f96d	228	print wrap ($prefix, "\t", join (" ", sort @{$sorted[$i]}), "\n");
5649b9c9	229	}
	230	}
	231
	232	sub process {
	233	my ($committer, $patch, $log) = @_;
	234	return unless $committer;
2b90724c	235	my @authors = $log =~ /From:\s+.*?([^"\@ \t\n<>]+\@[^"\@ \t\n<>]+)/gm;
5649b9c9	236
	237	if (@authors) {
	238	foreach (@authors) {
	239	s/^<//;
	240	s/>$//;
	241	$_ = lc $_;
	242	$patchers{$map{$_} \|\| $_}++;
	243	}
	244	# print "$patch: @authors\n";
ff4d71b5	245	++$committers{$committer};
5649b9c9	246	} else {
	247	# print "$patch: $committer\n";
	248	# Not entirely fair as this means that the maint pumpking scores for
	249	# everything intergrated that wasn't a third party patch in blead
	250	$patchers{$committer}++;
	251	}
	252	}
	253
	254
8513229b	255	__DATA__
	256
	257	#
	258	# List of mappings. First entry the "correct" email address, as appears
	259	# in the AUTHORS file. Second is any "alias" mapped to it.
	260	#
	261	# If the "correct" email address is a '+', the entry above is reused;
	262	# this for addresses with more than one alias.
	263	#
	264	# Note that all entries are in lowercase. Further, no '@' signs should
	265	# appear; use \100 instead.
	266	#
	267	#
	268	# Committers.
	269	#
	270	adi enache\100rdslink.ro
	271	alanbur alan.burlison\100sun.com
	272	+ alan.burlison\100uk.sun.com
	273	ams ams\100wiw.org
	274	chip chip\100pobox.com
	275	craigb craig.berry\100psinetcs.com
	276	+ craig.berry\100metamorgs.com
	277	+ craig.berry\100signaltreesolutions.com
	278	+ craigberry\100mac.com
a94e4597	279	+ craig.a.berry\100gmail.com
8513229b	280	davem davem\100fdgroup.com
8513229b	281	+ davem\100iabyn.nospamdeletethisbit.com
a94e4597	282	+ davem\100iabyn.com
8513229b	283	+ davem\100fdgroup.co.uk
	284	+ davem\100fdisolutions.com
	285	+ davem\100iabyn.com
	286	demerphq demerphq\100gmail.com
	287	+ yves.orton\100de.mci.com
	288	+ yves.orton\100mciworldcom.de
	289	doughera doughera\100lafayette.edu
	290	gbarr gbarr\100pobox.com
	291	gisle gisle\100activestate.com
	292	+ gisle\100aas.no
	293	gsar gsar\100activestate.com
	294	+ gsar\100cpan.org
	295	hv hv\100crypt.compulink.co.uk
	296	+ hv\100crypt.org
	297	jhi jhi\100iki.fi
	298	+ jhietaniemi\100gmail.com
	299	+ jhi\100kosh.hut.fi
	300	+ jhi\100cc.hut.fi
	301	+ jarkko.hietaniemi\100nokia.com
	302	merijn h.m.brand\100xs4all.nl
	303	+ h.m.brand\100hccnet.nl
	304	+ merijn\100l1.procura.nl
	305	mhx mhx-perl\100gmx.net
	306	nicholas nick\100unfortu.net
	307	+ nick\100ccl4.org
	308	+ nick\100talking.bollo.cx
	309	+ nick\100plum.flirble.org
	310	+ nick\100babyhippo.co.uk
	311	+ nick\100bagpuss.unfortu.net
8513229b	312	pudge pudge\100pobox.com
	313	rgs rgarciasuarez\100free.fr
	314	+ rgarciasuarez\100mandrakesoft.com
	315	+ rgarciasuarez\100mandriva.com
	316	+ rgarciasuarez\100gmail.com
	317	+ raphel.garcia-suarez\100hexaflux.com
	318	sky sky\100nanisky.com
	319	+ artur\100contiller.se
	320	+ arthur\100contiller.se
b692cd7a	321	steveh stevehay\100planit.com
b692cd7a	322	+ steve.hay\100uk.radan.com
8513229b	323	stevep steve\100fisharerojo.org
	324	+ steve.peters\100gmail.com
	325
	326	#
	327	# Mere mortals.
	328	#
8b80c7bd	329	\043####\100juerd.nl juerd\100cpan.org
8b80c7bd	330	+ juerd\100convolution.nl
8513229b	331	7k8lrvf02\100sneakemail.com kjx9zthh3001\100sneakemail.com
	332	+ dtr8sin02\100sneakemail.com
	333	+ rt8363b02\100sneakemail.com
	334	+ o6hhmk002\100sneakemail.com
a94e4597	335	+ smueller\100cpan.org
	336	+ l2ot9pa02\100sneakemail.com
	337	+ wyp3rlx02\100sneakemail.com
8513229b	338
8b80c7bd	339	a.r.ferreira\100gmail.com aferreira\100shopzilla.com
8513229b	340	abe\100ztreet.demon.nl abeltje\100cpan.org
	341	abigail\100abigail.be abigail\100foad.org
	342	+ abigail\100abigail.nl
	343	ajohnson\100nvidia.com ajohnson\100wischip.com
	344	alexm\100netli.com alexm\100w-m.ru
a94e4597	345	alex-p5p\100earth.li alex\100rcon.rog
8513229b	346	alian\100cpan.org alian\100alianwebserver.com
8513229b	347	allens\100cpan.org easmith\100beatrice.rutgers.edu
8b80c7bd	348	andreas.koenig\100anima.de andreas.koenig.gmwojprw\100franz.ak.mind.de
8b80c7bd	349	+ andreas.koenig.7os6vvqr\100franz.ak.mind.de
8513229b	350	+ a.koenig\100mind.de
	351	anno4000\100lublin.zrz.tu-berlin.de anno4000\100mailbox.tu-berlin.de
	352	+ siegel\100zrz.tu-berlin.de
	353	ash\100cpan.org ash_cpan\100firemirror.com
	354	avarab\100gmail.com avar\100cpan.org
	355
	356	bah\100ecnvantage.com bholzman\100longitude.com
8b80c7bd	357	bcarter\100gumdrop.flyinganvil.org q.eibcartereio.=~m-b.{6}-cgimosx\100gumdrop.flyinganvil.org
8513229b	358	ben_tilly\100operamail.com btilly\100gmail.com
	359
	360	chromatic\100wgz.org chromatic\100rmci.net
	361	clkao\100clkao.org clkao\100bestpractical.com
8b80c7bd	362	corion\100corion.net corion\100cpan.org
8513229b	363	cp\100onsitetech.com publiustemp-p5p\100yahoo.com
	364	+ publiustemp-p5p3\100yahoo.com
	365	cpan\100audreyt.org autrijus\100egb.elixus.org
	366	+ autrijus\100geb.elixus.org
	367	+ autrijus\100gmail.com
	368	+ autrijus\100ossf.iis.sinica.edu.tw
	369	+ autrijus\100autrijus.org
	370	+ audreyt\100audreyt.org
	371
	372	damian\100cs.monash.edu.au damian\100conway.org
	373	david.dyck\100fluke.com dcd\100tc.fluke.com
	374	demerphq\100gmail.com demerphq\100hotmail.com
	375	domo\100computer.org shouldbedomo\100mac.com
	376
	377	epeschko\100den-mdev1 esp5\100pge.com
	378
	379	fugazi\100zyx.net larrysh\100cpan.org
	380
f0cb2104	381	jns\100integration-house.com jns\100gellyfish.com
f0cb2104	382	+ gellyfish\100gellyfish.com
8513229b	383	gp\100familiehaase.de gerrit\100familiehaase.de
	384	grazz\100pobox.com grazz\100nyc.rr.com
	385
	386	hio\100ymir.co.jp hio\100hio.jp
	387
	388	japhy\100pobox.com japhy\100pobox.org
	389	+ japhy\100perlmonk.org
	390	+ japhy\100cpan.org
	391	jari.aalto\100poboxes.com jari.aalto\100cante.net
	392	jcromie\100divsol.com jcromie\100cpan.org
	393	+ jim.cromie\100gmail.com
	394	jdhedden\100cpan.org jerry\100hedden.us
	395	+ jdhedden\1001979.usna.com
	396	+ jdhedden\100gmail.com
	397	+ jdhedden\100yahoo.com
	398	jfriedl\100yahoo.com jfriedl\100yahoo-inc.com
	399	jjore\100cpan.org twists\100gmail.com
8513229b	400
	401	kane\100dwim.org kane\100xs4all.net
	402	+ kane\100cpan.org
	403	+ kane\100xs4all.nl
	404	+ jos\100dwim.org
	405	+ jib\100ripe.net
8b80c7bd	406	ken\100mathforum.org kenahoo\100gmail.com
8513229b	407	kroepke\100dolphin-services.de kay\100dolphin-services.de
8513229b	408	kstar\100wolfetech.com kstar\100cpan.org
8b80c7bd	409	+ kurt_starsinic\100ml.com
8513229b	410
8b80c7bd	411	marcel\100codewerk.com gr\100univie.ac.at
8513229b	412	mats\100sm6sxl.net mats\100sm5sxl.net
	413	mbarbon\100dsi.unive.it mattia.barbon\100libero.it
	414	mcmahon\100ibiblio.org mcmahon\100metalab.unc.edu
	415	merijnb\100iloquent.nl merijnb\100iloquent.com
	416	mgjv\100comdyn.com.au mgjv\100tradingpost.com.au
	417	michael.schroeder\100informatik.uni-erlangen.de mls\100suse.de
	418	mike\100stok.co.uk mike\100exegenix.com
	419	mjtg\100cam.ac.uk mjtg\100cus.cam.ac.uk
	420
	421	nospam-abuse\100bloodgate.com tels\100bloodgate.com
	422	+ perl_dummy\100bloodgate.com
a94e4597	423	ilya\100math.berkeley.edu ilya\100math.ohio-state.edu
a94e4597	424	+ nospam-abuse\100ilyaz.org
8513229b	425
	426	p5-authors\100crystalflame.net perl\100crystalflame.net
	427	+ rs\100crystalflame.net
	428	paul.green\100stratus.com paul_greenvos\100vos.stratus.com
	429	paul.marquess\100btinternet.com paul_marquess\100yahoo.co.uk
	430	+ paul.marquess\100ntlworld.com
	431	+ paul.marquess\100openwave.com
	432	pcg\100goof.com schmorp\100schmorp.de
8b80c7bd	433	perl-rt\100wizbit.be p5p\100perl.wizbit.be
8513229b	434	# Maybe we should special case this to get real names out?
	435	perlbug\100perl.org perlbug-followup\100perl.org
	436	+ bugs-perl5\100bugs6.perl.org
	437	phil\100perkpartners.com phil\100finchcomputer.com
	438	pimlott\100idiomtech.com andrew\100pimlott.net
	439	pne\100cpan.org philip.newton\100gmx.net
	440	+ philip.newton\100datenrevision.de
	441	+ pnewton\100gmx.de
	442
	443	radu\100netsoft.ro rgreab\100fx.ro
	444	richard.foley\100ubsw.com richard.foley\100t-online.de
	445	+ richard.foley\100ubs.com
	446	+ richard.foley\100rfi.net
	447	rick\100consumercontact.com rick\100bort.ca
	448	+ rick.delaney\100rogers.com
a94e4597	449	+ rick\100bort.ca
4bc69901	450	rjbs\100cpan.org rjbs-perl-p5p\100lists.manxome.org
8b80c7bd	451	+ perl.p5p\100rjbs.manxome.org
8513229b	452	rjk\100linguist.dartmouth.edu rjk\100linguist.thayer.dartmouth.edu
	453	+ rjk-perl-p5p\100tamias.net
	454	rmgiroux\100acm.org rmgiroux\100hotmail.com
a94e4597	455	rmbarker\100cpan.org rmb1\100cise.npl.co.uk
a94e4597	456	+ robin.barker\100npl.co.uk
8b80c7bd	457	robertmay\100cpan.org rob\100themayfamily.me.uk
8513229b	458	rootbeer\100teleport.com rootbeer\100redcat.com
	459
	460	schubiger\100cpan.org steven\100accognoscere.org
	461	+ sts\100accognoscere.org
8b80c7bd	462	+ schubiger\100gmail.com
8513229b	463	schwern\100pobox.com schwern\100gmail.com
8ed05479	464	+ schwern\100athens.arena-i.com
	465	+ schwern\100blackrider.aocn.com
	466	+ schwern\100ool-18b93024.dyn.optonline.net
8513229b	467	sebastien\100aperghis.net maddingue\100free.fr
	468	+ saper\100cpan.org
	469	simon\100simon-cozens.org simon\100pembro4.pmb.ox.ac.uk
	470	+ simon\100brecon.co.uk
	471	+ simon\100othersideofthe.earth.li
	472	+ simon\100cozens.net
	473	+ simon\100netthink.co.uk
	474	slaven\100rezic.de slaven.rezic\100berlin.de
a94e4597	475	+ srezic\100iconmobile.com
8b80c7bd	476	+ srezic\100cpan.org
8513229b	477	smcc\100mit.edu smcc\100ocf.berkeley.edu
	478	+ smcc\100csua.berkeley.edu
	479	spider\100orb.nashua.nh.us spider\100web.zk3.dec.com
	480	+ spider\100leggy.zk3.dec.com
	481	+ spider-perl\100orb.nashua.nh.us
	482	+ spider\100peano.zk3.dec.com
	483	stef\100mongueurs.net stef\100payrard.net
	484	+ s.payrard\100wanadoo.fr
	485
	486	tassilo.parseval\100post.rwth-aachen.de tassilo.von.parseval\100rwth-aachen.de
	487	thomas.dorner\100start.de tdorner\100amadeus.net
	488	tjenness\100cpan.org t.jenness\100jach.hawaii.edu
	489	+ timj\100jach.hawaii.edu
	490	tom.horsley\100mail.ccur.com tom.horsley\100ccur.com
	491
	492	vkonovalov\100lucent.com vkonovalov\100peterstar.ru
	493	+ konovalo\100mail.wplus.net
	494	+ vadim\100vkonovalov.ru
	495	+ vkonovalov\100spb.lucent.com
	496	+ vkonovalov\100alcatel-lucent.com
	497
	498	whatever\100davidnicol.com davidnicol\100gmail.com
	499	wolfgang.laun\100alcatel.at wolfgang.laun\100chello.at
	500	+ wolfgang.laun\100thalesgroup.com
	501	+ wolfgang.laun\100gmail.com