<?php


include_once('include/Mail.php');
include_once('include/mimeDecode.php');
include_once('include/mimePart.php');
include_once('include/z_RFC822.php');

define('IMAP_MBCONVERT', "UTF-16, UTF-8, ISO-8859-15, ISO-8859-1, Windows-1252");

$mail = file_get_contents('testing/samples/messages/m0017.txt');
$mobj = new Mail_mimeDecode($mail);
unset($mail);
$message = $mobj->decode(array('decode_headers' => false, 'decode_bodies' => true, 'include_bodies' => true, 'charset' => 'utf-8'));
unset($mobj);

$finalEmail = new Mail_mimePart('', array('content_type' => 'multipart/mixed'));
printf("%s\n", sprintf("BackendIMAP->SendMail(): is a new message or we are replacing mime"));
addTextPartsMessage($finalEmail, $message);
if (isset($message->parts)) {
    printf("%s\n", sprintf("BackendIMAP->SendMail(): we have extra parts"));
    // We add extra parts from the new message
    addExtraSubParts($finalEmail, $message->parts);
}

// We encode the final message
$boundary = '=_' . md5(rand() . microtime());
$finalEmail = $finalEmail->encode($boundary);

$finalHeaders = array('Mime-Version' => '1.0');
// We copy all the headers, minus content_type
printf("%s\n", sprintf("BackendIMAP->SendMail(): Copying new headers"));
foreach ($message->headers as $k => $v) {
    if (strcasecmp($k, 'content-type') != 0 && strcasecmp($k, 'content-transfer-encoding') != 0 && strcasecmp($k, 'mime-version') != 0) {
        $finalHeaders[ucwords($k)] = $v;
    }
}
foreach ($finalEmail['headers'] as $k => $v) {
    $finalHeaders[$k] = $v;
}

$finalBody = "This is a multi-part message in MIME format.\n" . $finalEmail['body'];

unset($sourceMail);
unset($message);
unset($sourceMessage);
unset($finalEmail);

printf("%s\n", sprintf("BackendIMAP->SendMail(): Final mail to send:"));
foreach ($finalHeaders as $k => $v)
    printf("%s\n", sprintf("%s: %s", $k, $v));
