summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-08-12 21:41:27 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-08-12 21:41:27 +0000
commitcc1544f519cec27e9872bc04077b0dd0161b6845 (patch)
treed5f710c98243fd196ff728dc58e7ed1ed05e3d27 /perl-install/printer.pm
parente025fbd6340efa676817f635c36835874485476e (diff)
downloaddrakx-backup-do-not-use-cc1544f519cec27e9872bc04077b0dd0161b6845.tar
drakx-backup-do-not-use-cc1544f519cec27e9872bc04077b0dd0161b6845.tar.gz
drakx-backup-do-not-use-cc1544f519cec27e9872bc04077b0dd0161b6845.tar.bz2
drakx-backup-do-not-use-cc1544f519cec27e9872bc04077b0dd0161b6845.tar.xz
drakx-backup-do-not-use-cc1544f519cec27e9872bc04077b0dd0161b6845.zip
Check files before checking RPM database => Acceleration, waiting windows
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index a592dbcb8..9ed8dbb90 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -110,6 +110,14 @@ sub stop_service ($) {
|| die "Could not stop $service!";
}
+sub files_exist {
+ my @files = @_;
+ for (@files) {
+ if (! -f "$prefix$_") {return 0;}
+ }
+ return 1;
+}
+
sub copy_printer_params($$) {
my ($from, $to) = @_;
map { $to->{$_} = $from->{$_} } grep { $_ ne 'configured' } keys %$from;
@@ -750,7 +758,7 @@ sub print_pages($@) {
# images must be treated seperately
if ($page =~ /\.jpg$/) {
system(($::testing ? "$prefix" : "chroot $prefix/ ") .
- "convert $page -page 427x654+100+65 PS:- | " .
+ "/usr/bin/convert $page -page 427x654+100+65 PS:- | " .
"$lpr -s $printer->{SPOOLER} -P $queue");
} else {
run_program::rooted($prefix, $lpr, "-s", $printer->{SPOOLER},