oops, i forgot to commit contributors.pl generator on 2003-11-06

1 files changed, 19 insertions, 0 deletions

diff --git a/credits2po b/credits2po
new file mode 100755
index 00000000..06e6e497
--- /dev/null
+++ b/credits2po
@@ -0,0 +1,19 @@
+#!/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);
+                qq(\tN("$contributor") => N(qq($descr)),); 
+            } cat_(glob("/usr/share/doc/mandrake-release-*/CREDITS"))),
+            "}"
+           )
+      );