From 909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 29 Aug 2001 17:31:16 +0000
Subject: add localedrake (not tested)

---
 perl-install/lang.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'perl-install/lang.pm')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index c098eb8a1..e6fbb3596 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -369,6 +369,22 @@ sub pack_langs {
     $s;
 }
 
+sub unpack_langs {
+    my ($s) = @_;
+    my @l = uniq(map { split ':', $languages{$_}[3] } split(':', $s));
+    my @l2 = intersection(\@l, [ keys %languages ]);
+    +{ map { $_ => 1 } @l2 };
+}
+
+sub read {
+    my ($prefix) = @_;    
+    my $h = getVarsFromSh("$prefix/etc/sysconfig/i18n");
+    my $lang = $h ? $h->{LC_MESSAGES} : 'en_US';
+    my $langs = 
+      cat_("$prefix/etc/rpm/macros") =~ /%_install_langs (.*)/ ? unpack_langs($1) : { $lang => 1 };
+    $lang, $langs;
+}
+
 sub write_langs {
     my ($prefix, $langs) = @_;
     my $s = pack_langs($langs);
-- 
cgit v1.2.1