From 60a03f6dd42238553aa7947c22a8d3b9384130d6 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Wed, 8 Aug 2001 23:33:03 +0000
Subject: Different choosable test pages available now

---
 perl-install/printer.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 12e11f260..e916ce6df 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -673,8 +673,17 @@ sub print_pages($@) {
 
     # Print the pages
     foreach (@pages) {
-	run_program::rooted($prefix, $lpr, "-s", $printer->{SPOOLER},
-			    "-P", $queue, $_);
+	my $page = $_;
+	# Only text and PostScript can be printed directly with all spoolers,
+	# images must be treated seperately
+	if ($page =~ /\.jpg$/) {
+	    system(($::testing ? "$prefix" : "chroot $prefix/ ") .
+		"convert $page -page 427x654+100+65 PS:- | " .
+		   "$lpr -s $printer->{SPOOLER} -P $queue");
+	} else {
+	    run_program::rooted($prefix, $lpr, "-s", $printer->{SPOOLER},
+				"-P", $queue, $page);
+	}
     }
     sleep 5; #- allow lpr to send pages.
     # Check whether the job is queued
-- 
cgit v1.2.1