[squirrelmail.git] / plugins / message_details / message_details_bottom.php

<?php
/**
 * Message Details plugin - bottom frame with message structure and rfc822 body
 *
 * Plugin to view the RFC822 raw message output and the bodystructure of a message
 *
 * Licensed under the GNU GPL. For full terms see the file COPYING.
 * 
 * @author Marc Groot Koerkamp
 * @copyright Copyright &copy; 2002 Marc Groot Koerkamp, The Netherlands
 * @copyright Copyright &copy; 2004 The SquirrelMail Project Team
 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
 * @version $Id$
 * @package plugins
 * @subpackage message_details
 */

/** @ignore */
define('SM_PATH','../../');

/* SquirrelMail required files. */
require_once(SM_PATH . 'include/validate.php');
require_once(SM_PATH . 'functions/imap.php');
require_once(SM_PATH . 'functions/mime.php');

global $color;

sqgetGlobalVar('passed_id', $passed_id, SQ_GET);
sqgetGlobalVar('mailbox', $mailbox, SQ_GET);

sqgetGlobalVar('username', $username, SQ_SESSION);
sqgetGlobalVar('key', $key, SQ_COOKIE);
sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);

function CalcEntity($entString, $direction) {
    $result = $entString;
    if ($direction == -1) {
        $pos = strrpos($entString,'.');
        $result = substr($entString,0,$pos);
    }

    switch ($direction) {
        case 0:
            $pos = strrpos($entString,'.');
            if ($pos === false) {
                $entString++;
                $result= $entString;
            } 
            else {
                $level = substr($entString,0,$pos);
                $sublevel = substr($entString,$pos+1);
                $sublevel++;
                $result = "$level".'.'."$sublevel";
            }
            break;
        case 1:
            $result = "$entString".".0";
            break;
        default:
            break;
    }
    return ($result);
}

function returnTime($start) {
 $stop = gettimeofday();
 $timepassed =  1000000 * ($stop['sec'] - $start['sec']) + $stop['usec'] - $start['usec'];
 return $timepassed;
}

function GetMimeProperties($header) {
}

$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
$read = sqimap_mailbox_select($imapConnection, $mailbox);
$start = gettimeofday();
$body = sqimap_run_command($imapConnection, "FETCH $passed_id RFC822",true, $response, $readmessage, TRUE);
$message_body = '';
$header = false;
$mimepart = false;
$bnd_end = false;
$messageheader = true;
$messageheaderstart=false;
$boundaries = array();
$entities = array();
session_unregister("entities");
$pre = '<b>';
$end = '</b>';
$entStr = '';
$bla ='';
$content = array ();
$content_indx = -1;
$contentset = false;

