blob: ad4d0d64484dd0639b23347f1d587feb13c0a1c3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!/usr/bin/perl
use MDK::Common;
our @miss = (qw(Server Workstation), 'Graphical Environment');
our @exceptions = qw(Development Configuration Mail);
my $po = $ARGV[0];
my $drakxfile = "../../../gi/perl-install/install/share/po/$po";
my $libdrakxfile = "../../../gi/perl-install/share/po/$po";
-e $drakxfile or exit 0;
-e $libdrakxfile or exit 0;
my ($enc_rpmdrake) = cat_($po) =~ /Content-Type: .*; charset=(.*)\\n/i;
my ($enc_drakx) = cat_($drakxfile) =~ /Content-Type: .*; charset=(.*)\\n/;
uc($enc_rpmdrake) ne uc($enc_drakx) and die "Encodings differ for $po! rpmdrake's encoding: $enc_rpmdrake; drakx's encoding: $enc_drakx";
print q(# autogenerated by get_from_compssusers.pl
#
msgid ""
msgstr ""
"Project-Id-Version: rpmdrake\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2006-11-30 14:17+0100\n"
"PO-Revision-Date: 2006-11-26 00:50+0100\n"
"Last-Translator: nobody <nobody@nowhere.no>\n"
"Language-Team: unknown\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
);
our $current;
our $entry;
foreach my $line (cat_($drakxfile, $libdrakxfile)) {
#foreach my $line (cat_($drakxfile)) {
$line =~ m|^\Q#: share/compssUsers.pl:| || $line =~ m|^msgid "([^"]+)"| && member($1, @miss) and do {
$current = 'inside';
$entry = "# DO NOT BOTHER TO MODIFY HERE, BUT IN DRAKX PO\n";
$line =~ m|^#:| or $entry .= "#: share/compssUsers.pl:999\n";
};
$current eq 'inside' and $entry .= $line;
$line =~ m|^msgid "([^"]+)"| && member($1, @exceptions) and $current = 'outside';
$line =~ m|^$| && $current eq 'inside' and do {
$current = 'outside';
print $entry;
};
}
|
