summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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) {