f71d6e9030
use Text::Unidecode to decode unicode, to prevent spam filter ignoring oddly encoded emails.
47 lines
911 B
Perl
47 lines
911 B
Perl
package mail;
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
use utf8;
|
|
|
|
use Email::Sender::Simple();
|
|
use Email::Simple();
|
|
use Text::Unidecode qw(unidecode);
|
|
|
|
sub to_ascii {
|
|
my ($s) = @_;
|
|
my %translate = qw(
|
|
Ä Ae
|
|
ä ae
|
|
Ö Oe
|
|
ö oe
|
|
Ü Ue
|
|
ü ue
|
|
ß ss
|
|
);
|
|
$s =~ s/([ÄäÖöÜüß])/$translate{$1}/g;
|
|
$s = unidecode $s;
|
|
return $s;
|
|
}
|
|
|
|
sub send($) {
|
|
my ($mail) = @_;
|
|
|
|
my $email = Email::Simple->create(
|
|
header => [
|
|
'Content-Type' => 'text/plain;',
|
|
'From' => $mail->{'From'},
|
|
'To' => $mail->{'To'},
|
|
'Cc' => $mail->{'Cc'},
|
|
'Reply-To' => $mail->{'Reply-To'},
|
|
'Subject' => to_ascii($mail->{'Subject'})
|
|
],
|
|
body => to_ascii($mail->{'Data'})
|
|
);
|
|
Email::Sender::Simple->send($email);
|
|
}
|
|
|
|
# do not delete next line
|
|
return 1;
|