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