1
|
|
|
<?php |
2
|
|
|
/** |
3
|
|
|
* This file is part of the ZBateson\MailMimeParser project. |
4
|
|
|
* |
5
|
|
|
* @license http://opensource.org/licenses/bsd-license.php BSD |
6
|
|
|
*/ |
7
|
|
|
namespace ZBateson\MailMimeParser\Message\Writer; |
8
|
|
|
|
9
|
|
|
use ZBateson\MailMimeParser\Message\MimePart; |
10
|
|
|
use ZBateson\MailMimeParser\Stream\StreamLeftover; |
11
|
|
|
|
12
|
|
|
/** |
13
|
|
|
* Writes a MimePart to a resource handle. |
14
|
|
|
* |
15
|
|
|
* The class is responsible for writing out the headers and content of a |
16
|
|
|
* MimePart to an output stream buffer, taking care of encoding and filtering. |
17
|
|
|
* |
18
|
|
|
* @author Zaahid Bateson |
19
|
|
|
*/ |
20
|
|
|
class MimePartWriter |
21
|
|
|
{ |
22
|
|
|
/** |
23
|
|
|
* @var array default params for stream filters in |
24
|
|
|
* setTransferEncodingFilterOnStream |
25
|
|
|
*/ |
26
|
|
|
private static $defaultStreamFilterParams = [ |
27
|
|
|
'line-length' => 76, |
28
|
|
|
'line-break-chars' => "\r\n", |
29
|
|
|
]; |
30
|
|
|
|
31
|
|
|
/** |
32
|
|
|
* @var array map of transfer-encoding types to registered stream filter |
33
|
|
|
* names used in setTransferEncodingFilterOnStream |
34
|
|
|
*/ |
35
|
|
|
private static $typeToEncodingMap = [ |
36
|
|
|
'quoted-printable' => 'mmp-convert.quoted-printable-encode', |
37
|
|
|
'base64' => 'mmp-convert.base64-encode', |
38
|
|
|
'x-uuencode' => 'mailmimeparser-uuencode', |
39
|
|
|
'x-uue' => 'mailmimeparser-uuencode', |
40
|
|
|
'uuencode' => 'mailmimeparser-uuencode', |
41
|
|
|
'uue' => 'mailmimeparser-uuencode', |
42
|
|
|
]; |
43
|
|
|
|
44
|
|
|
/** |
45
|
|
|
* Returns the singleton instance for the class, instantiating it if not |
46
|
|
|
* already created. |
47
|
|
|
*/ |
48
|
|
|
public static function getInstance() |
49
|
|
|
{ |
50
|
|
|
static $instances = []; |
51
|
|
|
$class = get_called_class(); |
52
|
|
|
if (!isset($instances[$class])) { |
53
|
|
|
$instances[$class] = new static(); |
54
|
|
|
} |
55
|
|
|
return $instances[$class]; |
56
|
|
|
} |
57
|
|
|
|
58
|
|
|
/** |
59
|
|
|
* Writes out the headers of the passed MimePart and follows them with an |
60
|
|
|
* empty line. |
61
|
|
|
* |
62
|
|
|
* @param MimePart $part |
63
|
|
|
* @param resource $handle |
64
|
|
|
*/ |
65
|
|
|
public function writePartHeadersTo(MimePart $part, $handle) |
66
|
|
|
{ |
67
|
|
|
$headers = $part->getHeaders(); |
68
|
|
|
foreach ($headers as $header) { |
69
|
|
|
fwrite($handle, "$header\r\n"); |
70
|
|
|
} |
71
|
|
|
fwrite($handle, "\r\n"); |
72
|
|
|
} |
73
|
|
|
|
74
|
|
|
/** |
75
|
|
|
* Sets up a mailmimeparser-encode stream filter on the content resource |
76
|
|
|
* handle of the passed MimePart if applicable and returns a reference to |
77
|
|
|
* the filter. |
78
|
|
|
* |
79
|
|
|
* @param MimePart $part |
80
|
|
|
* @return resource a reference to the appended stream filter or null |
81
|
|
|
*/ |
82
|
|
|
private function setCharsetStreamFilterOnPartStream(MimePart $part) |
83
|
|
|
{ |
84
|
|
|
$handle = $part->getContentResourceHandle(); |
85
|
|
|
if ($part->isTextPart()) { |
86
|
|
|
return stream_filter_append( |
87
|
|
|
$handle, |
88
|
|
|
'mailmimeparser-encode', |
89
|
|
|
STREAM_FILTER_READ, |
90
|
|
|
[ |
91
|
|
|
'charset' => 'UTF-8', |
92
|
|
|
'to' => $part->getHeaderParameter( |
93
|
|
|
'Content-Type', |
94
|
|
|
'charset', |
95
|
|
|
'ISO-8859-1' |
96
|
|
|
) |
97
|
|
|
] |
98
|
|
|
); |
99
|
|
|
} |
100
|
|
|
return null; |
101
|
|
|
} |
102
|
|
|
|
103
|
|
|
/** |
104
|
|
|
* Appends a stream filter on the passed MimePart's content resource handle |
105
|
|
|
* based on the type of encoding for the passed part. |
106
|
|
|
* |
107
|
|
|
* @param MimePart $part |
108
|
|
|
* @param resource $handle |
109
|
|
|
* @param StreamLeftover $leftovers |
110
|
|
|
* @return resource the stream filter |
111
|
|
|
*/ |
112
|
|
|
private function setTransferEncodingFilterOnStream(MimePart $part, $handle, StreamLeftover $leftovers) |
113
|
|
|
{ |
114
|
|
|
$contentHandle = $part->getContentResourceHandle(); |
115
|
|
|
$encoding = strtolower($part->getHeaderValue('Content-Transfer-Encoding')); |
116
|
|
|
$params = array_merge(self::$defaultStreamFilterParams, [ |
117
|
|
|
'leftovers' => $leftovers, |
118
|
|
|
'filename' => $part->getHeaderParameter( |
119
|
|
|
'Content-Type', |
120
|
|
|
'name', |
121
|
|
|
'null' |
122
|
|
|
) |
123
|
|
|
]); |
124
|
|
|
if (isset(self::$typeToEncodingMap[$encoding])) { |
125
|
|
|
return stream_filter_append( |
126
|
|
|
$contentHandle, |
127
|
|
|
self::$typeToEncodingMap[$encoding], |
128
|
|
|
STREAM_FILTER_READ, |
129
|
|
|
$params |
130
|
|
|
); |
131
|
|
|
} |
132
|
|
|
return null; |
133
|
|
|
} |
134
|
|
|
|
135
|
|
|
/** |
136
|
|
|
* Trims out any starting and ending CRLF characters in the stream. |
137
|
|
|
* |
138
|
|
|
* @param string $read the read string, and where the result will be written |
139
|
|
|
* to |
140
|
|
|
* @param bool $first set to true if this is the first set of read |
141
|
|
|
* characters from the stream (ltrims CRLF) |
142
|
|
|
* @param string $lastChars contains any CRLF characters from the last $read |
143
|
|
|
* line if it ended with a CRLF (because they're trimmed from the |
144
|
|
|
* end, and get prepended to $read). |
145
|
|
|
*/ |
146
|
|
|
private function trimTextBeforeCopying(&$read, &$first, &$lastChars) |
147
|
|
|
{ |
148
|
|
|
if ($first) { |
149
|
|
|
$first = false; |
150
|
|
|
$read = ltrim($read, "\r\n"); |
151
|
|
|
} |
152
|
|
|
$read = $lastChars . $read; |
153
|
|
|
$lastChars = ''; |
154
|
|
|
$matches = null; |
155
|
|
|
if (preg_match('/[\r\n]+$/', $read, $matches)) { |
156
|
|
|
$lastChars = $matches[0]; |
157
|
|
|
$read = rtrim($read, "\r\n"); |
158
|
|
|
} |
159
|
|
|
} |
160
|
|
|
|
161
|
|
|
/** |
162
|
|
|
* Copies the content of the $fromHandle stream into the $toHandle stream, |
163
|
|
|
* maintaining the current read position in $fromHandle. The passed |
164
|
|
|
* MimePart is where $fromHandle originated after setting up filters on |
165
|
|
|
* $fromHandle. |
166
|
|
|
* |
167
|
|
|
* @param MimePart $part |
168
|
|
|
* @param resource $fromHandle |
169
|
|
|
* @param resource $toHandle |
170
|
|
|
*/ |
171
|
|
|
private function copyContentStream(MimePart $part, $fromHandle, $toHandle) |
172
|
|
|
{ |
173
|
|
|
$pos = ftell($fromHandle); |
174
|
|
|
rewind($fromHandle); |
175
|
|
|
// changed from stream_copy_to_stream because hhvm seems to stop before |
176
|
|
|
// end of file for some reason |
177
|
|
|
$lastChars = ''; |
178
|
|
|
$first = true; |
179
|
|
|
while (!feof($fromHandle)) { |
180
|
|
|
$read = fread($fromHandle, 1024); |
181
|
|
|
if (strcasecmp($part->getHeaderValue('Content-Encoding'), '8bit') !== 0) { |
182
|
|
|
$read = preg_replace('/\r\n|\r|\n/', "\r\n", $read); |
183
|
|
|
} |
184
|
|
|
if ($part->isTextPart()) { |
185
|
|
|
$this->trimTextBeforeCopying($read, $first, $lastChars); |
186
|
|
|
} |
187
|
|
|
fwrite($toHandle, $read); |
188
|
|
|
} |
189
|
|
|
fseek($fromHandle, $pos); |
190
|
|
|
} |
191
|
|
|
|
192
|
|
|
/** |
193
|
|
|
* Writes out the content portion of the mime part based on the headers that |
194
|
|
|
* are set on the part, taking care of character/content-transfer encoding. |
195
|
|
|
* |
196
|
|
|
* @param MimePart $part |
197
|
|
|
* @param resource $handle |
198
|
|
|
*/ |
199
|
|
|
public function writePartContentTo(MimePart $part, $handle) |
200
|
|
|
{ |
201
|
|
|
$contentHandle = $part->getContentResourceHandle(); |
202
|
|
|
if ($contentHandle !== null) { |
|
|
|
|
203
|
|
|
|
204
|
|
|
$filter = $this->setCharsetStreamFilterOnPartStream($part); |
205
|
|
|
$leftovers = new StreamLeftover(); |
206
|
|
|
$encodingFilter = $this->setTransferEncodingFilterOnStream( |
207
|
|
|
$part, |
208
|
|
|
$handle, |
209
|
|
|
$leftovers |
210
|
|
|
); |
211
|
|
|
$this->copyContentStream($part, $contentHandle, $handle); |
212
|
|
|
|
213
|
|
|
if ($encodingFilter !== null) { |
|
|
|
|
214
|
|
|
fflush($handle); |
215
|
|
|
stream_filter_remove($encodingFilter); |
216
|
|
|
fwrite($handle, $leftovers->encodedValue); |
217
|
|
|
} |
218
|
|
|
if ($filter !== null) { |
|
|
|
|
219
|
|
|
stream_filter_remove($filter); |
220
|
|
|
} |
221
|
|
|
} |
222
|
|
|
} |
223
|
|
|
|
224
|
|
|
/** |
225
|
|
|
* Writes out the MimePart to the passed resource. |
226
|
|
|
* |
227
|
|
|
* Takes care of character and content transfer encoding on the output based |
228
|
|
|
* on what headers are set. |
229
|
|
|
* |
230
|
|
|
* @param MimePart $part |
231
|
|
|
* @param resource $handle |
232
|
|
|
*/ |
233
|
|
|
public function writePartTo(MimePart $part, $handle) |
234
|
|
|
{ |
235
|
|
|
$this->writePartHeadersTo($part, $handle); |
236
|
|
|
$this->writePartContentTo($part, $handle); |
237
|
|
|
} |
238
|
|
|
} |
239
|
|
|
|