Merge pull request #3024 from splitbrain/cookieupdate
[dokuwiki.git] / inc / Mailer.class.php
blobeb44583b9928d76bd4e6c437537f11712a3d8f81
1 <?php
2 /**
3 * A class to build and send multi part mails (with HTML content and embedded
4 * attachments). All mails are assumed to be in UTF-8 encoding.
6 * Attachments are handled in memory so this shouldn't be used to send huge
7 * files, but then again mail shouldn't be used to send huge files either.
9 * @author Andreas Gohr <andi@splitbrain.org>
12 use dokuwiki\Extension\Event;
14 // end of line for mail lines - RFC822 says CRLF but postfix (and other MTAs?)
15 // think different
16 if(!defined('MAILHEADER_EOL')) define('MAILHEADER_EOL', "\n");
17 #define('MAILHEADER_ASCIIONLY',1);
19 /**
20 * Mail Handling
22 class Mailer {
24 protected $headers = array();
25 protected $attach = array();
26 protected $html = '';
27 protected $text = '';
29 protected $boundary = '';
30 protected $partid = '';
31 protected $sendparam = null;
33 protected $allowhtml = true;
35 protected $replacements = array('text'=> array(), 'html' => array());
37 /**
38 * Constructor
40 * Initializes the boundary strings, part counters and token replacements
42 public function __construct() {
43 global $conf;
44 /* @var Input $INPUT */
45 global $INPUT;
47 $server = parse_url(DOKU_URL, PHP_URL_HOST);
48 if(strpos($server,'.') === false) $server .= '.localhost';
50 $this->partid = substr(md5(uniqid(mt_rand(), true)),0, 8).'@'.$server;
51 $this->boundary = '__________'.md5(uniqid(mt_rand(), true));
53 $listid = implode('.', array_reverse(explode('/', DOKU_BASE))).$server;
54 $listid = strtolower(trim($listid, '.'));
56 $this->allowhtml = (bool)$conf['htmlmail'];
58 // add some default headers for mailfiltering FS#2247
59 if(!empty($conf['mailreturnpath'])) {
60 $this->setHeader('Return-Path', $conf['mailreturnpath']);
62 $this->setHeader('X-Mailer', 'DokuWiki');
63 $this->setHeader('X-DokuWiki-User', $INPUT->server->str('REMOTE_USER'));
64 $this->setHeader('X-DokuWiki-Title', $conf['title']);
65 $this->setHeader('X-DokuWiki-Server', $server);
66 $this->setHeader('X-Auto-Response-Suppress', 'OOF');
67 $this->setHeader('List-Id', $conf['title'].' <'.$listid.'>');
68 $this->setHeader('Date', date('r'), false);
70 $this->prepareTokenReplacements();
73 /**
74 * Attach a file
76 * @param string $path Path to the file to attach
77 * @param string $mime Mimetype of the attached file
78 * @param string $name The filename to use
79 * @param string $embed Unique key to reference this file from the HTML part
81 public function attachFile($path, $mime, $name = '', $embed = '') {
82 if(!$name) {
83 $name = \dokuwiki\Utf8\PhpString::basename($path);
86 $this->attach[] = array(
87 'data' => file_get_contents($path),
88 'mime' => $mime,
89 'name' => $name,
90 'embed' => $embed
94 /**
95 * Attach a file
97 * @param string $data The file contents to attach
98 * @param string $mime Mimetype of the attached file
99 * @param string $name The filename to use
100 * @param string $embed Unique key to reference this file from the HTML part
102 public function attachContent($data, $mime, $name = '', $embed = '') {
103 if(!$name) {
104 list(, $ext) = explode('/', $mime);
105 $name = count($this->attach).".$ext";
108 $this->attach[] = array(
109 'data' => $data,
110 'mime' => $mime,
111 'name' => $name,
112 'embed' => $embed
117 * Callback function to automatically embed images referenced in HTML templates
119 * @param array $matches
120 * @return string placeholder
122 protected function autoEmbedCallBack($matches) {
123 static $embeds = 0;
124 $embeds++;
126 // get file and mime type
127 $media = cleanID($matches[1]);
128 list(, $mime) = mimetype($media);
129 $file = mediaFN($media);
130 if(!file_exists($file)) return $matches[0]; //bad reference, keep as is
132 // attach it and set placeholder
133 $this->attachFile($file, $mime, '', 'autoembed'.$embeds);
134 return '%%autoembed'.$embeds.'%%';
138 * Add an arbitrary header to the mail
140 * If an empy value is passed, the header is removed
142 * @param string $header the header name (no trailing colon!)
143 * @param string|string[] $value the value of the header
144 * @param bool $clean remove all non-ASCII chars and line feeds?
146 public function setHeader($header, $value, $clean = true) {
147 $header = str_replace(' ', '-', ucwords(strtolower(str_replace('-', ' ', $header)))); // streamline casing
148 if($clean) {
149 $header = preg_replace('/[^a-zA-Z0-9_ \-\.\+\@]+/', '', $header);
150 $value = preg_replace('/[^a-zA-Z0-9_ \-\.\+\@<>]+/', '', $value);
153 // empty value deletes
154 if(is_array($value)){
155 $value = array_map('trim', $value);
156 $value = array_filter($value);
157 if(!$value) $value = '';
158 }else{
159 $value = trim($value);
161 if($value === '') {
162 if(isset($this->headers[$header])) unset($this->headers[$header]);
163 } else {
164 $this->headers[$header] = $value;
169 * Set additional parameters to be passed to sendmail
171 * Whatever is set here is directly passed to PHP's mail() command as last
172 * parameter. Depending on the PHP setup this might break mailing alltogether
174 * @param string $param
176 public function setParameters($param) {
177 $this->sendparam = $param;
181 * Set the text and HTML body and apply replacements
183 * This function applies a whole bunch of default replacements in addition
184 * to the ones specified as parameters
186 * If you pass the HTML part or HTML replacements yourself you have to make
187 * sure you encode all HTML special chars correctly
189 * @param string $text plain text body
190 * @param array $textrep replacements to apply on the text part
191 * @param array $htmlrep replacements to apply on the HTML part, null to use $textrep (urls wrapped in <a> tags)
192 * @param string $html the HTML body, leave null to create it from $text
193 * @param bool $wrap wrap the HTML in the default header/Footer
195 public function setBody($text, $textrep = null, $htmlrep = null, $html = null, $wrap = true) {
197 $htmlrep = (array)$htmlrep;
198 $textrep = (array)$textrep;
200 // create HTML from text if not given
201 if($html === null) {
202 $html = $text;
203 $html = hsc($html);
204 $html = preg_replace('/^----+$/m', '<hr >', $html);
205 $html = nl2br($html);
207 if($wrap) {
208 $wrapper = rawLocale('mailwrap', 'html');
209 $html = preg_replace('/\n-- <br \/>.*$/s', '', $html); //strip signature
210 $html = str_replace('@EMAILSIGNATURE@', '', $html); //strip @EMAILSIGNATURE@
211 $html = str_replace('@HTMLBODY@', $html, $wrapper);
214 if(strpos($text, '@EMAILSIGNATURE@') === false) {
215 $text .= '@EMAILSIGNATURE@';
218 // copy over all replacements missing for HTML (autolink URLs)
219 foreach($textrep as $key => $value) {
220 if(isset($htmlrep[$key])) continue;
221 if(media_isexternal($value)) {
222 $htmlrep[$key] = '<a href="'.hsc($value).'">'.hsc($value).'</a>';
223 } else {
224 $htmlrep[$key] = hsc($value);
228 // embed media from templates
229 $html = preg_replace_callback(
230 '/@MEDIA\(([^\)]+)\)@/',
231 array($this, 'autoEmbedCallBack'), $html
234 // add default token replacements
235 $trep = array_merge($this->replacements['text'], (array)$textrep);
236 $hrep = array_merge($this->replacements['html'], (array)$htmlrep);
238 // Apply replacements
239 foreach($trep as $key => $substitution) {
240 $text = str_replace('@'.strtoupper($key).'@', $substitution, $text);
242 foreach($hrep as $key => $substitution) {
243 $html = str_replace('@'.strtoupper($key).'@', $substitution, $html);
246 $this->setHTML($html);
247 $this->setText($text);
251 * Set the HTML part of the mail
253 * Placeholders can be used to reference embedded attachments
255 * You probably want to use setBody() instead
257 * @param string $html
259 public function setHTML($html) {
260 $this->html = $html;
264 * Set the plain text part of the mail
266 * You probably want to use setBody() instead
268 * @param string $text
270 public function setText($text) {
271 $this->text = $text;
275 * Add the To: recipients
277 * @see cleanAddress
278 * @param string|string[] $address Multiple adresses separated by commas or as array
280 public function to($address) {
281 $this->setHeader('To', $address, false);
285 * Add the Cc: recipients
287 * @see cleanAddress
288 * @param string|string[] $address Multiple adresses separated by commas or as array
290 public function cc($address) {
291 $this->setHeader('Cc', $address, false);
295 * Add the Bcc: recipients
297 * @see cleanAddress
298 * @param string|string[] $address Multiple adresses separated by commas or as array
300 public function bcc($address) {
301 $this->setHeader('Bcc', $address, false);
305 * Add the From: address
307 * This is set to $conf['mailfrom'] when not specified so you shouldn't need
308 * to call this function
310 * @see cleanAddress
311 * @param string $address from address
313 public function from($address) {
314 $this->setHeader('From', $address, false);
318 * Add the mail's Subject: header
320 * @param string $subject the mail subject
322 public function subject($subject) {
323 $this->headers['Subject'] = $subject;
327 * Return a clean name which can be safely used in mail address
328 * fields. That means the name will be enclosed in '"' if it includes
329 * a '"' or a ','. Also a '"' will be escaped as '\"'.
331 * @param string $name the name to clean-up
332 * @see cleanAddress
334 public function getCleanName($name) {
335 $name = trim($name, ' \t"');
336 $name = str_replace('"', '\"', $name, $count);
337 if ($count > 0 || strpos($name, ',') !== false) {
338 $name = '"'.$name.'"';
340 return $name;
344 * Sets an email address header with correct encoding
346 * Unicode characters will be deaccented and encoded base64
347 * for headers. Addresses may not contain Non-ASCII data!
349 * If @$addresses is a string then it will be split into multiple
350 * addresses. Addresses must be separated by a comma. If the display
351 * name includes a comma then it MUST be properly enclosed by '"' to
352 * prevent spliting at the wrong point.
354 * Example:
355 * cc("föö <foo@bar.com>, me@somewhere.com","TBcc");
356 * to("foo, Dr." <foo@bar.com>, me@somewhere.com");
358 * @param string|string[] $addresses Multiple adresses separated by commas or as array
359 * @return false|string the prepared header (can contain multiple lines)
361 public function cleanAddress($addresses) {
362 $headers = '';
363 if(!is_array($addresses)){
364 $count = preg_match_all('/\s*(?:("[^"]*"[^,]+),*)|([^,]+)\s*,*/', $addresses, $matches, PREG_SET_ORDER);
365 $addresses = array();
366 if ($count !== false && is_array($matches)) {
367 foreach ($matches as $match) {
368 array_push($addresses, rtrim($match[0], ','));
373 foreach($addresses as $part) {
374 $part = preg_replace('/[\r\n\0]+/', ' ', $part); // remove attack vectors
375 $part = trim($part);
377 // parse address
378 if(preg_match('#(.*?)<(.*?)>#', $part, $matches)) {
379 $text = trim($matches[1]);
380 $addr = $matches[2];
381 } else {
382 $text = '';
383 $addr = $part;
385 // skip empty ones
386 if(empty($addr)) {
387 continue;
390 // FIXME: is there a way to encode the localpart of a emailaddress?
391 if(!\dokuwiki\Utf8\Clean::isASCII($addr)) {
392 msg(hsc("E-Mail address <$addr> is not ASCII"), -1, __LINE__, __FILE__, MSG_ADMINS_ONLY);
393 continue;
396 if(!mail_isvalid($addr)) {
397 msg(hsc("E-Mail address <$addr> is not valid"), -1, __LINE__, __FILE__, MSG_ADMINS_ONLY);
398 continue;
401 // text was given
402 if(!empty($text) && !isWindows()) { // No named recipients for To: in Windows (see FS#652)
403 // add address quotes
404 $addr = "<$addr>";
406 if(defined('MAILHEADER_ASCIIONLY')) {
407 $text = \dokuwiki\Utf8\Clean::deaccent($text);
408 $text = \dokuwiki\Utf8\Clean::strip($text);
411 if(strpos($text, ',') !== false || !\dokuwiki\Utf8\Clean::isASCII($text)) {
412 $text = '=?UTF-8?B?'.base64_encode($text).'?=';
414 } else {
415 $text = '';
418 // add to header comma seperated
419 if($headers != '') {
420 $headers .= ', ';
422 $headers .= $text.' '.$addr;
425 $headers = trim($headers);
426 if(empty($headers)) return false;
428 return $headers;
433 * Prepare the mime multiparts for all attachments
435 * Replaces placeholders in the HTML with the correct CIDs
437 * @return string mime multiparts
439 protected function prepareAttachments() {
440 $mime = '';
441 $part = 1;
442 // embedded attachments
443 foreach($this->attach as $media) {
444 $media['name'] = str_replace(':', '_', cleanID($media['name'], true));
446 // create content id
447 $cid = 'part'.$part.'.'.$this->partid;
449 // replace wildcards
450 if($media['embed']) {
451 $this->html = str_replace('%%'.$media['embed'].'%%', 'cid:'.$cid, $this->html);
454 $mime .= '--'.$this->boundary.MAILHEADER_EOL;
455 $mime .= $this->wrappedHeaderLine('Content-Type', $media['mime'].'; id="'.$cid.'"');
456 $mime .= $this->wrappedHeaderLine('Content-Transfer-Encoding', 'base64');
457 $mime .= $this->wrappedHeaderLine('Content-ID',"<$cid>");
458 if($media['embed']) {
459 $mime .= $this->wrappedHeaderLine('Content-Disposition', 'inline; filename='.$media['name']);
460 } else {
461 $mime .= $this->wrappedHeaderLine('Content-Disposition', 'attachment; filename='.$media['name']);
463 $mime .= MAILHEADER_EOL; //end of headers
464 $mime .= chunk_split(base64_encode($media['data']), 74, MAILHEADER_EOL);
466 $part++;
468 return $mime;
472 * Build the body and handles multi part mails
474 * Needs to be called before prepareHeaders!
476 * @return string the prepared mail body, false on errors
478 protected function prepareBody() {
480 // no HTML mails allowed? remove HTML body
481 if(!$this->allowhtml) {
482 $this->html = '';
485 // check for body
486 if(!$this->text && !$this->html) {
487 return false;
490 // add general headers
491 $this->headers['MIME-Version'] = '1.0';
493 $body = '';
495 if(!$this->html && !count($this->attach)) { // we can send a simple single part message
496 $this->headers['Content-Type'] = 'text/plain; charset=UTF-8';
497 $this->headers['Content-Transfer-Encoding'] = 'base64';
498 $body .= chunk_split(base64_encode($this->text), 72, MAILHEADER_EOL);
499 } else { // multi part it is
500 $body .= "This is a multi-part message in MIME format.".MAILHEADER_EOL;
502 // prepare the attachments
503 $attachments = $this->prepareAttachments();
505 // do we have alternative text content?
506 if($this->text && $this->html) {
507 $this->headers['Content-Type'] = 'multipart/alternative;'.MAILHEADER_EOL.
508 ' boundary="'.$this->boundary.'XX"';
509 $body .= '--'.$this->boundary.'XX'.MAILHEADER_EOL;
510 $body .= 'Content-Type: text/plain; charset=UTF-8'.MAILHEADER_EOL;
511 $body .= 'Content-Transfer-Encoding: base64'.MAILHEADER_EOL;
512 $body .= MAILHEADER_EOL;
513 $body .= chunk_split(base64_encode($this->text), 72, MAILHEADER_EOL);
514 $body .= '--'.$this->boundary.'XX'.MAILHEADER_EOL;
515 $body .= 'Content-Type: multipart/related;'.MAILHEADER_EOL.
516 ' boundary="'.$this->boundary.'";'.MAILHEADER_EOL.
517 ' type="text/html"'.MAILHEADER_EOL;
518 $body .= MAILHEADER_EOL;
521 $body .= '--'.$this->boundary.MAILHEADER_EOL;
522 $body .= 'Content-Type: text/html; charset=UTF-8'.MAILHEADER_EOL;
523 $body .= 'Content-Transfer-Encoding: base64'.MAILHEADER_EOL;
524 $body .= MAILHEADER_EOL;
525 $body .= chunk_split(base64_encode($this->html), 72, MAILHEADER_EOL);
526 $body .= MAILHEADER_EOL;
527 $body .= $attachments;
528 $body .= '--'.$this->boundary.'--'.MAILHEADER_EOL;
530 // close open multipart/alternative boundary
531 if($this->text && $this->html) {
532 $body .= '--'.$this->boundary.'XX--'.MAILHEADER_EOL;
536 return $body;
540 * Cleanup and encode the headers array
542 protected function cleanHeaders() {
543 global $conf;
545 // clean up addresses
546 if(empty($this->headers['From'])) $this->from($conf['mailfrom']);
547 $addrs = array('To', 'From', 'Cc', 'Bcc', 'Reply-To', 'Sender');
548 foreach($addrs as $addr) {
549 if(isset($this->headers[$addr])) {
550 $this->headers[$addr] = $this->cleanAddress($this->headers[$addr]);
554 if(isset($this->headers['Subject'])) {
555 // add prefix to subject
556 if(empty($conf['mailprefix'])) {
557 if(\dokuwiki\Utf8\PhpString::strlen($conf['title']) < 20) {
558 $prefix = '['.$conf['title'].']';
559 } else {
560 $prefix = '['.\dokuwiki\Utf8\PhpString::substr($conf['title'], 0, 20).'...]';
562 } else {
563 $prefix = '['.$conf['mailprefix'].']';
565 $len = strlen($prefix);
566 if(substr($this->headers['Subject'], 0, $len) != $prefix) {
567 $this->headers['Subject'] = $prefix.' '.$this->headers['Subject'];
570 // encode subject
571 if(defined('MAILHEADER_ASCIIONLY')) {
572 $this->headers['Subject'] = \dokuwiki\Utf8\Clean::deaccent($this->headers['Subject']);
573 $this->headers['Subject'] = \dokuwiki\Utf8\Clean::strip($this->headers['Subject']);
575 if(!\dokuwiki\Utf8\Clean::isASCII($this->headers['Subject'])) {
576 $this->headers['Subject'] = '=?UTF-8?B?'.base64_encode($this->headers['Subject']).'?=';
583 * Returns a complete, EOL terminated header line, wraps it if necessary
585 * @param string $key
586 * @param string $val
587 * @return string line
589 protected function wrappedHeaderLine($key, $val){
590 return wordwrap("$key: $val", 78, MAILHEADER_EOL.' ').MAILHEADER_EOL;
594 * Create a string from the headers array
596 * @returns string the headers
598 protected function prepareHeaders() {
599 $headers = '';
600 foreach($this->headers as $key => $val) {
601 if ($val === '' || $val === null) continue;
602 $headers .= $this->wrappedHeaderLine($key, $val);
604 return $headers;
608 * return a full email with all headers
610 * This is mainly intended for debugging and testing but could also be
611 * used for MHT exports
613 * @return string the mail, false on errors
615 public function dump() {
616 $this->cleanHeaders();
617 $body = $this->prepareBody();
618 if($body === false) return false;
619 $headers = $this->prepareHeaders();
621 return $headers.MAILHEADER_EOL.$body;
625 * Prepare default token replacement strings
627 * Populates the '$replacements' property.
628 * Should be called by the class constructor
630 protected function prepareTokenReplacements() {
631 global $INFO;
632 global $conf;
633 /* @var Input $INPUT */
634 global $INPUT;
635 global $lang;
637 $ip = clientIP();
638 $cip = gethostsbyaddrs($ip);
639 $name = isset($INFO) ? $INFO['userinfo']['name'] : '';
640 $mail = isset($INFO) ? $INFO['userinfo']['mail'] : '';
642 $this->replacements['text'] = array(
643 'DATE' => dformat(),
644 'BROWSER' => $INPUT->server->str('HTTP_USER_AGENT'),
645 'IPADDRESS' => $ip,
646 'HOSTNAME' => $cip,
647 'TITLE' => $conf['title'],
648 'DOKUWIKIURL' => DOKU_URL,
649 'USER' => $INPUT->server->str('REMOTE_USER'),
650 'NAME' => $name,
651 'MAIL' => $mail
653 $signature = str_replace(
654 '@DOKUWIKIURL@',
655 $this->replacements['text']['DOKUWIKIURL'],
656 $lang['email_signature_text']
658 $this->replacements['text']['EMAILSIGNATURE'] = "\n-- \n" . $signature . "\n";
660 $this->replacements['html'] = array(
661 'DATE' => '<i>' . hsc(dformat()) . '</i>',
662 'BROWSER' => hsc($INPUT->server->str('HTTP_USER_AGENT')),
663 'IPADDRESS' => '<code>' . hsc($ip) . '</code>',
664 'HOSTNAME' => '<code>' . hsc($cip) . '</code>',
665 'TITLE' => hsc($conf['title']),
666 'DOKUWIKIURL' => '<a href="' . DOKU_URL . '">' . DOKU_URL . '</a>',
667 'USER' => hsc($INPUT->server->str('REMOTE_USER')),
668 'NAME' => hsc($name),
669 'MAIL' => '<a href="mailto:"' . hsc($mail) . '">' .
670 hsc($mail) . '</a>'
672 $signature = $lang['email_signature_text'];
673 if(!empty($lang['email_signature_html'])) {
674 $signature = $lang['email_signature_html'];
676 $signature = str_replace(
677 array(
678 '@DOKUWIKIURL@',
679 "\n"
681 array(
682 $this->replacements['html']['DOKUWIKIURL'],
683 '<br />'
685 $signature
687 $this->replacements['html']['EMAILSIGNATURE'] = $signature;
691 * Send the mail
693 * Call this after all data was set
695 * @triggers MAIL_MESSAGE_SEND
696 * @return bool true if the mail was successfully passed to the MTA
698 public function send() {
699 $success = false;
701 // prepare hook data
702 $data = array(
703 // pass the whole mail class to plugin
704 'mail' => $this,
705 // pass references for backward compatibility
706 'to' => &$this->headers['To'],
707 'cc' => &$this->headers['Cc'],
708 'bcc' => &$this->headers['Bcc'],
709 'from' => &$this->headers['From'],
710 'subject' => &$this->headers['Subject'],
711 'body' => &$this->text,
712 'params' => &$this->sendparam,
713 'headers' => '', // plugins shouldn't use this
714 // signal if we mailed successfully to AFTER event
715 'success' => &$success,
718 // do our thing if BEFORE hook approves
719 $evt = new Event('MAIL_MESSAGE_SEND', $data);
720 if($evt->advise_before(true)) {
721 // clean up before using the headers
722 $this->cleanHeaders();
724 // any recipients?
725 if(trim($this->headers['To']) === '' &&
726 trim($this->headers['Cc']) === '' &&
727 trim($this->headers['Bcc']) === ''
728 ) return false;
730 // The To: header is special
731 if(array_key_exists('To', $this->headers)) {
732 $to = (string)$this->headers['To'];
733 unset($this->headers['To']);
734 } else {
735 $to = '';
738 // so is the subject
739 if(array_key_exists('Subject', $this->headers)) {
740 $subject = (string)$this->headers['Subject'];
741 unset($this->headers['Subject']);
742 } else {
743 $subject = '';
746 // make the body
747 $body = $this->prepareBody();
748 if($body === false) return false;
750 // cook the headers
751 $headers = $this->prepareHeaders();
752 // add any headers set by legacy plugins
753 if(trim($data['headers'])) {
754 $headers .= MAILHEADER_EOL.trim($data['headers']);
757 // send the thing
758 if($this->sendparam === null) {
759 $success = @mail($to, $subject, $body, $headers);
760 } else {
761 $success = @mail($to, $subject, $body, $headers, $this->sendparam);
764 // any AFTER actions?
765 $evt->advise_after();
766 return $success;