Porting/checkAUTHORS.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 my ($committer, $patch, $author);
   4 use utf8;
   5 use Getopt::Long;
   6 use Unicode::Collate;
   7 use Text::Wrap;
   8 $Text::Wrap::columns = 80;
   9
  10 my ($rank, $ta, $ack, $who, $tap) = (0) x 5;
  11 my ($author_file, $percentage, $cumulative, $reverse);
  12 my (%authors, %untraced, %patchers, %committers, %real_names);
  13
  14 my $result = GetOptions (
  15              # modes
  16              "who"            => \$who,
  17              "rank"           => \$rank,
  18              "thanks-applied" => \$ta,
  19              "missing"        => \$ack ,
  20              "tap"            => \$tap,
  21
  22              # modifiers
  23              "authors=s"      => \$author_file,
  24              "percentage"     => \$percentage,      # show as %age
  25              "cumulative"     => \$cumulative,
  26              "reverse"        => \$reverse,
  27             );
  28
  29 if (!$result or ( $rank + $ta + $who + $ack + $tap != 1 ) or !@ARGV) {
  30     usage();
  31 }
  32
  33 $author_file ||= './AUTHORS';
  34 die "Can't locate '$author_file'. Specify it with '--authors <path>'."
  35   unless -f $author_file;
  36
  37 my $map = generate_known_author_map();
  38
  39 read_authors_files($author_file);
  40
  41
  42 if ($rank) {
  43   parse_commits_from_stdin();
  44   display_ordered(\%patchers);
  45 } elsif ($ta) {
  46   parse_commits_from_stdin();
  47   display_ordered(\%committers);
  48 } elsif ($tap) {
  49   parse_commits_from_stdin_authors();
  50   display_test_output(\%patchers, \%authors, \%real_names);
  51 } elsif ($ack) {
  52   parse_commits_from_stdin();
  53   display_missing_authors(\%patchers, \%authors, \%real_names);
  54 } elsif ($who) {
  55   parse_commits_from_stdin();
  56   list_authors(\%patchers, \%authors);
  57 }
  58
  59 exit(0);
  60
  61 sub usage {
  62
  63   die <<"EOS";
  64 Usage: $0 [modes] [modifiers] <git-log-output-file>
  65
  66 Modes (use only one):
  67    --who                          # show list of unique authors by full name
  68    --rank                         # rank authors by patches
  69    --thanks-applied               # ranks committers of others' patches
  70    --missing                      # display authors not in AUTHORS
  71    --tap                          # show authors present/missing as TAP
  72
  73 Modifiers:
  74    --authors <authors-file>       # path to authors file (default: ./AUTHORS)
  75    --percentage                   # show rankings as percentages
  76    --cumulative                   # show rankings cumulatively
  77    --reverse                      # show rankings in reverse
  78
  79 Generate git-log-output-file with git log --pretty=fuller rev1..rev2
  80 (or pipe by specifying '-' for stdin).  For example:
  81   \$ git log --pretty=fuller v5.12.0..v5.12.1 > gitlog
  82   \$ perl Porting/checkAUTHORS.pl --rank --percentage gitlog
  83 EOS
  84 }
  85
  86 sub list_authors {
  87     my ($patchers, $authors) = @_;
  88     binmode(STDOUT, ":utf8");
  89     print wrap '', '', join(', ', Unicode::Collate->new(level => 1)->sort(
  90                       map { $authors->{$_} }
  91                       keys %$patchers)) . ".\n";
  92 }
  93
  94 sub parse_commits_from_stdin {
  95     my @lines = split( /^commit\s*/sm, join( '', <> ) );
  96     for (@lines) {
  97         next if m/^$/;
  98         next if m/^(\S*?)^Merge:/ism;    # skip merge commits
  99         if (m/^(.*?)^Author:\s*(.*?)^AuthorDate:\s*.*?^Commit:\s*(.*?)^(.*)$/gism) {
 100
 101             # new patch
 102             ( $patch, $author, $committer ) = ( $1, $2, $3 );
 103             chomp($author);
 104             unless ($author) { die $_ }
 105             chomp($committer);
 106             unless ($committer) { die $_ }
 107             process( $committer, $patch, $author );
 108         } else {
 109             die "XXX $_ did not match";
 110         }
 111     }
 112
 113 }
 114
 115 # just grab authors. Quicker than parse_commits_from_stdin
 116
 117 sub parse_commits_from_stdin_authors {
 118     while (<>) {
 119         next unless /^Author:\s*(.*)$/;
 120         my $author = $1;
 121         $author = _raw_address($author);
 122         $patchers{$author}++;
 123     }
 124 }
 125
 126
 127 sub generate_known_author_map {
 128     my %map;
 129
 130     my $prev = "";
 131     while (<DATA>) {
 132         chomp;
 133         s/\\100/\@/g;
 134         $_ = lc;
 135         if ( my ( $correct, $alias ) = /^\s*([^#\s]\S*)\s+(.*\S)/ ) {
 136             $correct =~ s/^\\043/#/;
 137             if   ( $correct eq '+' ) { $correct = $prev }
 138             else                     { $prev    = $correct }
 139             $map{$alias} = $correct;
 140         }
 141     }
 142
 143     #
 144     # Email addresses for we do not have names.
 145     #
 146     $map{$_} = "?"
 147         for
 148         "bah\100longitude.com",
 149         "bbucklan\100jpl-devvax.jpl.nasa.gov",
 150         "bilbo\100ua.fm",
 151         "bob\100starlabs.net",
 152         "cygwin\100cygwin.com",
 153         "david\100dhaller.de", "erik\100cs.uni-jena.de", "info\100lingo.kiev.ua",    # Lingo Translation agency
 154         "jms\100mathras.comcast.net",
 155         "premchai21\100yahoo.com",
 156         "pxm\100nubz.org",
 157         "raf\100tradingpost.com.au",
 158         "smoketst\100hp46t243.cup.hp.com", "root\100chronos.fi.muni.cz",             # no clue - jrv 20090803
 159         "gomar\100md.media-web.de",    # no clue - jrv 20090803
 160         "data-drift\100so.uio.no",     # no data. originally private message from 199701282014.VAA12645@selters.uio.no
 161         "arbor\100al37al08.telecel.pt"
 162         ,    # reported perlbug ticket 5196 - no actual code contribution. no real name - jrv 20091006
 163         "oracle\100pcr8.pcr.com",    # Reported perlbug ticket 1015 - no patch - Probably Ed Eddington ed@pcr.com
 164         "snaury\100gmail.com",       # Reported cpan ticket 35943, with patch for fix
 165         ;
 166
 167     #
 168     # Email addresses for people that don't have an email address in AUTHORS
 169     # Presumably deliberately?
 170     #
 171
 172     $map{$_} = '!' for
 173
 174         # Nick Ing-Simmons has passed away (2006-09-25).
 175         "nick\100ing-simmons.net",
 176         "nik\100tiuk.ti.com",
 177         "nick.ing-simmons\100elixent.com",
 178         "nick\100ni-s.u-net.com",
 179         "nick.ing-simmons\100tiuk.ti.com",
 180
 181         # Iain Truskett has passed away (2003-12-29).
 182         "perl\100dellah.anu.edu.au", "spoon\100dellah.org", "spoon\100cpan.org",
 183
 184         # Ton Hospel
 185         "me-02\100ton.iguana.be", "perl-5.8.0\100ton.iguana.be", "perl5-porters\100ton.iguana.be",
 186
 187         # Beau Cox
 188         "beau\100beaucox.com",
 189
 190         # Randy W. Sims
 191         "ml-perl\100thepierianspring.org",
 192
 193         # perl internal addresses
 194         "perl5-porters\100africa.nicoh.com",
 195         "perlbug\100perl.org",,
 196         "perl5-porters.nicoh.com",
 197         "perlbug-followup\100perl.org",
 198         "perlbug-comment\100perl.org",
 199         "bug-module-corelist\100rt.cpan.org",
 200         "bug-storable\100rt.cpan.org",
 201         "bugs-perl5\100bugs6.perl.org",
 202         "unknown",
 203         "unknown\100unknown",
 204         "unknown\100longtimeago",
 205         "unknown\100perl.org",
 206         "",
 207         "(none)",
 208         ;
 209
 210     return \%map;
 211 }
 212
 213 sub read_authors_files {
 214     my @authors = (@_);
 215     return unless (@authors);
 216     my (%count, %raw);
 217     foreach my $filename (@authors) {
 218         open FH, '<', $filename or die "Can't open $filename: $!";
 219         binmode FH, ':encoding(UTF-8)';
 220         while (<FH>) {
 221             next if /^\#/;
 222             next if /^-- /;
 223             if (/^([^<]+)<([^>]+)>/) {
 224                 # Easy line.
 225                 my ($name, $email) = ($1, $2);
 226                 $name =~ s/\s*\z//;
 227                 $raw{$email} = $name;
 228                 $count{$email}++;
 229             } elsif (/^([- .'\w]+)[\t\n]/) {
 230
 231                 # Name only
 232                 $untraced{$1}++;
 233             } elsif ( length $_ ) {
 234                 chomp;
 235                 warn "Can't parse line '$_'";
 236             } else {
 237                 next;
 238             }
 239         }
 240     }
 241     foreach ( keys %raw ) {
 242         print "E-mail $_ occurs $count{$_} times\n" if $count{$_} > 1;
 243         my $lc = lc $_;
 244         $authors{ $map->{$lc} || $lc } = $raw{$_};
 245     }
 246     $authors{$_} = $_ for qw(? !);
 247 }
 248
 249 sub display_test_output {
 250     my $patchers   = shift;
 251     my $authors    = shift;
 252     my $real_names = shift;
 253     my $count = 0;
 254     printf "1..%d\n", scalar keys %$patchers;
 255     foreach ( sort keys %$patchers ) {
 256         $count++;
 257         if ($authors->{$_}) {
 258             print "ok $count - ".$real_names->{$_} ." $_\n";
 259         } else {
 260             print "not ok $count - Contributor not found in AUTHORS: $_ ".($real_names->{$_} || '???' )."\n";
 261             print STDERR ($real_names->{$_} || '???' )." <$_> not found in AUTHORS\n";
 262         }
 263
 264     }
 265 }
 266
 267 sub display_missing_authors {
 268     my $patchers   = shift;
 269     my $authors    = shift;
 270     my $real_names = shift;
 271     my %missing;
 272     foreach ( sort keys %$patchers ) {
 273         next if $authors->{$_};
 274
 275         # Sort by number of patches, then name.
 276         $missing{ $patchers{$_} }->{$_}++;
 277     }
 278     foreach my $patches ( sort { $b <=> $a } keys %missing ) {
 279         print "\n\n=head1 $patches patch(es)\n\n";
 280         foreach my $author ( sort keys %{ $missing{$patches} } ) {
 281             my $xauthor = $author;
 282             $xauthor =~ s/@/\\100/g;    # xxx temp hack
 283             print "" . ( $real_names->{$author} || $author ) . "\t\t\t<" . $xauthor . ">\n";
 284         }
 285     }
 286 }
 287
 288 sub display_ordered {
 289     my $what = shift;
 290     my @sorted;
 291     my $total;
 292
 293     while ( my ( $name, $count ) = each %$what ) {
 294         push @{ $sorted[$count] }, $name;
 295         $total += $count;
 296     }
 297
 298     my $i = @sorted;
 299     return unless @sorted;
 300     my $sum = 0;
 301     foreach my $i ( $reverse ? 0 .. $#sorted : reverse 0 .. $#sorted ) {
 302         next unless $sorted[$i];
 303         my $prefix;
 304         $sum += $i * @{ $sorted[$i] };
 305
 306         # Value to display is either this one, or the cumulative sum.
 307         my $value = $cumulative ? $sum : $i;
 308         if ($percentage) {
 309             $prefix = sprintf "%6.2f:\t", 100 * $value / $total;
 310         } else {
 311             $prefix = "$value:\t";
 312         }
 313         print wrap ( $prefix, "\t", join( " ", sort @{ $sorted[$i] } ), "\n" );
 314     }
 315 }
 316
 317 sub process {
 318     my ( $committer, $patch, $author ) = @_;
 319     return unless $author;
 320     return unless $committer;
 321
 322     $author = _raw_address($author);
 323     $patchers{$author}++;
 324
 325     $committer = _raw_address($committer);
 326     if ( $committer ne $author ) {
 327
 328         # separate commit credit only if committing someone else's patch
 329         $committers{$committer}++;
 330     }
 331 }
 332
 333 sub _raw_address {
 334     my $addr = shift;
 335     my $real_name;
 336     if ($addr =~ /(?:\\?")?\s*\(via RT\) <perlbug-followup\@perl\.org>$/p) {
 337         my $name = ${^PREMATCH};
 338         $addr = 'perlbug-followup@perl.org';
 339         #
 340         # Try to find the author
 341         #
 342         if (exists $map->{$name}) {
 343             $addr = $map->{$name};
 344             $real_name = $authors{$addr};
 345         }
 346         else {
 347             while (my ($email, $author_name) = each %authors) {
 348                 if ($name eq $author_name) {
 349                     $addr = $email;
 350                     $real_name = $name;
 351                     last;
 352                 }
 353             }
 354         }
 355     }
 356     elsif ( $addr =~ /<.*>/ ) {
 357         $addr =~ s/^\s*(.*)\s*<\s*(.*?)\s*>.*$/$2/;
 358         $real_name = $1;
 359     }
 360     $addr =~ s/\[mailto://;
 361     $addr =~ s/\]//;
 362     $addr = lc $addr;
 363     $addr = $map->{$addr} || $addr;
 364     $addr =~ s/\\100/@/g;    # Sometimes, there are encoded @ signs in the git log.
 365
 366     if ($real_name) { $real_names{$addr} = $real_name }
 367     return $addr;
 368 }
 369
 370
 371 __DATA__
 372
 373 #
 374 # List of mappings. First entry the "correct" email address, as appears
 375 # in the AUTHORS file. Second is any "alias" mapped to it.
 376 #
 377 # If the "correct" email address is a '+', the entry above it is reused;
 378 # this for addresses with more than one alias.
 379 #
 380 # Note that all entries are in lowercase. Further, no '@' signs should
 381 # appear; use \100 instead.
 382 #
 383 #
 384 #  Committers.
 385 #
 386 adi                                     enache\100rdslink.ro
 387 alanbur                                 alan.burlison\100sun.com
 388 +                                       alan.burlison\100uk.sun.com
 389 +                                       aburlison\100cix.compulink.co.uk
 390 ams                                     ams\100toroid.org
 391 +                                       ams\100wiw.org
 392 chip                                    chip\100pobox.com
 393 +                                       chip\100perl.com
 394 +                                       salzench\100nielsenmedia.com
 395 +                                       chip\100atlantic.net
 396 +                                       chip\100rio.atlantic.net
 397 +                                       salzench\100dun.nielsen.com
 398 +                                       chip\100ci005.sv2.upperbeyond.com
 399 craigb                                  craig.berry\100psinetcs.com
 400 +                                       craig.berry\100metamorgs.com
 401 +                                       craig.berry\100signaltreesolutions.com
 402 +                                       craigberry\100mac.com
 403 +                                       craig.a.berry\100gmail.com
 404 +                                       craig a. berry)
 405 davem                                   davem\100fdgroup.com
 406 +                                       davem\100iabyn.nospamdeletethisbit.com
 407 +                                       davem\100iabyn.com
 408 +                                       davem\100fdgroup.co.uk
 409 +                                       davem\100fdisolutions.com
 410 +                                       davem\100iabyn.com
 411 demerphq                                demerphq\100gmail.com
 412 +                                       yves.orton\100de.mci.com
 413 +                                       yves.orton\100mciworldcom.de
 414 +                                       yves.orton\100booking.com
 415 +                                       demerphq\100dromedary.booking.com
 416 +                                       demerphq\100gemini.(none)
 417 +                                       demerphq\100camel.booking.com
 418 +                                       demerphq\100hotmail.com
 419 doughera                                doughera\100lafayette.edu
 420 +                                       doughera\100lafcol.lafayette.edu
 421 +                                       doughera\100fractal.phys.lafayette.edu
 422 +                                       doughera.lafayette.edu
 423 +                                       doughera\100newton.phys.lafayette.edu
 424
 425 gbarr                                   gbarr\100pobox.com
 426 +                                       bodg\100tiuk.ti.com
 427 +                                       gbarr\100ti.com
 428 +                                       graham.barr\100tiuk.ti.com
 429 +                                       gbarr\100monty.mutatus.co.uk
 430 gisle                                   gisle\100activestate.com
 431 +                                       gisle\100aas.no
 432 +                                       aas\100aas.no
 433 +                                       aas\100bergen.sn.no
 434 gsar                                    gsar\100activestate.com
 435 +                                       gsar\100cpan.org
 436 +                                       gsar\100engin.umich.edu
 437 hv                                      hv\100crypt.compulink.co.uk
 438 +                                       hv\100crypt.org
 439 +                                       hv\100iii.co.uk
 440 jhi                                     jhi\100iki.fi
 441 +                                       jhietaniemi\100gmail.com
 442 +                                       jhi\100kosh.hut.fi
 443 +                                       jhi\100alpha.hut.fi
 444 +                                       jhi\100cc.hut.fi
 445 +                                       jhi\100hut.fi
 446 +                                       jarkko.hietaniemi\100nokia.com
 447 +                                       jarkko.hietaniemi\100cc.hut.fi
 448 +                                       jarkko.hietaniemi\100booking.com
 449 jesse                                   jesse\100bestpractical.com
 450 +                                       jesse\100fsck.com
 451 +                                       jesse\100perl.org
 452 merijn                                  h.m.brand\100xs4all.nl
 453 +                                       h.m.brand\100hccnet.nl
 454 +                                       merijn\100l1.procura.nl
 455 +                                       merijn\100a5.(none)
 456 mhx                                     mhx-perl\100gmx.net
 457 +                                       mhx\100r2d2.(none)
 458 mst                                     mst\100shadowcat.co.uk
 459 +                                       matthewt\100hercule.scsys.co.uk
 460 nicholas                                nick\100unfortu.net
 461 +                                       nick\100ccl4.org
 462 +                                       nick\100talking.bollo.cx
 463 +                                       nick\100plum.flirble.org
 464 +                                       nick\100babyhippo.co.uk
 465 +                                       nick\100bagpuss.unfortu.net
 466 +                                       nick\100babyhippo.com
 467 +                                       nicholas\100dromedary.ams6.corp.booking.com
 468 +                                       Nicholas Clark (sans From field in mail header)
 469 pudge                                   pudge\100pobox.com
 470 rgs                                     rgarciasuarez\100free.fr
 471 +                                       rgarciasuarez\100mandrakesoft.com
 472 +                                       rgarciasuarez\100mandriva.com
 473 +                                       rgarciasuarez\100gmail.com
 474 +                                       raphel.garcia-suarez\100hexaflux.com
 475 +                                       rgs@consttype.org
 476 sky                                     sky\100nanisky.com
 477 +                                       artur\100contiller.se
 478 +                                       arthur\100contiller.se
 479 smueller                                7k8lrvf02\100sneakemail.com
 480 +                                       kjx9zthh3001\100sneakemail.com
 481 +                                       dtr8sin02\100sneakemail.com
 482 +                                       rt8363b02\100sneakemail.com
 483 +                                       o6hhmk002\100sneakemail.com
 484 +                                       smueller\100cpan.org
 485 +                                       l2ot9pa02\100sneakemail.com
 486 +                                       wyp3rlx02\100sneakemail.com
 487 +                                       0mgwtfbbq\100sneakemail.com
 488 +                                       xyey9001\100sneakemail.com
 489 steveh                                  steve.m.hay\100googlemail.com
 490 +                                       stevehay\100planit.com
 491 +                                       steve.hay\100uk.radan.com
 492 stevep                                  steve\100fisharerojo.org
 493 +                                       steve.peters\100gmail.com
 494 +                                       root\100dixie.cscaper.com
 495 timb                                    Tim.Bunce\100pobox.com
 496 +                                       tim.bunce\100ig.co.uk
 497 tonyc                                   tony\100develop-help.com
 498 +                                       tony\100openbsd32.tony.develop-help.com
 499 +                                       tony\100saturn.(none)
 500
 501 #
 502 # Mere mortals.
 503 #
 504 \043####\100juerd.nl                    juerd\100cpan.org
 505 +                                       juerd\100c3.convolution.nl
 506 +                                       juerd\100convolution.nl
 507 a.r.ferreira\100gmail.com               aferreira\100shopzilla.com
 508 abe\100ztreet.demon.nl                  abeltje\100cpan.org
 509 abela\100hsc.fr                         abela\100geneanet.org
 510 abigail\100abigail.be                   abigail\100foad.org
 511 +                                       abigail\100abigail.nl
 512 +                                       abigail\100fnx.com
 513 aburt\100isis.cs.du.edu                 isis!aburt
 514 ach\100mpe.mpg.de                       ach\100rosat.mpe-garching.mpg.de
 515 adavies\100ptc.com                      alex.davies\100talktalk.net
 516 ajohnson\100nvidia.com                  ajohnson\100wischip.com
 517 +                                       anders\100broadcom.com
 518 alexm\100netli.com                      alexm\100w-m.ru
 519 alex-p5p\100earth.li                    alex\100rcon.rog
 520 alexmv\100mit.edu                       alex\100chmrr.net
 521 alian\100cpan.org                       alian\100alianwebserver.com
 522 allen\100grumman.com                    allen\100gateway.grumman.com
 523 allen\100huarp.harvard.edu              nort\100bottesini.harvard.edu
 524 +                                       nort\100qnx.com
 525 allens\100cpan.org                      easmith\100beatrice.rutgers.edu
 526 +                                       root\100dogberry.rutgers.edu
 527 andreas.koenig\100anima.de              andreas.koenig.gmwojprw\100franz.ak.mind.de
 528 +                                       andreas.koenig.7os6vvqr\100franz.ak.mind.de
 529 +                                       a.koenig\100mind.de
 530 +                                       k\100anna.in-berlin.de
 531 +                                       andk\100cpan.org
 532 +                                       koenig\100anna.mind.de
 533 +                                       k\100anna.mind.de
 534 +                                       root\100ak-71.mind.de
 535 +                                       root\100ak-75.mind.de
 536 +                                       k\100sissy.in-berlin.de
 537 +                                       a.koenig\100kulturbox.de
 538 +                                       k\100sissy.in-berlin.de
 539 +                                       root\100dubravka.in-berlin.de
 540 anno4000\100lublin.zrz.tu-berlin.de     anno4000\100mailbox.tu-berlin.de
 541 +                                       siegel\100zrz.tu-berlin.de
 542 apocal@cpan.org                         perl\1000ne.us
 543 arnold\100gnu.ai.mit.edu                arnold\100emoryu2.arpa
 544 +                                       gatech!skeeve!arnold
 545 arodland\100cpan.org                    andrew\100hbslabs.com
 546 arussell\100cs.uml.edu                  adam\100adam-pc.(none)
 547 ash\100cpan.org                         ash_cpan\100firemirror.com
 548 avarab\100gmail.com                     avar\100cpan.org
 549
 550 bailey\100newman.upenn.edu              bailey\100hmivax.humgen.upenn.edu
 551 +                                       bailey\100genetics.upenn.edu
 552 +                                       bailey.charles\100gmail.com
 553 bah\100ecnvantage.com                   bholzman\100longitude.com
 554 barries\100slaysys.com                  root\100jester.slaysys.com
 555 bkedryna\100home.com                    bart\100cg681574-a.adubn1.nj.home.com
 556 bcarter\100gumdrop.flyinganvil.org      q.eibcartereio.=~m-b.{6}-cgimosx\100gumdrop.flyinganvil.org
 557 ben_tilly\100operamail.com              btilly\100gmail.com
 558 +                                       ben_tilly\100hotmail.com
 559 ben\100morrow.me.uk                     mauzo\100csv.warwick.ac.uk
 560 +                                       mauzo\100.(none)
 561 bepi\100perl.it                         enrico.sorcinelli\100gmail.com
 562 bert\100alum.mit.edu                    bert\100genscan.com
 563 bigbang7\100gmail.com                   ddascalescu+github\100gmail.com
 564 blgl\100stacken.kth.se                  blgl\100hagernas.com
 565 +                                       2bfjdsla52kztwejndzdstsxl9athp\100gmail.com
 566 brian.d.foy\100gmail.com                bdfoy\100cpan.org
 567 BQW10602\100nifty.com                   sadahiro\100cpan.org
 568 bulk88\100hotmail.com                   bulk88
 569
 570 chad.granum\100dreamhost.com            exodist7\100gmail.com
 571 choroba\100cpan.org                     choroba\100weed.(none)
 572 chromatic\100wgz.org                    chromatic\100rmci.net
 573 ckuskie\100cadence.com                  colink\100perldreamer.com
 574 claes\100surfar.nu                      claes\100versed.se
 575 clintp\100geeksalad.org                 cpierce1\100ford.com
 576 clkao\100clkao.org                      clkao\100bestpractical.com
 577 corion\100corion.net                    corion\100cpan.org
 578 cp\100onsitetech.com                    publiustemp-p5p\100yahoo.com
 579 +                                       publiustemp-p5p3\100yahoo.com
 580 cpan\100audreyt.org                     autrijus\100egb.elixus.org
 581 +                                       autrijus\100geb.elixus.org
 582 +                                       autrijus\100gmail.com
 583 +                                       autrijus\100ossf.iis.sinica.edu.tw
 584 +                                       autrijus\100autrijus.org
 585 +                                       audreyt\100audreyt.org
 586 cpan\100ton.iguana.be                   me-01\100ton.iguana.be
 587 crt\100kiski.net                        perl\100ctweten.amsite.com
 588
 589 dairiki\100dairiki.org                  dairiki at dairiki.org
 590 dagolden\100cpan.org                    xdaveg\100gmail.com
 591 +                                       xdg\100xdg.me
 592 damian\100conway.org                    damian\100cs.monash.edu.au
 593 dan\100sidhe.org                        sugalsd\100lbcc.cc.or.us
 594 +                                       sugalskd\100osshe.edu
 595 daniel\100bitpusher.com                 daniel\100biz.bitpusher.com
 596 dave\100mag-sol.com                     dave\100dave.org.uk
 597 david.dyck\100fluke.com                 dcd\100tc.fluke.com
 598 david\100justatheory.com                david\100wheeler.net
 599 +                                       david\100kineticode.com
 600 +                                       david\100wheeler.com
 601 +                                       david\100wheeler.net
 602 whatever\100davidnicol.com              davidnicol\100gmail.com
 603 dennis\100booking.com                   dennis\100camel.ams6.corp.booking.com
 604 +                                       dennis.kaarsemaker\100booking.com
 605 +                                       dennis\100kaarsemaker.net
 606 dev-perl\100pimb.org                    knew-p5p\100pimb.org
 607 +                                       lists-p5p\100pimb.org
 608 djberg86\100attbi.com                   djberg96\100attbi.com
 609 dk\100tetsuo.karasik.eu.org             dmitry\100karasik.eu.org
 610 domo\100computer.org                    shouldbedomo\100mac.com
 611 +                                       domo\100slipper.ip.lu
 612 +                                       domo\100tcp.ip.lu
 613 dougm\100covalent.net                   dougm\100opengroup.org
 614 +                                       dougm\100osf.org
 615 dougw\100cpan.org                       doug_wilson\100intuit.com
 616 dwegscheid\100qtm.net                   wegscd\100whirlpool.com
 617 edwardp\100excitehome.net               epeschko\100den-mdev1
 618 +                                       epeschko\100elmer.tci.com
 619 +                                       esp5\100pge.com
 620 egf7\100columbia.edu                    efifer\100sanwaint.com
 621 eggert\100twinsun.com                   eggert\100sea.sm.unisys.com
 622 etj\100cpan.org                         mohawk2\100users.noreply.github.com
 623
 624 fugazi\100zyx.net                       larrysh\100cpan.org
 625 +                                       lshatzer\100islanddata.com
 626
 627 gbacon\100itsc.uah.edu                  gbacon\100adtrn-srv4.adtran.com
 628 gerberb\100zenez.com                    root\100devsys0.zenez.com
 629 gfuji\100cpan.org                       g.psy.va\100gmail.com
 630 gerard\100ggoossen.net                  gerard\100tty.nl
 631 gibreel\100pobox.com                    stephen.zander\100interlock.mckesson.com
 632 +                                       srz\100loopback
 633 gideon\100cpan.org                      gidisrael\100gmail.com
 634 gnat\100frii.com                        gnat\100prometheus.frii.com
 635 gp\100familiehaase.de                   gerrit\100familiehaase.de
 636 grazz\100pobox.com                      grazz\100nyc.rr.com
 637 gward\100ase.com                        greg\100bic.mni.mcgill.ca
 638 haggai\100cpan.org                      alanhaggai\100alanhaggai.org
 639 +                                       alanhaggai\100gmail.com
 640 hansmu\100xs4all.nl                     hansm\100icgroup.nl
 641 +                                       hansm\100icgned.nl
 642 +                                       hans\100icgned.nl
 643 +                                       hans\100icgroup.nl
 644 +                                       hansm\100euronet.nl
 645 +                                       hansm\100euro.net
 646 hio\100ymir.co.jp                       hio\100hio.jp
 647 hops\100sco.com                         hops\100scoot.pdev.sco.com
 648
 649 ian.goodacre\100xtra.co.nz              ian\100debian.lan
 650 ingo_weinhold\100gmx.de                 bonefish\100cs.tu-berlin.de
 651
 652 james\100mastros.biz                    theorb\100desert-island.me.uk
 653 jan\100jandubois.com                    jand\100activestate.com
 654 +                                       jan.dubois\100ibm.net
 655 japhy\100pobox.com                      japhy\100pobox.org
 656 +                                       japhy\100perlmonk.org
 657 +                                       japhy\100cpan.org
 658 +                                       jeffp\100crusoe.net
 659 jari.aalto\100poboxes.com               jari.aalto\100cante.net
 660 jarausch\100numa1.igpm.rwth-aachen.de   helmutjarausch\100unknown
 661 jasons\100cs.unm.edu                    jasons\100sandy-home.arc.unm.edu
 662 jbuehler\100hekimian.com                jhpb\100hekimian.com
 663 jcromie\100100divsol.com                jcromie\100cpan.org
 664 +                                       jim.cromie\100gmail.com
 665 jd\100cpanel.net                        lightsey\100debian.org
 666 jdhedden\100cpan.org                    jerry\100hedden.us
 667 +                                       jdhedden\1001979.usna.com
 668 +                                       jdhedden\100gmail.com
 669 +                                       jdhedden\100yahoo.com
 670 +                                       jhedden\100pn100-02-2-356p.corp.bloomberg.com
 671 +                                       jdhedden\100solydxk
 672 jeremy\100zawodny.com                   jzawodn\100wcnet.org
 673 jesse\100sig.bsh.com                    jesse\100ginger
 674 jfriedl\100yahoo.com                    jfriedl\100yahoo-inc.com
 675 jfs\100fluent.com                       jfs\100jfs.fluent.com
 676 jhannah\100mutationgrid.com             jay\100jays.net
 677 +                                       jhannah\100omnihotels.com
 678 jidanni\100jidanni.org                  jidanni\100hoffa.dreamhost.com
 679 jjore\100cpan.org                       twists\100gmail.com
 680 jkeenan\100cpan.org                     jkeen\100verizon.net
 681 +                                       jkeenan\100dromedary-001.ams6.corp.booking.com
 682 jns\100integration-house.com            jns\100gellyfish.com
 683 +                                       gellyfish\100gellyfish.com
 684 john\100atlantech.com                   john\100titanic.atlantech.com
 685 john\100johnwright.org                  john.wright\100hp.com
 686 joseph\100cscaper.com                   joseph\1005sigma.com
 687 joshua\100rodd.us                       jrodd\100pbs.org
 688 jtobey\100john-edwin-tobey.org          jtobey\100user1.channel1.com
 689 jpeacock\100messagesystems.com          john.peacock\100havurah-software.org
 690 +                                       jpeacock\100havurah-software.org
 691 +                                       jpeacock\100dsl092-147-156.wdc1.dsl.speakeasy.net
 692 +                                       jpeacock\100jpeacock-hp.doesntexist.org
 693 +                                       jpeacock\100cpan.org
 694 +                                       jpeacock\100rowman.com
 695 james.schneider\100db.com               jschneid\100netilla.com
 696 jpl.jpl\100gmail.com                    jpl\100research.att.com
 697 jql\100accessone.com                    jql\100jql.accessone.com
 698 jsm28\100hermes.cam.ac.uk               jsm28\100cam.ac.uk
 699
 700 kane\100dwim.org                        kane\100xs4all.net
 701 +                                       kane\100cpan.org
 702 +                                       kane\100xs4all.nl
 703 +                                       jos\100dwim.org
 704 +                                       jib\100ripe.net
 705 keith.s.thompson\100gmail.com           kst\100mib.org
 706 ken\100mathforum.org                    kenahoo\100gmail.com
 707 +                                       ken.williams\100thomsonreuters.com
 708 kentfredric\100gmail.com                kentnl\100cpan.org
 709 kmx\100volny.cz                         kmx\100volny.cz
 710 +                                       kmx\100cpan.org
 711 kroepke\100dolphin-services.de          kay\100dolphin-services.de
 712 kst\100mib.org                          kst\100cts.com
 713 +                                       kst\100SDSC.EDU
 714 kstar\100wolfetech.com                  kstar\100cpan.org
 715 +                                       kurt_starsinic\100ml.com
 716 +                                       kstar\100www.chapin.edu
 717 +                                       kstar\100chapin.edu
 718 larry\100wall.org                       lwall\100jpl-devvax.jpl.nasa.gov
 719 +                                       lwall\100netlabs.com
 720 +                                       larry\100netlabs.com
 721 +                                       lwall\100sems.com
 722 +                                       lwall\100scalpel.netlabs.com
 723 laszlo.molnar\100eth.ericsson.se        molnarl\100cdata.tvnet.hu
 724 +                                       ml1050\100freemail.hu
 725 lewart\100uiuc.edu                      lewart\100vadds.cvm.uiuc.edu
 726 +                                       d-lewart\100uiuc.edu
 727 lkundrak\100v3.sk                       lubo.rintel\100gooddata.com
 728 lstein\100cshl.org                      lstein\100formaggio.cshl.org
 729 +                                       lstein\100genome.wi.mit.edu
 730 l.mai\100web.de                         plokinom\100gmail.com
 731 lupe\100lupe-christoph.de               lupe\100alanya.m.isar.de
 732 lutherh\100stratcom.com                 lutherh\100infinet.com
 733 mab\100wdl.loral.com                    markb\100rdcf.sm.unisys.com
 734 marcel\100codewerk.com                  gr\100univie.ac.at
 735 +                                       hanekomu\100gmail.com
 736 marcgreen\100cpan.org                   marcgreen\100wpi.edu
 737 markleightonfisher\100gmail.com         fisherm\100tce.com
 738 +                                       mark-fisher\100mindspring.com
 739 mark.p.lutz\100boeing.com               tecmpl1\100triton.ca.boeing.com
 740 marnix\100gmail.com                     pttesac!marnix!vanam
 741 marty+p5p\100kasei.com                  marty\100martian.org
 742 mats\100sm6sxl.net                      mats\100sm5sxl.net
 743 mbarbon\100dsi.unive.it                 mattia.barbon\100libero.it
 744 +                                       mattia\100barbon.org
 745 mcmahon\100ibiblio.org                  mcmahon\100metalab.unc.edu
 746 me\100davidglasser.net                  glasser\100tang-eleven-seventy-nine.mit.edu
 747 merijnb\100iloquent.nl                  merijnb\100ms.com
 748 +                                       merijnb\100iloquent.com
 749 merlyn\100stonehenge.com                merlyn\100gadget.cscaper.com
 750 mestre.smash\100gmail.com               smash\100cpan.org
 751 mgjv\100comdyn.com.au                   mgjv\100tradingpost.com.au
 752 mlh\100swl.msd.ray.com                  webtools\100uewrhp03.msd.ray.com
 753 michael.schroeder\100informatik.uni-erlangen.de mls\100suse.de
 754 mike\100stok.co.uk                      mike\100exegenix.com
 755 miyagawa\100bulknews.net                    miyagawa\100edge.co.jp
 756 mjtg\100cam.ac.uk                       mjtg\100cus.cam.ac.uk
 757 mikedlr\100tardis.ed.ac.uk              mikedlr\100it.com.pl
 758 moritz\100casella.verplant.org          moritz\100faui2k3.org
 759 +                                       moritz lenz
 760
 761 neale\100VMA.TABNSW.COM.AU              neale\100pucc.princeton.edu
 762 neeracher\100mac.com                    neeri\100iis.ee.ethz.ch
 763 neil\100bowers.com                      neilb\100cre.canon.co.uk
 764
 765 nospam-abuse\100bloodgate.com           tels\100bloodgate.com
 766 +                                       perl_dummy\100bloodgate.com
 767
 768 ian.phillipps\100iname.com              ian_phillipps\100yahoo.co.uk
 769 +                                       ian\100dial.pipex.com
 770 ignasi.roca\100fujitsu-siemens.com      ignasi.roca\100fujitsu.siemens.es
 771 ikegami\100adaelis.com                  eric\100fmdev10.(none)
 772 ilmari\100ilmari.org                    ilmari\100vesla.ilmari.org
 773 illpide\100telecel.pt                   arbor\100al37al08.telecel.pt
 774 # see http://www.nntp.perl.org/group/perl.perl5.porters/2001/01/msg28925.html
 775 #
 776 ilya\100math.berkeley.edu               ilya\100math.ohio-state.edu
 777 +                                       nospam-abuse\100ilyaz.org
 778 +                                       [9]ilya\100math.ohio-state.edu
 779 ilya\100martynov.org                    ilya\100juil.nonet
 780
 781 joshua.pritikin\100db.com               joshua\100paloalto.com
 782
 783 litt\100acm.org                         tlhackque\100yahoo.com
 784
 785 meyering@asic.sc.ti.com                 jim\100meyering.net
 786
 787 okamoto\100corp.hp.com                  okamoto\100hpcc123.corp.hp.com
 788 orwant\100oreilly.com                   orwant\100media.mit.edu
 789
 790 p5-authors\100crystalflame.net          perl\100crystalflame.net
 791 +                                       rs\100crystalflame.net
 792 +                                       coral\100eekeek.org
 793 +                                       coral\100moonlight.crystalflame.net
 794 +                                       rs\100oregonnet.com
 795 +                                       rs\100topsy.com
 796 paul.green\100stratus.com               paul_greenvos\100vos.stratus.com
 797 +                                       pgreen\100seussnt.stratus.com
 798 paul.marquess\100btinternet.com         paul_marquess\100yahoo.co.uk
 799 +                                       paul.marquess\100ntlworld.com
 800 +                                       paul.marquess\100openwave.com
 801 +                                       pmarquess\100bfsec.bt.co.uk
 802 +                                       pmqs\100cpan.org
 803 +                                       paul\100paul-desktop.(none)
 804 Pavel.Zakouril\100mff.cuni.cz           root\100egg.karlov.mff.cuni.cz
 805 pcg\100goof.com                         schmorp\100schmorp.de
 806 perl\100cadop.com                       cdp\100hpescdp.fc.hp.com
 807 perl\100greerga.m-l.org                 greerga\100m-l.org
 808 perl\100profvince.com                   vince\100profvince.com
 809 perl-rt\100wizbit.be                    p5p\100perl.wizbit.be
 810 # Maybe we should special case this to get real names out?
 811 Peter.Dintelmann\100Dresdner-Bank.com   peter.dintelmann\100dresdner-bank.com
 812 # NOTE: There is an intentional trailing space in the line above
 813 pfeifer\100wait.de                      pfeifer\100charly.informatik.uni-dortmund.de
 814 +                                       upf\100de.uu.net
 815 ribasushi@cpan.org                      rabbit\100rabbit.us
 816 +                                       rabbit+bugs\100rabbit.us
 817 perl\100aaroncrane.co.uk                arc\100cpan.org
 818 phil\100perkpartners.com                phil\100finchcomputer.com
 819 pimlott\100idiomtech.com                andrew\100pimlott.net
 820 +                                       pimlott\100abel.math.harvard.edu
 821 pixel\100mandriva.com                   pixel\100mandrakesoft.com
 822 pne\100cpan.org                         philip.newton\100gmx.net
 823 +                                       philip.newton\100datenrevision.de
 824 +                                       pnewton\100gmx.de
 825 pprymmer\100factset.com                 pvhp\100forte.com
 826 khw\100cpan.org                         khw\100karl.(none)
 827 +                                       public\100khwilliamson.com
 828 +                                       khw\100khw-desktop.(none)
 829
 830 radu\100netsoft.ro                      rgreab\100fx.ro
 831 rajagopa\100pauline.schrodinger.com     rajagopa\100schrodinger.com
 832 raphael.manfredi\100pobox.com           raphael_manfredi\100grenoble.hp.com
 833 module@renee-baecker.de                 renee.baecker\100smart-websolutions.de
 834 +                                       reneeb\100reneeb-desktop.(none)
 835 +                                       github@renee-baecker.de
 836 +                                       otrs\100ubuntu.(none)
 837 +                                       perl\100renee-baecker.de
 838 +                                       reb\100perl-services.de
 839 richard.foley\100rfi.net                richard.foley\100t-online.de
 840 +                                       richard.foley\100ubs.com
 841 +                                       richard.foley\100ubsw.com
 842 rick\100consumercontact.com             rick\100bort.ca
 843 +                                       rick.delaney\100rogers.com
 844 +                                       rick\100bort.ca
 845 +                                       rick.delaney\100home.com
 846 rjbs\100cpan.org                        rjbs-perl-p5p\100lists.manxome.org
 847 +                                       perl.p5p\100rjbs.manxome.org
 848 rjk\100linguist.dartmouth.edu           rjk\100linguist.thayer.dartmouth.edu
 849 +                                       rjk-perl-p5p\100tamias.net
 850 +                                       rjk\100tamias.net
 851 rjray\100redhat.com                     rjray\100uswest.com
 852 rmgiroux\100acm.org                     rmgiroux\100hotmail.com
 853 +                                       mgiroux\100bear.com
 854 rmbarker\100cpan.org                    rmb1\100cise.npl.co.uk
 855 +                                       robin.barker\100npl.co.uk
 856 +                                       rmb\100cise.npl.co.uk
 857 +                                       robin\100spade-ubuntu.(none)
 858 +                                       r.m.barker\100btinternet.com
 859 +                                       rmbarker.cpan\100btinternet.com
 860 robertmay\100cpan.org                   rob\100themayfamily.me.uk
 861 roberto\100keltia.freenix.fr            roberto\100eurocontrol.fr
 862 robin\100cpan.org                       robin\100kitsite.com
 863 roderick\100argon.org                   roderick\100gate.net
 864 +                                       roderick\100ibcinc.com
 865 argrath\100ub32.org                     root\100ub32.org
 866 rootbeer\100teleport.com                rootbeer\100redcat.com
 867 +                                       tomphoenix\100unknown
 868 rurban\100x-ray.at                      rurban\100cpan.org
 869 +                                       rurban\100cpanel.net
 870 rvtol+news\100isolution.nl              rvtol\100isolution.nl
 871 sartak\100bestpractical.com             sartak\100gmail.com
 872 +                                       code\100sartak.org
 873 sadinoff\100olf.com                     danny-cpan\100sadinoff.com
 874 schubiger\100cpan.org                   steven\100accognoscere.org
 875 +                                       sts\100accognoscere.org
 876 +                                       schubiger\100gmail.com
 877 +                                       stsc\100refcnt.org
 878 schwern\100pobox.com                    schwern\100gmail.com
 879 +                                       schwern\100athens.arena-i.com
 880 +                                       schwern\100blackrider.aocn.com
 881 +                                       schwern\100ool-18b93024.dyn.optonline.net
 882 scotth\100sgi.com                       author scotth\100sgi.com 842220273 +0000
 883 +                                       schotth\100sgi.com
 884 schwab\100suse.de                       schwab\100issan.informatik.uni-dortmund.de
 885 +                                       schwab\100ls5.informatik.uni-dortmund.de
 886 sebastien\100aperghis.net               maddingue\100free.fr
 887 +                                       saper\100cpan.org
 888 shigeya\100wide.ad.jp                   shigeya\100foretune.co.jp
 889 shlomif\100cpan.org                     shlomif\100vipe.technion.ac.il
 890 +                                       shlomif\100iglu.org.il
 891 +                                       shlomif+processed-by-perl\100gmail.com
 892 +                                       shlomif\100shlomifish.org
 893 simon\100simon-cozens.org               simon\100pembro4.pmb.ox.ac.uk
 894 +                                       simon\100brecon.co.uk
 895 +                                       simon\100othersideofthe.earth.li
 896 +                                       simon\100cozens.net
 897 +                                       simon\100netthink.co.uk
 898 lannings\100who.int                     lannings\100gmail.com
 899 +                                       slanning\100cpan.org
 900 slaven\100rezic.de                      slaven.rezic\100berlin.de
 901 +                                       srezic\100iconmobile.com
 902 +                                       srezic\100cpan.org
 903 +                                       eserte\100cs.tu-berlin.de
 904 +                                       eserte\100vran.herceg.de
 905 smcc\100mit.edu                         smcc\100ocf.berkeley.edu
 906 +                                       smcc\100csua.berkeley.edu
 907 +                                       alias\100mcs.com
 908 +                                       smccam\100uclink4.berkeley.edu
 909 spider\100orb.nashua.nh.us              spider\100web.zk3.dec.com
 910 +                                       spider\100leggy.zk3.dec.com
 911 +                                       spider-perl\100orb.nashua.nh.us
 912 +                                       spider\100peano.zk3.dec.com
 913 +                                       spider.boardman\100orb.nashua.nh.us>
 914 +                                       spidb\100cpan.org
 915 +                                       spider.boardman\100orb.nashua.nh.us
 916 +                                       root\100peano.zk3.dec.com
 917 spiros\100lokku.com                     s.denaxas\100gmail.com
 918 spp\100ds.net                           spp\100psa.pencom.com
 919 +                                       spp\100psasolar.colltech.com
 920 +                                       spp\100spotter.yi.org
 921 stef\100mongueurs.net                   stef\100payrard.net
 922 +                                       s.payrard\100wanadoo.fr
 923 +                                       properler\100freesurf.fr
 924 +                                       stef\100francenet.fr
 925 stevan\100cpan.org                      stevan.little\100gmail.com
 926 +                                       stevan.little\100iinteractive.com
 927 sthoenna\100efn.org                     ysth\100raven.shiftboard.com
 928 sisyphus1\100optusnet.com.au            sisyphus\100cpan.org
 929
 930 tassilo.parseval\100post.rwth-aachen.de tassilo.von.parseval\100rwth-aachen.de
 931 tchrist\100perl.com                     tchrist\100mox.perl.com
 932 +                                       tchrist\100jhereg.perl.com
 933 thomas.dorner\100start.de               tdorner\100amadeus.net
 934 tjenness\100cpan.org                    t.jenness\100jach.hawaii.edu
 935 +                                       timj\100jach.hawaii.edu
 936 tobez\100tobez.org                      tobez\100plab.ku.dk
 937 toddr\100cpan.org                       toddr\100cpanel.net
 938 tom\100compton.nu                       thh\100cyberscience.com
 939 tom.horsley\100mail.ccur.com            tom.horsley\100ccur.com
 940 +                                       tom\100amber.ssd.hcsc.com
 941
 942 vkonovalov\100lucent.com                vkonovalov\100peterstar.ru
 943 +                                       konovalo\100mail.wplus.net
 944 +                                       vadim\100vkonovalov.ru
 945 +                                       vkonovalov\100spb.lucent.com
 946 +                                       vkonovalov\100alcatel-lucent.com
 947 +                                       vadim.konovalov\100alcatel-lucent.com
 948
 949 whatever\100davidnicol.com              davidnicol\100gmail.com
 950 wolfgang.laun\100alcatel.at             wolfgang.laun\100chello.at
 951 +                                       wolfgang.laun\100thalesgroup.com
 952 +                                       wolfgang.laun\100gmail.com
 953 wolfsage\100gmail.com                   mhorsfall\100darmstadtium.(none)
 954 yath\100yath.de                         yath-perlbug\100yath.de
 955