Source

pynie / CREDITS

Full commit
=pod

# $Id$

    Following in the steps of other open source projects that eventually
    take over the world, here is the partial list of people who have
    contributed to Pynie. It is sorted by name and formatted to allow easy
    grepping and beautification by scripts.  The fields are: name (N),
    email (E), web-address (W), description (D), main username (U), alias
    usernames (A) and snail-mail address (S).

        Thanks,

        The Pynie Team
        PS: Yes, this looks remarkably like the Linux CREDITS format
        PPS: This file is encoded in UTF-8

----------
N: Allison Randal
D: Architect (0.4.6...) & Lead Developer
E: allison@parrot.org
U: allison

N: blairuk
D: Pynie

N: Bradley M. Kuhn
D: A few Pynie features
E: bkuhn@ebb.org
W: http://www.ebb.org/bkuhn/
U: bkuhn
A: Bradley.Sif
S: New York, NY, USA

N: isop
D: various Pynie patches

N: Patrick R. Michaud
U: pmichaud
D: Pynie
E: pmichaud@pobox.com

=cut

# This makes a "svn authors" file for git svn

open my $fh, "<", $0 or die "can't open $0: $!";
my %n;
while (<$fh>) {
    #warn "[$_]";
    if (m/^\s*$/) {
        printf "%-10s = %s <%s>\n", $n{U}, $n{N}, $n{E} if $n{U};
        %n = ();
    }
    next unless m/^([NEDUSW]): (.*)/;
    my ($f, $v) = ($1, $2);
    $n{$f} = $v unless $n{$f};  # doesn't do the right thing for the multiline fields
}