Lines 1253-1259
sub _add_attachments {
Link Here
|
1253 |
foreach my $attachment ( @$attachments ) { |
1253 |
foreach my $attachment ( @$attachments ) { |
1254 |
$message->attach( |
1254 |
$message->attach( |
1255 |
Encode::encode( "UTF-8", $attachment->{content} ), |
1255 |
Encode::encode( "UTF-8", $attachment->{content} ), |
1256 |
content_type => 'application/octet-stream', |
1256 |
content_type => $attachment->{type} || 'application/octet-stream', |
1257 |
name => $attachment->{filename}, |
1257 |
name => $attachment->{filename}, |
1258 |
disposition => 'attachment', |
1258 |
disposition => 'attachment', |
1259 |
); |
1259 |
); |
1260 |
- |
|
|