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};
37 $form->{tmpdir} = $form->{cwd} . '/' . $userspath;
38 my ($suffix) = $params{template} =~ m{\.(.+)};
40 my $vars = $params{variables} || {};
41 $form->{$_} = $vars->{$_} for keys %{ $vars };
44 ($temp_fh, $form->{tmpfile}) = File::Temp::tempfile(
45 'kivitendo-printXXXXXX',
46 SUFFIX => ".${suffix}",
48 UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
51 my $parser = SL::Template::LaTeX->new(
58 my $result = $parser->parse($temp_fh);
65 die $parser->get_error;
68 if (($params{return} || 'content') eq 'file_name') {
69 my $new_name = $userspath . '/keep-' . $form->{tmpfile};
70 rename $userspath . '/' . $form->{tmpfile}, $new_name;
77 my $pdf = File::Slurp::read_file($userspath . '/' . $form->{tmpfile});
85 my ($class, %params) = @_;
87 return scalar(File::Slurp::read_file($params{file_names}->[0])) if scalar(@{ $params{file_names} }) < 2;
89 my ($temp_fh, $temp_name) = File::Temp::tempfile(
90 'kivitendo-printXXXXXX',
92 DIR => $::lx_office_conf{paths}->{userspath},
93 UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
97 my $input_names = join ' ', String::ShellQuote::shell_quote(@{ $params{file_names} });
98 my $exe = $::lx_office_conf{applications}->{ghostscript} || 'gs';
99 my $output = `$exe -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile=${temp_name} ${input_names} 2>&1`;
101 die "Executing gs failed: $ERRNO" if !defined $output;
102 die $output if $? != 0;
104 return scalar File::Slurp::read_file($temp_name);
108 my ($class, %params) = @_;
110 $params{name} or croak "Missing parameter 'name'";
112 my $path = $::instance_conf->get_templates;
113 my $extension = $params{extension} || "tex";
114 my ($printer, $language) = ('', '');
116 if ($params{printer} || $params{printer_id}) {
117 if ($params{printer} && !ref $params{printer}) {
118 $printer = '_' . $params{printer};
120 $printer = $params{printer} || SL::DB::Printer->new(id => $params{printer_id})->load;
121 $printer = $printer->template_code ? '_' . $printer->template_code : '';
125 if ($params{language} || $params{language_id}) {
126 if ($params{language} && !ref $params{language}) {
127 $language = '_' . $params{language};
129 $language = $params{language} || SL::DB::Language->new(id => $params{language_id})->load;
130 $language = $language->template_code ? '_' . $language->template_code : '';
134 my @template_files = (
135 $params{name} . "${language}${printer}",
136 $params{name} . "${language}",
141 if ($params{email}) {
142 unshift @template_files, (
143 $params{name} . "_email${language}${printer}",
144 $params{name} . "_email${language}",
148 @template_files = map { "${_}.${extension}" } uniq grep { $_ } @template_files;
150 my $template = first { -f ($path . "/$_") } @template_files;
152 return wantarray ? ($template, @template_files) : $template;