[squirrelmail.git] / functions / mime.php

<?php

/**
 * mime.php
 *
 * Copyright (c) 1999-2003 The SquirrelMail Project Team
 * Licensed under the GNU GPL. For full terms see the file COPYING.
 *
 * This contains the functions necessary to detect and decode MIME
 * messages.
 *
 * $Id$
 */

require_once(SM_PATH . 'functions/imap.php');
require_once(SM_PATH . 'functions/attachment_common.php');

/* --------------------------------------------------------------------------------- */
/* MIME DECODING                                                                     */
/* --------------------------------------------------------------------------------- */

/* This function gets the structure of a message and stores it in the "message" class.
 * It will return this object for use with all relevant header information and
 * fully parsed into the standard "message" object format.
 */

function mime_structure ($bodystructure, $flags=array()) {

    /* Isolate the body structure and remove beginning and end parenthesis. */
    $read = trim(substr ($bodystructure, strpos(strtolower($bodystructure), 'bodystructure') + 13));
    $read = trim(substr ($read, 0, -1));
    $i = 0;
    $msg = Message::parseStructure($read,$i);
    if (!is_object($msg)) {
        include_once(SM_PATH . 'functions/display_messages.php');
        global $color, $mailbox;
        displayPageHeader( $color, urldecode($mailbox) );
        echo "<BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n\n" .
         '<CENTER>';
        $errormessage  = _("SquirrelMail could not decode the bodystructure of the message");
        $errormessage .= '<BR>'._("the provided bodystructure by your imap-server").':<BR><BR>';
        $errormessage .= '<table><tr><td>' . htmlspecialchars($read) . '</td></tr></table>';
        plain_error_message( $errormessage, $color );
        echo '</body></html>';
        exit;
    }
    if (count($flags)) {
        foreach ($flags as $flag) {
            $char = strtoupper($flag{1});
            switch ($char) {
                case 'S':
                    if (strtolower($flag) == '\\seen') {
                        $msg->is_seen = true;
                    }
                    break;
                case 'A':
                    if (strtolower($flag) == '\\answered') {
                        $msg->is_answered = true;
                    }
                    break;
                case 'D':
                    if (strtolower($flag) == '\\deleted') {
                        $msg->is_deleted = true;
                    }
                    break;
                case 'F':
                    if (strtolower($flag) == '\\flagged') {
                        $msg->is_flagged = true;
                    }
                    break;
                case 'M':
                    if (strtolower($flag) == '$mdnsent') {
                        $msg->is_mdnsent = true;
                    }
                    break;
                default:
                    break;
            }
        }
    }
    //    listEntities($msg);
    return $msg;
}


/* This starts the parsing of a particular structure.  It is called recursively,
 * so it can be passed different structures.  It returns an object of type
 * $message.
 * First, it checks to see if it is a multipart message.  If it is, then it
 * handles that as it sees is necessary.  If it is just a regular entity,
 * then it parses it and adds the necessary header information (by calling out
 * to mime_get_elements()
 */

