diff options
Diffstat (limited to 'perl-install/share')
-rw-r--r-- | perl-install/share/po/i18n_compssUsers | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers new file mode 100644 index 000000000..c49831eff --- /dev/null +++ b/perl-install/share/po/i18n_compssUsers @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +use lib "../.."; +use pkgs; + +my $meta_class; + +local *install_any::getFile = sub { + open GETFILE, "../compssUsers$meta_class" and *GETFILE; +}; + +foreach $meta_class ('', '.desktop') { + my (undef, undef, undef, $descr) = pkgs::readCompssUsers([{}], [], $meta_class); + + while (my ($k, $v) = each %$descr) { + foreach ($k, $v) { + s/"/\"/g; + print qq( +#: ../../share/compssUsers$meta_class +msgid "$_" +msgstr "" +); + } + } +} |