X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FHelper%2FCreatePDF.pm;h=c5c02e2cab98a8573b4c43a3048b80bc30b90e23;hb=6318154749c0e0ea66c70a122622742a7d1c84cc;hp=555e75d7374c16b5b00b27bf85948e60f14d844f;hpb=fa7fc7eeb3ca718914affee06c0629a08d571288;p=kivitendo-erp.git diff --git a/SL/Helper/CreatePDF.pm b/SL/Helper/CreatePDF.pm index 555e75d73..c5c02e2ca 100644 --- a/SL/Helper/CreatePDF.pm +++ b/SL/Helper/CreatePDF.pm @@ -6,12 +6,13 @@ use Carp; use Cwd; use English qw(-no_match_vars); use File::Slurp (); -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; @@ -28,30 +29,45 @@ our %EXPORT_TAGS = ( sub create_pdf { 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} = 'pdf'; - $form->{cwd} = getcwd(); - $form->{templates} = $::instance_conf->get_templates; - $form->{IN} = $params{template}; - $form->{tmpdir} = $form->{cwd} . '/' . $userspath; - my ($suffix) = $params{template} =~ m{\.(.+)}; - - my $temp_fh; - ($temp_fh, $form->{tmpfile}) = File::Temp::tempfile( + return __PACKAGE__->create_parsed_file( + format => 'pdf', + template_type => 'LaTeX', + %params, + ); +} + +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 ($temp_fh, $tmpfile) = File::Temp::tempfile( 'kivitendo-printXXXXXX', SUFFIX => ".${suffix}", - DIR => $userspath, - UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1, + DIR => $form->{tmpdir}, + UNLINK => $::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files}, ); - my $parser = SL::Template::LaTeX->new( - $form->{IN}, - $form, - \%::myconfig, - $userspath, + $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, + variable_content_types => $params{variable_content_types}, ); my $result = $parser->parse($temp_fh); @@ -64,42 +80,117 @@ sub create_pdf { die $parser->get_error; } + # SL::Template:** modify $form->{tmpfile} by removing its + # $form->{userspath} prefix. They also store the final file's actual + # file name in $form->{tmpfile} – but it is now relative to + # $form->{userspath}. Other modules return the full file name… + my ($volume, $directory, $file_name) = File::Spec->splitpath($form->{tmpfile}); + my $full_file_name = File::Spec->catfile($tmpdir, $file_name); if (($params{return} || 'content') eq 'file_name') { - my $new_name = $userspath . '/keep-' . $form->{tmpfile}; - rename $userspath . '/' . $form->{tmpfile}, $new_name; + my $new_name = File::Spec->catfile($tmpdir, 'keep-' . $form->{tmpfile}); + rename $full_file_name, $new_name; $form->cleanup; return $new_name; } - my $pdf = File::Slurp::read_file($userspath . '/' . $form->{tmpfile}); + my $content = File::Slurp::read_file($full_file_name); $form->cleanup; - return $pdf; + 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); } @@ -188,7 +279,14 @@ SL::Helper::CreatePDF - A helper for creating PDFs from template files =item C Parses a LaTeX template file, creates a PDF for it and returns either -its content or its file name. The recognized parameters are: +its content or its file name. The recognized parameters are the same +as the ones for L with C and +C being pre-set. + +=item C + +Parses a template file and returns either its content or its file +name. The recognized parameters are: =over 2 @@ -206,6 +304,14 @@ caller is responsible for deleting it. Otherwise a scalar containing the PDF itself is returned and all temporary files have already been deleted by L. +=item * C – optional, defaults to C and determines the +output format. Can be set to C for HTML output if +C is set to C as well. + +=item * C – optional, defaults to C and +determines the template's format. Can be set to C for HTML +output if C is set to C as well. + =back =item C @@ -260,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 @@ -267,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