Revision df50ddd5
Von Moritz Bunkus vor mehr als 7 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1023 | 1023 |
|
| 1024 | 1024 |
# OUT is used for the media, screen, printer, email |
| 1025 | 1025 |
# for postscript we store a copy in a temporary file |
| 1026 |
my $keep_temp_files = $::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files};
|
|
| 1027 |
|
|
| 1026 | 1028 |
my ($temp_fh, $suffix); |
| 1027 | 1029 |
$suffix = $self->{IN};
|
| 1028 | 1030 |
$suffix =~ s/.*\.//; |
| ... | ... | |
| 1030 | 1032 |
strftime('kivitendo-print-%Y%m%d%H%M%S-XXXXXX', localtime()),
|
| 1031 | 1033 |
SUFFIX => '.' . ($suffix || 'tex'), |
| 1032 | 1034 |
DIR => $userspath, |
| 1033 |
UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
|
|
| 1035 |
UNLINK => $keep_temp_files ? 0 : 1,
|
|
| 1034 | 1036 |
); |
| 1035 | 1037 |
close $temp_fh; |
| 1038 |
chmod 0644, $self->{tmpfile} if $keep_temp_files;
|
|
| 1036 | 1039 |
(undef, undef, $self->{template_meta}{tmpfile}) = File::Spec->splitpath( $self->{tmpfile} );
|
| 1037 | 1040 |
|
| 1038 | 1041 |
$out = $self->{OUT};
|
Auch abrufbar als: Unified diff
Druckfunktion: beim Debuggen temporäre Datei für alle lesbar machen