diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-10-11 17:04:31 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-10-11 17:04:31 +0000 |
| commit | 9ad846cd08f909f760f80bf703b8d4dbe1809c7b (patch) | |
| tree | 0afede65ca0b4024e3738639c3661ddf2145f09e /perl-install/detect_devices.pm | |
| parent | f3555a3ac7978f63ef42b4373da92ff1ce791031 (diff) | |
| download | drakx-backup-do-not-use-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.tar drakx-backup-do-not-use-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.tar.gz drakx-backup-do-not-use-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.tar.bz2 drakx-backup-do-not-use-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.tar.xz drakx-backup-do-not-use-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 35a85dfc5..994fd30fb 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -35,13 +35,19 @@ sub get { [ \&hasDAC960, \&getDAC960 ], [ \&hasCompaqSmartArray, \&getCompaqSmartArray ]; } -sub hds() { grep { $_->{type} eq 'hd' } get(); } +sub hds() { grep { $_->{type} eq 'hd' && !isRemovableDrive($_) } get(); } +sub zips() { grep { $_->{type} eq 'hd' && isZipDrive($_) } get(); } +#-sub jazzs() { grep { $_->{type} eq 'hd' && isJazDrive($_) } get(); } sub cdroms() { grep { $_->{type} eq 'cdrom' } get(); } sub floppies() { (grep { tryOpen($_) } qw(fd0 fd1)), (grep { $_->{type} eq 'fd' } get()); } +sub isZipDrive() { $_[0]->{info} =~ /ZIP\s+\d+/ } #- accept ZIP 100, untested for bigger ZIP drive. +#-sub isJazzDrive() { $_[0]->{info} =~ /JAZZ?\s+/ } #- untested. +sub isRemovableDrive() { &isZipDrive } #-or &isJazzDrive } + sub hasSCSI() { defined $scsiDeviceAvailable and return $scsiDeviceAvailable; local *F; |