From cca092a8c7c4be4a5874935a790877d949ef238a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 6 Aug 2002 18:54:31 +0000
Subject: - rename scanner::findScannerUsbport  as scanner::detect   as in
 mouse.pm - scanner::detect : detect SCSI scanners too

---
 perl-install/harddrake/data.pm       |  2 +-
 perl-install/scanner.pm              | 12 +++++++-----
 perl-install/standalone/scannerdrake |  4 ++--
 3 files changed, 10 insertions(+), 8 deletions(-)

(limited to 'perl-install')

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};
-- 
cgit v1.2.1