dani
/
lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Store MIME message in smtp lib

This commit is contained in:
Maxime Besson 2022-10-03 16:17:06 +02:00
parent 8da2666acc
commit 7bb84f5bb1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lemonldap-ng-portal/t/smtp.pm
View File

@ -1,6 +1,10 @@
package main;
my ( $mail, $mail_envelope, $mail_subject );
my ( $mail, $mail_envelope, $mail_subject, $mime );
sub mime {
return $mime;
}
sub mail {
return $mail;
@ -31,6 +35,7 @@ extends 'Email::Sender::Transport';
sub send_email {
my ( $self, $email, $envelope ) = @_;
$mime = $email->cast('MIME::Entity');
$mail = $email->get_body;
$mail_subject = $email->get_header("Subject");
$mail_envelope = $envelope;