Branch for updates

1 files changed, 35 insertions, 0 deletions

diff --git a/credits2po b/credits2po
new file mode 100755
index 00000000..fd011bc4
--- /dev/null
+++ b/credits2po
@@ -0,0 +1,35 @@
+#!/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"))),
+            "}"
+           )
+      );