summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-09-01 23:38:41 +0000
committerdamien <damien@mandriva.com>2000-09-01 23:38:41 +0000
commit762713ce55cadc5cac597cbe5ea4e26f4f76fb9c (patch)
tree8ad1126391668afcbe389da25eed4638a857e160 /perl-install/Xconfigurator.pm
parent863a0345a2f895d35046f35d97f473e825906687 (diff)
downloaddrakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.tar
drakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.tar.gz
drakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.tar.bz2
drakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.tar.xz
drakx-762713ce55cadc5cac597cbe5ea4e26f4f76fb9c.zip
autologin update. It should work
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 975fb0cf3..c6d166523 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -1110,7 +1110,8 @@ Would you like X to start when you reboot?"), 1);
my %l; @l{@etc_pass_fields} = split ':';
$l{uid} > 500, $l{name};
} cat_("$o->{prefix}/etc/passwd");
- my @wm = run_program::rooted($prefix, "/usr/sbin/chksession", "-l");
+ my $cmd = $prefix ? "chroot $prefix" : "";
+ my @wm = map { lc } (split (' ', `$cmd /usr/sbin/chksession -l`));
my $flag='no';
unless (exists $o->{miscellaneous}{autologuser} || $::auto || !@users || $o->{authentication}{NIS}) {
$in->ask_from_entries_refH(_("Autologin"),
@@ -1118,7 +1119,9 @@ _("I can set up your computer to automatically log on one user.
If you don't want to use this feature, click on the cancel button."),
[ _("Choose the default user:") => { val => \$o->{miscellaneous}{autologuser}, list => \@users, not_edit => 1},
_("Choose the window_manager to run:") => { val => \$o->{miscellaneous}{autologwm}, list => \@wm, not_edit => 1}, ])
- ? do { $flag='yes'; $::isStandalone ? system("urpmi --auto autologin") : $o->pkgs_install("autologin"); } : delete $o->{miscellaneaous}{autologuser};
+ ? do { $flag='yes';
+ $::isStandalone ? system("urpmi --auto autologin") : $o->pkgs_install("autologin");
+ } : delete $o->{miscellaneaous}{autologuser};
}
any::setAutologin($prefix, $o->{miscellaneous}{autologuser}, $o->{miscellaneous}{autologwm}, "/usr/X11R6/bin/startx", $flag);