diff options
author | damien <damien@mandriva.com> | 2000-11-28 16:56:52 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2000-11-28 16:56:52 +0000 |
commit | 0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7 (patch) | |
tree | 33f7ac905998f9ad6d85090f777ee4c0d0c67032 /perl-install/share/po/i18n_compssUsers | |
parent | d5c526273db473a7d87a26000585900fc10dda7d (diff) | |
download | drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.tar drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.tar.gz drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.tar.bz2 drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.tar.xz drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.zip |
branch to build the firewall install.topic/unlabeled-1.1.1
Diffstat (limited to 'perl-install/share/po/i18n_compssUsers')
-rw-r--r-- | perl-install/share/po/i18n_compssUsers | 38 |
1 files changed, 24 insertions, 14 deletions
diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers index c49831eff..2821c3ea3 100644 --- a/perl-install/share/po/i18n_compssUsers +++ b/perl-install/share/po/i18n_compssUsers @@ -1,25 +1,35 @@ #!/usr/bin/perl use lib "../.."; -use pkgs; +use common ":common"; -my $meta_class; +sub get { + my ($meta_class) = @_; + my %compssUsersDescr; -local *install_any::getFile = sub { - open GETFILE, "../compssUsers$meta_class" and *GETFILE; -}; + local *F; + open F, "../compssUsers$meta_class" or return; #die "can't open file ../compssUsers$meta_class"; + foreach (<F>) { + /^\s*$/ || /^#/ and next; + s/#.*//; -foreach $meta_class ('', '.desktop') { - my (undef, undef, undef, $descr) = pkgs::readCompssUsers([{}], [], $meta_class); + if (/^(\S.*)/) { + my ($icon, $descr); + /^(.*?)\s*\[icon=(.*?)\](.*)/ and $_ = "$1$3", $icon = $2; + /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2; + $compssUsersDescr{$_} = $descr; + } + } + close F; + + %compssUsersDescr; +} - while (my ($k, $v) = each %$descr) { - foreach ($k, $v) { - s/"/\"/g; - print qq( -#: ../../share/compssUsers$meta_class +foreach (uniq(get(''), get('.desktop'))) { + s/"/\"/g; + print qq( +#: ../../share/compssUsers msgid "$_" msgstr "" ); - } - } } |