$count=count($body);
$body[$count-1] = substr($body[$count-1], -1);
for ($i=1; $i < $count; $i++) {
    $line = trim($body[$i]);
    if ($line == '') {
        $pre = '';
        $end = '';
        if ($bnd_end) {
            $header = true;
            $mimepart = false;
        } else if ($messageheader) {
            if ($header) {
                $header=false;
                $end = "\n \n".'</div>'."\n \n".'<div class="ent_body" id="'.$entStr.'B">'."\n \n"; 
            }
            $mimepart = -$header;
            $bnd_end = false;
            if ($messageheaderstart) {
                $messageheaderstart=false;
            }
        } else if ($messageheaderstart) {
            $messageheader= false;
        } else {
            if ($header) {
                $pre = '';
                $end = "\n \n".'</div>'."\n \n".'<div class="ent_body" id="'.$entStr.'B">'."\n \n"; 
            }
            $header = false;
            $mimepart=true;
        }  
        $contentset = false;
        $nameset = false;
    } else {
        if (!$header && $messageheader) {
            $messageheaderstart=true;
            if ($pre != '<b>') {
                $pre = '<i><font color ="'.$color[1].'">';
                $end = '</i></font>';
            }
        }     
        if (!$messageheader && !$header ) {
            $mimepart=true;
        }  else {
            $mimepart=false;
        }
        $pre = '';
        $end = '';
    }
    if (  ( $header || $messageheader) && (preg_match("/^.*boundary=\"?(.+(?=\")|.+).*/i",$line,$reg)) )  {
        $bnd = $reg[1];
        $bndreg = $bnd;    
        $bndreg = str_replace("\\","\\\\",$bndreg);
        $bndreg = str_replace("?","\\?",$bndreg);
        $bndreg = str_replace("+","\\+",$bndreg);
        $bndreg = str_replace(".","\\.",$bndreg);
        $bndreg = str_replace("/","\\/",$bndreg);
        $bndreg = str_replace("-","\\-",$bndreg);
        $bndreg = str_replace("(","\\(",$bndreg);
        $bndreg = str_replace(")","\\)",$bndreg);

        $boundaries[] = array( 'bnd' => $bnd, 'bndreg' => $bndreg);
        $messageheader = false;
        $messageheaderstart=false;
        $mimepart=false;
        if ($entStr=='') {
            $entStr='0';
        } else {
            $entStr = CalcEntity("$entStr",1);
        }
    }
    
    if (($line != '' && $line{0} == '-' || $header)  && isset($boundaries[0])) {
        $cnt=count($boundaries)-1;
        $bnd = $boundaries[$cnt]['bnd'];
        $bndreg = $boundaries[$cnt]['bndreg'];
      
        $regstr = '/^--'."($bndreg)".".*".'/';
        if (preg_match($regstr,$line,$reg) ) {
            $bndlen = strlen($reg[1]);
            $bndend = false;            
            if (strlen($line) > ($bndlen + 3)) {
                if ($line{$bndlen+2} == '-' && $line{$bndlen+3} == '-') 
                    $bndend = true;
            }
            if ($bndend) {
                $entStr = CalcEntity("$entStr",-1);
                array_pop($boundaries);
                $pre .= '<b><font color ="'.$color[2].'">';
                $end .= '</font></b>';
                $header = true;
                $mimepart = false;
                $bnd_end = true;
                $encoding = '';
            } else {
                $header = true;
                $bnd_end = false;
                $entStr = CalcEntity("$entStr",0);
                $content_indx++;
                $content[$content_indx]=array();
                $content[$content_indx]['ent'] = '<a href="#'."$entStr \">$entStr".'</a>';
                $pre .= "\n \n".'</div>'."\n \n".'<div class="entheader" id="'.$entStr.'H"><a name="'."$entStr".'"><b><font color="'.$color[2].'">';
                $end .= '</font></b>'."\n";
                $header = true;
                $mimepart = false;
                $encoding = '';
            }
        }  else {
            if ($header) {
                if (!$contentset && preg_match("/^.*(content-type:)\s*(\w+)\/(\w+).*/i",$line,$reg)) {
                    if (strtolower($reg[2]) == 'message' && strtolower($reg[3]) == 'rfc822') {
                        $messageheader = true;
                    }
                    $content[$content_indx]['type'] = "$reg[2]/$reg[3]";
                    $contentset = true;
                    if ($reg[2] == 'image') {
                        $entities["$entStr"] = array();
                        $entities["$entStr"]['entity'] = $entStr;
                        $entities["$entStr"]['contenttype']=$reg[2].'/'.$reg[3];
                    }        
                   } else if (!$nameset && preg_match("/^.*(name=\s*)\"(.*)\".*/i",$line,$reg)) {
                    $name = htmlspecialchars($reg[2]);
                    $content[$content_indx]['name'] = decodeHeader($name);
                    $nameset = true;
                    if (isset($entities["$entStr"])) {
                        $entities["$entStr"]['name'] = urlEncode($reg[2]);
                    }
                   } else if (preg_match("/^.*(content-transfer-encoding:)\s*(\w+-?(\w+)?).*/i",$line,$reg) ) {
                    $encoding = $reg[2];
                    if (isset($entities["$entStr"])) {
                        $entities["$entStr"]['encoding']=$reg[2];
                    }
                    $content[$content_indx]['encoding'] = $encoding;
                    $mimeentity = '';
                }

                $pre .= '<b><font color='.$color[7].'">';
                $end .= '</font></b>';
                //$mimepart=false;
            }
        }
    }
/*
    if ($mimepart) {
            if (isset($entities["$entStr"])) {
            if (isset($encoding) && $encoding == 'base64') {
                    if (!isset( $entities["$entStr"]['content'])) $entities[$entStr]['content'] = '';
                $entities["$entStr"]['content'] .= $line;
            }
        }
    }
*/
    $line = htmlspecialchars($line);
    $message_body .= "$pre"."$line"."$end".'<br />'."\r\n";
}
//echo returnTime($start).'<br />';
$xtra = <<<ECHO

