Adding reminder
[squirrelmail.git] / plugins / message_details / message_details_bottom.php
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 &copy; 2002 Marc Groot Koerkamp, The Netherlands
11 * @copyright Copyright &copy; 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 /**
36 * Calculates id of MIME entity
37 * @param string $entString
38 * @param integer $direction
39 * @return string
40 * @access private
41 */
42 function CalcEntity($entString, $direction) {
43 $result = $entString;
44 if ($direction == -1) {
45 $pos = strrpos($entString,'.');
46 $result = substr($entString,0,$pos);
47 }
48
49 switch ($direction) {
50 case 0:
51 $pos = strrpos($entString,'.');
52 if ($pos === false) {
53 $entString++;
54 $result= $entString;
55 }
56 else {
57 $level = substr($entString,0,$pos);
58 $sublevel = substr($entString,$pos+1);
59 $sublevel++;
60 $result = "$level".'.'."$sublevel";
61 }
62 break;
63 case 1:
64 $result = "$entString".".0";
65 break;
66 default:
67 break;
68 }
69 return ($result);
70 }
71
72 /**
73 * Returns time in microseconds between selected and current timestamp
74 *
75 * @param array $start see details about array format at http://www.php.net/gettimeofday
76 * @return integer time in microseconds
77 * @access private
78 */
79 function returnTime($start) {
80 $stop = gettimeofday();
81 $timepassed = 1000000 * ($stop['sec'] - $start['sec']) + $stop['usec'] - $start['usec'];
82 return $timepassed;
83 }
84
85 $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
86 $read = sqimap_mailbox_select($imapConnection, $mailbox);
87 $start = gettimeofday();
88 $body = sqimap_run_command($imapConnection, "FETCH $passed_id RFC822",true, $response, $readmessage, TRUE);
89 $message_body = '';
90 $header = false;
91 $mimepart = false;
92 $bnd_end = false;
93 $messageheader = true;
94 $messageheaderstart=false;
95 $boundaries = array();
96 $entities = array();
97 session_unregister("entities");
98 $pre = '<b>';
99 $end = '</b>';
100 $entStr = '';
101 $bla ='';
102 $content = array ();
103 $content_indx = -1;
104 $contentset = false;
105
106 $count=count($body);
107 $body[$count-1] = substr($body[$count-1], -1);
108 for ($i=1; $i < $count; $i++) {
109 $line = trim($body[$i]);
110 if ($line == '') {
111 $pre = '';
112 $end = '';
113 if ($bnd_end) {
114 $header = true;
115 $mimepart = false;
116 } else if ($messageheader) {
117 if ($header) {
118 $header=false;
119 $end = "\n \n".'</div>'."\n \n".'<div class="ent_body" id="'.$entStr.'B">'."\n \n";
120 }
121 $mimepart = -$header;
122 $bnd_end = false;
123 if ($messageheaderstart) {
124 $messageheaderstart=false;
125 }
126 } else if ($messageheaderstart) {
127 $messageheader= false;
128 } else {
129 if ($header) {
130 $pre = '';
131 $end = "\n \n".'</div>'."\n \n".'<div class="ent_body" id="'.$entStr.'B">'."\n \n";
132 }
133 $header = false;
134 $mimepart=true;
135 }
136 $contentset = false;
137 $nameset = false;
138 } else {
139 if (!$header && $messageheader) {
140 $messageheaderstart=true;
141 if ($pre != '<b>') {
142 $pre = '<i><font color ="'.$color[1].'">';
143 $end = '</i></font>';
144 }
145 }
146 if (!$messageheader && !$header ) {
147 $mimepart=true;
148 } else {
149 $mimepart=false;
150 }
151 $pre = '';
152 $end = '';
153 }
154 if ( ( $header || $messageheader) && (preg_match("/^.*boundary=\"?(.+(?=\")|.+).*/i",$line,$reg)) ) {
155 $bnd = $reg[1];
156 $bndreg = $bnd;
157 $bndreg = str_replace("\\","\\\\",$bndreg);
158 $bndreg = str_replace("?","\\?",$bndreg);
159 $bndreg = str_replace("+","\\+",$bndreg);
160 $bndreg = str_replace(".","\\.",$bndreg);
161 $bndreg = str_replace("/","\\/",$bndreg);
162 $bndreg = str_replace("-","\\-",$bndreg);
163 $bndreg = str_replace("(","\\(",$bndreg);
164 $bndreg = str_replace(")","\\)",$bndreg);
165
166 $boundaries[] = array( 'bnd' => $bnd, 'bndreg' => $bndreg);
167 $messageheader = false;
168 $messageheaderstart=false;
169 $mimepart=false;
170 if ($entStr=='') {
171 $entStr='0';
172 } else {
173 $entStr = CalcEntity("$entStr",1);
174 }
175 }
176
177 if (($line != '' && $line{0} == '-' || $header) && isset($boundaries[0])) {
178 $cnt=count($boundaries)-1;
179 $bnd = $boundaries[$cnt]['bnd'];
180 $bndreg = $boundaries[$cnt]['bndreg'];
181
182 $regstr = '/^--'."($bndreg)".".*".'/';
183 if (preg_match($regstr,$line,$reg) ) {
184 $bndlen = strlen($reg[1]);
185 $bndend = false;
186 if (strlen($line) > ($bndlen + 3)) {
187 if ($line{$bndlen+2} == '-' && $line{$bndlen+3} == '-')
188 $bndend = true;
189 }
190 if ($bndend) {
191 $entStr = CalcEntity("$entStr",-1);
192 array_pop($boundaries);
193 $pre .= '<b><font color ="'.$color[2].'">';
194 $end .= '</font></b>';
195 $header = true;
196 $mimepart = false;
197 $bnd_end = true;
198 $encoding = '';
199 } else {
200 $header = true;
201 $bnd_end = false;
202 $entStr = CalcEntity("$entStr",0);
203 $content_indx++;
204 $content[$content_indx]=array();
205 $content[$content_indx]['ent'] = '<a href="#'."$entStr \">$entStr".'</a>';
206 $pre .= "\n \n".'</div>'."\n \n".'<div class="entheader" id="'.
207 $entStr.'H"><a name="'."$entStr".'"><b><font color="'.$color[2].'">';
208 $end .= '</font></b>'."\n";
209 $header = true;
210 $mimepart = false;
211 $encoding = '';
212 }
213 } else {
214 if ($header) {
215 if (!$contentset && preg_match("/^.*(content-type:)\s*(\w+)\/(\w+).*/i",$line,$reg)) {
216 if (strtolower($reg[2]) == 'message' && strtolower($reg[3]) == 'rfc822') {
217 $messageheader = true;
218 }
219 $content[$content_indx]['type'] = "$reg[2]/$reg[3]";
220 $contentset = true;
221 if ($reg[2] == 'image') {
222 $entities["$entStr"] = array();
223 $entities["$entStr"]['entity'] = $entStr;
224 $entities["$entStr"]['contenttype']=$reg[2].'/'.$reg[3];
225 }
226 } else if (!$nameset && preg_match("/^.*(name=\s*)\"(.*)\".*/i",$line,$reg)) {
227 $name = htmlspecialchars($reg[2]);
228 $content[$content_indx]['name'] = decodeHeader($name);
229 $nameset = true;
230 if (isset($entities["$entStr"])) {
231 $entities["$entStr"]['name'] = urlEncode($reg[2]);
232 }
233 } else if (preg_match("/^.*(content-transfer-encoding:)\s*(\w+-?(\w+)?).*/i",$line,$reg) ) {
234 $encoding = $reg[2];
235 if (isset($entities["$entStr"])) {
236 $entities["$entStr"]['encoding']=$reg[2];
237 }
238 $content[$content_indx]['encoding'] = $encoding;
239 $mimeentity = '';
240 }
241
242 $pre .= '<b><font color='.$color[7].'">';
243 $end .= '</font></b>';
244 //$mimepart=false;
245 }
246 }
247 }
248 /*
249 if ($mimepart) {
250 if (isset($entities["$entStr"])) {
251 if (isset($encoding) && $encoding == 'base64') {
252 if (!isset( $entities["$entStr"]['content'])) $entities[$entStr]['content'] = '';
253 $entities["$entStr"]['content'] .= $line;
254 }
255 }
256 }
257 */
258 $line = htmlspecialchars($line);
259 $message_body .= "$pre"."$line"."$end".'<br />'."\r\n";
260 }
261 //echo returnTime($start).'<br />';
262 $xtra = <<<ECHO
263
264 <style>
265
266 <!--
267 .ent_body {
268 display:inline;
269 }
270
271 .header {
272 display:inline;
273 }
274
275 .entheader {
276 display:inline;
277 width:99%;
278 }
279 //-->
280
281 </style>
282
283 ECHO;
284
285 displayHtmlHeader( _("Message Details"), $xtra, FALSE );
286 /* body */
287 echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\">\n";
288 echo '<code>'."\n";
289 echo '<font face="monospace">'."\n";
290 echo '<br />'."\n";
291
292
293 //session_register("entities");
294 //$keys = array_keys($entities);
295 //$start = gettimeofday();
296 //foreach ($keys as $key) {
297 // if (isset($entities[$key])) {
298 // if ($entities[$key]['encoding'] == 'base64') {
299 // echo '<img src="message_viewentity.php?ent='.$entities[$key]['entity'].'&amp;name='.$entities[$key]['name'].'"><br />';
300 // }
301 // }
302 //}
303 //session_unregister("entities");
304
305 if (count($content) > 0) {
306 echo '<h2>'._("Bodystructure")."</h2>\n\n";
307 echo '<table border="1" width="98%"><thead>'.
308 '<tr bgcolor="'.$color[7].'">'.
309 '<td><b><font color="'.$color[5].'">'._("Entity").'</font></b></td>'.
310 '<td><b><font color="'.$color[5].'">'._("Content-Type").'</font></b></td>'.
311 '<td><b><font color="'.$color[5].'">'._("Name").'</font></b></td>'.
312 '<td><b><font color="'.$color[5].'">'._("Encoding").'</font></b></td>'.
313 '</tr>'.
314 '</thead><tbody>';
315 for ($i = 0; $i < count($content);$i++) {
316 echo '<tr><td>';
317 echo $content[$i]['ent'].'</td><td>';
318 if (isset($content[$i]['type'])) {
319 echo $content[$i]['type'];
320 } else echo 'TEXT/PLAIN';
321 echo '</td><td>';
322 if (isset($content[$i]['name'])) {
323 echo $content[$i]['name'];
324 } else echo '&nbsp;';
325 echo '</td><td>';
326 if (isset($content[$i]['encoding'])) {
327 echo $content[$i]['encoding'];
328 } else echo '&nbsp;';
329 echo '</td></tr>'."\n";
330 }
331 echo '</tbody></table><br />'."\n";
332 }
333 echo '<h2>'._("RFC822 Message body")."</h2>\n\n";
334 echo '<div><div class="header">'."\n\n";
335 echo $message_body;
336 echo '</div></div></font></code></body></html>';
337 ?>