From 3441ffe13a56f8b565e950b1c8e40c70b2acd97a Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 18 Aug 2000 03:24:16 +0000
Subject: committing to allow pixel to clean module handling

---
 perl-install/install_steps_interactive.pm | 34 +++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 988945cd5..20a23e7cc 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1162,6 +1162,7 @@ sub load_thiskind {
 }
 
 #------------------------------------------------------------------------------
+# (dam's) is not anymore used by setupSCSI
 sub setup_thiskind {
     my ($o, $type, $auto, $at_least_one) = @_;
 
@@ -1195,6 +1196,39 @@ sub setup_thiskind {
     }
 }
 
+sub setup_scsi_raid {
+    my ($o, $type, $auto, $at_least_one) = @_;
+
+    return if arch() eq "ppc";
+
+    my @l;
+    my $allow_probe = !$::expert || $o->ask_yesorno('', _("Try to find %s devices?", "PCI" . (arch() =~ /sparc/ && "/SBUS")), 1);
+
+    if ($allow_probe) {
+	eval { @l = grep { !/ide-/ } $o->load_thiskind($type) };
+	$o->ask_warn('', $@) if $@;
+	return if $auto && (@l || !$at_least_one);
+    }
+    while (1) {
+	my $msg = @l ?
+	  [ _("Found %s %s interfaces", join(", ", @l), $type),
+	    _("Do you have another one?") ] :
+	  _("Do you have any %s interfaces?", $type);
+
+	my $opt = [ __("Yes"), __("No") ];
+	push @$opt, __("See hardware info") if $::expert;
+	my $r = "Yes";
+	$r = $o->ask_from_list_('', $msg, $opt, "No") unless $at_least_one && @l == 0;
+	if ($r eq "No") { return }
+	if ($r eq "Yes") {
+	    push @l, $o->load_module($type) || next;
+	} else {
+	    #-eval { commands::modprobe("isapnp") };
+	    $o->ask_warn('', [ detect_devices::stringlist() ]); #-, scalar cat_("/proc/isapnp") ]);
+	}
+    }
+}
+
 sub upNetwork {
     my ($o, $pppAvoided) = @_;
     my $w = $o->wait_message('', _("Bringing up the network"));
-- 
cgit v1.2.1