diff options
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 "" ); - } - } } |