summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-10-02 15:57:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-10-02 15:57:26 +0000
commit58e3030db21edd25cdbcb0fd9695ddbf1826bb30 (patch)
treee9da5dcda895f92fba2ffd39a333b7c1b4f68b7e /perl-install
parentae348860adadee3f400d1107fe01e9c40df6e507 (diff)
downloaddrakx-58e3030db21edd25cdbcb0fd9695ddbf1826bb30.tar
drakx-58e3030db21edd25cdbcb0fd9695ddbf1826bb30.tar.gz
drakx-58e3030db21edd25cdbcb0fd9695ddbf1826bb30.tar.bz2
drakx-58e3030db21edd25cdbcb0fd9695ddbf1826bb30.tar.xz
drakx-58e3030db21edd25cdbcb0fd9695ddbf1826bb30.zip
bloody ataraid detection
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm13
1 files changed, 11 insertions, 2 deletions
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) {