--- /dev/null
+package SL::Controller::Helper::CreatePDF;
+
+use strict;
+
+use Cwd;
+use English qw(-no_match_vars);
+use File::Slurp ();
+use File::Temp ();
+use String::ShellQuote ();
+
+use SL::Form;
+use SL::Common;
+use SL::MoreCommon;
+use SL::Template;
+use SL::Template::LaTeX;
+
+use Exporter 'import';
+our @EXPORT = qw(create_pdf merge_pdfs);
+
+sub create_pdf {
+ my ($self, %params) = @_;
+
+ my $userspath = $::lx_office_conf{paths}->{userspath};
+ my $form = Form->new('');
+ $form->{format} = 'pdf';
+ $form->{cwd} = getcwd();
+ $form->{templates} = $::instance_conf->get_templates;
+ $form->{IN} = $params{template} . '.tex';
+ $form->{tmpdir} = $form->{cwd} . '/' . $userspath;
+
+ my $vars = $params{variables} || {};
+ $form->{$_} = $vars->{$_} for keys %{ $vars };
+
+ my $temp_fh;
+ ($temp_fh, $form->{tmpfile}) = File::Temp::tempfile(
+ 'kivitendo-printXXXXXX',
+ SUFFIX => '.tex',
+ DIR => $userspath,
+ UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
+ );
+
+ my $parser = SL::Template::LaTeX->new(
+ $form->{IN},
+ $form,
+ \%::myconfig,
+ $userspath,
+ );
+
+ my $result = $parser->parse($temp_fh);
+
+ close $temp_fh;
+ chdir $form->{cwd};
+
+ if (!$result) {
+ $form->cleanup;
+ die $parser->get_error;
+ }
+
+ if (($params{return} || 'content') eq 'file_name') {
+ my $new_name = $userspath . '/keep-' . $form->{tmpfile};
+ rename $userspath . '/' . $form->{tmpfile}, $new_name;
+
+ $form->cleanup;
+
+ return $new_name;
+ }
+
+ my $pdf = File::Slurp::read_file($userspath . '/' . $form->{tmpfile});
+
+ $form->cleanup;
+
+ return $pdf;
+}
+
+sub merge_pdfs {
+ my ($self, %params) = @_;
+
+ return scalar(File::Slurp::read_file($params{file_names}->[0])) if scalar(@{ $params{file_names} }) < 2;
+
+ 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,
+ );
+ 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`;
+
+ die "Executing gs failed: $ERRNO" if !defined $output;
+ die $output if $? != 0;
+
+ return scalar File::Slurp::read_file($temp_name);
+}
+
+1;