4 use RT::Test nodb => 1, tests => 8;
8 diag q{'=' char in a leading part before an encoded part};
10 my $str = 'key="plain"; key="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="';
12 RT::I18N::DecodeMIMEWordsToUTF8($str),
13 'key="plain"; key="мой_файл.bin"',
18 diag q{not compliant with standards, but MUAs send such field when attachment has non-ascii in name};
20 my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="';
22 RT::I18N::DecodeMIMEWordsToUTF8($str),
23 'attachment; filename="мой_файл.bin"',
28 diag q{'=' char in a trailing part after an encoded part};
30 my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="; some_prop="value"';
32 RT::I18N::DecodeMIMEWordsToUTF8($str),
33 'attachment; filename="мой_файл.bin"; some_prop="value"',
38 diag q{regression test for #5248 from rt3.fsck.com};
40 my $str = qq{Subject: =?ISO-8859-1?Q?Re=3A_=5BXXXXXX=23269=5D_=5BComment=5D_Frag?=}
41 . qq{\n =?ISO-8859-1?Q?e_zu_XXXXXX--xxxxxx_/_Xxxxx=FCxxxxxxxxxx?=};
43 RT::I18N::DecodeMIMEWordsToUTF8($str),
44 qq{Subject: Re: [XXXXXX#269] [Comment] Frage zu XXXXXX--xxxxxx / Xxxxxüxxxxxxxxxx},
49 diag q{newline and encoded file name};
51 my $str = qq{application/vnd.ms-powerpoint;\n\tname="=?ISO-8859-1?Q?Main_presentation.ppt?="};
53 RT::I18N::DecodeMIMEWordsToUTF8($str),
54 qq{application/vnd.ms-powerpoint;\tname="Main presentation.ppt"},
62 "filename*=ISO-8859-1''%74%E9%73%74%2E%74%78%74 filename*=ISO-8859-1''%74%E9%73%74%2E%74%78%74";
64 RT::I18N::DecodeMIMEWordsToEncoding( $str, 'utf-8' ),
65 'filename=tést.txt filename=tést.txt',
70 diag q{canonicalize mime word encodings like gb2312};
72 my $str = qq{Subject: =?gb2312?B?1NrKwL3nuPe12Lmy09CzrN9eX1NpbXBsaWZpZWRfQ05fR0IyMzEyYQ==?=
73 =?gb2312?B?dHRhY2hlbWVudCB0ZXN0IGluIENOIHNpbXBsaWZpZWQ=?=};
76 RT::I18N::DecodeMIMEWordsToUTF8($str),
77 qq{Subject: 在世界各地共有超過_Simplified_CN_GB2312attachement test in CN simplified},