|
Lines 1247-1256
sub _add_attachments {
Link Here
|
| 1247 |
$message->text_body( $letter->{content} ); |
1247 |
$message->text_body( $letter->{content} ); |
| 1248 |
} |
1248 |
} |
| 1249 |
|
1249 |
|
| 1250 |
foreach my $attachment ( @$attachments ) { |
1250 |
foreach my $attachment (@$attachments) { |
| 1251 |
$message->attach( |
1251 |
$message->attach( |
| 1252 |
Encode::encode( "UTF-8", $attachment->{content} ), |
1252 |
Encode::encode( "UTF-8", $attachment->{content} ), |
| 1253 |
content_type => 'application/octet-stream', |
1253 |
content_type => ( exists $attachment->{type} && $attachment->{type} ne '' ) ? $attachment->{type} : 'application/octet-stream', |
| 1254 |
name => $attachment->{filename}, |
1254 |
name => $attachment->{filename}, |
| 1255 |
disposition => 'attachment', |
1255 |
disposition => 'attachment', |
| 1256 |
); |
1256 |
); |
| 1257 |
- |
|
|