credits2po


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/perl

use strict;
use MDK::Common;

output("contributors.pl", 
       join("\n", 
            qq(#/usr/bin/perl
#
# DO NOT ALTER HERE !!!
# THIS IS GENERATED FROM /usr/share/doc/mandrake-release-<RELEASE>/CREDITS
# WHICH IS FILLED FROM THE COOKER WIKI
#
use lib qw(/usr/lib/libDrakX);
use common;
{
),
            (map {
                if (/^\s*\* (.*)$/) {
                    my ($contributor, $descr) = split(', ', $1);
                    #if (/^\s*\* (.*), (.*)/) {
                    chomp($descr);
                    $descr =~ s/(["@$])/\\$1/g;
                    join('', qq(\tN("$contributor") => ), $descr ? qq(N("$descr"),) : '"",'); 
                } else {
                    chomp;
                    qq(\tN("$_") => "",); 
                }
            } grep { $_ ne "\n" } cat_(glob("/usr/share/doc/mandrake-release-*/CREDITS"))),
            "}"
           )
      );