summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-03-20 17:30:43 +0000
committerFrancois Pons <fpons@mandriva.com>2000-03-20 17:30:43 +0000
commita4f074053b427ccf03f4734e7b84239ddf321c53 (patch)
tree097b4f3e8c50ff145df101a7063439f193c4036e /perl-install/detect_devices.pm
parent3361881c18f5ed507c688244ba61e32fe7e57486 (diff)
downloaddrakx-a4f074053b427ccf03f4734e7b84239ddf321c53.tar
drakx-a4f074053b427ccf03f4734e7b84239ddf321c53.tar.gz
drakx-a4f074053b427ccf03f4734e7b84239ddf321c53.tar.bz2
drakx-a4f074053b427ccf03f4734e7b84239ddf321c53.tar.xz
drakx-a4f074053b427ccf03f4734e7b84239ddf321c53.zip
*** empty log message ***
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 2be192599..8207dadfa 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -36,6 +36,7 @@ sub get {
sub hds() { grep { $_->{type} eq 'hd' && ($::isStandalone || !isRemovableDrive($_)) } get(); }
sub zips() { grep { $_->{type} eq 'hd' && isZipDrive($_) } get(); }
#-sub jazzs() { grep { $_->{type} eq 'hd' && isJazDrive($_) } get(); }
+sub ls120s() { grep { $_->{type} =~ /.d/ && isLS120Drive($_) } get(); }
sub cdroms() {
my @l = grep { $_->{type} eq 'cdrom' } get();
if (my @l2 = getIDEBurners()) {
@@ -57,7 +58,8 @@ sub floppies() {
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 isLS120Drive() { $_[0]->{info} =~ /LS-?120/ } #- accept ZIP 100, untested for bigger ZIP drive.
+sub isRemovableDrive() { &isZipDrive || &isLS120Drive } #-or &isJazzDrive }
sub hasSCSI() {
local *F;
@@ -86,7 +88,7 @@ sub getSCSI() {
$_ = <F>; my ($vendor, $model) = /^\s*Vendor:\s*(.*?)\s+Model:\s*(.*?)\s+Rev:/ or return &$err();
$_ = <F>; my ($type) = /^\s*Type:\s*(.*)/ or &$err();
my $device;
- if ($type =~ /Direct-Access/) {
+ if ($type =~ /Direct-Access/) { #- what about LS-120 floppy drive, assuming there are Direct-Access...
$type = 'hd';
$device = "sd" . chr($driveNum++ + ord('a'));
} elsif ($type =~ /Sequential-Access/) {