*** empty log message ***

3 files changed, 29 insertions, 7 deletions

diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 974ed80da..905162589 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,11 @@
+2000-09-04  François Pons  <fpons@mandrakesoft.com>
+
+	* printerdrake.pm: added pnm2ppa and lm110 support in cups
+	configuration. probe for printer device (parallel) and try to
+	install usb for printer.
+	* printer.pm: removed local printer configuration for cups (keep
+	only local configuration using URI).
+
 2000-09-01  François Pons  <fpons@mandrakesoft.com>
 
 	* Xconfigurator.pm: fixes to configure XF86Config-4 when XFree-3.3
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 40c034282..4338afed8 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -44,7 +44,7 @@ sub default_spooldir($) { "/var/spool/lpd/" . default_queue($_[0]) }
 sub default_printer_type($) { ($_[0]{mode} eq /cups/ && "URI_") . "LOCAL" }
 sub printer_type($) {
     for ($_[0]{mode}) {
-	/cups/ && return @printer_type_inv{qw(URI_LOCAL URI_NET LOCAL REMOTE SMB)};
+	/cups/ && return @printer_type_inv{qw(URI_LOCAL URI_NET REMOTE SMB)};
 	/lpr/  && return @printer_type_inv{qw(LOCAL REMOTE SMB NCP)};
     }
 }
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index fae5f3cf5..0570bd693 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -48,13 +48,9 @@ sub setup_local($$$) {
 _("Printer Device") => {val => \$printer->{DEVICE}, list => \@port } ],
 					 );
 
-    #- make the DeviceURI from DEVICE.
-    $printer->{DeviceURI} = ($printer->{DEVICE} =~ /usb/ ? "usb:" : "parallel:") . $printer->{DEVICE};
-
-    #- select right DBENTRY according to device selected. #- TODO with cups (keep all configuration files)
     foreach (@parport) {
 	$printer->{DEVICE} eq $_->{port} or next;
-	$printer->{DBENTRY} = $printer::descr_to_db{common::bestMatchSentence2($parport[0]{val}{DESCRIPTION},
+	$printer->{DBENTRY} = $printer::descr_to_db{common::bestMatchSentence2($_->{val}{DESCRIPTION},
 									       @printer::entry_db_description)};
     }
     1;
@@ -63,12 +59,26 @@ _("Printer Device") => {val => \$printer->{DEVICE}, list => \@port } ],
 sub setup_uri_local($$$) {
     my ($printer, $in, $install) = @_;
 
+    my @str = ();
+    my @parport = auto_detect($in);
+    foreach (@parport) {
+	$_->{val}{DESCRIPTION} and push @str, _("A printer, model \"%s\", has been detected on ",
+						$_->{val}{DESCRIPTION}) . $_->{port};
+    }
+
     my @direct_uri = printer::get_direct_uri();
+    @parport and $printer->{DeviceURI} = ($parport[0]{port} =~ /usb/ ? "usb:" : "parallel:") . $parport[0]{port};
+
     return if !$in->ask_from_entries_refH(_("Local Printer Device (URI)"),
 					  _("What URI device is your printer connected to
-(note that parallel:/dev/lp0 is equivalent to LPT1:)?"), [
+(note that parallel:/dev/lp0 is equivalent to LPT1:)?\n") . (join "\n", @str), [
 _("Printer Device URI") => { val => \$printer->{DeviceURI}, list => \@direct_uri } ],
                                          );
+
+    foreach (@parport) {
+	(split ':', $printer->{DeviceURI})[1] eq $_->{port} or next;
+        $printer->{cupsDescr} = common::bestMatchSentence2($_->{val}{DESCRIPTION}, keys %printer::descr_to_ppd);
+    }
    1;
 }
 
@@ -176,6 +186,10 @@ sub setup_gsdriver_cups($$$;$) {
 						       [ keys %printer::descr_to_ppd ], $printer->{cupsDescr}) or return;
 	$printer->{cupsPPD} = $printer::descr_to_ppd{$printer->{cupsDescr}};
 
+	#- install additional filter according to PPD files.
+	$printer->{cupsPPD} =~ /-pnm2ppa\.ppd/ and &$install('pnm2ppa');
+	$printer->{cupsPPD} =~ /-lm1100\.ppd/ and &$install('Lexmark-1100-printer-driver__lm1100');
+
 	$printer->{complete} = 1;
 	printer::copy_printer_params($printer, $printer->{configured}{$printer->{QUEUE}} ||= {});
 	printer::configure_queue($printer);