1 package SL::Helper::CreatePDF;
7 use English qw(-no_match_vars);
10 use List::MoreUtils qw(uniq);
11 use List::Util qw(first);
12 use String::ShellQuote ();
20 use SL::Template::LaTeX;
22 use Exporter 'import';
23 our @EXPORT_OK = qw(create_pdf merge_pdfs find_template);
29 my ($class, %params) = @_;
31 my $userspath = $::lx_office_conf{paths}->{userspath};
32 my $form = Form->new('');
33 $form->{format} = 'pdf';
34 $form->{cwd} = getcwd();
35 $form->{templates} = $::instance_conf->get_templates;
36 $form->{IN} = $params{template} . '.tex';
37 $form->{tmpdir} = $form->{cwd} . '/' . $userspath;
39 my $vars = $params{variables} || {};
40 $form->{$_} = $vars->{$_} for keys %{ $vars };
43 ($temp_fh, $form->{tmpfile}) = File::Temp::tempfile(
44 'kivitendo-printXXXXXX',
47 UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
50 my $parser = SL::Template::LaTeX->new(
57 my $result = $parser->parse($temp_fh);
64 die $parser->get_error;
67 if (($params{return} || 'content') eq 'file_name') {
68 my $new_name = $userspath . '/keep-' . $form->{tmpfile};
69 rename $userspath . '/' . $form->{tmpfile}, $new_name;
76 my $pdf = File::Slurp::read_file($userspath . '/' . $form->{tmpfile});
84 my ($class, %params) = @_;
86 return scalar(File::Slurp::read_file($params{file_names}->[0])) if scalar(@{ $params{file_names} }) < 2;
88 my ($temp_fh, $temp_name) = File::Temp::tempfile(
89 'kivitendo-printXXXXXX',
91 DIR => $::lx_office_conf{paths}->{userspath},
92 UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
96 my $input_names = join ' ', String::ShellQuote::shell_quote(@{ $params{file_names} });
97 my $exe = $::lx_office_conf{applications}->{ghostscript} || 'gs';
98 my $output = `$exe -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile=${temp_name} ${input_names} 2>&1`;
100 die "Executing gs failed: $ERRNO" if !defined $output;
101 die $output if $? != 0;
103 return scalar File::Slurp::read_file($temp_name);
107 my ($class, %params) = @_;
109 $params{name} or croak "Missing parameter 'name'";
111 my $path = $::instance_conf->get_templates;
112 my $extension = $params{extension} || "tex";
113 my ($printer, $language) = ('', '');
115 if ($params{printer} || $params{printer_id}) {
116 if ($params{printer} && !ref $params{printer}) {
117 $printer = '_' . $params{printer};
119 $printer = $params{printer} || SL::DB::Printer->new(id => $params{printer_id})->load;
120 $printer = $printer->template_code ? '_' . $printer->template_code : '';
124 if ($params{language} || $params{language_id}) {
125 if ($params{language} && !ref $params{language}) {
126 $language = '_' . $params{language};
128 $language = $params{language} || SL::DB::Language->new(id => $params{language_id})->load;
129 $language = $language->template_code ? '_' . $language->template_code : '';
133 my @template_files = (
134 $params{name} . "${language}${printer}",
135 $params{name} . "${language}",
140 if ($params{email}) {
141 unshift @template_files, (
142 $params{name} . "_email${language}${printer}",
143 $params{name} . "_email${language}",
147 @template_files = map { "${_}.${extension}" } uniq grep { $_ } @template_files;
149 my $template = first { -f ($path . "/$_") } @template_files;
151 return wantarray ? ($template, @template_files) : $template;