diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-10-02 15:57:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-10-02 15:57:26 +0000 |
| commit | 58e3030db21edd25cdbcb0fd9695ddbf1826bb30 (patch) | |
| tree | e9da5dcda895f92fba2ffd39a333b7c1b4f68b7e /perl-install | |
| parent | ae348860adadee3f400d1107fe01e9c40df6e507 (diff) | |
| download | drakx-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.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) { |