From ea3ae2dd510dfd6fe6a3b12c802ee4ec8e0566c7 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Wed, 26 Feb 2003 18:58:45 +0000
Subject: Skip Alcatel Speed Touch ADSL Modem when it is detected by
 "sane-find-scanner"

---
 perl-install/scanner.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'perl-install/scanner.pm')

diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index a2e68a6a5..7f843bc3e 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -147,6 +147,9 @@ sub detect {
 	    # Comment line in output of "sane-find-scanner"
 	    next;
 	}
+	# The Alcatel Speed Touch internet scanner is not supported by
+	# SANE
+	next if $description =~ /Alcatel.*Speed.*Touch/i;
 	# Extract port
         $line =~ /\s+(\S+)\s*$/;
 	$port = $1;
@@ -190,7 +193,7 @@ sub detect {
 	    my $searchport2 = handle_configs::searchstr($d->{port2});
 	    foreach my $c (@configured) {
 		if ($c->{port} =~ /$searchport1$/ ||
-		    $c->{port} =~ /$searchport2$/) {
+		    ($searchport2 && $c->{port} =~ /$searchport2$/)) {
 		    $d->{configured} = 1;
 		    last;
 		}
@@ -375,12 +378,8 @@ sub updateScannerDBfromSane {
 		       s/\s+$//;
 		       /^\;/ and next;
 		       ($cmd, $val) = /:(\S+)\s*\"([^\;]*)\"/ or next; #log::l("bad line $lineno ($_)"), next;
-		       if ($f =~ /microtek/) {
-			   #print "##### |$cmd|$val|\n";
-		       }
 		       my $f = $fs->{$cmd};
 		       $f ? $f->() : log::l("unknown line $lineno ($_)");
-		       #$f ? $f->() : print "##### unknown line $lineno ($_)\n";
 		   }
 	$fs->{model}(); # the last one
     }
-- 
cgit v1.2.1