projekt kivitendo

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;