X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FHelper%2FCreatePDF.pm;h=c5c02e2cab98a8573b4c43a3048b80bc30b90e23;hb=f56f6f7ab8d14d1406884e6fa732c0aa01dda859;hp=fa1aafa2e02d67c838f87144f0cd588918eec54c;hpb=4cbea2baa3de65661940e00556ba1a250bee66a4;p=kivitendo-erp.git diff --git a/SL/Helper/CreatePDF.pm b/SL/Helper/CreatePDF.pm index fa1aafa2e..c5c02e2ca 100644 --- a/SL/Helper/CreatePDF.pm +++ b/SL/Helper/CreatePDF.pm @@ -6,13 +6,13 @@ use Carp; use Cwd; use English qw(-no_match_vars); use File::Slurp (); -use File::Spec (); -use File::Temp (); +use File::Spec (); +use File::Temp (); +use File::Copy qw(move); use List::MoreUtils qw(uniq); use List::Util qw(first); use String::ShellQuote (); -use SL::Form; use SL::Common; use SL::DB::Language; use SL::DB::Printer; @@ -39,34 +39,34 @@ sub create_pdf { sub create_parsed_file { my ($class, %params) = @_; - my $userspath = $::lx_office_conf{paths}->{userspath}; - my $vars = $params{variables} || {}; - my $form = Form->new(''); - $form->{$_} = $vars->{$_} for keys %{ $vars }; - $form->{format} = lc($params{format} || 'pdf'); - $form->{cwd} = getcwd(); - $form->{templates} = $::instance_conf->get_templates; - $form->{IN} = $params{template}; - $form->{tmpdir} = $form->{cwd} . '/' . $userspath; - my $tmpdir = $form->{tmpdir}; - my ($suffix) = $params{template} =~ m{\.(.+)}; + my $userspath = $::lx_office_conf{paths}->{userspath}; + my $vars = $params{variables} || {}; + my $form = Form->new(''); + $form->{$_} = $vars->{$_} for keys %{$vars}; + $form->{format} = lc($params{format} || 'pdf'); + $form->{cwd} = getcwd(); + $form->{templates} = $::instance_conf->get_templates; + $form->{IN} = $params{template}; + $form->{tmpdir} = $form->{cwd} . '/' . $userspath; + my $tmpdir = $form->{tmpdir}; + my ($suffix) = $params{template} =~ m{\.(.+)}; my ($temp_fh, $tmpfile) = File::Temp::tempfile( 'kivitendo-printXXXXXX', SUFFIX => ".${suffix}", DIR => $form->{tmpdir}, - UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1, + UNLINK => $::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files}, ); $form->{tmpfile} = $tmpfile; (undef, undef, $form->{template_meta}{tmpfile}) = File::Spec->splitpath($tmpfile); - my $parser = SL::Template::create( - type => ($params{template_type} || 'LaTeX'), - source => $form->{IN}, - form => $form, - myconfig => \%::myconfig, - userspath => $tmpdir, + my $parser = SL::Template::create( + type => ($params{template_type} || 'LaTeX'), + source => $form->{IN}, + form => $form, + myconfig => \%::myconfig, + userspath => $tmpdir, variable_content_types => $params{variable_content_types}, ); @@ -102,26 +102,95 @@ sub create_parsed_file { return $content; } +# +# Alternativen zu pdfinfo wären (aber wesentlich langamer): +# +# gs -dBATCH -dNOPAUSE -sDEVICE=pdfwrite -sOutputFile=/dev/null $filename | grep 'Processing pages' +# my (undef,undef,undef,undef,$pages) = split / +/,$shell_out; +# +# gs -dBATCH -dNOPAUSE -q -dNODISPLAY -c "($filename) (r) file runpdfbegin pdfpagecount = quit" +# $pages=$shell_out; +# + +sub has_odd_pages { + my ($class, $filename) = @_; + return 0 unless -f $filename; + my $shell_out = `pdfinfo $filename | grep 'Pages:'`; + my ($label, $pages) = split / +/, $shell_out; + return $pages & 1; +} + sub merge_pdfs { my ($class, %params) = @_; - - return scalar(File::Slurp::read_file($params{file_names}->[0])) if scalar(@{ $params{file_names} }) < 2; + my $filecount = scalar(@{ $params{file_names} }); + + if ($params{inp_content}) { + return $params{inp_content} if $filecount == 0 && !$params{out_path}; + } elsif ($params{out_path}) { + return 0 if $filecount == 0; + if ($filecount == 1) { + if (!rename($params{file_names}->[0], $params{out_path})) { + # special filesystem or cross filesystem etc + move($params{file_names}->[0], $params{out_path}); + } + return 1; + } + } else { + return '' if $filecount == 0; + return scalar(File::Slurp::read_file($params{file_names}->[0])) if $filecount == 1; + } my ($temp_fh, $temp_name) = File::Temp::tempfile( 'kivitendo-printXXXXXX', SUFFIX => '.pdf', DIR => $::lx_office_conf{paths}->{userspath}, - UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1, + UNLINK => $::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files}, ); close $temp_fh; - my $input_names = join ' ', String::ShellQuote::shell_quote(@{ $params{file_names} }); - my $exe = $::lx_office_conf{applications}->{ghostscript} || 'gs'; - my $output = `$exe -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile=${temp_name} ${input_names} 2>&1`; + my $input_names = ''; + my $hasodd = 0; + my $emptypage = ''; + if ($params{bothsided}) { + $emptypage = $::instance_conf->get_templates . '/emptyPage.pdf'; + unless (-f $emptypage) { + $emptypage = ''; + delete $params{bothsided}; + } + } + if ($params{inp_content}) { + my ($temp_fh, $inp_name) = File::Temp::tempfile( + 'kivitendo-contentXXXXXX', + SUFFIX => '.pdf', + DIR => $::lx_office_conf{paths}->{userspath}, + UNLINK => $::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files}, + ); + binmode $temp_fh; + print $temp_fh $params{inp_content}; + close $temp_fh; + $input_names = $inp_name . ' '; + $hasodd = $params{bothsided} && __PACKAGE__->has_odd_pages($inp_name); + } + foreach (@{ $params{file_names} }) { + $input_names .= $emptypage . ' ' if $hasodd; + $input_names .= String::ShellQuote::shell_quote($_) . ' '; + $hasodd = $params{bothsided} && __PACKAGE__->has_odd_pages($_); + } + my $exe = $::lx_office_conf{applications}->{ghostscript} || 'gs'; + my $output = + `$exe -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile=${temp_name} ${input_names} 2>&1`; die "Executing gs failed: $ERRNO" if !defined $output; die $output if $? != 0; + if ($params{out_path}) { + if (!rename($temp_name, $params{out_path})) { + + # special filesystem or cross filesystem etc + move($temp_name, $params{out_path}); + } + return 1; + } return scalar File::Slurp::read_file($temp_name); } @@ -297,6 +366,10 @@ names containing C<_printer_template_code> are considered as well. Merges two or more PDFs into a single PDF by using the external application ghostscript. +Normally the function returns the contents of the resulting PDF. +if The parameter C is set the resulting PDF is in this file +and the return value is 1 if it successful or 0 if not. + The recognized parameters are: =over 2 @@ -304,6 +377,10 @@ The recognized parameters are: =item * C – mandatory array reference containing the file names to merge. +=item * C – optional, contents of first file to merge with C. + +=item * C – optional, returns not the merged contents but wrote him into this file + =back Note that this function relies on the presence of the external