printf("\n");
foreach (preg_split("/((\r)?\n)/", $finalBody) as $bodyline)
    printf("%s\n", sprintf("%s", $bodyline));


    /**
     * Add text parts to a mimepart object
     *
     * @param Mail_mimePart $email reference to the object
     * @param Mail_mimeDecode $message reference to the message
     *
     * @access private
     * @return void
     */
    function addTextPartsMessage(&$email, &$message) {
        $htmlBody = $plainBody = '';
        getBodyRecursive($message, "html", $htmlBody);
        getBodyRecursive($message, "plain", $plainBody);

        $altEmail = new Mail_mimePart('', array('content_type' => 'multipart/alternative'));

        if (strlen($htmlBody) > 0) {
            printf("%s\n", sprintf("BackendIMAP->addTextPartsMessage(): The message has HTML body"));
            $altEmail->addSubPart($htmlBody, array('content_type' => 'text/html; charset=utf-8', 'encoding' => 'base64'));
        }
        if (strlen($plainBody) > 0) {
            printf("%s\n", sprintf("BackendIMAP->addTextPartsMessage(): The message has PLAIN body"));
            $altEmail->addSubPart($plainBody, array('content_type' => 'text/plain; charset=utf-8', 'encoding' => 'base64'));
        }

        $boundary = '=_' . md5(rand() . microtime());
        $altEmail = $altEmail->encode($boundary);

        $email->addSubPart($altEmail['body'], array('content_type' => 'multipart/alternative;'."\n".' boundary="'.$boundary.'"'));

        unset($altEmail);

        unset($htmlBody);
        unset($plainBody);
    }

    /**
     * Get all parts in the message with specified type and concatenate them together, unless the
     * Content-Disposition is 'attachment', in which case the text is apparently an attachment
     *
     * @param string        $message        mimedecode message(part)
     * @param string        $message        message subtype
     * @param string        &$body          body reference
     *
     * @access protected
     * @return
     */
    function getBodyRecursive($message, $subtype, &$body) {
        if(!isset($message->ctype_primary)) return;
        if(strcasecmp($message->ctype_primary,"text")==0 && strcasecmp($message->ctype_secondary,$subtype)==0 && isset($message->body))
            $body .= $message->body;

        if(strcasecmp($message->ctype_primary,"multipart")==0 && isset($message->parts) && is_array($message->parts)) {
            foreach($message->parts as $part) {
                if(!isset($part->disposition) || strcasecmp($part->disposition,"attachment"))  {
                    getBodyRecursive($part, $subtype, $body);
                }
            }
        }
    }

    /**
     * Add extra parts (not text; inlined or attached parts) to a mimepart object.
     *
     * @param Mail_mimePart $email reference to the object
     * @param array $parts array of parts
     *
     * @access private
     * @return void
     */
    function addExtraSubParts(&$email, $parts) {
        if (isset($parts)) {
            foreach ($parts as $part) {
                $new_part = null;
                // Only if it's an attachment we will add the text parts, because all the inline/no disposition have been already added
                if (isset($part->disposition) && $part->disposition == "attachment") {
                    printf("%s\n", sprintf("BackendIMAP->addExtraSubParts(): extraSubPart attachment found"));
                    // it's an attachment
                    $new_part = addSubPart($email, $part);
                }
                else {
                    printf("%s\n", sprintf("BackendIMAP->addExtraSubParts(): extraSubPart no attachment found"));
                    if (isset($part->ctype_primary) && $part->ctype_primary != "text" && $part->ctype_primary != "multipart") {
                        printf("%s\n", sprintf("BackendIMAP->addExtraSubParts(): it's not a text part or a multipart"));
                        // it's not a text part or a multipart
                        $new_part = addSubPart($email, $part);
                    }
                }
                if (isset($part->parts)) {
                    printf("%s\n", sprintf("BackendIMAP->addExtraSubParts(): found subparts to my sub-part. Recursive calling"));
                    // We add sub-parts to the new part, not to the main message
                    addExtraSubParts($new_part === null ? $email : $new_part, $part->parts);
                }
            }
        }
    }

    /**
     * Add a subpart to a mimepart object.
     *
     * @param Mail_mimePart $email reference to the object
     * @param object $part message part
     *
     * @access private
     * @return void
     */
    function addSubPart(&$email, $part) {
        //http://tools.ietf.org/html/rfc4021
        $new_part = null;
        $params = array();
        if (isset($part) && isset($email)) {
            if (isset($part->ctype_primary)) {
                $params['content_type'] = $part->ctype_primary;
            }
            if (isset($part->ctype_secondary)) {
                $params['content_type'] .= '/' . $part->ctype_secondary;
            }
            if (isset($part->ctype_parameters)) {
                foreach ($part->ctype_parameters as $k => $v) {
                    if(strcasecmp($k, 'boundary') != 0) {
                        $params['content_type'] .= '; ' . $k . '=' . $v;
                    }
                }
            }
            if (isset($part->disposition)) {
                $params['disposition'] = $part->disposition;
            }
            //FIXME: dfilename => filename
            if (isset($part->d_parameters)) {
                foreach ($part->d_parameters as $k => $v) {
                    $params[$k] = $v;
                }
            }
            foreach ($part->headers as $k => $v) {
                switch($k) {
                    case "content-description":
                        $params['description'] = $v;
                        break;
                    case "content-type":
                    case "content-disposition":
                    case "content-transfer-encoding":
                        // Do nothing, we already did
                        break;
                    case "content-id":
                        $params['cid'] = str_replace('<', '', str_replace('>', '', $v));
                        break;
                    default:
                        $params[$k] = $v;
                        break;
                }
            }

            // If not exist body, the part will be multipart/alternative, so we don't add encoding
            if (!isset($params['encoding']) && isset($part->body)) {
                $params['encoding'] = 'base64';
            }
            // We could not have body; recursive messages
            $new_part = $email->addSubPart(isset($part->body) ? $part->body : "", $params);
            unset($params);
        }

        // return the new part
        return $new_part;
    }

?>