diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-11-26 16:07:25 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-11-26 16:07:25 +0000 |
commit | 77ea812854ab27b687953ca7f329222211ba18bd (patch) | |
tree | 689330f9c6661345cebe92a91b9aaadc75c46375 /move/move.pm | |
parent | bbbfe1ec3d9516acd75905e124e5284b18cdba9e (diff) | |
download | drakx-77ea812854ab27b687953ca7f329222211ba18bd.tar drakx-77ea812854ab27b687953ca7f329222211ba18bd.tar.gz drakx-77ea812854ab27b687953ca7f329222211ba18bd.tar.bz2 drakx-77ea812854ab27b687953ca7f329222211ba18bd.tar.xz drakx-77ea812854ab27b687953ca7f329222211ba18bd.zip |
- configure ksycoca per lang
- configure ksycoca with flag working
- configure kdeglobals lang (for kcontrol and a few more)
Diffstat (limited to 'move/move.pm')
-rw-r--r-- | move/move.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/move/move.pm b/move/move.pm index 864f8a7e3..61e9041fc 100644 --- a/move/move.pm +++ b/move/move.pm @@ -140,6 +140,7 @@ sub init { key_installfiles('simple'); if (`getent passwd 501` =~ /([^:]+):/) { $o->{users} = [ { name => $1 } ]; + $ENV{HOME} = "/home/$1"; #- used by lang::read() :-/ print "using existing user configuration\n"; $using_existing_user_config = 1; } @@ -148,7 +149,7 @@ sub init { $using_existing_host_config = 1; } if (-s '/etc/sysconfig/i18n') { - lang::set($o->{locale} = lang::read('', 0)); + lang::set($o->{locale} = lang::read('', 0)); #- read ~/.i18n first if it exists install2::handleI18NClp(); } @@ -402,6 +403,17 @@ sub install2::configMove { mouse::write_conf($o, $o->{mouse}, 1); #- write xfree mouse conf detect_devices::install_addons(''); + { + my $user = $o->{users}[0]{name}; + cp_af("/usr/share/config/kdeglobals", $confdir); + lang::configure_kdeglobals($o->{locale}, "/home/$user/.kde/share/config"); + + mkdir_p("/home/$user/.kde/share/services"); + cp_af("/usr/share/services/ksycoca-$o->{locale}{lang}", "/home/$user/.kde/share/services/ksycoca"); + + run_program::run('chown', '-R', "$user.$user", "/home/$user/.kde"); + } + foreach my $step (@{$o->{orderedSteps_orig}}) { next if member($step, @{$o->{orderedSteps}}); while (my $f = shift @{$o->{steps}{$step}{toBeDone} || []}) { |