resume draft bug fixed #513521
[squirrelmail.git] / src / read_body.php
1 <?php
2
3 /**
4 * read_body.php
5 *
6 * Copyright (c) 1999-2002 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
8 *
9 * This file is used for reading the msgs array and displaying
10 * the resulting emails in the right frame.
11 *
12 * $Id$
13 */
14
15 require_once('../src/validate.php');
16 require_once('../functions/imap.php');
17 require_once('../functions/mime.php');
18 require_once('../functions/date.php');
19 require_once('../functions/url_parser.php');
20 require_once('../functions/smtp.php');
21
22 /**
23 * Given an IMAP message id number, this will look it up in the cached
24 * and sorted msgs array and return the index. Used for finding the next
25 * and previous messages.
26 *
27 * returns the index of the next valid message from the array
28 */
29 function findNextMessage() {
30 global $msort, $currentArrayIndex, $msgs, $sort;
31 $result = -1;
32
33 if ($sort == 6) {
34 if ($currentArrayIndex != 1) {
35 $result = $currentArrayIndex - 1;
36 }
37 } else {
38 for (reset($msort); ($key = key($msort)), (isset($key)); next($msort)) {
39 if ($currentArrayIndex == $msgs[$key]['ID']) {
40 next($msort);
41 $key = key($msort);
42 if (isset($key))
43 $result = $msgs[$key]['ID'];
44 break;
45 }
46 }
47 }
48 return ($result);
49 }
50
51 /** Removes just one address from the list of addresses. */
52 function RemoveAddress(&$addr_list, $addr) {
53 if ($addr != '') {
54 foreach (array_keys($addr_list, $addr) as $key_to_delete) {
55 unset($addr_list[$key_to_delete]);
56 }
57 }
58 }
59
60 /** returns the index of the previous message from the array. */
61 function findPreviousMessage() {
62 global $msort, $currentArrayIndex, $sort, $msgs, $imapConnection,
63 $mailbox, $data_dir, $username;
64
65 $result = -1;
66
67 if ($sort == 6) {
68 $numMessages = sqimap_get_num_messages($imapConnection, $mailbox);
69 if ($currentArrayIndex != $numMessages) {
70 $result = $currentArrayIndex + 1;
71 }
72 } else {
73 for (reset($msort); ($key = key($msort)), (isset($key)); next($msort)) {
74 if ($currentArrayIndex == $msgs[$key]['ID']) {
75 prev($msort);
76 $key = key($msort);
77 if (isset($key)) {
78 $result = $msgs[$key]['ID'];
79 break;
80 }
81 }
82 }
83 }
84 return ($result);
85 }
86
87 /**
88 * Displays a link to a page where the message is displayed more
89 * "printer friendly".
90 */
91 function printer_friendly_link() {
92 global $passed_id, $mailbox, $ent_num, $color,
93 $pf_subtle_link,
94 $javascript_on;
95
96 if (strlen(trim($mailbox)) < 1) {
97 $mailbox = 'INBOX';
98 }
99
100 $params = '?passed_ent_id=' . $ent_num .
101 '&mailbox=' . urlencode($mailbox) .
102 '&passed_id=' . $passed_id;
103
104 $print_text = _("View Printable Version");
105
106 if (!$pf_subtle_link) {
107 /* The link is large, on the bottom of the header panel. */
108 $result = '<tr bgcolor="' . $color[0] . '">' .
109 '<td class="medText" align="right" valign="top">' .
110 '&nbsp;' .
111 '</td><td class="medText" valign="top" colspan="2">'."\n";
112 } else {
113 /* The link is subtle, below "view full header". */
114 $result = "<BR>\n";
115 }
116
117 /* Output the link. */
118 if ($javascript_on) {
119 $result .= '<script language="javascript" type="text/javascript">' . "\n" .
120 '<!--' . "\n" .
121 " function printFormat() {\n" .
122 ' window.open("../src/printer_friendly_main.php' .
123 $params . '","Print","width=800,height=600");' . "\n".
124 " }\n" .
125 "// -->\n" .
126 "</script>\n" .
127 "<A HREF=\"javascript:printFormat();\">$print_text</A>\n";
128 } else {
129 $result .= '<A TARGET="_blank" HREF="../src/printer_friendly_bottom.php' .
130 "$params\">$print_text</A>\n";
131 }
132
133 if (!$pf_subtle_link) {
134 /* The link is large, on the bottom of the header panel. */
135 $result .= '</td></tr>' . "\n";
136 }
137
138 return ($result);
139 }
140
141 function ServerMDNSupport( $read ) {
142 /* escaping $ doesn't work -> \x36 */
143 $ret = preg_match( '/(\x36MDNSent|\\\*)/i', $read );
144 return ( $ret );
145 }
146
147 function SendMDN ( $recipient , $sender) {
148 global $imapConnection, $mailbox, $username, $attachment_dir, $SERVER_NAME,
149 $version, $attachments, $identity, $data_dir, $passed_id;
150
151 $header = sqimap_get_message_header($imapConnection, $passed_id, $mailbox);
152 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
153
154 // part 1 (RFC2298)
155
156 $senton = getLongDateString( $header->date );
157 $to_array = $header->to;
158 $to = '';
159 foreach ($to_array as $line) {
160 $to .= " $line ";
161 }
162
163 $subject = $header->subject;
164 $now = getLongDateString( time() );
165
166 $body = _("Your message") . "\r\n\r\n" .
167 "\t" . _("To:") . ' ' . $to . "\r\n" .
168 "\t" . _("Subject:") . ' ' . $subject . "\r\n" .
169 "\t" . _("Sent:") . ' ' . $senton . "\r\n" .
170 "\r\n" .
171 sprintf( _("Was displayed on %s"), $now );
172
173 // part2 (RFC2298)
174
175 $original_recipient = $to;
176 $original_message_id = $header->message_id;
177
178 $part2 = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version $version) \r\n";
179 if ($original_recipient != '') {
180 $part2 .= "Original-Recipient : $original_recipient\r\n";
181 }
182 $final_recipient = $sender;
183 $part2 .= "Final-Recipient: rfc822; $final_recipient\r\n" .
184 "Original-Message-ID : $original_message_id\r\n" .
185 "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
186
187
188 $localfilename = GenerateRandomString(32, 'FILE', 7);
189 $full_localfilename = "$hashed_attachment_dir/$localfilename";
190
191 $fp = fopen( $full_localfilename, 'w');
192 fwrite ($fp, $part2);
193 fclose($fp);
194
195 $newAttachment = array();
196 $newAttachment['localfilename'] = $localfilename;
197 $newAttachment['type'] = "message/disposition-notification";
198
199 $attachments[] = $newAttachment;
200 $MDN_to = trim($recipient);
201 $reply_id = 0;
202
203 return (SendMessage($MDN_to,'','', _("Read:") . ' ' . $subject, $body,$reply_id, True, 3) );
204 }
205
206
207 function ToggleMDNflag ( $set ) {
208 global $imapConnection, $passed_id, $mailbox;
209 sqimap_mailbox_select($imapConnection, $mailbox);
210
211 $sg = $set?'+':'-';
212 $cmd = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
213 $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
214 $readmessage);
215 }
216
217 function ClearAttachments() {
218 global $username, $attachments, $attachment_dir;
219
220 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
221
222 foreach ($attachments as $info) {
223 $attached_file = "$hashed_attachment_dir/$info[localfilename]";
224 if (file_exists($attached_file)) {
225 unlink($attached_file);
226 }
227 }
228
229 $attachments = array();
230 }
231
232
233 /*
234 * Main of read_boby.php --------------------------------------------------
235 */
236
237 /*
238 Urled vars
239 ----------
240 $passed_id
241 */
242
243 if ( isset( $mailbox ) ) {
244 $mailbox = urldecode( $mailbox );
245 }
246 $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
247 $read = sqimap_mailbox_select($imapConnection, $mailbox, false, false, true);
248
249 do_hook('html_top');
250
251 /*
252 * The following code sets necesarry stuff for the MDN thing
253 */
254 if( $default_use_mdn &&
255 ( $mdn_user_support = getPref($data_dir, $username, 'mdn_user_support', $default_use_mdn) ) ) {
256
257 $supportMDN = ServerMDNSupport($read["PERMANENTFLAGS"]);
258 $flags = sqimap_get_flags ($imapConnection, $passed_id);
259 $FirstTimeSee = !(in_array( 'Seen', $flags ));
260 }
261
262 displayPageHeader($color, $mailbox);
263
264
265 /*
266 * The following code shows the header of the message and then exit
267 */
268 if (isset($view_hdr)) {
269 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[HEADER]", true, $a, $b);
270
271 echo '<BR>' .
272 '<TABLE WIDTH="100%" CELLPADDING="2" CELLSPACING="0" BORDER="0" ALIGN="CENTER">' . "\n" .
273 " <TR><TD BGCOLOR=\"$color[9]\" WIDTH=\"100%\" ALIGN=\"CENTER\"><B>" . _("Viewing Full Header") . '</B> - '.
274 '<a href="' . $base_uri . "src/read_body.php?mailbox=".urlencode($mailbox);
275 if (isset($where) && isset($what)) {
276 // Got here from a search
277 echo "&amp;passed_id=$passed_id&amp;where=".urlencode($where)."&amp;what=".urlencode($what).'">';
278 } else {
279 echo "&amp;passed_id=$passed_id&amp;startMessage=$startMessage&amp;show_more=$show_more\">";
280 }
281 echo _("View message") . "</a></b></td></tr></table>\n" .
282 "<table width=\"99%\" cellpadding=2 cellspacing=0 border=0 align=center>\n" .
283 '<tr><td>';
284
285 $cnum = 0;
286 for ($i=1; $i < count($read); $i++) {
287 $line = htmlspecialchars($read[$i]);
288 if (eregi("^&gt;", $line)) {
289 $second[$i] = $line;
290 $first[$i] = '&nbsp;';
291 $cnum++;
292 } else if (eregi("^[ |\t]", $line)) {
293 $second[$i] = $line;
294 $first[$i] = '';
295 } else if (eregi("^([^:]+):(.+)", $line, $regs)) {
296 $first[$i] = $regs[1] . ':';
297 $second[$i] = $regs[2];
298 $cnum++;
299 } else {
300 $second[$i] = trim($line);
301 $first[$i] = '';
302 }
303 }
304 for ($i=0; $i < count($second); $i = $j) {
305 if (isset($first[$i])) {
306 $f = $first[$i];
307 }
308 if (isset($second[$i])) {
309 $s = nl2br($second[$i]);
310 }
311 $j = $i + 1;
312 while (($first[$j] == '') && ($j < count($first))) {
313 $s .= '&nbsp;&nbsp;&nbsp;&nbsp;' . nl2br($second[$j]);
314 $j++;
315 }
316 parseEmail($s);
317 if (isset($f)) {
318 echo "<nobr><tt><b>$f</b>$s</tt></nobr>";
319 }
320 }
321 echo "</td></tr></table>\n" .
322 '</body></html>';
323 sqimap_logout($imapConnection);
324 exit;
325 }
326
327 if (isset($msgs)) {
328 $currentArrayIndex = $passed_id;
329 } else {
330 $currentArrayIndex = -1;
331 }
332
333 for ($i = 0; $i < count($msgs); $i++) {
334 if ($msgs[$i]['ID'] == $passed_id) {
335 $msgs[$i]['FLAG_SEEN'] = true;
336 }
337 }
338
339 // $message contains all information about the message
340 // including header and body
341 $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
342
343 /** translate the subject and mailbox into url-able text **/
344 $url_subj = urlencode(trim($message->header->subject));
345 $urlMailbox = urlencode($mailbox);
346 $url_replyto = '';
347 if (isset($message->header->replyto)) {
348 $url_replyto = urlencode($message->header->replyto);
349 }
350
351 $url_replytoall = $url_replyto;
352
353 // If we are replying to all, then find all other addresses and
354 // add them to the list. Remove duplicates.
355 // This is somewhat messy, so I'll explain:
356 // 1) Take all addresses (from, to, cc) (avoid nasty join errors here)
357 $url_replytoall_extra_addrs = array_merge(
358 array($message->header->from),
359 $message->header->to,
360 $message->header->cc
361 );
362
363 // 2) Make one big string out of them
364 $url_replytoall_extra_addrs = join(';', $url_replytoall_extra_addrs);
365
366 // 3) Parse that into an array of addresses
367 $url_replytoall_extra_addrs = parseAddrs($url_replytoall_extra_addrs);
368
369 // 4) Make them unique -- weed out duplicates
370 // (Coded for PHP 4.0.0)
371 $url_replytoall_extra_addrs =
372 array_keys(array_flip($url_replytoall_extra_addrs));
373
374 // 5) Remove the addresses we'll be sending the message 'to'
375 $url_replytoall_avoid_addrs = '';
376 if (isset($message->header->replyto)) {
377 $url_replytoall_avoid_addrs = $message->header->replyto;
378 }
379
380 $url_replytoall_avoid_addrs = parseAddrs($url_replytoall_avoid_addrs);
381 foreach ($url_replytoall_avoid_addrs as $addr) {
382 RemoveAddress($url_replytoall_extra_addrs, $addr);
383 }
384
385 // 6) Remove our identities from the CC list (they still can be in the
386 // TO list) only if $include_self_reply_all is turned off
387 if (!$include_self_reply_all) {
388 RemoveAddress($url_replytoall_extra_addrs,
389 getPref($data_dir, $username, 'email_address'));
390 $idents = getPref($data_dir, $username, 'identities');
391 if ($idents != '' && $idents > 1) {
392 for ($i = 1; $i < $idents; $i ++) {
393 $cur_email_address = getPref($data_dir, $username, 'email_address' . $i);
394 RemoveAddress($url_replytoall_extra_addrs, $cur_email_address);
395 }
396 }
397 }
398
399 // 7) Smoosh back into one nice line
400 $url_replytoallcc = getLineOfAddrs($url_replytoall_extra_addrs);
401
402 // 8) urlencode() it
403 $url_replytoallcc = urlencode($url_replytoallcc);
404
405 $dateString = getLongDateString($message->header->date);
406
407 // What do we reply to -- text only, if possible
408 $ent_num = findDisplayEntity($message);
409
410 /** TEXT STRINGS DEFINITIONS **/
411 $echo_more = _("more");
412 $echo_less = _("less");
413
414 if (!isset($show_more_cc)) {
415 $show_more_cc = FALSE;
416 }
417
418 /** FORMAT THE TO STRING **/
419 $i = 0;
420 $to_string = '';
421 $url_to_string = '';
422 $to_ary = $message->header->to;
423 while ($i < count($to_ary)) {
424 $to_ary[$i] = htmlspecialchars(decodeHeader($to_ary[$i]));
425 $url_to_string .= $to_ary[$i];
426
427 if ($to_string) {
428 $to_string = "$to_string<BR>$to_ary[$i]";
429 } else {
430 $to_string = "$to_ary[$i]";
431 }
432
433 $i++;
434 if (count($to_ary) > 1) {
435 if ($show_more == false) {
436 if ($i == 1) {
437 /* From a search... */
438 $to_string .= '&nbsp;(<A HREF="' . $base_uri .
439 "src/read_body.php?mailbox=$urlMailbox&amp;passed_id=$passed_id&amp;";
440 if (isset($where) && isset($what)) {
441 $to_string .= 'where='.urlencode($where)."&amp;what=".urlencode($what)."&amp;show_more=1&amp;show_more_cc=$show_more_cc\">$echo_more</A>)";
442 } else {
443 $to_string .= "sort=$sort&amp;startMessage=$startMessage&amp;show_more=1&amp;show_more_cc=$show_more_cc\">$echo_more</A>)";
444 }
445 $i = count($to_ary);
446 }
447 } else if ($i == 1) {
448 /* From a search... */
449 $to_string .= '&nbsp;(<A HREF="' . $base_uri .
450 "src/read_body.php?mailbox=$urlMailbox&amp;passed_id=$passed_id&amp;";
451 if (isset($where) && isset($what)) {
452 $to_string .= 'where='.urlencode($where)."&amp;what=".urlencode($what)."&amp;show_more=0&amp;show_more_cc=$show_more_cc\">$echo_less</A>)";
453 } else {
454 $to_string .= "sort=$sort&amp;startMessage=$startMessage&amp;show_more=0&amp;show_more_cc=$show_more_cc\">$echo_less</A>)";
455 }
456 }
457 }
458 }
459 $url_to_string = urlencode($url_to_string);
460
461
462 /** FORMAT THE CC STRING **/
463 $i = 0;
464 $url_cc_string = '';
465 if (isset ($message->header->cc[0]) && trim($message->header->cc[0])) {
466 $cc_string = '';
467 $cc_ary = $message->header->cc;
468 while ($i < count(decodeHeader($cc_ary))) {
469 $cc_ary[$i] = htmlspecialchars($cc_ary[$i]);
470 $url_cc_string .= $cc_ary[$i];
471
472 if ($cc_string) {
473 $cc_string = "$cc_string<BR>$cc_ary[$i]";
474 } else {
475 $cc_string = "$cc_ary[$i]";
476 }
477
478 $i++;
479 if (count($cc_ary) > 1) {
480 if ($show_more_cc == false) {
481 if ($i == 1) {
482 /* From a search... */
483 $cc_string .= '&nbsp;(<A HREF="' . $base_uri .
484 "src/read_body.php?mailbox=$urlMailbox&passed_id=$passed_id";
485 if (isset($where) && isset($what)) {
486 $cc_string .= '&amp;what='.urlencode($what)."&amp;where=".urlencode($where)."&amp;show_more_cc=1&amp;show_more=$show_more\">$echo_more</A>)";
487 } else {
488 $cc_string .= "&amp;sort=$sort&amp;startMessage=$startMessage&amp;show_more_cc=1&amp;show_more=$show_more\">$echo_more</A>)";
489 }
490 $i = count($cc_ary);
491 }
492 } else if ($i == 1) {
493 /* From a search... */
494 $cc_string .= '&nbsp;(<A HREF="' . $base_uri .
495 "src/read_body.php?mailbox=$urlMailbox&amp;passed_id=$passed_id&amp;";
496 if (isset($where) && isset($what)) {
497 $cc_string .= 'what=' . urlencode($what)."&amp;where=".urlencode($where)."&amp;show_more_cc=0&amp;show_more=$show_more\">$echo_less</A>)";
498 } else {
499 $cc_string .= "sort=$sort&amp;startMessage=$startMessage&amp;show_more_cc=0&amp;show_more=$show_more\">$echo_less</A>)";
500 }
501 }
502 }
503 }
504 }
505 else {
506 $cc_string = '';
507 }
508 $url_cc_string = urlencode($url_cc_string);
509
510 /** FORMAT THE BCC STRING **/
511 $i = 0;
512 $url_bcc_string = '';
513 if (isset ($message->header->bcc[0]) && trim($message->header->bcc[0])){
514 $bcc_string = '';
515 $bcc_ary = $message->header->bcc;
516 while ($i < count(decodeHeader($bcc_ary))) {
517 $bcc_ary[$i] = htmlspecialchars($bcc_ary[$i]);
518 $url_bcc_string .= $bcc_ary[$i];
519 if ($bcc_string) {
520 $bcc_string = "$bcc_string<BR>$bcc_ary[$i]";
521 } else {
522 $bcc_string = "$bcc_ary[$i]";
523 }
524
525 $i++;
526 if (count($bcc_ary) > 1) {
527 if ($show_more_cc == false) {
528 if ($i == 1) {
529 /* From a search... */
530 $bcc_string .= '&nbsp;(<A HREF="' . $base_uri .
531 "src/read_body.php?mailbox=$urlMailbox&amp;passed_id=$passed_id&amp;";
532 if (isset($where) && isset($what)) {
533 $bcc_string .= 'what=' . urlencode($what)."&amp;where=".urlencode($where)."&amp;show_more_cc=1&amp;show_more=$show_more\">$echo_more</A>)";
534 } else {
535 $bcc_string .= "sort=$sort&amp;startMessage=$startMessage&amp;show_more_cc=1&amp;show_more=$show_more\">$echo_more</A>)";
536 }
537 $i = count($bcc_ary);
538 }
539 } else if ($i == 1) {
540 /* From a search... */
541 $bcc_string .= '&nbsp;(<A HREF="' . $base_uri .
542 "src/read_body.php?mailbox=$urlMailbox&amp;passed_id=$passed_id&amp;";
543 if (isset($where) && isset($what)) {
544 $bcc_string .= 'what=' . urlencode($what)."&amp;where=".urlencode($where)."&amp;show_more_cc=0&amp;show_more=$show_more\">$echo_less</A>)";
545 } else {
546 $bcc_string .= "sort=$sort&amp;startMessage=$startMessage&amp;show_more_cc=0&amp;show_more=$show_more\">$echo_less</A>)";
547 }
548 }
549 }
550 }
551 }
552 else {
553 $bcc_string = '';
554 }
555 $url_bcc_string = urlencode($url_bcc_string);
556
557 if ($default_use_priority) {
558 $priority_level = substr($message->header->priority,0,1);
559
560 switch($priority_level) {
561 /* check for a higher then normal priority. */
562 case '1':
563 case '2':
564 $priority_string = _("High");
565 break;
566
567 /* check for a lower then normal priority. */
568 case '4':
569 case '5':
570 $priority_string = _("Low");
571 break;
572
573 /* check for a normal priority. */
574 case '3':
575 default:
576 $priority_level = '3';
577 $priority_string = _("Normal");
578 break;
579
580 }
581 }
582
583 /** make sure everything will display in HTML format **/
584 $from_name = decodeHeader(htmlspecialchars($message->header->from));
585 $subject = decodeHeader(htmlspecialchars($message->header->subject));
586
587 do_hook('read_body_top');
588 echo '<BR>' .
589 '<TABLE CELLSPACING="0" WIDTH="100%" BORDER="0" ALIGN="CENTER" CELLPADDING="0">' .
590 '<TR><TD BGCOLOR="' . $color[9] . '" WIDTH="100%">' .
591 '<TABLE WIDTH="100%" CELLSPACING="0" BORDER="0" CELLPADDING="3">' .
592 '<TR>' .
593 '<TD ALIGN="LEFT" WIDTH="33%">' .
594 '<SMALL>' .
595 '<A HREF="' . $base_uri . 'src/';
596
597 if ($where && $what) {
598 if( $pos == '' ) {
599 $pos = 0;
600 }
601 echo "search.php?where$pos=".urlencode($where)."&amp;pos=$pos&amp;what$pos=".urlencode($what)."&amp;mailbox=$urlMailbox\">";
602 } else {
603 echo "right_main.php?sort=$sort&amp;startMessage=$startMessage&amp;mailbox=$urlMailbox\">";
604 }
605 echo _("Message List") .
606 '</A>&nbsp;|&nbsp;' .
607 '<A HREF="' . $base_uri . "src/delete_message.php?mailbox=$urlMailbox&amp;message=$passed_id&amp;";
608 if ($where && $what) {
609 echo 'where=' . urlencode($where) . '&amp;what=' . urlencode($what) . '">';
610 } else {
611 echo "sort=$sort&amp;startMessage=$startMessage\">";
612 }
613 echo _("Delete") . '</A>&nbsp;';
614 if (($mailbox == $draft_folder) && ($save_as_draft)) {
615 echo '|&nbsp;<A HREF="' . $base_uri .
616 "src/compose.php?mailbox=$mailbox&amp;send_to=$url_to_string&amp;send_to_cc=$url_cc_string&amp;send_to_bcc=$url_bcc_string&amp;subject=$url_subj&amp;draft_id=$passed_id&amp;ent_num=$ent_num" . '"';
617 if ($compose_new_win == '1') {
618 echo 'TARGET="compose_window" onClick="comp_in_new()"';
619 }
620 echo '>'.
621 _("Resume Draft") . '</a>';
622 }
623
624 echo '&nbsp;&nbsp;' .
625 '</SMALL>' .
626 '</TD>' .
627 '<TD WIDTH="33%" ALIGN="CENTER">' .
628 '<SMALL>';
629
630 if ( !($where && $what) ) {
631
632 if ($currentArrayIndex == -1) {
633 echo 'Previous&nbsp;|&nbsp;Next';
634 } else {
635 $prev = findPreviousMessage();
636 $next = findNextMessage();
637
638 if ($prev != -1) {
639 echo '<a href="' . $base_uri . "src/read_body.php?passed_id=$prev&amp;mailbox=$urlMailbox&amp;sort=$sort&amp;startMessage=$startMessage&amp;show_more=0\">" . _("Previous") . "</A>&nbsp;|&nbsp;";
640 } else {
641 echo _("Previous") . '&nbsp;|&nbsp;';
642 }
643
644 if ($next != -1) {
645 echo '<a href="' . $base_uri . "src/read_body.php?passed_id=$next&amp;mailbox=$urlMailbox&amp;sort=$sort&amp;startMessage=$startMessage&amp;show_more=0\">" . _("Next") . "</A>";
646 } else {
647 echo _("Next");
648 }
649 }
650 }
651
652 echo '</SMALL>' .
653 '</TD><TD WIDTH="33%" ALIGN="RIGHT">' .
654 '<SMALL>' .
655 '<A HREF="' . $base_uri . "src/compose.php?forward_id=$passed_id&amp;forward_subj=$url_subj&amp;".
656 ($default_use_priority?"mailprio=$priority_level&amp;":'')
657 ."mailbox=$urlMailbox&amp;ent_num=$ent_num\"";
658 if ($compose_new_win == '1') {
659 echo 'TARGET="compose_window" onClick="comp_in_new()"';
660 }
661 echo '>'.
662 _("Forward") .
663 '</A>&nbsp;|&nbsp;' .
664 '<A HREF="' . $base_uri . "src/compose.php?send_to=$url_replyto&amp;reply_subj=$url_subj&amp;".
665 ($default_use_priority?"mailprio=$priority_level&amp;":'').
666 "reply_id=$passed_id&amp;mailbox=$urlMailbox&amp;ent_num=$ent_num\"";
667 if ($compose_new_win == '1') {
668 echo 'TARGET="compose_window" onClick="comp_in_new()"';
669 }
670 echo '>'.
671 _("Reply") .
672 '</A>&nbsp;|&nbsp;' .
673 '<A HREF="' . $base_uri . "src/compose.php?send_to=$url_replytoall&amp;send_to_cc=$url_replytoallcc&amp;reply_subj=$url_subj&amp;".
674 ($default_use_priority?"mailprio=$priority_level&amp;":'').
675 "reply_id=$passed_id&amp;mailbox=$urlMailbox&amp;ent_num=$ent_num\"";
676 if ($compose_new_win == '1') {
677 echo 'TARGET="compose_window" onClick="comp_in_new()"';
678 }
679 echo '>'.
680 _("Reply All") .
681 '</A>&nbsp;&nbsp;' .
682 '</SMALL>' .
683 '</TD>' .
684 '</TR>' .
685 '</TABLE>' .
686 '</TD></TR>' .
687 '<TR><TD WIDTH="100%">' .
688 '<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="3">' . "\n" .
689 '<TR>' . "\n";
690
691 /** subject **/
692 echo "<TD BGCOLOR=\"$color[0]\" WIDTH=\"10%\" ALIGN=\"right\" VALIGN=\"top\">\n" .
693 _("Subject:") .
694 "</TD><TD BGCOLOR=\"$color[0]\" WIDTH=\"80%\" VALIGN=\"top\">\n" .
695 "<B>$subject</B>&nbsp;\n" .
696 "</TD>\n" .
697 '<TD ROWSPAN="4" width="10%" BGCOLOR="' . $color[0] .
698 '" ALIGN=right VALIGN=top NOWRAP><small>'.
699 '<A HREF="' . $base_uri . "src/read_body.php?mailbox=$urlMailbox&amp;passed_id=$passed_id&amp;";
700
701 /* From a search... */
702 if ($where && $what) {
703 echo 'where=' . urlencode($where) . '&amp;what=' . urlencode($what) .
704 "&amp;view_hdr=1\">" . _("View Full Header") . "</A>\n";
705 } else {
706 echo "startMessage=$startMessage&amp;show_more=$show_more&amp;view_hdr=1\">" .
707 _("View Full Header") . "</A>\n";
708 }
709
710 /* Output the printer friendly link if we are in subtle mode. */
711 if ($pf_subtle_link) {
712 echo printer_friendly_link(true);
713 }
714
715 do_hook("read_body_header_right");
716 echo '</small></TD>' .
717 ' </TR>';
718
719 /** from **/
720 echo '<TR>' .
721 '<TD BGCOLOR="' . $color[0] . '" ALIGN="RIGHT">' .
722 _("From:") .
723 '</TD><TD BGCOLOR="' . $color[0] . '">' .
724 "<B>$from_name</B>&nbsp;\n" .
725 '</TD>' .
726 '</TR>';
727 /** date **/
728 echo '<TR>' . "\n" .
729 '<TD BGCOLOR="' . $color[0] . '" ALIGN="RIGHT">' . "\n" .
730 _("Date:") .
731 "</TD><TD BGCOLOR=\"$color[0]\">\n" .
732 "<B>$dateString</B>&nbsp;\n" .
733 '</TD>' . "\n" .
734 '</TR>' . "\n";
735
736 /** to **/
737 echo "<TR>\n" .
738 "<TD BGCOLOR=\"$color[0]\" ALIGN=RIGHT VALIGN=TOP>\n" .
739 _("To:") .
740 '</TD><TD BGCOLOR="' . $color[0] . '" VALIGN="TOP">' . "\n" .
741 "<B>$to_string</B>&nbsp;\n" .
742 '</TD>' . "\n" .
743 '</TR>' . "\n";
744 /** cc **/
745 if (isset($cc_string) && $cc_string <> '') {
746 echo '<TR>' .
747 "<TD BGCOLOR=\"$color[0]\" ALIGN=RIGHT VALIGN=TOP>" .
748 'Cc:' .
749 "</TD><TD BGCOLOR=\"$color[0]\" VALIGN=TOP colspan=2>" .
750 "<B>$cc_string</B>&nbsp;" .
751 '</TD>' .
752 '</TR>' . "\n";
753 }
754
755 /** bcc **/
756 if (isset($bcc_string) && $bcc_string <> '') {
757 echo '<TR>'.
758 "<TD BGCOLOR=\"$color[0]\" ALIGN=RIGHT VALIGN=TOP>" .
759 'Bcc:' .
760 "</TD><TD BGCOLOR=\"$color[0]\" VALIGN=TOP colspan=2>" .
761 "<B>$bcc_string</B>&nbsp;" .
762 '</TD>' .
763 '</TR>' . "\n";
764 }
765 if ($default_use_priority && isset($priority_string) && $priority_string <> '' ) {
766 echo '<TR>' .
767 "<TD BGCOLOR=\"$color[0]\" ALIGN=RIGHT VALIGN=TOP>" .
768 _("Priority") . ': '.
769 "</TD><TD BGCOLOR=\"$color[0]\" VALIGN=TOP colspan=2>" .
770 "<B>$priority_string</B>&nbsp;" .
771 '</TD>' .
772 "</TR>" . "\n";
773 }
774
775 if ($show_xmailer_default) {
776 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY.PEEK[HEADER.FIELDS (X-Mailer User-Agent)]", true,
777 $response, $readmessage);
778 $mailer = substr($read[1], strpos($read[1], " "));
779 if (trim($mailer)) {
780 echo '<TR>' .
781 "<TD BGCOLOR=\"$color[0]\" ALIGN=RIGHT VALIGN=TOP>" .
782 _("Mailer") . ': '.
783 "</TD><TD BGCOLOR=\"$color[0]\" VALIGN=TOP colspan=2>" .
784 "<B>$mailer</B>&nbsp;" .
785 '</TD>' .
786 "</TR>" . "\n";
787 }
788 }
789
790 /* Output the printer friendly link if we are not in subtle mode. */
791 if (!$pf_subtle_link) {
792 echo printer_friendly_link(true);
793 }
794
795 if ($default_use_mdn) {
796 if ($mdn_user_support) {
797
798 // debug gives you the capability to remove mdn-flags
799 // $MDNDebug = false;
800 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY.PEEK[HEADER.FIELDS (Disposition-Notification-To)]", true,
801 $response, $readmessage);
802 $MDN_to = substr($read[1], strpos($read[1], ' '));
803 $MDN_flag_present = false;
804
805 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id FLAGS", true,
806 $response, $readmessage);
807
808 $MDN_flag_present = preg_match( '/.*\$MDNSent/i', $read[0]);
809
810 if (trim($MDN_to) &&
811 (!isset( $sendreceipt ) || $sendreceipt == '' ) ) {
812
813 if ( $MDN_flag_present && $supportMDN) {
814 $sendreceipt = 'removeMDN';
815 $url = "\"read_body.php?mailbox=$mailbox&amp;passed_id=$passed_id&amp;startMessage=$startMessage&amp;show_more=$show_more&amp;sendreceipt=$sendreceipt\"";
816 $sendreceipt='';
817 /*
818 if ($MDNDebug ) {
819 echo '<TR>' .
820 "<TD BGCOLOR=\"$color[9]\" ALIGN=RIGHT VALIGN=TOP>" .
821 _("Read receipt") . ': ' .
822 "</TD><TD BGCOLOR=\"$color[9]\" VALIGN=TOP colspan=2>" .
823 '<B>' .
824 _("send") .
825 "</B> <a href=$url>[" . _("Remove MDN flag") . '] </a>' .
826 '</TD>' .
827 '</TR>' . "\n";
828 } else {
829 */
830 echo '<TR>' .
831 "<TD BGCOLOR=\"$color[9]\" ALIGN=RIGHT VALIGN=TOP>" .
832 _("Read receipt") . ': ' .
833 "</TD><TD BGCOLOR=\"$color[9]\" VALIGN=TOP colspan=2>" .
834 '<B>'._("send").'</B>'.
835 '</TD>' .
836 '</TR>' . "\n";
837 /*
838 }
839 */
840
841 } // when deleted or draft flag is set don't offer to send a MDN response
842 else if ( ereg('\\Draft',$read[0] || ereg('\\Deleted',$read[0])) ) {
843 echo '<TR>' .
844 "<TD BGCOLOR=\"$color[9]\" ALIGN=RIGHT VALIGN=TOP>" .
845 _("Read receipt") . ': '.
846 "</TD><TD BGCOLOR=\"$color[9]\" VALIGN=TOP colspan=2>" .
847 '<B>' . _("requested") . "</B>" .
848 '</TD>' .
849 '</TR>' . "\n";
850 }
851 // if no MDNsupport don't use the annoying popup messages
852 else if ( !$FirstTimeSee ) {
853 $sendreceipt = 'send';
854 $url = "\"read_body.php?mailbox=$mailbox&amp;passed_id=$passed_id&amp;startMessage=$startMessage&amp;show_more=$show_more&amp;sendreceipt=$sendreceipt\"";
855 echo '<TR>' .
856 "<TD BGCOLOR=\"$color[9]\" ALIGN=RIGHT VALIGN=TOP>" .
857 _("Read receipt") . ': ' .
858 "</TD><TD BGCOLOR=\"$color[9]\" VALIGN=TOP colspan=2>" .
859 '<B>' . _("requested") .
860 "</B> &nbsp; <a href=$url>[" . _("Send read receipt now") . "]</a>" .
861 '</TD>' .
862 '</TR>' . "\n";
863 $sendreceipt='';
864 }
865 else {
866 $sendreceipt = 'send';
867 $url = "\"read_body.php?mailbox=$mailbox&amp;passed_id=$passed_id&amp;startMessage=$startMessage&amp;show_more=$show_more&amp;sendreceipt=$sendreceipt\"";
868 if ($javascript_on) {
869 echo "<script language=\"javascript\" type=\"text/javascript\"> \n" .
870 '<!-- ' . "\n" .
871 " if (window.confirm(\"" .
872 _("The message sender has requested a response to indicate that you have read this message. Would you like to send a receipt?") .
873 "\")) { \n" .
874 " window.location=($url); \n" .
875 ' window.reload()' . "\n" .
876 ' }' . "\n" .
877 '// -->' . "\n" .
878 '</script>' . "\n";
879 }
880 echo '<TR>' .
881 "<TD BGCOLOR=\"$color[9]\" ALIGN=RIGHT VALIGN=TOP>" .
882 _("Read receipt") . ': ' .
883 "</TD><TD BGCOLOR=\"$color[9]\" VALIGN=TOP colspan=2>" .
884 '<B>' . _("requested") . "&nbsp&nbsp</B><a href=$url>" . '[' .
885 _("Send read receipt now") . '] </a>' ." \n" .
886 '</TD>' .
887 '</TR>' . "\n";
888 $sendreceipt = '';
889 }
890 }
891
892 if ( !isset( $sendreceipt ) || $sendreceipt == '' ) {
893 } else if ( $sendreceipt == 'send' ) {
894 if ( !$MDN_flag_present) {
895 if (isset($identity) ) {
896 $final_recipient = getPref($data_dir, $username, 'email_address' . '0', '' );
897 } else {
898 $final_recipient = getPref($data_dir, $username, 'email_address', '' );
899 }
900
901 $final_recipient = trim($final_recipient);
902 if ($final_recipient == '' ) {
903 $final_recipient = getPref($data_dir, $username, 'email_address', '' );
904 }
905
906 if ( SendMDN( $MDN_to, $final_recipient ) > 0 && $supportMDN ) {
907 ToggleMDNflag( true);
908 }
909 }
910 $sendreceipt = 'removeMDN';
911 $url = "\"read_body.php?mailbox=$mailbox&amp;passed_id=$passed_id&amp;startMessage=$startMessage&amp;show_more=$show_more&amp;sendreceipt=$sendreceipt\"";
912 $sendreceipt='';
913 /*
914 if ($MDNDebug && $supportMDN) {
915 echo " <TR>\n" .
916 " <TD BGCOLOR=\"$color[9]\" ALIGN=RIGHT VALIGN=TOP>\n" .
917 " "._("Read receipt").": \n".
918 " </TD><TD BGCOLOR=\"$color[9]\" VALIGN=TOP colspan=2>\n" .
919 ' <B>'._("send").'</B>'." <a href=$url>" . '[' . _("Remove MDN flag") . '] </a>' . "\n" .
920 ' </TD>' . "\n" .
921 ' </TR>' . "\n";
922 } else {
923 */
924 echo " <TR>\n" .
925 " <TD BGCOLOR=\"$color[9]\" ALIGN=RIGHT VALIGN=TOP>\n" .
926 " "._("Read receipt").": \n".
927 " </TD><TD BGCOLOR=\"$color[9]\" VALIGN=TOP colspan=2>\n" .
928 ' <B>'._("send").'</B>'. "\n" .
929 ' </TD>' . "\n" .
930 ' </TR>' . "\n";
931 /*
932 }
933 */
934 }
935 elseif ($sendreceipt == 'removeMDN' ) {
936 ToggleMDNflag ( false );
937
938 $sendreceipt = 'send';
939 $url = "\"read_body.php?mailbox=$mailbox&amp;passed_id=$passed_id&amp;startMessage=$startMessage&amp;show_more=$show_more&amp;sendreceipt=$sendreceipt\"";
940 echo '<TR>'.
941 "<TD BGCOLOR=\"$color[9]\" ALIGN=RIGHT VALIGN=TOP>" .
942 _("Read receipt") . ': ' .
943 "</TD><TD BGCOLOR=\"$color[9]\" VALIGN=TOP colspan=2>" .
944 '<B>' . _("requested") .
945 "</B> &nbsp; <a href=$url>[" . _("Send read receipt now") . "]</a>" .
946 '</TD>' .
947 '</TR>' . "\n";
948 $sendreceipt = '';
949
950 }
951 }
952 }
953
954 do_hook('read_body_header');
955
956 echo '</TABLE>' .
957 ' </TD></TR>' .
958 '</TABLE>';
959 flush();
960
961 echo "<TABLE CELLSPACING=0 WIDTH=\"97%\" BORDER=0 ALIGN=CENTER CELLPADDING=0>\n" .
962 " <TR><TD BGCOLOR=\"$color[4]\" WIDTH=\"100%\">\n" .
963 '<BR>'.
964 formatBody($imapConnection, $message, $color, $wrap_at).
965 '</TD></TR></TABLE>' .
966 '<TABLE CELLSPACING="0" WIDTH="100%" BORDER="0" ALIGN="CENTER" CELLPADDING="0">' . "\n" .
967 " <TR><TD BGCOLOR=\"$color[9]\">&nbsp;</TD></TR>" .
968 '</TABLE>' . "\n";
969
970 /* show attached images inline -- if pref'fed so */
971 if (($attachment_common_show_images) &&
972 is_array($attachment_common_show_images_list)) {
973
974 foreach ($attachment_common_show_images_list as $img) {
975 $imgurl = '../src/download.php' .
976 '?' .
977 'passed_id=' . urlencode($img['passed_id']) .
978 '&amp;mailbox=' . urlencode($mailbox) .
979 '&amp;passed_ent_id=' . urlencode($img['ent_id']) .
980 '&amp;absolute_dl=true';
981
982 echo "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 ALIGN=CENTER>\n" .
983 '<TR>' .
984 '<TD>' .
985 "<img src=\"$imgurl\">\n" .
986 "</TD>\n" .
987 "</TR>\n" .
988 "</TABLE>\n";
989
990 }
991 }
992
993
994 do_hook('read_body_bottom');
995 do_hook('html_bottom');
996 sqimap_logout($imapConnection);
997 ?>
998 </body>
999 </html>