Unicode characters not handled properly in attachment names

[shawniverson]

mailwatch/MailWatch#1109

[shawniverson]

Filename not being written to queue with this character and bypassing scan.

temp象.cer

[shawniverson]

Traced back to Explode function in Message.pm...

[shawniverson]

Appears to be an issue with the MIME Parser...

[shawniverson]

Filename is encoded and doesn't appear to be parsed...

Content-Type: application/x-x509-ca-cert; name="=?UTF-8?B?dGVtcOixoS5jZXI=?="
Content-Disposition: attachment; filename="=?UTF-8?B?dGVtcOixoS5jZXI=?="

[shawniverson]

Non unicode filename...

Content-Type: application/x-x509-ca-cert; name="temp.cer"
Content-Disposition: attachment; filename="temp.cer"

[shawniverson]

Appears to be a bug in MIME::Parser, reported bug, trying MIME::Fast instead.

[shawniverson]

Bump...MIME::Fast seems to be stale...

[shawniverson]

Stop gap measure: set decode_headers to 1 for now until the bug in MIME::Parser is resolved. Only option at the moment unless someone has a better idea. At least it will attempt to decode the header and create a file.

[shawniverson]

Leaving issue open until permanent fix is found.

[shawniverson]

Revisiting, may be related to faulty handler in WordDecorder I just discovered...

[shawniverson]

Looks related, but is triggered internally in MIME::Parser and cannot intercept. Will need to keep researching this.

[shawniverson]

Researching Email::MIME

[thctlo]

Yesterday me and my collega where solving simular problem.
in the end we used in our perl script to send mails.
This is the script we used in the end.
We import a file and line 1 = to, 2= from, 3,= subject .. aah you know this, just have a look at the script.
it solve our ü in names and subject. mime conversions is no fun.

I hope you can use it, or give you ideas.

on Debian 9 its : apt install libmime-lite-tt-perl
source info : https://metacpan.org/pod/MIME::Lite::TT::HTML

#!/bin/perl
$mail_prog = "/usr/lib/sendmail";
use warnings;
use MIME::Lite::TT::HTML;

open (FILE,"/tmp/tmp-mail-To-Import") || die "Can't make /tmp/tmp-mail-To-Import\n";
@filecontent = <FILE>;
close(FILE);
$to = $filecontent[0];
$from = $filecontent[1];
$subject = $filecontent[2];
chomp($to);
chomp($from);
chomp($subject);
$filecontent[0] = "";
$filecontent[1] = "";
$filecontent[2] = "";
my $msg = MIME::Lite::TT::HTML->new(
                    From        =>  '$from',
                    To          =>  '$to',
                    Subject     =>  '$subject',
                    Template    =>   {'@filecontent'},
);
$msg->send;

exit;

[thctlo]

the other option we use is :

use Encode qw(decode encode);
pen (FILE,"/tmp/tmp-mail-To-Import") || die "Can't make /tmp/tmp-mail-To-Import\n";
@filecontent = <FILE>;
close(FILE);
$to = $filecontent[0];
$from = $filecontent[1];
$subject = $filecontent[2];
chomp($to);
chomp($from);
chomp($subject);
$filecontent[0] = "";
$filecontent[1] = "";
$filecontent[2] = "";
my $subject_encoded = encode("MIME-Q", $subject);

this one is in my optinion the best, but im no coder..

[shawniverson]

Problem appears to be no longer present after commit 481eed1 using MIME::Tools version 5.509 with decode_headers turned off.

Should have checked this again before all the hassle 😆

Preparing to disable workaround.