Commit | Line | Data |
---|---|---|
5649b9c9 NC |
1 | #!/usr/bin/perl -w |
2 | use strict; | |
3 | use Text::Wrap; | |
4 | $Text::Wrap::columns = 80; | |
00229b97 | 5 | my ($committer, $patch, $log,$date); |
5649b9c9 NC |
6 | use Getopt::Long; |
7 | ||
2b0ba25f | 8 | my ($rank, $percentage, $cumulative, $reverse, $ta, @authors, %authors, |
00229b97 JV |
9 | %untraced, %patchers, %committers, %real_names); |
10 | my $result = GetOptions ("rank" => \$rank, # rank authors | |
11 | "thanks-applied" => \$ta, # ranks committers | |
12 | "acknowledged=s" => \@authors , # authors files | |
13 | "percentage" => \$percentage, # show as %age | |
14 | "cumulative" => \$cumulative, | |
15 | "reverse" => \$reverse, | |
16 | ); | |
5649b9c9 | 17 | |
ff4d71b5 | 18 | if (!$result or (($rank||0) + ($ta||0) + (@authors ? 1 : 0) != 1) or !@ARGV) { |
5649b9c9 NC |
19 | die <<"EOS"; |
20 | $0 --rank Changelogs # rank authors by patches | |
21 | $0 --acknowledged <authors file> Changelogs # Display unacknowledged authors | |
00229b97 | 22 | $0 --thanks-applied Changelogs # ranks committers |
15b8f96d | 23 | $0 --percentage ... # show rankings as percentages |
2b0ba25f NC |
24 | $0 --cumulative ... # show rankings cumulatively |
25 | $0 --reverse ... # show rankings in reverse | |
5649b9c9 NC |
26 | Specify stdin as - if needs be. Remember that option names can be abbreviated. |
27 | EOS | |
28 | } | |
29 | ||
8513229b A |
30 | |
31 | my $prev = ""; | |
32 | my %map; | |
33 | ||
34 | while (<DATA>) { | |
35 | chomp; | |
36 | s/\\100/\@/g; | |
37 | $_ = lc; | |
38 | if (my ($correct, $alias) = /^\s*([^#\s]\S*)\s+(.*\S)/) { | |
8b80c7bd | 39 | $correct =~ s/^\\043/#/; |
8513229b A |
40 | if ($correct eq '+') {$correct = $prev} else {$prev = $correct} |
41 | $map {$alias} = $correct; | |
42 | } | |
43 | } | |
44 | ||
45 | # | |
46 | # Email addresses for we do not have names. | |
47 | # | |
48 | $map {$_} = "?" for | |
4bc69901 | 49 | "agrow\100thegotonerd.com", |
8513229b A |
50 | "alexander_bluhm\100genua.de", |
51 | "alexander_gernler\100genua.de", | |
52 | "ammon\100rhythm.com", | |
8b80c7bd | 53 | "andrew\100sundale.net", |
8513229b A |
54 | "bah\100longitude.com", |
55 | "bbucklan\100jpl-devvax.jpl.nasa.gov", | |
a94e4597 | 56 | "ben\100linuxgazette.net", |
8513229b | 57 | "bilbo\100ua.fm", |
8b80c7bd | 58 | "blino\100mandriva.com", |
8513229b A |
59 | "bob\100starlabs.net", |
60 | "bonefish\100cs.tu-berlin.de", | |
61 | "bstrand\100switchmanagement.com", | |
62 | "cygwin\100cygwin.com", | |
63 | "david\100dhaller.de", | |
64 | "dformosa\100dformosa.zeta.org.au", | |
65 | "dgay\100acm.org", | |
66 | "erik\100cs.uni-jena.de", | |
67 | "glasser\100tang-eleven-seventy-nine.mit.edu", | |
68 | "gml4410\100ggr.co.uk", | |
69 | "grommel\100sears.com", | |
8b80c7bd | 70 | "ilmari\100vesla.ilmari.org", |
8513229b A |
71 | "ilya\100juil.nonet", |
72 | "info\100lingo.kiev.ua", | |
73 | "jms\100mathras.comcast.net", | |
a94e4597 | 74 | "johnh\100isi.edu", |
8513229b A |
75 | "kan\100dcit.cz", |
76 | "kaminsky\100math.huji.ac.il", | |
77 | "knew-p5p\100pimb.org", | |
78 | "kvr\100centrum.cz", | |
a94e4597 | 79 | "lemkemch\100t-online.de", |
8513229b A |
80 | "mauzo\100csv.warwick.ac.uk", |
81 | "merijnb\100ms.com", | |
82 | "mlelstv\100serpens.de", | |
83 | "p.boven\100sara.nl", | |
84 | "padre\100elte.hu", | |
8b80c7bd | 85 | "pancho\100pancho.name", |
8513229b A |
86 | "perlbug\100veggiechinese.net", |
87 | "pm\100capmon.dk", | |
88 | "premchai21\100yahoo.com", | |
89 | "pxm\100nubz.org", | |
90 | "raf\100tradingpost.com.au", | |
91 | "scott\100perlcode.org", | |
92 | "smoketst\100hp46t243.cup.hp.com", | |
93 | "yath-perlbug\100yath.de", | |
94 | ; | |
95 | ||
96 | # | |
97 | # Email addresses for people that don't have an email address in AUTHORS | |
98 | # Presumably deliberately? | |
99 | # | |
100 | ||
101 | $map {$_} = '!' for | |
cf3e690a A |
102 | # Nick Ing-Simmons has passed away (2006-09-25). |
103 | "nick\100ing-simmons.net", | |
104 | "nik\100tiuk.ti.com", | |
105 | "nick.ing-simmons\100elixent.com", | |
00229b97 | 106 | "nick\100ni-s.u-net.com", |
cf3e690a A |
107 | |
108 | # Iain Truskett has passed away (2003-12-29). | |
8513229b A |
109 | "perl\100dellah.anu.edu.au", |
110 | "spoon\100dellah.org", | |
111 | "spoon\100cpan.org", | |
112 | ||
113 | # Ton Hospel | |
114 | "me-02\100ton.iguana.be", | |
115 | "perl-5.8.0\100ton.iguana.be", | |
116 | "perl5-porters\100ton.iguana.be", | |
117 | ||
118 | # Beau Cox | |
119 | "beau\100beaucox.com", | |
120 | ||
121 | # Randy W. Sims | |
122 | "ml-perl\100thepierianspring.org", | |
123 | ||
00229b97 JV |
124 | # perl internal addresses |
125 | # | |
126 | "perl5-porters\100africa.nicoh.com", | |
127 | "perlbug\100perl.org", | |
128 | "perl5-porters.nicoh.com" | |
8513229b A |
129 | ; |
130 | ||
a7ad7795 | 131 | |
5649b9c9 NC |
132 | if (@authors) { |
133 | my %raw; | |
134 | foreach my $filename (@authors) { | |
135 | open FH, "<$filename" or die "Can't open $filename: $!"; | |
136 | while (<FH>) { | |
137 | next if /^\#/; | |
138 | next if /^-- /; | |
139 | if (/<([^>]+)>/) { | |
00229b97 JV |
140 | # Easy line. |
141 | $raw{$1}++; | |
5649b9c9 | 142 | } elsif (/^([-A-Za-z0-9 .\'À-ÖØöø-ÿ]+)[\t\n]/) { |
00229b97 JV |
143 | # Name only |
144 | $untraced{$1}++; | |
5649b9c9 | 145 | } else { |
00229b97 JV |
146 | chomp; |
147 | warn "Can't parse line '$_'"; | |
5649b9c9 NC |
148 | } |
149 | } | |
150 | } | |
151 | foreach (keys %raw) { | |
152 | print "E-mail $_ occurs $raw{$_} times\n" if $raw{$_} > 1; | |
153 | $_ = lc $_; | |
154 | $authors{$map{$_} || $_}++; | |
155 | } | |
2b90724c NC |
156 | ++$authors{'!'}; |
157 | ++$authors{'?'}; | |
5649b9c9 NC |
158 | } |
159 | ||
00229b97 JV |
160 | my @lines = split(/^commit\s*/sm,join('',<>)); |
161 | for ( @lines) { | |
162 | next if m/^$/; | |
163 | next if m/^(\S*?)^Merge:/ism; # skip merge commits | |
164 | if (m/^(.*?)^Author:\s*(.*?)^Date:\s*(.*?)^(.*)$/gism) { | |
5649b9c9 | 165 | # new patch |
00229b97 JV |
166 | ($patch, $committer, $date,$log) = ($1,$2,$3,$4); |
167 | chomp($committer); | |
168 | unless ($committer) { die $_} | |
5649b9c9 | 169 | &process ($committer, $patch, $log); |
00229b97 | 170 | } else { die "XXX $_ did not match";} |
5649b9c9 NC |
171 | } |
172 | ||
5649b9c9 NC |
173 | |
174 | if ($rank) { | |
ff4d71b5 NC |
175 | &display_ordered(\%patchers); |
176 | } elsif ($ta) { | |
177 | &display_ordered(\%committers); | |
5649b9c9 NC |
178 | } elsif (%authors) { |
179 | my %missing; | |
180 | foreach (sort keys %patchers) { | |
181 | next if $authors{$_}; | |
182 | # Sort by number of patches, then name. | |
183 | $missing{$patchers{$_}}->{$_}++; | |
184 | } | |
185 | foreach my $patches (sort {$b <=> $a} keys %missing) { | |
00229b97 | 186 | print "\n\n=head1 $patches patch(es)\n\n"; |
5649b9c9 | 187 | foreach my $author (sort keys %{$missing{$patches}}) { |
00229b97 JV |
188 | my $xauthor = $author; |
189 | $xauthor =~ s/@/\\100/g; # xxx temp hack | |
190 | print "".($real_names{$author}||$author) ."\t\t\t<" . $xauthor.">\n" ; | |
5649b9c9 NC |
191 | } |
192 | } | |
193 | } | |
194 | ||
195 | sub display_ordered { | |
ff4d71b5 | 196 | my $what = shift; |
5649b9c9 | 197 | my @sorted; |
15b8f96d | 198 | my $total; |
ff4d71b5 | 199 | while (my ($name, $count) = each %$what) { |
5649b9c9 | 200 | push @{$sorted[$count]}, $name; |
15b8f96d | 201 | $total += $count; |
5649b9c9 NC |
202 | } |
203 | ||
204 | my $i = @sorted; | |
2b0ba25f NC |
205 | return unless @sorted; |
206 | my $sum = 0; | |
207 | foreach my $i ($reverse ? 0 .. $#sorted : reverse 0 .. $#sorted) { | |
5649b9c9 | 208 | next unless $sorted[$i]; |
15b8f96d | 209 | my $prefix; |
2b0ba25f NC |
210 | $sum += $i * @{$sorted[$i]}; |
211 | # Value to display is either this one, or the cumulative sum. | |
212 | my $value = $cumulative ? $sum : $i; | |
15b8f96d | 213 | if ($percentage) { |
00229b97 | 214 | $prefix = sprintf "%6.2f:\t", 100 * $value / $total; |
15b8f96d | 215 | } else { |
00229b97 | 216 | $prefix = "$value:\t"; |
15b8f96d NC |
217 | } |
218 | print wrap ($prefix, "\t", join (" ", sort @{$sorted[$i]}), "\n"); | |
5649b9c9 NC |
219 | } |
220 | } | |
221 | ||
222 | sub process { | |
223 | my ($committer, $patch, $log) = @_; | |
224 | return unless $committer; | |
2b90724c | 225 | my @authors = $log =~ /From:\s+.*?([^"\@ \t\n<>]+\@[^"\@ \t\n<>]+)/gm; |
5649b9c9 NC |
226 | |
227 | if (@authors) { | |
00229b97 JV |
228 | foreach my $addr (@authors) { |
229 | ||
230 | $patchers{_raw_address($addr)}++; | |
5649b9c9 NC |
231 | } |
232 | # print "$patch: @authors\n"; | |
00229b97 | 233 | $committers{_raw_address($committer)}++; |
5649b9c9 | 234 | } else { |
00229b97 | 235 | # print "$patch: $committer\n"; |
5649b9c9 NC |
236 | # Not entirely fair as this means that the maint pumpking scores for |
237 | # everything intergrated that wasn't a third party patch in blead | |
00229b97 | 238 | $patchers{_raw_address($committer)}++; |
5649b9c9 NC |
239 | } |
240 | } | |
241 | ||
00229b97 JV |
242 | sub _raw_address { |
243 | my $addr = shift; | |
244 | my $real_name; | |
245 | if ($addr =~ /<.*>/) { | |
246 | $addr =~ s/^\s*(.*)\s*<(.*?)>.*$/$2/ ; | |
247 | $real_name = $1; | |
248 | } | |
249 | $addr = lc $addr; | |
250 | $addr = $map{$addr} || $addr; | |
251 | ||
252 | if ($real_name) { $real_names{$addr} = $real_name}; | |
253 | return $addr; | |
254 | } | |
255 | ||
5649b9c9 | 256 | |
8513229b A |
257 | __DATA__ |
258 | ||
259 | # | |
260 | # List of mappings. First entry the "correct" email address, as appears | |
261 | # in the AUTHORS file. Second is any "alias" mapped to it. | |
262 | # | |
263 | # If the "correct" email address is a '+', the entry above is reused; | |
264 | # this for addresses with more than one alias. | |
265 | # | |
266 | # Note that all entries are in lowercase. Further, no '@' signs should | |
267 | # appear; use \100 instead. | |
268 | # | |
269 | # | |
270 | # Committers. | |
271 | # | |
272 | adi enache\100rdslink.ro | |
273 | alanbur alan.burlison\100sun.com | |
274 | + alan.burlison\100uk.sun.com | |
00229b97 JV |
275 | + aburlison\100cix.compulink.co.uk |
276 | ams ams\100toroid.org | |
277 | + ams\100wiw.org | |
8513229b | 278 | chip chip\100pobox.com |
00229b97 JV |
279 | + chip\100perl.com |
280 | + salzench\100nielsenmedia.com | |
281 | + chip\100atlantic.net | |
282 | + chip\100rio.atlantic.net | |
283 | + salzench\100dun.nielsen.com | |
8513229b A |
284 | craigb craig.berry\100psinetcs.com |
285 | + craig.berry\100metamorgs.com | |
286 | + craig.berry\100signaltreesolutions.com | |
287 | + craigberry\100mac.com | |
a94e4597 | 288 | + craig.a.berry\100gmail.com |
8513229b A |
289 | davem davem\100fdgroup.com |
290 | + davem\100iabyn.nospamdeletethisbit.com | |
a94e4597 | 291 | + davem\100iabyn.com |
8513229b A |
292 | + davem\100fdgroup.co.uk |
293 | + davem\100fdisolutions.com | |
294 | + davem\100iabyn.com | |
295 | demerphq demerphq\100gmail.com | |
296 | + yves.orton\100de.mci.com | |
297 | + yves.orton\100mciworldcom.de | |
00229b97 JV |
298 | + demerphq\100dromedary.booking.com |
299 | + demerphq\100gemini.(none) | |
300 | + demerphq\100camel.booking.com | |
301 | + demerphq\100hotmail.com | |
8513229b | 302 | doughera doughera\100lafayette.edu |
00229b97 JV |
303 | + doughera\100lafcol.lafayette.edu |
304 | + doughera\100fractal.phys.lafayette.edu | |
305 | + doughera.lafayette.edu | |
306 | + doughera\100newton.phys.lafayette.edu | |
307 | ||
8513229b | 308 | gbarr gbarr\100pobox.com |
00229b97 JV |
309 | + bodg\100tiuk.ti.com |
310 | + gbarr\100ti.com | |
311 | + graham.barr\100tiuk.ti.com | |
8513229b A |
312 | gisle gisle\100activestate.com |
313 | + gisle\100aas.no | |
00229b97 JV |
314 | + aas\100aas.no |
315 | + aas\100bergen.sn.no | |
8513229b A |
316 | gsar gsar\100activestate.com |
317 | + gsar\100cpan.org | |
00229b97 | 318 | + gsar\100engin.umich.edu |
8513229b A |
319 | hv hv\100crypt.compulink.co.uk |
320 | + hv\100crypt.org | |
00229b97 | 321 | + hv\100iii.co.uk |
8513229b A |
322 | jhi jhi\100iki.fi |
323 | + jhietaniemi\100gmail.com | |
324 | + jhi\100kosh.hut.fi | |
00229b97 | 325 | + jhi\100alpha.hut.fi |
8513229b A |
326 | + jhi\100cc.hut.fi |
327 | + jarkko.hietaniemi\100nokia.com | |
00229b97 JV |
328 | + jarkko.hietaniemi\100cc.hut.fi |
329 | jesse jesse\100bestpractical.com | |
330 | + jesse\100fsck.com | |
331 | + jesse\100perl.org | |
8513229b A |
332 | merijn h.m.brand\100xs4all.nl |
333 | + h.m.brand\100hccnet.nl | |
334 | + merijn\100l1.procura.nl | |
335 | mhx mhx-perl\100gmx.net | |
336 | nicholas nick\100unfortu.net | |
337 | + nick\100ccl4.org | |
338 | + nick\100talking.bollo.cx | |
339 | + nick\100plum.flirble.org | |
340 | + nick\100babyhippo.co.uk | |
341 | + nick\100bagpuss.unfortu.net | |
8513229b A |
342 | pudge pudge\100pobox.com |
343 | rgs rgarciasuarez\100free.fr | |
344 | + rgarciasuarez\100mandrakesoft.com | |
345 | + rgarciasuarez\100mandriva.com | |
346 | + rgarciasuarez\100gmail.com | |
347 | + raphel.garcia-suarez\100hexaflux.com | |
348 | sky sky\100nanisky.com | |
349 | + artur\100contiller.se | |
350 | + arthur\100contiller.se | |
b692cd7a SH |
351 | steveh stevehay\100planit.com |
352 | + steve.hay\100uk.radan.com | |
8513229b A |
353 | stevep steve\100fisharerojo.org |
354 | + steve.peters\100gmail.com | |
00229b97 JV |
355 | timb Tim.Bunce\100pobox.com |
356 | + tim.bunce\100ig.co.uk | |
357 | ||
8513229b A |
358 | |
359 | # | |
360 | # Mere mortals. | |
361 | # | |
00229b97 JV |
362 | \043####\100juerd.nl juerd\100cpan.org |
363 | + juerd\100convolution.nl | |
8513229b A |
364 | 7k8lrvf02\100sneakemail.com kjx9zthh3001\100sneakemail.com |
365 | + dtr8sin02\100sneakemail.com | |
366 | + rt8363b02\100sneakemail.com | |
367 | + o6hhmk002\100sneakemail.com | |
a94e4597 S |
368 | + smueller\100cpan.org |
369 | + l2ot9pa02\100sneakemail.com | |
370 | + wyp3rlx02\100sneakemail.com | |
00229b97 | 371 | + 0mgwtfbbq\100sneakemail.com |
8513229b | 372 | |
00229b97 | 373 | a.r.ferreira\100gmail.com aferreira\100shopzilla.com |
8513229b | 374 | abe\100ztreet.demon.nl abeltje\100cpan.org |
00229b97 | 375 | abela\100hsc.fr abela\100geneanet.org |
8513229b A |
376 | abigail\100abigail.be abigail\100foad.org |
377 | + abigail\100abigail.nl | |
00229b97 JV |
378 | + abigail\100fnx.com |
379 | ach\100mpe.mpg.de ach\100rosat.mpe-garching.mpg.de | |
8513229b A |
380 | ajohnson\100nvidia.com ajohnson\100wischip.com |
381 | alexm\100netli.com alexm\100w-m.ru | |
a94e4597 | 382 | alex-p5p\100earth.li alex\100rcon.rog |
00229b97 | 383 | alexmv\100mit.edu alex\100chmrr.net |
8513229b | 384 | alian\100cpan.org alian\100alianwebserver.com |
00229b97 JV |
385 | allen\100grumman.com allen\100gateway.grumman.com |
386 | allen\100huarp.harvard.edu nort\100bottesini.harvard.edu | |
8513229b | 387 | allens\100cpan.org easmith\100beatrice.rutgers.edu |
00229b97 JV |
388 | andreas.koenig\100anima.de andreas.koenig.gmwojprw\100franz.ak.mind.de |
389 | + andreas.koenig.7os6vvqr\100franz.ak.mind.de | |
8513229b | 390 | + a.koenig\100mind.de |
00229b97 JV |
391 | + k\100anna.in-berlin.de |
392 | + andk\100cpan.org | |
393 | + koenig\100anna.mind.de | |
394 | + k\100anna.mind.de | |
8513229b A |
395 | anno4000\100lublin.zrz.tu-berlin.de anno4000\100mailbox.tu-berlin.de |
396 | + siegel\100zrz.tu-berlin.de | |
397 | ash\100cpan.org ash_cpan\100firemirror.com | |
398 | avarab\100gmail.com avar\100cpan.org | |
399 | ||
00229b97 JV |
400 | bailey\100newman.upenn.edu bailey\100hmivax.humgen.upenn.edu |
401 | + bailey\100genetics.upenn.edu | |
8513229b | 402 | bah\100ecnvantage.com bholzman\100longitude.com |
00229b97 | 403 | bcarter\100gumdrop.flyinganvil.org q.eibcartereio.=~m-b.{6}-cgimosx\100gumdrop.flyinganvil.org |
8513229b A |
404 | ben_tilly\100operamail.com btilly\100gmail.com |
405 | ||
406 | chromatic\100wgz.org chromatic\100rmci.net | |
407 | clkao\100clkao.org clkao\100bestpractical.com | |
00229b97 | 408 | corion\100corion.net corion\100cpan.org |
8513229b A |
409 | cp\100onsitetech.com publiustemp-p5p\100yahoo.com |
410 | + publiustemp-p5p3\100yahoo.com | |
411 | cpan\100audreyt.org autrijus\100egb.elixus.org | |
412 | + autrijus\100geb.elixus.org | |
413 | + autrijus\100gmail.com | |
414 | + autrijus\100ossf.iis.sinica.edu.tw | |
415 | + autrijus\100autrijus.org | |
416 | + audreyt\100audreyt.org | |
417 | ||
418 | damian\100cs.monash.edu.au damian\100conway.org | |
00229b97 JV |
419 | dan\100sidhe.org sugalsd\100lbcc.cc.or.us |
420 | + sugalskd\100osshe.edu | |
8513229b | 421 | david.dyck\100fluke.com dcd\100tc.fluke.com |
8513229b | 422 | domo\100computer.org shouldbedomo\100mac.com |
00229b97 JV |
423 | + domo\100slipper.ip.lu |
424 | dougm\100covalent.net dougm\100opengroup.org | |
425 | + dougm\100osf.org | |
8513229b | 426 | |
00229b97 | 427 | egf7\100columbia.edu efifer\100sanwaint.com |
8513229b A |
428 | epeschko\100den-mdev1 esp5\100pge.com |
429 | ||
430 | fugazi\100zyx.net larrysh\100cpan.org | |
431 | ||
f0cb2104 NC |
432 | jns\100integration-house.com jns\100gellyfish.com |
433 | + gellyfish\100gellyfish.com | |
00229b97 JV |
434 | |
435 | gnat\100frii.com gnat\100prometheus.frii.com | |
8513229b A |
436 | gp\100familiehaase.de gerrit\100familiehaase.de |
437 | grazz\100pobox.com grazz\100nyc.rr.com | |
438 | ||
00229b97 JV |
439 | hansmu\100xs4all.nl hansm\100icgroup.nl |
440 | + hansm\100icgned.nl | |
441 | + hans\100icgned.nl | |
442 | + hansm\100euronet.nl | |
8513229b A |
443 | hio\100ymir.co.jp hio\100hio.jp |
444 | ||
445 | japhy\100pobox.com japhy\100pobox.org | |
446 | + japhy\100perlmonk.org | |
447 | + japhy\100cpan.org | |
448 | jari.aalto\100poboxes.com jari.aalto\100cante.net | |
449 | jcromie\100divsol.com jcromie\100cpan.org | |
450 | + jim.cromie\100gmail.com | |
451 | jdhedden\100cpan.org jerry\100hedden.us | |
452 | + jdhedden\1001979.usna.com | |
453 | + jdhedden\100gmail.com | |
454 | + jdhedden\100yahoo.com | |
455 | jfriedl\100yahoo.com jfriedl\100yahoo-inc.com | |
456 | jjore\100cpan.org twists\100gmail.com | |
8513229b A |
457 | |
458 | kane\100dwim.org kane\100xs4all.net | |
459 | + kane\100cpan.org | |
460 | + kane\100xs4all.nl | |
461 | + jos\100dwim.org | |
462 | + jib\100ripe.net | |
00229b97 | 463 | ken\100mathforum.org kenahoo\100gmail.com |
8513229b A |
464 | kroepke\100dolphin-services.de kay\100dolphin-services.de |
465 | kstar\100wolfetech.com kstar\100cpan.org | |
00229b97 JV |
466 | + kurt_starsinic\100ml.com |
467 | larry\100wall.org lwall\100jpl-devvax.jpl.nasa.gov | |
468 | + lwall\100netlabs.com | |
469 | + larry\100netlabs.com | |
470 | + lwall\100sems.com | |
471 | + lwall\100scalpel.netlabs.com | |
472 | lewart\100uiuc.edu lewart\100vadds.cvm.uiuc.edu | |
473 | + d-lewart\100uiuc.edu | |
474 | ||
475 | marcel\100codewerk.com gr\100univie.ac.at | |
8513229b A |
476 | mats\100sm6sxl.net mats\100sm5sxl.net |
477 | mbarbon\100dsi.unive.it mattia.barbon\100libero.it | |
478 | mcmahon\100ibiblio.org mcmahon\100metalab.unc.edu | |
479 | merijnb\100iloquent.nl merijnb\100iloquent.com | |
480 | mgjv\100comdyn.com.au mgjv\100tradingpost.com.au | |
481 | michael.schroeder\100informatik.uni-erlangen.de mls\100suse.de | |
482 | mike\100stok.co.uk mike\100exegenix.com | |
483 | mjtg\100cam.ac.uk mjtg\100cus.cam.ac.uk | |
484 | ||
485 | nospam-abuse\100bloodgate.com tels\100bloodgate.com | |
486 | + perl_dummy\100bloodgate.com | |
00229b97 JV |
487 | |
488 | ignasi.roca\100fujitsu-siemens.com ignasi.roca\100fujitsu.siemens.es | |
a94e4597 S |
489 | ilya\100math.berkeley.edu ilya\100math.ohio-state.edu |
490 | + nospam-abuse\100ilyaz.org | |
8513229b | 491 | |
00229b97 JV |
492 | okamoto\100corp.hp.com okamoto\100hpcc123.corp.hp.com |
493 | ||
494 | ||
8513229b A |
495 | p5-authors\100crystalflame.net perl\100crystalflame.net |
496 | + rs\100crystalflame.net | |
00229b97 JV |
497 | + coral\100eekeek.org |
498 | + coral\100moonlight.crystalflame.net | |
499 | + rs\100oregonnet.com | |
8513229b A |
500 | paul.green\100stratus.com paul_greenvos\100vos.stratus.com |
501 | paul.marquess\100btinternet.com paul_marquess\100yahoo.co.uk | |
502 | + paul.marquess\100ntlworld.com | |
503 | + paul.marquess\100openwave.com | |
00229b97 JV |
504 | + pmarquess\100bfsec.bt.co.uk |
505 | + pmqs\100cpan.org | |
8513229b | 506 | pcg\100goof.com schmorp\100schmorp.de |
00229b97 JV |
507 | perl\100cadop.com cdp\100hpescdp.fc.hp.com |
508 | perl\100profvince.com vince\100profvince.com | |
509 | perl-rt\100wizbit.be p5p\100perl.wizbit.be | |
8513229b A |
510 | # Maybe we should special case this to get real names out? |
511 | perlbug\100perl.org perlbug-followup\100perl.org | |
512 | + bugs-perl5\100bugs6.perl.org | |
00229b97 | 513 | pfeifer\100wait.de pfeifer\100charly.informatik.uni-dortmund.de |
8513229b A |
514 | phil\100perkpartners.com phil\100finchcomputer.com |
515 | pimlott\100idiomtech.com andrew\100pimlott.net | |
516 | pne\100cpan.org philip.newton\100gmx.net | |
517 | + philip.newton\100datenrevision.de | |
518 | + pnewton\100gmx.de | |
00229b97 JV |
519 | pprymmer\100factset.com pvhp\100forte.com |
520 | public\100khwilliamson.com khw\100karl.(none) | |
8513229b A |
521 | |
522 | radu\100netsoft.ro rgreab\100fx.ro | |
00229b97 | 523 | raphael.manfredi\100pobox.com raphael_manfredi\100grenoble.hp.com |
8513229b A |
524 | richard.foley\100ubsw.com richard.foley\100t-online.de |
525 | + richard.foley\100ubs.com | |
526 | + richard.foley\100rfi.net | |
527 | rick\100consumercontact.com rick\100bort.ca | |
528 | + rick.delaney\100rogers.com | |
a94e4597 | 529 | + rick\100bort.ca |
4bc69901 | 530 | rjbs\100cpan.org rjbs-perl-p5p\100lists.manxome.org |
00229b97 | 531 | + perl.p5p\100rjbs.manxome.org |
8513229b A |
532 | rjk\100linguist.dartmouth.edu rjk\100linguist.thayer.dartmouth.edu |
533 | + rjk-perl-p5p\100tamias.net | |
00229b97 | 534 | rjray\100redhat.com rjray\100uswest.com |
8513229b | 535 | rmgiroux\100acm.org rmgiroux\100hotmail.com |
a94e4597 S |
536 | rmbarker\100cpan.org rmb1\100cise.npl.co.uk |
537 | + robin.barker\100npl.co.uk | |
00229b97 JV |
538 | + rmb\100cise.npl.co.uk |
539 | robertmay\100cpan.org rob\100themayfamily.me.uk | |
540 | robin\100cpan.org robin\100kitsite.com | |
541 | roderick\100argon.org roderick\100gate.net | |
8513229b A |
542 | rootbeer\100teleport.com rootbeer\100redcat.com |
543 | ||
544 | schubiger\100cpan.org steven\100accognoscere.org | |
545 | + sts\100accognoscere.org | |
00229b97 | 546 | + schubiger\100gmail.com |
8513229b | 547 | schwern\100pobox.com schwern\100gmail.com |
8ed05479 MS |
548 | + schwern\100athens.arena-i.com |
549 | + schwern\100blackrider.aocn.com | |
550 | + schwern\100ool-18b93024.dyn.optonline.net | |
8513229b A |
551 | sebastien\100aperghis.net maddingue\100free.fr |
552 | + saper\100cpan.org | |
e853cbad | 553 | shlomif\100vipe.technion.ac.il shlomif\100iglu.org.il |
8513229b A |
554 | simon\100simon-cozens.org simon\100pembro4.pmb.ox.ac.uk |
555 | + simon\100brecon.co.uk | |
556 | + simon\100othersideofthe.earth.li | |
557 | + simon\100cozens.net | |
558 | + simon\100netthink.co.uk | |
559 | slaven\100rezic.de slaven.rezic\100berlin.de | |
a94e4597 | 560 | + srezic\100iconmobile.com |
00229b97 | 561 | + srezic\100cpan.org |
8513229b A |
562 | smcc\100mit.edu smcc\100ocf.berkeley.edu |
563 | + smcc\100csua.berkeley.edu | |
00229b97 JV |
564 | + alias\100mcs.com |
565 | + smccam@uclink4.berkeley.edu | |
8513229b A |
566 | spider\100orb.nashua.nh.us spider\100web.zk3.dec.com |
567 | + spider\100leggy.zk3.dec.com | |
568 | + spider-perl\100orb.nashua.nh.us | |
569 | + spider\100peano.zk3.dec.com | |
00229b97 | 570 | spp\100ds.net spp\100psa.pencom.com |
8513229b A |
571 | stef\100mongueurs.net stef\100payrard.net |
572 | + s.payrard\100wanadoo.fr | |
573 | ||
574 | tassilo.parseval\100post.rwth-aachen.de tassilo.von.parseval\100rwth-aachen.de | |
00229b97 JV |
575 | tchrist\100perl.com tchrist\100mox.perl.com |
576 | + tchrist\100jhereg.perl.com | |
577 | thomas.dorner\100start.de tdorner\100amadeus.net | |
578 | tjenness\100cpan.org t.jenness\100jach.hawaii.edu | |
579 | + timj\100jach.hawaii.edu | |
580 | tom.horsley\100mail.ccur.com tom.horsley\100ccur.com | |
581 | + tom\100amber.ssd.hcsc.com | |
582 | ||
583 | vkonovalov\100lucent.com vkonovalov\100peterstar.ru | |
584 | + konovalo\100mail.wplus.net | |
585 | + vadim\100vkonovalov.ru | |
586 | + vkonovalov\100spb.lucent.com | |
587 | + vkonovalov\100alcatel-lucent.com | |
588 | ||
589 | whatever\100davidnicol.com davidnicol\100gmail.com | |
590 | wolfgang.laun\100alcatel.at wolfgang.laun\100chello.at | |
591 | + wolfgang.laun\100thalesgroup.com | |
592 | + wolfgang.laun\100gmail.com |