X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2FcheckAUTHORS.pl;h=6b22fc6de2de5711e47047dc65d52f741bf73bfb;hb=03c4920e421b61a21ff9ca04a3990ac8c98ad7b7;hp=fe6350cbdfd5243f151858f2463b43bf6a4177d1;hpb=0fbf934d321fa3e4d7b5183ff01c9b8539e5bb0f;p=p5sagit%2Fp5-mst-13.2.git diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index fe6350c..6b22fc6 100644 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -2,95 +2,116 @@ use strict; use Text::Wrap; $Text::Wrap::columns = 80; -my ($committer, $patch, $log); +my ($committer, $patch, $log,$date); use Getopt::Long; -my ($rank, @authors, %authors, %untraced, %patchers); -my $result = GetOptions ("rank" => \$rank, # rank authors - "acknowledged=s" => \@authors); # authors files +my ($rank, $percentage, $cumulative, $reverse, $ta, @authors, %authors, + %untraced, %patchers, %committers, %real_names); +my $result = GetOptions ("rank" => \$rank, # rank authors + "thanks-applied" => \$ta, # ranks committers + "acknowledged=s" => \@authors , # authors files + "percentage" => \$percentage, # show as %age + "cumulative" => \$cumulative, + "reverse" => \$reverse, + ); -if (!$result or !($rank xor @authors) or !@ARGV) { +if (!$result or (($rank||0) + ($ta||0) + (@authors ? 1 : 0) != 1) or !@ARGV) { die <<"EOS"; $0 --rank Changelogs # rank authors by patches $0 --acknowledged Changelogs # Display unacknowledged authors +$0 --thanks-applied Changelogs # ranks committers +$0 --percentage ... # show rankings as percentages +$0 --cumulative ... # show rankings cumulatively +$0 --reverse ... # show rankings in reverse Specify stdin as - if needs be. Remember that option names can be abbreviated. EOS } -my %map = reverse ( - # "Correct" => "Alias" - adi => "enache\100rdslink.ro", - alanbur => "alan.burlison\100sun.com", - ams => "ams\100wiw.org", - chip => "chip\100pobox.com", - davem => "davem\100fdgroup.com", - doughera => " doughera\100lafayette.edu", - gbarr => "gbarr\100pobox.com", - gsar => "gsar\100activestate.com", - hv => "hv\100crypt.compulink.co.uk", - jhi => "jhi\100iki.fi", - merijn => "h.m.brand\100xs4all.nl", - mhx => "mhx-perl\100gmx.net", - nicholas => "nick\100unfortu.net", - nick => "nick\100ing-simmons.net", - pudge => "pudge\100pobox.com", - rgs => "rgarciasuarez\100free.fr", - sky => "sky\100nanisky.com", - steveh => "steve.hay\100uk.radan.com", - stevep => "steve\100fisharerojo.org", - "abigail\100abigail.nl"=> "abigail\100foad.org", - "chromatic\100wgz.org" => "chromatic\100rmci.net", - "slaven\100rezic.de" => "slaven.rezic\100berlin.de", - "mjtg\100cam.ac.uk" => "mjtg\100cus.cam.ac.uk", - "robin.barker\100npl.co.uk" => "rmb1\100cise.npl.co.uk", - "paul.marquess\100btinternet.com" - => "paul_marquess\100yahoo.co.uk", - "wolfgang.laun\100chello.at" => - "wolfgang.laun\100alcatel.at", - "t.jenness\100jach.hawaii.edu" => "timj\100jach.hawaii.edu", - "abe\100ztreet.demon.nl" => "abeltje\100cpan.org", - "perl_dummy\100bloodgate.com" => "tels\100bloodgate.com", - "jfriedl\100yahoo.com" => "jfriedl\100yahoo-inc.com", - "japhy\100pobox.com" => "japhy\100pobox.org", - "gellyfish\100gellyfish.com" => "jns\100gellyfish.com", - ); - -# Make sure these are all lower case. - -$map{"alan.burlison\100uk.sun.com"} = "alanbur"; -$map{"artur\100contiller.se"} = $map{"arthur\100contiller.se"} = "sky"; -$map{"autrijus\100egb.elixus.org"} = $map{"autrijus\100geb.elixus.org"} - = "autrijus\100autrijus.org"; -$map{"craig.berry\100psinetcs.com"} = $map{"craig.berry\100metamorgs.com"} - = $map{"craig.berry\100signaltreesolutions.com"} - = $map{"craigberry\100mac.com"} = "craigb"; -$map{"davem\100fdgroup.co.uk"} = "davem"; -$map{"ilya\100math.ohio-state.edu"} = $map{"ilya\100math.berkeley.edu"} - = $map{"ilya\100math.berkeley.edu"} = "nospam-abuse\100ilyaz.org"; -$map{"jhi\100kosh.hut.fi"} = $map{"jhi\100cc.hut.fi"} = "jhi"; -$map{"nick\100ccl4.org"} = $map{"nick\100talking.bollo.cx"} - = $map{"nick\100plum.flirble.org"} = $map{"nick\100babyhippo.co.uk"} - = $map{"nick\100bagpuss.unfortu.net"} = "nicholas"; -$map{"philip.newton\100gmx.net"} = $map{"philip.newton\100datenrevision.de"} - = "pnewton\100gmx.de", -$map{"rgarciasuarez\100mandrakesoft.com"} - = $map{"rgarciasuarez\100mandriva.com"} - = $map{"raphel.garcia-suarez\100hexaflux.com"} = "rgs"; -$map{"simon\100pembro4.pmb.ox.ac.uk"} = $map{"simon\100brecon.co.uk"} - = $map{"simon\100othersideofthe.earth.li"} = $map{"simon\100cozens.net"} - = $map{"simon\100netthink.co.uk"} = "simon\100simon-cozens.org"; -$map{"spider\100web.zk3.dec.com"} = $map{"spider\100leggy.zk3.dec.com"} - = $map{"spider-perl\100orb.nashua.nh.us"} - = $map{"spider\100peano.zk3.dec.com"} - = "spider\100orb.nashua.nh.us"; -$map{"nik\100tiuk.ti.com"} = "nick"; - -$map{"a.koenig\100mind.de"} = "andreas.koenig\100anima.de"; -$map{"japhy\100perlmonk.org"} = $map{"japhy\100cpan.org"} - = "japhy\100pobox.com"; -$map{"rmbarker\100cpan.org"} = "robin.barker\100npl.co.uk"; - -$map{"h.m.brand\100hccnet.nl"} = $map{"merijn\100l1.procura.nl"} = "merijn"; + +my $prev = ""; +my %map; + +while () { + chomp; + s/\\100/\@/g; + $_ = lc; + if (my ($correct, $alias) = /^\s*([^#\s]\S*)\s+(.*\S)/) { + $correct =~ s/^\\043/#/; + if ($correct eq '+') {$correct = $prev} else {$prev = $correct} + $map {$alias} = $correct; + } +} + +# +# Email addresses for we do not have names. +# +$map {$_} = "?" for + "bah\100longitude.com", + "bbucklan\100jpl-devvax.jpl.nasa.gov", + "bilbo\100ua.fm", + "bob\100starlabs.net", + "cygwin\100cygwin.com", + "david\100dhaller.de", + "erik\100cs.uni-jena.de", + "info\100lingo.kiev.ua", # Lingo Translation agency + "jms\100mathras.comcast.net", + "premchai21\100yahoo.com", + "pxm\100nubz.org", + "raf\100tradingpost.com.au", + "smoketst\100hp46t243.cup.hp.com", + "root\100chronos.fi.muni.cz", # no clue - jrv 20090803 + "gomar\100md.media-web.de", # no clue - jrv 20090803 + "data-drift\100so.uio.no", # no data. originally private message from 199701282014.VAA12645@selters.uio.no + "arbor\100al37al08.telecel.pt", # reported perlbug ticket 5196 - no actual code contribution. no real name - jrv 20091006 + "oracle\100pcr8.pcr.com", # Reported perlbug ticket 1015 - no patch - Probably Ed Eddington ed@pcr.com + ; + +# +# Email addresses for people that don't have an email address in AUTHORS +# Presumably deliberately? +# + +$map {$_} = '!' for + # Nick Ing-Simmons has passed away (2006-09-25). + "nick\100ing-simmons.net", + "nik\100tiuk.ti.com", + "nick.ing-simmons\100elixent.com", + "nick\100ni-s.u-net.com", + "nick.ing-simmons\100tiuk.ti.com", + + # Iain Truskett has passed away (2003-12-29). + "perl\100dellah.anu.edu.au", + "spoon\100dellah.org", + "spoon\100cpan.org", + + # Ton Hospel + "me-02\100ton.iguana.be", + "perl-5.8.0\100ton.iguana.be", + "perl5-porters\100ton.iguana.be", + + # Beau Cox + "beau\100beaucox.com", + + # Randy W. Sims + "ml-perl\100thepierianspring.org", + + # perl internal addresses + "perl5-porters\100africa.nicoh.com", + "perlbug\100perl.org",, + "perl5-porters.nicoh.com", + "perlbug-followup\100perl.org", + "perlbug-comment\100perl.org", + "bug-module-corelist\100rt.cpan.org", + "bug-storable\100rt.cpan.org", + "bugs-perl5\100bugs6.perl.org", + "unknown", + "unknown\100unknown", + "unknown\100longtimeago", + "unknown\100perl.org", + "", + "(none)", + ; + if (@authors) { my %raw; @@ -100,14 +121,16 @@ if (@authors) { next if /^\#/; next if /^-- /; if (/<([^>]+)>/) { - # Easy line. - $raw{$1}++; + # Easy line. + $raw{$1}++; } elsif (/^([-A-Za-z0-9 .\'À-ÖØöø-ÿ]+)[\t\n]/) { - # Name only - $untraced{$1}++; + # Name only + $untraced{$1}++; + } elsif (length $_) { + chomp; + warn "Can't parse line '$_'"; } else { - chomp; - warn "Can't parse line '$_'"; + next } } } @@ -116,38 +139,28 @@ if (@authors) { $_ = lc $_; $authors{$map{$_} || $_}++; } + ++$authors{'!'}; + ++$authors{'?'}; } -while (<>) { - next if /^-+/; - if (m!^\[\s+(\d+)\]\s+By:\s+(\S+)\s+on!) { +my @lines = split(/^commit\s*/sm,join('',<>)); +for ( @lines) { + next if m/^$/; + next if m/^(\S*?)^Merge:/ism; # skip merge commits + if (m/^(.*?)^Author:\s*(.*?)^Date:\s*(.*?)^(.*)$/gism) { # new patch - my @new = ($1, $2); + ($patch, $committer, $date,$log) = ($1,$2,$3,$4); + chomp($committer); + unless ($committer) { die $_} &process ($committer, $patch, $log); - ($patch, $committer) = @new; - undef $log; - } elsif (s/^(\s+Log: )//) { - die "Duplicate Log:" if $log; - $log = $_; - my $prefix = " " x length $1; - LOG: while (<>) { - next if /^$/; - if (s/^$prefix//) { - $log .= $_; - } elsif (/^\s+Branch:/) { - last LOG; - } else { - chomp; - die "Malformed log end with '$_'"; - } - } - } +} else { die "XXX $_ did not match";} } -&process ($committer, $patch, $log); if ($rank) { - &display_ordered; + &display_ordered(\%patchers); +} elsif ($ta) { + &display_ordered(\%committers); } elsif (%authors) { my %missing; foreach (sort keys %patchers) { @@ -156,45 +169,561 @@ if ($rank) { $missing{$patchers{$_}}->{$_}++; } foreach my $patches (sort {$b <=> $a} keys %missing) { - print "$patches patch(es)\n"; + print "\n\n=head1 $patches patch(es)\n\n"; foreach my $author (sort keys %{$missing{$patches}}) { - print " $author\n"; + my $xauthor = $author; + $xauthor =~ s/@/\\100/g; # xxx temp hack + print "".($real_names{$author}||$author) ."\t\t\t<" . $xauthor.">\n" ; } } } sub display_ordered { + my $what = shift; my @sorted; - while (my ($name, $count) = each %patchers) { + my $total; + while (my ($name, $count) = each %$what) { push @{$sorted[$count]}, $name; + $total += $count; } my $i = @sorted; - while (--$i) { + return unless @sorted; + my $sum = 0; + foreach my $i ($reverse ? 0 .. $#sorted : reverse 0 .. $#sorted) { next unless $sorted[$i]; - print wrap ("$i:\t", "\t", join (" ", sort @{$sorted[$i]}), "\n"); + my $prefix; + $sum += $i * @{$sorted[$i]}; + # Value to display is either this one, or the cumulative sum. + my $value = $cumulative ? $sum : $i; + if ($percentage) { + $prefix = sprintf "%6.2f:\t", 100 * $value / $total; + } else { + $prefix = "$value:\t"; + } + print wrap ($prefix, "\t", join (" ", sort @{$sorted[$i]}), "\n"); } } sub process { my ($committer, $patch, $log) = @_; return unless $committer; - my @authors = $log =~ /From:.+\s+([^\@ \t\n]+\@[^\@ \t\n]+)/gm; + my @authors = $log =~ /From:\s+.*?([^"\@ \t\n<>]+\@[^"\@ \t\n<>]+)/gm; if (@authors) { - foreach (@authors) { - s/^$//; - $_ = lc $_; - $patchers{$map{$_} || $_}++; + foreach my $addr (@authors) { + + $patchers{_raw_address($addr)}++; } # print "$patch: @authors\n"; + $committers{_raw_address($committer)}++; } else { - # print "$patch: $committer\n"; + # print "$patch: $committer\n"; # Not entirely fair as this means that the maint pumpking scores for # everything intergrated that wasn't a third party patch in blead - $patchers{$committer}++; + $patchers{_raw_address($committer)}++; } } +sub _raw_address { + my $addr = shift; + my $real_name; + if ($addr =~ /<.*>/) { + $addr =~ s/^\s*(.*)\s*<\s*(.*?)\s*>.*$/$2/ ; + $real_name = $1; + } + $addr = lc $addr; + $addr = $map{$addr} || $addr; + $addr =~ s/\\100/@/g; # Sometimes, there are encoded @ signs in the git log. + + if ($real_name) { $real_names{$addr} = $real_name}; + return $addr; +} + + +__DATA__ + +# +# List of mappings. First entry the "correct" email address, as appears +# in the AUTHORS file. Second is any "alias" mapped to it. +# +# If the "correct" email address is a '+', the entry above is reused; +# this for addresses with more than one alias. +# +# Note that all entries are in lowercase. Further, no '@' signs should +# appear; use \100 instead. +# +# +# Committers. +# +adi enache\100rdslink.ro +alanbur alan.burlison\100sun.com ++ alan.burlison\100uk.sun.com ++ aburlison\100cix.compulink.co.uk +ams ams\100toroid.org ++ ams\100wiw.org +chip chip\100pobox.com ++ chip\100perl.com ++ salzench\100nielsenmedia.com ++ chip\100atlantic.net ++ chip\100rio.atlantic.net ++ salzench\100dun.nielsen.com ++ chip\100ci005.sv2.upperbeyond.com +craigb craig.berry\100psinetcs.com ++ craig.berry\100metamorgs.com ++ craig.berry\100signaltreesolutions.com ++ craigberry\100mac.com ++ craig.a.berry\100gmail.com ++ craig a. berry) +davem davem\100fdgroup.com ++ davem\100iabyn.nospamdeletethisbit.com ++ davem\100iabyn.com ++ davem\100fdgroup.co.uk ++ davem\100fdisolutions.com ++ davem\100iabyn.com +demerphq demerphq\100gmail.com ++ yves.orton\100de.mci.com ++ yves.orton\100mciworldcom.de ++ demerphq\100dromedary.booking.com ++ demerphq\100gemini.(none) ++ demerphq\100camel.booking.com ++ demerphq\100hotmail.com +doughera doughera\100lafayette.edu ++ doughera\100lafcol.lafayette.edu ++ doughera\100fractal.phys.lafayette.edu ++ doughera.lafayette.edu ++ doughera\100newton.phys.lafayette.edu + +gbarr gbarr\100pobox.com ++ bodg\100tiuk.ti.com ++ gbarr\100ti.com ++ graham.barr\100tiuk.ti.com ++ gbarr\100monty.mutatus.co.uk +gisle gisle\100activestate.com ++ gisle\100aas.no ++ aas\100aas.no ++ aas\100bergen.sn.no +gsar gsar\100activestate.com ++ gsar\100cpan.org ++ gsar\100engin.umich.edu +hv hv\100crypt.compulink.co.uk ++ hv\100crypt.org ++ hv\100iii.co.uk +jhi jhi\100iki.fi ++ jhietaniemi\100gmail.com ++ jhi\100kosh.hut.fi ++ jhi\100alpha.hut.fi ++ jhi\100cc.hut.fi ++ jhi\100hut.fi ++ jarkko.hietaniemi\100nokia.com ++ jarkko.hietaniemi\100cc.hut.fi +jesse jesse\100bestpractical.com ++ jesse\100fsck.com ++ jesse\100perl.org +merijn h.m.brand\100xs4all.nl ++ h.m.brand\100hccnet.nl ++ merijn\100l1.procura.nl ++ merijn\100a5.(none) +mhx mhx-perl\100gmx.net ++ mhx\100r2d2.(none) +nicholas nick\100unfortu.net ++ nick\100ccl4.org ++ nick\100talking.bollo.cx ++ nick\100plum.flirble.org ++ nick\100babyhippo.co.uk ++ nick\100bagpuss.unfortu.net ++ nick\100babyhippo.com ++ Nicholas Clark (sans From field in mail header) +pudge pudge\100pobox.com +rgs rgarciasuarez\100free.fr ++ rgarciasuarez\100mandrakesoft.com ++ rgarciasuarez\100mandriva.com ++ rgarciasuarez\100gmail.com ++ raphel.garcia-suarez\100hexaflux.com ++ rgs@consttype.org +sky sky\100nanisky.com ++ artur\100contiller.se ++ arthur\100contiller.se +steveh steve.m.hay\100googlemail.com ++ stevehay\100planit.com ++ steve.hay\100uk.radan.com +stevep steve\100fisharerojo.org ++ steve.peters\100gmail.com ++ root\100dixie.cscaper.com +timb Tim.Bunce\100pobox.com ++ tim.bunce\100ig.co.uk + + +# +# Mere mortals. +# +\043####\100juerd.nl juerd\100cpan.org ++ juerd\100convolution.nl +7k8lrvf02\100sneakemail.com kjx9zthh3001\100sneakemail.com ++ dtr8sin02\100sneakemail.com ++ rt8363b02\100sneakemail.com ++ o6hhmk002\100sneakemail.com ++ smueller\100cpan.org ++ l2ot9pa02\100sneakemail.com ++ wyp3rlx02\100sneakemail.com ++ 0mgwtfbbq\100sneakemail.com ++ xyey9001\100sneakemail.com +a.r.ferreira\100gmail.com aferreira\100shopzilla.com +abe\100ztreet.demon.nl abeltje\100cpan.org +abela\100hsc.fr abela\100geneanet.org +abigail\100abigail.be abigail\100foad.org ++ abigail\100abigail.nl ++ abigail\100fnx.com +aburt\100isis.cs.du.edu isis!aburt +ach\100mpe.mpg.de ach\100rosat.mpe-garching.mpg.de +adavies\100ptc.com alex.davies\100talktalk.net +ajohnson\100nvidia.com ajohnson\100wischip.com ++ anders\100broadcom.com +alexm\100netli.com alexm\100w-m.ru +alex-p5p\100earth.li alex\100rcon.rog +alexmv\100mit.edu alex\100chmrr.net +alian\100cpan.org alian\100alianwebserver.com +allen\100grumman.com allen\100gateway.grumman.com +allen\100huarp.harvard.edu nort\100bottesini.harvard.edu ++ nort\100qnx.com +allens\100cpan.org easmith\100beatrice.rutgers.edu ++ root\100dogberry.rutgers.edu +andreas.koenig\100anima.de andreas.koenig.gmwojprw\100franz.ak.mind.de ++ andreas.koenig.7os6vvqr\100franz.ak.mind.de ++ a.koenig\100mind.de ++ k\100anna.in-berlin.de ++ andk\100cpan.org ++ koenig\100anna.mind.de ++ k\100anna.mind.de ++ root\100ak-71.mind.de ++ root\100ak-75.mind.de ++ k\100sissy.in-berlin.de ++ a.koenig\100kulturbox.de ++ k\100sissy.in-berlin.de ++ root\100dubravka.in-berlin.de +anno4000\100lublin.zrz.tu-berlin.de anno4000\100mailbox.tu-berlin.de ++ siegel\100zrz.tu-berlin.de +arnold\100gnu.ai.mit.edu arnold\100emoryu2.arpa ++ gatech!skeeve!arnold +arussell\100cs.uml.edu adam\100adam-pc.(none) +ash\100cpan.org ash_cpan\100firemirror.com +avarab\100gmail.com avar\100cpan.org + +bailey\100newman.upenn.edu bailey\100hmivax.humgen.upenn.edu ++ bailey\100genetics.upenn.edu ++ bailey.charles\100gmail.com +bah\100ecnvantage.com bholzman\100longitude.com +barries\100slaysys.com root\100jester.slaysys.com +bkedryna\100home.com bart\100cg681574-a.adubn1.nj.home.com +bcarter\100gumdrop.flyinganvil.org q.eibcartereio.=~m-b.{6}-cgimosx\100gumdrop.flyinganvil.org +ben_tilly\100operamail.com btilly\100gmail.com ++ ben_tilly\100hotmail.com +ben\100morrow.me.uk mauzo\100csv.warwick.ac.uk ++ mauzo\100.(none) +bepi\100perl.it enrico.sorcinelli\100gmail.com +bert\100alum.mit.edu bert\100genscan.com +brian.d.foy\100gmail.com bdfoy\100cpan.org +BQW10602\100nifty.com sadahiro\100cpan.org + +chromatic\100wgz.org chromatic\100rmci.net +clintp\100geeksalad.org cpierce1\100ford.com +clkao\100clkao.org clkao\100bestpractical.com +corion\100corion.net corion\100cpan.org +cp\100onsitetech.com publiustemp-p5p\100yahoo.com ++ publiustemp-p5p3\100yahoo.com +cpan\100audreyt.org autrijus\100egb.elixus.org ++ autrijus\100geb.elixus.org ++ autrijus\100gmail.com ++ autrijus\100ossf.iis.sinica.edu.tw ++ autrijus\100autrijus.org ++ audreyt\100audreyt.org +cpan\100ton.iguana.be me-01\100ton.iguana.be +crt\100kiski.net perl\100ctweten.amsite.com + +dairiki\100dairiki.org dairiki at dairiki.org +dagolden\100cpan.org xdaveg\100gmail.com +damian\100conway.org damian\100cs.monash.edu.au +dan\100sidhe.org sugalsd\100lbcc.cc.or.us ++ sugalskd\100osshe.edu +daniel\100bitpusher.com daniel\100biz.bitpusher.com +david.dyck\100fluke.com dcd\100tc.fluke.com +david\100kineticode.com david\100wheeler.com ++ david\100wheeler.net +dennis\100booking.com dennis\100camel.ams6.corp.booking.com +dev-perl\100pimb.org knew-p5p\100pimb.org +djberg86\100attbi.com djberg96\100attbi.com +domo\100computer.org shouldbedomo\100mac.com ++ domo\100slipper.ip.lu ++ domo\100tcp.ip.lu +dougm\100covalent.net dougm\100opengroup.org ++ dougm\100osf.org +dougw\100cpan.org doug_wilson\100intuit.com +dwegscheid\100qtm.net wegscd\100whirlpool.com +edwardp\100excitehome.net epeschko\100den-mdev1 ++ epeschko\100elmer.tci.com ++ esp5\100pge.com +egf7\100columbia.edu efifer\100sanwaint.com +eggert\100twinsun.com eggert\100sea.sm.unisys.com + +fugazi\100zyx.net larrysh\100cpan.org ++ lshatzer\100islanddata.com + +gbacon\100itsc.uah.edu gbacon\100adtrn-srv4.adtran.com +gerberb\100zenez.com root\100devsys0.zenez.com +gfuji\100cpan.org g.psy.va\100gmail.com +gerard\100ggoossen.net gerard\100tty.nl +gibreel\100pobox.com stephen.zander\100interlock.mckesson.com ++ srz\100loopback +gnat\100frii.com gnat\100prometheus.frii.com +gp\100familiehaase.de gerrit\100familiehaase.de +grazz\100pobox.com grazz\100nyc.rr.com +gward\100ase.com greg\100bic.mni.mcgill.ca +hansmu\100xs4all.nl hansm\100icgroup.nl ++ hansm\100icgned.nl ++ hans\100icgned.nl ++ hans\100icgroup.nl ++ hansm\100euronet.nl ++ hansm\100euro.net +hio\100ymir.co.jp hio\100hio.jp +hops\100sco.com hops\100scoot.pdev.sco.com + +ingo_weinhold\100gmx.de bonefish\100cs.tu-berlin.de + +james\100mastros.biz theorb\100desert-island.me.uk +jand\100activestate.com jan.dubois\100ibm.net +japhy\100pobox.com japhy\100pobox.org ++ japhy\100perlmonk.org ++ japhy\100cpan.org ++ jeffp\100crusoe.net +jari.aalto\100poboxes.com jari.aalto\100cante.net +jarausch\100numa1.igpm.rwth-aachen.de helmutjarausch\100unknown +jasons\100cs.unm.edu jasons\100sandy-home.arc.unm.edu +jbuehler\100hekimian.com jhpb\100hekimian.com +jcromie\100100divsol.com jcromie\100cpan.org ++ jim.cromie\100gmail.com +jidanni\100jidanni.org jidanni\100hoffa.dreamhost.com +jdhedden\100cpan.org jerry\100hedden.us ++ jdhedden\1001979.usna.com ++ jdhedden\100gmail.com ++ jdhedden\100yahoo.com ++ jhedden\100pn100-02-2-356p.corp.bloomberg.com +jeremy\100zawodny.com jzawodn\100wcnet.org +jesse\100sig.bsh.com jesse\100ginger +jfriedl\100yahoo.com jfriedl\100yahoo-inc.com +jfs\100fluent.com jfs\100jfs.fluent.com +jhannah\100omnihotels.com jay\100jays.net +jjore\100cpan.org twists\100gmail.com +jns\100integration-house.com jns\100gellyfish.com ++ gellyfish\100gellyfish.com +john\100atlantech.com john\100titanic.atlantech.com +john\100johnwright.org john.wright\100hp.com +joseph\100cscaper.com joseph\1005sigma.com +joshua\100rodd.us jrodd\100pbs.org +jtobey\100john-edwin-tobey.org jtobey\100user1.channel1.com +jpeacock\100rowman.com john.peacock\100havurah-software.org ++ jpeacock\100havurah-software.org ++ jpeacock\100dsl092-147-156.wdc1.dsl.speakeasy.net ++ jpeacock\100jpeacock-hp.doesntexist.org +jql\100accessone.com jql\100jql.accessone.com +jsm28\100hermes.cam.ac.uk jsm28\100cam.ac.uk + +kane\100dwim.org kane\100xs4all.net ++ kane\100cpan.org ++ kane\100xs4all.nl ++ jos\100dwim.org ++ jib\100ripe.net +ken\100mathforum.org kenahoo\100gmail.com ++ ken.williams\100thomsonreuters.com +kroepke\100dolphin-services.de kay\100dolphin-services.de +kstar\100wolfetech.com kstar\100cpan.org ++ kurt_starsinic\100ml.com ++ kstar\100www.chapin.edu ++ kstar\100chapin.edu +larry\100wall.org lwall\100jpl-devvax.jpl.nasa.gov ++ lwall\100netlabs.com ++ larry\100netlabs.com ++ lwall\100sems.com ++ lwall\100scalpel.netlabs.com +laszlo.molnar\100eth.ericsson.se molnarl\100cdata.tvnet.hu ++ ml1050\100freemail.hu +lewart\100uiuc.edu lewart\100vadds.cvm.uiuc.edu ++ d-lewart\100uiuc.edu +lstein\100cshl.org lstein\100formaggio.cshl.org ++ lstein\100genome.wi.mit.edu +lupe\100lupe-christoph.de lupe\100alanya.m.isar.de +lutherh\100stratcom.com lutherh\100infinet.com +mab\100wdl.loral.com markb\100rdcf.sm.unisys.com +marcel\100codewerk.com gr\100univie.ac.at +mark.p.lutz\100boeing.com tecmpl1\100triton.ca.boeing.com +marnix\100gmail.com pttesac!marnix!vanam +mats\100sm6sxl.net mats\100sm5sxl.net +mbarbon\100dsi.unive.it mattia.barbon\100libero.it +mcmahon\100ibiblio.org mcmahon\100metalab.unc.edu +me\100davidglasser.net glasser\100tang-eleven-seventy-nine.mit.edu +merijnb\100iloquent.nl merijnb\100ms.com ++ merijnb\100iloquent.com +merlyn\100stonehenge.com merlyn\100gadget.cscaper.com +mgjv\100comdyn.com.au mgjv\100tradingpost.com.au +mlh\100swl.msd.ray.com webtools\100uewrhp03.msd.ray.com +michael.schroeder\100informatik.uni-erlangen.de mls\100suse.de +mike\100stok.co.uk mike\100exegenix.com +mjtg\100cam.ac.uk mjtg\100cus.cam.ac.uk +mikedlr\100tardis.ed.ac.uk mikedlr\100it.com.pl +moritz\100casella.verplant.org moritz\100faui2k3.org ++ moritz lenz + +neale\100VMA.TABNSW.COM.AU neale\100pucc.princeton.edu +neeracher\100mac.com neeri\100iis.ee.ethz.ch +neil\100bowers.com neilb\100cre.canon.co.uk + +nospam-abuse\100bloodgate.com tels\100bloodgate.com ++ perl_dummy\100bloodgate.com + +ian.phillipps\100iname.com ian_phillipps\100yahoo.co.uk ++ ian\100dial.pipex.com +ignasi.roca\100fujitsu-siemens.com ignasi.roca\100fujitsu.siemens.es +ikegami\100adaelis.com eric\100fmdev10.(none) +ilmari\100ilmari.org ilmari\100vesla.ilmari.org +illpide\100telecel.pt arbor\100al37al08.telecel.pt +# see http://www.nntp.perl.org/group/perl.perl5.porters/2001/01/msg28925.html +# +ilya\100math.berkeley.edu ilya\100math.ohio-state.edu ++ nospam-abuse\100ilyaz.org ++ [9]ilya\100math.ohio-state.edu +ilya\100martynov.org ilya\100juil.nonet + +okamoto\100corp.hp.com okamoto\100hpcc123.corp.hp.com +orwant\100oreilly.com orwant\100media.mit.edu + +p5-authors\100crystalflame.net perl\100crystalflame.net ++ rs\100crystalflame.net ++ coral\100eekeek.org ++ coral\100moonlight.crystalflame.net ++ rs\100oregonnet.com +paul.green\100stratus.com paul_greenvos\100vos.stratus.com ++ pgreen\100seussnt.stratus.com +paul.marquess\100btinternet.com paul_marquess\100yahoo.co.uk ++ paul.marquess\100ntlworld.com ++ paul.marquess\100openwave.com ++ pmarquess\100bfsec.bt.co.uk ++ pmqs\100cpan.org ++ paul\100paul-desktop.(none) +Pavel.Zakouril\100mff.cuni.cz root\100egg.karlov.mff.cuni.cz +pcg\100goof.com schmorp\100schmorp.de +perl\100cadop.com cdp\100hpescdp.fc.hp.com +perl\100greerga.m-l.org greerga\100m-l.org +perl\100profvince.com vince\100profvince.com +perl-rt\100wizbit.be p5p\100perl.wizbit.be +# Maybe we should special case this to get real names out? +Peter.Dintelmann\100Dresdner-Bank.com peter.dintelmann\100dresdner-bank.com +# NOTE: There is an intentional trailing space in the line above +pfeifer\100wait.de pfeifer\100charly.informatik.uni-dortmund.de ++ upf\100de.uu.net +rabbit\100rabbit.us rabbit+bugs\100rabbit.us +phil\100perkpartners.com phil\100finchcomputer.com +pimlott\100idiomtech.com andrew\100pimlott.net ++ pimlott\100abel.math.harvard.edu +pixel\100mandriva.com pixel\100mandrakesoft.com +pne\100cpan.org philip.newton\100gmx.net ++ philip.newton\100datenrevision.de ++ pnewton\100gmx.de +pprymmer\100factset.com pvhp\100forte.com +public\100khwilliamson.com khw\100karl.(none) ++ khw\100khw-desktop.(none) + +radu\100netsoft.ro rgreab\100fx.ro +raphael.manfredi\100pobox.com raphael_manfredi\100grenoble.hp.com +renee.baecker\100smart-websolutions.de reneeb\100reneeb-desktop.(none) +richard.foley\100rfi.net richard.foley\100t-online.de ++ richard.foley\100ubs.com ++ richard.foley\100ubsw.com +rick\100consumercontact.com rick\100bort.ca ++ rick.delaney\100rogers.com ++ rick\100bort.ca ++ rick.delaney\100home.com +rjbs\100cpan.org rjbs-perl-p5p\100lists.manxome.org ++ perl.p5p\100rjbs.manxome.org +rjk\100linguist.dartmouth.edu rjk\100linguist.thayer.dartmouth.edu ++ rjk-perl-p5p\100tamias.net +rjray\100redhat.com rjray\100uswest.com +rmgiroux\100acm.org rmgiroux\100hotmail.com ++ mgiroux\100bear.com +rmbarker\100cpan.org rmb1\100cise.npl.co.uk ++ robin.barker\100npl.co.uk ++ rmb\100cise.npl.co.uk +robertmay\100cpan.org rob\100themayfamily.me.uk +roberto\100keltia.freenix.fr roberto\100eurocontrol.fr +robin\100cpan.org robin\100kitsite.com +roderick\100argon.org roderick\100gate.net ++ roderick\100ibcinc.com +rootbeer\100teleport.com rootbeer\100redcat.com ++ tomphoenix\100unknown +rurban\100x-ray.at rurban\100cpan.org + +schubiger\100cpan.org steven\100accognoscere.org ++ sts\100accognoscere.org ++ schubiger\100gmail.com +schwern\100pobox.com schwern\100gmail.com ++ schwern\100athens.arena-i.com ++ schwern\100blackrider.aocn.com ++ schwern\100ool-18b93024.dyn.optonline.net +scotth\100sgi.com author scotth\100sgi.com 842220273 +0000 ++ schotth\100sgi.com +schwab\100suse.de schwab\100issan.informatik.uni-dortmund.de ++ schwab\100ls5.informatik.uni-dortmund.de +sebastien\100aperghis.net maddingue\100free.fr ++ saper\100cpan.org +shlomif\100vipe.technion.ac.il shlomif\100iglu.org.il +simon\100simon-cozens.org simon\100pembro4.pmb.ox.ac.uk ++ simon\100brecon.co.uk ++ simon\100othersideofthe.earth.li ++ simon\100cozens.net ++ simon\100netthink.co.uk +slaven\100rezic.de slaven.rezic\100berlin.de ++ srezic\100iconmobile.com ++ srezic\100cpan.org ++ eserte\100cs.tu-berlin.de ++ eserte\100vran.herceg.de +smcc\100mit.edu smcc\100ocf.berkeley.edu ++ smcc\100csua.berkeley.edu ++ alias\100mcs.com ++ smccam\100uclink4.berkeley.edu +spider\100orb.nashua.nh.us spider\100web.zk3.dec.com ++ spider\100leggy.zk3.dec.com ++ spider-perl\100orb.nashua.nh.us ++ spider\100peano.zk3.dec.com ++ spider.boardman\100orb.nashua.nh.us> ++ spidb\100cpan.org ++ spider.boardman\100orb.nashua.nh.us ++ root\100peano.zk3.dec.com +spp\100ds.net spp\100psa.pencom.com ++ spp\100psasolar.colltech.com ++ spp\100spotter.yi.org +stef\100mongueurs.net stef\100payrard.net ++ s.payrard\100wanadoo.fr ++ properler\100freesurf.fr ++ stef\100francenet.fr +sthoenna\100efn.org ysth\100raven.shiftboard.com + +tassilo.parseval\100post.rwth-aachen.de tassilo.von.parseval\100rwth-aachen.de +tchrist\100perl.com tchrist\100mox.perl.com ++ tchrist\100jhereg.perl.com +thomas.dorner\100start.de tdorner\100amadeus.net +tjenness\100cpan.org t.jenness\100jach.hawaii.edu ++ timj\100jach.hawaii.edu +tobez\100tobez.org tobez\100plab.ku.dk +tom\100compton.nu thh\100cyberscience.com +tom.horsley\100mail.ccur.com tom.horsley\100ccur.com ++ tom\100amber.ssd.hcsc.com + +vkonovalov\100lucent.com vkonovalov\100peterstar.ru ++ konovalo\100mail.wplus.net ++ vadim\100vkonovalov.ru ++ vkonovalov\100spb.lucent.com ++ vkonovalov\100alcatel-lucent.com +whatever\100davidnicol.com davidnicol\100gmail.com +wolfgang.laun\100alcatel.at wolfgang.laun\100chello.at ++ wolfgang.laun\100thalesgroup.com ++ wolfgang.laun\100gmail.com +yath\100yath.de yath-perlbug\100yath.de