summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-11 00:06:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-11 00:06:34 +0000
commit735035f3cfbc395a1249ee3b82d766c7d22d0e52 (patch)
tree35059a4d4fe3a827877845c87b7ecd06b49fb1db /perl-install
parentcce87dffe0888da082fec1e4cf88440ef8fd9d97 (diff)
downloaddrakx-735035f3cfbc395a1249ee3b82d766c7d22d0e52.tar
drakx-735035f3cfbc395a1249ee3b82d766c7d22d0e52.tar.gz
drakx-735035f3cfbc395a1249ee3b82d766c7d22d0e52.tar.bz2
drakx-735035f3cfbc395a1249ee3b82d766c7d22d0e52.tar.xz
drakx-735035f3cfbc395a1249ee3b82d766c7d22d0e52.zip
(autologin): moved to package any
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm25
1 files changed, 0 insertions, 25 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 1570f2a68..783aa010b 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -1131,31 +1131,6 @@ _("I can set up your computer to automatically start X upon booting.
Would you like X to start when you reboot?"), 1);
rewriteInittab($run ? 5 : 3) unless $::testing;
}
- autologin($prefix, $o, $in, $install);
run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone;
}
}
-
-sub autologin {
- my ($prefix, $o, $in, $install) = @_;
- my $cmd = $prefix ? "chroot $prefix" : "";
- my @wm = (split (' ', `$cmd /usr/sbin/chksession -l`));
- my @users = mapgrep {
- $_->{uid} > 500, $_->{name};
- } map { any::unpack_passwd($_) } cat_("$prefix/etc/passwd");
- my @runlevel = mapgrep {
- /^id:([35]):initdefault:\s*$/ > 0, $1;
- } cat_("$prefix/etc/inittab");
- if (!($::isStandalone && $0 =~ /Xdrakres/) && !($::auto && $o->{skiptest}) && first(@runlevel, 0) == 5 &&
- @wm && @users && !$o->{authentication}{NIS} && $ENV{SECURE_LEVEL} <= 3) {
- my %l = getVarsFromSh("$prefix/etc/sysconfig/autologin");
- $o->{autologin} ||= $l{USER};
- $in->ask_from_entries_refH(_("Autologin"),
- _("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."),
- [ { label => _("Choose the default user:"), val => \$o->{autologin}, list => [ '', @users ] },
- { label => _("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm }, ]) or delete $o->{autologin};
- }
- $o->{autologin} and $install->("autologin");
- any::setAutologin($prefix, $o->{autologin}, $o->{desktop});
-}