<style>

<!--
.ent_body {
  display:inline;
}

.header {
  display:inline;
}

.entheader {
  display:inline;
  width:99%;
}
//-->

</style>

ECHO;

displayHtmlHeader( _("Message Details"), $xtra, FALSE );
/* body */
echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\">\n";
echo '<code>'."\n";
echo '<font face="monospace">'."\n";
echo '<br />'."\n";


//session_register("entities");
//$keys = array_keys($entities);
//$start = gettimeofday();
//foreach ($keys as $key) {
//    if (isset($entities[$key])) {
//    if ($entities[$key]['encoding'] == 'base64') {
//        echo '<img src="message_viewentity.php?ent='.$entities[$key]['entity'].'&amp;name='.$entities[$key]['name'].'"><br />';
//    }
//    }
//}
//session_unregister("entities");

if (count($content) > 0) {
    echo '<h2>'._("Bodystructure")."</h2>\n\n";
    echo '<table border="1" width="98%"><thead>'.
         '<tr bgcolor="'.$color[7].'">'.
         '<td><b><font color="'.$color[5].'">'._("Entity").'</font></b></td>'.
         '<td><b><font color="'.$color[5].'">'._("Content-Type").'</font></b></td>'.
         '<td><b><font color="'.$color[5].'">'._("Name").'</font></b></td>'.
         '<td><b><font color="'.$color[5].'">'._("Encoding").'</font></b></td>'.
         '</tr>'.
         '</thead><tbody>';
    for ($i = 0; $i < count($content);$i++) {
        echo '<tr><td>';
        echo $content[$i]['ent'].'</td><td>';
        if (isset($content[$i]['type'])) {
            echo $content[$i]['type'];
        } else echo 'TEXT/PLAIN';
        echo '</td><td>';
        if (isset($content[$i]['name'])) {
            echo $content[$i]['name'];
        } else echo '&nbsp;';
        echo '</td><td>';
        if (isset($content[$i]['encoding'])) {
            echo $content[$i]['encoding'];
        } else echo '&nbsp;';
        echo '</td></tr>'."\n";
    }
    echo '</tbody></table><br />'."\n";
}
echo '<h2>'._("RFC822 Message body")."</h2>\n\n";
echo '<div><div class="header">'."\n\n";
echo $message_body;
echo '</div></div></font></code></body></html>';
?>
Commit	Line	Data
	1	<?php
	2	/**
	3	* Message Details plugin - bottom frame with message structure and rfc822 body
	4	*
	5	* Plugin to view the RFC822 raw message output and the bodystructure of a message
	6	*
	7	* Licensed under the GNU GPL. For full terms see the file COPYING.
	8	*
	9	* @author Marc Groot Koerkamp
	10	* @copyright Copyright © 2002 Marc Groot Koerkamp, The Netherlands
	11	* @copyright Copyright © 2004 The SquirrelMail Project Team
	12	* @license http://opensource.org/licenses/gpl-license.php GNU Public License
	13	* @version $Id$
	14	* @package plugins
	15	* @subpackage message_details
	16	*/
	17
	18	/** @ignore */
	19	define('SM_PATH','../../');
	20
	21	/* SquirrelMail required files. */
	22	require_once(SM_PATH . 'include/validate.php');
	23	require_once(SM_PATH . 'functions/imap.php');
	24	require_once(SM_PATH . 'functions/mime.php');
	25
	26	global $color;
	27
	28	sqgetGlobalVar('passed_id', $passed_id, SQ_GET);
	29	sqgetGlobalVar('mailbox', $mailbox, SQ_GET);
	30
	31	sqgetGlobalVar('username', $username, SQ_SESSION);
	32	sqgetGlobalVar('key', $key, SQ_COOKIE);
	33	sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
	34
	35	function CalcEntity($entString, $direction) {
	36	$result = $entString;
	37	if ($direction == -1) {
	38	$pos = strrpos($entString,'.');
	39	$result = substr($entString,0,$pos);
	40	}
	41
	42	switch ($direction) {
	43	case 0:
	44	$pos = strrpos($entString,'.');
	45	if ($pos === false) {
	46	$entString++;
	47	$result= $entString;
	48	}
	49	else {
	50	$level = substr($entString,0,$pos);
	51	$sublevel = substr($entString,$pos+1);
	52	$sublevel++;
	53	$result = "$level".'.'."$sublevel";
	54	}
	55	break;
	56	case 1:
	57	$result = "$entString".".0";
	58	break;
	59	default:
	60	break;
	61	}
	62	return ($result);
	63	}
	64
	65	function returnTime($start) {
	66	$stop = gettimeofday();
	67	$timepassed = 1000000 * ($stop['sec'] - $start['sec']) + $stop['usec'] - $start['usec'];
	68	return $timepassed;
	69	}
	70
	71	function GetMimeProperties($header) {
	72	}
	73
	74	$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
	75	$read = sqimap_mailbox_select($imapConnection, $mailbox);
	76	$start = gettimeofday();
	77	$body = sqimap_run_command($imapConnection, "FETCH $passed_id RFC822",true, $response, $readmessage, TRUE);
	78	$message_body = '';
	79	$header = false;
	80	$mimepart = false;
	81	$bnd_end = false;
	82	$messageheader = true;
	83	$messageheaderstart=false;
	84	$boundaries = array();
	85	$entities = array();
	86	session_unregister("entities");
	87	$pre = '<b>';
	88	$end = '</b>';
	89	$entStr = '';
	90	$bla ='';
	91	$content = array ();
	92	$content_indx = -1;
	93	$contentset = false;
	94
	95	$count=count($body);
	96	$body[$count-1] = substr($body[$count-1], -1);
	97	for ($i=1; $i < $count; $i++) {
	98	$line = trim($body[$i]);
	99	if ($line == '') {
	100	$pre = '';
	101	$end = '';
	102	if ($bnd_end) {
	103	$header = true;
	104	$mimepart = false;
	105	} else if ($messageheader) {
	106	if ($header) {
	107	$header=false;
	108	$end = "\n \n".'</div>'."\n \n".'<div class="ent_body" id="'.$entStr.'B">'."\n \n";
	109	}
	110	$mimepart = -$header;
	111	$bnd_end = false;
	112	if ($messageheaderstart) {
	113	$messageheaderstart=false;
	114	}
	115	} else if ($messageheaderstart) {
	116	$messageheader= false;
	117	} else {
	118	if ($header) {
	119	$pre = '';
	120	$end = "\n \n".'</div>'."\n \n".'<div class="ent_body" id="'.$entStr.'B">'."\n \n";
	121	}
	122	$header = false;
	123	$mimepart=true;
	124	}
	125	$contentset = false;
	126	$nameset = false;
	127	} else {
	128	if (!$header && $messageheader) {
	129	$messageheaderstart=true;
	130	if ($pre != '<b>') {
	131	$pre = '<i><font color ="'.$color[1].'">';
	132	$end = '</i></font>';
	133	}
	134	}
	135	if (!$messageheader && !$header ) {
	136	$mimepart=true;
	137	} else {
	138	$mimepart=false;
	139	}
	140	$pre = '';
	141	$end = '';
	142	}
	143	if ( ( $header \|\| $messageheader) && (preg_match("/^.boundary=\"?(.+(?=\")\|.+)./i",$line,$reg)) ) {
	144	$bnd = $reg[1];
	145	$bndreg = $bnd;
	146	$bndreg = str_replace("\\","\\\\",$bndreg);
	147	$bndreg = str_replace("?","\\?",$bndreg);
	148	$bndreg = str_replace("+","\\+",$bndreg);
	149	$bndreg = str_replace(".","\\.",$bndreg);
	150	$bndreg = str_replace("/","\\/",$bndreg);
	151	$bndreg = str_replace("-","\\-",$bndreg);
	152	$bndreg = str_replace("(","\\(",$bndreg);
	153	$bndreg = str_replace(")","\\)",$bndreg);
	154
	155	$boundaries[] = array( 'bnd' => $bnd, 'bndreg' => $bndreg);
	156	$messageheader = false;
	157	$messageheaderstart=false;
	158	$mimepart=false;
	159	if ($entStr=='') {
	160	$entStr='0';
	161	} else {
	162	$entStr = CalcEntity("$entStr",1);
	163	}
	164	}
	165
	166	if (($line != '' && $line{0} == '-' \|\| $header) && isset($boundaries[0])) {
	167	$cnt=count($boundaries)-1;
	168	$bnd = $boundaries[$cnt]['bnd'];
	169	$bndreg = $boundaries[$cnt]['bndreg'];
	170
	171	$regstr = '/^--'."($bndreg)".".*".'/';
	172	if (preg_match($regstr,$line,$reg) ) {
	173	$bndlen = strlen($reg[1]);
	174	$bndend = false;
	175	if (strlen($line) > ($bndlen + 3)) {
	176	if ($line{$bndlen+2} == '-' && $line{$bndlen+3} == '-')
	177	$bndend = true;
	178	}
	179	if ($bndend) {
	180	$entStr = CalcEntity("$entStr",-1);
	181	array_pop($boundaries);
	182	$pre .= '<b><font color ="'.$color[2].'">';
	183	$end .= '</font></b>';
	184	$header = true;
	185	$mimepart = false;
	186	$bnd_end = true;
	187	$encoding = '';
	188	} else {
	189	$header = true;
	190	$bnd_end = false;
	191	$entStr = CalcEntity("$entStr",0);
	192	$content_indx++;
	193	$content[$content_indx]=array();
	194	$content[$content_indx]['ent'] = '<a href="#'."$entStr \">$entStr".'</a>';
	195	$pre .= "\n \n".'</div>'."\n \n".'<div class="entheader" id="'.$entStr.'H"><a name="'."$entStr".'"><b><font color="'.$color[2].'">';
	196	$end .= '</font></b>'."\n";
	197	$header = true;
	198	$mimepart = false;
	199	$encoding = '';
	200	}
	201	} else {
	202	if ($header) {
	203	if (!$contentset && preg_match("/^.(content-type:)\s(\w+)\/(\w+).*/i",$line,$reg)) {
	204	if (strtolower($reg[2]) == 'message' && strtolower($reg[3]) == 'rfc822') {
	205	$messageheader = true;
	206	}
	207	$content[$content_indx]['type'] = "$reg[2]/$reg[3]";
	208	$contentset = true;
	209	if ($reg[2] == 'image') {
	210	$entities["$entStr"] = array();
	211	$entities["$entStr"]['entity'] = $entStr;
	212	$entities["$entStr"]['contenttype']=$reg[2].'/'.$reg[3];
	213	}
	214	} else if (!$nameset && preg_match("/^.(name=\s)\"(.)\"./i",$line,$reg)) {
	215	$name = htmlspecialchars($reg[2]);
	216	$content[$content_indx]['name'] = decodeHeader($name);
	217	$nameset = true;
	218	if (isset($entities["$entStr"])) {
	219	$entities["$entStr"]['name'] = urlEncode($reg[2]);
	220	}
	221	} else if (preg_match("/^.(content-transfer-encoding:)\s(\w+-?(\w+)?).*/i",$line,$reg) ) {
	222	$encoding = $reg[2];
	223	if (isset($entities["$entStr"])) {
	224	$entities["$entStr"]['encoding']=$reg[2];
	225	}
	226	$content[$content_indx]['encoding'] = $encoding;
	227	$mimeentity = '';
	228	}
	229
	230	$pre .= '<b><font color='.$color[7].'">';
	231	$end .= '</font></b>';
	232	//$mimepart=false;
	233	}
	234	}
	235	}
	236	/*
	237	if ($mimepart) {
	238	if (isset($entities["$entStr"])) {
	239	if (isset($encoding) && $encoding == 'base64') {
	240	if (!isset( $entities["$entStr"]['content'])) $entities[$entStr]['content'] = '';
	241	$entities["$entStr"]['content'] .= $line;
	242	}
	243	}
	244	}
	245	*/
	246	$line = htmlspecialchars($line);
	247	$message_body .= "$pre"."$line"."$end".'<br />'."\r\n";
	248	}
	249	//echo returnTime($start).'<br />';
	250	$xtra = <<<ECHO
	251
	252	<style>
	253
	254	<!--
	255	.ent_body {
	256	display:inline;
	257	}
	258
	259	.header {
	260	display:inline;
	261	}
	262
	263	.entheader {
	264	display:inline;
	265	width:99%;
	266	}
	267	//-->
	268
	269	</style>
	270
	271	ECHO;
	272
	273	displayHtmlHeader( _("Message Details"), $xtra, FALSE );
	274	/* body */
	275	echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\">\n";
	276	echo '<code>'."\n";
	277	echo '<font face="monospace">'."\n";
	278	echo '<br />'."\n";
	279
	280
	281	//session_register("entities");
	282	//$keys = array_keys($entities);
	283	//$start = gettimeofday();
	284	//foreach ($keys as $key) {
	285	// if (isset($entities[$key])) {
	286	// if ($entities[$key]['encoding'] == 'base64') {
	287	// echo '<img src="message_viewentity.php?ent='.$entities[$key]['entity'].'&name='.$entities[$key]['name'].'"><br />';
	288	// }
	289	// }
	290	//}
	291	//session_unregister("entities");
	292
	293	if (count($content) > 0) {
	294	echo '<h2>'._("Bodystructure")."</h2>\n\n";
	295	echo '<table border="1" width="98%"><thead>'.
	296	'<tr bgcolor="'.$color[7].'">'.
	297	'<td><b><font color="'.$color[5].'">'._("Entity").'</font></b></td>'.
	298	'<td><b><font color="'.$color[5].'">'._("Content-Type").'</font></b></td>'.
	299	'<td><b><font color="'.$color[5].'">'._("Name").'</font></b></td>'.
	300	'<td><b><font color="'.$color[5].'">'._("Encoding").'</font></b></td>'.
	301	'</tr>'.
	302	'</thead><tbody>';
	303	for ($i = 0; $i < count($content);$i++) {
	304	echo '<tr><td>';
	305	echo $content[$i]['ent'].'</td><td>';
	306	if (isset($content[$i]['type'])) {
	307	echo $content[$i]['type'];
	308	} else echo 'TEXT/PLAIN';
	309	echo '</td><td>';
	310	if (isset($content[$i]['name'])) {
	311	echo $content[$i]['name'];
	312	} else echo ' ';
	313	echo '</td><td>';
	314	if (isset($content[$i]['encoding'])) {
	315	echo $content[$i]['encoding'];
	316	} else echo ' ';
	317	echo '</td></tr>'."\n";
	318	}
	319	echo '</tbody></table><br />'."\n";
	320	}
	321	echo '<h2>'._("RFC822 Message body")."</h2>\n\n";
	322	echo '<div><div class="header">'."\n\n";
	323	echo $message_body;
	324	echo '</div></div></font></code></body></html>';
	325	?>