diff options
Diffstat (limited to 'perl-install/printer')
| -rw-r--r-- | perl-install/printer/main.pm | 17 | ||||
| -rw-r--r-- | perl-install/printer/printerdrake.pm | 62 |
2 files changed, 71 insertions, 8 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm index 405c2f353..6af5aad63 100644 --- a/perl-install/printer/main.pm +++ b/perl-install/printer/main.pm @@ -2524,6 +2524,23 @@ sub start_hplip { return undef; } +sub start_hplip_manual { + + # Start HPLIP daemons + printer::services::start_not_running_service("hplip"); + + # Return all possible device URIs + open(my $F, ($::testing ? $::prefix : "chroot $::prefix/ ") . + '/bin/sh -c "export LC_ALL=C; /usr/lib/cups/backend/hp" |') or + die 'Could not run "/usr/lib/cups/backend/hp"!'; + my @uris; + while (<$F>) { + m!^direct\s+(hp:\S+)\s+!; + push(@uris, $1); + } + return @uris; +} + sub configure_hpoj { my ($device, @autodetected) = @_; diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index 150f09055..d4e03b7c5 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -2052,6 +2052,7 @@ sub setup_common { my $hplipdevice = ""; my $ptaldevice = ""; my $isHPOJ = 0; + my $isHPLIP = 0; my $w; if ($device =~ m!^/dev/! || $device =~ m!^socket://!) { # Ask user whether he has a multi-function device when he did not @@ -2062,14 +2063,34 @@ sub setup_common { $makemodel =~ /^\s*$/) { local $::isWizard = 0; if (!$printer->{noninteractive}) { - $isHPOJ = $in->ask_yesorno(N("Add a new printer"), - N("Is your printer a multi-function device from HP or Sony (OfficeJet, PSC, LaserJet 1100/1200/1220/3000/3200/3300/4345 with scanner, DeskJet 450, Sony IJP-V100), an HP PhotoSmart or an HP LaserJet 2200?"), 0); + if (($device =~ m!/usb/!) && + ($printer->{SPOOLER} eq 'cups')) { + my $choice = $in->ask_from_list + (N("Add a new printer"), + N("On many HP printers there are special functions available, maintenance (ink level checking, nozzle cleaning. head alignment, ...) on all not too old inkjets, scanning on multi-function devices, and memory card access on printers with card readers. ") . + "\n\n" . + N("To access these extra functions on your HP printer, it must be set up with the appropriate software: ") . + N("Either with the newer HPLIP which allows printer maintenance through the easy-to-use graphical application \"Toolbox\" and four-edge full-bleed on newer PhotoSmart models ") . + N("or with the older HPOJ which allows only scanner and memory card access, but could help you in case of failure of HPLIP. ") . + "\n\n" . + N("What is your choice (choose \"None\" for non-HP printers)? "), + [N("None"), N("HPLIP"), N("HPOJ")], N("None")); + if ($choice eq N("HPLIP")) { + $isHPLIP = 1; + } elsif ($choice eq N("HPOJ")) { + $isHPOJ = 1; + } + } else { + $isHPOJ = $in->ask_yesorno(N("Add a new printer"), + N("Is your printer a multi-function device from HP or Sony (OfficeJet, PSC, LaserJet 1100/1200/1220/3000/3200/3300/4345 with scanner, DeskJet 450, Sony IJP-V100), an HP PhotoSmart or an HP LaserJet 2200?"), 0); + } } } my $hplipentry; if (($printer->{SPOOLER} eq 'cups') && - ($hplipentry = - printer::main::hplip_device_entry($device, @autodetected))) { + (($hplipentry = + printer::main::hplip_device_entry($device, @autodetected)) || + $isHPLIP)) { # Device is supported by HPLIP # Install HPLIP packages @@ -2099,10 +2120,35 @@ sub setup_common { N("Printerdrake"), N("Checking device and configuring HPLIP...")) if !$printer->{noninteractive}; - - $hplipdevice = printer::main::start_hplip - ($device, $hplipentry, @autodetected) if - !$hplipinstallfailed; + + if (!$hplipinstallfailed) { + if ($isHPLIP) { + my @uris = printer::main::start_hplip_manual(); + my @menu; my %menuhash; + for my $item (@uris) { + if ($item =~ m!^hp:/(usb|par|net)/(\S*?)(\?\S*|)$!){ + my $modelname = "HP " . $2; + $modelname =~ s/_/ /g; + push(@menu, $modelname); + $menuhash{$modelname} = $item; + } + } + undef $w; + local $::isWizard = 0; + my $choice = $in->ask_from_list + (N("Add a new printer"), + N("Which printer do you want to set up with HPLIP?"), + \@menu, $menu[0]); + $hplipdevice = $menuhash{$choice}; + $hplipentry = + printer::main::hplip_device_entry_from_uri + ($hplipdevice); + $makemodel = $choice; + } else { + $hplipdevice = printer::main::start_hplip + ($device, $hplipentry, @autodetected); + } + } if ($hplipdevice) { # Configure scanning with SANE on HP's MF devices |