extras/create-contributors-paragraph


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

#!/usr/bin/env perl

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

my @names;
while (my $line = readline(IN)) {
    if ($line =~ m/>([^<]+)</) {
        push @names, $1;
    }
}
@names= sort (@names);

my $i = 80;
my $indent = 4;

foreach my $name (@names) {
    if ($i + length($name) + 2 >= 80) {
        $i = $indent - 1;
        print "\n";
        print ' ' x $indent;
    }

    print $name;
    print ", ";
    $i += length ($name) + 2;
}
print "\n";

close (IN);