Revision de46c704
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
| 193 | 193 |
return "$attachment : $!"; |
| 194 | 194 |
} |
| 195 | 195 |
|
| 196 |
print OUT qq|--${boundary}
|
|
| 197 |
Content-Type: $application/$self->{format}; name="$filename"; |;
|
|
| 198 |
|
|
| 199 | 196 |
# only set charset for attachements of type text. every other type should not have this field |
| 200 | 197 |
# refer to bug 883 for detailed information |
| 201 |
if ($application eq 'text' && $self->{charset}) {
|
|
| 202 |
print OUT qq|charset="$self->{charset}" |;
|
|
| 198 |
my $attachment_charset; |
|
| 199 |
if (lc $application eq 'text' && $self->{charset}) {
|
|
| 200 |
$attachment_charset = qq|; charset="$self->{charset}" |;
|
|
| 203 | 201 |
} |
| 204 | 202 |
|
| 205 |
print OUT qq| |
|
| 203 |
print OUT qq|--${boundary}
|
|
| 204 |
Content-Type: $application/$self->{format}; name="$filename"$attachment_charset
|
|
| 206 | 205 |
Content-Transfer-Encoding: BASE64 |
| 207 | 206 |
Content-Disposition: attachment; filename="$filename"\n\n|; |
| 208 | 207 |
|
Auch abrufbar als: Unified diff
schöner so.