From 29c6e4f818ae3b2a7717125105268bc8df154ff8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 13 Aug 2004 08:08:55 +0000
Subject: - don't use compssUsers anymore, use compssUsers.pl - code to display
 compssUsers choices is now in compssUsers.pl - {compssUsers} is now a list
 instead of a hash, and so drop {compssUsersSorted} - rename
 {compssUsersChoice} to {rpmsrate_flags_chosen} (better name) -
 i18n_compssUsers is no more needed, add share/compssUsers.pl* to ALLPMS

---
 perl-install/share/po/Makefile         |  1 -
 perl-install/share/po/i18n_compssUsers | 42 ----------------------------------
 2 files changed, 43 deletions(-)
 delete mode 100644 perl-install/share/po/i18n_compssUsers

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

diff --git a/perl-install/share/po/Makefile b/perl-install/share/po/Makefile
index 92b6613af..6c4342ba3 100644
--- a/perl-install/share/po/Makefile
+++ b/perl-install/share/po/Makefile
@@ -37,7 +37,6 @@ $(POFILES): DrakX.pot
 
 DrakX.pot: $(PMSFILES_HERE)
 	cd ../.. ; perl_checker -q --generate-pot share/po/$@ $(PMSFILES)
-	perl i18n_compssUsers 2>/dev/null >> $@
 
 install:
 	for l in $(LANGS); do \
diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers
deleted file mode 100644
index 9d4fc7b84..000000000
--- a/perl-install/share/po/i18n_compssUsers
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-
-sub get {
-    my ($meta_class) = @_;
-    my @l;
-
-    local *F;
-    open F, "../compssUsers$meta_class" or return; #die "can't open file ../compssUsers$meta_class";
-    foreach (<F>) {
-	/^\s*$/ || /^#/ and next;
-
-	if (/^(\S.*)/) {
-	    my ($icon, $path, $descr, $selected);
-	    /^(.*?)\s*\[icon=(.*?)\](.*)/  and $_ = "$1$3", $icon  = $2;
-	    /^(.*?)\s*\[path=(.*?)\](.*)/  and $_ = "$1$3", $path  = $2;
-	    /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2;
-	    /^(.*?)\s*\[selected=(.*?)\](.*)/ and $_ = "$1$3", $selected = $2;
-	    push @l, $_, $descr, $path;
-	}
-    }
-    close F;
-
-    @l;
-}
-
-my @l = map { if_(/msgid "(.*)"/, $1) } cat_("DrakX.pot");
-my %l; @l{@l} = ();
-
-foreach (uniq(get(''), get('.desktop'))) {
-    if ($_) {
-        s/"/\"/g;
-        s/\n//g;
-	next if exists $l{$_};
-        print qq(
-#: ../../share/compssUsers:999
-msgid "$_"
-msgstr ""
-);
-    }
-}
-- 
cgit v1.2.1