Some plugins to rg=0: bug_report message_details newmail sent_subfolders spamcop...
[squirrelmail.git] / plugins / message_details / message_details_bottom.php
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'].'&amp;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 '&nbsp';
312 echo '</td><td>';
313 if (isset($content[$i]['encoding'])) {
314 echo $content[$i]['encoding'];
315 } else echo '&nbsp';
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 ?>