[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;
        /* removed urldecode because $_GET is auto urldecoded ??? */
        displayPageHeader( $color, $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	/* removed urldecode because $_GET is auto urldecoded ??? */
	38	displayPageHeader( $color, $mailbox );
	39	echo "<BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n\n" .
	40	'<CENTER>';
	41	$errormessage = _("SquirrelMail could not decode the bodystructure of the message");
	42	$errormessage .= '<BR>'._("the provided bodystructure by your imap-server").':<BR><BR>';
	43	$errormessage .= '<table><tr><td>' . htmlspecialchars($read) . '</td></tr></table>';
	44	plain_error_message( $errormessage, $color );
	45	echo '</body></html>';
	46	exit;
	47	}
	48	if (count($flags)) {
	49	foreach ($flags as $flag) {
	50	$char = strtoupper($flag{1});
	51	switch ($char) {
	52	case 'S':
	53	if (strtolower($flag) == '\\seen') {
	54	$msg->is_seen = true;
	55	}
	56	break;
	57	case 'A':
	58	if (strtolower($flag) == '\\answered') {
	59	$msg->is_answered = true;
	60	}
	61	break;
	62	case 'D':
	63	if (strtolower($flag) == '\\deleted') {
	64	$msg->is_deleted = true;
	65	}
	66	break;
	67	case 'F':
	68	if (strtolower($flag) == '\\flagged') {
	69	$msg->is_flagged = true;
	70	}
	71	break;
	72	case 'M':
	73	if (strtolower($flag) == '$mdnsent') {
	74	$msg->is_mdnsent = true;
	75	}
	76	break;
	77	default:
	78	break;
	79	}
	80	}
	81	}
	82	// listEntities($msg);
	83	return $msg;
	84	}
	85
	86
	87
	88	/* This starts the parsing of a particular structure. It is called recursively,
	89	* so it can be passed different structures. It returns an object of type
	90	* $message.
	91	* First, it checks to see if it is a multipart message. If it is, then it
	92	* handles that as it sees is necessary. If it is just a regular entity,
	93	* then it parses it and adds the necessary header information (by calling out
	94	* to mime_get_elements()
	95	*/
	96
	97	function mime_fetch_body($imap_stream, $id, $ent_id=1) {
	98	global $uid_support;
	99	/* Do a bit of error correction. If we couldn't find the entity id, just guess
	100	* that it is the first one. That is usually the case anyway.
	101	*/
	102	if (!$ent_id) {
	103	$cmd = "FETCH $id BODY[]";
	104	} else {
	105	$cmd = "FETCH $id BODY[$ent_id]";
	106	}
	107
	108	$data = sqimap_run_command ($imap_stream, $cmd, true, $response, $message, $uid_support);
	109	do {
	110	$topline = trim(array_shift($data));
	111	} while($topline && ($topline[0] == '') && !preg_match('/\ [0-9]+ FETCH.*/i', $topline)) ;
	112
	113	$wholemessage = implode('', $data);
	114	if (ereg('\\{([^\\}]*)\\}', $topline, $regs)) {
	115	$ret = substr($wholemessage, 0, $regs[1]);
	116	/* There is some information in the content info header that could be important
	117	* in order to parse html messages. Let's get them here.
	118	*/
	119	if ($ret{0} == '<') {
	120	$data = sqimap_run_command ($imap_stream, "FETCH $id BODY[$ent_id.MIME]", true, $response, $message, $uid_support);
	121	}
	122	} else if (ereg('"([^"]*)"', $topline, $regs)) {
	123	$ret = $regs[1];
	124	} else {
	125	global $where, $what, $mailbox, $passed_id, $startMessage;
	126	$par = 'mailbox=' . urlencode($mailbox) . '&passed_id=' . $passed_id;
	127	if (isset($where) && isset($what)) {
	128	$par .= '&where=' . urlencode($where) . '&what=' . urlencode($what);
	129	} else {
	130	$par .= '&startMessage=' . $startMessage . '&show_more=0';
	131	}
	132	$par .= '&response=' . urlencode($response) .
	133	'&message=' . urlencode($message) .
	134	'&topline=' . urlencode($topline);
	135
	136	echo '<tt><br>' .
	137	'<table width="80%"><tr>' .
	138	'<tr><td colspan=2>' .
	139	_("Body retrieval error. The reason for this is most probably that the message is malformed.") .
	140	'</td></tr>' .
	141	'<tr><td><b>' . _("Command:") . "</td><td>$cmd</td></tr>" .
	142	'<tr><td><b>' . _("Response:") . "</td><td>$response</td></tr>" .
	143	'<tr><td><b>' . _("Message:") . "</td><td>$message</td></tr>" .
	144	'<tr><td><b>' . _("FETCH line:") . "</td><td>$topline</td></tr>" .
	145	"</table><BR></tt></font><hr>";
	146
	147	$data = sqimap_run_command ($imap_stream, "FETCH $passed_id BODY[]", true, $response, $message, $uid_support);
	148	array_shift($data);
	149	$wholemessage = implode('', $data);
	150
	151	$ret = $wholemessage;
	152	}
	153	return $ret;
	154	}
	155
	156	function mime_print_body_lines ($imap_stream, $id, $ent_id=1, $encoding) {
	157	global $uid_support;
	158
	159	$sid = sqimap_session_id($uid_support);
	160	/* Don't kill the connection if the browser is over a dialup
	161	* and it would take over 30 seconds to download it.
	162