From cb9b5708db7ecc5d950d0e01d5bf575df66fa355 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 5 Oct 2000 09:24:41 +0000
Subject: *** empty log message ***

---
 perl-install/share/po/i18n_compssUsers | 32 ++++++++++++++++++--------------
 1 file changed, 18 insertions(+), 14 deletions(-)

(limited to 'perl-install/share/po/i18n_compssUsers')

diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers
index 70ccd15d2..8ce0a9233 100644
--- a/perl-install/share/po/i18n_compssUsers
+++ b/perl-install/share/po/i18n_compssUsers
@@ -1,23 +1,28 @@
 #!/usr/bin/perl
 
-BEGIN { 
-    # fake module ``c'' so that no need to build DrakX
-    $INC{'c.pm'} = 1;
-    package c; sub AUTOLOAD { } sub getpagesize { 1024 } # getpagesize is needed by swap.pm, otherwise sigsegv
-}
-
 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;
+    my %compssUsersDescr;
+
+    local *F;
+    open F, "../compssUsers$meta_class" or die "can't open file ../compssUsers$meta_class";
+    foreach (<F>) {
+	/^\s*$/ || /^#/ and next;
+	s/#.*//;
+
+	if (/^(\S.*)/) {
+	    my ($icon, $descr);
+	    /^(.*?)\s*\[icon=(.*?)\](.*)/  and $_ = "$1$3", $icon  = $2;
+	    /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2;
+	    $compssUsersDescr{$_} = $descr; 
+	}
+    }
+    close F;
+
+    %compssUsersDescr;
 }
 
 foreach (uniq(get(''), get('.desktop'))) {
@@ -28,4 +33,3 @@ msgid "$_"
 msgstr ""
 );
 }
-
-- 
cgit v1.2.1