Commit e7a6cfa9 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Correctly encode non-ASCII e-mail content. Fixes spamfilter issues. 

New dependency: MIME::Entity
parent 871a44f1

cpanfile

+2 −1
Original line number Diff line number Diff line
@@ -3,10 +3,11 @@ requires 'CAM::PDF'; 
requires 'Crypt::Eksblowfish';

requires 'DateTime';

requires 'DateTime::Format::Strptime';

requires 'Email::Sender';

requires 'Email::Sender::Simple';

requires 'Geo::Distance';

requires 'Geo::Distance::XS';

requires 'List::UtilsBy';

requires 'MIME::Entity';

requires 'Mojolicious';

requires 'Mojolicious::Plugin::Authentication';

requires 'Mojo::Pg';

lib/Travelynx/Helper/Sendmail.pm

+9 −9
Original line number Diff line number Diff line
@@ -7,7 +7,7 @@ use 5.020; 


use Encode qw(encode);

use Email::Sender::Simple qw(try_to_sendmail);

use Email::Simple;

use MIME::Entity;



sub new {

	my ( $class, %opt ) = @_;
@@ -18,14 +18,14 @@ sub new { 
sub custom {

	my ( $self, $to, $subject, $body ) = @_;



	my $reg_mail = Email::Simple->create(

		header => [

	my $reg_mail = MIME::Entity->build(

		To       => $to,

			From           => $self->{config}{from},

			Subject        => $subject,

			'Content-Type' => 'text/plain; charset=UTF-8',

		],

		body => encode( 'utf-8', $body ),

		From     => $from,

		Subject  => encode( 'MIME-Header', $subject ),

		Type     => 'text/plain',

		Charset  => 'UTF-8',

		Encoding => 'quoted-printable',

		Data     => encode( 'utf-8', $body ),

	);



	if ( $self->{config}->{disabled} ) {