function mime_fetch_body($imap_stream, $id, $ent_id=1) {
    global $uid_support; 
    /* Do a bit of error correction.  If we couldn't find the entity id, just guess
     * that it is the first one.  That is usually the case anyway.
     */
    if (!$ent_id) {
	$cmd = "FETCH $id BODY[]";
    } else {
	$cmd = "FETCH $id BODY[$ent_id]";
    }

    $data = sqimap_run_command ($imap_stream, $cmd, true, $response, $message, $uid_support);
    do {
        $topline = trim(array_shift($data));
    } while($topline && ($topline[0] == '*') && !preg_match('/\* [0-9]+ FETCH.*/i', $topline)) ;

    $wholemessage = implode('', $data);
    if (ereg('\\{([^\\}]*)\\}', $topline, $regs)) {
        $ret = substr($wholemessage, 0, $regs[1]);
        /* There is some information in the content info header that could be important
         * in order to parse html messages. Let's get them here.
         */
        if ($ret{0} == '<') {
            $data = sqimap_run_command ($imap_stream, "FETCH $id BODY[$ent_id.MIME]", true, $response, $message, $uid_support);
        }
    } else if (ereg('"([^"]*)"', $topline, $regs)) {
        $ret = $regs[1];
    } else {
        global $where, $what, $mailbox, $passed_id, $startMessage;
        $par = 'mailbox=' . urlencode($mailbox) . '&amp;passed_id=' . $passed_id;
        if (isset($where) && isset($what)) {
            $par .= '&amp;where=' . urlencode($where) . '&amp;what=' . urlencode($what);
        } else {
            $par .= '&amp;startMessage=' . $startMessage . '&amp;show_more=0';
        }
        $par .= '&amp;response=' . urlencode($response) .
                '&amp;message='  . urlencode($message)  .
                '&amp;topline='  . urlencode($topline);

        echo   '<tt><br>' .
               '<table width="80%"><tr>' .
               '<tr><td colspan=2>' .
               _("Body retrieval error. The reason for this is most probably that the message is malformed.") .
               '</td></tr>' .
               '<tr><td><b>' . _("Command:") . "</td><td>$cmd</td></tr>" .
               '<tr><td><b>' . _("Response:") . "</td><td>$response</td></tr>" .
               '<tr><td><b>' . _("Message:") . "</td><td>$message</td></tr>" .
               '<tr><td><b>' . _("FETCH line:") . "</td><td>$topline</td></tr>" .
               "</table><BR></tt></font><hr>";

        $data = sqimap_run_command ($imap_stream, "FETCH $passed_id BODY[]", true, $response, $message, $uid_support);
        array_shift($data);
        $wholemessage = implode('', $data);

        $ret = $wholemessage;
    }
    return $ret;
}

