[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$
 */

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, $uid_support;

$passed_id = $_GET['passed_id'];
$mailbox = $_GET['mailbox'];

$username = $_SESSION['username'];
$key = $_COOKIE['key'];
$onetimepad = $_SESSION['onetimepad'];


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, $uid_support);
$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;
  margin-bottom:1em;
  padding-bottom:1em;
  border-style: solid none solid none;
  border-width:0.1em;
  width:99%;
}
//-->

</STYLE>

ECHO;

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