diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer.pm | 21 | ||||
| -rw-r--r-- | perl-install/printerdrake.pm | 34 |
2 files changed, 54 insertions, 1 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm index d75e03e76..2d6aec788 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -1418,6 +1418,12 @@ sub copy_foomatic_queue { "-C", $oldspooler, $oldqueue); } +# ------------------------------------------------------------------ +# +# Configuration of HP multi-function devices +# +# ------------------------------------------------------------------ + sub configure_hpoj { my ($device, @autodetected) = @_; # Get the model ID as auto-detected @@ -1520,6 +1526,21 @@ sub configure_hpoj { return $ptaldevice; } +sub config_sane { + my ($ptaldevice) = @_; + + # Create config file for HP backend + output("$prefix/etc/sane.d/hp.conf", + "$ptaldevice\noption connect-ptal\n"); + + # Add HP backend to /etc/sane.d/dll.conf if needed + return if member("hp", chomp_(cat_("$prefix/etc/sane.d/dll.conf"))); + local *F; + open F, ">> $prefix/etc/sane.d/dll.conf" or + die "can't write SANE config in /etc/sane.d/dll.conf: $!"; + print F "hp\n"; + close F; +} #-###################################################################################### #- Wonderful perl :( diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 8cdd5c3cc..9870da0d8 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -469,6 +469,36 @@ _(" (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1 # Configure and start HPOJ $ptaldevice = printer::configure_hpoj($device, @parport); + # Configure scanning on the MF device + if (($menuchoice =~ /HP OfficeJet\s+[KVRGP]/i) || + ($menuchoice =~ /HP PSC\s+[579]/i)) { + # Install SANE + if ((!$::testing) && + (!printer::files_exist((qw(/usr/bin/scanimage + /usr/bin/xscanimage + /usr/bin/xsane + /etc/sane.d/dll.conf), + (printer::files_exist + ('/usr/bin/gimp') ? + '/usr/bin/xsane-gimp' : ()))))) { + my $w = $in->wait_message('', _("Installing SANE package...")); + $in->do_pkgs->install('sane-backends', 'sane-frontends', 'xsane', if_($in->do_pkgs->is_installed('gimp'),'xsane-gimp')); + } + # Configure the HP SANE backend + printer::config_sane($ptaldevice); + # Inform user about how to scan with SANE + $in->ask_warn(_("Scanning on your HP multi-function device"), + _("Your HP multi-function device was configured automatically to be able to scan. Now you can scan with \"scanimage\" (\"scanimage -d hp:%s\" to specify the scanner when you have more than one) from the command line or with the graphical interfaces \"xscanimage\" or \"xsane\". If you are using the GIMP, you can also scan by choosing the appropriate point in the \"File\"/\"Acquire\" menu. Call also \"man scanimage\" and \"man sane-hp\" on the command line to get more information. +Do not use \"scannerdrake\" for this device!", + $ptaldevice)); + } else { + # Inform user about how to scan with ptal-hp + $in->ask_warn(_("Scanning on your HP multi-function device"), + _("Your HP multi-function device was configured automatically to be able to scan. Now you can scan from the command line with \"ptal-hp %s scan ...\". Scanning via a graphical interface or from the GIMP is not supported yet for your device. More information you will find in the \"/usr/share/doc/hpoj-0.8/ptal-hp-scan.html\" on your system. If you have an HP LaserJet 1100 or 1200 you can only scan when you have the scanner option installed. +Do not use \"scannerdrake\" for this device!", + $ptaldevice)); + } + # make the DeviceURI from $device. $printer->{currentqueue}{'connect'} = "ptal:/" . $ptaldevice; } else { @@ -2295,7 +2325,8 @@ sub main { #- Do all the configuration steps for a new queue if (0 && (!$::expert) && (!$::isEmbedded) && (!$::isInstall) && ($in->isa('interactive_gtk'))) { - $window = 'interactive'->vnew(0, 'printer'); + #$window = 'interactive'->vnew(0, 'printer'); + $window = $in; # Enter wizard mode $::Wizard_pix_up = "wiz_printerdrake.png"; $::Wizard_title = _("Add a new printer"); @@ -2338,6 +2369,7 @@ sub main { $::Wizard_finished = 1; wizard_congratulations($window); undef $::isWizard; + $::WizardWindow->destroy if defined $::WizardWindow; } $continue = ($::expert || !$::isInstall || $menushown || $in->ask_yesorno('',_("Do you want to configure another printer?"))); |