summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-04 04:15:43 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-04 04:15:43 +0000
commita40d88910f0b00596e578200618b750795b59862 (patch)
treed80c8c1233bdfe07618a705bfc040c76bb28090d /perl-install/detect_devices.pm
parent1b6c237bda3f28537e7af8594047d15c2b6b653e (diff)
downloaddrakx-a40d88910f0b00596e578200618b750795b59862.tar
drakx-a40d88910f0b00596e578200618b750795b59862.tar.gz
drakx-a40d88910f0b00596e578200618b750795b59862.tar.bz2
drakx-a40d88910f0b00596e578200618b750795b59862.tar.xz
drakx-a40d88910f0b00596e578200618b750795b59862.zip
*** empty log message ***
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index ebb40a7e9..4e27848ee 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -39,6 +39,7 @@ sub zips() { grep { $_->{type} =~ /.d/ && isZipDrive($_) } get(); }
sub ide_zips() { grep { $_->{type} =~ /.d/ && isZipDrive($_) } getIDE(); }
#-sub jazzs() { grep { $_->{type} =~ /.d/ && isJazDrive($_) } get(); }
sub ls120s() { grep { $_->{type} =~ /.d/ && isLS120Drive($_) } get(); }
+sub usbfdus() { grep { $_->{type} =~ /.d/ && isUSBFDUDrive($_) } get(); }
sub cdroms() {
my @l = grep { $_->{type} eq 'cdrom' } get();
if (my @l2 = getIDEBurners()) {
@@ -54,14 +55,16 @@ sub cdroms() {
}
sub floppies() {
my @ide = map { $_->{device} } ls120s() and modules::load("ide-floppy");
- (@ide, grep { tryOpen($_) } qw(fd0 fd1));
+ my @scsi, map { $_->{device} } usbfdus();
+ (@ide, @scsi, grep { tryOpen($_) } qw(fd0 fd1));
}
#- example ls120, model = "LS-120 SLIM 02 UHD Floppy"
sub isZipDrive() { $_[0]->{info} =~ /ZIP\s+\d+/ } #- accept ZIP 100, untested for bigger ZIP drive.
#-sub isJazzDrive() { $_[0]->{info} =~ /JAZZ?\s+/ } #- untested.
-sub isLS120Drive() { $_[0]->{info} =~ /LS-?120/ } #- accept ZIP 100, untested for bigger ZIP drive.
-sub isRemovableDrive() { &isZipDrive || &isLS120Drive } #-or &isJazzDrive }
+sub isLS120Drive() { $_[0]->{info} =~ /LS-?120/ }
+sub isUSBFDUDrive() { $_[0]->{info} =~ /USB-?FDU/ }
+sub isRemovableDrive() { &isZipDrive || &isLS120Drive || &isUSBFDUDrive } #-or &isJazzDrive }
sub hasSCSI() {
local *F;