diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-01-30 22:30:23 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-01-30 22:30:23 +0000 |
commit | fa2278a2fb140627a98db35efb349f862bb85f36 (patch) | |
tree | eef149eded54c843b91f05dc1729dc645baf9738 /perl-install | |
parent | dfb0310e1683f3c043c5275d3ae99cc410f08ddb (diff) | |
download | drakx-backup-do-not-use-fa2278a2fb140627a98db35efb349f862bb85f36.tar drakx-backup-do-not-use-fa2278a2fb140627a98db35efb349f862bb85f36.tar.gz drakx-backup-do-not-use-fa2278a2fb140627a98db35efb349f862bb85f36.tar.bz2 drakx-backup-do-not-use-fa2278a2fb140627a98db35efb349f862bb85f36.tar.xz drakx-backup-do-not-use-fa2278a2fb140627a98db35efb349f862bb85f36.zip |
handle read'ing and write'ing to a specified file (useful example: ~/.i18n)
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/lang.pm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index b54ff1161..0c4494069 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -400,8 +400,9 @@ sub unpack_langs { } sub read { - my ($prefix) = @_; - my %h = getVarsFromSh("$prefix/etc/sysconfig/i18n"); + my ($prefix, $file) = @_; + $file ||= '/etc/sysconfig/i18n'; + my %h = getVarsFromSh("$prefix$file"); my $lang = $h{LC_MESSAGES} || 'en_US'; my $langs = cat_("$prefix/etc/rpm/macros") =~ /%_install_langs (.*)/ ? unpack_langs($1) : { $lang => 1 }; @@ -416,7 +417,8 @@ sub write_langs { } sub write { - my ($prefix, $lang) = @_; + my ($prefix, $lang, $file, $no_console_stuff) = @_; + $file ||= "/etc/sysconfig/i18n"; $lang or return; @@ -426,26 +428,26 @@ sub write { add2hash $h, { LANG => lang2LANG($lang), LANGUAGE => lang2LANGUAGE($lang) }; my $c = $charsets{lang2charset($lang) || ''}; - if ($c) { + if ($c && !$no_console_stuff) { my $p = "$prefix/usr/lib/kbd"; if ($c->[0]) { - add2hash $h, { SYSFONT => $c->[0] }; eval { cp_af("$p/consolefonts/$c->[0].psf.gz", "$prefix/etc/sysconfig/console/consolefonts"); + add2hash $h, { SYSFONT => $c->[0] }; }; $@ and log::l("missing console font $c->[0]"); } if ($c->[1]) { - add2hash $h, { UNIMAP => $c->[1] }; eval { cp_af(glob_("$p/consoletrans/$c->[1]*"), "$prefix/etc/sysconfig/console/consoletrans"); + add2hash $h, { UNIMAP => $c->[1] }; }; $@ and log::l("missing console unimap file $c->[1]"); } if ($c->[2]) { - add2hash $h, { SYSFONTACM => $c->[2] }; eval { cp_af(glob_("$p/consoletrans/$c->[2]*"), "$prefix/etc/sysconfig/console/consoletrans"); + add2hash $h, { SYSFONTACM => $c->[2] }; }; $@ and log::l("missing console acm file $c->[2]"); } @@ -453,7 +455,7 @@ sub write { } add2hash $h, $xim{$lang}; } - setVarsInSh("$prefix/etc/sysconfig/i18n", $h); + setVarsInSh("$prefix$file", $h); } sub load_mo { |