| | |
|---|
| | | |
|---|
| | | $p += array('safe' => false, 'inline_html' => true); |
|---|
| | | |
|---|
| | | // special replacements (not properly handled by washtml class) |
|---|
| | | $html_search = array( |
|---|
| | | '/(<\/nobr>)(\s+)(<nobr>)/i', // space(s) between <NOBR> |
|---|
| | | '/<title[^>]*>[^<]*<\/title>/i', // PHP bug #32547 workaround: remove title tag |
|---|
| | | '/^(\0\0\xFE\xFF|\xFF\xFE\0\0|\xFE\xFF|\xFF\xFE|\xEF\xBB\xBF)/', // byte-order mark (only outlook?) |
|---|
| | | '/<html\s[^>]+>/i', // washtml/DOMDocument cannot handle xml namespaces |
|---|
| | | ); |
|---|
| | | $html_replace = array( |
|---|
| | | '\\1'.' '.'\\3', |
|---|
| | | '', |
|---|
| | | '', |
|---|
| | | '<html>', |
|---|
| | | ); |
|---|
| | | $html = preg_replace($html_search, $html_replace, trim($html)); |
|---|
| | | |
|---|
| | | // PCRE errors handling (#1486856), should we use something like for every preg_* use? |
|---|
| | | if ($html === null && ($preg_error = preg_last_error()) != PREG_NO_ERROR) { |
|---|
| | | $errstr = "Could not clean up HTML message! PCRE Error: $preg_error."; |
|---|
| | | |
|---|
| | | if ($preg_error == PREG_BACKTRACK_LIMIT_ERROR) |
|---|
| | | $errstr .= " Consider raising pcre.backtrack_limit!"; |
|---|
| | | if ($preg_error == PREG_RECURSION_LIMIT_ERROR) |
|---|
| | | $errstr .= " Consider raising pcre.recursion_limit!"; |
|---|
| | | |
|---|
| | | raise_error(array('code' => 620, 'type' => 'php', |
|---|
| | | 'line' => __LINE__, 'file' => __FILE__, |
|---|
| | | 'message' => $errstr), true, false); |
|---|
| | | return ''; |
|---|
| | | } |
|---|
| | | |
|---|
| | | // fix (unknown/malformed) HTML tags before "wash" |
|---|
| | | $html = preg_replace_callback('/(<[\/]*)([^\s>]+)/', 'rcmail_html_tag_callback', $html); |
|---|
| | | |
|---|
| | | // charset was converted to UTF-8 in rcube_storage::get_message_part(), |
|---|
| | | // change/add charset specification in HTML accordingly, |
|---|
| | | // washtml cannot work without that |
|---|
| | |
|---|
| | | if (!$rcount) { |
|---|
| | | $html = '<head>' . $meta . '</head>' . $html; |
|---|
| | | } |
|---|
| | | |
|---|
| | | // turn relative into absolute urls |
|---|
| | | $html = rcmail_resolve_base($html); |
|---|
| | | |
|---|
| | | // clean HTML with washhtml by Frederic Motte |
|---|
| | | $wash_opts = array( |
|---|
| | |
|---|
| | | $wash_opts['html_attribs'] = $p['html_attribs']; |
|---|
| | | |
|---|
| | | // initialize HTML washer |
|---|
| | | $washer = new washtml($wash_opts); |
|---|
| | | $washer = new rcube_washtml($wash_opts); |
|---|
| | | |
|---|
| | | if (!$p['skip_washer_form_callback']) |
|---|
| | | $washer->add_callback('form', 'rcmail_washtml_callback'); |
|---|
| | |
|---|
| | | |
|---|
| | | // convert html to text/plain |
|---|
| | | if ($data['type'] == 'html' && $data['plain']) { |
|---|
| | | $txt = new html2text($data['body'], false, true); |
|---|
| | | $txt = new rcube_html2text($data['body'], false, true); |
|---|
| | | $body = $txt->get_text(); |
|---|
| | | $part->ctype_secondary = 'plain'; |
|---|
| | | } |
|---|
| | |
|---|
| | | |
|---|
| | | |
|---|
| | | /** |
|---|
| | | * Callback function for HTML tags fixing |
|---|
| | | */ |
|---|
| | | function rcmail_html_tag_callback($matches) |
|---|
| | | { |
|---|
| | | $tagname = $matches[2]; |
|---|
| | | |
|---|
| | | $tagname = preg_replace(array( |
|---|
| | | '/:.*$/', // Microsoft's Smart Tags <st1:xxxx> |
|---|
| | | '/[^a-z0-9_\[\]\!-]/i', // forbidden characters |
|---|
| | | ), '', $tagname); |
|---|
| | | |
|---|
| | | return $matches[1].$tagname; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | /** |
|---|
| | | * return table with message headers |
|---|
| | | */ |
|---|
| | | function rcmail_message_headers($attrib, $headers=null) |
|---|
| | |
|---|
| | | } |
|---|
| | | |
|---|
| | | // show these headers |
|---|
| | | $standard_headers = array('subject', 'from', 'to', 'cc', 'bcc', 'replyto', |
|---|
| | | $standard_headers = array('subject', 'from', 'sender', 'to', 'cc', 'bcc', 'replyto', |
|---|
| | | 'mail-reply-to', 'mail-followup-to', 'date', 'priority'); |
|---|
| | | $exclude_headers = $attrib['exclude'] ? explode(',', $attrib['exclude']) : array(); |
|---|
| | | $output_headers = array(); |
|---|
| | |
|---|
| | | if ($headers['mail-replyto'] != $headers['reply-to'] |
|---|
| | | && $headers['reply-to'] != $headers['from'] |
|---|
| | | ) { |
|---|
| | | $header_value = rcmail_address_string($value, $attrib['max'], true, $attrib['addicon'], $headers['charset'], $header_title); |
|---|
| | | $ishtml = true; |
|---|
| | | } |
|---|
| | | else |
|---|
| | | continue; |
|---|
| | | } |
|---|
| | | else if ($hkey == 'sender') { |
|---|
| | | if ($headers['sender'] != $headers['from']) { |
|---|
| | | $header_value = rcmail_address_string($value, $attrib['max'], true, $attrib['addicon'], $headers['charset'], $header_title); |
|---|
| | | $ishtml = true; |
|---|
| | | } |
|---|
| | |
|---|
| | | |
|---|
| | | // Content-Type: image/*... |
|---|
| | | if (preg_match($mime_regex, $part->mimetype)) { |
|---|
| | | return $part->mimetype; |
|---|
| | | return rcmail_fix_mimetype($part->mimetype); |
|---|
| | | } |
|---|
| | | |
|---|
| | | // Many clients use application/octet-stream, we'll detect mimetype |
|---|
| | |
|---|
| | | ) { |
|---|
| | | return $types[$extension]; |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | /** |
|---|
| | | * Convert all relative URLs according to a <base> in HTML |
|---|
| | | */ |
|---|
| | | function rcmail_resolve_base($body) |
|---|
| | | { |
|---|
| | | // check for <base href=...> |
|---|
| | | if (preg_match('!(<base.*href=["\']?)([hftps]{3,5}://[a-z0-9/.%-]+)!i', $body, $regs)) { |
|---|
| | | $replacer = new rcube_base_replacer($regs[2]); |
|---|
| | | $body = $replacer->replace($body); |
|---|
| | | } |
|---|
| | | |
|---|
| | | return $body; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | |
|---|
| | | $part = $MESSAGE->mime_parts[$part]; |
|---|
| | | $table = new html_table(array('cols' => 3)); |
|---|
| | | |
|---|
| | | $filename = $part->filename; |
|---|
| | | if (empty($filename) && $attach_prop->mimetype == 'text/html') { |
|---|
| | | $filename = rcube_label('htmlmessage'); |
|---|
| | | } |
|---|
| | | $filename = rcmail_attachment_name($part); |
|---|
| | | |
|---|
| | | if (!empty($filename)) { |
|---|
| | | $table->add('title', Q(rcube_label('filename'))); |
|---|
| | |
|---|
| | | |
|---|
| | | return $table->show($attrib); |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | |
|---|
| | | function rcmail_message_part_frame($attrib) |
|---|
| | |
|---|
| | | if ($agent = $RCMAIL->config->get('useragent')) |
|---|
| | | $headers['User-Agent'] = $agent; |
|---|
| | | |
|---|
| | | if ($RCMAIL->config->get('mdn_use_from')) |
|---|
| | | $options['mdn_use_from'] = true; |
|---|
| | | |
|---|
| | | $body = rcube_label("yourmessage") . "\r\n\r\n" . |
|---|
| | | "\t" . rcube_label("to") . ': ' . rcube_mime::decode_mime_string($message->headers->to, $message->headers->charset) . "\r\n" . |
|---|
| | | "\t" . rcube_label("subject") . ': ' . $message->subject . "\r\n" . |
|---|
| | |
|---|
| | | $compose->setTXTBody(rc_wordwrap($body, 75, "\r\n")); |
|---|
| | | $compose->addAttachment($report, 'message/disposition-notification', 'MDNPart2.txt', false, '7bit', 'inline'); |
|---|
| | | |
|---|
| | | $sent = rcmail_deliver_message($compose, $identity['email'], $mailto, $smtp_error, $body_file); |
|---|
| | | $sent = rcmail_deliver_message($compose, $identity['email'], $mailto, $smtp_error, $body_file, $options); |
|---|
| | | |
|---|
| | | if ($sent) |
|---|
| | | { |
|---|
| | |
|---|
| | | if (preg_match('/^application\/pdf.+/', $name)) |
|---|
| | | $name = 'application/pdf'; |
|---|
| | | |
|---|
| | | // treat image/pjpeg as image/jpeg |
|---|
| | | else if (preg_match('/^image\/p?jpe?g$/', $name)) |
|---|
| | | $name = 'image/jpeg'; |
|---|
| | | |
|---|
| | | return $name; |
|---|
| | | } |
|---|
| | | |
|---|
| | | // return attachment filename, handle empty filename case |
|---|
| | | function rcmail_attachment_name($attachment, $display = false) |
|---|
| | | { |
|---|
| | | $filename = $attachment->filename; |
|---|
| | | |
|---|
| | | if ($filename === null || $filename === '') { |
|---|
| | | if ($attachment->mimetype == 'text/html') { |
|---|
| | | $filename = rcube_label('htmlmessage'); |
|---|
| | | } |
|---|
| | | else { |
|---|
| | | $ext = rcube_mime::get_mime_extensions($attachment->mimetype); |
|---|
| | | $ext = array_shift($ext); |
|---|
| | | $filename = rcube_label('messagepart') . ' ' . $attachment->mime_id; |
|---|
| | | if ($ext) { |
|---|
| | | $filename .= '.' . $ext; |
|---|
| | | } |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | $filename = preg_replace('[\r\n]', '', $filename); |
|---|
| | | |
|---|
| | | // Display smart names for some known mimetypes |
|---|
| | | if ($display) { |
|---|
| | | if (preg_match('/application\/(pgp|pkcs7)-signature/i', $attachment->mimetype)) { |
|---|
| | | $filename = rcube_label('digitalsig'); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | return $filename; |
|---|
| | | } |
|---|
| | | |
|---|
| | | function rcmail_search_filter($attrib) |
|---|
| | | { |
|---|
| | | global $OUTPUT, $CONFIG; |
|---|
