diff options
| author | damien <damien@mandriva.com> | 2001-05-03 09:57:45 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-05-03 09:57:45 +0000 |
| commit | 602031f419d1dc6db0e0fae7d8519176483f0fde (patch) | |
| tree | b33ba2912438b80d4376c1b88e6d36675957ef93 /perl-install | |
| parent | 654e86804269105669a9eee0cf48aca749a17b90 (diff) | |
| download | drakx-602031f419d1dc6db0e0fae7d8519176483f0fde.tar drakx-602031f419d1dc6db0e0fae7d8519176483f0fde.tar.gz drakx-602031f419d1dc6db0e0fae7d8519176483f0fde.tar.bz2 drakx-602031f419d1dc6db0e0fae7d8519176483f0fde.tar.xz drakx-602031f419d1dc6db0e0fae7d8519176483f0fde.zip | |
corrected set_autologin
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index e48cb64eb..8de921fea 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -342,8 +342,11 @@ sub get_autologin { sub set_autologin { my ($prefix, $user, $desktop) = @_; - output "$prefix/etc/sysconfig/desktop", uc($desktop), "\n" if $user; - + if ($user) { + my %l = getVarsFromSh("$prefix/etc/sysconfig/desktop"); + $l{DESKTOP} = uc($desktop); + setVarsInSh("$prefix/etc/sysconfig/desktop", %l); + } setVarsInSh("$prefix/etc/sysconfig/autologin", { USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx" }); log::l("cat $prefix/etc/sysconfig/autologin: ", cat_("$prefix/etc/sysconfig/autologin")); |