| | |
| | | | program/include/rcube_mail_mime.php | |
| | | | | |
| | | | This file is part of the RoundCube Webmail client | |
| | | | Copyright (C) 2007-2008, RoundCube Dev. - Switzerland | |
| | | | Copyright (C) 2007-2009, RoundCube Dev. - Switzerland | |
| | | | Licensed under the GNU GPL | |
| | | | | |
| | | | PURPOSE: | |
| | |
| | | | Author: Thomas Bruederli <roundcube@gmail.com> | |
| | | +-----------------------------------------------------------------------+ |
| | | |
| | | $Id: sendmail.inc 506 2007-03-14 00:39:51Z thomasb $ |
| | | $Id$ |
| | | |
| | | */ |
| | | |
| | |
| | | |
| | | |
| | | /** |
| | | * Creates a new mimePart object, using multipart/mixed as |
| | | * the initial content-type and returns it during the |
| | | * build process. |
| | | * |
| | | * @return object The multipart/mixed mimePart object |
| | | * @access private |
| | | */ |
| | | function &_addMixedPart() |
| | | { |
| | | $params['content_type'] = $this->_headers['Content-Type'] ? $this->_headers['Content-Type'] : 'multipart/mixed'; |
| | | $ret = new Mail_mimePart('', $params); |
| | | return $ret; |
| | | } |
| | | |
| | | |
| | | /** |
| | | * Encodes a header as per RFC2047 |
| | | * |
| | | * @param array $input The header data to encode |
| | |
| | | { |
| | | // if header contains e-mail addresses |
| | | if (preg_match('/\s<.+@[a-z0-9\-\.]+\.[a-z]+>/U', $hdr_value)) { |
| | | $chunks = $this->_explode_quoted_string(',', $hdr_value); |
| | | $chunks = rcube_explode_quoted_string(',', $hdr_value); |
| | | } |
| | | else { |
| | | $chunks = array($hdr_value); |
| | |
| | | } |
| | | } |
| | | |
| | | $input[$hdr_name] = $hdr_value; |
| | | $input[$hdr_name] = wordwrap($hdr_value, 990, "\n", true); // hard limit header length |
| | | } |
| | | |
| | | return $input; |
| | | } |
| | | |
| | | |
| | | function _explode_quoted_string($delimiter, $string) |
| | | { |
| | | $result = array(); |
| | | $strlen = strlen($string); |
| | | for ($q=$p=$i=0; $i < $strlen; $i++) { |
| | | if ($string{$i} == "\"" && $string{$i-1} != "\\") { |
| | | $q = $q ? false : true; |
| | | } |
| | | else if (!$q && $string{$i} == $delimiter) { |
| | | $result[] = substr($string, $p, $i - $p); |
| | | $p = $i + 1; |
| | | } |
| | | } |
| | | |
| | | $result[] = substr($string, $p); |
| | | return $result; |
| | | } |
| | | |
| | | /** |
| | | * Provides caching of body of constructed MIME Message to avoid |
| | | * duplicate construction of message and damage of MIME headers |