function mime_print_body_lines ($imap_stream, $id, $ent_id=1, $encoding) {
    global $uid_support;

    $sid = sqimap_session_id($uid_support);
    /* Don't kill the connection if the browser is over a dialup
     * and it would take over 30 seconds to download it.
Commit	Line	Data
	1	<?php
	2
	3	/**
	4	* mime.php
	5	*
	6	* Copyright (c) 1999-2003 The SquirrelMail Project Team
	7	* Licensed under the GNU GPL. For full terms see the file COPYING.
	8	*
	9	* This contains the functions necessary to detect and decode MIME
	10	* messages.
	11	*
	12	* $Id$
	13	*/
	14
	15	require_once(SM_PATH . 'functions/imap.php');
	16	require_once(SM_PATH . 'functions/attachment_common.php');
	17
	18	/* --------------------------------------------------------------------------------- */
	19	/* MIME DECODING */
	20	/* --------------------------------------------------------------------------------- */
	21
	22	/* This function gets the structure of a message and stores it in the "message" class.
	23	* It will return this object for use with all relevant header information and
	24	* fully parsed into the standard "message" object format.
	25	*/
	26
	27	function mime_structure ($bodystructure, $flags=array()) {
	28
	29	/* Isolate the body structure and remove beginning and end parenthesis. */
	30	$read = trim(substr ($bodystructure, strpos(strtolower($bodystructure), 'bodystructure') + 13));
	31	$read = trim(substr ($read, 0, -1));
	32	$i = 0;
	33	$msg = Message::parseStructure($read,$i);
	34	if (!is_object($msg)) {
	35	include_once(SM_PATH . 'functions/display_messages.php');
	36	global $color, $mailbox;
	37	displayPageHeader( $color, urldecode($mailbox) );
	38	echo "<BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n\n" .
	39	'<CENTER>';
	40	$errormessage = _("SquirrelMail could not decode the bodystructure of the message");
	41	$errormessage .= '<BR>'._("the provided bodystructure by your imap-server").':<BR><BR>';
	42	$errormessage .= '<table><tr><td>' . htmlspecialchars($read) . '</td></tr></table>';
	43	plain_error_message( $errormessage, $color );
	44	echo '</body></html>';
	45	exit;
	46	}
	47	if (count($flags)) {
	48	foreach ($flags as $flag) {
	49	$char = strtoupper($flag{1});
	50	switch ($char) {
	51	case 'S':
	52	if (strtolower($flag) == '\\seen') {
	53	$msg->is_seen = true;
	54	}
	55	break;
	56	case 'A':
	57	if (strtolower($flag) == '\\answered') {
	58	$msg->is_answered = true;
	59	}
	60	break;
	61	case 'D':
	62	if (strtolower($flag) == '\\deleted') {
	63	$msg->is_deleted = true;
	64	}
	65	break;
	66	case 'F':
	67	if (strtolower($flag) == '\\flagged') {
	68	$msg->is_flagged = true;
	69	}
	70	break;
	71	case 'M':
	72	if (strtolower($flag) == '$mdnsent') {
	73	$msg->is_mdnsent = true;
	74	}
	75	break;
	76	default:
	77	break;
	78	}
	79	}
	80	}
	81	// listEntities($msg);
	82	return $msg;
	83	}
	84
	85
	86
	87	/* This starts the parsing of a particular structure. It is called recursively,
	88	* so it can be passed different structures. It returns an object of type
	89	* $message.
	90	* First, it checks to see if it is a multipart message. If it is, then it
	91	* handles that as it sees is necessary. If it is just a regular entity,
	92	* then it parses it and adds the necessary header information (by calling out
	93	* to mime_get_elements()
	94	*/
	95
	96	function mime_fetch_body($imap_stream, $id, $ent_id=1) {
	97	global $uid_support;
	98	/* Do a bit of error correction. If we couldn't find the entity id, just guess
	99	* that it is the first one. That is usually the case anyway.
	100	*/
	101	if (!$ent_id) {
	102	$cmd = "FETCH $id BODY[]";
	103	} else {
	104	$cmd = "FETCH $id BODY[$ent_id]";
	105	}
	106
	107	$data = sqimap_run_command ($imap_stream, $cmd, true, $response, $message, $uid_support);
	108	do {
	109	$topline = trim(array_shift($data));
	110	} while($topline && ($topline[0] == '') && !preg_match('/\ [0-9]+ FETCH.*/i', $topline)) ;
	111
	112	$wholemessage = implode('', $data);
	113	if (ereg('\\{([^\\}]*)\\}', $topline, $regs)) {
	114	$ret = substr($wholemessage, 0, $regs[1]);
	115	/* There is some information in the content info header that could be important
	116	* in order to parse html messages. Let's get them here.
	117	*/
	118	if ($ret{0} == '<') {
	119	$data = sqimap_run_command ($imap_stream, "FETCH $id BODY[$ent_id.MIME]", true, $response, $message, $uid_support);
	120	}
	121	} else if (ereg('"([^"]*)"', $topline, $regs)) {
	122	$ret = $regs[1];
	123	} else {
	124	global $where, $what, $mailbox, $passed_id, $startMessage;
	125	$par = 'mailbox=' . urlencode($mailbox) . '&passed_id=' . $passed_id;
	126	if (isset($where) && isset($what)) {
	127	$par .= '&where=' . urlencode($where) . '&what=' . urlencode($what);
	128	} else {
	129	$par .= '&startMessage=' . $startMessage . '&show_more=0';
	130	}
	131	$par .= '&response=' . urlencode($response) .
	132	'&message=' . urlencode($message) .
	133	'&topline=' . urlencode($topline);
	134
	135	echo '<tt><br>' .
	136	'<table width="80%"><tr>' .
	137	'<tr><td colspan=2>' .
	138	_("Body retrieval error. The reason for this is most probably that the message is malformed.") .
	139	'</td></tr>' .
	140	'<tr><td><b>' . _("Command:") . "</td><td>$cmd</td></tr>" .
	141	'<tr><td><b>' . _("Response:") . "</td><td>$response</td></tr>" .
	142	'<tr><td><b>' . _("Message:") . "</td><td>$message</td></tr>" .
	143	'<tr><td><b>' . _("FETCH line:") . "</td><td>$topline</td></tr>" .
	144	"</table><BR></tt></font><hr>";
	145
	146	$data = sqimap_run_command ($imap_stream, "FETCH $passed_id BODY[]", true, $response, $message, $uid_support);
	147	array_shift($data);
	148	$wholemessage = implode('', $data);
	149
	150	$ret = $wholemessage;
	151	}
	152	return $ret;
	153	}
	154
	155	function mime_print_body_lines ($imap_stream, $id, $ent_id=1, $encoding) {
	156	global $uid_support;
	157
	158	$sid = sqimap_session_id($uid_support);
	159	/* Don't kill the connection if the browser is over a dialup
	160	* and it would take over 30 seconds to download it.
	161