githubFork/roundcubemail.git

			@@ -1,125 +1,115 @@
			<?php
			// +-----------------------------------------------------------------------+
			// \| Copyright (c) 2002-2003 Richard Heyes \|
			// \| All rights reserved. \|
			// \| \|
			// \| Redistribution and use in source and binary forms, with or without \|
			// \| modification, are permitted provided that the following conditions \|
			// \| are met: \|
			// \| \|
			// \| o Redistributions of source code must retain the above copyright \|
			// \| notice, this list of conditions and the following disclaimer. \|
			// \| o Redistributions in binary form must reproduce the above copyright \|
			// \| notice, this list of conditions and the following disclaimer in the \|
			// \| documentation and/or other materials provided with the distribution.\|
			// \| o The names of the authors may not be used to endorse or promote \|
			// \| products derived from this software without specific prior written \|
			// \| permission. \|
			// \| \|
			// \| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS \|
			// \| "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT \|
			// \| LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR \|
			// \| A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT \|
			// \| OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, \|
			// \| SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT \|
			// \| LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, \|
			// \| DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY \|
			// \| THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT \|
			// \| (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE \|
			// \| OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. \|
			// \| \|
			// +-----------------------------------------------------------------------+
			// \| Author: Richard Heyes <richard@phpguru.org> \|
			// +-----------------------------------------------------------------------+
			/**
			* The Mail_mimePart class is used to create MIME E-mail messages
			*
			* This class enables you to manipulate and build a mime email
			* from the ground up. The Mail_Mime class is a userfriendly api
			* to this class for people who aren't interested in the internals
			* of mime mail.
			* This class however allows full control over the email.
			*
			* Compatible with PHP versions 4 and 5
			*
			* LICENSE: This LICENSE is in the BSD license style.
			* Copyright (c) 2002-2003, Richard Heyes <richard@phpguru.org>
			* Copyright (c) 2003-2006, PEAR <pear-group@php.net>
			* All rights reserved.
			*
			* Redistribution and use in source and binary forms, with or
			* without modification, are permitted provided that the following
			* conditions are met:
			*
			* - Redistributions of source code must retain the above copyright
			* notice, this list of conditions and the following disclaimer.
			* - Redistributions in binary form must reproduce the above copyright
			* notice, this list of conditions and the following disclaimer in the
			* documentation and/or other materials provided with the distribution.
			* - Neither the name of the authors, nor the names of its contributors
			* may be used to endorse or promote products derived from this
			* software without specific prior written permission.
			*
			* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
			* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
			* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
			* ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
			* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
			* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
			* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
			* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
			* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
			* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
			* THE POSSIBILITY OF SUCH DAMAGE.
			*
			* @category Mail
			* @package Mail_Mime
			* @author Richard Heyes <richard@phpguru.org>
			* @author Cipriano Groenendal <cipri@php.net>
			* @author Sean Coates <sean@php.net>
			* @copyright 2003-2006 PEAR <pear-group@php.net>
			* @license http://www.opensource.org/licenses/bsd-license.php BSD License
			* @version CVS: $Id$
			* @link http://pear.php.net/package/Mail_mime
			*/


			/**
			*
			* Raw mime encoding class
			*
			* What is it?
			* This class enables you to manipulate and build
			* a mime email from the ground up.
			*
			* Why use this instead of mime.php?
			* mime.php is a userfriendly api to this class for
			* people who aren't interested in the internals of
			* mime mail. This class however allows full control
			* over the email.
			*
			* Eg.
			*
			* // Since multipart/mixed has no real body, (the body is
			* // the subpart), we set the body argument to blank.
			*
			* $params['content_type'] = 'multipart/mixed';
			* $email = new Mail_mimePart('', $params);
			*
			* // Here we add a text part to the multipart we have
			* // already. Assume $body contains plain text.
			*
			* $params['content_type'] = 'text/plain';
			* $params['encoding'] = '7bit';
			* $text = $email->addSubPart($body, $params);
			*
			* // Now add an attachment. Assume $attach is
			* the contents of the attachment
			*
			* $params['content_type'] = 'application/zip';
			* $params['encoding'] = 'base64';
			* $params['disposition'] = 'attachment';
			* $params['dfilename'] = 'example.zip';
			* $attach =& $email->addSubPart($body, $params);
			*
			* // Now build the email. Note that the encode
			* // function returns an associative array containing two
			* // elements, body and headers. You will need to add extra
			* // headers, (eg. Mime-Version) before sending.
			*
			* $email = $message->encode();
			* $email['headers'][] = 'Mime-Version: 1.0';
			*
			*
			* Further examples are available at http://www.phpguru.org
			*
			* TODO:
			* - Set encode() to return the $obj->encoded if encode()
			* has already been run. Unless a flag is passed to specifically
			* re-build the message.
			*
			* @author Richard Heyes <richard@phpguru.org>
			* @version $Revision$
			* @package Mail
			*/

			* The Mail_mimePart class is used to create MIME E-mail messages
			*
			* This class enables you to manipulate and build a mime email
			* from the ground up. The Mail_Mime class is a userfriendly api
			* to this class for people who aren't interested in the internals
			* of mime mail.
			* This class however allows full control over the email.
			*
			* @category Mail
			* @package Mail_Mime
			* @author Richard Heyes <richard@phpguru.org>
			* @author Cipriano Groenendal <cipri@php.net>
			* @author Sean Coates <sean@php.net>
			* @copyright 2003-2006 PEAR <pear-group@php.net>
			* @license http://www.opensource.org/licenses/bsd-license.php BSD License
			* @version Release: @package_version@
			* @link http://pear.php.net/package/Mail_mime
			*/
			class Mail_mimePart {

			/**
			* The encoding type of this part
			*
			* @var string
			* @access private
			*/
			var $_encoding;

			/**
			* An array of subparts
			*
			* @var array
			* @access private
			*/
			var $_subparts;

			/**
			* The output of this part after being built
			*
			* @var string
			* @access private
			*/
			var $_encoded;

			/**
			* Headers for this part
			*
			* @var array
			* @access private
			*/
			var $_headers;

			/**
			* The body of this part (not encoded)
			*
			* @var string
			* @access private
			*/
			var $_body;

			@@ -145,10 +135,13 @@
			define('MAIL_MIMEPART_CRLF', defined('MAIL_MIME_CRLF') ? MAIL_MIME_CRLF : "\r\n", TRUE);
			}

			$contentType = array();
			$contentDisp = array();
			foreach ($params as $key => $value) {
			switch ($key) {
			case 'content_type':
			$headers['Content-Type'] = $value . (isset($charset) ? '; charset="' . $charset . '"' : '');
			$contentType['type'] = $value;
			//$headers['Content-Type'] = $value . (isset($charset) ? '; charset="' . $charset . '"' : '');
			break;

			case 'encoding':
			@@ -161,15 +154,12 @@
			break;

			case 'disposition':
			$headers['Content-Disposition'] = $value . (isset($dfilename) ? '; filename="' . $dfilename . '"' : '');
			$contentDisp['disp'] = $value;
			break;

			case 'dfilename':
			if (isset($headers['Content-Disposition'])) {
			$headers['Content-Disposition'] .= '; filename="' . $value . '"';
			} else {
			$dfilename = $value;
			}
			$contentDisp['filename'] = $value;
			$contentType['name'] = $value;
			break;

			case 'description':
			@@ -177,12 +167,47 @@
			break;

			case 'charset':
			if (isset($headers['Content-Type'])) {
			$headers['Content-Type'] .= '; charset="' . $value . '"';
			} else {
			$charset = $value;
			}
			$contentType['charset'] = $value;
			$contentDisp['charset'] = $value;
			break;

			case 'language':
			$contentType['language'] = $value;
			$contentDisp['language'] = $value;
			break;

			case 'location':
			$headers['Content-Location'] = $value;
			break;

			}
			}

			if (isset($contentType['type'])) {
			$headers['Content-Type'] = $contentType['type'];
			if (isset($contentType['charset'])) {
			$headers['Content-Type'] .= "; charset=\"{$contentType['charset']}\"";
			}
			if (isset($contentType['name'])) {
			$headers['Content-Type'] .= ';' . MAIL_MIMEPART_CRLF;
			$headers['Content-Type'] .=
			$this->_buildHeaderParam('name', $contentType['name'],
			isset($contentType['charset']) ? $contentType['charset'] : 'US-ASCII',
			isset($contentType['language']) ? $contentType['language'] : NULL,
			isset($params['name-encoding']) ? $params['name-encoding'] : NULL);
			}
			}


			if (isset($contentDisp['disp'])) {
			$headers['Content-Disposition'] = $contentDisp['disp'];
			if (isset($contentDisp['filename'])) {
			$headers['Content-Disposition'] .= ';' . MAIL_MIMEPART_CRLF;
			$headers['Content-Disposition'] .=
			$this->_buildHeaderParam('filename', $contentDisp['filename'],
			isset($contentDisp['charset']) ? $contentDisp['charset'] : 'US-ASCII',
			isset($contentDisp['language']) ? $contentDisp['language'] : NULL,
			isset($params['filename-encoding']) ? $params['filename-encoding'] : NULL);
			}
			}

			@@ -217,8 +242,7 @@
			{
			$encoded =& $this->_encoded;

			if (!empty($this->_subparts)) {
			srand((double)microtime()*1000000);
			if (count($this->_subparts)) {
			$boundary = '=_' . md5(rand() . microtime());
			$this->_headers['Content-Type'] .= ';' . MAIL_MIMEPART_CRLF . "\t" . 'boundary="' . $boundary . '"';

			@@ -229,15 +253,15 @@
			foreach ($tmp['headers'] as $key => $value) {
			$headers[] = $key . ': ' . $value;
			}
			$subparts[] = implode(MAIL_MIMEPART_CRLF, $headers) . MAIL_MIMEPART_CRLF . MAIL_MIMEPART_CRLF . $tmp['body'];
			$subparts[] = implode(MAIL_MIMEPART_CRLF, $headers) . MAIL_MIMEPART_CRLF . MAIL_MIMEPART_CRLF . $tmp['body'] . MAIL_MIMEPART_CRLF;
			}

			$encoded['body'] = '--' . $boundary . MAIL_MIMEPART_CRLF .
			implode('--' . $boundary . MAIL_MIMEPART_CRLF, $subparts) .
			'--' . $boundary.'--' . MAIL_MIMEPART_CRLF;
			$encoded['body'] = '--' . $boundary . MAIL_MIMEPART_CRLF .
			implode('--' . $boundary . MAIL_MIMEPART_CRLF , $subparts) .
			'--' . $boundary.'--' . MAIL_MIMEPART_CRLF;

			} else {
			$encoded['body'] = $this->_getEncodedData($this->_body, $this->_encoding) . MAIL_MIMEPART_CRLF;
			$encoded['body'] = $this->_getEncodedData($this->_body, $this->_encoding);
			}

			// Add headers to $encoded
			@@ -299,7 +323,7 @@
			}

			/**
			* quoteadPrintableEncode()
			* quotedPrintableEncode()
			*
			* Encodes data to quoted-printable standard.
			*
			@@ -316,26 +340,35 @@
			$escape = '=';
			$output = '';

			while(list(, $line) = each($lines)){
			while (list(, $line) = each($lines)) {

			$linlen = strlen($line);
			$line = preg_split('\|\|', $line, -1, PREG_SPLIT_NO_EMPTY);
			$linlen = count($line);
			$newline = '';

			for ($i = 0; $i < $linlen; $i++) {
			$char = substr($line, $i, 1);
			$char = $line[$i];
			$dec = ord($char);

			if (($dec == 32) AND ($i == ($linlen - 1))){ // convert space at eol only
			if (($dec == 32) AND ($i == ($linlen - 1))) { // convert space at eol only
			$char = '=20';

			} elseif(($dec == 9) AND ($i == ($linlen - 1))) { // convert tab at eol only
			} elseif (($dec == 9) AND ($i == ($linlen - 1))) { // convert tab at eol only
			$char = '=09';
			} elseif($dec == 9) {
			} elseif ($dec == 9) {
			; // Do nothing if a tab.
			} elseif(($dec == 61) OR ($dec < 32 ) OR ($dec > 126)) {
			} elseif (($dec == 61) OR ($dec < 32 ) OR ($dec > 126)) {
			$char = $escape . strtoupper(sprintf('%02s', dechex($dec)));
			} elseif (($dec == 46) AND (($newline == '') \|\| ((strlen($newline) + strlen("=2E")) >= $line_max))) {
			//Bug #9722: convert full-stop at bol,
			//some Windows servers need this, won't break anything (cipri)
			//Bug #11731: full-stop at bol also needs to be encoded
			//if this line would push us over the line_max limit.
			$char = '=2E';
			}

			//Note, when changing this line, also change the ($dec == 46)
			//check line, as it mimics this line due to Bug #11731
			if ((strlen($newline) + strlen($char)) >= $line_max) { // MAIL_MIMEPART_CRLF is not counted
			$output .= $newline . $escape . $eol; // soft line break; " =\r\n" is okay
			$newline = '';
			@@ -347,5 +380,143 @@
			$output = substr($output, 0, -1 * strlen($eol)); // Don't want last crlf
			return $output;
			}

			/**
			* _buildHeaderParam()
			*
			* Encodes the paramater of a header.
			*
			* @param $name The name of the header-parameter
			* @param $value The value of the paramter
			* @param $charset The characterset of $value
			* @param $language The language used in $value
			* @param $paramEnc Parameter encoding type
			* @param $maxLength The maximum length of a line. Defauls to 78
			*
			* @access private
			*/
			function _buildHeaderParam($name, $value, $charset=NULL, $language=NULL, $paramEnc=NULL, $maxLength=78)
			{
			// RFC 2183/2184/2822:
			// value needs encoding if contains non-ASCII chars or is longer than 78 chars
			if (!preg_match('#[^\x20-\x7E]#', $value)) { // ASCII
			$quoted = addcslashes($value, '\\"');
			if (strlen($name) + strlen($quoted) + 6 <= $maxLength)
			return " {$name}=\"{$quoted}\"; ";
			}

			// use quoted-printable/base64 encoding (RFC2047)
			if ($paramEnc == 'quoted-printable' \|\| $paramEnc == 'base64')
			return $this->_buildRFC2047Param($name, $value, $charset, $paramEnc);

			$encValue = preg_replace('#([^\x20-\x7E])#e', '"%" . strtoupper(dechex(ord("\1")))', $value);
			$value = "$charset'$language'$encValue";

			$header = " {$name}*=\"{$value}\"; ";
			if (strlen($header) <= $maxLength) {
			return $header;
			}

			$preLength = strlen(" {$name}0=\"");
			$sufLength = strlen("\";");
			$maxLength = max(16, $maxLength - $preLength - $sufLength - 2);
			$maxLengthReg = "\|(.{0,$maxLength}[^\%][^\%])\|";

			$headers = array();
			$headCount = 0;
			while ($value) {
			$matches = array();
			$found = preg_match($maxLengthReg, $value, $matches);
			if ($found) {
			$headers[] = " {$name}{$headCount}=\"{$matches[0]}\"";
			$value = substr($value, strlen($matches[0]));
			} else {
			$headers[] = " {$name}{$headCount}=\"{$value}\"";
			$value = "";
			}
			$headCount++;
			}
			$headers = implode(';' . MAIL_MIMEPART_CRLF, $headers) . ';';
			return $headers;
			}

			/**
			* Encodes header parameter as per RFC2047 if needed (values too long will be truncated)
			*
			* @param string $name The parameter name
			* @param string $value The parameter value
			* @param string $charset The parameter charset
			* @param string $encoding Encoding type (quoted-printable or base64)
			* @param int $maxLength Encoded parameter max length (75 is the value specified in the RFC)
			*
			* @return string Parameter line
			* @access private
			*/
			function _buildRFC2047Param($name, $value, $charset, $encoding='quoted-printable', $maxLength=75)
			{
			if (!preg_match('#([^\x20-\x7E]){1}#', $value))
			{
			$quoted = addcslashes($value, '\\"');
			$maxLength = $maxLength - 6;
			if (strlen($quoted) > $maxLength)
			{
			// truncate filename leaving extension
			$ext = strrchr($quoted, '.');
			$quoted = substr($quoted, 0, $maxLength - strlen($ext));
			// remove backslashes from the end of filename
			preg_replace('/[\\\\]+$/', '', $quoted);
			$quoted .= $ext;
			}
			}
			else if ($encoding == 'base64')
			{
			$ext = strrchr($value, '.');
			$value = substr($value, 0, strlen($value) - strlen($ext));

			$ext = base64_encode($ext);
			$value = base64_encode($value);

			$prefix = '=?' . $charset . '?B?';
			$suffix = '?=';
			$maxLength = $maxLength - strlen($prefix . $suffix) - strlen($ext) - 2;

			//We can cut base64 every 4 characters, so the real max
			//we can get must be rounded down.
			$maxLength = $maxLength - ($maxLength % 4);
			$quoted = $prefix . substr($value, 0, $maxLength) . $ext . $suffix;
			}
			else // quoted-printable
			{
			$ext = strrchr($value, '.');
			$value = substr($value, 0, strlen($value) - strlen($ext));

			// Replace all special characters used by the encoder.
			$search = array('=', '_', '?', ' ');
			$replace = array('=3D', '=5F', '=3F', '_');
			$ext = str_replace($search, $replace, $ext);
			$value = str_replace($search, $replace, $value);

			// Replace all extended characters (\x80-xFF) with their
			// ASCII values.
			$ext = preg_replace('/([\x80-\xFF])/e',
			'"=" . strtoupper(dechex(ord("\1")))', $ext);
			$value = preg_replace('/([\x80-\xFF])/e',
			'"=" . strtoupper(dechex(ord("\1")))', $value);

			$prefix = '=?' . $charset . '?Q?';
			$suffix = '?=';

			$maxLength = $maxLength - strlen($prefix . $suffix) - strlen($ext) - 2;

			// Truncate QP-encoded text at $maxLength
			// but not break any encoded letters.
			if(preg_match("/^(.{0,$maxLength}[^\=][^\=])/", $value, $matches))
			$value = $matches[1];

			$quoted = $prefix . $value . $ext . $suffix;
			}

			return " {$name}=\"{$quoted}\"; ";
			}

			} // End of class
			?>