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


//require_once('./message_viewentity.php');
chdir('..');
require_once('../functions/imap.php');
require_once('../functions/mime.php');
require_once('../config/config.php');
require_once('../src/validate.php');
require_once('../src/load_prefs.php');

global $color, $uid_support;

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