credits2po


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/perl

use strict;
use MDK::Common;

output("contributors.pl", 
       join("\n", 
            qq(#/usr/bin/perl
use lib qw(/usr/lib/libDrakX);
use common;
{
),
            (map { 
                my ($contributor, $descr) = split(', ', $_, 2);
                chomp($descr);
                $descr =~ s/(["@$])/\$1/g;
                qq(\tN("$contributor") => N("$descr"),); 
            } cat_(glob("/usr/share/doc/mandrake-release-*/CREDITS"))),
            "}"
           )
      );