9e8bb97a52e66eefec90c1a47251608e752b0afe
[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-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
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 if (!empty($header->dnt))
149 $rfc822_header->to[] = $header->dnt;
150 else
151 $rfc822_header->to[] = $header->dsn;
152 $rfc822_header->subject = _("Read:") . ' ' . decodeHeader($header->subject,true,false);
153
154 $idents = get_identities();
155 $needles = array();
156 if ($header->to) {
157 foreach ($header->to as $message_to) {
158 $needles[] = $message_to->mailbox.'@'.$message_to->host;
159 }
160 }
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'];
167
168 $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
169 if ($reply_to) {
170 $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
171 }
172
173 // part 1 (RFC2298)
174 $senton = getLongDateString( $header->date, $header->date_unparsed );
175 $to_array = $header->to;
176 $to = '';
177 foreach ($to_array as $line) {
178 $to .= ' '.$line->getAddress();
179 }
180 $now = getLongDateString( time() );
181 set_my_charset();
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" .
186 "\r\n" .
187 sprintf( _("Was displayed on %s"), $now );
188
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';
196 } else {
197 $body = mb_convert_encoding($body, 'JIS');
198 $special_encoding = '7bit';
199 }
200 }
201 } elseif (sq_is8bit($body)) {
202 $special_encoding = '8bit';
203 }
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;
211 } else {
212 $mime_header->encoding = '7bit';
213 }
214 if ($default_charset) {
215 $mime_header->parameters['charset'] = $default_charset;
216 }
217 $part1->mime_header = $mime_header;
218
219 // part2 (RFC2298)
220 $original_recipient = $to;
221 $original_message_id = $header->message_id;
222
223 $report = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version " . SM_VERSION . ") \r\n";
224 if ($original_recipient != '') {
225 $report .= "Original-Recipient : $original_recipient\r\n";
226 }
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";
230
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;
238
239 $composeMessage = new Message();
240 $composeMessage->rfc822_header = $rfc822_header;
241 $composeMessage->addEntity($part1);
242 $composeMessage->addEntity($part2);
243
244
245 if ($useSendmail) {
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') {
251 $sendmail_args = '';
252 } else {
253 $sendmail_args = '-i -t';
254 }
255 }
256 $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
257 $stream = $deliver->initStream($composeMessage,$sendmail_path);
258 } else {
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);
267 }
268 $success = false;
269 if ($stream) {
270 $deliver->mail($composeMessage, $stream);
271 $success = $deliver->finalizeStream($stream);
272 }
273 if (!$success) {
274 $msg = _("Message not sent.") . "\n" .
275 $deliver->dlv_msg;
276 if (! empty($deliver->dlv_server_msg)) {
277 $msg.= "\n" .
278 _("Server replied:") . ' ' . $deliver->dlv_ret_nr . ' ' .
279 nl2br(sm_encode_html_special_chars($deliver->dlv_server_msg));
280 }
281 plain_error_message($msg);
282 } else {
283 unset ($deliver);
284
285 // move to sent folder
286 //
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;
290 } else {
291 $svr_allow_sent = false;
292 }
293
294 if (isset($sent_folder) && (($sent_folder != '') || ($sent_folder != 'none'))
295 && sqimap_mailbox_exists( $imapConnection, $sent_folder)) {
296 $fld_sent = true;
297 } else {
298 $fld_sent = false;
299 }
300
301 if ((isset($move_to_sent) && ($move_to_sent != 0)) || (!isset($move_to_sent))) {
302 $lcl_allow_sent = true;
303 } else {
304 $lcl_allow_sent = false;
305 }
306
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;
311 }
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);
316 }
317 }
318 return $success;
319 }
320
321 function ToggleMDNflag ($set ,$imapConnection, $mailbox, $passed_id) {
322 $sg = $set?'+':'-';
323 $cmd = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
324 $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
325 $readmessage, TRUE);
326 }
327
328 function formatRecipientString($recipients, $item ) {
329 global $show_more, $show_more_cc, $show_more_bcc,
330 $PHP_SELF, $oTemplate;
331
332 $string = '';
333 if ((is_array($recipients)) && (isset($recipients[0]))) {
334 $show = false;
335
336 if ($item == 'to') {
337 if ($show_more) {
338 $show = true;
339 $url = set_url_var($PHP_SELF, 'show_more',0);
340 } else {
341 $url = set_url_var($PHP_SELF, 'show_more',1);
342 }
343 } else if ($item == 'cc') {
344 if ($show_more_cc) {
345 $show = true;
346 $url = set_url_var($PHP_SELF, 'show_more_cc',0);
347 } else {
348 $url = set_url_var($PHP_SELF, 'show_more_cc',1);
349 }
350 } else if ($item == 'bcc') {
351 if ($show_more_bcc) {
352 $show = true;
353 $url = set_url_var($PHP_SELF, 'show_more_bcc',0);
354 } else {
355 $url = set_url_var($PHP_SELF, 'show_more_bcc',1);
356 }
357 }
358
359 $a = array();
360 foreach ($recipients as $r) {
361 $a[] = array(
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))
366 );
367 }
368
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);
373
374 $string = $oTemplate->fetch('read_recipient_list.tpl');
375 }
376 return $string;
377 }
378
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;
384
385 $mailbox = $aMailbox['NAME'];
386
387 $header = $message->rfc822_header;
388 $env = array();
389 $env[_("Subject")] = str_replace("&nbsp;"," ",decodeHeader($header->subject));
390
391 $from_name = $header->getAddr_s('from');
392 if (!$from_name)
393 $from_name = $header->getAddr_s('sender');
394 if (!$from_name)
395 $env[_("From")] = _("Unknown sender");
396 else
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');
405 }
406 if ($show_xmailer_default) {
407 $oTemplate->assign('xmailer', decodeHeader($header->xmailer));
408 $env[_("Mailer")] = $oTemplate->fetch('read_xmailer.tpl');
409 }
410
411 // this is used for both mdn and also general use for plugins, etc
412 $oTemplate->assign('first_time_reading', $FirstTimeSee);
413
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);
424
425 $oTemplate->assign('read_receipt_sent', $message->is_mdnsent);
426 $oTemplate->assign('send_receipt_href', $mdn_url);
427
428 $env[_("Read Receipt")] = $oTemplate->fetch('read_handle_receipt.tpl');
429 }
430 }
431 }
432
433 $statuses = array();
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");
438 }
439 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered']) &&
440 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered'] === true) {
441 $statuses[] = _("answered");
442 }
443 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft']) &&
444 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft'] === true) {
445 $statuses[] = _("draft");
446 }
447 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged']) &&
448 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged'] === true) {
449 $statuses[] = _("flagged");
450 }
451 if ( count($statuses) ) {
452 $env[_("Status")] = implode(', ', $statuses);
453 }
454 }
455
456 $env[_("Options")] = formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color);
457
458
459 $oTemplate->assign('headers_to_display', $env);
460
461 $oTemplate->display('read_headers.tpl');
462 }
463
464 /**
465 * Format message toolbar
466 *
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
473 * (OPTIONAL)
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;
477 * default = TRUE)
478 */
479 function formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,
480 $removedVar=FALSE, $nav_on_top=TRUE) {
481
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;
488
489 //FIXME cleanup argument list, use $aMailbox where possible
490 $mailbox = $aMailbox['NAME'];
491
492 $urlMailbox = urlencode($mailbox);
493
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);
501 $entities = array();
502 $entity_count = array();
503 $c = 0;
504
505 foreach($message->parent->entities as $ent) {
506 if ($ent->type0 == 'message' && $ent->type1 == 'rfc822') {
507
508 $c++;
509 $entity_count[$c] = $ent->entity_id;
510 $entities[$ent->entity_id] = $c;
511 }
512 }
513
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);
517 }
518
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);
522 }
523
524 $par_ent_id = $message->parent->entity_id;
525 if ($par_ent_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);
529 }
530 }
531
532 $view_msg_href = $url;
533
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);
538
539 if ($prev >= 0) {
540 $prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
541 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
542 "&amp;where=$where&amp;what=$what" .
543 '&amp;startMessage='.$startMessage.'&amp;show_more=0';
544 }
545
546 if ($next >= 0) {
547 $next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
548 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
549 "&amp;where=$where&amp;what=$what" .
550 '&amp;startMessage='.$startMessage.'&amp;show_more=0';
551 }
552
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) ) {
557 if ($prev >= 0) {
558 $del_prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
559 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
560 '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
561 "&amp;where=$where&amp;what=$what" .
562 '&amp;delete_id='.$passed_id .
563 '&amp;smtoken='.sm_generate_security_token();
564 }
565
566 if ($next >= 0) {
567 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
568 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
569 '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
570 "&amp;where=$where&amp;what=$what" .
571 '&amp;delete_id='.$passed_id .
572 '&amp;smtoken='.sm_generate_security_token();
573 }
574 }
575 }
576
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);
580 else
581 $search_href = '';
582
583 $comp_uri = $base_uri.'src/compose.php' .
584 '?passed_id=' . $passed_id .
585 '&amp;mailbox=' . $urlMailbox .
586 '&amp;startMessage=' . $startMessage .
587 (isset($passed_ent_id) ? '&amp;passed_ent_id='.$passed_ent_id : '');
588
589 // Start form for reply/reply all/forward..
590 $target = '';
591 $on_click='';
592 $method='post';
593 $onsubmit='';
594 if ($compose_new_win == '1') {
595 if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
596 $compose_width = '640';
597 }
598 if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
599 $compose_height = '550';
600 }
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)';
604 $method='get';
605 $onsubmit = 'return false';
606 } else {
607 $target = '_blank';
608 }
609 }
610
611 $oTemplate->assign('nav_on_top', $nav_on_top);
612
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);
619
620 $oTemplate->assign('message_list_href', $msg_list_href);
621 $oTemplate->assign('search_href', $search_href);
622
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);
630
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);
635
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)) {
641 $edit_as_new = true;
642 }
643 $oTemplate->assign('can_resume_draft', $resume_draft);
644 $oTemplate->assign('can_edit_as_new', $edit_as_new);
645
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);
652 else
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 // 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 if (!(isset($passed_ent_id) && $passed_ent_id)) {
660 $oTemplate->assign('can_be_moved', true);
661 $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
662 addHidden('msg[0]', $passed_id)."\n" .
663 // only need when $return_to_message_list_after_move is off
664 addHidden('passed_id', ($next >= 0 ? $next : $prev))."\n" .
665 addHidden('startMessage', $startMessage)."\n" );
666 $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ? $lastTargetMailbox : '');
667 $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
668 } else {
669 $oTemplate->assign('can_be_moved', false);
670 $oTemplate->assign('move_form_extra', '');
671 $oTemplate->assign('last_move_target', '');
672 $oTemplate->assign('can_be_copied', false);
673 }
674 } else {
675 $oTemplate->assign('can_be_deleted', false);
676 $oTemplate->assign('move_delete_form_action', '');
677 $oTemplate->assign('delete_form_extra', '');
678 $oTemplate->assign('can_be_moved', false);
679 $oTemplate->assign('move_form_extra', '');
680 $oTemplate->assign('last_move_target', '');
681 $oTemplate->assign('can_be_copied', false);
682 }
683
684 // access keys... only add to the top menubar, because adding
685 // them twice makes them less functional (press access key, *then*
686 // press <enter> to make it work)
687 //
688 if ($nav_on_top) {
689 global $accesskey_read_msg_reply, $accesskey_read_msg_reply_all,
690 $accesskey_read_msg_forward, $accesskey_read_msg_as_attach,
691 $accesskey_read_msg_delete, $accesskey_read_msg_bypass_trash,
692 $accesskey_read_msg_move, $accesskey_read_msg_move_to,
693 $accesskey_read_msg_copy;
694 } else {
695 $accesskey_read_msg_reply = $accesskey_read_msg_reply_all =
696 $accesskey_read_msg_forward = $accesskey_read_msg_as_attach =
697 $accesskey_read_msg_delete = $accesskey_read_msg_bypass_trash =
698 $accesskey_read_msg_move = $accesskey_read_msg_move_to =
699 $accesskey_read_msg_copy = 'NONE';
700 }
701 $oTemplate->assign('accesskey_read_msg_reply', $accesskey_read_msg_reply);
702 $oTemplate->assign('accesskey_read_msg_reply_all', $accesskey_read_msg_reply_all);
703 $oTemplate->assign('accesskey_read_msg_forward', $accesskey_read_msg_forward);
704 $oTemplate->assign('accesskey_read_msg_as_attach', $accesskey_read_msg_as_attach);
705 $oTemplate->assign('accesskey_read_msg_delete', $accesskey_read_msg_delete);
706 $oTemplate->assign('accesskey_read_msg_bypass_trash', $accesskey_read_msg_bypass_trash);
707 $oTemplate->assign('accesskey_read_msg_move_to', $accesskey_read_msg_move_to);
708 $oTemplate->assign('accesskey_read_msg_move', $accesskey_read_msg_move);
709 $oTemplate->assign('accesskey_read_msg_copy', $accesskey_read_msg_copy);
710
711 global $null;
712 do_hook('read_body_menu', $null);
713
714 if ($nav_on_top) {
715 $oTemplate->display('read_menubar_nav.tpl');
716 $oTemplate->display('read_menubar_buttons.tpl');
717 } else {
718 $oTemplate->display('read_menubar_buttons.tpl');
719 $oTemplate->display('read_menubar_nav.tpl');
720 }
721
722 }
723
724 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
725 global $base_uri, $where, $what, $show_html_default,
726 $oTemplate, $download_href, $PHP_SELF,
727 $unsafe_image_toggle_href, $unsafe_image_toggle_text;
728
729 $urlMailbox = urlencode($mailbox);
730 $urlPassed_id = urlencode($passed_id);
731 $urlPassed_ent_id = urlencode($passed_ent_id);
732
733 $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
734 if (!empty($where)) {
735 $query_string .= '&amp;where=' . urlencode($where);
736 }
737 if (!empty($what)) {
738 $query_string .= '&amp;what=' . urlencode($what);
739 }
740 $url = $base_uri.'src/view_header.php?'.$query_string;
741
742 $links = array();
743 $links[] = array (
744 'URL' => $url,
745 'Text' => _("View Full Header")
746 );
747
748 if ( checkForJavaScript() ) {
749 $links[] = array (
750 'URL' => 'javascript:printThis();',
751 'Text' => _("Print"),
752 );
753 } else {
754 $links[] = array (
755 'URL' => set_url_var($PHP_SELF, 'print', '1'),
756 'Text' => _("Print"),
757 'Target' => '_blank'
758 );
759 }
760
761 $links[] = array (
762 'URL' => $download_href,
763 'Text' => _("Download this as a file")
764 );
765 $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
766 if (!empty($toggle)) {
767 $links[] = array (
768 'URL' => $toggle,
769 'Text' => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
770 );
771 }
772 if (!empty($unsafe_image_toggle_href)) {
773 $links[] = array (
774 'URL' => $unsafe_image_toggle_href,
775 'Text' => $unsafe_image_toggle_text
776 );
777 }
778
779 do_hook('read_body_header_right', $links);
780
781 $oTemplate->assign('links', $links);
782
783 return $oTemplate->fetch('read_toolbar.tpl');
784 }
785
786 /***************************/
787 /* Main of read_body.php */
788 /***************************/
789
790 /* get the globals we may need */
791
792 sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
793 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
794 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
795 $messages = array();
796 }
797 sqgetGlobalVar('delayed_errors', $delayed_errors, SQ_SESSION);
798 if (is_array($delayed_errors)) {
799 $oErrorHandler->AssignDelayedErrors($delayed_errors);
800 sqsession_unregister("delayed_errors");
801 }
802 /** GET VARS */
803 sqgetGlobalVar('sendreceipt', $sendreceipt, SQ_GET);
804 if (!sqgetGlobalVar('where', $where, SQ_GET) ) {
805 $where = 'right_main.php';
806 }
807 /*
808 * Used as entry key to the list of uid's cached in the mailbox cache
809 * we use the cached uid's to get the next and prev message.
810 */
811 if (!sqgetGlobalVar('what', $what, SQ_GET) ){
812 $what = 0;
813 }
814 if ( sqgetGlobalVar('show_more', $temp, SQ_GET) ) {
815 $show_more = (int) $temp;
816 }
817 if ( sqgetGlobalVar('show_more_cc', $temp, SQ_GET) ) {
818 $show_more_cc = (int) $temp;
819 }
820 if ( sqgetGlobalVar('show_more_bcc', $temp, SQ_GET) ) {
821 $show_more_bcc = (int) $temp;
822 }
823 if ( sqgetGlobalVar('view_hdr', $temp, SQ_GET) ) {
824 $view_hdr = (int) $temp;
825 }
826
827 if ( sqgetGlobalVar('account', $temp, SQ_GET) ) {
828 $iAccount = (int) $temp;
829 } else {
830 $iAccount = 0;
831 }
832
833 /** GET/POST VARS */
834 sqgetGlobalVar('passed_id', $passed_id, SQ_INORDER, NULL, SQ_TYPE_BIGINT);
835 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
836 sqgetGlobalVar('mailbox', $mailbox);
837
838 if ( sqgetGlobalVar('sort', $temp) ) {
839 $sort = (int) $temp;
840 }
841 if ( sqgetGlobalVar('startMessage', $temp) ) {
842 $startMessage = (int) $temp;
843 } else {
844 $startMessage = 1;
845 }
846 if(sqgetGlobalVar('show_html_default', $temp)) {
847 $show_html_default = (int) $temp;
848 }
849
850 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
851 $view_unsafe_images = (int) $temp;
852 if($view_unsafe_images == 1) {
853 $show_html_default = 1;
854 }
855 } else {
856 $view_unsafe_images = 0;
857 }
858
859 /**
860 * Retrieve mailbox cache
861 */
862 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
863
864 /* end of get globals */
865
866 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
867 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
868
869
870 /**
871 Start code to set the columns to fetch in case of hitting the next/prev link
872 The reason for this is the fact that the cache can be invalidated which means that the headers
873 to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
874
875 Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
876 */
877
878 /**
879 * Replace From => To in case it concerns a draft or sent folder
880 */
881 $aColumns = array();
882 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
883 !in_array(SQM_COL_TO,$index_order)) {
884 $aNewOrder = array(); // nice var name ;)
885 foreach($index_order as $iCol) {
886 if ($iCol == SQM_COL_FROM) {
887 $iCol = SQM_COL_TO;
888 }
889 $aColumns[$iCol] = array();
890 }
891 } else {
892 foreach ($index_order as $iCol) {
893 $aColumns[$iCol] = array();
894 }
895 }
896
897 $aProps = array(
898 'columns' => $aColumns, // columns bound settings
899 'config' => array(
900 'highlight_list' => $message_highlight_list, // row highlighting rules
901 'trash_folder' => $trash_folder,
902 'sent_folder' => $sent_folder,
903 'draft_folder' => $draft_folder));
904
905 calcFetchColumns($aMailbox,$aProps);
906
907 /**
908 End code to set the columns to fetch in case of hitting the next/prev link
909 */
910
911
912
913 /**
914 * Check if cache is still valid, $what contains the key
915 * which gives us acces to the array with uid's. At this moment
916 * 0 is used for a normal message list and search uses 1 as key. This can be
917 * changed / extended in the future.
918 * If on a select of a mailbox we detect that the cache should be invalidated due to
919 * the delete of messages or due to new messages we empty the list with uid's and
920 * that's what we detect below.
921 */
922 if (!is_array($aMailbox['UIDSET'][$what])) {
923 fetchMessageHeaders($imapConnection, $aMailbox);
924 }
925
926 $iSetIndex = $aMailbox['SETINDEX'];
927 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
928
929 /**
930 * Update the seen state
931 * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
932 */
933 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
934 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
935 }
936
937 /**
938 * Process Delete from delete-move-next
939 * but only if delete_id was set
940 */
941 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
942 handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
943 }
944
945 /**
946 * or delete button... why is handleMessageListForm (per above) conditional anway?
947 */
948 if ( sqgetGlobalVar('delete', $ignore, SQ_POST) ) {
949 $sError = handleMessageListForm($imapConnection,$aMailbox);
950 }
951
952 /**
953 * or move button... why is handleMessageListForm (per above) conditional anway?
954 */
955 if ( sqgetGlobalVar('moveButton', $ignore, SQ_POST) ) {
956 $sError = handleMessageListForm($imapConnection,$aMailbox);
957 sqgetGlobalVar('targetMailbox', $lastTargetMailbox, SQ_POST);
958 }
959
960 /**
961 * $message contains all information about the message
962 * including header and body
963 */
964
965 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
966 $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
967 $FirstTimeSee = !$message->is_seen;
968 } else {
969 $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
970 $FirstTimeSee = !$message->is_seen;
971 }
972
973 /**
974 * update message seen status and put in cache
975 */
976 $message->is_seen = true;
977 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
978
979 if (isset($passed_ent_id) && $passed_ent_id) {
980 $message = $message->getEntity($passed_ent_id);
981 if ($message->type0 != 'message' && $message->type1 != 'rfc822') {
982 $message = $message->parent;
983 }
984 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
985 $rfc822_header = new Rfc822Header();
986 $rfc822_header->parseHeader($read);
987 $message->rfc822_header = $rfc822_header;
988 } else if ($message->type0 == 'message' && $message->type1 == 'rfc822' && isset($message->entities[0])) {
989 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
990 $rfc822_header = new Rfc822Header();
991 $rfc822_header->parseHeader($read);
992 $message->rfc822_header = $rfc822_header;
993 } else {
994 $passed_ent_id = 0;
995 }
996 $header = $message->header;
997
998 // gmail does not mark messages as read when retrieving the message body
999 // even though RFC 3501, section 6.4.5 (FETCH Command) says:
1000 // "The \Seen flag is implicitly set; if this causes the flags to change,
1001 // they SHOULD be included as part of the FETCH responses."
1002 //
1003 if ($imap_server_type == 'gmail') {
1004 sqimap_toggle_flag($imapConnection, array($passed_id), '\\Seen', true, true);
1005 }
1006
1007 /****************************************/
1008 /* Block for handling incoming url vars */
1009 /****************************************/
1010
1011 if (isset($sendreceipt)) {
1012 if ( !$message->is_mdnsent ) {
1013 $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
1014 if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
1015 ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
1016 $message->is_mdnsent = true;
1017 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
1018 }
1019 }
1020 }
1021 /***********************************************/
1022 /* End of block for handling incoming url vars */
1023 /***********************************************/
1024
1025 $oTemplate->assign('aAttribs', array('class' => 'entity_sep'));
1026 $hr = $oTemplate->fetch('horizontal_rule.tpl');
1027 $messagebody = '';
1028 do_hook('read_body_top', $null);
1029 if ($show_html_default == 1) {
1030 $ent_ar = $message->findDisplayEntity(array());
1031 } else {
1032 $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
1033 }
1034 $cnt = count($ent_ar);
1035 for ($i = 0; $i < $cnt; $i++) {
1036 $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
1037 if ($i != $cnt-1) {
1038 $messagebody .= $hr;
1039 }
1040 }
1041
1042 /**
1043 * Write mailbox with updated seen flag information back to cache.
1044 */
1045 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
1046 sqsession_register($mailbox_cache,'mailbox_cache');
1047 $_SESSION['mailbox_cache'] = $mailbox_cache;
1048
1049 // message list URI is used in page header when on read_body
1050 $oTemplate->assign('message_list_href', get_message_list_uri($aMailbox['NAME'], $startMessage, $what));
1051
1052 displayPageHeader($color, $mailbox,'','');
1053
1054 /* this is the non-javascript version of printer friendly */
1055 if ( sqgetGlobalVar('print', $print, SQ_GET) ) {
1056 $oTemplate->display('read_message_print.tpl');
1057 } else {
1058 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,false);
1059 }
1060 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
1061
1062 $oTemplate->assign('message_body', $messagebody);
1063 $oTemplate->display('read_message_body.tpl');
1064
1065 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
1066
1067 /* show attached images inline -- if pref'fed so */
1068 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
1069 $images = array();
1070 foreach ($attachment_common_show_images_list as $img) {
1071 $imgurl = SM_PATH . 'src/download.php' .
1072 '?' .
1073 'passed_id=' . urlencode($img['passed_id']) .
1074 '&amp;mailbox=' . urlencode($mailbox) .
1075 '&amp;ent_id=' . urlencode($img['ent_id']) .
1076 '&amp;absolute_dl=true';
1077 $a = array();
1078 $a['Name'] = $img['name'];
1079 $a['DisplayURL'] = $imgurl;
1080 $a['DownloadURL'] = $img['download_href'];
1081 $images[] = $a;
1082 }
1083
1084 $oTemplate->assign('images', $images);
1085 $oTemplate->display('read_display_images_inline.tpl');
1086 }
1087
1088 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
1089
1090 do_hook('read_body_bottom', $null);
1091 sqimap_logout($imapConnection);
1092 $oTemplate->display('footer.tpl');