summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-11 17:04:31 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-11 17:04:31 +0000
commit9ad846cd08f909f760f80bf703b8d4dbe1809c7b (patch)
tree0afede65ca0b4024e3738639c3661ddf2145f09e /perl-install/detect_devices.pm
parentf3555a3ac7978f63ef42b4373da92ff1ce791031 (diff)
downloaddrakx-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.tar
drakx-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.tar.gz
drakx-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.tar.bz2
drakx-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.tar.xz
drakx-9ad846cd08f909f760f80bf703b8d4dbe1809c7b.zip
*** empty log message ***
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm8
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;