summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-05-03 09:57:45 +0000
committerdamien <damien@mandriva.com>2001-05-03 09:57:45 +0000
commit602031f419d1dc6db0e0fae7d8519176483f0fde (patch)
treeb33ba2912438b80d4376c1b88e6d36675957ef93 /perl-install
parent654e86804269105669a9eee0cf48aca749a17b90 (diff)
downloaddrakx-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.pm7
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"));