X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FHelper%2FCreatePDF.pm;fp=SL%2FHelper%2FCreatePDF.pm;h=06fb81918034af9cc8fcbb8624bae51be3b4c4db;hb=53593baa211863fbf66540cf1bcc36c8fb37257f;hp=d85ad7d8afaca10b60932de4a0e50e4f6b279135;hpb=deb4d2dbb676d7d6f69dfe7815d6e0cb09bd4a44;p=kivitendo-erp.git diff --git a/SL/Helper/CreatePDF.pm b/SL/Helper/CreatePDF.pm index d85ad7d8a..06fb81918 100644 --- a/SL/Helper/CreatePDF.pm +++ b/SL/Helper/CreatePDF.pm @@ -6,19 +6,22 @@ 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 Scalar::Util qw(blessed); use String::ShellQuote (); -use SL::Form; use SL::Common; use SL::DB::Language; use SL::DB::Printer; use SL::MoreCommon; +use SL::System::Process; use SL::Template; use SL::Template::LaTeX; +use SL::X; use Exporter 'import'; our @EXPORT_OK = qw(create_pdf merge_pdfs find_template); @@ -39,34 +42,53 @@ 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 $keep_temp_files = $::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files}; + my $userspath = SL::System::Process::exe_dir() . "/" . $::lx_office_conf{paths}->{userspath}; + my $temp_dir = File::Temp->newdir( + "kivitendo-print-XXXXXX", + DIR => $userspath, + CLEANUP => !$keep_temp_files, + ); + + my $vars = $params{variables} || {}; + my $form = Form->new(''); + $form->{$_} = $vars->{$_} for keys %{$vars}; + $form->{format} = lc($params{format} || 'pdf'); + $form->{cwd} = SL::System::Process::exe_dir(); + $form->{templates} = $::instance_conf->get_templates; + $form->{IN} = $params{template}; + $form->{tmpdir} = $temp_dir->dirname; + 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 => !$keep_temp_files, ); $form->{tmpfile} = $tmpfile; + (undef, undef, $form->{template_meta}{tmpfile}) = File::Spec->splitpath($tmpfile); + + my %driver_options; + eval { + %driver_options = _maybe_attach_zugferd_data($params{record}); + }; + + if (my $e = SL::X::ZUGFeRDValidation->caught) { + $form->cleanup; + die $e->message; + } - 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}, + %driver_options, ); my $result = $parser->parse($temp_fh); @@ -86,7 +108,7 @@ sub create_parsed_file { 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 = File::Spec->catfile($tmpdir, 'keep-' . $form->{tmpfile}); + my $new_name = File::Spec->catfile($userspath, 'keep-' . $form->{tmpfile}); rename $full_file_name, $new_name; $form->cleanup; @@ -101,10 +123,43 @@ 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', @@ -114,13 +169,49 @@ sub merge_pdfs { ); 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})? 0 : 1, + ); + 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); } @@ -172,6 +263,35 @@ sub find_template { return wantarray ? ($template, @template_files) : $template; } +sub _maybe_attach_zugferd_data { + my ($record) = @_; + + return if !blessed($record) + || !$record->can('customer') + || !$record->customer + || !$record->can('create_pdf_a_print_options') + || !$record->can('create_zugferd_data') + || !$record->customer->create_zugferd_invoices_for_this_customer; + + my $xmlfile = File::Temp->new; + $xmlfile->print($record->create_zugferd_data); + $xmlfile->close; + + my %driver_options = ( + pdf_a => $record->create_pdf_a_print_options(zugferd_xmp_data => $record->create_zugferd_xmp_data), + pdf_attachments => [ + { source => $xmlfile, + name => 'factur-x.xml', + description => $::locale->text('Factur-X/ZUGFeRD invoice'), + relationship => '/Alternative', + mime_type => 'text/xml', + } + ], + ); + + return %driver_options; +} + 1; __END__ @@ -296,6 +416,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 @@ -303,6 +427,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