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

<?php

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