diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 13 |
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) { |