From c964a8a94582092b30b6133ffcfc5617ed86914f Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Thu, 4 Aug 2005 19:12:48 +0000 Subject: - Added special handling for the "capt" driver (Canon LBP-810/1120 winprinters). --- perl-install/printer/printerdrake.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'perl-install/printer/printerdrake.pm') diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index f7f22598e..3ddf80239 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -3372,6 +3372,22 @@ sub get_printer_info { # This is needed to have the device not blocked by the # spooler backend. $printer->{currentqueue}{connect} = 'file:/dev/null'; + } elsif (($printer->{currentqueue}{driver} =~ + m!^\s*capt\s*$!) || + ($printer->{currentqueue}{ppd} && + ($printer->{currentqueue}{ppd} =~ + m!Canon-LBP-\d*-capt.ppd!))) { + # Check whether printer is on USB + if ($printer->{currentqueue}{connect} !~ + m!^\s*(usb):!) { + $::noX || + $in->ask_warn(N("Canon LBP-810/1120 (CAPT) configuration"), + N("The driver for this printer only supports printers locally connected via USB, no printers on remote machines or print server boxes or on the parallel port. Please connect your printer to the USB or configure it on the machine where it is directly connected to.")); + return 0; + } + # This is needed to have the device not blocked by the + # spooler backend. + $printer->{currentqueue}{connect} = 'file:/dev/null'; } elsif ($printer->{currentqueue}{printer} eq 'HP-LaserJet_1000') { $in->ask_warn(N("Firmware-Upload for HP LaserJet 1000"), $hp1000fwtext); -- cgit v1.2.1