diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-12 21:41:27 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-12 21:41:27 +0000 |
| commit | cc1544f519cec27e9872bc04077b0dd0161b6845 (patch) | |
| tree | d5f710c98243fd196ff728dc58e7ed1ed05e3d27 /perl-install/printer.pm | |
| parent | e025fbd6340efa676817f635c36835874485476e (diff) | |
| download | drakx-cc1544f519cec27e9872bc04077b0dd0161b6845.tar drakx-cc1544f519cec27e9872bc04077b0dd0161b6845.tar.gz drakx-cc1544f519cec27e9872bc04077b0dd0161b6845.tar.bz2 drakx-cc1544f519cec27e9872bc04077b0dd0161b6845.tar.xz drakx-cc1544f519cec27e9872bc04077b0dd0161b6845.zip | |
Check files before checking RPM database => Acceleration, waiting windows
Diffstat (limited to 'perl-install/printer.pm')
| -rw-r--r-- | perl-install/printer.pm | 10 |
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}, |