Roundcubemail devel
blame | history | patch | commit | commitdiff | ignore whitespace
alecpl
2009-09-07 b48d9bf5d412a6f56f3f9ba4bad141ddfe175727 
 program/steps/mail/func.inc


@@ -19,8 +19,6 @@




*/




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


@@ -95,6 +93,8 @@


    $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']);


@@ -430,7 +430,7 @@


        {


        $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));


        }


@@ -670,42 +670,38 @@


  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'.' &nbsp; '.'\\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);




@@ -730,9 +726,8 @@


  $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;


@@ -885,6 +880,22 @@






/**


 * 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)


@@ -987,7 +998,7 @@


      {


      if ($part->type == 'headers')


        $out .= rcmail_message_headers(sizeof($header_attrib) ? $header_attrib : NULL, $part->headers);


      else if ($part->type == 'content')


      else if ($part->type == 'content' && $part->size)


        {


        if (empty($part->ctype_parameters) || empty($part->ctype_parameters['charset']))


          $part->ctype_parameters['charset'] = $MESSAGE->headers->charset;


@@ -1302,7 +1313,7 @@


/**


 * Send the given message compose object using the configured method


 */


function rcmail_deliver_message(&$message, $from, $mailto)


function rcmail_deliver_message(&$message, $from, $mailto, &$smtp_error)


{


  global $CONFIG, $RCMAIL;




@@ -1326,8 +1337,12 @@


    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);


    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)


@@ -1380,7 +1395,7 @@


}






function rcmail_send_mdn($uid)


function rcmail_send_mdn($uid, &$smtp_error)


{


  global $RCMAIL, $IMAP;




@@ -1410,7 +1425,7 @@


      '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',


    );


@@ -1438,7 +1453,7 @@


    $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);


    $sent = rcmail_deliver_message($compose, $identity['email'], $mailto, $smtp_error);




    if ($sent)


    {