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