6 * This file is used for reading the msgs array and displaying
7 * the resulting emails in the right frame.
9 * @copyright © 1999-2007 The SquirrelMail Project Team
10 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
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
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 next valid message from the array
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 $rfc822_header->to
[] = $header->dnt
;
149 $rfc822_header->subject
= _("Read:") . ' ' . decodeHeader($header->subject
,true,false);
151 $idents = get_identities();
154 foreach ($header->to
as $message_to) {
155 $needles[] = $message_to->mailbox
.'@'.$message_to->host
;
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'];
165 $rfc822_header->from
= $rfc822_header->parseAddress($from_addr,true);
167 $rfc822_header->reply_to
= $rfc822_header->parseAddress($reply_to,true);
171 $senton = getLongDateString( $header->date
, $header->date_unparsed
);
172 $to_array = $header->to
;
174 foreach ($to_array as $line) {
175 $to .= ' '.$line->getAddress();
177 $now = getLongDateString( time() );
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" .
184 sprintf( _("Was displayed on %s"), $now );
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';
194 $body = mb_convert_encoding($body, 'JIS');
195 $special_encoding = '7bit';
198 } elseif (sq_is8bit($body)) {
199 $special_encoding = '8bit';
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;
209 $mime_header->encoding
= 'us-ascii';
211 if ($default_charset) {
212 $mime_header->parameters
['charset'] = $default_charset;
214 $part1->mime_header
= $mime_header;
217 $original_recipient = $to;
218 $original_message_id = $header->message_id
;
220 $report = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version " . SM_VERSION
. ") \r\n";
221 if ($original_recipient != '') {
222 $report .= "Original-Recipient : $original_recipient\r\n";
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";
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
= 'us-ascii';
234 $part2->mime_header
= $mime_header;
236 $composeMessage = new Message();
237 $composeMessage->rfc822_header
= $rfc822_header;
238 $composeMessage->addEntity($part1);
239 $composeMessage->addEntity($part2);
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') {
250 $sendmail_args = '-i -t';
253 $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
254 $stream = $deliver->initStream($composeMessage,$sendmail_path);
256 require_once(SM_PATH
. 'class/deliver/Deliver_SMTP.class.php');
257 $deliver = new Deliver_SMTP();
258 global $smtpServerAddress, $smtpPort, $pop_before_smtp;
259 $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ?
true : false;
260 get_smtp_user($user, $pass);
261 $stream = $deliver->initStream($composeMessage,$domain,0,
262 $smtpServerAddress, $smtpPort, $user, $pass, $authPop);
266 $deliver->mail($composeMessage, $stream);
267 $success = $deliver->finalizeStream($stream);
270 $msg = _("Message not sent.") . "\n" .
272 if (! empty($deliver->dlv_server_msg
)) {
274 _("Server replied:") . ' ' . $deliver->dlv_ret_nr
. ' ' .
275 nl2br(htmlspecialchars($deliver->dlv_server_msg
));
277 plain_error_message($msg);
281 // move to sent folder
283 $move_to_sent = getPref($data_dir,$username,'move_to_sent');
284 if (isset($default_move_to_sent) && ($default_move_to_sent != 0)) {
285 $svr_allow_sent = true;
287 $svr_allow_sent = false;
290 if (isset($sent_folder) && (($sent_folder != '') ||
($sent_folder != 'none'))
291 && sqimap_mailbox_exists( $imapConnection, $sent_folder)) {
297 if ((isset($move_to_sent) && ($move_to_sent != 0)) ||
(!isset($move_to_sent))) {
298 $lcl_allow_sent = true;
300 $lcl_allow_sent = false;
303 if (($fld_sent && $svr_allow_sent && !$lcl_allow_sent) ||
($fld_sent && $lcl_allow_sent)) {
304 $save_reply_with_orig=getPref($data_dir,$username,'save_reply_with_orig');
305 if ($save_reply_with_orig) {
306 $sent_folder = $mailbox;
308 require_once(SM_PATH
. 'class/deliver/Deliver_IMAP.class.php');
309 $imap_deliver = new Deliver_IMAP();
310 $imap_deliver->mail($composeMessage, $imapConnection, 0, 0, $sent_folder);
311 unset ($imap_deliver);
317 function ToggleMDNflag ($set ,$imapConnection, $mailbox, $passed_id) {
319 $cmd = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
320 $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
324 function formatRecipientString($recipients, $item ) {
325 global $show_more, $show_more_cc, $show_more_bcc,
326 $PHP_SELF, $oTemplate;
329 if ((is_array($recipients)) && (isset($recipients[0]))) {
335 $url = set_url_var($PHP_SELF, 'show_more',0);
337 $url = set_url_var($PHP_SELF, 'show_more',1);
339 } else if ($item == 'cc') {
342 $url = set_url_var($PHP_SELF, 'show_more_cc',0);
344 $url = set_url_var($PHP_SELF, 'show_more_cc',1);
346 } else if ($item == 'bcc') {
347 if ($show_more_bcc) {
349 $url = set_url_var($PHP_SELF, 'show_more_bcc',0);
351 $url = set_url_var($PHP_SELF, 'show_more_bcc',1);
356 foreach ($recipients as $r) {
358 // note: decodeHeader is htmlsafe by default
359 'Name' => decodeHeader($r->getAddress(false)),
360 'Email' => htmlspecialchars($r->getEmail()),
361 'Full' => decodeHeader($r->getAddress(true))
365 $oTemplate->assign('which_field', $item);
366 $oTemplate->assign('recipients', $a);
367 $oTemplate->assign('more_less_toggle_href', $url);
368 $oTemplate->assign('show_more', $show);
370 $string = $oTemplate->fetch('read_recipient_list.tpl');
375 function formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message,
376 $color, $FirstTimeSee) {
377 global $default_use_mdn, $default_use_priority,
378 $show_xmailer_default, $mdn_user_support, $PHP_SELF,
379 $squirrelmail_language, $oTemplate;
381 $mailbox = $aMailbox['NAME'];
383 $header = $message->rfc822_header
;
385 $env[_("Subject")] = str_replace(" "," ",decodeHeader($header->subject
));
387 $from_name = $header->getAddr_s('from');
389 $from_name = $header->getAddr_s('sender');
391 $env[_("From")] = _("Unknown sender");
393 $env[_("From")] = decodeHeader($from_name);
394 $env[_("Date")] = getLongDateString($header->date
, $header->date_unparsed
);
395 $env[_("To")] = formatRecipientString($header->to
, "to");
396 $env[_("Cc")] = formatRecipientString($header->cc
, "cc");
397 $env[_("Bcc")] = formatRecipientString($header->bcc
, "bcc");
398 if ($default_use_priority) {
399 $oTemplate->assign('message_priority', $header->priority
);
400 $env[_("Priority")] = $oTemplate->fetch('read_message_priority.tpl');
402 if ($show_xmailer_default) {
403 $oTemplate->assign('xmailer', decodeHeader($header->xmailer
));
404 $env[_("Mailer")] = $oTemplate->fetch('read_xmailer.tpl');
407 // this is used for both mdn and also general use for plugins, etc
408 $oTemplate->assign('first_time_reading', $FirstTimeSee);
410 if ($default_use_mdn) {
411 if ($mdn_user_support) {
413 $mdn_url = $PHP_SELF;
414 $mdn_url = set_url_var($mdn_url, 'mailbox', urlencode($mailbox));
415 $mdn_url = set_url_var($mdn_url, 'passed_id', $passed_id);
416 $mdn_url = set_url_var($mdn_url, 'passed_ent_id', $passed_ent_id);
417 $mdn_url = set_url_var($mdn_url, 'sendreceipt', 1);
419 $oTemplate->assign('read_receipt_sent', $message->is_mdnsent
);
420 $oTemplate->assign('send_receipt_href', $mdn_url);
422 $env[_("Read Receipt")] = $oTemplate->fetch('read_handle_receipt.tpl');
428 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
429 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted']) &&
430 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted'] === true) {
431 $statuses[] = _("deleted");
433 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered']) &&
434 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered'] === true) {
435 $statuses[] = _("answered");
437 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft']) &&
438 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft'] === true) {
439 $statuses[] = _("draft");
441 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged']) &&
442 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged'] === true) {
443 $statuses[] = _("flagged");
445 if ( count($statuses) ) {
446 $env[_("Status")] = implode(', ', $statuses);
450 $env[_("Options")] = formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color);
453 $oTemplate->assign('headers_to_display', $env);
455 $oTemplate->display('read_headers.tpl');
459 * Format message toolbar
461 * @param array $aMailbox Current mailbox information array
462 * @param int $passed_id UID of current message
463 * @param int $passed_ent_id Id of entity within message
464 * @param object $message Current message object
465 * @param object $mbx_response
467 function formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, $removedVar, $nav_on_top = TRUE) {
468 global $base_uri, $draft_folder, $where, $what, $sort,
469 $startMessage, $PHP_SELF, $save_as_draft,
470 $enable_forward_as_attachment, $imapConnection, $lastTargetMailbox,
471 $delete_prev_next_display, $show_copy_buttons,
472 $compose_new_win, $compose_width, $compose_height,
475 //FIXME cleanup argument list, use $aMailbox where possible
476 $mailbox = $aMailbox['NAME'];
478 $urlMailbox = urlencode($mailbox);
480 // Create Prev & Next links
481 // Handle nested entities first (i.e. Mime Attach parts)
482 $prev_href = $next_href = $up_href = $del_href = $del_prev_href = $del_next_href = '';
483 $msg_list_href = $search_href = $view_msg_href = '';
484 if (isset($passed_ent_id) && $passed_ent_id) {
485 // code for navigating through attached message/rfc822 messages
486 $url = set_url_var($PHP_SELF, 'passed_ent_id',0);
488 $entity_count = array();
491 foreach($message->parent
->entities
as $ent) {
492 if ($ent->type0
== 'message' && $ent->type1
== 'rfc822') {
495 $entity_count[$c] = $ent->entity_id
;
496 $entities[$ent->entity_id
] = $c;
500 if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] > 1) {
501 $prev_ent_id = $entity_count[$entities[$passed_ent_id] - 1];
502 $prev_href = set_url_var($PHP_SELF, 'passed_ent_id', $prev_ent_id);
505 if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] < $c) {
506 $next_ent_id = $entity_count[$entities[$passed_ent_id] +
1];
507 $next_href = set_url_var($PHP_SELF, 'passed_ent_id', $next_ent_id);
510 $par_ent_id = $message->parent
->entity_id
;
512 $par_ent_id = substr($par_ent_id,0,-2);
513 if ( $par_ent_id != 0 ) {
514 $up_href = set_url_var($PHP_SELF, 'passed_ent_id',$par_ent_id);
518 $view_msg_href = $url;
520 // Prev/Next links for regular messages
521 } else if ( true ) { //!(isset($where) && isset($what)) ) {
522 $prev = findPreviousMessage($aMailbox['UIDSET'][$what], $passed_id);
523 $next = findNextMessage($aMailbox['UIDSET'][$what],$passed_id);
526 $prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
527 '&mailbox='.$urlMailbox.'&sort='.$sort.
528 "&where=$where&what=$what" .
529 '&startMessage='.$startMessage.'&show_more=0';
533 $next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
534 '&mailbox='.$urlMailbox.'&sort='.$sort.
535 "&where=$where&what=$what" .
536 '&startMessage='.$startMessage.'&show_more=0';
539 // Only bother with Delete & Prev and Delete & Next IF
540 // top display is enabled.
541 if ( $delete_prev_next_display == 1 &&
542 in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true) ) {
544 $del_prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
545 '&mailbox='.$urlMailbox.'&sort='.$sort.
546 '&startMessage='.$startMessage.'&show_more=0'.
547 "&where=$where&what=$what" .
548 '&delete_id='.$passed_id;
552 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
553 '&mailbox='.$urlMailbox.'&sort='.$sort.
554 '&startMessage='.$startMessage.'&show_more=0'.
555 "&where=$where&what=$what" .
556 '&delete_id='.$passed_id;
561 $msg_list_href = get_message_list_uri($aMailbox['NAME'], $startMessage, $what);
562 if ($where == 'search.php')
563 $search_href = str_replace('read_body.php', 'search.php', $msg_list_href);
567 $comp_uri = $base_uri.'src/compose.php' .
568 '?passed_id=' . $passed_id .
569 '&mailbox=' . $urlMailbox .
570 '&startMessage=' . $startMessage .
571 (isset($passed_ent_id) ?
'&passed_ent_id='.$passed_ent_id : '');
573 // Start form for reply/reply all/forward..
578 if ($compose_new_win == '1') {
579 if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
580 $compose_width = '640';
582 if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
583 $compose_height = '550';
585 if ( checkForJavascript() ) {
586 $on_click='comp_in_new_form(\''.$comp_uri.'\', this, this.form,'. $compose_width .',' . $compose_height .')';
587 $comp_uri = 'javascript:void(0)';
589 $onsubmit = 'return false';
595 $oTemplate->assign('nav_on_top', $nav_on_top);
597 $oTemplate->assign('prev_href', $prev_href);
598 $oTemplate->assign('up_href', $up_href);
599 $oTemplate->assign('next_href', $next_href);
600 $oTemplate->assign('del_prev_href', $del_prev_href);
601 $oTemplate->assign('del_next_href', $del_next_href);
602 $oTemplate->assign('view_msg_href', $view_msg_href);
604 $oTemplate->assign('message_list_href', $msg_list_href);
605 $oTemplate->assign('search_href', $search_href);
607 $oTemplate->assign('form_extra', '');
608 $oTemplate->assign('form_method', $method);
609 $oTemplate->assign('form_target', $target);
610 $oTemplate->assign('form_onsubmit', $onsubmit);
611 $oTemplate->assign('compose_href', $comp_uri);
612 $oTemplate->assign('button_onclick', $on_click);
613 $oTemplate->assign('forward_as_attachment_enabled', $enable_forward_as_attachment==1);
615 //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
616 $oTemplate->assign('mailbox', $aMailbox['NAME']);
617 $oTemplate->assign('passed_id', $passed_id);
618 $oTemplate->assign('what', $what);
620 // If Draft folder - create Resume link
621 $resume_draft = $edit_as_new = false;
622 if (($mailbox == $draft_folder) && ($save_as_draft)) {
623 $resume_draft = true; 'smaction_draft';
624 } else if (handleAsSent($mailbox)) {
627 $oTemplate->assign('can_resume_draft', $resume_draft);
628 $oTemplate->assign('can_edit_as_new', $edit_as_new);
630 $oTemplate->assign('mailboxes', sqimap_mailbox_option_array($imapConnection));
631 if (in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true)) {
632 $delete_url = $base_uri . "src/$where";
633 $oTemplate->assign('can_be_deleted', true);
634 $oTemplate->assign('move_delete_form_action', $base_uri.'src/'.$where);
635 $oTemplate->assign('delete_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
636 addHidden('msg[0]', $passed_id)."\n" .
637 addHidden('startMessage', $startMessage)."\n" );
638 if (!(isset($passed_ent_id) && $passed_ent_id)) {
639 $oTemplate->assign('can_be_moved', true);
640 $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
641 addHidden('msg[0]', $passed_id)."\n" );
642 $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ?
$lastTargetMailbox : '');
643 $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
645 $oTemplate->assign('can_be_moved', false);
646 $oTemplate->assign('move_form_extra', '');
647 $oTemplate->assign('last_move_target', '');
648 $oTemplate->assign('can_be_copied', false);
651 $oTemplate->assign('can_be_deleted', false);
652 $oTemplate->assign('move_delete_form_action', '');
653 $oTemplate->assign('delete_form_extra', '');
654 $oTemplate->assign('can_be_moved', false);
655 $oTemplate->assign('move_form_extra', '');
656 $oTemplate->assign('last_move_target', '');
657 $oTemplate->assign('can_be_copied', false);
661 do_hook('read_body_menu', $null);
664 $oTemplate->display('read_menubar_nav.tpl');
665 $oTemplate->display('read_menubar_buttons.tpl');
667 $oTemplate->display('read_menubar_buttons.tpl');
668 $oTemplate->display('read_menubar_nav.tpl');
673 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
674 global $base_uri, $where, $what, $show_html_default,
675 $oTemplate, $download_href,
676 $unsafe_image_toggle_href, $unsafe_image_toggle_text;
678 $urlMailbox = urlencode($mailbox);
679 $urlPassed_id = urlencode($passed_id);
680 $urlPassed_ent_id = urlencode($passed_ent_id);
682 $query_string = 'mailbox=' . $urlMailbox . '&passed_id=' . $urlPassed_id . '&passed_ent_id=' . $urlPassed_ent_id;
683 if (!empty($where)) {
684 $query_string .= '&where=' . urlencode($where);
687 $query_string .= '&what=' . urlencode($what);
689 $url = $base_uri.'src/view_header.php?'.$query_string;
692 // Build the printer friend link
695 // Pull "view_unsafe_images" from the URL to find out if the unsafe images
696 // should be displayed. The default is not to display unsafe images.
697 if( !sqgetGlobalVar('view_unsafe_images', $view_unsafe_images, SQ_GET
) ) {
698 // If "view_unsafe_images" isn't part of the URL, default to not
699 // displaying unsafe images.
700 $view_unsafe_images = false;
702 // If "view_unsafe_images" is part of the URL, display unsafe images
703 // regardless of the value of the URL variable.
704 // FIXME: Do we really want to display the unsafe images regardless of the value in URL variable?
705 $view_unsafe_images = true;
708 $pf_params = '?passed_ent_id=' . $urlPassed_ent_id .
709 '&mailbox=' . $urlMailbox .
710 '&passed_id=' . $urlPassed_id .
711 '&view_unsafe_images='. (bool) $view_unsafe_images .
712 '&show_html_default=' . $show_html_default;
717 'Text' => _("View Full Header")
721 'Text' => _("View Printable Version")
724 'URL' => $download_href,
725 'Text' => _("Download this as a file")
727 $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
728 if (!empty($toggle)) {
731 'Text' => $show_html_default==1 ?
_("View as plain text") : _("View as HTML")
734 if (!empty($unsafe_image_toggle_href)) {
736 'URL' => $unsafe_image_toggle_href,
737 'Text' => $unsafe_image_toggle_text
741 do_hook('read_body_header_right', $links);
743 $oTemplate->assign('links', $links);
745 return $oTemplate->fetch('read_toolbar.tpl');
748 /***************************/
749 /* Main of read_body.php */
750 /***************************/
752 /* get the globals we may need */
754 sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION
);
755 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION
);
756 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION
) ) {
759 sqgetGlobalVar('delayed_errors', $delayed_errors, SQ_SESSION
);
760 if (is_array($delayed_errors)) {
761 $oErrorHandler->AssignDelayedErrors($delayed_errors);
762 sqsession_unregister("delayed_errors");
765 sqgetGlobalVar('sendreceipt', $sendreceipt, SQ_GET
);
766 if (!sqgetGlobalVar('where', $where, SQ_GET
) ) {
767 $where = 'right_main.php';
770 * Used as entry key to the list of uid's cached in the mailbox cache
771 * we use the cached uid's to get the next and prev message.
773 if (!sqgetGlobalVar('what', $what, SQ_GET
) ){
776 if ( sqgetGlobalVar('show_more', $temp, SQ_GET
) ) {
777 $show_more = (int) $temp;
779 if ( sqgetGlobalVar('show_more_cc', $temp, SQ_GET
) ) {
780 $show_more_cc = (int) $temp;
782 if ( sqgetGlobalVar('show_more_bcc', $temp, SQ_GET
) ) {
783 $show_more_bcc = (int) $temp;
785 if ( sqgetGlobalVar('view_hdr', $temp, SQ_GET
) ) {
786 $view_hdr = (int) $temp;
789 if ( sqgetGlobalVar('account', $temp, SQ_GET
) ) {
790 $iAccount = (int) $temp;
796 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
797 sqgetGlobalVar('mailbox', $mailbox);
799 if ( sqgetGlobalVar('passed_id', $temp) ) {
800 $passed_id = (int) $temp;
802 if ( sqgetGlobalVar('sort', $temp) ) {
805 if ( sqgetGlobalVar('startMessage', $temp) ) {
806 $startMessage = (int) $temp;
810 if(sqgetGlobalVar('show_html_default', $temp)) {
811 $show_html_default = (int) $temp;
814 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
815 $view_unsafe_images = (int) $temp;
816 if($view_unsafe_images == 1) {
817 $show_html_default = 1;
820 $view_unsafe_images = 0;
824 * Retrieve mailbox cache
826 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION
);
828 /* end of get globals */
830 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
831 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
835 Start code to set the columns to fetch in case of hitting the next/prev link
836 The reason for this is the fact that the cache can be invalidated which means that the headers
837 to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
839 Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
843 * Replace From => To in case it concerns a draft or sent folder
846 if (($mailbox == $sent_folder ||
$mailbox == $draft_folder) &&
847 !in_array(SQM_COL_TO
,$index_order)) {
848 $aNewOrder = array(); // nice var name ;)
849 foreach($index_order as $iCol) {
850 if ($iCol == SQM_COL_FROM
) {
853 $aColumns[$iCol] = array();
856 foreach ($index_order as $iCol) {
857 $aColumns[$iCol] = array();
862 'columns' => $aColumns, // columns bound settings
864 'highlight_list' => $message_highlight_list, // row highlighting rules
865 'trash_folder' => $trash_folder,
866 'sent_folder' => $sent_folder,
867 'draft_folder' => $draft_folder));
869 calcFetchColumns($aMailbox,$aProps);
872 End code to set the columns to fetch in case of hitting the next/prev link
878 * Check if cache is still valid, $what contains the key
879 * which gives us acces to the array with uid's. At this moment
880 * 0 is used for a normal message list and search uses 1 as key. This can be
881 * changed / extended in the future.
882 * If on a select of a mailbox we detect that the cache should be invalidated due to
883 * the delete of messages or due to new messages we empty the list with uid's and
884 * that's what we detect below.
886 if (!is_array($aMailbox['UIDSET'][$what])) {
887 fetchMessageHeaders($imapConnection, $aMailbox);
890 $iSetIndex = $aMailbox['SETINDEX'];
891 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
894 * Update the seen state
895 * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
897 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
898 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
902 * Process Delete from delete-move-next
903 * but only if delete_id was set
905 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET
) ) {
906 handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
910 * $message contains all information about the message
911 * including header and body
914 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
915 $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
916 $FirstTimeSee = !$message->is_seen
;
918 $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
919 $FirstTimeSee = !$message->is_seen
;
923 * update message seen status and put in cache
925 $message->is_seen
= true;
926 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
928 if (isset($passed_ent_id) && $passed_ent_id) {
929 $message = $message->getEntity($passed_ent_id);
930 if ($message->type0
!= 'message' && $message->type1
!= 'rfc822') {
931 $message = $message->parent
;
933 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
934 $rfc822_header = new Rfc822Header();
935 $rfc822_header->parseHeader($read);
936 $message->rfc822_header
= $rfc822_header;
937 } else if ($message->type0
== 'message' && $message->type1
== 'rfc822' && isset($message->entities
[0])) {
938 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
939 $rfc822_header = new Rfc822Header();
940 $rfc822_header->parseHeader($read);
941 $message->rfc822_header
= $rfc822_header;
945 $header = $message->header
;
948 /****************************************/
949 /* Block for handling incoming url vars */
950 /****************************************/
952 if (isset($sendreceipt)) {
953 if ( !$message->is_mdnsent
) {
954 $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
955 if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
956 ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
957 $message->is_mdnsent
= true;
958 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
962 /***********************************************/
963 /* End of block for handling incoming url vars */
964 /***********************************************/
967 do_hook('read_body_top', $null);
968 if ($show_html_default == 1) {
969 $ent_ar = $message->findDisplayEntity(array());
971 $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
973 $cnt = count($ent_ar);
974 for ($i = 0; $i < $cnt; $i++
) {
975 $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
977 $messagebody .= '<hr />';
982 * Write mailbox with updated seen flag information back to cache.
984 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
985 sqsession_register($mailbox_cache,'mailbox_cache');
986 $_SESSION['mailbox_cache'] = $mailbox_cache;
988 // message list URI is used in page header when on read_body
989 $oTemplate->assign('message_list_href', get_message_list_uri($aMailbox['NAME'], $startMessage, $what));
991 displayPageHeader($color, $mailbox,'','');
992 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,false);
993 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
995 $oTemplate->assign('message_body', $messagebody);
996 $oTemplate->display('read_message_body.tpl');
998 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
1000 /* show attached images inline -- if pref'fed so */
1001 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
1003 foreach ($attachment_common_show_images_list as $img) {
1004 $imgurl = SM_PATH
. 'src/download.php' .
1006 'passed_id=' . urlencode($img['passed_id']) .
1007 '&mailbox=' . urlencode($mailbox) .
1008 '&ent_id=' . urlencode($img['ent_id']) .
1009 '&absolute_dl=true';
1011 $a['Name'] = $img['name'];
1012 $a['DisplayURL'] = $imgurl;
1013 $a['DownloadURL'] = $img['download_href'];
1017 $oTemplate->assign('images', $images);
1018 $oTemplate->display('read_display_images_inline.tpl');
1021 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
1023 do_hook('read_body_bottom', $null);
1024 sqimap_logout($imapConnection);
1025 $oTemplate->display('footer.tpl');