From ad8a00814c37a9ca71ea7a661aab6508664d238f Mon Sep 17 00:00:00 2001 From: damien Date: Wed, 20 Sep 2000 12:01:30 +0000 Subject: see changelog --- perl-install/ChangeLog | 4 ++++ perl-install/Xconfigurator.pm | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index deb875c2d..32eacca0c 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,3 +1,7 @@ +2000-09-20 dam's + + * Xconfigurator.pm (autologin): for urpmi, added `--best-output' and suspend/resume + 2000-09-20 Guillaume Cottenceau * standalone/printerdrake: for urpmi, added `--best-output' and suspend/resume diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 42cdad9d2..17a547d3c 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -1114,7 +1114,7 @@ If you don't want to use this feature, click on the cancel button."), [ _("Choose the default user:") => { val => \$o->{autologin}, list => [ '', @users ] }, _("Choose the window manager to run:") => { val => \$o->{desktop}, list => \@wm }, ]) or delete $o->{autologin}; } - $o->{autologin} and $::isStandalone ? system("urpmi --auto autologin") : $in->pkg_install("autologin"); + $o->{autologin} and $::isStandalone ? do { $in->suspend; system("urpmi --auto --best-output autologin"); $in->resume; } : $in->pkg_install("autologin"); any::setAutologin($prefix, $o->{autologin}, $o->{desktop}); run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone; } -- cgit v1.2.1