summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-09-19 19:15:21 +0000
committerdamien <damien@mandriva.com>2000-09-19 19:15:21 +0000
commita4c1822b51d997e94ef2e61b6e58057c58ce2ea6 (patch)
treee8418a8f6447269ca40799a72b3e87e7dfa362ea /perl-install
parent40350c9340edfb468d4185309e10bf68b6366992 (diff)
downloaddrakx-backup-do-not-use-a4c1822b51d997e94ef2e61b6e58057c58ce2ea6.tar
drakx-backup-do-not-use-a4c1822b51d997e94ef2e61b6e58057c58ce2ea6.tar.gz
drakx-backup-do-not-use-a4c1822b51d997e94ef2e61b6e58057c58ce2ea6.tar.bz2
drakx-backup-do-not-use-a4c1822b51d997e94ef2e61b6e58057c58ce2ea6.tar.xz
drakx-backup-do-not-use-a4c1822b51d997e94ef2e61b6e58057c58ce2ea6.zip
updated
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog3
-rw-r--r--perl-install/Xconfigurator.pm8
2 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 190657486..6f6b1e926 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,6 +1,7 @@
2000-09-19 dam's <damien@mandrakesoft.com>
- * Xconfigurator.pm (autologin): corrected @users definition.
+ * Xconfigurator.pm (autologin): corrected @users definition and
+ passwd cat.
2000-09-19 Pixel <pixel@mandrakesoft.com>
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index f098ca3b9..533e15217 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -1092,19 +1092,17 @@ _("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, $allowFB, $isLaptop, $install);
+ autologin($prefix, $o, $in, $install);
}
}
sub autologin {
- my ($o, $allowFB);
- ($prefix, $o, $in, $allowFB, $isLaptop, $install) = @_;
- $o ||= {};
+ my ($prefix, $o, $in, $install) = @_;
my @etc_pass_fields = qw(name pw uid gid realname home shell);
my @users = mapgrep {
my %l; @l{@etc_pass_fields} = split ':';
$l{uid} > 500, $l{name};
- } cat_("$o->{prefix}/etc/passwd");
+ } cat_("$prefix/etc/passwd");
unless (($::auto && $o->{skiptest}) || !@users || $o->{authentication}{NIS}) {
my $cmd = $prefix ? "chroot $prefix" : "";
my @wm = (split (' ', `$cmd /usr/sbin/chksession -l`));