summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2005-08-04 19:12:48 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2005-08-04 19:12:48 +0000
commitc964a8a94582092b30b6133ffcfc5617ed86914f (patch)
treee17c6db88bf03232bdcf238d737d088f32a58cc6 /perl-install
parente28c2df42bab5f97e2b0a554f2838693d3ce7085 (diff)
downloaddrakx-c964a8a94582092b30b6133ffcfc5617ed86914f.tar
drakx-c964a8a94582092b30b6133ffcfc5617ed86914f.tar.gz
drakx-c964a8a94582092b30b6133ffcfc5617ed86914f.tar.bz2
drakx-c964a8a94582092b30b6133ffcfc5617ed86914f.tar.xz
drakx-c964a8a94582092b30b6133ffcfc5617ed86914f.zip
- Added special handling for the "capt" driver (Canon LBP-810/1120
winprinters).
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm16
1 files changed, 16 insertions, 0 deletions
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);