1 package SL::Controller::Helper::CreatePDF;
6 use English qw(-no_match_vars);
9 use String::ShellQuote ();
15 use SL::Template::LaTeX;
17 use Exporter 'import';
18 our @EXPORT = qw(create_pdf merge_pdfs);
21 my ($self, %params) = @_;
23 my $userspath = $::lx_office_conf{paths}->{userspath};
24 my $form = Form->new('');
25 $form->{format} = 'pdf';
26 $form->{cwd} = getcwd();
27 $form->{templates} = $::instance_conf->get_templates;
28 $form->{IN} = $params{template} . '.tex';
29 $form->{tmpdir} = $form->{cwd} . '/' . $userspath;
31 my $vars = $params{variables} || {};
32 $form->{$_} = $vars->{$_} for keys %{ $vars };
35 ($temp_fh, $form->{tmpfile}) = File::Temp::tempfile(
36 'kivitendo-printXXXXXX',
39 UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
42 my $parser = SL::Template::LaTeX->new(
49 my $result = $parser->parse($temp_fh);
56 die $parser->get_error;
59 if (($params{return} || 'content') eq 'file_name') {
60 my $new_name = $userspath . '/keep-' . $form->{tmpfile};
61 rename $userspath . '/' . $form->{tmpfile}, $new_name;
68 my $pdf = File::Slurp::read_file($userspath . '/' . $form->{tmpfile});
76 my ($self, %params) = @_;
78 return scalar(File::Slurp::read_file($params{file_names}->[0])) if scalar(@{ $params{file_names} }) < 2;
80 my ($temp_fh, $temp_name) = File::Temp::tempfile(
81 'kivitendo-printXXXXXX',
83 DIR => $::lx_office_conf{paths}->{userspath},
84 UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
88 my $input_names = join ' ', String::ShellQuote::shell_quote(@{ $params{file_names} });
89 my $exe = $::lx_office_conf{applications}->{ghostscript} || 'gs';
90 my $output = `$exe -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile=${temp_name} ${input_names} 2>&1`;
92 die "Executing gs failed: $ERRNO" if !defined $output;
93 die $output if $? != 0;
95 return scalar File::Slurp::read_file($temp_name);