extras/create-authors


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

#!/usr/bin/env perl

open (IN, '../src/Core/Banshee.Core/Resources/contributors.xml');

sub print_section {
    $n = shift;
    print "$n:\n";
}

my $section = '';
while (my $line = readline(IN)) {
    if ($line =~ m/>([^<]+)</) {
        $name = $1;

        if ($line =~ /author/ && $section ne 'author') {
            $section = 'author';
            print_section ("Maintainers");
        } elsif ($line =~ m/contributor/ && $section ne 'contributor') {
            $section = 'contributor';
            print "\n";
            print_section ("Contributors");
        } elsif ($line =~ m/artist/ && $section ne 'artist') {
            $section = 'artist';
            print "\n";
            print_section ("Artists");
        }

        print "  $name\n";
    }
}

close (IN);