1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
use strict;
use warnings;
use RT::Test nodb => 1, tests => 14;
use_ok('RT::I18N');
diag q{'=' char in a leading part before an encoded part};
{
my $str = 'key="plain"; key="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="';
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
'key="plain"; key="мой_файл.bin"',
"right decoding"
);
}
diag q{not compliant with standards, but MUAs send such field when attachment has non-ascii in name};
{
my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="';
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
'attachment; filename="мой_файл.bin"',
"right decoding"
);
}
diag q{'=' char in a trailing part after an encoded part};
{
my $str = 'attachment; filename="=?UTF-8?B?0LzQvtC5X9GE0LDQudC7LmJpbg==?="; some_prop="value"';
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
'attachment; filename="мой_файл.bin"; some_prop="value"',
"right decoding"
);
}
diag q{adding quotes around mime words containing specials when word is already quoted};
{
my $str = <<"END";
Content-Disposition: attachment; filename="=?iso-8859-1?Q?foobar,_?=
=?iso-8859-1?Q?barfoo.docx?="
END
my $decoded = 'Content-Disposition: attachment; filename="foobar, barfoo.docx"';
is( RT::I18N::DecodeMIMEWordsToUTF8($str), $decoded, "No added quotes" );
}
diag q{regression test for #5248 from rt3.fsck.com};
{
my $str = qq{Subject: =?ISO-8859-1?Q?Re=3A_=5BXXXXXX=23269=5D_=5BComment=5D_Frag?=}
. qq{\n =?ISO-8859-1?Q?e_zu_XXXXXX--xxxxxx_/_Xxxxx=FCxxxxxxxxxx?=};
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
qq{Subject: Re: [XXXXXX#269] [Comment] Frage zu XXXXXX--xxxxxx / Xxxxxüxxxxxxxxxx},
"right decoding"
);
}
diag q{newline and encoded file name};
{
my $str = qq{application/vnd.ms-powerpoint;\n\tname="=?ISO-8859-1?Q?Main_presentation.ppt?="};
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
qq{application/vnd.ms-powerpoint;\tname="Main presentation.ppt"},
"right decoding"
);
}
diag q{rfc2231};
{
my $str =
"attachment; filename*=ISO-8859-1''%74%E9%73%74%2E%74%78%74";
is(
RT::I18N::DecodeMIMEWordsToEncoding( $str, 'utf-8', 'Content-Disposition' ),
'attachment; filename="tést.txt"',
'right decoding'
);
}
diag q{rfc2231 param continuations};
{
# XXX TODO: test various forms of the continuation stuff
# quotes around the values
my $hdr = <<'.';
inline;
filename*0*=ISO-2022-JP'ja'%1b$B%3f7$7$$%25F%25%2d%259%25H%1b%28B;
filename*1*=%20;
filename*2*=%1b$B%25I%25%2d%25e%25a%25s%25H%1b%28B;
filename*3=.txt
.
is(
RT::I18N::DecodeMIMEWordsToEncoding( $hdr, 'utf-8', 'Content-Disposition' ),
'inline; filename="新しいテキスト ドキュメント.txt"',
'decoded continuations as one string'
);
}
diag q{canonicalize mime word encodings like gb2312};
{
my $str = qq{Subject: =?gb2312?B?1NrKwL3nuPe12Lmy09CzrN9eX1NpbXBsaWZpZWRfQ05fR0IyMzEyYQ==?=
=?gb2312?B?dHRhY2hlbWVudCB0ZXN0IGluIENOIHNpbXBsaWZpZWQ=?=};
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
qq{Subject: 在世界各地共有超過_Simplified_CN_GB2312attachement test in CN simplified},
"right decoding"
);
}
diag q{Whitespace between encoded words should be removed};
{
my $str = "=?utf-8?Q?=E3=82=AD?= =?utf-8?Q?=E3=83=A3?=";
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
"キャ",
"whitespace between encoded words is removed",
);
$str = "=?utf-8?Q?=E3=82=AD?= \n =?utf-8?Q?=E3=83=A3?=";
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
"キャ",
"newlines between encoded words also removed",
);
}
diag q{Multiple octets split across QP hunks are correctly reassembled};
{
# This passes even without explicit code to handle it because utf8
# is perl's internal string encoding.
my $str = "=?utf-8?Q?=E3?= =?utf-8?Q?=82?= =?utf-8?Q?=AD?=";
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
"キ",
"UTF8 character split in three is successfully reassembled",
);
# Non-utf8 encodings thus also must be checked
$str = <<EOT; chomp $str;
=?gb2312?q?Chinese(gb2312)=20=20=C3=C0=B9=FA=C7=B0=CB=BE=B7=A8=B2=BF=B3?=
=?gb2312?q?=A4=C3=E6=BC=FB=C8=F8=B4=EF=C4=B7=BA=F3=B3=C6=C6=E4=D7=B4=CC=AC?=
=?gb2312?q?=BA=DC=BA=C3=20=20Chinese=20(gb2312)?=
EOT
is(
RT::I18N::DecodeMIMEWordsToUTF8($str),
"Chinese(gb2312) 美国前司法部长面见萨达姆后称其状态很好 Chinese (gb2312)",
"gb2312 character is successfully reassembled",
);
}
|
