Revision f4b68a78
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1541 | 1541 |
my $filename; |
| 1542 | 1542 |
my $suffix = ($form->{postscript}) ? '.ps' : '.pdf';
|
| 1543 | 1543 |
if ($filename = $queued{ $form->{formname} }) {
|
| 1544 |
$form->{queued} =~ s/\Q$form->{formname} $filename\E//;
|
|
| 1545 | 1544 |
unlink $::lx_office_conf{paths}->{spool} . "/$filename";
|
| 1546 |
$filename =~ s/\..*$//g; |
|
| 1547 |
$filename .= $suffix; |
|
| 1548 |
$form->{OUT} = $::lx_office_conf{paths}->{spool} . "/$filename";
|
|
| 1549 |
$form->{OUT_MODE} = '>';
|
|
| 1545 |
delete $queued{ $form->{formname} };
|
|
| 1546 |
|
|
| 1547 |
$form->{queued} = join ' ', %queued;
|
|
| 1548 |
$filename =~ s/\..*$//g; |
|
| 1549 |
$filename .= $suffix; |
|
| 1550 |
$form->{OUT} = $::lx_office_conf{paths}->{spool} . "/$filename";
|
|
| 1551 |
$form->{OUT_MODE} = '>';
|
|
| 1552 |
|
|
| 1550 | 1553 |
} else {
|
| 1551 | 1554 |
my $temp_fh; |
| 1552 | 1555 |
($temp_fh, $filename) = File::Temp::tempfile( |
| 1553 | 1556 |
'kivitendo-spoolXXXXXX', |
| 1554 | 1557 |
SUFFIX => "$suffix", |
| 1555 |
DIR => $::lx_office_conf{paths}->{spool},
|
|
| 1558 |
DIR => $::lx_office_conf{paths}->{spool},
|
|
| 1556 | 1559 |
UNLINK => 0, |
| 1557 | 1560 |
); |
| 1558 | 1561 |
close $temp_fh; |
Auch abrufbar als: Unified diff
Refactoring; Kosmetik: Ausrichtung