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