SL/Helper/CreatePDF.pm

   1 package SL::Helper::CreatePDF;
   2
   3 use strict;
   4
   5 use Carp;
   6 use Cwd;
   7 use English qw(-no_match_vars);
   8 use File::Slurp ();
   9 use File::Temp ();
  10 use List::MoreUtils qw(uniq);
  11 use List::Util qw(first);
  12 use String::ShellQuote ();
  13
  14 use SL::Form;
  15 use SL::Common;
  16 use SL::DB::Language;
  17 use SL::DB::Printer;
  18 use SL::MoreCommon;
  19 use SL::Template;
  20 use SL::Template::LaTeX;
  21
  22 use Exporter 'import';
  23 our @EXPORT_OK = qw(create_pdf merge_pdfs find_template);
  24 our %EXPORT_TAGS = (
  25   all => \@EXPORT_OK,
  26 );
  27
  28 sub create_pdf {
  29   my ($class, %params) = @_;
  30
  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{\.(.+)};
  39
  40   my $vars            = $params{variables} || {};
  41   $form->{$_}         = $vars->{$_} for keys %{ $vars };
  42
  43   my $temp_fh;
  44   ($temp_fh, $form->{tmpfile}) = File::Temp::tempfile(
  45     'kivitendo-printXXXXXX',
  46     SUFFIX => ".${suffix}",
  47     DIR    => $userspath,
  48     UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
  49   );
  50
  51   my $parser = SL::Template::LaTeX->new(
  52     $form->{IN},
  53     $form,
  54     \%::myconfig,
  55     $userspath,
  56   );
  57
  58   my $result = $parser->parse($temp_fh);
  59
  60   close $temp_fh;
  61   chdir $form->{cwd};
  62
  63   if (!$result) {
  64     $form->cleanup;
  65     die $parser->get_error;
  66   }
  67
  68   if (($params{return} || 'content') eq 'file_name') {
  69     my $new_name = $userspath . '/keep-' . $form->{tmpfile};
  70     rename $userspath . '/' . $form->{tmpfile}, $new_name;
  71
  72     $form->cleanup;
  73
  74     return $new_name;
  75   }
  76
  77   my $pdf = File::Slurp::read_file($userspath . '/' . $form->{tmpfile});
  78
  79   $form->cleanup;
  80
  81   return $pdf;
  82 }
  83
  84 sub merge_pdfs {
  85   my ($class, %params) = @_;
  86
  87   return scalar(File::Slurp::read_file($params{file_names}->[0])) if scalar(@{ $params{file_names} }) < 2;
  88
  89   my ($temp_fh, $temp_name) = File::Temp::tempfile(
  90     'kivitendo-printXXXXXX',
  91     SUFFIX => '.pdf',
  92     DIR    => $::lx_office_conf{paths}->{userspath},
  93     UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
  94   );
  95   close $temp_fh;
  96
  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`;
 100
 101   die "Executing gs failed: $ERRNO" if !defined $output;
 102   die $output                       if $? != 0;
 103
 104   return scalar File::Slurp::read_file($temp_name);
 105 }
 106
 107 sub find_template {
 108   my ($class, %params) = @_;
 109
 110   $params{name} or croak "Missing parameter 'name'";
 111
 112   my $path                 = $::instance_conf->get_templates;
 113   my $extension            = $params{extension} || "tex";
 114   my ($printer, $language) = ('', '');
 115
 116   if ($params{printer} || $params{printer_id}) {
 117     if ($params{printer} && !ref $params{printer}) {
 118       $printer = '_' . $params{printer};
 119     } else {
 120       $printer = $params{printer} || SL::DB::Printer->new(id => $params{printer_id})->load;
 121       $printer = $printer->template_code ? '_' . $printer->template_code : '';
 122     }
 123   }
 124
 125   if ($params{language} || $params{language_id}) {
 126     if ($params{language} && !ref $params{language}) {
 127       $language = '_' . $params{language};
 128     } else {
 129       $language = $params{language} || SL::DB::Language->new(id => $params{language_id})->load;
 130       $language = $language->template_code ? '_' . $language->template_code : '';
 131     }
 132   }
 133
 134   my @template_files = (
 135     $params{name} . "${language}${printer}",
 136     $params{name} . "${language}",
 137     $params{name},
 138     "default",
 139   );
 140
 141   if ($params{email}) {
 142     unshift @template_files, (
 143       $params{name} . "_email${language}${printer}",
 144       $params{name} . "_email${language}",
 145     );
 146   }
 147
 148   @template_files = map { "${_}.${extension}" } uniq grep { $_ } @template_files;
 149
 150   my $template = first { -f ($path . "/$_") } @template_files;
 151
 152   return wantarray ? ($template, @template_files) : $template;
 153 }
 154
 155 1;