8e30d79b75
* fix setting content-type in header * encode body using quoted printable Co-authored-by: Raphael Steppert
32 lines
784 B
Perl
32 lines
784 B
Perl
package mail;
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
|
|
use Email::Sender::Simple();
|
|
use Email::Simple();
|
|
use MIME::Words qw(encode_mimeword);
|
|
use MIME::QuotedPrint qw(encode_qp);
|
|
|
|
sub send($) {
|
|
my ($mail) = @_;
|
|
|
|
my $email = Email::Simple->create(
|
|
header => [
|
|
'Content-Type' => 'text/plain;',
|
|
'Content-Transfer-Encoding' => 'quoted-printable',
|
|
'From' => $mail->{'From'},
|
|
'To' => $mail->{'To'},
|
|
'Cc' => $mail->{'Cc'},
|
|
'Reply-To' => $mail->{'Reply-To'},
|
|
'Subject' => encode_mimeword($mail->{'Subject'}, 'b', 'UTF-8')
|
|
],
|
|
body => encode_qp($mail->{'Data'}),
|
|
);
|
|
Email::Sender::Simple->send($email);
|
|
}
|
|
|
|
# do not delete next line
|
|
return 1;
|