* - ctype: (string) The default content-type.
* - forcemime: (boolean) If true, the message data is assumed to be
* MIME data. If not, a MIME-Version header must exist to
* be parsed as a MIME message.
* - level: (integer) Current nesting level.
* - no_body: (boolean) If true, don't set body contents of parts.
*
*
* @return Horde_Mime_Part The MIME part object.
*/
static protected function _getStructure($header, $body,
array $opts = array())
{
$opts = array_merge(array(
'ctype' => 'application/octet-stream',
'forcemime' => false,
'level' => 0,
'no_body' => false
), $opts);
/* Parse headers text into a Horde_Mime_Headers object. */
$hdrs = Horde_Mime_Headers::parseHeaders($header);
$ob = new Horde_Mime_Part();
/* This is not a MIME message. */
if (!$opts['forcemime'] && !$hdrs->getValue('mime-version')) {
$ob->setType('text/plain');
if (!$opts['no_body'] && !empty($body)) {
$ob->setContents($body);
}
return $ob;
}
/* Content type. */
if ($tmp = $hdrs->getValue('content-type', Horde_Mime_Headers::VALUE_BASE)) {
$ob->setType($tmp);
$ctype_params = $hdrs->getValue('content-type', Horde_Mime_Headers::VALUE_PARAMS);
foreach ($ctype_params as $key => $val) {
$ob->setContentTypeParameter($key, $val);
}
} else {
$ob->setType($opts['ctype']);
}
/* Content transfer encoding. */
if ($tmp = $hdrs->getValue('content-transfer-encoding')) {
$ob->setTransferEncoding($tmp);
}
/* Content-Description. */
if ($tmp = $hdrs->getValue('content-description')) {
$ob->setDescription($tmp);
}
/* Content-Disposition. */
if ($tmp = $hdrs->getValue('content-disposition', Horde_Mime_Headers::VALUE_BASE)) {
$ob->setDisposition($tmp);
foreach ($hdrs->getValue('content-disposition', Horde_Mime_Headers::VALUE_PARAMS) as $key => $val) {
$ob->setDispositionParameter($key, $val);
}
}
/* Content-Duration */
if ($tmp = $hdrs->getValue('content-duration')) {
$ob->setDuration($tmp);
}
/* Content-ID. */
if ($tmp = $hdrs->getValue('content-id')) {
$ob->setContentId($tmp);
}
if (!$opts['no_body'] &&
!empty($body) &&
($ob->getPrimaryType() != 'multipart')) {
$ob->setContents($body);
}
if (++$opts['level'] >= self::NESTING_LIMIT) {
return $ob;
}
/* Process subparts. */
switch ($ob->getPrimaryType()) {
case 'message':
if ($ob->getSubType() == 'rfc822') {
$ob->addPart(self::parseMessage($body, array('forcemime' => true)));
}
break;
case 'multipart':
$boundary = $ob->getContentTypeParameter('boundary');
if (!is_null($boundary)) {
foreach (self::_findBoundary($body, 0, $boundary) as $val) {
if (!isset($val['length'])) {
break;
}
$subpart = substr($body, $val['start'], $val['length']);
$hdr_pos = self::_findHeader($subpart, self::EOL);
$ob->addPart(self::_getStructure(substr($subpart, 0, $hdr_pos), substr($subpart, $hdr_pos + 2), array(
'ctype' => ($ob->getSubType() == 'digest') ? 'message/rfc822' : 'text/plain',
'forcemime' => true,
'level' => $opts['level'],
'no_body' => $opts['no_body']
)));
}
}
break;
}
return $ob;
}
/**
* Attempts to obtain the raw text of a MIME part.
* This function can be called statically via:
* $data = Horde_Mime_Part::getRawPartText();
*
* @param mixed $text The full text of the MIME message. The text is
* assumed to be MIME data (no MIME-Version checking
* is performed). It can be either a stream or a
* string.
* @param string $type Either 'header' or 'body'.
* @param string $id The MIME ID.
*
* @return string The raw text.
* @throws Horde_Mime_Exception
*/
static public function getRawPartText($text, $type, $id)
{
/* Mini-hack to get a blank Horde_Mime part so we can call
* replaceEOL(). From an API perspective, getRawPartText() should be
* static since it is not working on MIME part data. */
$part = new Horde_Mime_Part();
$rawtext = $part->replaceEOL($text, self::RFC_EOL);
/* We need to carry around the trailing "\n" because this is needed
* to correctly find the boundary string. */
$hdr_pos = self::_findHeader($rawtext, self::RFC_EOL);
$curr_pos = $hdr_pos + 3;
if ($id == 0) {
switch ($type) {
case 'body':
return substr($rawtext, $curr_pos + 1);
case 'header':
return trim(substr($rawtext, 0, $hdr_pos));
}
}
$hdr_ob = Horde_Mime_Headers::parseHeaders(trim(substr($rawtext, 0, $hdr_pos)));
/* If this is a message/rfc822, pass the body into the next loop.
* Don't decrement the ID here. */
if ($hdr_ob->getValue('Content-Type', Horde_Mime_Headers::VALUE_BASE) == 'message/rfc822') {
return self::getRawPartText(substr($rawtext, $curr_pos + 1), $type, $id);
}
$base_pos = strpos($id, '.');
$orig_id = $id;
if ($base_pos !== false) {
$base_pos = substr($id, 0, $base_pos);
$id = substr($id, $base_pos);
} else {
$base_pos = $id;
$id = 0;
}
$params = $hdr_ob->getValue('Content-Type', Horde_Mime_Headers::VALUE_PARAMS);
if (!isset($params['boundary'])) {
if ($orig_id == '1') {
return substr($rawtext, $curr_pos + 1);
}
throw new Horde_Mime_Exception('Could not find MIME part.');
}
$b_find = self::_findBoundary($rawtext, $curr_pos, $params['boundary'], $base_pos);
if (!isset($b_find[$base_pos])) {
throw new Horde_Mime_Exception('Could not find MIME part.');
}
return self::getRawPartText(substr($rawtext, $b_find[$base_pos]['start'], $b_find[$base_pos]['length'] - 1), $type, $id);
}
/**
* Find the location of the end of the header text.
*
* @param string $text The text to search.
* @param string $eol The EOL string.
*
* @return integer Header position.
*/
static protected function _findHeader($text, $eol)
{
$hdr_pos = strpos($text, $eol . $eol);
return ($hdr_pos === false)
? strlen($text)
: $hdr_pos;
}
/**
* Find the location of the next boundary string.
*
* @param string $text The text to search.
* @param integer $pos The current position in $text.
* @param string $boundary The boundary string.
* @param integer $end If set, return after matching this many
* boundaries.
*
* @return array Keys are the boundary number, values are an array with
* two elements: 'start' and 'length'.
*/
static protected function _findBoundary($text, $pos, $boundary,
$end = null)
{
$i = 0;
$out = array();
$search = "--" . $boundary;
$search_len = strlen($search);
while (($pos = strpos($text, $search, $pos)) !== false) {
/* Boundary needs to appear at beginning of string or right after
* a LF. */
if (($pos != 0) && ($text[$pos - 1] != "\n")) {
continue;
}
if (isset($out[$i])) {
$out[$i]['length'] = $pos - $out[$i]['start'] - 1;
}
if (!is_null($end) && ($end == $i)) {
break;
}
$pos += $search_len;
if (isset($text[$pos])) {
switch ($text[$pos]) {
case "\r":
$pos += 2;
$out[++$i] = array('start' => $pos);
break;
case "\n":
$out[++$i] = array('start' => ++$pos);
break;
case '-':
return $out;
}
}
}
return $out;
}
/* ArrayAccess methods. */
public function offsetExists($offset)
{
return ($this->getPart($offset) !== null);
}
public function offsetGet($offset)
{
return $this->getPart($offset);
}
public function offsetSet($offset, $value)
{
$this->alterPart($offset, $value);
}
public function offsetUnset($offset)
{
$this->removePart($offset);
}
/* Countable methods. */
/**
* Returns the number of message parts.
*
* @return integer Number of message parts.
*/
public function count()
{
return count($this->_parts);
}
/* Serializable methods. */
/**
* Serialization.
*
* @return string Serialized data.
*/
public function serialize()
{
$data = array(
// Serialized data ID.
self::VERSION
);
foreach ($this->_serializedVars as $val) {
switch ($val) {
case '_contentTypeParams':
$data[] = $this->$val->getArrayCopy();
break;
default:
$data[] = $this->$val;
break;
}
}
if (!empty($this->_contents)) {
$data[] = $this->_readStream($this->_contents);
}
return serialize($data);
}
/**
* Unserialization.
*
* @param string $data Serialized data.
*
* @throws Exception
*/
public function unserialize($data)
{
$data = @unserialize($data);
if (!is_array($data) ||
!isset($data[0]) ||
(array_shift($data) != self::VERSION)) {
throw new Exception('Cache version change');
}
$this->_init();
foreach ($this->_serializedVars as $key => $val) {
switch ($val) {
case '_contentTypeParams':
$this->$val = new Horde_Support_CaseInsensitiveArray($data[$key]);
break;
default:
$this->$val = $data[$key];
break;
}
}
// $key now contains the last index of _serializedVars.
if (isset($data[++$key])) {
$this->setContents($data[$key]);
}
}
}
Horde_Mime-2.2.8/lib/Horde/Mime/Related.php 0000644 0001750 0000764 00000010261 12243576212 020322 0 ustar slusarz slusarz
* @category Horde
* @license http://www.horde.org/licenses/lgpl21 LGPL 2.1
* @package Mime
*/
class Horde_Mime_Related implements IteratorAggregate
{
/**
* Content IDs.
*
* @var array
*/
protected $_cids = array();
/**
* Start ID.
*
* @var string
*/
protected $_start;
/**
* Constructor.
*
* @param Horde_Mime_Part $mime_part A MIME part object. Must be of
* type multipart/related.
*/
public function __construct(Horde_Mime_Part $mime_part)
{
if ($mime_part->getType() != 'multipart/related') {
throw new InvalidArgumentException('MIME part must be of type multipart/related');
}
$ids = array_keys($mime_part->contentTypeMap());
$related_id = $mime_part->getMimeId();
$id = null;
/* Build a list of parts -> CIDs. */
foreach ($ids as $val) {
if ((strcmp($related_id, $val) !== 0) &&
($cid = $mime_part->getPart($val)->getContentId())) {
$this->_cids[$val] = $cid;
}
}
/* Look at the 'start' parameter to determine which part to start
* with. If no 'start' parameter, use the first part (RFC 2387
* [3.1]). */
$start = $mime_part->getContentTypeParameter('start');
if (!empty($start)) {
$id = $this->cidSearch($start);
}
if (empty($id)) {
reset($ids);
$id = next($ids);
}
$this->_start = $id;
}
/**
* Return the start ID.
*
* @return string The start ID.
*/
public function startId()
{
return $this->_start;
}
/**
* Search for a CID in the related part.
*
* @param string $cid The CID to search for.
*
* @return string The MIME ID or false if not found.
*/
public function cidSearch($cid)
{
return array_search($cid, $this->_cids);
}
/**
* Scan for CID strings in HTML data and replace with data returned from
* a callback method.
*
* @param mixed $text The HTML text (can be Horde_Domhtml object).
* @param callback $callback Callback method. Receives three arguments:
* MIME ID, the attribute name containing the
* content ID, and the node object. Expects
* return value of URL to display the data.
* @param string $charset HTML data charset.
*
* @return Horde_Domhtml A Horde_Domhtml object.
*/
public function cidReplace($text, $callback, $charset = 'UTF-8')
{
$dom = ($text instanceof Horde_Domhtml)
? $text
: new Horde_Domhtml($text, $charset);
foreach ($dom as $node) {
if ($node instanceof DOMElement) {
switch (Horde_String::lower($node->tagName)) {
case 'body':
case 'td':
$this->_cidReplace($node, 'background', $callback);
break;
case 'img':
$this->_cidReplace($node, 'src', $callback);
break;
}
}
}
return $dom;
}
/**
*/
protected function _cidReplace($node, $attribute, $callback)
{
if ($node->hasAttribute($attribute)) {
$val = $node->getAttribute($attribute);
if ((strpos($val, 'cid:') === 0) &&
($id = $this->cidSearch(substr($val, 4)))) {
$node->setAttribute($attribute, call_user_func($callback, $id, $attribute, $node));
}
}
}
/* IteratorAggregate method. */
public function getIterator()
{
return new ArrayIterator($this->_cids);
}
}
Horde_Mime-2.2.8/lib/Horde/Mime/Translation.php 0000644 0001750 0000764 00000003551 12243576212 021244 0 ustar slusarz slusarz
* @category Mime
* @copyright 2010-2013 Horde LLC
* @license http://www.horde.org/licenses/lgpl21 LGPL 2.1
* @package Mime
*/
class Horde_Mime_Translation extends Horde_Translation
{
/**
* Returns the translation of a message.
*
* @var string $message The string to translate.
*
* @return string The string translation, or the original string if no
* translation exists.
*/
static public function t($message)
{
self::$_domain = 'Horde_Mime';
self::$_directory = '@data_dir@' == '@'.'data_dir'.'@' ? __DIR__ . '/../../../locale' : '@data_dir@/Horde_Mime/locale';
return parent::t($message);
}
/**
* Returns the plural translation of a message.
*
* @param string $singular The singular version to translate.
* @param string $plural The plural version to translate.
* @param integer $number The number that determines singular vs. plural.
*
* @return string The string translation, or the original string if no
* translation exists.
*/
static public function ngettext($singular, $plural, $number)
{
self::$_domain = 'Horde_Mime';
self::$_directory = '@data_dir@' == '@'.'data_dir'.'@' ? __DIR__ . '/../../../locale' : '@data_dir@/Horde_Mime/locale';
return parent::ngettext($singular, $plural, $number);
}
}
Horde_Mime-2.2.8/lib/Horde/Mime.php 0000644 0001750 0000764 00000060020 12243576212 016740 0 ustar slusarz slusarz
* Copyright (c) 2003-2006, PEAR
Foo.
--=_123
Content-Type: image/png; name=index.png
Content-Disposition: attachment; filename=index.png
Content-Transfer-Encoding: base64
Content-ID: <456>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAQAAAC1+jfqAAAABGdBTUEAAK/INwWK6QAAABl0RVh0
U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAADoSURBVBgZBcExblNBGAbA2ceegTRBuIKO
giihSZNTcC5LUHAihNJR0kGKCDcYJY6D3/77MdOinTvzAgCw8ysThIvn/VojIyMjIyPP+bS1sUQI
V2s95pBDDvmbP/mdkft83tpYguZq5Jh/OeaYh+yzy8hTHvNlaxNNczm+la9OTlar1UdA/+C2A4tr
RCnD3jS8BB1obq2Gk6GU6QbQAS4BUaYSQAf4bhhKKTFdAzrAOwAxEUAH+KEM01SY3gM6wBsEAQB0
gJ+maZoC3gI6iPYaAIBJsiRmHU0AALOeFC3aK2cWAACUXe7+AwO0lc9eTHYTAAAAAElFTkSuQmCC
--=_123
Content-Type: image/png; name=index2.png
Content-Disposition: attachment; filename=index2.png
Content-Transfer-Encoding: base64
Content-ID: <789>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAQAAAC1+jfqAAAABGdBTUEAAK/INwWK6QAAABl0RVh0
U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAADoSURBVBgZBcExblNBGAbA2ceegTRBuIKO
giihSZNTcC5LUHAihNJR0kGKCDcYJY6D3/77MdOinTvzAgCw8ysThIvn/VojIyMjIyPP+bS1sUQI
V2s95pBDDvmbP/mdkft83tpYguZq5Jh/OeaYh+yzy8hTHvNlaxNNczm+la9OTlar1UdA/+C2A4tr
RCnD3jS8BB1obq2Gk6GU6QbQAS4BUaYSQAf4bhhKKTFdAzrAOwAxEUAH+KEM01SY3gM6wBsEAQB0
gJ+maZoC3gI6iPYaAIBJsiRmHU0AALOeFC3aK2cWAACUXe7+AwO0lc9eTHYTAAAAAElFTkSuQmCC
--=_123--
Horde_Mime-2.2.8/test/Horde/Mime/fixtures/samplemultipart_msg.txt 0000644 0001750 0000764 00000001610 12243576212 025143 0 ustar slusarz slusarz Subject: Testing
From: mrubinsk@horde.org
Content-Type: multipart/alternative; boundary=Apple-Mail-B1C01B47-00D8-4AFB-8B65-DF81C4E4B47D
Message-Id: This is an HTML email.
--
Mike
Sent from my iPad...
Header Title
\nThis is
the html text body.
Header Title
\nThis is
the html text body.
Header Title
\nThis is
the html text body.
Header Title
This is
the html text body.
Foo.
EOT;
$this->assertEquals(
$expected,
$ob->returnHtml()
);
}
public function callbackTestReplace($id)
{
return $id;
}
}