6 * This file is used for reading the msgs array and displaying
7 * the resulting emails in the right frame.
9 * @copyright 1999-2022 The SquirrelMail Project Team
10 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
11 * @version $Id: read_body.php 14845 2020-01-07 08:09:34Z pdontthink $
12 * @package squirrelmail
15 /** This is the read_body page */
16 define('PAGE_NAME', 'read_body');
19 * Include the SquirrelMail initialization file.
21 require('../include/init.php');
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');
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
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
42 function findNextMessage($uidset,$passed_id='backwards') {
43 if (!is_array($uidset)) {
46 if ($passed_id=='backwards' ||
!is_array($uidset)) { // check for backwards compattibilty gpg plugin
49 $result = sqm_array_get_value_by_offset($uidset,$passed_id,1);
50 if ($result === false) {
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
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
65 function findPreviousMessage($uidset, $passed_id) {
66 if (!is_array($uidset)) {
69 $result = sqm_array_get_value_by_offset($uidset,$passed_id,-1);
70 if ($result === false) {
77 function html_toggle_href ($mailbox, $passed_id, $passed_ent_id, $message) {
78 global $base_uri, $show_html_default;
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
;
85 $type0 = $message->header
->type0
;
86 $type1 = $message->header
->type1
;
88 if($type0 == 'multipart' &&
89 ($type1 == 'alternative' ||
$type1 == 'mixed' ||
$type1 == 'related' ||
$type1=='signed')) {
90 if ($message->findDisplayEntity(array(), array('text/html'), true)) {
95 * Normal single part message so check its type.
98 if($type0 == 'text' && $type1 == 'html') {
102 if($has_html == true) {
103 $vars = array('passed_ent_id', 'show_more', 'show_more_cc', 'override_type0', 'override_type1', 'startMessage','where', 'what');
105 $new_link = $base_uri . 'src/read_body.php?passed_id=' . urlencode($passed_id) .
106 '&passed_ent_id=' . urlencode($passed_ent_id) .
107 '&mailbox=' . urlencode($mailbox);
108 foreach($vars as $var) {
109 if(sqgetGlobalVar($var, $temp)) {
110 $new_link .= '&' . $var . '=' . urlencode($temp);
114 if($show_html_default == 1) {
115 $new_link .= '&show_html_default=0';
117 $new_link .= '&show_html_default=1';
124 function ServerMDNSupport($aFlags) {
125 /* escaping $ doesn't work -> \x36 */
126 return ( in_array('$mdnsent',$aFlags,true) ||
127 in_array('\\*',$aFlags,true) ) ;
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,
135 sqgetGlobalVar('SERVER_NAME', $SERVER_NAME, SQ_SERVER
);
137 $header = $message->rfc822_header
;
139 $rfc822_header = new Rfc822Header();
140 $content_type = new ContentType('multipart/report');
141 $content_type->properties
['report-type']='disposition-notification';
144 if ($default_charset) {
145 $content_type->properties
['charset']=$default_charset;
147 $rfc822_header->content_type
= $content_type;
148 if (!empty($header->dnt
))
149 $rfc822_header->to
[] = $header->dnt
;
151 $rfc822_header->to
[] = $header->dsn
;
152 $rfc822_header->subject
= _("Read:") . ' ' . decodeHeader($header->subject
,true,false);
154 $idents = get_identities();
157 foreach ($header->to
as $message_to) {
158 $needles[] = $message_to->mailbox
.'@'.$message_to->host
;
161 $identity = find_identity($needles);
162 $from_addr = build_from_header($identity);
163 $reply_to = isset($idents[$identity]['reply_to']) ?
$idents[$identity]['reply_to'] : '';
164 // FIXME: this must actually be the envelope address of the orginal message,
165 // but do we have that information? For now the first identity is our best guess.
166 $final_recipient = $idents[0]['email_address'];
168 $rfc822_header->from
= $rfc822_header->parseAddress($from_addr,true);
170 $rfc822_header->reply_to
= $rfc822_header->parseAddress($reply_to,true);
174 $senton = getLongDateString( $header->date
, $header->date_unparsed
);
175 $to_array = $header->to
;
177 foreach ($to_array as $line) {
178 $to .= ' '.$line->getAddress();
180 $now = getLongDateString( time() );
182 $body = _("Your message") . "\r\n\r\n" .
183 "\t" . _("To") . ': ' . decodeHeader($to,false,false) . "\r\n" .
184 "\t" . _("Subject") . ': ' . decodeHeader($header->subject
,false,false) . "\r\n" .
185 "\t" . _("Sent") . ': ' . $senton . "\r\n" .
187 sprintf( _("Was displayed on %s"), $now );
189 $special_encoding = '';
190 if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
191 function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode')) {
192 $body = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode', $body);
193 if (strtolower($default_charset) == 'iso-2022-jp') {
194 if (mb_detect_encoding($body) == 'ASCII') {
195 $special_encoding = '8bit';
197 $body = mb_convert_encoding($body, 'JIS');
198 $special_encoding = '7bit';
201 } elseif (sq_is8bit($body)) {
202 $special_encoding = '8bit';
204 $part1 = new Message();
205 $part1->setBody($body);
206 $mime_header = new MessageHeader
;
207 $mime_header->type0
= 'text';
208 $mime_header->type1
= 'plain';
209 if ($special_encoding) {
210 $mime_header->encoding
= $special_encoding;
212 $mime_header->encoding
= '7bit';
214 if ($default_charset) {
215 $mime_header->parameters
['charset'] = $default_charset;
217 $part1->mime_header
= $mime_header;
220 $original_recipient = $to;
221 $original_message_id = $header->message_id
;
223 $report = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version " . SM_VERSION
. ") \r\n";
224 if ($original_recipient != '') {
225 $report .= "Original-Recipient : $original_recipient\r\n";
227 $report .= "Final-Recipient: rfc822; $final_recipient\r\n" .
228 "Original-Message-ID : $original_message_id\r\n" .
229 "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
231 $part2 = new Message();
232 $part2->setBody($report);
233 $mime_header = new MessageHeader
;
234 $mime_header->type0
= 'message';
235 $mime_header->type1
= 'disposition-notification';
236 $mime_header->encoding
= '7bit';
237 $part2->mime_header
= $mime_header;
239 $composeMessage = new Message();
240 $composeMessage->rfc822_header
= $rfc822_header;
241 $composeMessage->addEntity($part1);
242 $composeMessage->addEntity($part2);
246 require_once(SM_PATH
. 'class/deliver/Deliver_SendMail.class.php');
247 global $sendmail_path, $sendmail_args;
248 // Check for outdated configuration
249 if (!isset($sendmail_args)) {
250 if ($sendmail_path=='/var/qmail/bin/qmail-inject') {
253 $sendmail_args = '-i -t';
256 $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
257 $stream = $deliver->initStream($composeMessage,$sendmail_path);
259 require_once(SM_PATH
. 'class/deliver/Deliver_SMTP.class.php');
260 $deliver = new Deliver_SMTP();
261 global $smtpServerAddress, $smtpPort, $pop_before_smtp, $pop_before_smtp_host;
262 $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ?
true : false;
263 if (empty($pop_before_smtp_host)) $pop_before_smtp_host = $smtpServerAddress;
264 get_smtp_user($user, $pass);
265 $stream = $deliver->initStream($composeMessage,$domain,0,
266 $smtpServerAddress, $smtpPort, $user, $pass, $authPop, $pop_before_smtp_host);
270 $deliver->mail($composeMessage, $stream);
271 $success = $deliver->finalizeStream($stream);
274 $msg = _("Message not sent.") . "\n" .
276 if (! empty($deliver->dlv_server_msg
)) {
278 _("Server replied:") . ' ' . $deliver->dlv_ret_nr
. ' ' .
279 nl2br(sm_encode_html_special_chars($deliver->dlv_server_msg
));
281 plain_error_message($msg);
285 // move to sent folder
287 $move_to_sent = getPref($data_dir,$username,'move_to_sent');
288 if (isset($default_move_to_sent) && ($default_move_to_sent != 0)) {
289 $svr_allow_sent = true;
291 $svr_allow_sent = false;
294 if (isset($sent_folder) && (($sent_folder != '') ||
($sent_folder != 'none'))
295 && sqimap_mailbox_exists( $imapConnection, $sent_folder)) {
301 if ((isset($move_to_sent) && ($move_to_sent != 0)) ||
(!isset($move_to_sent))) {
302 $lcl_allow_sent = true;
304 $lcl_allow_sent = false;
307 if (($fld_sent && $svr_allow_sent && !$lcl_allow_sent) ||
($fld_sent && $lcl_allow_sent)) {
308 $save_reply_with_orig=getPref($data_dir,$username,'save_reply_with_orig');
309 if ($save_reply_with_orig) {
310 $sent_folder = $mailbox;
312 require_once(SM_PATH
. 'class/deliver/Deliver_IMAP.class.php');
313 $imap_deliver = new Deliver_IMAP();
314 $imap_deliver->mail($composeMessage, $imapConnection, 0, 0, $imapConnection, $sent_folder);
315 unset ($imap_deliver);
321 function ToggleMDNflag ($set ,$imapConnection, $mailbox, $passed_id) {
323 $cmd = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
324 $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
328 function formatRecipientString($recipients, $item ) {
329 global $show_more, $show_more_cc, $show_more_bcc,
330 $PHP_SELF, $oTemplate;
333 if ((is_array($recipients)) && (isset($recipients[0]))) {
339 $url = set_url_var($PHP_SELF, 'show_more',0);
341 $url = set_url_var($PHP_SELF, 'show_more',1);
343 } else if ($item == 'cc') {
346 $url = set_url_var($PHP_SELF, 'show_more_cc',0);
348 $url = set_url_var($PHP_SELF, 'show_more_cc',1);
350 } else if ($item == 'bcc') {
351 if ($show_more_bcc) {
353 $url = set_url_var($PHP_SELF, 'show_more_bcc',0);
355 $url = set_url_var($PHP_SELF, 'show_more_bcc',1);
360 foreach ($recipients as $r) {
362 // note: decodeHeader is htmlsafe by default
363 'Name' => decodeHeader($r->getAddress(false)),
364 'Email' => sm_encode_html_special_chars($r->getEmail()),
365 'Full' => decodeHeader($r->getAddress(true))
369 $oTemplate->assign('which_field', $item);
370 $oTemplate->assign('recipients', $a);
371 $oTemplate->assign('more_less_toggle_href', $url);
372 $oTemplate->assign('show_more', $show);
374 $string = $oTemplate->fetch('read_recipient_list.tpl');
379 function formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message,
380 $color, $FirstTimeSee) {
381 global $default_use_mdn, $default_use_priority,
382 $show_xmailer_default, $mdn_user_support, $PHP_SELF,
383 $squirrelmail_language, $oTemplate;
385 $mailbox = $aMailbox['NAME'];
387 $header = $message->rfc822_header
;
389 $env[_("Subject")] = str_replace(" "," ",decodeHeader($header->subject
));
391 $from_name = $header->getAddr_s('from');
393 $from_name = $header->getAddr_s('sender');
395 $env[_("From")] = _("Unknown sender");
397 $env[_("From")] = decodeHeader($from_name);
398 $env[_("Date")] = getLongDateString($header->date
, $header->date_unparsed
);
399 $env[_("To")] = formatRecipientString($header->to
, "to");
400 $env[_("Cc")] = formatRecipientString($header->cc
, "cc");
401 $env[_("Bcc")] = formatRecipientString($header->bcc
, "bcc");
402 if ($default_use_priority) {
403 $oTemplate->assign('message_priority', $header->priority
);
404 $env[_("Priority")] = $oTemplate->fetch('read_message_priority.tpl');
406 if ($show_xmailer_default) {
407 $oTemplate->assign('xmailer', decodeHeader($header->xmailer
));
408 $env[_("Mailer")] = $oTemplate->fetch('read_xmailer.tpl');
411 // this is used for both mdn and also general use for plugins, etc
412 $oTemplate->assign('first_time_reading', $FirstTimeSee);
414 if ($default_use_mdn) {
415 if ($mdn_user_support) {
416 // We are generous to the sender because DSNs are commonly ignored by servers and
417 // technically offering a return receipt in the MUA for a DSN is overstepping the RFCs
418 if ($header->dnt ||
$header->dnt
) {
419 $mdn_url = $PHP_SELF;
420 $mdn_url = set_url_var($mdn_url, 'mailbox', urlencode($mailbox));
421 $mdn_url = set_url_var($mdn_url, 'passed_id', $passed_id);
422 $mdn_url = set_url_var($mdn_url, 'passed_ent_id', $passed_ent_id);
423 $mdn_url = set_url_var($mdn_url, 'sendreceipt', 1);
425 $oTemplate->assign('read_receipt_sent', $message->is_mdnsent
);
426 $oTemplate->assign('send_receipt_href', $mdn_url);
428 $env[_("Read Receipt")] = $oTemplate->fetch('read_handle_receipt.tpl');
434 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
435 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted']) &&
436 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted'] === true) {
437 $statuses[] = _("deleted");
439 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered']) &&
440 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered'] === true) {
441 $statuses[] = _("answered");
443 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft']) &&
444 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft'] === true) {
445 $statuses[] = _("draft");
447 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged']) &&
448 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged'] === true) {
449 $statuses[] = _("flagged");
451 if ( count($statuses) ) {
452 $env[_("Status")] = implode(', ', $statuses);
456 $env[_("Options")] = formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color);
459 $oTemplate->assign('headers_to_display', $env);
461 $oTemplate->display('read_headers.tpl');
465 * Format message toolbar
467 * @param array $aMailbox Current mailbox information array
468 * @param int $passed_id UID of current message
469 * @param int $passed_ent_id Id of entity within message
470 * @param object $message Current message object
471 * @param void $removedVar This parameter is no longer used, but remains
472 * so as not to break this function's prototype
474 * @param boolean $nav_on_top When TRUE, the menubar is being constructed
475 * for use at the top of the page, otherwise it
476 * will be used for page bottom (OPTIONAL;
479 function formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,
480 $removedVar=FALSE, $nav_on_top=TRUE) {
482 global $base_uri, $draft_folder, $where, $what, $sort,
483 $startMessage, $PHP_SELF, $save_as_draft,
484 $enable_forward_as_attachment, $imapConnection, $lastTargetMailbox,
485 $delete_prev_next_display, $show_copy_buttons,
486 $compose_new_win, $compose_width, $compose_height,
487 $oTemplate, $return_to_message_list_after_move;
489 //FIXME cleanup argument list, use $aMailbox where possible
490 $mailbox = $aMailbox['NAME'];
492 $urlMailbox = urlencode($mailbox);
494 // Create Prev & Next links
495 // Handle nested entities first (i.e. Mime Attach parts)
496 $prev_href = $next_href = $up_href = $del_href = $del_prev_href = $del_next_href = '';
497 $msg_list_href = $search_href = $view_msg_href = '';
498 if (isset($passed_ent_id) && $passed_ent_id) {
499 // code for navigating through attached message/rfc822 messages
500 $url = set_url_var($PHP_SELF, 'passed_ent_id',0);
502 $entity_count = array();
505 foreach($message->parent
->entities
as $ent) {
506 if ($ent->type0
== 'message' && $ent->type1
== 'rfc822') {
509 $entity_count[$c] = $ent->entity_id
;
510 $entities[$ent->entity_id
] = $c;
514 if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] > 1) {
515 $prev_ent_id = $entity_count[$entities[$passed_ent_id] - 1];
516 $prev_href = set_url_var($PHP_SELF, 'passed_ent_id', $prev_ent_id);
519 if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] < $c) {
520 $next_ent_id = $entity_count[$entities[$passed_ent_id] +
1];
521 $next_href = set_url_var($PHP_SELF, 'passed_ent_id', $next_ent_id);
524 $par_ent_id = $message->parent
->entity_id
;
526 $par_ent_id = substr($par_ent_id,0,-2);
527 if ( $par_ent_id != 0 ) {
528 $up_href = set_url_var($PHP_SELF, 'passed_ent_id',$par_ent_id);
532 $view_msg_href = $url;
534 // Prev/Next links for regular messages
535 } else if ( true ) { //!(isset($where) && isset($what)) ) {
536 $prev = findPreviousMessage($aMailbox['UIDSET'][$what], $passed_id);
537 $next = findNextMessage($aMailbox['UIDSET'][$what],$passed_id);
540 $prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
541 '&mailbox='.$urlMailbox.'&sort='.$sort.
542 "&where=$where&what=$what" .
543 '&startMessage='.$startMessage.'&show_more=0';
547 $next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
548 '&mailbox='.$urlMailbox.'&sort='.$sort.
549 "&where=$where&what=$what" .
550 '&startMessage='.$startMessage.'&show_more=0';
553 // Only bother with Delete & Prev and Delete & Next IF
554 // top display is enabled.
555 if ( $delete_prev_next_display == 1 &&
556 in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true) ) {
558 $del_prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
559 '&mailbox='.$urlMailbox.'&sort='.$sort.
560 '&startMessage='.$startMessage.'&show_more=0'.
561 "&where=$where&what=$what" .
562 '&delete_id='.$passed_id .
563 '&smtoken='.sm_generate_security_token();
567 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
568 '&mailbox='.$urlMailbox.'&sort='.$sort.
569 '&startMessage='.$startMessage.'&show_more=0'.
570 "&where=$where&what=$what" .
571 '&delete_id='.$passed_id .
572 '&smtoken='.sm_generate_security_token();
577 $msg_list_href = get_message_list_uri($aMailbox['NAME'], $startMessage, $what);
578 if ($where == 'search.php')
579 $search_href = str_replace('read_body.php', 'search.php', $msg_list_href);
583 $comp_uri = $base_uri.'src/compose.php' .
584 '?passed_id=' . $passed_id .
585 '&mailbox=' . $urlMailbox .
586 '&startMessage=' . $startMessage .
587 (isset($passed_ent_id) ?
'&passed_ent_id='.$passed_ent_id : '');
589 // Start form for reply/reply all/forward..
594 if ($compose_new_win == '1') {
595 if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
596 $compose_width = '640';
598 if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
599 $compose_height = '550';
601 if ( checkForJavascript() ) {
602 $on_click='comp_in_new_form(\''.$comp_uri.'\', this, this.form,'. $compose_width .',' . $compose_height .')';
603 $comp_uri = 'javascript:void(0)';
605 $onsubmit = 'return false';
611 $oTemplate->assign('nav_on_top', $nav_on_top);
613 $oTemplate->assign('prev_href', $prev_href);
614 $oTemplate->assign('up_href', $up_href);
615 $oTemplate->assign('next_href', $next_href);
616 $oTemplate->assign('del_prev_href', $del_prev_href);
617 $oTemplate->assign('del_next_href', $del_next_href);
618 $oTemplate->assign('view_msg_href', $view_msg_href);
620 $oTemplate->assign('message_list_href', $msg_list_href);
621 $oTemplate->assign('search_href', $search_href);
623 $oTemplate->assign('form_extra', '');
624 $oTemplate->assign('form_method', $method);
625 $oTemplate->assign('form_target', $target);
626 $oTemplate->assign('form_onsubmit', $onsubmit);
627 $oTemplate->assign('compose_href', $comp_uri);
628 $oTemplate->assign('button_onclick', $on_click);
629 $oTemplate->assign('forward_as_attachment_enabled', $enable_forward_as_attachment==1);
631 //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
632 $oTemplate->assign('mailbox', $aMailbox['NAME']);
633 $oTemplate->assign('passed_id', $passed_id);
634 $oTemplate->assign('what', $what);
636 // If Draft folder - create Resume link
637 $resume_draft = $edit_as_new = false;
638 if (isDraftMailbox($mailbox) && ($save_as_draft)) {
639 $resume_draft = true;
640 } else if (handleAsSent($mailbox)) {
643 $oTemplate->assign('can_resume_draft', $resume_draft);
644 $oTemplate->assign('can_edit_as_new', $edit_as_new);
646 $oTemplate->assign('mailboxes', sqimap_mailbox_option_array($imapConnection));
647 if (in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true)) {
648 $oTemplate->assign('can_be_deleted', true);
649 // force return-to-message-list if this is the only message in the folder
650 if ($return_to_message_list_after_move ||
($next < 0 && $prev < 0))
651 $oTemplate->assign('move_delete_form_action', $base_uri.'src/'.$where);
653 $oTemplate->assign('move_delete_form_action', $base_uri.'src/read_body.php');
654 $oTemplate->assign('delete_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
655 addHidden('msg[0]', $passed_id)."\n" .
656 addHidden('startMessage', $startMessage)."\n" );
657 if (!(isset($passed_ent_id) && $passed_ent_id)) {
658 $oTemplate->assign('can_be_moved', true);
659 $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
660 addHidden('msg[0]', $passed_id)."\n" .
661 // only need when $return_to_message_list_after_move is off
662 addHidden('passed_id', ($next >= 0 ?
$next : $prev))."\n" .
663 addHidden('startMessage', $startMessage)."\n" );
664 $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ?
$lastTargetMailbox : '');
665 $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
667 $oTemplate->assign('can_be_moved', false);
668 $oTemplate->assign('move_form_extra', '');
669 $oTemplate->assign('last_move_target', '');
670 $oTemplate->assign('can_be_copied', false);
673 $oTemplate->assign('can_be_deleted', false);
674 $oTemplate->assign('move_delete_form_action', '');
675 $oTemplate->assign('delete_form_extra', '');
676 $oTemplate->assign('can_be_moved', false);
677 $oTemplate->assign('move_form_extra', '');
678 $oTemplate->assign('last_move_target', '');
679 $oTemplate->assign('can_be_copied', false);
682 // access keys... only add to the top menubar, because adding
683 // them twice makes them less functional (press access key, *then*
684 // press <enter> to make it work)
687 global $accesskey_read_msg_reply, $accesskey_read_msg_reply_all,
688 $accesskey_read_msg_forward, $accesskey_read_msg_as_attach,
689 $accesskey_read_msg_delete, $accesskey_read_msg_bypass_trash,
690 $accesskey_read_msg_move, $accesskey_read_msg_move_to,
691 $accesskey_read_msg_copy;
693 $accesskey_read_msg_reply = $accesskey_read_msg_reply_all =
694 $accesskey_read_msg_forward = $accesskey_read_msg_as_attach =
695 $accesskey_read_msg_delete = $accesskey_read_msg_bypass_trash =
696 $accesskey_read_msg_move = $accesskey_read_msg_move_to =
697 $accesskey_read_msg_copy = 'NONE';
699 $oTemplate->assign('accesskey_read_msg_reply', $accesskey_read_msg_reply);
700 $oTemplate->assign('accesskey_read_msg_reply_all', $accesskey_read_msg_reply_all);
701 $oTemplate->assign('accesskey_read_msg_forward', $accesskey_read_msg_forward);
702 $oTemplate->assign('accesskey_read_msg_as_attach', $accesskey_read_msg_as_attach);
703 $oTemplate->assign('accesskey_read_msg_delete', $accesskey_read_msg_delete);
704 $oTemplate->assign('accesskey_read_msg_bypass_trash', $accesskey_read_msg_bypass_trash);
705 $oTemplate->assign('accesskey_read_msg_move_to', $accesskey_read_msg_move_to);
706 $oTemplate->assign('accesskey_read_msg_move', $accesskey_read_msg_move);
707 $oTemplate->assign('accesskey_read_msg_copy', $accesskey_read_msg_copy);
710 do_hook('read_body_menu', $null);
713 $oTemplate->display('read_menubar_nav.tpl');
714 $oTemplate->display('read_menubar_buttons.tpl');
716 $oTemplate->display('read_menubar_buttons.tpl');
717 $oTemplate->display('read_menubar_nav.tpl');
722 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
723 global $base_uri, $where, $what, $show_html_default,
724 $oTemplate, $download_href, $PHP_SELF,
725 $unsafe_image_toggle_href, $unsafe_image_toggle_text;
727 $urlMailbox = urlencode($mailbox);
728 $urlPassed_id = urlencode($passed_id);
729 $urlPassed_ent_id = urlencode($passed_ent_id);
731 $query_string = 'mailbox=' . $urlMailbox . '&passed_id=' . $urlPassed_id . '&passed_ent_id=' . $urlPassed_ent_id;
732 if (!empty($where)) {
733 $query_string .= '&where=' . urlencode($where);
736 $query_string .= '&what=' . urlencode($what);
738 $url = $base_uri.'src/view_header.php?'.$query_string;
743 'Text' => _("View Full Header")
746 if ( checkForJavaScript() ) {
748 'URL' => 'javascript:printThis();',
749 'Text' => _("Print"),
753 'URL' => set_url_var($PHP_SELF, 'print', '1'),
754 'Text' => _("Print"),
760 'URL' => $download_href,
761 'Text' => _("Download this as a file")
763 $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
764 if (!empty($toggle)) {
767 'Text' => $show_html_default==1 ?
_("View as plain text") : _("View as HTML")
770 if (!empty($unsafe_image_toggle_href)) {
772 'URL' => $unsafe_image_toggle_href,
773 'Text' => $unsafe_image_toggle_text
777 do_hook('read_body_header_right', $links);
779 $oTemplate->assign('links', $links);
781 return $oTemplate->fetch('read_toolbar.tpl');
784 /***************************/
785 /* Main of read_body.php */
786 /***************************/
788 /* get the globals we may need */
790 sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION
);
791 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION
);
792 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION
) ) {
795 sqgetGlobalVar('delayed_errors', $delayed_errors, SQ_SESSION
);
796 if (is_array($delayed_errors)) {
797 $oErrorHandler->AssignDelayedErrors($delayed_errors);
798 sqsession_unregister("delayed_errors");
801 sqgetGlobalVar('sendreceipt', $sendreceipt, SQ_GET
);
802 if (!sqgetGlobalVar('where', $where, SQ_GET
) ) {
803 $where = 'right_main.php';
806 * Used as entry key to the list of uid's cached in the mailbox cache
807 * we use the cached uid's to get the next and prev message.
809 if (!sqgetGlobalVar('what', $what, SQ_GET
) ){
812 if ( sqgetGlobalVar('show_more', $temp, SQ_GET
) ) {
813 $show_more = (int) $temp;
815 if ( sqgetGlobalVar('show_more_cc', $temp, SQ_GET
) ) {
816 $show_more_cc = (int) $temp;
818 if ( sqgetGlobalVar('show_more_bcc', $temp, SQ_GET
) ) {
819 $show_more_bcc = (int) $temp;
821 if ( sqgetGlobalVar('view_hdr', $temp, SQ_GET
) ) {
822 $view_hdr = (int) $temp;
825 if ( sqgetGlobalVar('account', $temp, SQ_GET
) ) {
826 $iAccount = (int) $temp;
832 sqgetGlobalVar('passed_id', $passed_id, SQ_INORDER
, NULL, SQ_TYPE_BIGINT
);
833 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
834 sqgetGlobalVar('mailbox', $mailbox);
836 if ( sqgetGlobalVar('sort', $temp) ) {
839 if ( sqgetGlobalVar('startMessage', $temp) ) {
840 $startMessage = (int) $temp;
844 if(sqgetGlobalVar('show_html_default', $temp)) {
845 $show_html_default = (int) $temp;
848 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
849 $view_unsafe_images = (int) $temp;
850 if($view_unsafe_images == 1) {
851 $show_html_default = 1;
854 $view_unsafe_images = 0;
858 * Retrieve mailbox cache
860 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION
);
862 /* end of get globals */
864 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
865 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
869 Start code to set the columns to fetch in case of hitting the next/prev link
870 The reason for this is the fact that the cache can be invalidated which means that the headers
871 to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
873 Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
877 * Replace From => To in case it concerns a draft or sent folder
880 if (($mailbox == $sent_folder ||
$mailbox == $draft_folder) &&
881 !in_array(SQM_COL_TO
,$index_order)) {
882 $aNewOrder = array(); // nice var name ;)
883 foreach($index_order as $iCol) {
884 if ($iCol == SQM_COL_FROM
) {
887 $aColumns[$iCol] = array();
890 foreach ($index_order as $iCol) {
891 $aColumns[$iCol] = array();
896 'columns' => $aColumns, // columns bound settings
898 'highlight_list' => $message_highlight_list, // row highlighting rules
899 'trash_folder' => $trash_folder,
900 'sent_folder' => $sent_folder,
901 'draft_folder' => $draft_folder));
903 calcFetchColumns($aMailbox,$aProps);
906 End code to set the columns to fetch in case of hitting the next/prev link
912 * Check if cache is still valid, $what contains the key
913 * which gives us acces to the array with uid's. At this moment
914 * 0 is used for a normal message list and search uses 1 as key. This can be
915 * changed / extended in the future.
916 * If on a select of a mailbox we detect that the cache should be invalidated due to
917 * the delete of messages or due to new messages we empty the list with uid's and
918 * that's what we detect below.
920 if (!is_array($aMailbox['UIDSET'][$what])) {
921 fetchMessageHeaders($imapConnection, $aMailbox);
924 $iSetIndex = $aMailbox['SETINDEX'];
925 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
928 * Update the seen state
929 * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
931 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
932 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
936 * Process Delete from delete-move-next
937 * but only if delete_id was set
939 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET
) ) {
940 handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
944 * or move button... why is handleMessageListForm (per above) conditional anway?
946 if ( sqgetGlobalVar('moveButton', $ignore, SQ_POST
) ) {
947 $sError = handleMessageListForm($imapConnection,$aMailbox);
948 sqgetGlobalVar('targetMailbox', $lastTargetMailbox, SQ_POST
);
952 * $message contains all information about the message
953 * including header and body
956 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
957 $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
958 $FirstTimeSee = !$message->is_seen
;
960 $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
961 $FirstTimeSee = !$message->is_seen
;
965 * update message seen status and put in cache
967 $message->is_seen
= true;
968 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
970 if (isset($passed_ent_id) && $passed_ent_id) {
971 $message = $message->getEntity($passed_ent_id);
972 if ($message->type0
!= 'message' && $message->type1
!= 'rfc822') {
973 $message = $message->parent
;
975 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
976 $rfc822_header = new Rfc822Header();
977 $rfc822_header->parseHeader($read);
978 $message->rfc822_header
= $rfc822_header;
979 } else if ($message->type0
== 'message' && $message->type1
== 'rfc822' && isset($message->entities
[0])) {
980 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
981 $rfc822_header = new Rfc822Header();
982 $rfc822_header->parseHeader($read);
983 $message->rfc822_header
= $rfc822_header;
987 $header = $message->header
;
989 // gmail does not mark messages as read when retrieving the message body
990 // even though RFC 3501, section 6.4.5 (FETCH Command) says:
991 // "The \Seen flag is implicitly set; if this causes the flags to change,
992 // they SHOULD be included as part of the FETCH responses."
994 if ($imap_server_type == 'gmail') {
995 sqimap_toggle_flag($imapConnection, array($passed_id), '\\Seen', true, true);
998 /****************************************/
999 /* Block for handling incoming url vars */
1000 /****************************************/
1002 if (isset($sendreceipt)) {
1003 if ( !$message->is_mdnsent
) {
1004 $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
1005 if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
1006 ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
1007 $message->is_mdnsent
= true;
1008 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
1012 /***********************************************/
1013 /* End of block for handling incoming url vars */
1014 /***********************************************/
1016 $oTemplate->assign('aAttribs', array('class' => 'entity_sep'));
1017 $hr = $oTemplate->fetch('horizontal_rule.tpl');
1019 do_hook('read_body_top', $null);
1020 if ($show_html_default == 1) {
1021 $ent_ar = $message->findDisplayEntity(array());
1023 $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
1025 $cnt = count($ent_ar);
1026 for ($i = 0; $i < $cnt; $i++
) {
1027 $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
1029 $messagebody .= $hr;
1034 * Write mailbox with updated seen flag information back to cache.
1036 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
1037 sqsession_register($mailbox_cache,'mailbox_cache');
1038 $_SESSION['mailbox_cache'] = $mailbox_cache;
1040 // message list URI is used in page header when on read_body
1041 $oTemplate->assign('message_list_href', get_message_list_uri($aMailbox['NAME'], $startMessage, $what));
1043 displayPageHeader($color, $mailbox,'','');
1045 /* this is the non-javascript version of printer friendly */
1046 if ( sqgetGlobalVar('print', $print, SQ_GET
) ) {
1047 $oTemplate->display('read_message_print.tpl');
1049 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,false);
1051 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
1053 $oTemplate->assign('message_body', $messagebody);
1054 $oTemplate->display('read_message_body.tpl');
1056 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
1058 /* show attached images inline -- if pref'fed so */
1059 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
1061 foreach ($attachment_common_show_images_list as $img) {
1062 $imgurl = SM_PATH
. 'src/download.php' .
1064 'passed_id=' . urlencode($img['passed_id']) .
1065 '&mailbox=' . urlencode($mailbox) .
1066 '&ent_id=' . urlencode($img['ent_id']) .
1067 '&absolute_dl=true';
1069 $a['Name'] = $img['name'];
1070 $a['DisplayURL'] = $imgurl;
1071 $a['DownloadURL'] = $img['download_href'];
1075 $oTemplate->assign('images', $images);
1076 $oTemplate->display('read_display_images_inline.tpl');
1079 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
1081 do_hook('read_body_bottom', $null);
1082 sqimap_logout($imapConnection);
1083 $oTemplate->display('footer.tpl');