a814cd6ca2c94e72450b73177af31d5eab3d08b1
[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,
132 $languages, $useSendmail, $domain, $sent_folder;
133
134 sqgetGlobalVar('SERVER_NAME', $SERVER_NAME, SQ_SERVER);
135
136 $header = $message->rfc822_header;
137
138 $rfc822_header = new Rfc822Header();
139 $content_type = new ContentType('multipart/report');
140 $content_type->properties['report-type']='disposition-notification';
141
142 set_my_charset();
143 if ($default_charset) {
144 $content_type->properties['charset']=$default_charset;
145 }
146 $rfc822_header->content_type = $content_type;
147 $rfc822_header->to[] = $header->dnt;
148 $rfc822_header->subject = _("Read:") . ' ' . decodeHeader($header->subject,true,false);
149
150 $idents = get_identities();
151 $needles = array();
152 if ($header->to) {
153 foreach ($header->to as $message_to) {
154 $needles[] = $message_to->mailbox.'@'.$message_to->host;
155 }
156 }
157 $identity = find_identity($needles);
158 $from_addr = build_from_header($identity);
159 $reply_to = isset($idents[$identity]['reply_to']) ? $idents[$identity]['reply_to'] : '';
160 // FIXME: this must actually be the envelope address of the orginal message,
161 // but do we have that information? For now the first identity is our best guess.
162 $final_recipient = $idents[0]['email_address'];
163
164 $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
165 if ($reply_to) {
166 $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
167 }
168
169 // part 1 (RFC2298)
170 $senton = getLongDateString( $header->date, $header->date_unparsed );
171 $to_array = $header->to;
172 $to = '';
173 foreach ($to_array as $line) {
174 $to .= ' '.$line->getAddress();
175 }
176 $now = getLongDateString( time() );
177 set_my_charset();
178 $body = _("Your message") . "\r\n\r\n" .
179 "\t" . _("To") . ': ' . decodeHeader($to,false,false) . "\r\n" .
180 "\t" . _("Subject") . ': ' . decodeHeader($header->subject,false,false) . "\r\n" .
181 "\t" . _("Sent") . ': ' . $senton . "\r\n" .
182 "\r\n" .
183 sprintf( _("Was displayed on %s"), $now );
184
185 $special_encoding = '';
186 if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
187 function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode')) {
188 $body = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode', $body);
189 if (strtolower($default_charset) == 'iso-2022-jp') {
190 if (mb_detect_encoding($body) == 'ASCII') {
191 $special_encoding = '8bit';
192 } else {
193 $body = mb_convert_encoding($body, 'JIS');
194 $special_encoding = '7bit';
195 }
196 }
197 } elseif (sq_is8bit($body)) {
198 $special_encoding = '8bit';
199 }
200 $part1 = new Message();
201 $part1->setBody($body);
202 $mime_header = new MessageHeader;
203 $mime_header->type0 = 'text';
204 $mime_header->type1 = 'plain';
205 if ($special_encoding) {
206 $mime_header->encoding = $special_encoding;
207 } else {
208 $mime_header->encoding = 'us-ascii';
209 }
210 if ($default_charset) {
211 $mime_header->parameters['charset'] = $default_charset;
212 }
213 $part1->mime_header = $mime_header;
214
215 // part2 (RFC2298)
216 $original_recipient = $to;
217 $original_message_id = $header->message_id;
218
219 $report = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version " . SM_VERSION . ") \r\n";
220 if ($original_recipient != '') {
221 $report .= "Original-Recipient : $original_recipient\r\n";
222 }
223 $report .= "Final-Recipient: rfc822; $final_recipient\r\n" .
224 "Original-Message-ID : $original_message_id\r\n" .
225 "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
226
227 $part2 = new Message();
228 $part2->setBody($report);
229 $mime_header = new MessageHeader;
230 $mime_header->type0 = 'message';
231 $mime_header->type1 = 'disposition-notification';
232 $mime_header->encoding = 'us-ascii';
233 $part2->mime_header = $mime_header;
234
235 $composeMessage = new Message();
236 $composeMessage->rfc822_header = $rfc822_header;
237 $composeMessage->addEntity($part1);
238 $composeMessage->addEntity($part2);
239
240
241 if ($useSendmail) {
242 require_once(SM_PATH . 'class/deliver/Deliver_SendMail.class.php');
243 global $sendmail_path, $sendmail_args;
244 // Check for outdated configuration
245 if (!isset($sendmail_args)) {
246 if ($sendmail_path=='/var/qmail/bin/qmail-inject') {
247 $sendmail_args = '';
248 } else {
249 $sendmail_args = '-i -t';
250 }
251 }
252 $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
253 $stream = $deliver->initStream($composeMessage,$sendmail_path);
254 } else {
255 require_once(SM_PATH . 'class/deliver/Deliver_SMTP.class.php');
256 $deliver = new Deliver_SMTP();
257 global $smtpServerAddress, $smtpPort, $pop_before_smtp;
258 $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ? true : false;
259 get_smtp_user($user, $pass);
260 $stream = $deliver->initStream($composeMessage,$domain,0,
261 $smtpServerAddress, $smtpPort, $user, $pass, $authPop);
262 }
263 $success = false;
264 if ($stream) {
265 $length = $deliver->mail($composeMessage, $stream);
266 $success = $deliver->finalizeStream($stream);
267 }
268 if (!$success) {
269 $msg = _("Message not sent.") . "<br />\n" .
270 $deliver->dlv_msg;
271 if (! empty($deliver->dlv_server_msg)) {
272 $msg.= '<br />' .
273 _("Server replied:") . ' ' . $deliver->dlv_ret_nr . ' ' .
274 nl2br(htmlspecialchars($deliver->dlv_server_msg));
275 }
276 plain_error_message($msg);
277 } else {
278 unset ($deliver);
279 if (sqimap_mailbox_exists ($imapConnection, $sent_folder)) {
280 $sid = sqimap_append ($imapConnection, $sent_folder, $length);
281 require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
282 $imap_deliver = new Deliver_IMAP();
283 $imap_deliver->mail($composeMessage, $imapConnection);
284 sqimap_append_done ($imapConnection, $sent_folder);
285 unset ($imap_deliver);
286 }
287 }
288 return $success;
289 }
290
291 function ToggleMDNflag ($set ,$imapConnection, $mailbox, $passed_id) {
292 $sg = $set?'+':'-';
293 $cmd = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
294 $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
295 $readmessage, TRUE);
296 }
297
298 function formatRecipientString($recipients, $item ) {
299 global $show_more, $show_more_cc, $show_more_bcc,
300 $PHP_SELF, $oTemplate;
301
302 $string = '';
303 if ((is_array($recipients)) && (isset($recipients[0]))) {
304 $show = false;
305
306 if ($item == 'to') {
307 if ($show_more) {
308 $show = true;
309 $url = set_url_var($PHP_SELF, 'show_more',0);
310 } else {
311 $url = set_url_var($PHP_SELF, 'show_more',1);
312 }
313 } else if ($item == 'cc') {
314 if ($show_more_cc) {
315 $show = true;
316 $url = set_url_var($PHP_SELF, 'show_more_cc',0);
317 } else {
318 $url = set_url_var($PHP_SELF, 'show_more_cc',1);
319 }
320 } else if ($item == 'bcc') {
321 if ($show_more_bcc) {
322 $show = true;
323 $url = set_url_var($PHP_SELF, 'show_more_bcc',0);
324 } else {
325 $url = set_url_var($PHP_SELF, 'show_more_bcc',1);
326 }
327 }
328
329 $a = array();
330 foreach ($recipients as $r) {
331 $a[] = array(
332 'Name' => htmlspecialchars($r->getAddress(false)),
333 'Email' => htmlspecialchars($r->getEmail()),
334 'Full' => htmlspecialchars($r->getAddress(true))
335 );
336 }
337
338 $oTemplate->assign('which_field', $item);
339 $oTemplate->assign('recipients', $a);
340 $oTemplate->assign('more_less_toggle_href', $url);
341 $oTemplate->assign('show_more', $show);
342
343 $string = $oTemplate->fetch('read_recipient_list.tpl');
344 }
345 return $string;
346 }
347
348 function formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message,
349 $color, $FirstTimeSee) {
350 global $default_use_mdn, $default_use_priority,
351 $show_xmailer_default, $mdn_user_support, $PHP_SELF,
352 $squirrelmail_language, $oTemplate;
353
354 $mailbox = $aMailbox['NAME'];
355
356 $header = $message->rfc822_header;
357 $env = array();
358 $env[_("Subject")] = str_replace("&nbsp;"," ",decodeHeader($header->subject));
359
360 $from_name = $header->getAddr_s('from');
361 if (!$from_name)
362 $from_name = $header->getAddr_s('sender');
363 if (!$from_name)
364 $env[_("From")] = _("Unknown sender");
365 else
366 $env[_("From")] = decodeHeader($from_name);
367 $env[_("Date")] = getLongDateString($header->date, $header->date_unparsed);
368 $env[_("To")] = formatRecipientString($header->to, "to");
369 $env[_("Cc")] = formatRecipientString($header->cc, "cc");
370 $env[_("Bcc")] = formatRecipientString($header->bcc, "bcc");
371 if ($default_use_priority) {
372 $oTemplate->assign('message_priority', $header->priority);
373 $env[_("Priority")] = $oTemplate->fetch('read_message_priority.tpl');
374 }
375 if ($show_xmailer_default) {
376 $oTemplate->assign('xmailer', decodeHeader($header->xmailer));
377 $env[_("Mailer")] = $oTemplate->fetch('read_xmailer.tpl');
378 }
379 if ($default_use_mdn) {
380 if ($mdn_user_support) {
381 if ($header->dnt) {
382 $mdn_url = $PHP_SELF;
383 $mdn_url = set_url_var($mdn_url, 'mailbox', urlencode($mailbox));
384 $mdn_url = set_url_var($mdn_url, 'passed_id', $passed_id);
385 $mdn_url = set_url_var($mdn_url, 'passed_ent_id', $passed_ent_id);
386 $mdn_url = set_url_var($mdn_url, 'sendreceipt', 1);
387
388 $oTemplate->assign('read_receipt_sent', $message->is_mdnsent);
389 $oTemplate->assign('send_receipt_href', $mdn_url);
390
391 $env[_("Read Receipt")] = $oTemplate->fetch('read_handle_receipt.tpl');
392 }
393 }
394 }
395
396 // this is used for both mdn and also general use for plugins, etc
397 $oTemplate->assign('first_time_reading', $FirstTimeSee);
398
399 $statuses = array();
400 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
401 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted']) &&
402 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted'] === true) {
403 $statuses[] = _("deleted");
404 }
405 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered']) &&
406 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered'] === true) {
407 $statuses[] = _("answered");
408 }
409 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft']) &&
410 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft'] === true) {
411 $statuses[] = _("draft");
412 }
413 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged']) &&
414 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged'] === true) {
415 $statuses[] = _("flagged");
416 }
417 if ( count($statuses) ) {
418 $env[_("Status")] = implode(', ', $statuses);
419 }
420 }
421
422 $env[_("Options")] = formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color);
423
424
425 $oTemplate->assign('headers_to_display', $env);
426
427 $oTemplate->display('read_headers.tpl');
428 }
429
430 /**
431 * Format message toolbar
432 *
433 * @param string $mailbox Name of current mailbox
434 * @param int $passed_id UID of current message
435 * @param int $passed_ent_id Id of entity within message
436 * @param object $message Current message object
437 * @param object $mbx_response
438 */
439 function formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, $removedVar, $nav_on_top = TRUE) {
440 global $base_uri, $draft_folder, $where, $what, $sort,
441 $startMessage, $PHP_SELF, $save_as_draft,
442 $enable_forward_as_attachment, $imapConnection, $lastTargetMailbox,
443 $delete_prev_next_display, $show_copy_buttons,
444 $compose_new_win, $compose_width, $compose_height,
445 $oTemplate;
446
447 //FIXME cleanup argument list, use $aMailbox where possible
448 $mailbox = $aMailbox['NAME'];
449
450 $urlMailbox = urlencode($mailbox);
451
452 // Create Prev & Next links
453 // Handle nested entities first (i.e. Mime Attach parts)
454 $prev_href = $next_href = $up_href = $del_href = $del_prev_href = $del_next_href = '';
455 $msg_list_href = $search_href = $view_msg_href = '';
456 if (isset($passed_ent_id) && $passed_ent_id) {
457 // code for navigating through attached message/rfc822 messages
458 $url = set_url_var($PHP_SELF, 'passed_ent_id',0);
459 $entities = array();
460 $entity_count = array();
461 $c = 0;
462
463 foreach($message->parent->entities as $ent) {
464 if ($ent->type0 == 'message' && $ent->type1 == 'rfc822') {
465
466 $c++;
467 $entity_count[$c] = $ent->entity_id;
468 $entities[$ent->entity_id] = $c;
469 }
470 }
471
472 if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] > 1) {
473 $prev_ent_id = $entity_count[$entities[$passed_ent_id] - 1];
474 $prev_href = set_url_var($PHP_SELF, 'passed_ent_id', $prev_ent_id);
475 }
476
477 if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] < $c) {
478 $next_ent_id = $entity_count[$entities[$passed_ent_id] + 1];
479 $next_href = set_url_var($PHP_SELF, 'passed_ent_id', $next_ent_id);
480 }
481
482 $par_ent_id = $message->parent->entity_id;
483 if ($par_ent_id) {
484 $par_ent_id = substr($par_ent_id,0,-2);
485 if ( $par_ent_id != 0 ) {
486 $up_href = set_url_var($PHP_SELF, 'passed_ent_id',$par_ent_id);
487 }
488 }
489
490 $view_msg_href = $url;
491
492 // Prev/Next links for regular messages
493 } else if ( true ) { //!(isset($where) && isset($what)) ) {
494 $prev = findPreviousMessage($aMailbox['UIDSET'][$what], $passed_id);
495 $next = findNextMessage($aMailbox['UIDSET'][$what],$passed_id);
496
497 if ($prev >= 0) {
498 $prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
499 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
500 "&amp;where=$where&amp;what=$what" .
501 '&amp;startMessage='.$startMessage.'&amp;show_more=0';
502 }
503
504 if ($next >= 0) {
505 $next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
506 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
507 "&amp;where=$where&amp;what=$what" .
508 '&amp;startMessage='.$startMessage.'&amp;show_more=0';
509 }
510
511 // Only bother with Delete & Prev and Delete & Next IF
512 // top display is enabled.
513 if ( $delete_prev_next_display == 1 &&
514 in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true) ) {
515 if ($prev >= 0) {
516 $del_prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
517 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
518 '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
519 "&amp;where=$where&amp;what=$what" .
520 '&amp;delete_id='.$passed_id;
521 }
522
523 if ($next >= 0) {
524 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
525 '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
526 '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
527 "&amp;where=$where&amp;what=$what" .
528 '&amp;delete_id='.$passed_id;
529 }
530 }
531 }
532
533 // Start with Search Results or Message List link.
534 $list_xtra = "?where=read_body.php&amp;what=$what&amp;mailbox=" . $urlMailbox.
535 "&amp;startMessage=$startMessage";
536 $msg_list_href = $base_uri .'src/right_main.php'. $list_xtra;
537 $search_href = $where=='search.php' ? $base_uri .'src/search.php?'.$list_xtra : '';
538
539 $comp_uri = $base_uri.'src/compose.php' .
540 '?passed_id=' . $passed_id .
541 '&amp;mailbox=' . $urlMailbox .
542 '&amp;startMessage=' . $startMessage .
543 (isset($passed_ent_id) ? '&amp;passed_ent_id='.$passed_ent_id : '');
544
545 // Start form for reply/reply all/forward..
546 $target = '';
547 $on_click='';
548 $method='post';
549 $onsubmit='';
550 if ($compose_new_win == '1') {
551 if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
552 $compose_width = '640';
553 }
554 if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
555 $compose_height = '550';
556 }
557 if ( checkForJavascript() ) {
558 $on_click='comp_in_new_form(\''.$comp_uri.'\', this, this.form,'. $compose_width .',' . $compose_height .')';
559 $comp_uri = 'javascript:void(0)';
560 $method='get';
561 $onsubmit = 'return false';
562 } else {
563 $target = '_blank';
564 }
565 }
566
567 $oTemplate->assign('nav_on_top', $nav_on_top);
568
569 $oTemplate->assign('prev_href', $prev_href);
570 $oTemplate->assign('up_href', $up_href);
571 $oTemplate->assign('next_href', $next_href);
572 $oTemplate->assign('del_prev_href', $del_prev_href);
573 $oTemplate->assign('del_next_href', $del_next_href);
574 $oTemplate->assign('view_msg_href', $view_msg_href);
575
576 $oTemplate->assign('message_list_href', $msg_list_href);
577 $oTemplate->assign('search_href', $search_href);
578
579 $oTemplate->assign('form_extra', '');
580 $oTemplate->assign('form_method', $method);
581 $oTemplate->assign('form_target', $target);
582 $oTemplate->assign('form_onsubmit', $onsubmit);
583 $oTemplate->assign('compose_href', $comp_uri);
584 $oTemplate->assign('button_onclick', $on_click);
585 $oTemplate->assign('forward_as_attachment_enabled', $enable_forward_as_attachment==1);
586
587 //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
588 $oTemplate->assign('mailbox', $aMailbox['NAME']);
589 $oTemplate->assign('passed_id', $passed_id);
590 $oTemplate->assign('what', $what);
591
592 // If Draft folder - create Resume link
593 $resume_draft = $edit_as_new = false;
594 if (($mailbox == $draft_folder) && ($save_as_draft)) {
595 $resume_draft = true; 'smaction_draft';
596 } else if (handleAsSent($mailbox)) {
597 $edit_as_new = true;
598 }
599 $oTemplate->assign('can_resume_draft', $resume_draft);
600 $oTemplate->assign('can_edit_as_new', $edit_as_new);
601
602 $oTemplate->assign('mailboxes', sqimap_mailbox_option_array($imapConnection));
603 if (in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true)) {
604 $delete_url = $base_uri . "src/$where";
605 $oTemplate->assign('can_be_deleted', true);
606 $oTemplate->assign('move_delete_form_action', $base_uri.'src/'.$where);
607 $oTemplate->assign('delete_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
608 addHidden('msg[0]', $passed_id)."\n" .
609 addHidden('startMessage', $startMessage)."\n" );
610 if (!(isset($passed_ent_id) && $passed_ent_id)) {
611 $oTemplate->assign('can_be_moved', true);
612 $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
613 addHidden('msg[0]', $passed_id)."\n" );
614 $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ? $lastTargetMailbox : '');
615 $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
616 } else {
617 $oTemplate->assign('can_be_moved', false);
618 $oTemplate->assign('move_form_extra', '');
619 $oTemplate->assign('last_move_target', '');
620 $oTemplate->assign('can_be_copied', false);
621 }
622 } else {
623 $oTemplate->assign('can_be_deleted', false);
624 $oTemplate->assign('move_delete_form_action', '');
625 $oTemplate->assign('delete_form_extra', '');
626 $oTemplate->assign('can_be_moved', false);
627 $oTemplate->assign('move_form_extra', '');
628 $oTemplate->assign('last_move_target', '');
629 $oTemplate->assign('can_be_copied', false);
630 }
631
632 global $null;
633 do_hook('read_body_menu', $null);
634
635 if ($nav_on_top) {
636 $oTemplate->display('read_menubar_nav.tpl');
637 $oTemplate->display('read_menubar_buttons.tpl');
638 } else {
639 $oTemplate->display('read_menubar_buttons.tpl');
640 $oTemplate->display('read_menubar_nav.tpl');
641 }
642
643 }
644
645 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
646 global $base_uri, $where, $what, $show_html_default,
647 $oTemplate, $download_href,
648 $unsafe_image_toggle_href, $unsafe_image_toggle_text;
649
650 $urlMailbox = urlencode($mailbox);
651 $urlPassed_id = urlencode($passed_id);
652 $urlPassed_ent_id = urlencode($passed_ent_id);
653
654 $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
655 if (!empty($where)) {
656 $query_string .= '&amp;where=' . urlencode($where);
657 }
658 if (!empty($what)) {
659 $query_string .= '&amp;what=' . urlencode($what);
660 }
661 $url = $base_uri.'src/view_header.php?'.$query_string;
662
663
664 // Build the printer friend link
665 /* hackydiehack */
666 if( !sqgetGlobalVar('view_unsafe_images', $view_unsafe_images, SQ_GET) ) {
667 $view_unsafe_images = false;
668 } else {
669 $view_unsafe_images = true;
670 }
671 $pf_params = '?passed_ent_id=' . $urlPassed_ent_id .
672 '&mailbox=' . $urlMailbox .
673 '&passed_id=' . $urlPassed_id .
674 '&view_unsafe_images='. (bool) $view_unsafe_images .
675 '&show_html_default=' . $show_html_default;
676 $links = array();
677 $links[] = array (
678 'URL' => $url,
679 'Text' => _("View Full Header")
680 );
681 $links[] = array (
682 'URL' => $pf_params,
683 'Text' => _("View Printable Version")
684 );
685 $links[] = array (
686 'URL' => $download_href,
687 'Text' => _("Download this as a file")
688 );
689 $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
690 if (!empty($toggle)) {
691 $links[] = array (
692 'URL' => $toggle,
693 'Text' => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
694 );
695 }
696 if (!empty($unsafe_image_toggle_href)) {
697 $links[] = array (
698 'URL' => $unsafe_image_toggle_href,
699 'Text' => $unsafe_image_toggle_text
700 );
701 }
702
703 do_hook('read_body_header_right', $links);
704
705 $oTemplate->assign('links', $links);
706
707 return $oTemplate->fetch('read_toolbar.tpl');
708 }
709
710 /***************************/
711 /* Main of read_body.php */
712 /***************************/
713
714 /* get the globals we may need */
715
716 sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
717 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
718 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
719 $messages = array();
720 }
721 sqgetGlobalVar('delayed_errors', $delayed_errors, SQ_SESSION);
722 if (is_array($delayed_errors)) {
723 $oErrorHandler->AssignDelayedErrors($delayed_errors);
724 sqsession_unregister("delayed_errors");
725 }
726 /** GET VARS */
727 sqgetGlobalVar('sendreceipt', $sendreceipt, SQ_GET);
728 if (!sqgetGlobalVar('where', $where, SQ_GET) ) {
729 $where = 'right_main.php';
730 }
731 /*
732 * Used as entry key to the list of uid's cached in the mailbox cache
733 * we use the cached uid's to get the next and prev message.
734 */
735 if (!sqgetGlobalVar('what', $what, SQ_GET) ){
736 $what = 0;
737 }
738 if ( sqgetGlobalVar('show_more', $temp, SQ_GET) ) {
739 $show_more = (int) $temp;
740 }
741 if ( sqgetGlobalVar('show_more_cc', $temp, SQ_GET) ) {
742 $show_more_cc = (int) $temp;
743 }
744 if ( sqgetGlobalVar('show_more_bcc', $temp, SQ_GET) ) {
745 $show_more_bcc = (int) $temp;
746 }
747 if ( sqgetGlobalVar('view_hdr', $temp, SQ_GET) ) {
748 $view_hdr = (int) $temp;
749 }
750
751 if ( sqgetGlobalVar('account', $temp, SQ_GET) ) {
752 $iAccount = (int) $temp;
753 } else {
754 $iAccount = 0;
755 }
756
757 /** GET/POST VARS */
758 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
759 sqgetGlobalVar('mailbox', $mailbox);
760
761 if ( sqgetGlobalVar('passed_id', $temp) ) {
762 $passed_id = (int) $temp;
763 }
764 if ( sqgetGlobalVar('sort', $temp) ) {
765 $sort = (int) $temp;
766 }
767 if ( sqgetGlobalVar('startMessage', $temp) ) {
768 $startMessage = (int) $temp;
769 } else {
770 $startMessage = 1;
771 }
772 if(sqgetGlobalVar('show_html_default', $temp)) {
773 $show_html_default = (int) $temp;
774 }
775
776 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
777 $view_unsafe_images = (int) $temp;
778 if($view_unsafe_images == 1) {
779 $show_html_default = 1;
780 }
781 } else {
782 $view_unsafe_images = 0;
783 }
784 /**
785 * Retrieve mailbox cache
786 */
787 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
788
789 /* end of get globals */
790
791 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
792 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
793
794
795 /**
796 Start code to set the columns to fetch in case of hitting the next/prev link
797 The reason for this is the fact that the cache can be invalidated which means that the headers
798 to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
799
800 Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
801 */
802
803 /**
804 * Replace From => To in case it concerns a draft or sent folder
805 */
806 $aColumns = array();
807 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
808 !in_array(SQM_COL_TO,$index_order)) {
809 $aNewOrder = array(); // nice var name ;)
810 foreach($index_order as $iCol) {
811 if ($iCol == SQM_COL_FROM) {
812 $iCol = SQM_COL_TO;
813 }
814 $aColumns[$iCol] = array();
815 }
816 } else {
817 foreach ($index_order as $iCol) {
818 $aColumns[$iCol] = array();
819 }
820 }
821
822 $aProps = array(
823 'columns' => $aColumns, // columns bound settings
824 'config' => array(
825 'highlight_list' => $message_highlight_list, // row highlighting rules
826 'trash_folder' => $trash_folder,
827 'sent_folder' => $sent_folder,
828 'draft_folder' => $draft_folder));
829
830 calcFetchColumns($aMailbox,$aProps);
831
832 /**
833 End code to set the columns to fetch in case of hitting the next/prev link
834 */
835
836
837
838 /**
839 * Check if cache is still valid, $what contains the key
840 * which gives us acces to the array with uid's. At this moment
841 * 0 is used for a normal message list and search uses 1 as key. This can be
842 * changed / extended in the future.
843 * If on a select of a mailbox we detect that the cache should be invalidated due to
844 * the delete of messages or due to new messages we empty the list with uid's and
845 * that's what we detect below.
846 */
847 if (!is_array($aMailbox['UIDSET'][$what])) {
848 fetchMessageHeaders($imapConnection, $aMailbox);
849 }
850
851 $iSetIndex = $aMailbox['SETINDEX'];
852 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
853
854 /**
855 * Update the seen state
856 * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
857 */
858 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
859 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
860 }
861
862 /**
863 * Process Delete from delete-move-next
864 * but only if delete_id was set
865 */
866 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
867 handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
868 }
869
870 /**
871 * $message contains all information about the message
872 * including header and body
873 */
874
875 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
876 $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
877 $FirstTimeSee = !$message->is_seen;
878 } else {
879 $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
880 $FirstTimeSee = !$message->is_seen;
881 }
882
883 /**
884 * update message seen status and put in cache
885 */
886 $message->is_seen = true;
887 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
888
889 if (isset($passed_ent_id) && $passed_ent_id) {
890 $message = $message->getEntity($passed_ent_id);
891 if ($message->type0 != 'message' && $message->type1 != 'rfc822') {
892 $message = $message->parent;
893 }
894 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
895 $rfc822_header = new Rfc822Header();
896 $rfc822_header->parseHeader($read);
897 $message->rfc822_header = $rfc822_header;
898 } else if ($message->type0 == 'message' && $message->type1 == 'rfc822' && isset($message->entities[0])) {
899 $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
900 $rfc822_header = new Rfc822Header();
901 $rfc822_header->parseHeader($read);
902 $message->rfc822_header = $rfc822_header;
903 } else {
904 $passed_ent_id = 0;
905 }
906 $header = $message->header;
907
908
909 /****************************************/
910 /* Block for handling incoming url vars */
911 /****************************************/
912
913 if (isset($sendreceipt)) {
914 if ( !$message->is_mdnsent ) {
915 $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
916 if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
917 ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
918 $message->is_mdnsent = true;
919 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
920 }
921 }
922 }
923 /***********************************************/
924 /* End of block for handling incoming url vars */
925 /***********************************************/
926
927 $messagebody = '';
928 do_hook('read_body_top', $null);
929 if ($show_html_default == 1) {
930 $ent_ar = $message->findDisplayEntity(array());
931 } else {
932 $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
933 }
934 $cnt = count($ent_ar);
935 for ($i = 0; $i < $cnt; $i++) {
936 $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
937 if ($i != $cnt-1) {
938 $messagebody .= '<hr />';
939 }
940 }
941
942 /**
943 * Write mailbox with updated seen flag information back to cache.
944 */
945 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
946 sqsession_register($mailbox_cache,'mailbox_cache');
947 $_SESSION['mailbox_cache'] = $mailbox_cache;
948
949 displayPageHeader($color, $mailbox,'','');
950 formatMenuBar($aMailbox, $passed_id, $passed_ent_id, $message,false);
951 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
952
953 $oTemplate->assign('message_body', $messagebody);
954 $oTemplate->display('read_message_body.tpl');
955
956 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
957
958 /* show attached images inline -- if pref'fed so */
959 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
960 $images = array();
961 foreach ($attachment_common_show_images_list as $img) {
962 $imgurl = SM_PATH . 'src/download.php' .
963 '?' .
964 'passed_id=' . urlencode($img['passed_id']) .
965 '&amp;mailbox=' . urlencode($mailbox) .
966 '&amp;ent_id=' . urlencode($img['ent_id']) .
967 '&amp;absolute_dl=true';
968 $a = array();
969 $a['Name'] = $img['name'];
970 $a['DisplayURL'] = $imgurl;
971 $a['DownloadURL'] = $img['download_href'];
972 $images[] = $a;
973 }
974
975 $oTemplate->assign('images', $images);
976 $oTemplate->display('read_display_images_inline.tpl');
977 }
978
979 formatMenuBar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
980
981 do_hook('read_body_bottom', $null);
982 sqimap_logout($imapConnection);
983 $oTemplate->display('footer.tpl');