diff options
Diffstat (limited to 'credits2po')
-rwxr-xr-x | credits2po | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/credits2po b/credits2po deleted file mode 100755 index fd011bc4..00000000 --- a/credits2po +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/perl - -use strict; -use lib qw(/usr/lib/libDrakX); -use MDK::Common; -use standalone; -use run_program; - -output("contributors.pl", - join("\n", - qq(#/usr/bin/perl -# -# DO NOT ALTER HERE !!! -# THIS IS GENERATED FROM /usr/share/doc/mageia-release-<RELEASE>/CREDITS -# WHICH IS FILLED FROM THE MAGEIA WIKI -# -use lib qw(/usr/lib/libDrakX); -use common; -{ -), - (map { - if (/^\s*\* (.*)$/) { - my ($contributor, $descr) = split(', ', $1, 2); - #if (/^\s*\* (.*), (.*)/) { - chomp($descr); - $descr =~ s/(["@$])/\\$1/g; - join('', qq(\t"$contributor" => ), $descr ? qq(N("$descr"),) : '"",'); - } else { - chomp; - qq(\tN("$_") => "",); - } - } grep { $_ ne "\n" } cat_(glob("/usr/share/doc/mageia-release-*/CREDITS"))), - "}" - ) - ); |