diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-10-03 21:50:22 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-10-03 21:50:22 +0000 |
commit | d1b164fb729f563a50f77dd8d117c8b4c70a4d26 (patch) | |
tree | 1a4106d53fa1cdf4bd1e93bda6be9718af4c0c4a /perl-install/share | |
parent | a0509e67adeafd78b0cc7ae29ae6c81c8327d3c3 (diff) | |
download | drakx-d1b164fb729f563a50f77dd8d117c8b4c70a4d26.tar drakx-d1b164fb729f563a50f77dd8d117c8b4c70a4d26.tar.gz drakx-d1b164fb729f563a50f77dd8d117c8b4c70a4d26.tar.bz2 drakx-d1b164fb729f563a50f77dd8d117c8b4c70a4d26.tar.xz drakx-d1b164fb729f563a50f77dd8d117c8b4c70a4d26.zip |
no_comment
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 "" +); + } + } +} |