MIME-encode emails headers if needed

lib/AccountManager/App.pm

@@ -5,6 +5,7 @@ use warnings;
 
 use CGI;
 use DateTime;
+use Encode;
 use English qw(-no_match_vars);
 use Log::Any::Adapter;
 use List::MoreUtils qw(uniq);
@@ -590,7 +591,8 @@ sub req_complete_challenge {
     my $tt2 = Template->new({
         ENCODING     => 'utf8',
         PRE_CHOMP    => CHOMP_ONE,
-        INCLUDE_PATH => $self->{configuration}->{setup}->{templates_dir} . "/mail"
+        INCLUDE_PATH => $self->{configuration}->{setup}->{templates_dir} . "/mail",
+        FILTERS      => { mime => [ sub { return encode("MIME-Header", $_[0]); }, 0 ] },
     });
     my $template = 'send_authentication_token.tt2.eml';
     my $data = {

templates/mail/send_authentication_token.tt2.eml

 From: eduGAIN Access Check <[% from %]>
 To: [% to %]
-Subject: eduGAIN Access Check - [% lh.maketext("Test accounts request") %]
+Subject: eduGAIN Access Check - [% lh.maketext("Test accounts request") | mime %]
 Content-type: text/plain; charset=UTF-8; format=flowed
 
 [% lh.maketext("This is an email challenge automatically sent to you by eduGAIN Access Check.") %]

templates/renater/mail/send_authentication_token.tt2.eml

 From: eduGAIN Access Check <[% from %]>
 To: [% to %]
-Subject: eduGAIN Access Check - [% lh.maketext("Test accounts request") %]
+Subject: eduGAIN Access Check - [% lh.maketext("Test accounts request") | mime %]
 Content-type: text/plain; charset=UTF-8; format=flowed
 
 [% lh.maketext("This is an email challenge automatically sent to you by eduGAIN Access Check.") %]