Revision 9b0a9214
Von G. Richardson vor fast 13 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
|
my %queued = map { s|.*/|| } split / /, $form->{queued};
|
||
|
|
||
|
my $filename;
|
||
|
my $suffix = ($form->{postscript}) ? '.ps' : '.pdf';
|
||
|
if ($filename = $queued{ $form->{formname} }) {
|
||
|
$form->{queued} =~ s/\Q$form->{formname} $filename\E//;
|
||
|
unlink $::lx_office_conf{paths}->{spool} . "/$filename";
|
||
|
$filename =~ s/\..*$//g;
|
||
|
$filename .= $suffix;
|
||
|
$form->{OUT} = $::lx_office_conf{paths}->{spool} . "/$filename";
|
||
|
$form->{OUT_MODE} = '>';
|
||
|
} else {
|
||
|
$filename = time;
|
||
|
$filename .= $$;
|
||
|
my $temp_fh;
|
||
|
($temp_fh, $filename) = File::Temp::tempfile(
|
||
|
'kivitendo-spoolXXXXXX',
|
||
|
SUFFIX => "$suffix",
|
||
|
DIR => $::lx_office_conf{paths}->{spool},
|
||
|
);
|
||
|
close $temp_fh;
|
||
|
$form->{OUT} = "$filename";
|
||
|
# use >> for OUT_MODE because file is already created by File::Temp
|
||
|
$form->{OUT_MODE} = '>>';
|
||
|
# strip directory so that only filename is stored in table status
|
||
|
($filename) = $filename =~ /^$::lx_office_conf{paths}->{spool}\/(.*)/;
|
||
|
}
|
||
|
|
||
|
$filename .= ($form->{postscript}) ? '.ps' : '.pdf';
|
||
|
$form->{OUT} = $::lx_office_conf{paths}->{spool} . "/$filename";
|
||
|
$form->{OUT_MODE} = '>';
|
||
|
|
||
|
# add type
|
||
|
$form->{queued} .= " $form->{formname} $filename";
|
||
|
|
||
|
$form->{queued} =~ s/^ //;
|
||
|
}
|
||
|
my $queued = $form->{queued};
|
||
Auch abrufbar als: Unified diff
Bug 1926 - Zufälliger Dateiname für PDF Spooldateien
Beim Erstellen der Spooldatei beim Warteschlangendruck den Dateinamen per
File::Temp::tempfile erstellen. Die bisherige Kombination aus time und PID hat
PDF-Dateien überschrieben, wenn zwei Spooldateien in der gleichen Sekunde
erstellt wurden.
Beispiel alter Spoolname: 134012447722563.pdf
Beispiel neuer Spoolname: kivitendo-spoolJKuGZM.pdf