summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-20 14:09:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-20 14:09:41 +0000
commitae03c25f61467f2eaedc62a23a925237ff8a7e29 (patch)
tree781f562d2752c41b3de8fe16560de99375c1f721 /perl-install/install_steps_interactive.pm
parent6204c74c31825e9f732dad63e75bc9555b2fae6b (diff)
downloaddrakx-ae03c25f61467f2eaedc62a23a925237ff8a7e29.tar
drakx-ae03c25f61467f2eaedc62a23a925237ff8a7e29.tar.gz
drakx-ae03c25f61467f2eaedc62a23a925237ff8a7e29.tar.bz2
drakx-ae03c25f61467f2eaedc62a23a925237ff8a7e29.tar.xz
drakx-ae03c25f61467f2eaedc62a23a925237ff8a7e29.zip
- tellAboutProprietaryModules moved to setupSCSI
- miscellaneous step re-enabled, called Security - pcmcia_probe moved to setupSCSI, skipped in noauto
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm57
1 files changed, 16 insertions, 41 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e24f2144b..5d7d2c171 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -259,17 +259,21 @@ sub selectMouse {
}
#------------------------------------------------------------------------------
sub setupSCSI {
- my ($o, $auto, $at_least_one) = @_;
+ my ($o, $clicked) = @_;
- if ($o->{pcmcia} && !$::noauto) {
- my $w = $o->wait_message(_("PCMCIA"), _("Configuring PCMCIA cards..."));
- modules::configure_pcmcia($o->{pcmcia});
+ if (!$::noauto) {
+ if ($o->{pcmcia} ||= c::pcmcia_probe()) {
+ my $w = $o->wait_message(_("PCMCIA"), _("Configuring PCMCIA cards..."));
+ modules::configure_pcmcia($o->{pcmcia});
+ }
}
{
my $w = $o->wait_message(_("IDE"), _("Configuring IDE"));
modules::load_ide();
}
- any::setup_thiskind($o, 'scsi|disk', $auto, $at_least_one, $o->{pcmcia});
+ any::setup_thiskind($o, 'scsi|disk', !$::expert && !$clicked, $clicked, $o->{pcmcia});
+
+ install_interactive::tellAboutProprietaryModules($o) if !$clicked;
}
sub ask_mntpoint_s {
@@ -984,51 +988,22 @@ try to force installation even if that destroys the first partition?"));
chop($of_boot);
unlink "$o->{prefix}/tmp/.error";
$o->ask_warn('', _("You will need to change your Open Firmware boot-device to\n enable the bootloader. Hold down Command-Option-O-F\n at reboot and enter:\n setenv boot-device $of_boot,\\ofboot.b\n Then type: shut-down\nAt your next boot you should see the bootloader prompt."));
- }
+ }
}
}
-#- deprecated
-sub __deprecated__miscellaneous {
- return;
-
+sub miscellaneous {
my ($o, $clicked) = @_;
my %l = (
- 0 => _("Welcome To Crackers"),
- 1 => _("Poor"),
2 => _("Low"),
3 => _("Medium"),
4 => _("High"),
- 5 => _("Paranoid"),
);
- delete @l{0,1,5} unless $::expert;
-
- my $u = $o->{miscellaneous} ||= {};
- my $s = $o->{security};
-
- install_interactive::tellAboutProprietaryModules($o) unless $clicked;
-
- add2hash_ $o, { useSupermount => $s < 4 && arch() !~ /^sparc/ };
- $s = $l{$s} || $s;
-
- $::expert || $clicked and $o->ask_from_entries_refH('',
- _("Miscellaneous questions"), [
-{ label => _("Choose security level"), val => \$s, list => [ map { $l{$_} } ikeys %l ] },
- ], complete => sub {
- my %m = reverse %l; $ENV{SECURE_LEVEL} = $o->{security} = $m{$s};
- $o->{useSupermount} && $o->{security} > 3 and $o->ask_warn('', _("Can't use supermount in high security level")), return 1;
- $o->{security} == 5 and $o->ask_okcancel('',
-_("beware: IN THIS SECURITY LEVEL, ROOT LOGIN AT CONSOLE IS NOT ALLOWED!
-If you want to be root, you have to login as a user and then use \"su\".
-More generally, do not expect to use your machine for anything but as a server.
-You have been warned.")) || return;
-
- #- message below kept in case it is of any use again. (otherwise removed from po and pablo is not happy ;p)
-_("Be carefull, having numlock enabled causes a lot of keystrokes to
-give digits instead of normal letters (eg: pressing `p' gives `6')");
- 0; }
- ) || return;
-
+ if ($::expert || $clicked) {
+ $ENV{SECURE_LEVEL} = $o->{security} =
+ $o->ask_from_listf('', _("Choose security level"), sub { $l{$_[0]} }, [ ikeys %l ], $o->{security})
+ or return;
+ }
install_steps::miscellaneous($o);
}