summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po/i18n_compssUsers
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-13 08:08:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-13 08:08:55 +0000
commit29c6e4f818ae3b2a7717125105268bc8df154ff8 (patch)
treeaed17983db265b3760bfbe366f0f1312284f2d01 /perl-install/share/po/i18n_compssUsers
parentf2793bd866028a0692e721e3c1442076c46a3379 (diff)
downloaddrakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.tar
drakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.tar.gz
drakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.tar.bz2
drakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.tar.xz
drakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.zip
- don't use compssUsers anymore, use compssUsers.pl
- code to display compssUsers choices is now in compssUsers.pl - {compssUsers} is now a list instead of a hash, and so drop {compssUsersSorted} - rename {compssUsersChoice} to {rpmsrate_flags_chosen} (better name) - i18n_compssUsers is no more needed, add share/compssUsers.pl* to ALLPMS
Diffstat (limited to 'perl-install/share/po/i18n_compssUsers')
-rw-r--r--perl-install/share/po/i18n_compssUsers42
1 files changed, 0 insertions, 42 deletions
diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers
deleted file mode 100644
index 9d4fc7b84..000000000
--- a/perl-install/share/po/i18n_compssUsers
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-
-sub get {
- my ($meta_class) = @_;
- my @l;
-
- local *F;
- open F, "../compssUsers$meta_class" or return; #die "can't open file ../compssUsers$meta_class";
- foreach (<F>) {
- /^\s*$/ || /^#/ and next;
-
- if (/^(\S.*)/) {
- my ($icon, $path, $descr, $selected);
- /^(.*?)\s*\[icon=(.*?)\](.*)/ and $_ = "$1$3", $icon = $2;
- /^(.*?)\s*\[path=(.*?)\](.*)/ and $_ = "$1$3", $path = $2;
- /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2;
- /^(.*?)\s*\[selected=(.*?)\](.*)/ and $_ = "$1$3", $selected = $2;
- push @l, $_, $descr, $path;
- }
- }
- close F;
-
- @l;
-}
-
-my @l = map { if_(/msgid "(.*)"/, $1) } cat_("DrakX.pot");
-my %l; @l{@l} = ();
-
-foreach (uniq(get(''), get('.desktop'))) {
- if ($_) {
- s/"/\"/g;
- s/\n//g;
- next if exists $l{$_};
- print qq(
-#: ../../share/compssUsers:999
-msgid "$_"
-msgstr ""
-);
- }
-}