From ac022583859306b7b63c3773072337a9cec48256 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Mon, 17 Feb 2003 13:37:57 +0000
Subject: - Fixed bug of HP DeskJetb 990C being automatically installed even if
   there is already a queue for it - Fixed checking whether a device is known
 to CUPS

---
 perl-install/printer/main.pm | 32 +++++++++++++++++++++-----------
 1 file changed, 21 insertions(+), 11 deletions(-)

diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 84fbaf1aa..df75d892c 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -111,21 +111,25 @@ sub assure_device_is_available_for_cups {
     # file:/dev/null instead. Restart CUPS if necessary to assure that
     # CUPS knows the device.
     my ($device) = @_;
+    my $sdevice = handle_configs::searchstr($device);
     my ($result, $i);
-    for ($i = 0; $i < 3; $i++) {
+    # USB printers get special model-dependent URLs in "lpinfo -v" here
+    # checking is complicated, so we simply restart CUPS then and ready.
+    my $maxattempts = ($device =~ /usb/ ? 1 : 3);
+    for ($i = 0; $i < $maxattempts; $i++) {
 	local *F; 
 	open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
 	    "/bin/sh -c \"export LC_ALL=C; /usr/sbin/lpinfo -v\" |" or
 	    die "Could not run \"lpinfo\"!";
 	while (my $line = <F>) {
-	    if ($line =~ /$device/) { # Found a line containing the device
-		                      # name, so CUPS knows it.
+	    if ($line =~ /$sdevice/) { # Found a line containing the device
+		                       # name, so CUPS knows it.
 		close F;
 		return 1;
 	    }
 	}
 	close F;
-	$result = SIGHUP_daemon("cups");
+	$result = printer::services::restart("cups");
     }
     return $result;
 }
@@ -1939,14 +1943,20 @@ sub autodetectionentry_for_uri {
 	    $serial =~ s/\%20/ /g;
 	    $make =~ s/Hewlett[-\s_]Packard/HP/;
 	    $make =~ s/HEWLETT[-\s_]PACKARD/HP/;
+	    my $smake = handle_configs::searchstr($make);
+	    my $smodel = handle_configs::searchstr($model);
 	    foreach my $p (@autodetected) {
-		next if (!$p->{val}{MANUFACTURER} or
-			 ($p->{val}{MANUFACTURER} ne $make));
-		next if (!$p->{val}{MODEL} or
-			 ($p->{val}{MODEL} ne $model));
-		next if ((!$p->{val}{SERIALNUMBER} and $serial) or
-			 ($p->{val}{SERIALNUMBER} and !$serial) or
-			 ($p->{val}{SERIALNUMBER} ne $serial));
+		next if ((!$p->{val}{MANUFACTURER} or
+			  ($p->{val}{MANUFACTURER} ne $make)) and
+			 (!$p->{val}{DESCRIPTION} or
+			  ($p->{val}{DESCRIPTION} !~ /^\s*$smake\s+/)));
+		next if ((!$p->{val}{MODEL} or
+			  ($p->{val}{MODEL} ne $model)) and
+			 (!$p->{val}{DESCRIPTION} or
+			  ($p->{val}{DESCRIPTION} !~ /\s+$smodel\s*$/)));
+		next if ($serial and
+			 (!$p->{val}{SERIALNUMBER} or
+			  ($p->{val}{SERIALNUMBER} ne $serial)));
 		return $p;
 	    }
 	}
-- 
cgit v1.2.1