diff options
author | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:40:54 +0000 |
---|---|---|
committer | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:40:54 +0000 |
commit | c317ff62fe84d142f8c5f20647d7314374517558 (patch) | |
tree | 803ddbdc456111529c71cc744b5cf1ed1e21664d /po/get_from_compssusers.pl | |
download | rpmdrake-c317ff62fe84d142f8c5f20647d7314374517558.tar rpmdrake-c317ff62fe84d142f8c5f20647d7314374517558.tar.gz rpmdrake-c317ff62fe84d142f8c5f20647d7314374517558.tar.bz2 rpmdrake-c317ff62fe84d142f8c5f20647d7314374517558.tar.xz rpmdrake-c317ff62fe84d142f8c5f20647d7314374517558.zip |
Branch for updates
Diffstat (limited to 'po/get_from_compssusers.pl')
-rwxr-xr-x | po/get_from_compssusers.pl | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/po/get_from_compssusers.pl b/po/get_from_compssusers.pl new file mode 100755 index 00000000..ad4d0d64 --- /dev/null +++ b/po/get_from_compssusers.pl @@ -0,0 +1,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; + }; +} |