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 |
- |
|
|