diff options
| -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..d37fdf3fd --- /dev/null +++ b/perl-install/share/po/i18n_compssUsers @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +use lib "../.."; +use pkgs; +use common ":common"; + + +sub get { + my ($meta_class) = @_; + local *install_any::getFile = sub { + open GETFILE, "../compssUsers$meta_class" and *GETFILE; + }; + my (undef, undef, undef, $descr) = pkgs::readCompssUsers([{}], [], $meta_class); + %$descr; +} + +foreach (uniq(get(''), get('.desktop'))) { + s/"/\"/g; + print qq( +#: ../../share/compssUsers +msgid "$_" +msgstr "" +); +} + |