From: Michael Andreen <harv@ruin.nu>
Date: Fri, 17 Jul 2020 14:38:51 +0000 (+0200)
Subject: Handle both utf8 and latin1 in mail
X-Git-Url: https://ruin.nu/git/?p=ndwebbie.git;a=commitdiff_plain;h=f1cf15b270e1f1b7d0a43ec35a17418d9cdb96f3

Handle both utf8 and latin1 in mail
---

diff --git a/scripts/ndmail.pl b/scripts/ndmail.pl
index 8941cc1..f90f4c6 100755
--- a/scripts/ndmail.pl
+++ b/scripts/ndmail.pl
@@ -30,6 +30,7 @@ use CGI qw/:standard/;
 use Email::Simple;
 use Email::StripMIME;
 use Encode;
+use Encoding::FixLatin qw(fix_latin);
 use MIME::QuotedPrint;
 
 use FindBin;
@@ -44,7 +45,7 @@ my $text = join '',@text;
 my $email = Email::Simple->new(Email::StripMIME::strip_mime($text));;
 
 my $subject = decode('MIME-Header', $email->header('Subject'));
-my $body = 'FROM:' . decode('UTF-8', decode_qp($email->header('From'))) . "\n\n" . decode('UTF-8',$email->body);
+my $body = 'FROM:' . decode('MIME-Header', $email->header('From')) . "\n\n" . fix_latin($email->body);
 
 
 $dbh->begin_work;