Revision 94ad4ae0
Von Moritz Bunkus vor etwa 10 Jahren hinzugefügt
| SL/Helper/CreatePDF.pm | ||
|---|---|---|
|
use Cwd;
|
||
|
use English qw(-no_match_vars);
|
||
|
use File::Slurp ();
|
||
|
use File::Spec ();
|
||
|
use File::Temp ();
|
||
|
use List::MoreUtils qw(uniq);
|
||
|
use List::Util qw(first);
|
||
| ... | ... | |
|
$form->{templates} = $::instance_conf->get_templates;
|
||
|
$form->{IN} = $params{template};
|
||
|
$form->{tmpdir} = $form->{cwd} . '/' . $userspath;
|
||
|
my $tmpdir = $form->{tmpdir};
|
||
|
my ($suffix) = $params{template} =~ m{\.(.+)};
|
||
|
|
||
|
my ($temp_fh, $tmpfile) = File::Temp::tempfile(
|
||
|
'kivitendo-printXXXXXX',
|
||
|
SUFFIX => ".${suffix}",
|
||
|
DIR => $userspath,
|
||
|
DIR => $form->{tmpdir},
|
||
|
UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
|
||
|
);
|
||
|
|
||
| ... | ... | |
|
source => $form->{IN},
|
||
|
form => $form,
|
||
|
myconfig => \%::myconfig,
|
||
|
userspath => $userspath,
|
||
|
userspath => $tmpdir,
|
||
|
);
|
||
|
|
||
|
my $result = $parser->parse($temp_fh);
|
||
| ... | ... | |
|
die $parser->get_error;
|
||
|
}
|
||
|
|
||
|
# SL::Template:** modify $form->{tmpfile} by removing its
|
||
|
# $form->{userspath} prefix. They also store the final file's actual
|
||
|
# file name in $form->{tmpfile} – but it is now relative to
|
||
|
# $form->{userspath}. Other modules return the full file name…
|
||
|
my ($volume, $directory, $file_name) = File::Spec->splitpath($form->{tmpfile});
|
||
|
my $full_file_name = File::Spec->catfile($tmpdir, $file_name);
|
||
|
if (($params{return} || 'content') eq 'file_name') {
|
||
|
my $new_name = $userspath . '/keep-' . $tmpfile;
|
||
|
rename $tmpfile, $new_name;
|
||
|
my $new_name = File::Spec->catfile($tmpdir, 'keep-' . $form->{tmpfile});
|
||
|
rename $full_file_name, $new_name;
|
||
|
|
||
|
$form->cleanup;
|
||
|
|
||
|
return $new_name;
|
||
|
}
|
||
|
|
||
|
my $content = File::Slurp::read_file($tmpfile);
|
||
|
my $content = File::Slurp::read_file($full_file_name);
|
||
|
|
||
|
$form->cleanup;
|
||
|
|
||
Auch abrufbar als: Unified diff
CreatePDF-Helfer: Dateinamen fixen
Die Vorlagen-Parser-Module SL::Template::* erwarten, dass
$form->{tmpdir} den zu parsenden Dateinamen enthält. Sie entfernen dann
das Präfix $self->{userspath} von $form->{tmpdir}, wodurch nur noch der
Dateiname bleibt.
Der Name der finalen Ausgabedatei wird ebenfalls über $form->{tmpdir}
zurückgegeben – ohne jegliche Pfadangabe. Allerdings ist das von Modul
zu Modul unterschiedlich. Manche geben den vollen Namen, manche nur den
Dateinamen (der dann relativ zu $self->{userspath} ist) zurück.