X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a45ec2f3967ff07319dfd9c32bea80ff78ea678b..cdfe2888c5a77def6c7374b71d8b2dba8a9688aa:/Porting/checkAUTHORS.pl diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl old mode 100644 new mode 100755 index e3ce324..44f82b5 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -1,266 +1,870 @@ #!/usr/bin/perl -w use strict; +my ($committer, $patch, $author, $date); +use Getopt::Long; use Text::Wrap; $Text::Wrap::columns = 80; -my ($committer, $patch, $log); -use Getopt::Long; -my ($rank, @authors, %authors, %untraced, %patchers); -my $result = GetOptions ("rank" => \$rank, # rank authors - "acknowledged=s" => \@authors); # authors files +my ($rank, $ta, $ack, $who, $tap) = (0) x 5; +my ($author_file, $percentage, $cumulative, $reverse); +my (%authors, %untraced, %patchers, %committers, %real_names); + +my $result = GetOptions ( + # modes + "who" => \$who, + "rank" => \$rank, + "thanks-applied" => \$ta, + "missing" => \$ack , + "tap" => \$tap, + # modifiers + "authors" => \$author_file, + "percentage" => \$percentage, # show as %age + "cumulative" => \$cumulative, + "reverse" => \$reverse, + ); + +if (!$result or ( $rank + $ta + $who + $ack + $tap != 1 ) or !@ARGV) { + usage(); +} + +$author_file ||= './AUTHORS'; +die "Can't locate '$author_file'. Specify it with '--author '." + unless -f $author_file; + +my $map = generate_known_author_map(); + +read_authors_files($author_file); + + +if ($rank) { + parse_commits_from_stdin(); + display_ordered(\%patchers); +} elsif ($ta) { + parse_commits_from_stdin(); + display_ordered(\%committers); +} elsif ($tap) { + parse_commits_from_stdin_authors(); + display_test_output(\%patchers, \%authors, \%real_names); +} elsif ($ack) { + parse_commits_from_stdin(); + display_missing_authors(\%patchers, \%authors, \%real_names); +} elsif ($who) { + parse_commits_from_stdin(); + list_authors(\%patchers, \%authors); +} + +exit(0); + +sub usage { -if (!$result or !($rank xor @authors) or !@ARGV) { die <<"EOS"; -$0 --rank Changelogs # rank authors by patches -$0 --acknowledged Changelogs # Display unacknowledged authors -Specify stdin as - if needs be. Remember that option names can be abbreviated. +Usage: $0 [modes] [modifiers] + +Modes (use only one): + --who # show list of unique authors by full name + --rank # rank authors by patches + --thanks-applied # ranks committers of others' patches + --missing # display authors not in AUTHORS + --tap # show authors present/missing as TAP + +Modifiers: + --authors # path to authors file (default: ./AUTHORS) + --percentage # show rankings as percentages + --cumulative # show rankings cumulatively + --reverse # show rankings in reverse + +Generate git-log-output-file with git log --pretty=fuller rev1..rev2 +(or pipe by specifying '-' for stdin). For example: + \$ git log --pretty=fuller v5.12.0..v5.12.1 > gitlog + \$ perl Porting/checkAUTHORS.pl --rank --percentage gitlog EOS } -my %map = reverse ( - # "Correct" => "Alias" - adi => "enache\100rdslink.ro", - alanbur => "alan.burlison\100sun.com", - ams => "ams\100wiw.org", - chip => "chip\100pobox.com", - davem => "davem\100fdgroup.com", - doughera => " doughera\100lafayette.edu", - gbarr => "gbarr\100pobox.com", - gsar => "gsar\100activestate.com", - hv => "hv\100crypt.compulink.co.uk", - jhi => "jhi\100iki.fi", - merijn => "h.m.brand\100xs4all.nl", - mhx => "mhx-perl\100gmx.net", - nicholas => "nick\100unfortu.net", - nick => "nick\100ing-simmons.net", - pudge => "pudge\100pobox.com", - rgs => "rgarciasuarez\100free.fr", - sky => "sky\100nanisky.com", - steveh => "steve.hay\100uk.radan.com", - stevep => "steve\100fisharerojo.org", - gisle => "gisle\100activestate.com", - "abigail\100abigail.nl"=> "abigail\100foad.org", - "chromatic\100wgz.org" => "chromatic\100rmci.net", - "slaven\100rezic.de" => "slaven.rezic\100berlin.de", - "mjtg\100cam.ac.uk" => "mjtg\100cus.cam.ac.uk", - "robin.barker\100npl.co.uk" => "rmb1\100cise.npl.co.uk", - "paul.marquess\100btinternet.com" - => "paul_marquess\100yahoo.co.uk", - "wolfgang.laun\100chello.at" => - "wolfgang.laun\100alcatel.at", - "t.jenness\100jach.hawaii.edu" => "timj\100jach.hawaii.edu", - "abe\100ztreet.demon.nl" => "abeltje\100cpan.org", - "nospam-abuse\100bloodgate.com" => "tels\100bloodgate.com", - "jfriedl\100yahoo.com" => "jfriedl\100yahoo-inc.com", - "japhy\100pobox.com" => "japhy\100pobox.org", - "gellyfish\100gellyfish.com" => "jns\100gellyfish.com", - "jcromie\100divsol.com" => "jcromie\100cpan.org", - "demerphq\100gmail.com" => "demerphq\100hotmail.com", - "rick\100consumercontact.com" => "rick\100bort.ca", - "vkonovalov\100spb.lucent.com" - => "vkonovalov\100peterstar.ru", - "rjk\100linguist.dartmouth.edu" - => "rjk\100linguist.thayer.dartmouth.edu", - "domo\100computer.org" => "shouldbedomo\100mac.com", - "kane\100dwim.org" => "kane\100xs4all.net", - "allens\100cpan.org" => "easmith\100beatrice.rutgers.edu", - "spoon\100cpan.org" => "spoon\100dellah.org", - "ben_tilly\100operamail.com" => "btilly\100gmail.com", - "mbarbon\100dsi.unive.it" => "mattia.barbon\100libero.it", - "tassilo.parseval\100post.rwth-aachen.de" => - "tassilo.von.parseval\100rwth-aachen.de", - "dcd\100tc.fluke.com" => "david.dyck\100fluke.com", - "kroepke\100dolphin-services.de" - => "kay\100dolphin-services.de", - "sebastien\100aperghis.net" => "maddingue\100free.fr", - "radu\100netsoft.ro" => "rgreab\100fx.ro", - "rick\100consumercontact.com" - => "rick.delaney\100rogers.com", - "p5-authors\100crystalflame.net" - => "perl\100crystalflame.net", - "stef\100mongueurs.net" => "stef\100payrard.net", - "kstar\100wolfetech.com" => "kstar\100cpan.org", - "7k8lrvf02\100sneakemail.com" => - "kjx9zthh3001\100sneakemail.com", - "mgjv\100comdyn.com.au" => "mgjv\100tradingpost.com.au", - "thomas.dorner\100start.de" => "tdorner\100amadeus.net", - "ajohnson\100nvidia.com" => "ajohnson\100wischip.com", - "phil\100perkpartners.com" => "phil\100finchcomputer.com", - "tom.horsley\100mail.ccur.com" => "tom.horsley\100ccur.com", - "rootbeer\100teleport.com" => "rootbeer\100redcat.com", - "cp\100onsitetech.com" => "publiustemp-p5p\100yahoo.com", - "epeschko\100den-mdev1" => "esp5\100pge.com", - "pimlott\100idiomtech.com" => "andrew\100pimlott.net", - "fugazi\100zyx.net" => "larrysh\100cpan.org", - "merijnb\100iloquent.nl" => "merijnb\100iloquent.com", - "whatever\100davidnicol.com" => "davidnicol\100gmail.com", - "rmgiroux\100acm.org" => "rmgiroux\100hotmail.com", - "smcc\100mit.edu" => "smcc\100ocf.berkeley.edu", - "steven\100accognoscere.org" => "schubiger\100cpan.org", - "!" => "me-02\100ton.iguana.be", - # Maybe we should special case this to get real names out? - "perlbug\100perl.org" => "perlbug-followup\100perl.org", - ); - -# Make sure these are all lower case. - -$map{"autrijus\100egb.elixus.org"} = $map{"autrijus\100geb.elixus.org"} - = $map{"autrijus\100gmail.com"} = "autrijus\100autrijus.org"; -$map{"ilya\100math.ohio-state.edu"} = $map{"ilya\100math.berkeley.edu"} - = $map{"ilya\100math.berkeley.edu"} = "nospam-abuse\100ilyaz.org"; -$map{"philip.newton\100gmx.net"} = $map{"philip.newton\100datenrevision.de"} - = $map{"pnewton\100gmx.de"} = "pne\100cpan.org", -$map{"simon\100pembro4.pmb.ox.ac.uk"} = $map{"simon\100brecon.co.uk"} - = $map{"simon\100othersideofthe.earth.li"} = $map{"simon\100cozens.net"} - = $map{"simon\100netthink.co.uk"} = "simon\100simon-cozens.org"; -$map{"spider\100web.zk3.dec.com"} = $map{"spider\100leggy.zk3.dec.com"} - = $map{"spider-perl\100orb.nashua.nh.us"} - = $map{"spider\100peano.zk3.dec.com"} - = "spider\100orb.nashua.nh.us"; -$map{"a.koenig\100mind.de"} = "andreas.koenig\100anima.de"; -$map{"japhy\100perlmonk.org"} = $map{"japhy\100cpan.org"} - = "japhy\100pobox.com"; -$map{"rmbarker\100cpan.org"} = "robin.barker\100npl.co.uk"; -$map{"yves.orton\100de.mci.com"} = $map{"yves.orton\100mciworldcom.de"} - = "demerphq\100gmail.com"; -$map{"jim.cromie\100gmail.com"} = "jcromie\100divsol.com"; -$map{"perl_dummy\100bloodgate.com"} = "nospam-abuse\100bloodgate.com"; -$map{"paul.marquess\100ntlworld.com"} = "paul.marquess\100btinternet.com"; -$map{"konovalo\100mail.wplus.net"} = $map{"vadim\100vkonovalov.ru"} - = "vkonovalov\100spb.lucent.com"; -$map{"kane\100cpan.org"} = "kane\100dwim.org"; -$map{"rs\100crystalflame.net"} = "p5-authors\100crystalflame.net"; -$map{"(srezic\100iconmobile.com)"} = "slaven\100rezic.de"; -$map{"perl\100dellah.anu.edu.au"} = "spoon\100cpan.org"; -$map{"rjk-perl-p5p\100tamias.net"} = "rjk\100linguist.dartmouth.edu"; -$map{"sts\100accognoscere.org"} = "steven\100accognoscere.org"; -$map{"s.payrard\100wanadoo.fr"} = "stef\100mongueurs.net"; - -$map{"rgarciasuarez\100mandrakesoft.com"} - = $map{"rgarciasuarez\100mandriva.com"} - = $map{"raphel.garcia-suarez\100hexaflux.com"} = "rgs"; -$map{"jhietaniemi\100gmail.com"} = $map{"jhi\100kosh.hut.fi"} - = $map{"jhi\100cc.hut.fi"} = "jhi"; -$map{"nick\100ccl4.org"} = $map{"nick\100talking.bollo.cx"} - = $map{"nick\100plum.flirble.org"} = $map{"nick\100babyhippo.co.uk"} - = $map{"nick\100bagpuss.unfortu.net"} = "nicholas"; -$map{"craig.berry\100psinetcs.com"} = $map{"craig.berry\100metamorgs.com"} - = $map{"craig.berry\100signaltreesolutions.com"} - = $map{"craigberry\100mac.com"} = "craigb"; -$map{"davem\100iabyn.nospamdeletethisbit.com" } - = $map{"davem\100fdgroup.co.uk"} = "davem"; -$map{"alan.burlison\100uk.sun.com"} = "alanbur"; -$map{"artur\100contiller.se"} = $map{"arthur\100contiller.se"} = "sky"; -$map{"h.m.brand\100hccnet.nl"} = $map{"merijn\100l1.procura.nl"} = "merijn"; -$map{"nik\100tiuk.ti.com"} = "nick"; -$map{"hv\100crypt.org"} = "hv"; -$map{"gisle\100aas.no"} = "gisle"; - -if (@authors) { - my %raw; - foreach my $filename (@authors) { - open FH, "<$filename" or die "Can't open $filename: $!"; - while () { - 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 '$_'"; - } +sub list_authors { + my ($patchers, $authors) = @_; + binmode(STDOUT, ":utf8"); + print wrap '', '', join(', ', sort { lc $a cmp lc $b } + map { $authors->{$_} } + keys %$patchers) . ".\n"; +} + +sub parse_commits_from_stdin { + my @lines = split( /^commit\s*/sm, join( '', <> ) ); + for (@lines) { + next if m/^$/; + next if m/^(\S*?)^Merge:/ism; # skip merge commits + if (m/^(.*?)^Author:\s*(.*?)^AuthorDate:\s*(.*?)^Commit:\s*(.*?)^(.*)$/gism) { + + # new patch + ( $patch, $author, $date, $committer ) = ( $1, $2, $3, $4 ); + chomp($author); + unless ($author) { die $_ } + chomp($committer); + unless ($committer) { die $_ } + process( $committer, $patch, $author ); + } else { + die "XXX $_ did not match"; + } + } + +} + +# just grab authors. Quicker than parse_commits_from_stdin + +sub parse_commits_from_stdin_authors { + while (<>) { + next unless /^Author:\s*(.*)$/; + my $author = $1; + $author = _raw_address($author); + $patchers{$author}++; } - } - foreach (keys %raw) { - print "E-mail $_ occurs $raw{$_} times\n" if $raw{$_} > 1; - $_ = lc $_; - $authors{$map{$_} || $_}++; - } - $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 /^$/; - if (s/^$prefix//) { - $log .= $_; - } elsif (/^\s+Branch:/) { - last LOG; - } else { - chomp; - die "Malformed log end with '$_'"; - } + +sub generate_known_author_map { + my %map; + + my $prev = ""; + while () { + 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 + "bah\100longitude.com", + "bbucklan\100jpl-devvax.jpl.nasa.gov", + "bilbo\100ua.fm", + "bob\100starlabs.net", + "cygwin\100cygwin.com", + "david\100dhaller.de", "erik\100cs.uni-jena.de", "info\100lingo.kiev.ua", # Lingo Translation agency + "jms\100mathras.comcast.net", + "premchai21\100yahoo.com", + "pxm\100nubz.org", + "raf\100tradingpost.com.au", + "smoketst\100hp46t243.cup.hp.com", "root\100chronos.fi.muni.cz", # no clue - jrv 20090803 + "gomar\100md.media-web.de", # no clue - jrv 20090803 + "data-drift\100so.uio.no", # no data. originally private message from 199701282014.VAA12645@selters.uio.no + "arbor\100al37al08.telecel.pt" + , # reported perlbug ticket 5196 - no actual code contribution. no real name - jrv 20091006 + "oracle\100pcr8.pcr.com", # Reported perlbug ticket 1015 - no patch - Probably Ed Eddington ed@pcr.com + ; + + # + # 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", + "nick\100ni-s.u-net.com", + "nick.ing-simmons\100tiuk.ti.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", + + # perl internal addresses + "perl5-porters\100africa.nicoh.com", + "perlbug\100perl.org",, + "perl5-porters.nicoh.com", + "perlbug-followup\100perl.org", + "perlbug-comment\100perl.org", + "bug-module-corelist\100rt.cpan.org", + "bug-storable\100rt.cpan.org", + "bugs-perl5\100bugs6.perl.org", + "unknown", + "unknown\100unknown", + "unknown\100longtimeago", + "unknown\100perl.org", + "", + "(none)", + ; + + return \%map; } -&process ($committer, $patch, $log); +sub read_authors_files { + my @authors = (@_); + return unless (@authors); + my (%count, %raw); + foreach my $filename (@authors) { + open FH, "<$filename" or die "Can't open $filename: $!"; + binmode FH, ':encoding(ISO-8859-1)'; + while () { + next if /^\#/; + next if /^-- /; + if (/^([^<]+)<([^>]+)>/) { + # Easy line. + my ($name, $email) = ($1, $2); + $name =~ s/\s*\z//; + $raw{$email} = $name; + $count{$email}++; + } elsif (/^([-A-Za-z0-9 .\'À-ÖØöø-ÿ]+)[\t\n]/) { -if ($rank) { - &display_ordered; -} 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"; + # Name only + $untraced{$1}++; + } elsif ( length $_ ) { + chomp; + warn "Can't parse line '$_'"; + } else { + next; + } + } + } + foreach ( keys %raw ) { + print "E-mail $_ occurs $count{$_} times\n" if $count{$_} > 1; + my $lc = lc $_; + $authors{ $map->{$lc} || $lc } = $raw{$_}; + } + $authors{$_} = $_ for qw(? !); +} + +sub display_test_output { + my $patchers = shift; + my $authors = shift; + my $real_names = shift; + my $count = 0; + printf "1..%d\n", scalar keys %$patchers; + foreach ( sort keys %$patchers ) { + $count++; + if ($authors->{$_}) { + print "ok $count - ".$real_names->{$_} ." $_\n"; + } else { + print "not ok $count - Contributor not found in AUTHORS: $_ ".($real_names->{$_} || '???' )."\n"; + } + + } +} + +sub display_missing_authors { + my $patchers = shift; + my $authors = shift; + my $real_names = shift; + 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 "\n\n=head1 $patches patch(es)\n\n"; + foreach my $author ( sort keys %{ $missing{$patches} } ) { + my $xauthor = $author; + $xauthor =~ s/@/\\100/g; # xxx temp hack + print "" . ( $real_names->{$author} || $author ) . "\t\t\t<" . $xauthor . ">\n"; + } } - } } sub display_ordered { - my @sorted; - while (my ($name, $count) = each %patchers) { - push @{$sorted[$count]}, $name; - } - - my $i = @sorted; - return unless $i; - while (--$i) { - next unless $sorted[$i]; - print wrap ("$i:\t", "\t", join (" ", sort @{$sorted[$i]}), "\n"); - } + 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/^$//; - $_ = lc $_; - $patchers{$map{$_} || $_}++; + my ( $committer, $patch, $author ) = @_; + return unless $author; + return unless $committer; + + $author = _raw_address($author); + $patchers{$author}++; + + $committer = _raw_address($committer); + if ( $committer ne $author ) { + + # separate commit credit only if committing someone else's patch + $committers{$committer}++; + } +} + +sub _raw_address { + my $addr = shift; + my $real_name; + if ( $addr =~ /<.*>/ ) { + $addr =~ s/^\s*(.*)\s*<\s*(.*?)\s*>.*$/$2/; + $real_name = $1; } - # print "$patch: @authors\n"; - } 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}++; - } + $addr =~ s/\[mailto://; + $addr =~ s/\]//; + $addr = lc $addr; + $addr = $map->{$addr} || $addr; + $addr =~ s/\\100/@/g; # Sometimes, there are encoded @ signs in the git log. + + if ($real_name) { $real_names{$addr} = $real_name } + return $addr; } +__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 ++ aburlison\100cix.compulink.co.uk +ams ams\100toroid.org ++ ams\100wiw.org +chip chip\100pobox.com ++ chip\100perl.com ++ salzench\100nielsenmedia.com ++ chip\100atlantic.net ++ chip\100rio.atlantic.net ++ salzench\100dun.nielsen.com ++ chip\100ci005.sv2.upperbeyond.com +craigb craig.berry\100psinetcs.com ++ craig.berry\100metamorgs.com ++ craig.berry\100signaltreesolutions.com ++ craigberry\100mac.com ++ craig.a.berry\100gmail.com ++ craig a. berry) +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 ++ demerphq\100dromedary.booking.com ++ demerphq\100gemini.(none) ++ demerphq\100camel.booking.com ++ demerphq\100hotmail.com +doughera doughera\100lafayette.edu ++ doughera\100lafcol.lafayette.edu ++ doughera\100fractal.phys.lafayette.edu ++ doughera.lafayette.edu ++ doughera\100newton.phys.lafayette.edu + +gbarr gbarr\100pobox.com ++ bodg\100tiuk.ti.com ++ gbarr\100ti.com ++ graham.barr\100tiuk.ti.com ++ gbarr\100monty.mutatus.co.uk +gisle gisle\100activestate.com ++ gisle\100aas.no ++ aas\100aas.no ++ aas\100bergen.sn.no +gsar gsar\100activestate.com ++ gsar\100cpan.org ++ gsar\100engin.umich.edu +hv hv\100crypt.compulink.co.uk ++ hv\100crypt.org ++ hv\100iii.co.uk +jhi jhi\100iki.fi ++ jhietaniemi\100gmail.com ++ jhi\100kosh.hut.fi ++ jhi\100alpha.hut.fi ++ jhi\100cc.hut.fi ++ jhi\100hut.fi ++ jarkko.hietaniemi\100nokia.com ++ jarkko.hietaniemi\100cc.hut.fi +jesse jesse\100bestpractical.com ++ jesse\100fsck.com ++ jesse\100perl.org +merijn h.m.brand\100xs4all.nl ++ h.m.brand\100hccnet.nl ++ merijn\100l1.procura.nl ++ merijn\100a5.(none) +mhx mhx-perl\100gmx.net ++ mhx\100r2d2.(none) +mst mst\100shadowcat.co.uk ++ matthewt\100hercule.scsys.co.uk +nicholas nick\100unfortu.net ++ nick\100ccl4.org ++ nick\100talking.bollo.cx ++ nick\100plum.flirble.org ++ nick\100babyhippo.co.uk ++ nick\100bagpuss.unfortu.net ++ nick\100babyhippo.com ++ nicholas\100dromedary.ams6.corp.booking.com ++ Nicholas Clark (sans From field in mail header) +pudge pudge\100pobox.com +rgs rgarciasuarez\100free.fr ++ rgarciasuarez\100mandrakesoft.com ++ rgarciasuarez\100mandriva.com ++ rgarciasuarez\100gmail.com ++ raphel.garcia-suarez\100hexaflux.com ++ rgs@consttype.org +sky sky\100nanisky.com ++ artur\100contiller.se ++ arthur\100contiller.se +steveh steve.m.hay\100googlemail.com ++ stevehay\100planit.com ++ steve.hay\100uk.radan.com +stevep steve\100fisharerojo.org ++ steve.peters\100gmail.com ++ root\100dixie.cscaper.com +timb Tim.Bunce\100pobox.com ++ tim.bunce\100ig.co.uk +tonyc tony\100develop-help.com ++ tony\100openbsd32.tony.develop-help.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 ++ 0mgwtfbbq\100sneakemail.com ++ xyey9001\100sneakemail.com +a.r.ferreira\100gmail.com aferreira\100shopzilla.com +abe\100ztreet.demon.nl abeltje\100cpan.org +abela\100hsc.fr abela\100geneanet.org +abigail\100abigail.be abigail\100foad.org ++ abigail\100abigail.nl ++ abigail\100fnx.com +aburt\100isis.cs.du.edu isis!aburt +ach\100mpe.mpg.de ach\100rosat.mpe-garching.mpg.de +adavies\100ptc.com alex.davies\100talktalk.net +ajohnson\100nvidia.com ajohnson\100wischip.com ++ anders\100broadcom.com +alexm\100netli.com alexm\100w-m.ru +alex-p5p\100earth.li alex\100rcon.rog +alexmv\100mit.edu alex\100chmrr.net +alian\100cpan.org alian\100alianwebserver.com +allen\100grumman.com allen\100gateway.grumman.com +allen\100huarp.harvard.edu nort\100bottesini.harvard.edu ++ nort\100qnx.com +allens\100cpan.org easmith\100beatrice.rutgers.edu ++ root\100dogberry.rutgers.edu +andreas.koenig\100anima.de andreas.koenig.gmwojprw\100franz.ak.mind.de ++ andreas.koenig.7os6vvqr\100franz.ak.mind.de ++ a.koenig\100mind.de ++ k\100anna.in-berlin.de ++ andk\100cpan.org ++ koenig\100anna.mind.de ++ k\100anna.mind.de ++ root\100ak-71.mind.de ++ root\100ak-75.mind.de ++ k\100sissy.in-berlin.de ++ a.koenig\100kulturbox.de ++ k\100sissy.in-berlin.de ++ root\100dubravka.in-berlin.de +anno4000\100lublin.zrz.tu-berlin.de anno4000\100mailbox.tu-berlin.de ++ siegel\100zrz.tu-berlin.de +apocal@cpan.org perl\1000ne.us +arnold\100gnu.ai.mit.edu arnold\100emoryu2.arpa ++ gatech!skeeve!arnold +arodland\100cpan.org andrew\100hbslabs.com +arussell\100cs.uml.edu adam\100adam-pc.(none) +ash\100cpan.org ash_cpan\100firemirror.com +avarab\100gmail.com avar\100cpan.org + +bailey\100newman.upenn.edu bailey\100hmivax.humgen.upenn.edu ++ bailey\100genetics.upenn.edu ++ bailey.charles\100gmail.com +bah\100ecnvantage.com bholzman\100longitude.com +barries\100slaysys.com root\100jester.slaysys.com +bkedryna\100home.com bart\100cg681574-a.adubn1.nj.home.com +bcarter\100gumdrop.flyinganvil.org q.eibcartereio.=~m-b.{6}-cgimosx\100gumdrop.flyinganvil.org +ben_tilly\100operamail.com btilly\100gmail.com ++ ben_tilly\100hotmail.com +ben\100morrow.me.uk mauzo\100csv.warwick.ac.uk ++ mauzo\100.(none) +bepi\100perl.it enrico.sorcinelli\100gmail.com +bert\100alum.mit.edu bert\100genscan.com +bigbang7\100gmail.com ddascalescu+github\100gmail.com +blgl\100stacken.kth.se blgl\100hagernas.com +brian.d.foy\100gmail.com bdfoy\100cpan.org +BQW10602\100nifty.com sadahiro\100cpan.org + +chromatic\100wgz.org chromatic\100rmci.net +claes\100surfar.nu claes\100versed.se +clintp\100geeksalad.org cpierce1\100ford.com +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 +cpan\100ton.iguana.be me-01\100ton.iguana.be +crt\100kiski.net perl\100ctweten.amsite.com + +dairiki\100dairiki.org dairiki at dairiki.org +dagolden\100cpan.org xdaveg\100gmail.com +damian\100conway.org damian\100cs.monash.edu.au +dan\100sidhe.org sugalsd\100lbcc.cc.or.us ++ sugalskd\100osshe.edu +daniel\100bitpusher.com daniel\100biz.bitpusher.com +david.dyck\100fluke.com dcd\100tc.fluke.com +david\100kineticode.com david\100wheeler.com ++ david\100wheeler.net +dennis\100booking.com dennis\100camel.ams6.corp.booking.com ++ dennis\100kaarsemaker.net +dev-perl\100pimb.org knew-p5p\100pimb.org ++ lists-p5p\100pimb.org +djberg86\100attbi.com djberg96\100attbi.com +domo\100computer.org shouldbedomo\100mac.com ++ domo\100slipper.ip.lu ++ domo\100tcp.ip.lu +dougm\100covalent.net dougm\100opengroup.org ++ dougm\100osf.org +dougw\100cpan.org doug_wilson\100intuit.com +dwegscheid\100qtm.net wegscd\100whirlpool.com +edwardp\100excitehome.net epeschko\100den-mdev1 ++ epeschko\100elmer.tci.com ++ esp5\100pge.com +egf7\100columbia.edu efifer\100sanwaint.com +eggert\100twinsun.com eggert\100sea.sm.unisys.com + +fugazi\100zyx.net larrysh\100cpan.org ++ lshatzer\100islanddata.com + +gbacon\100itsc.uah.edu gbacon\100adtrn-srv4.adtran.com +gerberb\100zenez.com root\100devsys0.zenez.com +gfuji\100cpan.org g.psy.va\100gmail.com +gerard\100ggoossen.net gerard\100tty.nl +gibreel\100pobox.com stephen.zander\100interlock.mckesson.com ++ srz\100loopback +gnat\100frii.com gnat\100prometheus.frii.com +gp\100familiehaase.de gerrit\100familiehaase.de +grazz\100pobox.com grazz\100nyc.rr.com +gward\100ase.com greg\100bic.mni.mcgill.ca +hansmu\100xs4all.nl hansm\100icgroup.nl ++ hansm\100icgned.nl ++ hans\100icgned.nl ++ hans\100icgroup.nl ++ hansm\100euronet.nl ++ hansm\100euro.net +hio\100ymir.co.jp hio\100hio.jp +hops\100sco.com hops\100scoot.pdev.sco.com + +ian.goodacre\100xtra.co.nz ian\100debian.lan +ingo_weinhold\100gmx.de bonefish\100cs.tu-berlin.de + +james\100mastros.biz theorb\100desert-island.me.uk +jand\100activestate.com jan.dubois\100ibm.net +japhy\100pobox.com japhy\100pobox.org ++ japhy\100perlmonk.org ++ japhy\100cpan.org ++ jeffp\100crusoe.net +jari.aalto\100poboxes.com jari.aalto\100cante.net +jarausch\100numa1.igpm.rwth-aachen.de helmutjarausch\100unknown +jasons\100cs.unm.edu jasons\100sandy-home.arc.unm.edu +jbuehler\100hekimian.com jhpb\100hekimian.com +jcromie\100100divsol.com jcromie\100cpan.org ++ jim.cromie\100gmail.com +jdhedden\100cpan.org jerry\100hedden.us ++ jdhedden\1001979.usna.com ++ jdhedden\100gmail.com ++ jdhedden\100yahoo.com ++ jhedden\100pn100-02-2-356p.corp.bloomberg.com +jeremy\100zawodny.com jzawodn\100wcnet.org +jesse\100sig.bsh.com jesse\100ginger +jfriedl\100yahoo.com jfriedl\100yahoo-inc.com +jfs\100fluent.com jfs\100jfs.fluent.com +jhannah\100mutationgrid.com jay\100jays.net ++ jhannah\100omnihotels.com +jidanni\100jidanni.org jidanni\100hoffa.dreamhost.com +jjore\100cpan.org twists\100gmail.com +jns\100integration-house.com jns\100gellyfish.com ++ gellyfish\100gellyfish.com +john\100atlantech.com john\100titanic.atlantech.com +john\100johnwright.org john.wright\100hp.com +joseph\100cscaper.com joseph\1005sigma.com +joshua\100rodd.us jrodd\100pbs.org +jtobey\100john-edwin-tobey.org jtobey\100user1.channel1.com +jpeacock\100rowman.com john.peacock\100havurah-software.org ++ jpeacock\100havurah-software.org ++ jpeacock\100dsl092-147-156.wdc1.dsl.speakeasy.net ++ jpeacock\100jpeacock-hp.doesntexist.org ++ jpeacock\100cpan.org +jql\100accessone.com jql\100jql.accessone.com +jsm28\100hermes.cam.ac.uk jsm28\100cam.ac.uk + +kane\100dwim.org kane\100xs4all.net ++ kane\100cpan.org ++ kane\100xs4all.nl ++ jos\100dwim.org ++ jib\100ripe.net +ken\100mathforum.org kenahoo\100gmail.com ++ ken.williams\100thomsonreuters.com +kroepke\100dolphin-services.de kay\100dolphin-services.de +kst\100mib.org kst\100cts.com ++ kst\100SDSC.EDU +kstar\100wolfetech.com kstar\100cpan.org ++ kurt_starsinic\100ml.com ++ kstar\100www.chapin.edu ++ kstar\100chapin.edu +larry\100wall.org lwall\100jpl-devvax.jpl.nasa.gov ++ lwall\100netlabs.com ++ larry\100netlabs.com ++ lwall\100sems.com ++ lwall\100scalpel.netlabs.com +laszlo.molnar\100eth.ericsson.se molnarl\100cdata.tvnet.hu ++ ml1050\100freemail.hu +lewart\100uiuc.edu lewart\100vadds.cvm.uiuc.edu ++ d-lewart\100uiuc.edu +lkundrak\100v3.sk lubo.rintel\100gooddata.com +lstein\100cshl.org lstein\100formaggio.cshl.org ++ lstein\100genome.wi.mit.edu +lupe\100lupe-christoph.de lupe\100alanya.m.isar.de +lutherh\100stratcom.com lutherh\100infinet.com +mab\100wdl.loral.com markb\100rdcf.sm.unisys.com +marcel\100codewerk.com gr\100univie.ac.at +mark.p.lutz\100boeing.com tecmpl1\100triton.ca.boeing.com +marnix\100gmail.com pttesac!marnix!vanam +marty+p5p\100kasei.com marty\100martian.org +mats\100sm6sxl.net mats\100sm5sxl.net +mbarbon\100dsi.unive.it mattia.barbon\100libero.it +mcmahon\100ibiblio.org mcmahon\100metalab.unc.edu +me\100davidglasser.net glasser\100tang-eleven-seventy-nine.mit.edu +merijnb\100iloquent.nl merijnb\100ms.com ++ merijnb\100iloquent.com +merlyn\100stonehenge.com merlyn\100gadget.cscaper.com +mestre.smash\100gmail.com smash\100cpan.org +mgjv\100comdyn.com.au mgjv\100tradingpost.com.au +mlh\100swl.msd.ray.com webtools\100uewrhp03.msd.ray.com +michael.schroeder\100informatik.uni-erlangen.de mls\100suse.de +mike\100stok.co.uk mike\100exegenix.com +miyagawa\100bulknews.net miyagawa\100edge.co.jp +mjtg\100cam.ac.uk mjtg\100cus.cam.ac.uk +mikedlr\100tardis.ed.ac.uk mikedlr\100it.com.pl +moritz\100casella.verplant.org moritz\100faui2k3.org ++ moritz lenz + +neale\100VMA.TABNSW.COM.AU neale\100pucc.princeton.edu +neeracher\100mac.com neeri\100iis.ee.ethz.ch +neil\100bowers.com neilb\100cre.canon.co.uk + +nospam-abuse\100bloodgate.com tels\100bloodgate.com ++ perl_dummy\100bloodgate.com + +ian.phillipps\100iname.com ian_phillipps\100yahoo.co.uk ++ ian\100dial.pipex.com +ignasi.roca\100fujitsu-siemens.com ignasi.roca\100fujitsu.siemens.es +ikegami\100adaelis.com eric\100fmdev10.(none) +ilmari\100ilmari.org ilmari\100vesla.ilmari.org +illpide\100telecel.pt arbor\100al37al08.telecel.pt +# see http://www.nntp.perl.org/group/perl.perl5.porters/2001/01/msg28925.html +# +ilya\100math.berkeley.edu ilya\100math.ohio-state.edu ++ nospam-abuse\100ilyaz.org ++ [9]ilya\100math.ohio-state.edu +ilya\100martynov.org ilya\100juil.nonet + +joshua.pritikin\100db.com joshua\100paloalto.com + +okamoto\100corp.hp.com okamoto\100hpcc123.corp.hp.com +orwant\100oreilly.com orwant\100media.mit.edu + +p5-authors\100crystalflame.net perl\100crystalflame.net ++ rs\100crystalflame.net ++ coral\100eekeek.org ++ coral\100moonlight.crystalflame.net ++ rs\100oregonnet.com ++ rs\100topsy.com +paul.green\100stratus.com paul_greenvos\100vos.stratus.com ++ pgreen\100seussnt.stratus.com +paul.marquess\100btinternet.com paul_marquess\100yahoo.co.uk ++ paul.marquess\100ntlworld.com ++ paul.marquess\100openwave.com ++ pmarquess\100bfsec.bt.co.uk ++ pmqs\100cpan.org ++ paul\100paul-desktop.(none) +Pavel.Zakouril\100mff.cuni.cz root\100egg.karlov.mff.cuni.cz +pcg\100goof.com schmorp\100schmorp.de +perl\100cadop.com cdp\100hpescdp.fc.hp.com +perl\100greerga.m-l.org greerga\100m-l.org +perl\100profvince.com vince\100profvince.com +perl-rt\100wizbit.be p5p\100perl.wizbit.be +# Maybe we should special case this to get real names out? +Peter.Dintelmann\100Dresdner-Bank.com peter.dintelmann\100dresdner-bank.com +# NOTE: There is an intentional trailing space in the line above +pfeifer\100wait.de pfeifer\100charly.informatik.uni-dortmund.de ++ upf\100de.uu.net +rabbit\100rabbit.us rabbit+bugs\100rabbit.us +perl\100aaroncrane.co.uk arc\100cpan.org +phil\100perkpartners.com phil\100finchcomputer.com +pimlott\100idiomtech.com andrew\100pimlott.net ++ pimlott\100abel.math.harvard.edu +pixel\100mandriva.com pixel\100mandrakesoft.com +pne\100cpan.org philip.newton\100gmx.net ++ philip.newton\100datenrevision.de ++ pnewton\100gmx.de +pprymmer\100factset.com pvhp\100forte.com +public\100khwilliamson.com khw\100karl.(none) ++ khw\100khw-desktop.(none) + +radu\100netsoft.ro rgreab\100fx.ro +raphael.manfredi\100pobox.com raphael_manfredi\100grenoble.hp.com +module@renee-baecker.de renee.baecker\100smart-websolutions.de ++ reneeb\100reneeb-desktop.(none) ++ otrs\100ubuntu.(none) +richard.foley\100rfi.net richard.foley\100t-online.de ++ richard.foley\100ubs.com ++ richard.foley\100ubsw.com +rick\100consumercontact.com rick\100bort.ca ++ rick.delaney\100rogers.com ++ rick\100bort.ca ++ rick.delaney\100home.com +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 +rjray\100redhat.com rjray\100uswest.com +rmgiroux\100acm.org rmgiroux\100hotmail.com ++ mgiroux\100bear.com +rmbarker\100cpan.org rmb1\100cise.npl.co.uk ++ robin.barker\100npl.co.uk ++ rmb\100cise.npl.co.uk ++ robin\100spade-ubuntu.(none) ++ r.m.barker\100btinternet.com ++ rmbarker.cpan\100btinternet.com +robertmay\100cpan.org rob\100themayfamily.me.uk +roberto\100keltia.freenix.fr roberto\100eurocontrol.fr +robin\100cpan.org robin\100kitsite.com +roderick\100argon.org roderick\100gate.net ++ roderick\100ibcinc.com +rootbeer\100teleport.com rootbeer\100redcat.com ++ tomphoenix\100unknown +rurban\100x-ray.at rurban\100cpan.org + +sartak\100bestpractical.com sartak\100gmail.com +sadinoff\100olf.com danny-cpan\100sadinoff.com +schubiger\100cpan.org steven\100accognoscere.org ++ sts\100accognoscere.org ++ schubiger\100gmail.com ++ stsc\100refcnt.org +schwern\100pobox.com schwern\100gmail.com ++ schwern\100athens.arena-i.com ++ schwern\100blackrider.aocn.com ++ schwern\100ool-18b93024.dyn.optonline.net +scotth\100sgi.com author scotth\100sgi.com 842220273 +0000 ++ schotth\100sgi.com +schwab\100suse.de schwab\100issan.informatik.uni-dortmund.de ++ schwab\100ls5.informatik.uni-dortmund.de +sebastien\100aperghis.net maddingue\100free.fr ++ saper\100cpan.org +shigeya\100wide.ad.jp shigeya\100foretune.co.jp +shlomif\100vipe.technion.ac.il shlomif\100iglu.org.il ++ shlomif+processed-by-perl\100gmail.com +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 ++ eserte\100cs.tu-berlin.de ++ eserte\100vran.herceg.de +smcc\100mit.edu smcc\100ocf.berkeley.edu ++ smcc\100csua.berkeley.edu ++ alias\100mcs.com ++ smccam\100uclink4.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 ++ spider.boardman\100orb.nashua.nh.us> ++ spidb\100cpan.org ++ spider.boardman\100orb.nashua.nh.us ++ root\100peano.zk3.dec.com +spp\100ds.net spp\100psa.pencom.com ++ spp\100psasolar.colltech.com ++ spp\100spotter.yi.org +stef\100mongueurs.net stef\100payrard.net ++ s.payrard\100wanadoo.fr ++ properler\100freesurf.fr ++ stef\100francenet.fr +sthoenna\100efn.org ysth\100raven.shiftboard.com +sisyphus1\100optusnet.com.au sisyphus\100cpan.org + +tassilo.parseval\100post.rwth-aachen.de tassilo.von.parseval\100rwth-aachen.de +tchrist\100perl.com tchrist\100mox.perl.com ++ tchrist\100jhereg.perl.com +thomas.dorner\100start.de tdorner\100amadeus.net +tjenness\100cpan.org t.jenness\100jach.hawaii.edu ++ timj\100jach.hawaii.edu +tobez\100tobez.org tobez\100plab.ku.dk +toddr\100cpanel.net toddr\100cpan.org +tom\100compton.nu thh\100cyberscience.com +tom.horsley\100mail.ccur.com tom.horsley\100ccur.com ++ tom\100amber.ssd.hcsc.com + +vkonovalov\100lucent.com vkonovalov\100peterstar.ru ++ konovalo\100mail.wplus.net ++ vadim\100vkonovalov.ru ++ vkonovalov\100spb.lucent.com ++ vkonovalov\100alcatel-lucent.com ++ vadim.konovalov\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 +yath\100yath.de yath-perlbug\100yath.de + +jkeen@verizon.net jkeenan@cpan.org