1 |
#!/usr/bin/perl |
2 |
|
3 |
use strict; |
4 |
use lib qw(/usr/lib/libDrakX); |
5 |
use MDK::Common; |
6 |
use standalone; |
7 |
use run_program; |
8 |
|
9 |
output("contributors.pl", |
10 |
join("\n", |
11 |
qq(#/usr/bin/perl |
12 |
# |
13 |
# DO NOT ALTER HERE !!! |
14 |
# THIS IS GENERATED FROM /usr/share/doc/mageia-release-<RELEASE>/CREDITS |
15 |
# WHICH IS FILLED FROM THE MAGEIA WIKI |
16 |
# |
17 |
use lib qw(/usr/lib/libDrakX); |
18 |
use common; |
19 |
{ |
20 |
), |
21 |
(map { |
22 |
if (/^\s*\* (.*)$/) { |
23 |
my ($contributor, $descr) = split(', ', $1, 2); |
24 |
#if (/^\s*\* (.*), (.*)/) { |
25 |
chomp($descr); |
26 |
$descr =~ s/(["@$])/\\$1/g; |
27 |
join('', qq(\t"$contributor" => ), $descr ? qq(N("$descr"),) : '"",'); |
28 |
} else { |
29 |
chomp; |
30 |
qq(\tN("$_") => "",); |
31 |
} |
32 |
} grep { $_ ne "\n" } cat_(glob("/usr/share/doc/mageia-release-*/CREDITS"))), |
33 |
"}" |
34 |
) |
35 |
); |