79775467f022aa0a2c493d6991d661ae8626028e
[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 &copy; 1999-2007 The SquirrelMail Project Team
10 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
11 * @version $Id$
12 * @package squirrelmail
13 */
14
15 /** This is the read_body page */
16 define('PAGE_NAME', 'read_body');
17
18 /**
19 * Include the SquirrelMail initialization file.
20 */
21 require('../include/init.php');
22
23 /* SquirrelMail required files. */
24 require_once(SM_PATH . 'functions/imap.php');
25 require_once(SM_PATH . 'functions/imap_asearch.php'); // => move to mailbox_display
26 require_once(SM_PATH . 'functions/mime.php');
27 require_once(SM_PATH . 'functions/date.php');
28 require_once(SM_PATH . 'functions/url_parser.php');
29 require_once(SM_PATH . 'functions/identity.php');
30 require_once(SM_PATH . 'functions/mailbox_display.php');
31 require_once(SM_PATH . 'functions/forms.php');
32 require_once(SM_PATH . 'functions/attachment_common.php');
33 require_once(SM_PATH . 'functions/compose.php');
34
35 /**
36 * Given an IMAP message id number, this will look it up in the cached
37 * and sorted msgs array and return the index of the next message
38 *
39 * @param int $passed_id The current message UID
40 * @return the index of the next valid message from the array
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 next valid message from the array
63 */
64
65 function findPreviousMessage($uidset, $passed_id) {
66 if (!is_array($uidset)) {
67 return -1;
68 }
69 $result = sqm_array_get_value_by_offset($uidset,$passed_id,-1);
70 if ($result === false) {
71 return -1;
72 } else {
73 return $result;
74 }
75 }
76
77 function html_toggle_href ($mailbox, $passed_id, $passed_ent_id, $message) {
78 global $base_uri, $show_html_default;
79
80 $has_html = false;
81 if ($message->header->type0 == 'message' && $message->header->type1 == 'rfc822') {
82 $type0 = $message->rfc822_header->content_type->type0;
83 $type1 = $message->rfc822_header->content_type->type1;
84 } else {
85 $type0 = $message->header->type0;
86 $type1 = $message->header->type1;
87 }
88 if($type0 == 'multipart' &&
89 ($type1 == 'alternative' || $type1 == 'mixed' || $type1 == 'related' || $type1=='signed')) {
90 if ($message->findDisplayEntity(array(), array('text/html'), true)) {
91 $has_html = true;
92 }
93 }
94 /*
95 * Normal single part message so check its type.
96 */
97 else {
98 if($type0 == 'text' && $type1 == 'html') {
99 $has_html = true;
100 }
101 }
102 if($has_html == true) {
103 $vars = array('passed_ent_id', 'show_more', 'show_more_cc', 'override_type0', 'override_type1', 'startMessage','where', 'what');
104
105 $new_link = $base_uri . 'src/read_body.php?passed_id=' . urlencode($passed_id) .
106 '&amp;passed_ent_id=' . urlencode($passed_ent_id) .
107 '&amp;mailbox=' . urlencode($mailbox);
108 foreach($vars as $var) {
109 if(sqgetGlobalVar($var, $temp)) {
110 $new_link .= '&amp;' . $var . '=' . urlencode($temp);
111 }
112 }
113
114 if($show_html_default == 1) {
115 $new_link .= '&amp;show_html_default=0';
116 } else {
117 $new_link .= '&amp;show_html_default=1';
118 }
119 return $new_link;
120 }
121 return '';
122 }
123
124 function ServerMDNSupport($aFlags) {
125 /* escaping $ doesn't work -> \x36 */
126 return ( in_array('$mdnsent',$aFlags,true) ||
127 in_array('\\*',$aFlags,true) ) ;
128 }
129
130 function SendMDN ( $mailbox, $passed_id, $message, $imapConnection) {
131 global $squirrelmail_language, $default_charset, $default_move_to_sent,
132 $languages, $useSendmail, $domain, $sent_folder, $username,
133 $data_dir;
134
135 sqgetGlobalVar('SERVER_NAME', $SERVER_NAME, SQ_SERVER);
136
137 $header = $message->rfc822_header;
138
139 $rfc822_header = new Rfc822Header();
140 $content_type = new ContentType('multipart/report');
141 $content_type->properties['report-type']='disposition-notification';
142
143 set_my_charset();
144 if ($default_charset) {
145 $content_type->properties['charset']=$default_charset;
146 }
147 $rfc822_header->content_type = $content_type;
148 $rfc822_header->to[] = $header->dnt;
149 $rfc822_header->subject = _("Read:") . ' ' . decodeHeader($header->subject,true,false);
150
151 $idents = get_identities();
152 $needles = array();
153 if ($header->to) {
154 foreach ($header->to as $message_to) {
155 $needles[] = $message_to->mailbox.'@'.$message_to->host;
156 }
157 }
158 $identity = find_identity($needles);
159 $from_addr = build_from_header($identity);
160 $reply_to = isset($idents[$identity]['reply_to']) ? $idents[$identity]['reply_to'] : '';
161 // FIXME: this must actually be the envelope address of the orginal message,
162 // but do we have that information? For now the first identity is our best guess.
163 $final_recipient = $idents[0]['email_address'];
164
165 $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
166 if ($reply_to) {
167 $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
168 }
169
170 // part 1 (RFC2298)
171 $senton = getLongDateString( $header->date, $header->date_unparsed );
172 $to_array = $header->to;
173 $to = '';
174 foreach ($to_array as $line) {
175 $to .= ' '.$line->getAddress();
176 }
177 $now = getLongDateString( time() );
178 set_my_charset();
179 $body = _("Your message") . "\r\n\r\n" .
180 "\t" . _("To") . ': ' . decodeHeader($to,false,false) . "\r\n" .
181 "\t" . _("Subject") . ': ' . decodeHeader($header->subject,false,false) . "\r\n" .
182 "\t" . _("Sent") . ': ' . $senton . "\r\n" .
183 "\r\n" .
184 sprintf( _("Was displayed on %s"), $now );
185
186 $special_encoding = '';
187 if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
188 function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode')) {
189 $body = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode', $body);
190 if (strtolower($default_charset) == 'iso-2022-jp') {
191 if (mb_detect_encoding($body) == 'ASCII') {
192 $special_encoding = '8bit';
193 } else {
194 $body = mb_convert_encoding($body, 'JIS');
195 $special_encoding = '7bit';
196 }
197 }
198 } elseif (sq_is8bit($body)) {
199 $special_encoding = '8bit';
200 }
201 $part1 = new Message();
202 $part1->setBody($body);
203 $mime_header = new MessageHeader;
204 $mime_header->type0 = 'text';
205 $mime_header->type1 = 'plain';
206 if ($special_encoding) {
207 $mime_header->encoding = $special_encoding;
208 } else {
209 $mime_header->encoding = 'us-ascii';
210 }
211 if ($default_charset) {
212 $mime_header->parameters['charset'] = $default_charset;
213 }
214 $part1->mime_header = $mime_header;
215
216 // part2 (RFC2298)
217 $original_recipient = $to;
218 $original_message_id = $header->message_id;
219
220 $report = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version " . SM_VERSION . ") \r\n";
221 if ($original_recipient != '') {
222 $report .= "Original-Recipient : $original_recipient\r\n";
223 }
224 $report .= "Final-Recipient: rfc822; $final_recipient\r\n" .
225 "Original-Message-ID : $original_message_id\r\n" .
226 "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
227
228 $part2 = new Message();
229 $part2->setBody($report);
230 $mime_header = new MessageHeader;
231 $mime_header->type0 = 'message';
232 $mime_header->type1 = 'disposition-notification';
233 $mime_header->encoding = 'us-ascii';
234 $part2->mime_header = $mime_header;
235
236 $composeMessage = new Message();
237 $composeMessage->rfc822_header = $rfc822_header;
238 $composeMessage->addEntity($part1);
239 $composeMessage->addEntity($part2);
240
241
242 if ($useSendmail) {
243 require_once(SM_PATH . 'class/deliver/Deliver_SendMail.class.php');
244 global $sendmail_path, $sendmail_args;
245 // Check for outdated configuration
246 if (!isset($sendmail_args)) {
247 if ($sendmail_path=='/var/qmail/bin/qmail-inject') {
248 $sendmail_args = '';
249 } else {
250 $sendmail_args = '-i -t';
251 }
252 }
253 $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
254 $stream = $deliver->initStream($composeMessage,$sendmail_path);
255 } else {
256 require_once(SM_PATH . 'class/deliver/Deliver_SMTP.class.php');
257 $deliver = new Deliver_SMTP();
258 global $smtpServerAddress, $smtpPort, $pop_before_smtp;
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);
263 }
264 $success = false;
265 if ($stream) {
266 $deliver->mail($composeMessage, $stream);
267 $success = $deliver->finalizeStream($stream);
268 }
269 if (!$success) {
270 $msg = _("Message not sent.") . "\n" .
271 $deliver->dlv_msg;
272 if (! empty($deliver->dlv_server_msg)) {
273 $msg.= "\n" .
274 _("Server replied:") . ' ' . $deliver->dlv_ret_nr . ' ' .
275 nl2br(htmlspecialchars($deliver->dlv_server_msg));
276 }
277 plain_error_message($msg);
278 } else {
279 unset ($deliver);
280
281 // move to sent folder
282 //
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;
286 } else {
287 $svr_allow_sent = false;
288 }
289
290 if (isset($sent_folder) && (($sent_folder != '') || ($sent_folder != 'none'))
291 && sqimap_mailbox_exists( $imapConnection, $sent_folder)) {
292 $fld_sent = true;
293 } else {
294 $fld_sent = false;
295 }
296
297 if ((isset($move_to_sent) && ($move_to_sent != 0)) || (!isset($move_to_sent))) {
298 $lcl_allow_sent = true;
299 } else {
300 $lcl_allow_sent = false;
301 }
302
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;
307 }
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, $imapConnection, $sent_folder);
311 unset ($imap_deliver);
312 }
313 }
314 return $success;
315 }
316
317 function ToggleMDNflag ($set ,$imapConnection, $mailbox, $passed_id) {
318 $sg = $set?'+':'-';
319 $cmd = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
320 $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
321 $readmessage, TRUE);
322 }
323
324 function formatRecipientString($recipients, $item ) {
325 global $show_more, $show_more_cc, $show_more_bcc,
326 $PHP_SELF, $oTemplate;
327
328 $string = '';
329 if ((is_array($recipients)) && (isset($recipients[0]))) {
330 $show = false;
331
332 if ($item == 'to') {
333 if ($show_more) {
334 $show = true;
335 $url = set_url_var($PHP_SELF, 'show_more',0);
336 } else {
337 $url = set_url_var($PHP_SELF, 'show_more',1);
338 }
339 } else if ($item == 'cc') {
340 if ($show_more_cc) {
341 $show = true;
342 $url = set_url_var($PHP_SELF, 'show_more_cc',0);
343 } else {
344 $url = set_url_var($PHP_SELF, 'show_more_cc',1);
345 }
346 } else if ($item == 'bcc') {
347 if ($show_more_bcc) {
348 $show = true;
349 $url = set_url_var($PHP_SELF, 'show_more_bcc',0);
350 } else {
351 $url = set_url_var($PHP_SELF, 'show_more_bcc',1);
352 }
353 }
354
355 $a = array();
356 foreach ($recipients as $r) {
357 $a[] = array(
358 // note: decodeHeader is htmlsafe by default
359 'Name' => decodeHeader($r->getAddress(false)),
360 'Email' => htmlspecialchars($r->getEmail()),
361 'Full' => decodeHeader($r->getAddress(true))
362 );
363 }
364
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);
369
370 $string = $oTemplate->fetch('read_recipient_list.tpl');
371 }
372 return $string;
373 }
374
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;
380
381 $mailbox = $aMailbox['NAME'];
382
383 $header = $message->rfc822_header;
384 $env = array();
385 $env[_("Subject")] = str_replace("&nbsp;"," ",decodeHeader($header->subject));
386
387 $from_name = $header->getAddr_s('from');
388 if (!$from_name)
389 $from_name = $header->getAddr_s('sender');
390 if (!$from_name)
391 $env[_("From")] = _("Unknown sender");
392 else
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');
401 }
402 if ($show_xmailer_default) {
403 $oTemplate->assign('xmailer', decodeHeader($header->xmailer));
404 $env[_("Mailer")] = $oTemplate->fetch('read_xmailer.tpl');
405 }
406
407 // this is used for both mdn and also general use for plugins, etc
408 $oTemplate->assign('first_time_reading', $FirstTimeSee);
409
410 if ($default_use_mdn) {
411 if ($mdn_user_support) {
412 if ($header->dnt) {
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);
418
419 $oTemplate->assign('read_receipt_sent', $message->is_mdnsent);
420 $oTemplate->assign('send_receipt_href', $mdn_url);
421
422 $env[_("Read Receipt")] = $oTemplate->fetch('read_handle_receipt.tpl');
423 }
424 }
425 }
426
427 $statuses = array();
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");
432 }
433 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered']) &&
434 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered'] === true) {
435 $statuses[] = _("answered");
436 }
437 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft']) &&
438 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft'] === true) {
439 $statuses[] = _("draft");
440 }
441 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged']) &&
442 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged'] === true) {
443 $statuses[] = _("flagged");
444 }
445 if ( count($statuses) ) {
446 $env[_("Status")] = implode(', ', $statuses);
447 }
448 }
449
450 $env[_("Options")] = formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color);
451
452
453 $oTemplate->assign('headers_to_display', $env);
454
455 $oTemplate->display('read_headers.tpl');
456 }
457
458 /**
459 * Format message toolbar
460 *
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
466 */
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,
473 $oTemplate;
474
475 //FIXME cleanup argument list, use $aMailbox where possible
476 $mailbox = $aMailbox['NAME'];
477
478 $urlMailbox = urlencode($mailbox);
479
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);
487 $entities = array();
488 $entity_count = array();
489 $c = 0;
490
491 foreach($message->parent->entities as $ent) {
492 if ($ent->type0 == 'message' && $ent->type1 == 'rfc822') {
493
494 $c++;
495 $entity_count[$c] = $ent->entity_id;
496 $entities[$ent->entity_id] = $c;
497 }
498 }
499
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);
503 }
504
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);
508 }
509
510 $par_ent_id = $message->parent->entity_id;
511 if ($par_ent_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);
515 }
516 }
517
518 $view_msg_href = $url;
519
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);
524
525 if ($prev >= 0) {
526 $prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
527 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
528 "&amp;where=$where&amp;what=$what" .
529 '&amp;startMessage='.$startMessage.'&amp;show_more=0';
530 }
531
532 if ($next >= 0) {
533 $next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
534 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
535 "&amp;where=$where&amp;what=$what" .
536 '&amp;startMessage='.$startMessage.'&amp;show_more=0';
537 }
538
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) ) {
543 if ($prev >= 0) {
544 $del_prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
545 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
546 '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
547 "&amp;where=$where&amp;what=$what" .
548 '&amp;delete_id='.$passed_id;
549 }
550
551 if ($next >= 0) {
552 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
553 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
554 '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
555 "&amp;where=$where&amp;what=$what" .
556 '&amp;delete_id='.$passed_id;
557 }
558 }
559 }
560
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);
564 else
565 $search_href = '';
566
567 $comp_uri = $base_uri.'src/compose.php' .
568 '?passed_id=' . $passed_id .
569 '&amp;mailbox=' . $urlMailbox .
570 '&amp;startMessage=' . $startMessage .
571 (isset($passed_ent_id) ? '&amp;passed_ent_id='.$passed_ent_id : '');
572
573 // Start form for reply/reply all/forward..
574 $target = '';
575 $on_click='';
576 $method='post';
577 $onsubmit='';
578 if ($compose_new_win == '1') {
579 if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
580 $compose_width = '640';
581 }
582 if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
583 $compose_height = '550';
584 }
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)';
588 $method='get';
589 $onsubmit = 'return false';
590 } else {
591 $target = '_blank';
592 }
593 }
594
595 $oTemplate->assign('nav_on_top', $nav_on_top);
596
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);
603
604 $oTemplate->assign('message_list_href', $msg_list_href);
605 $oTemplate->assign('search_href', $search_href);
606
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);
614
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);
619
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)) {
625 $edit_as_new = true;
626 }
627 $oTemplate->assign('can_resume_draft', $resume_draft);
628 $oTemplate->assign('can_edit_as_new', $edit_as_new);
629
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);
644 } else {
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);
649 }
650 } else {
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);
658 }
659
660 global $null;
661 do_hook('read_body_menu', $null);
662
663 if ($nav_on_top) {
664 $oTemplate->display('read_menubar_nav.tpl');
665 $oTemplate->display('read_menubar_buttons.tpl');
666 } else {
667 $oTemplate->display('read_menubar_buttons.tpl');
668 $oTemplate->display('read_menubar_nav.tpl');
669 }
670
671 }
672
673 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
674 global $base_uri, $where, $what, $show_html_default,
675 $oTemplate, $download_href, $PHP_SELF,
676 $unsafe_image_toggle_href, $unsafe_image_toggle_text;
677
678 $urlMailbox = urlencode($mailbox);
679 $urlPassed_id = urlencode($passed_id);
680 $urlPassed_ent_id = urlencode($passed_ent_id);
681
682 $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
683 if (!empty($where)) {
684 $query_string .= '&amp;where=' . urlencode($where);
685 }
686 if (!empty($what)) {
687 $query_string .= '&amp;what=' . urlencode($what);
688 }
689 $url = $base_uri.'src/view_header.php?'.$query_string;
690
691 $links = array();
692 $links[] = array (
693 'URL' => $url,
694 'Text' => _("View Full Header")
695 );
696
697 if ( checkForJavaScript() ) {
698 $links[] = array (
699 'URL' => 'javascript:printThis();',
700 'Text' => _("Print"),
701 );
702 } else {
703 $links[] = array (
704 'URL' => set_url_var($PHP_SELF, 'print', '1'),
705 'Text' => _("Print"),
706 'Target' => '_blank'
707 );
708 }
709
710 $links[] = array (
711 'URL' => $download_href,
712 'Text' => _("Download this as a file")
713 );
714 $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
715 if (!empty($toggle)) {
716 $links[] = array (
717 'URL' => $toggle,
718 'Text' => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
719 );
720 }
721 if (!empty($unsafe_image_toggle_href)) {
722 $links[] = array (
723 'URL' => $unsafe_image_toggle_href,
724 'Text' => $unsafe_image_toggle_text
725 );
726 }
727
728 do_hook('read_body_header_right', $links);
729
730 $oTemplate->assign('links', $links);
731
732 return $oTemplate->fetch('read_toolbar.tpl');
733 }
734
735 /***************************/
736 /* Main of read_body.php */
737 /***************************/
738
739 /* get the globals we may need */
740
741 sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
742 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
743 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
744 $messages = array();
745 }
746 sqgetGlobalVar('delayed_errors', $delayed_errors, SQ_SESSION);
747 if (is_array($delayed_errors)) {
748 $oErrorHandler->AssignDelayedErrors($delayed_errors);
749 sqsession_unregister("delayed_errors");
750 }
751 /** GET VARS */
752 sqgetGlobalVar('sendreceipt', $sendreceipt, SQ_GET);
753 if (!sqgetGlobalVar('where', $where, SQ_GET) ) {
754 $where = 'right_main.php';
755 }
756 /*
757 * Used as entry key to the list of uid's cached in the mailbox cache
758 * we use the cached uid's to get the next and prev message.
759 */
760 if (!sqgetGlobalVar('what', $what, SQ_GET) ){
761 $what = 0;
762 }
763 if ( sqgetGlobalVar('show_more', $temp, SQ_GET) ) {
764 $show_more = (int) $temp;
765 }
766 if ( sqgetGlobalVar('show_more_cc', $temp, SQ_GET) ) {
767 $show_more_cc = (int) $temp;
768 }
769 if ( sqgetGlobalVar('show_more_bcc', $temp, SQ_GET) ) {
770 $show_more_bcc = (int) $temp;
771 }
772 if ( sqgetGlobalVar('view_hdr', $temp, SQ_GET) ) {
773 $view_hdr = (int) $temp;
774 }
775
776 if ( sqgetGlobalVar('account', $temp, SQ_GET) ) {
777 $iAccount = (int) $temp;
778 } else {
779 $iAccount = 0;
780 }
781
782 /** GET/POST VARS */
783 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
784 sqgetGlobalVar('mailbox', $mailbox);
785
786 if ( sqgetGlobalVar('passed_id', $temp) ) {
787 $passed_id = (int) $temp;
788 }
789 if ( sqgetGlobalVar('sort', $temp) ) {
790 $sort = (int) $temp;
791 }
792 if ( sqgetGlobalVar('startMessage', $temp) ) {
793 $startMessage = (int) $temp;
794 } else {
795 $startMessage = 1;
796 }
797 if(sqgetGlobalVar('show_html_default', $temp)) {
798 $show_html_default = (int) $temp;
799 }
800
801 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
802 $view_unsafe_images = (int) $temp;
803 if($view_unsafe_images == 1) {
804 $show_html_default = 1;
805 }
806 } else {
807 $view_unsafe_images = 0;
808 }
809
810 /**
811 * Retrieve mailbox cache
812 */
813 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
814
815 /* end of get globals */
816
817 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
818 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
819
820
821 /**
822 Start code to set the columns to fetch in case of hitting the next/prev link
823 The reason for this is the fact that the cache can be invalidated which means that the headers
824 to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
825
826 Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
827 */
828
829 /**
830 * Replace From => To in case it concerns a draft or sent folder
831 */
832 $aColumns = array();
833 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
834 !in_array(SQM_COL_TO,$index_order)) {
835 $aNewOrder = array(); // nice var name ;)
836 foreach($index_order as $iCol) {
837 if ($iCol == SQM_COL_FROM) {
838 $iCol = SQM_COL_TO;
839 }
840 $aColumns[$iCol] = array();
841 }
842 } else {
843 foreach ($index_order as $iCol) {
844 $aColumns[$iCol] = array();
845 }
846 }
847
848 $aProps = array(
849 'columns' => $aColumns, // columns bound settings
850 'config' => array(
851 'highlight_list' => $message_highlight_list, // row highlighting rules
852 'trash_folder' => $trash_folder,
853 'sent_folder' => $sent_folder,
854 'draft_folder' => $draft_folder));
855
856 calcFetchColumns($aMailbox,$aProps);
857
858 /**
859 End code to set the columns to fetch in case of hitting the next/prev link
860 */
861
862
863
864 /**
865 * Check if cache is still valid, $what contains the key
866 * which gives us acces to the array with uid's. At this moment
867 * 0 is used for a normal message list and search uses 1 as key. This can be
868 * changed / extended in the future.
869 * If on a select of a mailbox we detect that the cache should be invalidated due to
870 * the delete of messages or due to new messages we empty the list with uid's and
871 * that's what we detect below.
872 */
873 if (!is_array($aMailbox['UIDSET'][$what])) {
874 fetchMessageHeaders($imapConnection, $aMailbox);
875 }
876
877 $iSetIndex = $aMailbox['SETINDEX'];
878 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
879
880 /**
881 * Update the seen state
882 * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
883 */
884 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
885 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
886 }
887
888 /**
889 * Process Delete from delete-move-next
890 * but only if delete_id was set
891 */
892 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
893 handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
894 }
895
896 /**
897 * $message contains all information about the message
898 * including header and body
899 */
900
901 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
902 $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
903 $FirstTimeSee = !$message->is_seen;
904 } else {
905 $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
906 $FirstTimeSee = !$message->is_seen;
907 }
908
909 /**
910 * update message seen status and put in cache
911 */
912 $message->is_seen = true;
913 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
914
915 if (isset($passed_ent_id) && $passed_ent_id) {
916 $message = $message->getEntity($passed_ent_id);
917 if ($message->type0 != 'message' && $message->type1 != 'rfc822') {
918 $message = $message->parent;
919 }
920 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
921 $rfc822_header = new Rfc822Header();
922 $rfc822_header->parseHeader($read);
923 $message->rfc822_header = $rfc822_header;
924 } else if ($message->type0 == 'message' && $message->type1 == 'rfc822' && isset($message->entities[0])) {
925 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
926 $rfc822_header = new Rfc822Header();
927 $rfc822_header->parseHeader($read);
928 $message->rfc822_header = $rfc822_header;
929 } else {
930 $passed_ent_id = 0;
931 }
932 $header = $message->header;
933
934
935 /****************************************/
936 /* Block for handling incoming url vars */
937 /****************************************/
938
939 if (isset($sendreceipt)) {
940 if ( !$message->is_mdnsent ) {
941 $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
942 if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
943 ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
944 $message->is_mdnsent = true;
945 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
946 }
947 }
948 }
949 /***********************************************/
950 /* End of block for handling incoming url vars */
951 /***********************************************/
952
953 $messagebody = '';
954 do_hook('read_body_top', $null);
955 if ($show_html_default == 1) {
956 $ent_ar = $message->findDisplayEntity(array());
957 } else {
958 $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
959 }
960 $cnt = count($ent_ar);
961 for ($i = 0; $i < $cnt; $i++) {
962 $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
963 if ($i != $cnt-1) {
964 $messagebody .= '<hr class="entity_sep" />';
965 }
966 }
967
968 /**
969 * Write mailbox with updated seen flag information back to cache.
970 */
971 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
972 sqsession_register($mailbox_cache,'mailbox_cache');
973 $_SESSION['mailbox_cache'] = $mailbox_cache;
974
975 // message list URI is used in page header when on read_body
976 $oTemplate->assign('message_list_href', get_message_list_uri($aMailbox['NAME'], $startMessage, $what));
977
978 displayPageHeader($color, $mailbox,'','');
979
980 /* this is the non-javascript version of printer friendly */
981 if ( sqgetGlobalVar('print', $print, SQ_GET) ) {
982 $oTemplate->display('read_message_print.tpl');
983 } else {
984 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,false);
985 }
986 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
987
988 $oTemplate->assign('message_body', $messagebody);
989 $oTemplate->display('read_message_body.tpl');
990
991 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
992
993 /* show attached images inline -- if pref'fed so */
994 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
995 $images = array();
996 foreach ($attachment_common_show_images_list as $img) {
997 $imgurl = SM_PATH . 'src/download.php' .
998 '?' .
999 'passed_id=' . urlencode($img['passed_id']) .
1000 '&amp;mailbox=' . urlencode($mailbox) .
1001 '&amp;ent_id=' . urlencode($img['ent_id']) .
1002 '&amp;absolute_dl=true';
1003 $a = array();
1004 $a['Name'] = $img['name'];
1005 $a['DisplayURL'] = $imgurl;
1006 $a['DownloadURL'] = $img['download_href'];
1007 $images[] = $a;
1008 }
1009
1010 $oTemplate->assign('images', $images);
1011 $oTemplate->display('read_display_images_inline.tpl');
1012 }
1013
1014 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
1015
1016 do_hook('read_body_bottom', $null);
1017 sqimap_logout($imapConnection);
1018 $oTemplate->display('footer.tpl');