summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-11 18:51:38 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-11 18:51:38 +0000
commit9f22166474279d7b90fd218de887b2f9d0ca84f0 (patch)
tree9c77d279e995ef8dcbaa44a0172ed63b1f6b36bb /perl-install
parent264cc85ee7b270dd974ed20b01a115dd0e4858f0 (diff)
downloaddrakx-9f22166474279d7b90fd218de887b2f9d0ca84f0.tar
drakx-9f22166474279d7b90fd218de887b2f9d0ca84f0.tar.gz
drakx-9f22166474279d7b90fd218de887b2f9d0ca84f0.tar.bz2
drakx-9f22166474279d7b90fd218de887b2f9d0ca84f0.tar.xz
drakx-9f22166474279d7b90fd218de887b2f9d0ca84f0.zip
move configuring kdmrc to lang::write so that it is done in localedrake
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm16
-rw-r--r--perl-install/lang.pm20
2 files changed, 18 insertions, 18 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 330244da8..e5c42fe73 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -476,23 +476,7 @@ EOF
$o->install_urpmi;
- if ($o->{locale}{lang} =~ /^(zh_TW|th|vi|be|bg)/) {
- #- skip since we don't have the right font (it badly fails at least for zh_TW)
- } else {
- my $kde_charset = lang::charset2kde_charset(lang::l2charset($o->{locale}{lang}));
- my $welcome = c::to_utf8(N("Welcome to %s", '%n'));
- substInFile {
- s/^(GreetString)=.*/$1=$welcome/;
- s/^(Language)=.*/$1=$o->{locale}{lang}/;
- if (!member($kde_charset, 'iso8859-1', 'iso8859-15')) {
- #- don't keep the default for those
- s/^(StdFont)=.*/$1=*,12,5,$kde_charset,50,0/;
- s/^(FailFont)=.*/$1=*,12,5,$kde_charset,75,0/;
- s/^(GreetFont)=.*/$1=*,24,5,$kde_charset,50,0/;
- }
- } "$o->{prefix}/usr/share/config/kdm/kdmrc";
- }
install_any::disable_user_view() if $o->{security} >= 3 || $o->{authentication}{NIS};
run_program::rooted($o->{prefix}, "kdeDesktopCleanup");
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index d81077c58..c0c291e66 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -932,13 +932,14 @@ sub write {
eval {
my $charset = l2charset($locale->{lang});
+ my $kde_charset = charset2kde_charset($charset);
my $confdir = $prefix . ($b_user_only ? "$ENV{HOME}/.kde" : '/usr') . '/share/config';
my ($prev_kde_charset) = cat_("$confdir/kdeglobals") =~ /^Charset=(.*)/mi;
-d $confdir or die 'not configuring kde config files since it is not installed/used';
update_gnomekderc("$confdir/kdeglobals", Locale => (
- Charset => charset2kde_charset($charset),
+ Charset => $kde_charset,
Country => lc($locale->{country}),
Language => get_kde_lang($locale),
));
@@ -948,7 +949,7 @@ sub write {
update_gnomekderc("$ENV{HOME}/.qt/qtrc", General => (XIMInputStyle => $qt_xim));
}
- if ($prev_kde_charset ne charset2kde_charset($charset)) {
+ if ($prev_kde_charset ne $kde_charset) {
update_gnomekderc("$confdir/kdeglobals", WM => (
activeFont => charset2kde_font($charset,0),
));
@@ -966,6 +967,21 @@ sub write {
StandardFont => charset2kde_font($charset, 0),
));
}
+
+ if (!$b_user_only && $locale->{lang} !~ /^(zh_TW|th|vi|be|bg)/) { #- skip since we don't have the right font (it badly fails at least for zh_TW)
+ my $welcome = c::to_utf8(N("Welcome to %s", '%n'));
+ substInFile {
+ s/^(GreetString)=.*/$1=$welcome/;
+ s/^(Language)=.*/$1=$locale->{lang}/;
+ if (!member($kde_charset, 'iso8859-1', 'iso8859-15')) {
+ #- don't keep the default for those
+ s/^(StdFont)=.*/$1=*,12,5,$kde_charset,50,0/;
+ s/^(FailFont)=.*/$1=*,12,5,$kde_charset,75,0/;
+ s/^(GreetFont)=.*/$1=*,24,5,$kde_charset,50,0/;
+ }
+ } "$::prefix/usr/share/config/kdm/kdmrc";
+ }
+
} if !$b_dont_touch_kde_files;
}