From 58e3030db21edd25cdbcb0fd9695ddbf1826bb30 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 2 Oct 2001 15:57:26 +0000
Subject: bloody ataraid detection

---
 perl-install/detect_devices.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 5e0fd1441..a517303ee 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -28,7 +28,7 @@ sub get {
     #- 2. The first SCSI device if SCSI exists. Or
     #- 3. The first RAID device if RAID exists.
 
-    getIDE(), getSCSI(), getDAC960(), getCompaqSmartArray();
+    getIDE(), getSCSI(), getDAC960(), getCompaqSmartArray(), getATARAID();
 }
 sub hds() { grep { $_->{media_type} eq 'hd' && ($::isStandalone || !isRemovableDrive($_)) } get(); }
 sub zips() { grep { $_->{media_type} =~ /.d/ && isZipDrive($_) } get(); }
@@ -191,11 +191,20 @@ sub getDAC960() {
     foreach (syslog()) {
 	my ($device, $info) = m|/dev/(rd/.*?): (.*?),| or next;
 	$idi{$device} = { info => $info, media_type => 'hd', device => $device };
-	log::l("DAC960: $device ($info)");
     }
     values %idi;
 }
 
+sub getATARAID {
+    my %l;
+    foreach (syslog()) {
+	my ($device) = m|^\s*(ataraid/d\d+):| or next;
+	$l{$device} = { info => 'ATARAID block device', media_type => 'hd', device => $device };
+	log::l("ATARAID: $device");
+    }
+    values %l;
+}
+
 sub getNet() {
 #      my @a;
 #      foreach (@netdevices) {
-- 
cgit v1.2.1