Revert "Remove deprecation warnings related to $* and $#."
[perl.git] / 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 david.dyck\100fluke.com                 dcd\100tc.fluke.com
597 david\100justatheory.com                david\100wheeler.net
598 +                                       david\100kineticode.com
599 +                                       david\100wheeler.com
600 +                                       david\100wheeler.net
601 whatever\100davidnicol.com              davidnicol\100gmail.com
602 dennis\100booking.com                   dennis\100camel.ams6.corp.booking.com
603 +                                       dennis.kaarsemaker\100booking.com
604 +                                       dennis\100kaarsemaker.net
605 dev-perl\100pimb.org                    knew-p5p\100pimb.org
606 +                                       lists-p5p\100pimb.org
607 djberg86\100attbi.com                   djberg96\100attbi.com
608 dk\100tetsuo.karasik.eu.org             dmitry\100karasik.eu.org
609 domo\100computer.org                    shouldbedomo\100mac.com
610 +                                       domo\100slipper.ip.lu
611 +                                       domo\100tcp.ip.lu
612 dougm\100covalent.net                   dougm\100opengroup.org
613 +                                       dougm\100osf.org
614 dougw\100cpan.org                       doug_wilson\100intuit.com
615 dwegscheid\100qtm.net                   wegscd\100whirlpool.com
616 edwardp\100excitehome.net               epeschko\100den-mdev1
617 +                                       epeschko\100elmer.tci.com
618 +                                       esp5\100pge.com
619 egf7\100columbia.edu                    efifer\100sanwaint.com
620 eggert\100twinsun.com                   eggert\100sea.sm.unisys.com
621 etj\100cpan.org                         mohawk2\100users.noreply.github.com
622
623 fugazi\100zyx.net                       larrysh\100cpan.org
624 +                                       lshatzer\100islanddata.com
625
626 gbacon\100itsc.uah.edu                  gbacon\100adtrn-srv4.adtran.com
627 gerberb\100zenez.com                    root\100devsys0.zenez.com
628 gfuji\100cpan.org                       g.psy.va\100gmail.com
629 gerard\100ggoossen.net                  gerard\100tty.nl
630 gibreel\100pobox.com                    stephen.zander\100interlock.mckesson.com
631 +                                       srz\100loopback
632 gideon\100cpan.org                      gidisrael\100gmail.com
633 gnat\100frii.com                        gnat\100prometheus.frii.com
634 gp\100familiehaase.de                   gerrit\100familiehaase.de
635 grazz\100pobox.com                      grazz\100nyc.rr.com
636 gward\100ase.com                        greg\100bic.mni.mcgill.ca
637 haggai\100cpan.org                      alanhaggai\100alanhaggai.org
638 +                                       alanhaggai\100gmail.com
639 hansmu\100xs4all.nl                     hansm\100icgroup.nl
640 +                                       hansm\100icgned.nl
641 +                                       hans\100icgned.nl
642 +                                       hans\100icgroup.nl
643 +                                       hansm\100euronet.nl
644 +                                       hansm\100euro.net
645 hio\100ymir.co.jp                       hio\100hio.jp
646 hops\100sco.com                         hops\100scoot.pdev.sco.com
647
648 ian.goodacre\100xtra.co.nz              ian\100debian.lan
649 ingo_weinhold\100gmx.de                 bonefish\100cs.tu-berlin.de
650
651 james\100mastros.biz                    theorb\100desert-island.me.uk
652 jan\100jandubois.com                    jand\100activestate.com
653 +                                       jan.dubois\100ibm.net
654 japhy\100pobox.com                      japhy\100pobox.org
655 +                                       japhy\100perlmonk.org
656 +                                       japhy\100cpan.org
657 +                                       jeffp\100crusoe.net
658 jari.aalto\100poboxes.com               jari.aalto\100cante.net
659 jarausch\100numa1.igpm.rwth-aachen.de   helmutjarausch\100unknown
660 jasons\100cs.unm.edu                    jasons\100sandy-home.arc.unm.edu
661 jbuehler\100hekimian.com                jhpb\100hekimian.com
662 jcromie\100100divsol.com                jcromie\100cpan.org
663 +                                       jim.cromie\100gmail.com
664 jd\100cpanel.net                        lightsey\100debian.org
665 jdhedden\100cpan.org                    jerry\100hedden.us
666 +                                       jdhedden\1001979.usna.com
667 +                                       jdhedden\100gmail.com
668 +                                       jdhedden\100yahoo.com
669 +                                       jhedden\100pn100-02-2-356p.corp.bloomberg.com
670 +                                       jdhedden\100solydxk
671 jeremy\100zawodny.com                   jzawodn\100wcnet.org
672 jesse\100sig.bsh.com                    jesse\100ginger
673 jfriedl\100yahoo.com                    jfriedl\100yahoo-inc.com
674 jfs\100fluent.com                       jfs\100jfs.fluent.com
675 jhannah\100mutationgrid.com             jay\100jays.net
676 +                                       jhannah\100omnihotels.com
677 jidanni\100jidanni.org                  jidanni\100hoffa.dreamhost.com
678 jjore\100cpan.org                       twists\100gmail.com
679 jkeenan\100cpan.org                     jkeen\100verizon.net
680 +                                       jkeenan\100dromedary-001.ams6.corp.booking.com
681 jns\100integration-house.com            jns\100gellyfish.com
682 +                                       gellyfish\100gellyfish.com
683 john\100atlantech.com                   john\100titanic.atlantech.com
684 john\100johnwright.org                  john.wright\100hp.com
685 joseph\100cscaper.com                   joseph\1005sigma.com
686 joshua\100rodd.us                       jrodd\100pbs.org
687 jtobey\100john-edwin-tobey.org          jtobey\100user1.channel1.com
688 jpeacock\100messagesystems.com          john.peacock\100havurah-software.org
689 +                                       jpeacock\100havurah-software.org
690 +                                       jpeacock\100dsl092-147-156.wdc1.dsl.speakeasy.net
691 +                                       jpeacock\100jpeacock-hp.doesntexist.org
692 +                                       jpeacock\100cpan.org
693 +                                       jpeacock\100rowman.com
694 jpl.jpl\100gmail.com                    jpl\100research.att.com
695 jql\100accessone.com                    jql\100jql.accessone.com
696 jsm28\100hermes.cam.ac.uk               jsm28\100cam.ac.uk
697
698 kane\100dwim.org                        kane\100xs4all.net
699 +                                       kane\100cpan.org
700 +                                       kane\100xs4all.nl
701 +                                       jos\100dwim.org
702 +                                       jib\100ripe.net
703 keith.s.thompson\100gmail.com           kst\100mib.org
704 ken\100mathforum.org                    kenahoo\100gmail.com
705 +                                       ken.williams\100thomsonreuters.com
706 kentfredric\100gmail.com                kentnl\100cpan.org
707 kmx\100volny.cz                         kmx\100volny.cz
708 +                                       kmx\100cpan.org
709 kroepke\100dolphin-services.de          kay\100dolphin-services.de
710 kst\100mib.org                          kst\100cts.com
711 +                                       kst\100SDSC.EDU
712 kstar\100wolfetech.com                  kstar\100cpan.org
713 +                                       kurt_starsinic\100ml.com
714 +                                       kstar\100www.chapin.edu
715 +                                       kstar\100chapin.edu
716 larry\100wall.org                       lwall\100jpl-devvax.jpl.nasa.gov
717 +                                       lwall\100netlabs.com
718 +                                       larry\100netlabs.com
719 +                                       lwall\100sems.com
720 +                                       lwall\100scalpel.netlabs.com
721 laszlo.molnar\100eth.ericsson.se        molnarl\100cdata.tvnet.hu
722 +                                       ml1050\100freemail.hu
723 lewart\100uiuc.edu                      lewart\100vadds.cvm.uiuc.edu
724 +                                       d-lewart\100uiuc.edu
725 lkundrak\100v3.sk                       lubo.rintel\100gooddata.com
726 lstein\100cshl.org                      lstein\100formaggio.cshl.org
727 +                                       lstein\100genome.wi.mit.edu
728 l.mai\100web.de                         plokinom\100gmail.com
729 lupe\100lupe-christoph.de               lupe\100alanya.m.isar.de
730 lutherh\100stratcom.com                 lutherh\100infinet.com
731 mab\100wdl.loral.com                    markb\100rdcf.sm.unisys.com
732 marcel\100codewerk.com                  gr\100univie.ac.at
733 +                                       hanekomu\100gmail.com
734 marcgreen\100cpan.org                   marcgreen\100wpi.edu
735 markleightonfisher\100gmail.com         fisherm\100tce.com
736 +                                       mark-fisher\100mindspring.com
737 mark.p.lutz\100boeing.com               tecmpl1\100triton.ca.boeing.com
738 marnix\100gmail.com                     pttesac!marnix!vanam
739 marty+p5p\100kasei.com                  marty\100martian.org
740 mats\100sm6sxl.net                      mats\100sm5sxl.net
741 mbarbon\100dsi.unive.it                 mattia.barbon\100libero.it
742 +                                       mattia\100barbon.org
743 mcmahon\100ibiblio.org                  mcmahon\100metalab.unc.edu
744 me\100davidglasser.net                  glasser\100tang-eleven-seventy-nine.mit.edu
745 merijnb\100iloquent.nl                  merijnb\100ms.com
746 +                                       merijnb\100iloquent.com
747 merlyn\100stonehenge.com                merlyn\100gadget.cscaper.com
748 mestre.smash\100gmail.com               smash\100cpan.org
749 mgjv\100comdyn.com.au                   mgjv\100tradingpost.com.au
750 mlh\100swl.msd.ray.com                  webtools\100uewrhp03.msd.ray.com
751 michael.schroeder\100informatik.uni-erlangen.de mls\100suse.de
752 mike\100stok.co.uk                      mike\100exegenix.com
753 miyagawa\100bulknews.net                    miyagawa\100edge.co.jp
754 mjtg\100cam.ac.uk                       mjtg\100cus.cam.ac.uk
755 mikedlr\100tardis.ed.ac.uk              mikedlr\100it.com.pl
756 moritz\100casella.verplant.org          moritz\100faui2k3.org
757 +                                       moritz lenz
758
759 neale\100VMA.TABNSW.COM.AU              neale\100pucc.princeton.edu
760 neeracher\100mac.com                    neeri\100iis.ee.ethz.ch
761 neil\100bowers.com                      neilb\100cre.canon.co.uk
762
763 nospam-abuse\100bloodgate.com           tels\100bloodgate.com
764 +                                       perl_dummy\100bloodgate.com
765
766 ian.phillipps\100iname.com              ian_phillipps\100yahoo.co.uk
767 +                                       ian\100dial.pipex.com
768 ignasi.roca\100fujitsu-siemens.com      ignasi.roca\100fujitsu.siemens.es
769 ikegami\100adaelis.com                  eric\100fmdev10.(none)
770 ilmari\100ilmari.org                    ilmari\100vesla.ilmari.org
771 illpide\100telecel.pt                   arbor\100al37al08.telecel.pt
772 # see http://www.nntp.perl.org/group/perl.perl5.porters/2001/01/msg28925.html
773 #
774 ilya\100math.berkeley.edu               ilya\100math.ohio-state.edu
775 +                                       nospam-abuse\100ilyaz.org
776 +                                       [9]ilya\100math.ohio-state.edu
777 ilya\100martynov.org                    ilya\100juil.nonet
778
779 joshua.pritikin\100db.com               joshua\100paloalto.com
780
781 litt\100acm.org                         tlhackque\100yahoo.com
782
783 meyering@asic.sc.ti.com                 jim\100meyering.net
784
785 okamoto\100corp.hp.com                  okamoto\100hpcc123.corp.hp.com
786 orwant\100oreilly.com                   orwant\100media.mit.edu
787
788 p5-authors\100crystalflame.net          perl\100crystalflame.net
789 +                                       rs\100crystalflame.net
790 +                                       coral\100eekeek.org
791 +                                       coral\100moonlight.crystalflame.net
792 +                                       rs\100oregonnet.com
793 +                                       rs\100topsy.com
794 paul.green\100stratus.com               paul_greenvos\100vos.stratus.com
795 +                                       pgreen\100seussnt.stratus.com
796 paul.marquess\100btinternet.com         paul_marquess\100yahoo.co.uk
797 +                                       paul.marquess\100ntlworld.com
798 +                                       paul.marquess\100openwave.com
799 +                                       pmarquess\100bfsec.bt.co.uk
800 +                                       pmqs\100cpan.org
801 +                                       paul\100paul-desktop.(none)
802 Pavel.Zakouril\100mff.cuni.cz           root\100egg.karlov.mff.cuni.cz
803 pcg\100goof.com                         schmorp\100schmorp.de
804 perl\100cadop.com                       cdp\100hpescdp.fc.hp.com
805 perl\100greerga.m-l.org                 greerga\100m-l.org
806 perl\100profvince.com                   vince\100profvince.com
807 perl-rt\100wizbit.be                    p5p\100perl.wizbit.be
808 # Maybe we should special case this to get real names out?
809 Peter.Dintelmann\100Dresdner-Bank.com   peter.dintelmann\100dresdner-bank.com
810 # NOTE: There is an intentional trailing space in the line above
811 pfeifer\100wait.de                      pfeifer\100charly.informatik.uni-dortmund.de
812 +                                       upf\100de.uu.net
813 ribasushi@cpan.org                      rabbit\100rabbit.us
814 +                                       rabbit+bugs\100rabbit.us
815 perl\100aaroncrane.co.uk                arc\100cpan.org
816 phil\100perkpartners.com                phil\100finchcomputer.com
817 pimlott\100idiomtech.com                andrew\100pimlott.net
818 +                                       pimlott\100abel.math.harvard.edu
819 pixel\100mandriva.com                   pixel\100mandrakesoft.com
820 pne\100cpan.org                         philip.newton\100gmx.net
821 +                                       philip.newton\100datenrevision.de
822 +                                       pnewton\100gmx.de
823 pprymmer\100factset.com                 pvhp\100forte.com
824 khw\100cpan.org                         khw\100karl.(none)
825 +                                       public\100khwilliamson.com
826 +                                       khw\100khw-desktop.(none)
827
828 radu\100netsoft.ro                      rgreab\100fx.ro
829 rajagopa\100pauline.schrodinger.com     rajagopa\100schrodinger.com
830 raphael.manfredi\100pobox.com           raphael_manfredi\100grenoble.hp.com
831 module@renee-baecker.de                 renee.baecker\100smart-websolutions.de
832 +                                       reneeb\100reneeb-desktop.(none)
833 +                                       github@renee-baecker.de
834 +                                       otrs\100ubuntu.(none)
835 +                                       perl\100renee-baecker.de
836 richard.foley\100rfi.net                richard.foley\100t-online.de
837 +                                       richard.foley\100ubs.com
838 +                                       richard.foley\100ubsw.com
839 rick\100consumercontact.com             rick\100bort.ca
840 +                                       rick.delaney\100rogers.com
841 +                                       rick\100bort.ca
842 +                                       rick.delaney\100home.com
843 rjbs\100cpan.org                        rjbs-perl-p5p\100lists.manxome.org
844 +                                       perl.p5p\100rjbs.manxome.org
845 rjk\100linguist.dartmouth.edu           rjk\100linguist.thayer.dartmouth.edu
846 +                                       rjk-perl-p5p\100tamias.net
847 +                                       rjk\100tamias.net
848 rjray\100redhat.com                     rjray\100uswest.com
849 rmgiroux\100acm.org                     rmgiroux\100hotmail.com
850 +                                       mgiroux\100bear.com
851 rmbarker\100cpan.org                    rmb1\100cise.npl.co.uk
852 +                                       robin.barker\100npl.co.uk
853 +                                       rmb\100cise.npl.co.uk
854 +                                       robin\100spade-ubuntu.(none)
855 +                                       r.m.barker\100btinternet.com
856 +                                       rmbarker.cpan\100btinternet.com
857 robertmay\100cpan.org                   rob\100themayfamily.me.uk
858 roberto\100keltia.freenix.fr            roberto\100eurocontrol.fr
859 robin\100cpan.org                       robin\100kitsite.com
860 roderick\100argon.org                   roderick\100gate.net
861 +                                       roderick\100ibcinc.com
862 argrath\100ub32.org                     root\100ub32.org
863 rootbeer\100teleport.com                rootbeer\100redcat.com
864 +                                       tomphoenix\100unknown
865 rurban\100x-ray.at                      rurban\100cpan.org
866 +                                       rurban\100cpanel.net
867 rvtol+news\100isolution.nl              rvtol\100isolution.nl
868 sartak\100bestpractical.com             sartak\100gmail.com
869 +                                       code\100sartak.org
870 sadinoff\100olf.com                     danny-cpan\100sadinoff.com
871 schubiger\100cpan.org                   steven\100accognoscere.org
872 +                                       sts\100accognoscere.org
873 +                                       schubiger\100gmail.com
874 +                                       stsc\100refcnt.org
875 schwern\100pobox.com                    schwern\100gmail.com
876 +                                       schwern\100athens.arena-i.com
877 +                                       schwern\100blackrider.aocn.com
878 +                                       schwern\100ool-18b93024.dyn.optonline.net
879 scotth\100sgi.com                       author scotth\100sgi.com 842220273 +0000
880 +                                       schotth\100sgi.com
881 schwab\100suse.de                       schwab\100issan.informatik.uni-dortmund.de
882 +                                       schwab\100ls5.informatik.uni-dortmund.de
883 sebastien\100aperghis.net               maddingue\100free.fr
884 +                                       saper\100cpan.org
885 shigeya\100wide.ad.jp                   shigeya\100foretune.co.jp
886 shlomif\100cpan.org                     shlomif\100vipe.technion.ac.il
887 +                                       shlomif\100iglu.org.il
888 +                                       shlomif+processed-by-perl\100gmail.com
889 +                                       shlomif\100shlomifish.org
890 simon\100simon-cozens.org               simon\100pembro4.pmb.ox.ac.uk
891 +                                       simon\100brecon.co.uk
892 +                                       simon\100othersideofthe.earth.li
893 +                                       simon\100cozens.net
894 +                                       simon\100netthink.co.uk
895 lannings\100who.int                     lannings\100gmail.com
896 +                                       slanning\100cpan.org
897 slaven\100rezic.de                      slaven.rezic\100berlin.de
898 +                                       srezic\100iconmobile.com
899 +                                       srezic\100cpan.org
900 +                                       eserte\100cs.tu-berlin.de
901 +                                       eserte\100vran.herceg.de
902 smcc\100mit.edu                         smcc\100ocf.berkeley.edu
903 +                                       smcc\100csua.berkeley.edu
904 +                                       alias\100mcs.com
905 +                                       smccam\100uclink4.berkeley.edu
906 spider\100orb.nashua.nh.us              spider\100web.zk3.dec.com
907 +                                       spider\100leggy.zk3.dec.com
908 +                                       spider-perl\100orb.nashua.nh.us
909 +                                       spider\100peano.zk3.dec.com
910 +                                       spider.boardman\100orb.nashua.nh.us>
911 +                                       spidb\100cpan.org
912 +                                       spider.boardman\100orb.nashua.nh.us
913 +                                       root\100peano.zk3.dec.com
914 spiros\100lokku.com                     s.denaxas\100gmail.com
915 spp\100ds.net                           spp\100psa.pencom.com
916 +                                       spp\100psasolar.colltech.com
917 +                                       spp\100spotter.yi.org
918 stef\100mongueurs.net                   stef\100payrard.net
919 +                                       s.payrard\100wanadoo.fr
920 +                                       properler\100freesurf.fr
921 +                                       stef\100francenet.fr
922 stevan\100cpan.org                      stevan.little\100gmail.com
923 +                                       stevan.little\100iinteractive.com
924 sthoenna\100efn.org                     ysth\100raven.shiftboard.com
925 sisyphus1\100optusnet.com.au            sisyphus\100cpan.org
926
927 tassilo.parseval\100post.rwth-aachen.de tassilo.von.parseval\100rwth-aachen.de
928 tchrist\100perl.com                     tchrist\100mox.perl.com
929 +                                       tchrist\100jhereg.perl.com
930 thomas.dorner\100start.de               tdorner\100amadeus.net
931 tjenness\100cpan.org                    t.jenness\100jach.hawaii.edu
932 +                                       timj\100jach.hawaii.edu
933 tobez\100tobez.org                      tobez\100plab.ku.dk
934 toddr\100cpan.org                       toddr\100cpanel.net
935 tom\100compton.nu                       thh\100cyberscience.com
936 tom.horsley\100mail.ccur.com            tom.horsley\100ccur.com
937 +                                       tom\100amber.ssd.hcsc.com
938
939 vkonovalov\100lucent.com                vkonovalov\100peterstar.ru
940 +                                       konovalo\100mail.wplus.net
941 +                                       vadim\100vkonovalov.ru
942 +                                       vkonovalov\100spb.lucent.com
943 +                                       vkonovalov\100alcatel-lucent.com
944 +                                       vadim.konovalov\100alcatel-lucent.com
945
946 whatever\100davidnicol.com              davidnicol\100gmail.com
947 wolfgang.laun\100alcatel.at             wolfgang.laun\100chello.at
948 +                                       wolfgang.laun\100thalesgroup.com
949 +                                       wolfgang.laun\100gmail.com
950 wolfsage\100gmail.com                   mhorsfall\100darmstadtium.(none)
951 yath\100yath.de                         yath-perlbug\100yath.de
952