Revision c1fc6437
Von Udo Spallek vor etwa 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
open(OUT, $self->{OUT})
|
||
|
or $self->error($self->cleanup . "$self->{OUT} : $!");
|
||
|
} else {
|
||
|
|
||
|
$self->{attachment_filename} = $self->{tmpfile} if ($self->{attachment_filename} eq '');
|
||
|
# launch application
|
||
|
print qq|Content-Type: | . $template->get_mime_type() . qq|
|
||
|
Content-Disposition: attachment; filename="$self->{tmpfile}"
|
||
|
Content-Disposition: attachment; filename="$self->{attachment_filename}"
|
||
|
Content-Length: $numbytes
|
||
|
|
||
|
|;
|
||
Auch abrufbar als: Unified diff
parse_template erweitert um die Mgl. einen Dateinamen ($form->{attachment_filename}) fuer
das Attachmentfile anzugeben, der anders ist als $form->{tmpfile}