Implement ability to move to next message after moving the one you are viewing, per...
[squirrelmail.git] / src / read_body.php
1 <?php
2
3 /**
4 * read_body.php
5 *
6 * This file is used for reading the msgs array and displaying
7 * the resulting emails in the right frame.
8 *
9 * @copyright 1999-2020 The SquirrelMail Project Team
10 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
11 * @version $Id$
12 * @package squirrelmail
13 */
14
15 /** This is the read_body page */
16 define('PAGE_NAME', 'read_body');
17
18 /**
19 * Include the SquirrelMail initialization file.
20 */
21 require('../include/init.php');
22
23 /* SquirrelMail required files. */
24 require_once(SM_PATH . 'functions/imap.php');
25 require_once(SM_PATH . 'functions/imap_asearch.php'); // => move to mailbox_display
26 require_once(SM_PATH . 'functions/mime.php');
27 require_once(SM_PATH . 'functions/date.php');
28 require_once(SM_PATH . 'functions/url_parser.php');
29 require_once(SM_PATH . 'functions/identity.php');
30 require_once(SM_PATH . 'functions/mailbox_display.php');
31 require_once(SM_PATH . 'functions/forms.php');
32 require_once(SM_PATH . 'functions/attachment_common.php');
33 require_once(SM_PATH . 'functions/compose.php');
34
35 /**
36 * Given an IMAP message id number, this will look it up in the cached
37 * and sorted msgs array and return the index of the next message
38 *
39 * @param int $passed_id The current message UID
40 * @return the index of the next valid message from the array or -1 if there is no next message
41 */
42 function findNextMessage($uidset,$passed_id='backwards') {
43 if (!is_array($uidset)) {
44 return -1;
45 }
46 if ($passed_id=='backwards' || !is_array($uidset)) { // check for backwards compattibilty gpg plugin
47 $passed_id = $uidset;
48 }
49 $result = sqm_array_get_value_by_offset($uidset,$passed_id,1);
50 if ($result === false) {
51 return -1;
52 } else {
53 return $result;
54 }
55 }
56
57 /**
58 * Given an IMAP message id number, this will look it up in the cached
59 * and sorted msgs array and return the index of the previous message
60 *
61 * @param int $passed_id The current message UID
62 * @return the index of the previous valid message from the array or -1 if there is no previous message
63 */
64
65 function findPreviousMessage($uidset, $passed_id) {
66 if (!is_array($uidset)) {
67 return -1;
68 }
69 $result = sqm_array_get_value_by_offset($uidset,$passed_id,-1);
70 if ($result === false) {
71 return -1;
72 } else {
73 return $result;
74 }
75 }
76
77 function html_toggle_href ($mailbox, $passed_id, $passed_ent_id, $message) {
78 global $base_uri, $show_html_default;
79
80 $has_html = false;
81 if ($message->header->type0 == 'message' && $message->header->type1 == 'rfc822') {
82 $type0 = $message->rfc822_header->content_type->type0;
83 $type1 = $message->rfc822_header->content_type->type1;
84 } else {
85 $type0 = $message->header->type0;
86 $type1 = $message->header->type1;
87 }
88 if($type0 == 'multipart' &&
89 ($type1 == 'alternative' || $type1 == 'mixed' || $type1 == 'related' || $type1=='signed')) {
90 if ($message->findDisplayEntity(array(), array('text/html'), true)) {
91 $has_html = true;
92 }
93 }
94 /*
95 * Normal single part message so check its type.
96 */
97 else {
98 if($type0 == 'text' && $type1 == 'html') {
99 $has_html = true;
100 }
101 }
102 if($has_html == true) {
103 $vars = array('passed_ent_id', 'show_more', 'show_more_cc', 'override_type0', 'override_type1', 'startMessage','where', 'what');
104
105 $new_link = $base_uri . 'src/read_body.php?passed_id=' . urlencode($passed_id) .
106 '&amp;passed_ent_id=' . urlencode($passed_ent_id) .
107 '&amp;mailbox=' . urlencode($mailbox);
108 foreach($vars as $var) {
109 if(sqgetGlobalVar($var, $temp)) {
110 $new_link .= '&amp;' . $var . '=' . urlencode($temp);
111 }
112 }
113
114 if($show_html_default == 1) {
115 $new_link .= '&amp;show_html_default=0';
116 } else {
117 $new_link .= '&amp;show_html_default=1';
118 }
119 return $new_link;
120 }
121 return '';
122 }
123
124 function ServerMDNSupport($aFlags) {
125 /* escaping $ doesn't work -> \x36 */
126 return ( in_array('$mdnsent',$aFlags,true) ||
127 in_array('\\*',$aFlags,true) ) ;
128 }
129
130 function SendMDN ( $mailbox, $passed_id, $message, $imapConnection) {
131 global $squirrelmail_language, $default_charset, $default_move_to_sent,
132 $languages, $useSendmail, $domain, $sent_folder, $username,
133 $data_dir;
134
135 sqgetGlobalVar('SERVER_NAME', $SERVER_NAME, SQ_SERVER);
136
137 $header = $message->rfc822_header;
138
139 $rfc822_header = new Rfc822Header();
140 $content_type = new ContentType('multipart/report');
141 $content_type->properties['report-type']='disposition-notification';
142
143 set_my_charset();
144 if ($default_charset) {
145 $content_type->properties['charset']=$default_charset;
146 }
147 $rfc822_header->content_type = $content_type;
148 $rfc822_header->to[] = $header->dnt;
149 $rfc822_header->subject = _("Read:") . ' ' . decodeHeader($header->subject,true,false);
150
151 $idents = get_identities();
152 $needles = array();
153 if ($header->to) {
154 foreach ($header->to as $message_to) {
155 $needles[] = $message_to->mailbox.'@'.$message_to->host;
156 }
157 }
158 $identity = find_identity($needles);
159 $from_addr = build_from_header($identity);
160 $reply_to = isset($idents[$identity]['reply_to']) ? $idents[$identity]['reply_to'] : '';
161 // FIXME: this must actually be the envelope address of the orginal message,
162 // but do we have that information? For now the first identity is our best guess.
163 $final_recipient = $idents[0]['email_address'];
164
165 $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
166 if ($reply_to) {
167 $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
168 }
169
170 // part 1 (RFC2298)
171 $senton = getLongDateString( $header->date, $header->date_unparsed );
172 $to_array = $header->to;
173 $to = '';
174 foreach ($to_array as $line) {
175 $to .= ' '.$line->getAddress();
176 }
177 $now = getLongDateString( time() );
178 set_my_charset();
179 $body = _("Your message") . "\r\n\r\n" .
180 "\t" . _("To") . ': ' . decodeHeader($to,false,false) . "\r\n" .
181 "\t" . _("Subject") . ': ' . decodeHeader($header->subject,false,false) . "\r\n" .
182 "\t" . _("Sent") . ': ' . $senton . "\r\n" .
183 "\r\n" .
184 sprintf( _("Was displayed on %s"), $now );
185
186 $special_encoding = '';
187 if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
188 function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode')) {
189 $body = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode', $body);
190 if (strtolower($default_charset) == 'iso-2022-jp') {
191 if (mb_detect_encoding($body) == 'ASCII') {
192 $special_encoding = '8bit';
193 } else {
194 $body = mb_convert_encoding($body, 'JIS');
195 $special_encoding = '7bit';
196 }
197 }
198 } elseif (sq_is8bit($body)) {
199 $special_encoding = '8bit';
200 }
201 $part1 = new Message();
202 $part1->setBody($body);
203 $mime_header = new MessageHeader;
204 $mime_header->type0 = 'text';
205 $mime_header->type1 = 'plain';
206 if ($special_encoding) {
207 $mime_header->encoding = $special_encoding;
208 } else {
209 $mime_header->encoding = '7bit';
210 }
211 if ($default_charset) {
212 $mime_header->parameters['charset'] = $default_charset;
213 }
214 $part1->mime_header = $mime_header;
215
216 // part2 (RFC2298)
217 $original_recipient = $to;
218 $original_message_id = $header->message_id;
219
220 $report = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version " . SM_VERSION . ") \r\n";
221 if ($original_recipient != '') {
222 $report .= "Original-Recipient : $original_recipient\r\n";
223 }
224 $report .= "Final-Recipient: rfc822; $final_recipient\r\n" .
225 "Original-Message-ID : $original_message_id\r\n" .
226 "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
227
228 $part2 = new Message();
229 $part2->setBody($report);
230 $mime_header = new MessageHeader;
231 $mime_header->type0 = 'message';
232 $mime_header->type1 = 'disposition-notification';
233 $mime_header->encoding = '7bit';
234 $part2->mime_header = $mime_header;
235
236 $composeMessage = new Message();
237 $composeMessage->rfc822_header = $rfc822_header;
238 $composeMessage->addEntity($part1);
239 $composeMessage->addEntity($part2);
240
241
242 if ($useSendmail) {
243 require_once(SM_PATH . 'class/deliver/Deliver_SendMail.class.php');
244 global $sendmail_path, $sendmail_args;
245 // Check for outdated configuration
246 if (!isset($sendmail_args)) {
247 if ($sendmail_path=='/var/qmail/bin/qmail-inject') {
248 $sendmail_args = '';
249 } else {
250 $sendmail_args = '-i -t';
251 }
252 }
253 $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
254 $stream = $deliver->initStream($composeMessage,$sendmail_path);
255 } else {
256 require_once(SM_PATH . 'class/deliver/Deliver_SMTP.class.php');
257 $deliver = new Deliver_SMTP();
258 global $smtpServerAddress, $smtpPort, $pop_before_smtp, $pop_before_smtp_host;
259 $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ? true : false;
260 if (empty($pop_before_smtp_host)) $pop_before_smtp_host = $smtpServerAddress;
261 get_smtp_user($user, $pass);
262 $stream = $deliver->initStream($composeMessage,$domain,0,
263 $smtpServerAddress, $smtpPort, $user, $pass, $authPop, $pop_before_smtp_host);
264 }
265 $success = false;
266 if ($stream) {
267 $deliver->mail($composeMessage, $stream);
268 $success = $deliver->finalizeStream($stream);
269 }
270 if (!$success) {
271 $msg = _("Message not sent.") . "\n" .
272 $deliver->dlv_msg;
273 if (! empty($deliver->dlv_server_msg)) {
274 $msg.= "\n" .
275 _("Server replied:") . ' ' . $deliver->dlv_ret_nr . ' ' .
276 nl2br(sm_encode_html_special_chars($deliver->dlv_server_msg));
277 }
278 plain_error_message($msg);
279 } else {
280 unset ($deliver);
281
282 // move to sent folder
283 //
284 $move_to_sent = getPref($data_dir,$username,'move_to_sent');
285 if (isset($default_move_to_sent) && ($default_move_to_sent != 0)) {
286 $svr_allow_sent = true;
287 } else {
288 $svr_allow_sent = false;
289 }
290
291 if (isset($sent_folder) && (($sent_folder != '') || ($sent_folder != 'none'))
292 && sqimap_mailbox_exists( $imapConnection, $sent_folder)) {
293 $fld_sent = true;
294 } else {
295 $fld_sent = false;
296 }
297
298 if ((isset($move_to_sent) && ($move_to_sent != 0)) || (!isset($move_to_sent))) {
299 $lcl_allow_sent = true;
300 } else {
301 $lcl_allow_sent = false;
302 }
303
304 if (($fld_sent && $svr_allow_sent && !$lcl_allow_sent) || ($fld_sent && $lcl_allow_sent)) {
305 $save_reply_with_orig=getPref($data_dir,$username,'save_reply_with_orig');
306 if ($save_reply_with_orig) {
307 $sent_folder = $mailbox;
308 }
309 require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
310 $imap_deliver = new Deliver_IMAP();
311 $imap_deliver->mail($composeMessage, $imapConnection, 0, 0, $imapConnection, $sent_folder);
312 unset ($imap_deliver);
313 }
314 }
315 return $success;
316 }
317
318 function ToggleMDNflag ($set ,$imapConnection, $mailbox, $passed_id) {
319 $sg = $set?'+':'-';
320 $cmd = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
321 $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
322 $readmessage, TRUE);
323 }
324
325 function formatRecipientString($recipients, $item ) {
326 global $show_more, $show_more_cc, $show_more_bcc,
327 $PHP_SELF, $oTemplate;
328
329 $string = '';
330 if ((is_array($recipients)) && (isset($recipients[0]))) {
331 $show = false;
332
333 if ($item == 'to') {
334 if ($show_more) {
335 $show = true;
336 $url = set_url_var($PHP_SELF, 'show_more',0);
337 } else {
338 $url = set_url_var($PHP_SELF, 'show_more',1);
339 }
340 } else if ($item == 'cc') {
341 if ($show_more_cc) {
342 $show = true;
343 $url = set_url_var($PHP_SELF, 'show_more_cc',0);
344 } else {
345 $url = set_url_var($PHP_SELF, 'show_more_cc',1);
346 }
347 } else if ($item == 'bcc') {
348 if ($show_more_bcc) {
349 $show = true;
350 $url = set_url_var($PHP_SELF, 'show_more_bcc',0);
351 } else {
352 $url = set_url_var($PHP_SELF, 'show_more_bcc',1);
353 }
354 }
355
356 $a = array();
357 foreach ($recipients as $r) {
358 $a[] = array(
359 // note: decodeHeader is htmlsafe by default
360 'Name' => decodeHeader($r->getAddress(false)),
361 'Email' => sm_encode_html_special_chars($r->getEmail()),
362 'Full' => decodeHeader($r->getAddress(true))
363 );
364 }
365
366 $oTemplate->assign('which_field', $item);
367 $oTemplate->assign('recipients', $a);
368 $oTemplate->assign('more_less_toggle_href', $url);
369 $oTemplate->assign('show_more', $show);
370
371 $string = $oTemplate->fetch('read_recipient_list.tpl');
372 }
373 return $string;
374 }
375
376 function formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message,
377 $color, $FirstTimeSee) {
378 global $default_use_mdn, $default_use_priority,
379 $show_xmailer_default, $mdn_user_support, $PHP_SELF,
380 $squirrelmail_language, $oTemplate;
381
382 $mailbox = $aMailbox['NAME'];
383
384 $header = $message->rfc822_header;
385 $env = array();
386 $env[_("Subject")] = str_replace("&nbsp;"," ",decodeHeader($header->subject));
387
388 $from_name = $header->getAddr_s('from');
389 if (!$from_name)
390 $from_name = $header->getAddr_s('sender');
391 if (!$from_name)
392 $env[_("From")] = _("Unknown sender");
393 else
394 $env[_("From")] = decodeHeader($from_name);
395 $env[_("Date")] = getLongDateString($header->date, $header->date_unparsed);
396 $env[_("To")] = formatRecipientString($header->to, "to");
397 $env[_("Cc")] = formatRecipientString($header->cc, "cc");
398 $env[_("Bcc")] = formatRecipientString($header->bcc, "bcc");
399 if ($default_use_priority) {
400 $oTemplate->assign('message_priority', $header->priority);
401 $env[_("Priority")] = $oTemplate->fetch('read_message_priority.tpl');
402 }
403 if ($show_xmailer_default) {
404 $oTemplate->assign('xmailer', decodeHeader($header->xmailer));
405 $env[_("Mailer")] = $oTemplate->fetch('read_xmailer.tpl');
406 }
407
408 // this is used for both mdn and also general use for plugins, etc
409 $oTemplate->assign('first_time_reading', $FirstTimeSee);
410
411 if ($default_use_mdn) {
412 if ($mdn_user_support) {
413 if ($header->dnt) {
414 $mdn_url = $PHP_SELF;
415 $mdn_url = set_url_var($mdn_url, 'mailbox', urlencode($mailbox));
416 $mdn_url = set_url_var($mdn_url, 'passed_id', $passed_id);
417 $mdn_url = set_url_var($mdn_url, 'passed_ent_id', $passed_ent_id);
418 $mdn_url = set_url_var($mdn_url, 'sendreceipt', 1);
419
420 $oTemplate->assign('read_receipt_sent', $message->is_mdnsent);
421 $oTemplate->assign('send_receipt_href', $mdn_url);
422
423 $env[_("Read Receipt")] = $oTemplate->fetch('read_handle_receipt.tpl');
424 }
425 }
426 }
427
428 $statuses = array();
429 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
430 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted']) &&
431 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted'] === true) {
432 $statuses[] = _("deleted");
433 }
434 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered']) &&
435 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered'] === true) {
436 $statuses[] = _("answered");
437 }
438 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft']) &&
439 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft'] === true) {
440 $statuses[] = _("draft");
441 }
442 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged']) &&
443 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged'] === true) {
444 $statuses[] = _("flagged");
445 }
446 if ( count($statuses) ) {
447 $env[_("Status")] = implode(', ', $statuses);
448 }
449 }
450
451 $env[_("Options")] = formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color);
452
453
454 $oTemplate->assign('headers_to_display', $env);
455
456 $oTemplate->display('read_headers.tpl');
457 }
458
459 /**
460 * Format message toolbar
461 *
462 * @param array $aMailbox Current mailbox information array
463 * @param int $passed_id UID of current message
464 * @param int $passed_ent_id Id of entity within message
465 * @param object $message Current message object
466 * @param void $removedVar This parameter is no longer used, but remains
467 * so as not to break this function's prototype
468 * (OPTIONAL)
469 * @param boolean $nav_on_top When TRUE, the menubar is being constructed
470 * for use at the top of the page, otherwise it
471 * will be used for page bottom (OPTIONAL;
472 * default = TRUE)
473 */
474 function formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,
475 $removedVar=FALSE, $nav_on_top=TRUE) {
476
477 global $base_uri, $draft_folder, $where, $what, $sort,
478 $startMessage, $PHP_SELF, $save_as_draft,
479 $enable_forward_as_attachment, $imapConnection, $lastTargetMailbox,
480 $delete_prev_next_display, $show_copy_buttons,
481 $compose_new_win, $compose_width, $compose_height,
482 $oTemplate, $return_to_message_list_after_move;
483
484 //FIXME cleanup argument list, use $aMailbox where possible
485 $mailbox = $aMailbox['NAME'];
486
487 $urlMailbox = urlencode($mailbox);
488
489 // Create Prev & Next links
490 // Handle nested entities first (i.e. Mime Attach parts)
491 $prev_href = $next_href = $up_href = $del_href = $del_prev_href = $del_next_href = '';
492 $msg_list_href = $search_href = $view_msg_href = '';
493 if (isset($passed_ent_id) && $passed_ent_id) {
494 // code for navigating through attached message/rfc822 messages
495 $url = set_url_var($PHP_SELF, 'passed_ent_id',0);
496 $entities = array();
497 $entity_count = array();
498 $c = 0;
499
500 foreach($message->parent->entities as $ent) {
501 if ($ent->type0 == 'message' && $ent->type1 == 'rfc822') {
502
503 $c++;
504 $entity_count[$c] = $ent->entity_id;
505 $entities[$ent->entity_id] = $c;
506 }
507 }
508
509 if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] > 1) {
510 $prev_ent_id = $entity_count[$entities[$passed_ent_id] - 1];
511 $prev_href = set_url_var($PHP_SELF, 'passed_ent_id', $prev_ent_id);
512 }
513
514 if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] < $c) {
515 $next_ent_id = $entity_count[$entities[$passed_ent_id] + 1];
516 $next_href = set_url_var($PHP_SELF, 'passed_ent_id', $next_ent_id);
517 }
518
519 $par_ent_id = $message->parent->entity_id;
520 if ($par_ent_id) {
521 $par_ent_id = substr($par_ent_id,0,-2);
522 if ( $par_ent_id != 0 ) {
523 $up_href = set_url_var($PHP_SELF, 'passed_ent_id',$par_ent_id);
524 }
525 }
526
527 $view_msg_href = $url;
528
529 // Prev/Next links for regular messages
530 } else if ( true ) { //!(isset($where) && isset($what)) ) {
531 $prev = findPreviousMessage($aMailbox['UIDSET'][$what], $passed_id);
532 $next = findNextMessage($aMailbox['UIDSET'][$what],$passed_id);
533
534 if ($prev >= 0) {
535 $prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
536 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
537 "&amp;where=$where&amp;what=$what" .
538 '&amp;startMessage='.$startMessage.'&amp;show_more=0';
539 }
540
541 if ($next >= 0) {
542 $next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
543 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
544 "&amp;where=$where&amp;what=$what" .
545 '&amp;startMessage='.$startMessage.'&amp;show_more=0';
546 }
547
548 // Only bother with Delete & Prev and Delete & Next IF
549 // top display is enabled.
550 if ( $delete_prev_next_display == 1 &&
551 in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true) ) {
552 if ($prev >= 0) {
553 $del_prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
554 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
555 '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
556 "&amp;where=$where&amp;what=$what" .
557 '&amp;delete_id='.$passed_id .
558 '&amp;smtoken='.sm_generate_security_token();
559 }
560
561 if ($next >= 0) {
562 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
563 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
564 '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
565 "&amp;where=$where&amp;what=$what" .
566 '&amp;delete_id='.$passed_id .
567 '&amp;smtoken='.sm_generate_security_token();
568 }
569 }
570 }
571
572 $msg_list_href = get_message_list_uri($aMailbox['NAME'], $startMessage, $what);
573 if ($where == 'search.php')
574 $search_href = str_replace('read_body.php', 'search.php', $msg_list_href);
575 else
576 $search_href = '';
577
578 $comp_uri = $base_uri.'src/compose.php' .
579 '?passed_id=' . $passed_id .
580 '&amp;mailbox=' . $urlMailbox .
581 '&amp;startMessage=' . $startMessage .
582 (isset($passed_ent_id) ? '&amp;passed_ent_id='.$passed_ent_id : '');
583
584 // Start form for reply/reply all/forward..
585 $target = '';
586 $on_click='';
587 $method='post';
588 $onsubmit='';
589 if ($compose_new_win == '1') {
590 if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
591 $compose_width = '640';
592 }
593 if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
594 $compose_height = '550';
595 }
596 if ( checkForJavascript() ) {
597 $on_click='comp_in_new_form(\''.$comp_uri.'\', this, this.form,'. $compose_width .',' . $compose_height .')';
598 $comp_uri = 'javascript:void(0)';
599 $method='get';
600 $onsubmit = 'return false';
601 } else {
602 $target = '_blank';
603 }
604 }
605
606 $oTemplate->assign('nav_on_top', $nav_on_top);
607
608 $oTemplate->assign('prev_href', $prev_href);
609 $oTemplate->assign('up_href', $up_href);
610 $oTemplate->assign('next_href', $next_href);
611 $oTemplate->assign('del_prev_href', $del_prev_href);
612 $oTemplate->assign('del_next_href', $del_next_href);
613 $oTemplate->assign('view_msg_href', $view_msg_href);
614
615 $oTemplate->assign('message_list_href', $msg_list_href);
616 $oTemplate->assign('search_href', $search_href);
617
618 $oTemplate->assign('form_extra', '');
619 $oTemplate->assign('form_method', $method);
620 $oTemplate->assign('form_target', $target);
621 $oTemplate->assign('form_onsubmit', $onsubmit);
622 $oTemplate->assign('compose_href', $comp_uri);
623 $oTemplate->assign('button_onclick', $on_click);
624 $oTemplate->assign('forward_as_attachment_enabled', $enable_forward_as_attachment==1);
625
626 //FIXME: I am surprised these aren't already given to the template; probably needs to be given at a higher level, so I have NO IDEA if this is the right place to do this... adding them so template can construct its own API calls... we can build those herein too if preferrable
627 $oTemplate->assign('mailbox', $aMailbox['NAME']);
628 $oTemplate->assign('passed_id', $passed_id);
629 $oTemplate->assign('what', $what);
630
631 // If Draft folder - create Resume link
632 $resume_draft = $edit_as_new = false;
633 if (isDraftMailbox($mailbox) && ($save_as_draft)) {
634 $resume_draft = true;
635 } else if (handleAsSent($mailbox)) {
636 $edit_as_new = true;
637 }
638 $oTemplate->assign('can_resume_draft', $resume_draft);
639 $oTemplate->assign('can_edit_as_new', $edit_as_new);
640
641 $oTemplate->assign('mailboxes', sqimap_mailbox_option_array($imapConnection));
642 if (in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true)) {
643 $oTemplate->assign('can_be_deleted', true);
644 // force return-to-message-list if this is the only message in the folder
645 if ($return_to_message_list_after_move || ($next < 0 && $prev < 0))
646 $oTemplate->assign('move_delete_form_action', $base_uri.'src/'.$where);
647 else
648 $oTemplate->assign('move_delete_form_action', $base_uri.'src/read_body.php');
649 $oTemplate->assign('delete_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
650 addHidden('msg[0]', $passed_id)."\n" .
651 addHidden('startMessage', $startMessage)."\n" );
652 if (!(isset($passed_ent_id) && $passed_ent_id)) {
653 $oTemplate->assign('can_be_moved', true);
654 $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
655 addHidden('msg[0]', $passed_id)."\n" .
656 // only need when $return_to_message_list_after_move is off
657 addHidden('passed_id', ($next >= 0 ? $next : $prev))."\n" .
658 addHidden('startMessage', $startMessage)."\n" );
659 $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ? $lastTargetMailbox : '');
660 $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
661 } else {
662 $oTemplate->assign('can_be_moved', false);
663 $oTemplate->assign('move_form_extra', '');
664 $oTemplate->assign('last_move_target', '');
665 $oTemplate->assign('can_be_copied', false);
666 }
667 } else {
668 $oTemplate->assign('can_be_deleted', false);
669 $oTemplate->assign('move_delete_form_action', '');
670 $oTemplate->assign('delete_form_extra', '');
671 $oTemplate->assign('can_be_moved', false);
672 $oTemplate->assign('move_form_extra', '');
673 $oTemplate->assign('last_move_target', '');
674 $oTemplate->assign('can_be_copied', false);
675 }
676
677 // access keys... only add to the top menubar, because adding
678 // them twice makes them less functional (press access key, *then*
679 // press <enter> to make it work)
680 //
681 if ($nav_on_top) {
682 global $accesskey_read_msg_reply, $accesskey_read_msg_reply_all,
683 $accesskey_read_msg_forward, $accesskey_read_msg_as_attach,
684 $accesskey_read_msg_delete, $accesskey_read_msg_bypass_trash,
685 $accesskey_read_msg_move, $accesskey_read_msg_move_to,
686 $accesskey_read_msg_copy;
687 } else {
688 $accesskey_read_msg_reply = $accesskey_read_msg_reply_all =
689 $accesskey_read_msg_forward = $accesskey_read_msg_as_attach =
690 $accesskey_read_msg_delete = $accesskey_read_msg_bypass_trash =
691 $accesskey_read_msg_move = $accesskey_read_msg_move_to =
692 $accesskey_read_msg_copy = 'NONE';
693 }
694 $oTemplate->assign('accesskey_read_msg_reply', $accesskey_read_msg_reply);
695 $oTemplate->assign('accesskey_read_msg_reply_all', $accesskey_read_msg_reply_all);
696 $oTemplate->assign('accesskey_read_msg_forward', $accesskey_read_msg_forward);
697 $oTemplate->assign('accesskey_read_msg_as_attach', $accesskey_read_msg_as_attach);
698 $oTemplate->assign('accesskey_read_msg_delete', $accesskey_read_msg_delete);
699 $oTemplate->assign('accesskey_read_msg_bypass_trash', $accesskey_read_msg_bypass_trash);
700 $oTemplate->assign('accesskey_read_msg_move_to', $accesskey_read_msg_move_to);
701 $oTemplate->assign('accesskey_read_msg_move', $accesskey_read_msg_move);
702 $oTemplate->assign('accesskey_read_msg_copy', $accesskey_read_msg_copy);
703
704 global $null;
705 do_hook('read_body_menu', $null);
706
707 if ($nav_on_top) {
708 $oTemplate->display('read_menubar_nav.tpl');
709 $oTemplate->display('read_menubar_buttons.tpl');
710 } else {
711 $oTemplate->display('read_menubar_buttons.tpl');
712 $oTemplate->display('read_menubar_nav.tpl');
713 }
714
715 }
716
717 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
718 global $base_uri, $where, $what, $show_html_default,
719 $oTemplate, $download_href, $PHP_SELF,
720 $unsafe_image_toggle_href, $unsafe_image_toggle_text;
721
722 $urlMailbox = urlencode($mailbox);
723 $urlPassed_id = urlencode($passed_id);
724 $urlPassed_ent_id = urlencode($passed_ent_id);
725
726 $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
727 if (!empty($where)) {
728 $query_string .= '&amp;where=' . urlencode($where);
729 }
730 if (!empty($what)) {
731 $query_string .= '&amp;what=' . urlencode($what);
732 }
733 $url = $base_uri.'src/view_header.php?'.$query_string;
734
735 $links = array();
736 $links[] = array (
737 'URL' => $url,
738 'Text' => _("View Full Header")
739 );
740
741 if ( checkForJavaScript() ) {
742 $links[] = array (
743 'URL' => 'javascript:printThis();',
744 'Text' => _("Print"),
745 );
746 } else {
747 $links[] = array (
748 'URL' => set_url_var($PHP_SELF, 'print', '1'),
749 'Text' => _("Print"),
750 'Target' => '_blank'
751 );
752 }
753
754 $links[] = array (
755 'URL' => $download_href,
756 'Text' => _("Download this as a file")
757 );
758 $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
759 if (!empty($toggle)) {
760 $links[] = array (
761 'URL' => $toggle,
762 'Text' => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
763 );
764 }
765 if (!empty($unsafe_image_toggle_href)) {
766 $links[] = array (
767 'URL' => $unsafe_image_toggle_href,
768 'Text' => $unsafe_image_toggle_text
769 );
770 }
771
772 do_hook('read_body_header_right', $links);
773
774 $oTemplate->assign('links', $links);
775
776 return $oTemplate->fetch('read_toolbar.tpl');
777 }
778
779 /***************************/
780 /* Main of read_body.php */
781 /***************************/
782
783 /* get the globals we may need */
784
785 sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
786 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
787 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
788 $messages = array();
789 }
790 sqgetGlobalVar('delayed_errors', $delayed_errors, SQ_SESSION);
791 if (is_array($delayed_errors)) {
792 $oErrorHandler->AssignDelayedErrors($delayed_errors);
793 sqsession_unregister("delayed_errors");
794 }
795 /** GET VARS */
796 sqgetGlobalVar('sendreceipt', $sendreceipt, SQ_GET);
797 if (!sqgetGlobalVar('where', $where, SQ_GET) ) {
798 $where = 'right_main.php';
799 }
800 /*
801 * Used as entry key to the list of uid's cached in the mailbox cache
802 * we use the cached uid's to get the next and prev message.
803 */
804 if (!sqgetGlobalVar('what', $what, SQ_GET) ){
805 $what = 0;
806 }
807 if ( sqgetGlobalVar('show_more', $temp, SQ_GET) ) {
808 $show_more = (int) $temp;
809 }
810 if ( sqgetGlobalVar('show_more_cc', $temp, SQ_GET) ) {
811 $show_more_cc = (int) $temp;
812 }
813 if ( sqgetGlobalVar('show_more_bcc', $temp, SQ_GET) ) {
814 $show_more_bcc = (int) $temp;
815 }
816 if ( sqgetGlobalVar('view_hdr', $temp, SQ_GET) ) {
817 $view_hdr = (int) $temp;
818 }
819
820 if ( sqgetGlobalVar('account', $temp, SQ_GET) ) {
821 $iAccount = (int) $temp;
822 } else {
823 $iAccount = 0;
824 }
825
826 /** GET/POST VARS */
827 sqgetGlobalVar('passed_id', $passed_id, SQ_INORDER, NULL, SQ_TYPE_BIGINT);
828 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
829 sqgetGlobalVar('mailbox', $mailbox);
830
831 if ( sqgetGlobalVar('sort', $temp) ) {
832 $sort = (int) $temp;
833 }
834 if ( sqgetGlobalVar('startMessage', $temp) ) {
835 $startMessage = (int) $temp;
836 } else {
837 $startMessage = 1;
838 }
839 if(sqgetGlobalVar('show_html_default', $temp)) {
840 $show_html_default = (int) $temp;
841 }
842
843 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
844 $view_unsafe_images = (int) $temp;
845 if($view_unsafe_images == 1) {
846 $show_html_default = 1;
847 }
848 } else {
849 $view_unsafe_images = 0;
850 }
851
852 /**
853 * Retrieve mailbox cache
854 */
855 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
856
857 /* end of get globals */
858
859 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
860 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
861
862
863 /**
864 Start code to set the columns to fetch in case of hitting the next/prev link
865 The reason for this is the fact that the cache can be invalidated which means that the headers
866 to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
867
868 Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
869 */
870
871 /**
872 * Replace From => To in case it concerns a draft or sent folder
873 */
874 $aColumns = array();
875 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
876 !in_array(SQM_COL_TO,$index_order)) {
877 $aNewOrder = array(); // nice var name ;)
878 foreach($index_order as $iCol) {
879 if ($iCol == SQM_COL_FROM) {
880 $iCol = SQM_COL_TO;
881 }
882 $aColumns[$iCol] = array();
883 }
884 } else {
885 foreach ($index_order as $iCol) {
886 $aColumns[$iCol] = array();
887 }
888 }
889
890 $aProps = array(
891 'columns' => $aColumns, // columns bound settings
892 'config' => array(
893 'highlight_list' => $message_highlight_list, // row highlighting rules
894 'trash_folder' => $trash_folder,
895 'sent_folder' => $sent_folder,
896 'draft_folder' => $draft_folder));
897
898 calcFetchColumns($aMailbox,$aProps);
899
900 /**
901 End code to set the columns to fetch in case of hitting the next/prev link
902 */
903
904
905
906 /**
907 * Check if cache is still valid, $what contains the key
908 * which gives us acces to the array with uid's. At this moment
909 * 0 is used for a normal message list and search uses 1 as key. This can be
910 * changed / extended in the future.
911 * If on a select of a mailbox we detect that the cache should be invalidated due to
912 * the delete of messages or due to new messages we empty the list with uid's and
913 * that's what we detect below.
914 */
915 if (!is_array($aMailbox['UIDSET'][$what])) {
916 fetchMessageHeaders($imapConnection, $aMailbox);
917 }
918
919 $iSetIndex = $aMailbox['SETINDEX'];
920 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
921
922 /**
923 * Update the seen state
924 * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
925 */
926 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
927 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
928 }
929
930 /**
931 * Process Delete from delete-move-next
932 * but only if delete_id was set
933 */
934 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
935 handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
936 }
937
938 /**
939 * or move button... why is handleMessageListForm (per above) conditional anway?
940 */
941 if ( sqgetGlobalVar('moveButton', $ignore, SQ_POST) ) {
942 $sError = handleMessageListForm($imapConnection,$aMailbox);
943 sqgetGlobalVar('targetMailbox', $lastTargetMailbox, SQ_POST);
944 }
945
946 /**
947 * $message contains all information about the message
948 * including header and body
949 */
950
951 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
952 $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
953 $FirstTimeSee = !$message->is_seen;
954 } else {
955 $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
956 $FirstTimeSee = !$message->is_seen;
957 }
958
959 /**
960 * update message seen status and put in cache
961 */
962 $message->is_seen = true;
963 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
964
965 if (isset($passed_ent_id) && $passed_ent_id) {
966 $message = $message->getEntity($passed_ent_id);
967 if ($message->type0 != 'message' && $message->type1 != 'rfc822') {
968 $message = $message->parent;
969 }
970 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
971 $rfc822_header = new Rfc822Header();
972 $rfc822_header->parseHeader($read);
973 $message->rfc822_header = $rfc822_header;
974 } else if ($message->type0 == 'message' && $message->type1 == 'rfc822' && isset($message->entities[0])) {
975 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
976 $rfc822_header = new Rfc822Header();
977 $rfc822_header->parseHeader($read);
978 $message->rfc822_header = $rfc822_header;
979 } else {
980 $passed_ent_id = 0;
981 }
982 $header = $message->header;
983
984 // gmail does not mark messages as read when retrieving the message body
985 // even though RFC 3501, section 6.4.5 (FETCH Command) says:
986 // "The \Seen flag is implicitly set; if this causes the flags to change,
987 // they SHOULD be included as part of the FETCH responses."
988 //
989 if ($imap_server_type == 'gmail') {
990 sqimap_toggle_flag($imapConnection, $passed_id, '\\Seen', true, true);
991 }
992
993 /****************************************/
994 /* Block for handling incoming url vars */
995 /****************************************/
996
997 if (isset($sendreceipt)) {
998 if ( !$message->is_mdnsent ) {
999 $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
1000 if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
1001 ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
1002 $message->is_mdnsent = true;
1003 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
1004 }
1005 }
1006 }
1007 /***********************************************/
1008 /* End of block for handling incoming url vars */
1009 /***********************************************/
1010
1011 $oTemplate->assign('aAttribs', array('class' => 'entity_sep'));
1012 $hr = $oTemplate->fetch('horizontal_rule.tpl');
1013 $messagebody = '';
1014 do_hook('read_body_top', $null);
1015 if ($show_html_default == 1) {
1016 $ent_ar = $message->findDisplayEntity(array());
1017 } else {
1018 $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
1019 }
1020 $cnt = count($ent_ar);
1021 for ($i = 0; $i < $cnt; $i++) {
1022 $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
1023 if ($i != $cnt-1) {
1024 $messagebody .= $hr;
1025 }
1026 }
1027
1028 /**
1029 * Write mailbox with updated seen flag information back to cache.
1030 */
1031 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
1032 sqsession_register($mailbox_cache,'mailbox_cache');
1033 $_SESSION['mailbox_cache'] = $mailbox_cache;
1034
1035 // message list URI is used in page header when on read_body
1036 $oTemplate->assign('message_list_href', get_message_list_uri($aMailbox['NAME'], $startMessage, $what));
1037
1038 displayPageHeader($color, $mailbox,'','');
1039
1040 /* this is the non-javascript version of printer friendly */
1041 if ( sqgetGlobalVar('print', $print, SQ_GET) ) {
1042 $oTemplate->display('read_message_print.tpl');
1043 } else {
1044 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,false);
1045 }
1046 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
1047
1048 $oTemplate->assign('message_body', $messagebody);
1049 $oTemplate->display('read_message_body.tpl');
1050
1051 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
1052
1053 /* show attached images inline -- if pref'fed so */
1054 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
1055 $images = array();
1056 foreach ($attachment_common_show_images_list as $img) {
1057 $imgurl = SM_PATH . 'src/download.php' .
1058 '?' .
1059 'passed_id=' . urlencode($img['passed_id']) .
1060 '&amp;mailbox=' . urlencode($mailbox) .
1061 '&amp;ent_id=' . urlencode($img['ent_id']) .
1062 '&amp;absolute_dl=true';
1063 $a = array();
1064 $a['Name'] = $img['name'];
1065 $a['DisplayURL'] = $imgurl;
1066 $a['DownloadURL'] = $img['download_href'];
1067 $images[] = $a;
1068 }
1069
1070 $oTemplate->assign('images', $images);
1071 $oTemplate->display('read_display_images_inline.tpl');
1072 }
1073
1074 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
1075
1076 do_hook('read_body_bottom', $null);
1077 sqimap_logout($imapConnection);
1078 $oTemplate->display('footer.tpl');