From 11725c693bfdf12e7f221e653476844c835f1276 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Tue, 27 Aug 2002 01:11:27 +0000
Subject: Set default text margins to half an inch and default size for images
 to be printed to the full page.

---
 perl-install/printer.pm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

(limited to 'perl-install/printer.pm')

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 9255411c9..d5bc1e22b 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -1052,6 +1052,29 @@ sub read_cups_options ($) {
     return \@args;
 }
 
+sub set_cups_special_options {
+    my ($queue) = $_[0];
+    # Set some special CUPS options
+    my @lpoptions = chomp_(cat_("$prefix/etc/cups/lpoptions"));
+    # If nothing is already configured, set text file borders of half an inch
+    # and decrease the font size a little bit, so nothing of the text gets
+    # cut off by unprintable borders.
+    if(!grep {/$queue.*\s(page-(top|bottom|left|right)|lpi|cpi)=/} @lpoptions){
+	run_program::rooted($prefix, "lpoptions",
+			    "-p", $queue,
+			    "-o", "page-top=36", "-o", "page-bottom=36",
+			    "-o", "page-left=36", "-o page-right=36",
+			    "-o", "cpi=12", "-o", "lpi=7", "-o", "wrap");
+    }
+    # Let images fill the whole page by default
+    if (!grep {/$queue.*\s(scaling|natural-scaling|ppi)=/} @lpoptions) {
+	run_program::rooted($prefix, "lpoptions",
+			    "-p", $queue,
+			    "-o", "scaling=100");
+    }
+    return 1;
+}
+
 #------------------------------------------------------------------------------
 
 sub read_cups_printer_list {
@@ -1418,6 +1441,11 @@ sub configure_queue($) {
 			    "-C", "up", $printer->{currentqueue}{queue});
     }
 
+    # In case of CUPS set some more useful defaults for text and image printing
+    if ($printer->{SPOOLER} eq "cups") {
+	set_cups_special_options($printer->{currentqueue}{queue});
+    }
+
     # Check whether a USB printer is configured and activate USB printing if so
     my $useUSB = 0;
     foreach (values %{$printer->{configured}}) {
@@ -1682,6 +1710,10 @@ sub copy_foomatic_queue {
 			"-s", $printer->{SPOOLER},
 			"-n", $newqueue,
 			"-C", $oldspooler, $oldqueue);
+    # In case of CUPS set some more useful defaults for text and image printing
+    if ($printer->{SPOOLER} eq "cups") {
+	set_cups_special_options($newqueue);
+    }
 }
 
 # ------------------------------------------------------------------
-- 
cgit v1.2.1