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