summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-06 18:54:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-06 18:54:31 +0000
commitcca092a8c7c4be4a5874935a790877d949ef238a (patch)
tree920eed6c76a78ef8bfec848893310dca8fbd67c0 /perl-install
parentc91b9d49efe2f49f5a938f675c2fcc69c9db9758 (diff)
downloaddrakx-cca092a8c7c4be4a5874935a790877d949ef238a.tar
drakx-cca092a8c7c4be4a5874935a790877d949ef238a.tar.gz
drakx-cca092a8c7c4be4a5874935a790877d949ef238a.tar.bz2
drakx-cca092a8c7c4be4a5874935a790877d949ef238a.tar.xz
drakx-cca092a8c7c4be4a5874935a790877d949ef238a.zip
- rename scanner::findScannerUsbport as scanner::detect
as in mouse.pm - scanner::detect : detect SCSI scanners too
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/data.pm2
-rwxr-xr-xperl-install/scanner.pm12
-rwxr-xr-xperl-install/standalone/scannerdrake4
3 files changed, 10 insertions, 8 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index d7eb38011..4cd4e957e 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -63,7 +63,7 @@ our @tree =
require printerdrake; printerdrake::auto_detect(class_discard->new) } ],
["SCANNER","Scanner", "scanner.png", "$sbindir/scannerdrake",
sub {
- require scanner; scanner::findScannerUsbport() }],
+ require scanner; scanner::detect() }],
["MOUSE","Mouse", "hw_mouse.png", "$sbindir/mousedrake", sub {
require mouse; &mouse::detect() } ],
["JOYSTICK","Joystick", "joystick.png", "", sub {}],
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 995a2f2e4..1bc381c9d 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -51,7 +51,7 @@ sub add2dll {
close F;
}
-sub findScannerUsbport {
+sub detect {
my ($i, $elem, @res) = (0, {});
foreach (grep { $_->{driver} =~ /scanner/ } detect_devices::usb_probe()) {
#my ($manufacturer, $model) = split '\|', $_->{description};
@@ -65,14 +65,16 @@ sub findScannerUsbport {
}};
++$i;
}
+ foreach ({$_->{media_type} =~ /scanner/ } detect_devices::getSCSI()) {
+ push @res, { port => "/dev/usb/scanner$i",
+ val => { DESCRIPTION => $_->{info} },
+ };
+ ++$i;
+ }
@res;
}
-sub findScannerScsi {
-
-}
-
sub readScannerDB {
my ($file) = @_;
my ($card, %cards);
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index 1f6242987..f7406e332 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -39,7 +39,7 @@ $in = 'interactive'->vnew('su', 'default');
$in->do_pkgs->install('sane-backends', 'xsane', if_($in->do_pkgs->is_installed('gimp'),'xsane-gimp'));
if ($::Manual) { manual(); quit() }
my $wait = $in->wait_message(_("Test ports"), _("Detecting devices ..."));
-@f = scanner::findScannerUsbport();
+@f = scanner::detect();
$wait=undef;
(@f) ? auto() : manual();
quit();
@@ -62,7 +62,7 @@ sub manual {
}
sub dynamic {
- @f = scanner::findScannerUsbport();
+ @f = scanner::detect();
foreach (@f) {
if (member($_->{val}{DESCRIPTION}), keys %$scanner::scannerDB) {
my $name = $_->{val}{DESCRIPTION};