summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-04-25 16:12:35 +0000
committerFrancois Pons <fpons@mandriva.com>2000-04-25 16:12:35 +0000
commit25946f2b1829f207aab844f3464ce515a50f15cc (patch)
treea6141f24a052d20499f34fb6ea92738273eacd79 /perl-install/printerdrake.pm
parent4a62fb92b80fad9ba61cf0b4dd74fc5b03dcd94d (diff)
downloaddrakx-25946f2b1829f207aab844f3464ce515a50f15cc.tar
drakx-25946f2b1829f207aab844f3464ce515a50f15cc.tar.gz
drakx-25946f2b1829f207aab844f3464ce515a50f15cc.tar.bz2
drakx-25946f2b1829f207aab844f3464ce515a50f15cc.tar.xz
drakx-25946f2b1829f207aab844f3464ce515a50f15cc.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 162ec798c..3ae4bba8f 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -112,8 +112,8 @@ _("Password") => {val => \$printer->{NCPPASSWD}, hidden => 1} ],
1;
}
-sub setup_gsdriver($$) {
- my ($printer, $in) = @_;
+sub setup_gsdriver($$$) {
+ my ($printer, $in, $install) = @_;
my $action;
my @action = qw(ascii ps both done);
my %action = (
@@ -137,6 +137,9 @@ sub setup_gsdriver($$) {
my %db_entry = %{$printer::thedb{$printer->{DBENTRY}}};
+ #- specific printer driver to install.
+ &$install('pnm2ppa') if $db_entry{GSDRIVER} eq 'ppa';
+
my @list_res = @{$db_entry{RESOLUTION} || []};
my @res = map { "$_->{XDPI}x$_->{YDPI}" } @list_res;
my @list_col = @{$db_entry{BITSPERPIXEL} || []};
@@ -290,7 +293,7 @@ _("Printer Connection") => { val => \$printer->{str_type}, not_edit => 1, list =
}
#- configure ghostscript driver to be used.
- if (!$continue && setup_gsdriver($printer, $in)) {
+ if (!$continue && setup_gsdriver($printer, $in, $install)) {
delete $printer->{OLD_QUEUE}
if $printer->{QUEUE} ne $printer->{OLD_QUEUE} && $printer->{configured}{$printer->{QUEUE}};
$continue = !$::beginner;