Revision c1fc6437
Von Udo Spallek vor fast 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 868 | 868 |
open(OUT, $self->{OUT})
|
| 869 | 869 |
or $self->error($self->cleanup . "$self->{OUT} : $!");
|
| 870 | 870 |
} else {
|
| 871 |
|
|
| 871 |
$self->{attachment_filename} = $self->{tmpfile} if ($self->{attachment_filename} eq '');
|
|
| 872 | 872 |
# launch application |
| 873 | 873 |
print qq|Content-Type: | . $template->get_mime_type() . qq| |
| 874 |
Content-Disposition: attachment; filename="$self->{tmpfile}"
|
|
| 874 |
Content-Disposition: attachment; filename="$self->{attachment_filename}"
|
|
| 875 | 875 |
Content-Length: $numbytes |
| 876 | 876 |
|
| 877 | 877 |
|; |
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}