/[soft]/control-center/trunk/credits2po
ViewVC logotype

Contents of /control-center/trunk/credits2po

Parent Directory Parent Directory | Revision Log Revision Log


Revision 433 - (show annotations) (download)
Sun Feb 6 02:16:32 2011 UTC (13 years, 1 month ago) by dmorgan
File size: 964 byte(s)
Import cleaned control-center
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 );

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.30