From 6fc5687012cc534798cc97a3fd9193d768b86a90 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Thu, 12 May 2005 06:05:20 +0000 Subject: - Let Gutenprint GIMP plug-in be installed by printerdrake when GIMP is installed. --- perl-install/printer/data.pm | 6 +++++- perl-install/printer/printerdrake.pm | 4 ++++ 2 files changed, 9 insertions(+), 1 deletion(-) (limited to 'perl-install/printer') diff --git a/perl-install/printer/data.pm b/perl-install/printer/data.pm index c07620761..0f5cad96c 100644 --- a/perl-install/printer/data.pm +++ b/perl-install/printer/data.pm @@ -7,7 +7,7 @@ use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @EXPORT = qw(%spoolers %spooler_inv %shortspooler_inv $kernelversion $usbprintermodule - $commonpackages $localqueuepackages); + $commonpackages $gimpprintingpackages $localqueuepackages); # Kernel-specific data @@ -21,6 +21,10 @@ our $usbprintermodule = ($kernelversion eq '2.6' ? "usblp" : "printer"); our $commonpackages = [ [ 'foomatic-db-engine' ], [ '/usr/bin/foomatic-configure' ] ]; +# Packages which are needed to print with the GIMP +our $gimpprintingpackages = [ [ 'gutenprint-gimp2' ], + [ '/usr/lib/gimp/2.0/plug-ins/print' ] ]; + # Packages which are needed to create and manage local print queues our $localqueuepackages = [ [ 'foomatic-filters', 'foomatic-db', 'foomatic-db-hpijs', 'foomatic-db-engine', diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index 7418119cd..2d3eba81b 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -4321,6 +4321,10 @@ sub install_spooler { push (@{$packages->[1]}, @{$commonpackages->[1]}); push (@{$packages->[1]}, @{$localqueuepackages->[1]}) if $spoolers{$spooler}{local_queues}; + if (files_exist("/usr/bin/gimp") || files_exist("/usr/bin/gimp-2.2")) { + push (@{$packages->[0]}, @{$gimpprintingpackages->[0]}); + push (@{$packages->[1]}, @{$gimpprintingpackages->[1]}); + } if (@{$packages->[0]} && !files_exist(@{$packages->[1]})) { undef $w; $w = $o_in && $o_in->wait_message(N("Printerdrake"), N("Installing %s..."), $spoolers{$spooler}{short_name}); -- cgit v1.2.1