I've attached a small perl script that parses the output of "cvs log" in
order to extract the authors. Here is what I get:
"C Hanish Menon" <[EMAIL PROTECTED]>
"Edouard G. Parmelan" <[EMAIL PROTECTED]>
"Kevin P. Lawton" <[EMAIL PROTECTED]>
kevin
nbastin
ulrich
Josh Wilmes wrote:
>
> My own meager contribution was the curses gui.
>
> --Josh
>
> > This is a multi-part message in MIME format.
> > --------------4C38CAEE8B17697F84A3ED9C
> > Content-Type: text/plain; charset=us-ascii
> > Content-Transfer-Encoding: 7bit
> >
> > Ramon van Handel wrote:
> > >
> > > Should really start that CONTRIBUTORS file..
> >
> > OK, good idea. I'm including a first go at one.
> >
> > For all contributors, please fill in the entry
> > for yourself, or create one. I'll compile things
> > and add the new file into the tree.
> >
> > -Kevin
> > --------------4C38CAEE8B17697F84A3ED9C
> > Content-Type: text/plain; charset=us-ascii;
> > name="CONTRIBUTORS"
> > Content-Transfer-Encoding: 7bit
> > Content-Disposition: inline;
> > filename="CONTRIBUTORS"
> >
> > This is a (likely) partial list of people who have contributed to
> > the plex86 project. Please let us know if you should be listed here.
> > =====================================================================
> >
> > Kevin Lawton <[EMAIL PROTECTED]>
> > Project founder, general architect and coder. Author of bochs.
> > Compiled paper on x86 virtualization.
> >
> > Ulrich Weigand <[EMAIL PROTECTED]>
> > ...
> > CVS admin
> >
> > Ramon van Handel <[EMAIL PROTECTED]>
> > ...
> >
> > Jens Nerche <[EMAIL PROTECTED]>
> > ...
> >
> > Wouter Coene <[EMAIL PROTECTED]>
> > Webmaster.
> >
> > Nick Bastin <[EMAIL PROTECTED]>
> > Converted virtualization paper to sgml/DocBook.
> > Added more output formats to docs tree.
> >
> > --------------4C38CAEE8B17697F84A3ED9C--
> >
> >
--
Steven Elliott ([EMAIL PROTECTED])
#!/usr/bin/perl
# get_authors - Output a list of authors when given "cvs log" as standard
# input. Ex:
# /usr/src/plex86> cvs log | get_authors > authors
#
# by Steven Elliott <[EMAIL PROTECTED]>
use strict;
my $line;
my %names;
my $name;
while($line = <STDIN>)
{
$names{$1} = 1 if($line =~ /author: (.*?);/);
$names{$1} = 1 if($line =~ /(^".*" <.*>):/);
}
foreach $name (sort keys %names)
{
print "$name\n";
}
