| | |
|---|
| | | |
|---|
| | | */ |
|---|
| | | |
|---|
| | | require_once('include/rcube_smtp.inc'); |
|---|
| | | |
|---|
| | | $EMAIL_ADDRESS_PATTERN = '([a-z0-9][a-z0-9\-\.\+\_]*@[a-z0-9][a-z0-9\-\.]*\\.[a-z]{2,5})'; |
|---|
| | | |
|---|
| | | // actions that do not require imap connection |
|---|
| | |
|---|
| | | $OUTPUT->set_env('read_when_deleted', true); |
|---|
| | | if ($CONFIG['skip_deleted']) |
|---|
| | | $OUTPUT->set_env('skip_deleted', true); |
|---|
| | | if ($CONFIG['display_next']) |
|---|
| | | $OUTPUT->set_env('display_next', true); |
|---|
| | | |
|---|
| | | if ($CONFIG['trash_mbox']) |
|---|
| | | $OUTPUT->set_env('trash_mailbox', $CONFIG['trash_mbox']); |
|---|
| | |
|---|
| | | { |
|---|
| | | $action = $mbox==$CONFIG['drafts_mbox'] ? 'compose' : 'show'; |
|---|
| | | $uid_param = $mbox==$CONFIG['drafts_mbox'] ? '_draft_uid' : '_uid'; |
|---|
| | | $cont = abbreviate_string(trim($IMAP->decode_header($header->$col)), 160); |
|---|
| | | $cont = abbreviate_string(trim($IMAP->decode_header($header->$col)), 160); |
|---|
| | | if (!$cont) $cont = rcube_label('nosubject'); |
|---|
| | | $cont = $browser->ie ? Q($cont) : sprintf('<a href="%s" onclick="return rcube_event.cancel(event)">%s</a>', Q(rcmail_url($action, array($uid_param=>$header->uid, '_mbox'=>$mbox))), Q($cont)); |
|---|
| | | } |
|---|
| | |
|---|
| | | global $REMOTE_OBJECTS; |
|---|
| | | |
|---|
| | | $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> |
|---|
| | | '/(<[\/]*st1:[^>]+>)/i', // Microsoft's Smart Tags <ST1> |
|---|
| | | '/<\/?rte_text>/i', // Rich Text Editor tags (#1485647) |
|---|
| | | '/<\/?broadcast[^>]*>/i', // invoices from the Apple Store contains <broadcast> tags (#1485962) |
|---|
| | | '/<title>.*<\/title>/i', // PHP bug #32547 workaround: remove title tag |
|---|
| | | '/<html[^>]*>/im', // malformed html: remove html tags (#1485139) |
|---|
| | | '/<\/html>/i', // malformed html: remove html tags (#1485139) |
|---|
| | | '/^(\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, $html); |
|---|
| | | |
|---|
| | | // charset was converted to UTF-8 in rcube_imap::get_message_part() -> change charset specification in HTML accordingly |
|---|
| | | $charset_pattern = '/(\s+content=[\'"]?\w+\/\w+;\s*charset)=([a-z0-9-_]+)/i'; |
|---|
| | | if (preg_match($charset_pattern, $html)) { |
|---|
| | | $html = preg_replace($charset_pattern, '\\1='.RCMAIL_CHARSET, $html); |
|---|
| | | // fix (unknown/malformed) HTML tags before "wash" |
|---|
| | | $html = preg_replace_callback('/(<[\/!]*)([^ >]+)/', 'rcmail_html_tag_callback', $html); |
|---|
| | | |
|---|
| | | // charset was converted to UTF-8 in rcube_imap::get_message_part(), |
|---|
| | | // -> change charset specification in HTML accordingly |
|---|
| | | $charset_pattern = '(<meta\s+[^>]*)(content=[\'"]?\w+\/\w+;\s*charset)=([a-z0-9-_]+)'; |
|---|
| | | if (preg_match("/$charset_pattern/Ui", $html)) { |
|---|
| | | $html = preg_replace("/$charset_pattern/i", '\\1\\2='.RCMAIL_CHARSET, $html); |
|---|
| | | } |
|---|
| | | else { |
|---|
| | | // add head for malformed messages, washtml cannot work without that |
|---|
| | | // add meta content-type to malformed messages, washtml cannot work without that |
|---|
| | | if (!preg_match('/<head[^>]*>(.*)<\/head>/Uims', $html)) |
|---|
| | | $html = '<head></head>'. $html; |
|---|
| | | $html = substr_replace($html, '<meta http-equiv="content-type" content="text/html; charset='.RCMAIL_CHARSET.'" />', intval(stripos($html, '<head>')+6), 0); |
|---|
| | | $html = substr_replace($html, '<meta http-equiv="Content-Type" content="text/html; charset='.RCMAIL_CHARSET.'" />', intval(stripos($html, '<head>')+6), 0); |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | // turn relative into absolute urls |
|---|
| | | $html = rcmail_resolve_base($html); |
|---|
| | | |
|---|
| | |
|---|
| | | $washer = new washtml($wash_opts); |
|---|
| | | $washer->add_callback('form', 'rcmail_washtml_callback'); |
|---|
| | | |
|---|
| | | if ($p['safe']) { // allow CSS styles, will be sanitized by rcmail_washtml_callback() |
|---|
| | | $washer->add_callback('style', 'rcmail_washtml_callback'); |
|---|
| | | } |
|---|
| | | // allow CSS styles, will be sanitized by rcmail_washtml_callback() |
|---|
| | | $washer->add_callback('style', 'rcmail_washtml_callback'); |
|---|
| | | |
|---|
| | | $html = $washer->wash($html); |
|---|
| | | $REMOTE_OBJECTS = $washer->extlinks; |
|---|
| | |
|---|
| | | } |
|---|
| | | |
|---|
| | | return $out; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | /** |
|---|
| | | * 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; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | |
|---|
| | | unset($message->_headers['Bcc']); |
|---|
| | | |
|---|
| | | // send message |
|---|
| | | $smtp_response = array(); |
|---|
| | | $sent = smtp_mail($from, $a_recipients, ($foo = $message->txtHeaders($send_headers, true)), $msg_body, $smtp_response, $smtp_error); |
|---|
| | | if (!is_object($RCMAIL->smtp)) |
|---|
| | | $RCMAIL->smtp_init(true); |
|---|
| | | |
|---|
| | | $sent = $RCMAIL->smtp->send_mail($from, $a_recipients, ($foo = $message->txtHeaders($send_headers, true)), $msg_body); |
|---|
| | | $smtp_response = $RCMAIL->smtp->get_response(); |
|---|
| | | $smtp_error = $RCMAIL->smtp->get_error(); |
|---|
| | | |
|---|
| | | // log error |
|---|
| | | if (!$sent) |
|---|
| | |
|---|
| | | 'From' => $sender, |
|---|
| | | 'To' => $message->headers->mdn_to, |
|---|
| | | 'Subject' => rcube_label('receiptread') . ': ' . $message->subject, |
|---|
| | | 'Message-ID' => sprintf('<%s@%s>', md5(uniqid('rcmail'.rand(),true)), $RCMAIL->config->mail_domain($_SESSION['imap_host'])), |
|---|
| | | 'Message-ID' => sprintf('<%s@%s>', md5(uniqid('rcmail'.mt_rand(),true)), $RCMAIL->config->mail_domain($_SESSION['imap_host'])), |
|---|
| | | 'X-Sender' => $identity['email'], |
|---|
| | | 'Content-Type' => 'multipart/report; report-type=disposition-notification', |
|---|
| | | ); |
|---|
