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, $pop_before_smtp_host;
 259         $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ? true : false;
 260         if (empty($pop_before_smtp_host)) $pop_before_smtp_host = $smtpServerAddress;
 261         get_smtp_user($user, $pass);
 262         $stream = $deliver->initStream($composeMessage,$domain,0,
 263                                        $smtpServerAddress, $smtpPort, $user, $pass, $authPop, $pop_before_smtp_host);
 264     }
 265     $success = false;
 266     if ($stream) {
 267         $deliver->mail($composeMessage, $stream);
 268         $success = $deliver->finalizeStream($stream);
 269     }
 270     if (!$success) {
 271         $msg = _("Message not sent.") . "\n" .
 272             $deliver->dlv_msg;
 273         if (! empty($deliver->dlv_server_msg)) {
 274             $msg.= "\n" .
 275                 _("Server replied:") . ' ' . $deliver->dlv_ret_nr . ' ' .
 276                 nl2br(htmlspecialchars($deliver->dlv_server_msg));
 277         }
 278         plain_error_message($msg);
 279     } else {
 280         unset ($deliver);
 281
 282         // move to sent folder
 283         //
 284         $move_to_sent = getPref($data_dir,$username,'move_to_sent');
 285         if (isset($default_move_to_sent) && ($default_move_to_sent != 0)) {
 286             $svr_allow_sent = true;
 287         } else {
 288             $svr_allow_sent = false;
 289         }
 290
 291         if (isset($sent_folder) && (($sent_folder != '') || ($sent_folder != 'none'))
 292                 && sqimap_mailbox_exists( $imapConnection, $sent_folder)) {
 293             $fld_sent = true;
 294         } else {
 295             $fld_sent = false;
 296         }
 297
 298         if ((isset($move_to_sent) && ($move_to_sent != 0)) || (!isset($move_to_sent))) {
 299             $lcl_allow_sent = true;
 300         } else {
 301             $lcl_allow_sent = false;
 302         }
 303
 304         if (($fld_sent && $svr_allow_sent && !$lcl_allow_sent) || ($fld_sent && $lcl_allow_sent)) {
 305             $save_reply_with_orig=getPref($data_dir,$username,'save_reply_with_orig');
 306             if ($save_reply_with_orig) {
 307                 $sent_folder = $mailbox;
 308             }
 309             require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
 310             $imap_deliver = new Deliver_IMAP();
 311             $imap_deliver->mail($composeMessage, $imapConnection, 0, 0, $imapConnection, $sent_folder);
 312             unset ($imap_deliver);
 313         }
 314     }
 315     return $success;
 316 }
 317
 318 function ToggleMDNflag ($set ,$imapConnection, $mailbox, $passed_id) {
 319     $sg   =  $set?'+':'-';
 320     $cmd  = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
 321     $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
 322                                 $readmessage, TRUE);
 323 }
 324
 325 function formatRecipientString($recipients, $item ) {
 326     global $show_more, $show_more_cc, $show_more_bcc,
 327            $PHP_SELF, $oTemplate;
 328
 329     $string = '';
 330     if ((is_array($recipients)) && (isset($recipients[0]))) {
 331         $show = false;
 332
 333         if ($item == 'to') {
 334             if ($show_more) {
 335                 $show = true;
 336                 $url = set_url_var($PHP_SELF, 'show_more',0);
 337             } else {
 338                 $url = set_url_var($PHP_SELF, 'show_more',1);
 339             }
 340         } else if ($item == 'cc') {
 341             if ($show_more_cc) {
 342                 $show = true;
 343                 $url = set_url_var($PHP_SELF, 'show_more_cc',0);
 344             } else {
 345                 $url = set_url_var($PHP_SELF, 'show_more_cc',1);
 346             }
 347         } else if ($item == 'bcc') {
 348             if ($show_more_bcc) {
 349                 $show = true;
 350                 $url = set_url_var($PHP_SELF, 'show_more_bcc',0);
 351             } else {
 352                 $url = set_url_var($PHP_SELF, 'show_more_bcc',1);
 353             }
 354         }
 355
 356         $a = array();
 357         foreach ($recipients as $r) {
 358             $a[] = array(
 359                             // note: decodeHeader is htmlsafe by default
 360                             'Name'  => decodeHeader($r->getAddress(false)),
 361                             'Email' => htmlspecialchars($r->getEmail()),
 362                             'Full'  => decodeHeader($r->getAddress(true))
 363                         );
 364         }
 365
 366         $oTemplate->assign('which_field', $item);
 367         $oTemplate->assign('recipients', $a);
 368         $oTemplate->assign('more_less_toggle_href', $url);
 369         $oTemplate->assign('show_more', $show);
 370
 371         $string = $oTemplate->fetch('read_recipient_list.tpl');
 372     }
 373     return $string;
 374 }
 375
 376 function formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message,
 377                          $color, $FirstTimeSee) {
 378     global $default_use_mdn, $default_use_priority,
 379            $show_xmailer_default, $mdn_user_support, $PHP_SELF,
 380            $squirrelmail_language, $oTemplate;
 381
 382     $mailbox = $aMailbox['NAME'];
 383
 384     $header = $message->rfc822_header;
 385     $env = array();
 386     $env[_("Subject")] = str_replace("&nbsp;"," ",decodeHeader($header->subject));
 387
 388     $from_name = $header->getAddr_s('from');
 389     if (!$from_name)
 390         $from_name = $header->getAddr_s('sender');
 391     if (!$from_name)
 392         $env[_("From")] = _("Unknown sender");
 393     else
 394         $env[_("From")] = decodeHeader($from_name);
 395     $env[_("Date")] = getLongDateString($header->date, $header->date_unparsed);
 396     $env[_("To")] = formatRecipientString($header->to, "to");
 397     $env[_("Cc")] = formatRecipientString($header->cc, "cc");
 398     $env[_("Bcc")] = formatRecipientString($header->bcc, "bcc");
 399     if ($default_use_priority) {
 400         $oTemplate->assign('message_priority', $header->priority);
 401         $env[_("Priority")] = $oTemplate->fetch('read_message_priority.tpl');
 402     }
 403     if ($show_xmailer_default) {
 404         $oTemplate->assign('xmailer', decodeHeader($header->xmailer));
 405         $env[_("Mailer")] = $oTemplate->fetch('read_xmailer.tpl');
 406     }
 407
 408     // this is used for both mdn and also general use for plugins, etc
 409     $oTemplate->assign('first_time_reading', $FirstTimeSee);
 410
 411     if ($default_use_mdn) {
 412         if ($mdn_user_support) {
 413             if ($header->dnt) {
 414                 $mdn_url = $PHP_SELF;
 415                 $mdn_url = set_url_var($mdn_url, 'mailbox', urlencode($mailbox));
 416                 $mdn_url = set_url_var($mdn_url, 'passed_id', $passed_id);
 417                 $mdn_url = set_url_var($mdn_url, 'passed_ent_id', $passed_ent_id);
 418                 $mdn_url = set_url_var($mdn_url, 'sendreceipt', 1);
 419
 420                 $oTemplate->assign('read_receipt_sent', $message->is_mdnsent);
 421                 $oTemplate->assign('send_receipt_href', $mdn_url);
 422
 423                 $env[_("Read Receipt")] = $oTemplate->fetch('read_handle_receipt.tpl');
 424             }
 425         }
 426     }
 427
 428     $statuses = array();
 429     if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 430         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted']) &&
 431                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted'] === true) {
 432             $statuses[] = _("deleted");
 433         }
 434         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered']) &&
 435                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered'] === true) {
 436             $statuses[] = _("answered");
 437         }
 438         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft']) &&
 439                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft'] === true) {
 440             $statuses[] = _("draft");
 441         }
 442         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged']) &&
 443                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged'] === true) {
 444             $statuses[] = _("flagged");
 445         }
 446         if ( count($statuses) ) {
 447             $env[_("Status")] = implode(', ', $statuses);
 448         }
 449     }
 450
 451     $env[_("Options")] = formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color);
 452
 453
 454     $oTemplate->assign('headers_to_display', $env);
 455
 456     $oTemplate->display('read_headers.tpl');
 457 }
 458
 459 /**
 460  * Format message toolbar
 461  *
 462  * @param array $aMailbox Current mailbox information array
 463  * @param int $passed_id UID of current message
 464  * @param int $passed_ent_id Id of entity within message
 465  * @param object $message Current message object
 466  * @param object $mbx_response
 467  */
 468 function formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, $removedVar, $nav_on_top = TRUE) {
 469     global $base_uri, $draft_folder, $where, $what, $sort,
 470            $startMessage, $PHP_SELF, $save_as_draft,
 471            $enable_forward_as_attachment, $imapConnection, $lastTargetMailbox,
 472            $delete_prev_next_display, $show_copy_buttons,
 473            $compose_new_win, $compose_width, $compose_height,
 474            $oTemplate;
 475
 476     //FIXME cleanup argument list, use $aMailbox where possible
 477     $mailbox = $aMailbox['NAME'];
 478
 479     $urlMailbox = urlencode($mailbox);
 480
 481     // Create Prev & Next links
 482     // Handle nested entities first (i.e. Mime Attach parts)
 483     $prev_href = $next_href = $up_href = $del_href = $del_prev_href = $del_next_href = '';
 484     $msg_list_href = $search_href = $view_msg_href = '';
 485     if (isset($passed_ent_id) && $passed_ent_id) {
 486         // code for navigating through attached message/rfc822 messages
 487         $url = set_url_var($PHP_SELF, 'passed_ent_id',0);
 488         $entities     = array();
 489         $entity_count = array();
 490         $c = 0;
 491
 492         foreach($message->parent->entities as $ent) {
 493             if ($ent->type0 == 'message' && $ent->type1 == 'rfc822') {
 494
 495                 $c++;
 496                 $entity_count[$c] = $ent->entity_id;
 497                 $entities[$ent->entity_id] = $c;
 498             }
 499         }
 500
 501         if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] > 1) {
 502             $prev_ent_id = $entity_count[$entities[$passed_ent_id] - 1];
 503             $prev_href = set_url_var($PHP_SELF, 'passed_ent_id', $prev_ent_id);
 504         }
 505
 506         if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] < $c) {
 507             $next_ent_id = $entity_count[$entities[$passed_ent_id] + 1];
 508             $next_href = set_url_var($PHP_SELF, 'passed_ent_id', $next_ent_id);
 509         }
 510
 511         $par_ent_id = $message->parent->entity_id;
 512         if ($par_ent_id) {
 513             $par_ent_id = substr($par_ent_id,0,-2);
 514             if ( $par_ent_id != 0 ) {
 515                 $up_href = set_url_var($PHP_SELF, 'passed_ent_id',$par_ent_id);
 516             }
 517         }
 518
 519         $view_msg_href = $url;
 520
 521     // Prev/Next links for regular messages
 522     } else if ( true ) { //!(isset($where) && isset($what)) ) {
 523         $prev = findPreviousMessage($aMailbox['UIDSET'][$what], $passed_id);
 524         $next = findNextMessage($aMailbox['UIDSET'][$what],$passed_id);
 525
 526         if ($prev >= 0) {
 527             $prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
 528                    '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 529                    "&amp;where=$where&amp;what=$what" .
 530                    '&amp;startMessage='.$startMessage.'&amp;show_more=0';
 531         }
 532
 533         if ($next >= 0) {
 534             $next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
 535                    '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 536                    "&amp;where=$where&amp;what=$what" .
 537                    '&amp;startMessage='.$startMessage.'&amp;show_more=0';
 538         }
 539
 540         // Only bother with Delete & Prev and Delete & Next IF
 541         // top display is enabled.
 542         if ( $delete_prev_next_display == 1 &&
 543                in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true) ) {
 544             if ($prev >= 0) {
 545                 $del_prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
 546                        '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 547                        '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
 548                        "&amp;where=$where&amp;what=$what" .
 549                        '&amp;delete_id='.$passed_id;
 550             }
 551
 552             if ($next >= 0) {
 553                 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
 554                        '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 555                        '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
 556                        "&amp;where=$where&amp;what=$what" .
 557                        '&amp;delete_id='.$passed_id;
 558             }
 559         }
 560     }
 561
 562     $msg_list_href = get_message_list_uri($aMailbox['NAME'], $startMessage, $what);
 563     if ($where == 'search.php')
 564         $search_href = str_replace('read_body.php', 'search.php', $msg_list_href);
 565     else
 566         $search_href = '';
 567
 568     $comp_uri = $base_uri.'src/compose.php' .
 569                 '?passed_id=' . $passed_id .
 570                 '&amp;mailbox=' . $urlMailbox .
 571                 '&amp;startMessage=' . $startMessage .
 572                  (isset($passed_ent_id) ? '&amp;passed_ent_id='.$passed_ent_id : '');
 573
 574     // Start form for reply/reply all/forward..
 575     $target = '';
 576     $on_click='';
 577     $method='post';
 578     $onsubmit='';
 579     if ($compose_new_win == '1') {
 580         if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
 581             $compose_width = '640';
 582         }
 583         if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
 584             $compose_height = '550';
 585         }
 586         if ( checkForJavascript() ) {
 587           $on_click='comp_in_new_form(\''.$comp_uri.'\', this, this.form,'. $compose_width .',' . $compose_height .')';
 588           $comp_uri = 'javascript:void(0)';
 589           $method='get';
 590           $onsubmit = 'return false';
 591         } else {
 592           $target = '_blank';
 593         }
 594     }
 595
 596     $oTemplate->assign('nav_on_top', $nav_on_top);
 597
 598     $oTemplate->assign('prev_href', $prev_href);
 599     $oTemplate->assign('up_href', $up_href);
 600     $oTemplate->assign('next_href', $next_href);
 601     $oTemplate->assign('del_prev_href', $del_prev_href);
 602     $oTemplate->assign('del_next_href', $del_next_href);
 603     $oTemplate->assign('view_msg_href', $view_msg_href);
 604
 605     $oTemplate->assign('message_list_href', $msg_list_href);
 606     $oTemplate->assign('search_href', $search_href);
 607
 608     $oTemplate->assign('form_extra', '');
 609     $oTemplate->assign('form_method', $method);
 610     $oTemplate->assign('form_target', $target);
 611     $oTemplate->assign('form_onsubmit', $onsubmit);
 612     $oTemplate->assign('compose_href', $comp_uri);
 613     $oTemplate->assign('button_onclick', $on_click);
 614     $oTemplate->assign('forward_as_attachment_enabled', $enable_forward_as_attachment==1);
 615
 616     //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
 617     $oTemplate->assign('mailbox', $aMailbox['NAME']);
 618     $oTemplate->assign('passed_id', $passed_id);
 619     $oTemplate->assign('what', $what);
 620
 621     // If Draft folder - create Resume link
 622     $resume_draft = $edit_as_new = false;
 623     if (($mailbox == $draft_folder) && ($save_as_draft)) {
 624         $resume_draft = true; 'smaction_draft';
 625     } else if (handleAsSent($mailbox)) {
 626         $edit_as_new = true;
 627     }
 628     $oTemplate->assign('can_resume_draft', $resume_draft);
 629     $oTemplate->assign('can_edit_as_new', $edit_as_new);
 630
 631     $oTemplate->assign('mailboxes', sqimap_mailbox_option_array($imapConnection));
 632     if (in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true)) {
 633         $delete_url = $base_uri . "src/$where";
 634         $oTemplate->assign('can_be_deleted', true);
 635         $oTemplate->assign('move_delete_form_action', $base_uri.'src/'.$where);
 636         $oTemplate->assign('delete_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 637                                                 addHidden('msg[0]', $passed_id)."\n" .
 638                                                 addHidden('startMessage', $startMessage)."\n" );
 639         if (!(isset($passed_ent_id) && $passed_ent_id)) {
 640             $oTemplate->assign('can_be_moved', true);
 641             $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 642                                                   addHidden('msg[0]', $passed_id)."\n" );
 643             $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ? $lastTargetMailbox : '');
 644             $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
 645         } else {
 646             $oTemplate->assign('can_be_moved', false);
 647             $oTemplate->assign('move_form_extra', '');
 648             $oTemplate->assign('last_move_target', '');
 649             $oTemplate->assign('can_be_copied', false);
 650         }
 651     } else {
 652         $oTemplate->assign('can_be_deleted', false);
 653         $oTemplate->assign('move_delete_form_action', '');
 654         $oTemplate->assign('delete_form_extra', '');
 655         $oTemplate->assign('can_be_moved', false);
 656         $oTemplate->assign('move_form_extra', '');
 657         $oTemplate->assign('last_move_target', '');
 658         $oTemplate->assign('can_be_copied', false);
 659     }
 660
 661     // access keys...
 662     //
 663     global $accesskey_read_msg_reply, $accesskey_read_msg_reply_all,
 664            $accesskey_read_msg_forward, $accesskey_read_msg_as_attach,
 665            $accesskey_read_msg_delete, $accesskey_read_msg_bypass_trash,
 666            $accesskey_read_msg_move_to, $accesskey_read_msg_move;
 667     $oTemplate->assign('accesskey_read_msg_reply', $accesskey_read_msg_reply);
 668     $oTemplate->assign('accesskey_read_msg_reply_all', $accesskey_read_msg_reply_all);
 669     $oTemplate->assign('accesskey_read_msg_forward', $accesskey_read_msg_forward);
 670     $oTemplate->assign('accesskey_read_msg_as_attach', $accesskey_read_msg_as_attach);
 671     $oTemplate->assign('accesskey_read_msg_delete', $accesskey_read_msg_delete);
 672     $oTemplate->assign('accesskey_read_msg_bypass_trash', $accesskey_read_msg_bypass_trash);
 673     $oTemplate->assign('accesskey_read_msg_move_to', $accesskey_read_msg_move_to);
 674     $oTemplate->assign('accesskey_read_msg_move', $accesskey_read_msg_move);
 675
 676     global $null;
 677     do_hook('read_body_menu', $null);
 678
 679     if ($nav_on_top) {
 680         $oTemplate->display('read_menubar_nav.tpl');
 681         $oTemplate->display('read_menubar_buttons.tpl');
 682     } else {
 683         $oTemplate->display('read_menubar_buttons.tpl');
 684         $oTemplate->display('read_menubar_nav.tpl');
 685     }
 686
 687 }
 688
 689 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
 690     global $base_uri, $where, $what, $show_html_default,
 691            $oTemplate, $download_href, $PHP_SELF,
 692            $unsafe_image_toggle_href, $unsafe_image_toggle_text;
 693
 694     $urlMailbox = urlencode($mailbox);
 695     $urlPassed_id = urlencode($passed_id);
 696     $urlPassed_ent_id = urlencode($passed_ent_id);
 697
 698     $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
 699     if (!empty($where)) {
 700         $query_string .= '&amp;where=' . urlencode($where);
 701     }
 702     if (!empty($what)) {
 703         $query_string .= '&amp;what=' . urlencode($what);
 704     }
 705     $url = $base_uri.'src/view_header.php?'.$query_string;
 706
 707     $links = array();
 708     $links[] = array (
 709                         'URL'   => $url,
 710                         'Text'  => _("View Full Header")
 711                      );
 712
 713     if ( checkForJavaScript() ) {
 714         $links[] = array (
 715                         'URL'   => 'javascript:printThis();',
 716                         'Text'  => _("Print"),
 717                      );
 718     } else {
 719         $links[] = array (
 720                         'URL'   => set_url_var($PHP_SELF, 'print', '1'),
 721                         'Text'  => _("Print"),
 722                         'Target' => '_blank'
 723                      );
 724     }
 725
 726     $links[] = array (
 727                         'URL'   => $download_href,
 728                         'Text'  => _("Download this as a file")
 729                      );
 730     $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
 731     if (!empty($toggle)) {
 732         $links[] = array (
 733                             'URL'   => $toggle,
 734                             'Text'  => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
 735                          );
 736     }
 737     if (!empty($unsafe_image_toggle_href)) {
 738         $links[] = array (
 739                             'URL'   => $unsafe_image_toggle_href,
 740                             'Text'  => $unsafe_image_toggle_text
 741                          );
 742     }
 743
 744     do_hook('read_body_header_right', $links);
 745
 746     $oTemplate->assign('links', $links);
 747
 748     return $oTemplate->fetch('read_toolbar.tpl');
 749 }
 750
 751 /***************************/
 752 /*   Main of read_body.php */
 753 /***************************/
 754
 755 /* get the globals we may need */
 756
 757 sqgetGlobalVar('delimiter', $delimiter,     SQ_SESSION);
 758 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
 759 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
 760     $messages = array();
 761 }
 762 sqgetGlobalVar('delayed_errors',  $delayed_errors,  SQ_SESSION);
 763 if (is_array($delayed_errors)) {
 764     $oErrorHandler->AssignDelayedErrors($delayed_errors);
 765     sqsession_unregister("delayed_errors");
 766 }
 767 /** GET VARS */
 768 sqgetGlobalVar('sendreceipt',   $sendreceipt,   SQ_GET);
 769 if (!sqgetGlobalVar('where',         $where,         SQ_GET) ) {
 770     $where = 'right_main.php';
 771 }
 772 /*
 773  * Used as entry key to the list of uid's cached in the mailbox cache
 774  * we use the cached uid's to get the next and prev  message.
 775  */
 776 if (!sqgetGlobalVar('what',          $what,          SQ_GET) ){
 777     $what = 0;
 778 }
 779 if ( sqgetGlobalVar('show_more', $temp,  SQ_GET) ) {
 780     $show_more = (int) $temp;
 781 }
 782 if ( sqgetGlobalVar('show_more_cc', $temp,  SQ_GET) ) {
 783     $show_more_cc = (int) $temp;
 784 }
 785 if ( sqgetGlobalVar('show_more_bcc', $temp,  SQ_GET) ) {
 786     $show_more_bcc = (int) $temp;
 787 }
 788 if ( sqgetGlobalVar('view_hdr', $temp,  SQ_GET) ) {
 789     $view_hdr = (int) $temp;
 790 }
 791
 792 if ( sqgetGlobalVar('account', $temp,  SQ_GET) ) {
 793     $iAccount = (int) $temp;
 794 } else {
 795     $iAccount = 0;
 796 }
 797
 798 /** GET/POST VARS */
 799 sqgetGlobalVar('passed_id',     $passed_id, SQ_INORDER, NULL, SQ_TYPE_BIGINT);
 800 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
 801 sqgetGlobalVar('mailbox',       $mailbox);
 802
 803 if ( sqgetGlobalVar('sort', $temp) ) {
 804     $sort = (int) $temp;
 805 }
 806 if ( sqgetGlobalVar('startMessage', $temp) ) {
 807     $startMessage = (int) $temp;
 808 } else {
 809     $startMessage = 1;
 810 }
 811 if(sqgetGlobalVar('show_html_default', $temp)) {
 812     $show_html_default = (int) $temp;
 813 }
 814
 815 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
 816     $view_unsafe_images = (int) $temp;
 817     if($view_unsafe_images == 1) {
 818         $show_html_default = 1;
 819     }
 820 } else {
 821     $view_unsafe_images = 0;
 822 }
 823
 824 /**
 825  * Retrieve mailbox cache
 826  */
 827 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
 828
 829 /* end of get globals */
 830
 831 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
 832 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
 833
 834
 835 /**
 836  Start code to set the columns to fetch in case of hitting the next/prev link
 837  The reason for this is the fact that the cache can be invalidated which means that the headers
 838  to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
 839
 840  Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
 841 */
 842
 843 /**
 844  * Replace From => To  in case it concerns a draft or sent folder
 845  */
 846 $aColumns = array();
 847 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
 848     !in_array(SQM_COL_TO,$index_order)) {
 849     $aNewOrder = array(); // nice var name ;)
 850     foreach($index_order as $iCol) {
 851         if ($iCol == SQM_COL_FROM) {
 852             $iCol = SQM_COL_TO;
 853         }
 854         $aColumns[$iCol] = array();
 855    }
 856 } else {
 857    foreach ($index_order as $iCol) {
 858        $aColumns[$iCol] = array();
 859    }
 860 }
 861
 862 $aProps = array(
 863     'columns' => $aColumns, // columns bound settings
 864     'config'  => array(
 865                         'highlight_list'        => $message_highlight_list, // row highlighting rules
 866                         'trash_folder'          => $trash_folder,
 867                         'sent_folder'           => $sent_folder,
 868                         'draft_folder'          => $draft_folder));
 869
 870 calcFetchColumns($aMailbox,$aProps);
 871
 872 /**
 873  End code to set the columns to fetch in case of hitting the next/prev link
 874 */
 875
 876
 877
 878 /**
 879  * Check if cache is still valid, $what contains the key
 880  * which gives us acces to the array with uid's. At this moment
 881  * 0 is used for a normal message list and search uses 1 as key. This can be
 882  * changed / extended in the future.
 883  * If on a select of a mailbox we detect that the cache should be invalidated due to
 884  * the delete of messages or due to new messages we empty the list with uid's and
 885  * that's what we detect below.
 886  */
 887 if (!is_array($aMailbox['UIDSET'][$what])) {
 888     fetchMessageHeaders($imapConnection, $aMailbox);
 889 }
 890
 891 $iSetIndex = $aMailbox['SETINDEX'];
 892 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
 893
 894 /**
 895  * Update the seen state
 896  * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
 897  */
 898 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 899     $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
 900 }
 901
 902 /**
 903  * Process Delete from delete-move-next
 904  * but only if delete_id was set
 905  */
 906 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
 907     handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
 908 }
 909
 910 /**
 911  * $message contains all information about the message
 912  * including header and body
 913  */
 914
 915 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
 916     $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
 917     $FirstTimeSee = !$message->is_seen;
 918 } else {
 919     $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
 920     $FirstTimeSee = !$message->is_seen;
 921 }
 922
 923 /**
 924  * update message seen status and put in cache
 925  */
 926 $message->is_seen = true;
 927 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 928
 929 if (isset($passed_ent_id) && $passed_ent_id) {
 930     $message = $message->getEntity($passed_ent_id);
 931     if ($message->type0 != 'message'  && $message->type1 != 'rfc822') {
 932         $message = $message->parent;
 933     }
 934     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
 935     $rfc822_header = new Rfc822Header();
 936     $rfc822_header->parseHeader($read);
 937     $message->rfc822_header = $rfc822_header;
 938 } else if ($message->type0 == 'message'  && $message->type1 == 'rfc822' && isset($message->entities[0])) {
 939     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
 940     $rfc822_header = new Rfc822Header();
 941     $rfc822_header->parseHeader($read);
 942     $message->rfc822_header = $rfc822_header;
 943 } else {
 944     $passed_ent_id = 0;
 945 }
 946 $header = $message->header;
 947
 948
 949 /****************************************/
 950 /* Block for handling incoming url vars */
 951 /****************************************/
 952
 953 if (isset($sendreceipt)) {
 954    if ( !$message->is_mdnsent ) {
 955       $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
 956       if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
 957          ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
 958          $message->is_mdnsent = true;
 959          $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 960       }
 961    }
 962 }
 963 /***********************************************/
 964 /* End of block for handling incoming url vars */
 965 /***********************************************/
 966
 967 $oTemplate->assign('aAttribs', array('class' => 'entity_sep'));
 968 $hr = $oTemplate->fetch('horizontal_rule.tpl');
 969 $messagebody = '';
 970 do_hook('read_body_top', $null);
 971 if ($show_html_default == 1) {
 972     $ent_ar = $message->findDisplayEntity(array());
 973 } else {
 974     $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
 975 }
 976 $cnt = count($ent_ar);
 977 for ($i = 0; $i < $cnt; $i++) {
 978    $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
 979    if ($i != $cnt-1) {
 980        $messagebody .= $hr;
 981    }
 982 }
 983
 984 /**
 985  * Write mailbox with updated seen flag information back to cache.
 986  */
 987 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
 988 sqsession_register($mailbox_cache,'mailbox_cache');
 989 $_SESSION['mailbox_cache'] = $mailbox_cache;
 990
 991 // message list URI is used in page header when on read_body
 992 $oTemplate->assign('message_list_href', get_message_list_uri($aMailbox['NAME'], $startMessage, $what));
 993
 994 displayPageHeader($color, $mailbox,'','');
 995
 996 /* this is the non-javascript version of printer friendly */
 997 if ( sqgetGlobalVar('print', $print, SQ_GET) ) {
 998     $oTemplate->display('read_message_print.tpl');
 999 } else {
1000     formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,false);
1001 }
1002 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
1003
1004 $oTemplate->assign('message_body', $messagebody);
1005 $oTemplate->display('read_message_body.tpl');
1006
1007 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
1008
1009 /* show attached images inline -- if pref'fed so */
1010 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
1011     $images = array();
1012     foreach ($attachment_common_show_images_list as $img) {
1013         $imgurl = SM_PATH . 'src/download.php' .
1014                 '?' .
1015                 'passed_id='     . urlencode($img['passed_id']) .
1016                 '&amp;mailbox='       . urlencode($mailbox) .
1017                 '&amp;ent_id=' . urlencode($img['ent_id']) .
1018                 '&amp;absolute_dl=true';
1019         $a = array();
1020         $a['Name'] = $img['name'];
1021         $a['DisplayURL'] = $imgurl;
1022         $a['DownloadURL'] = $img['download_href'];
1023         $images[] = $a;
1024     }
1025
1026     $oTemplate->assign('images', $images);
1027     $oTemplate->display('read_display_images_inline.tpl');
1028 }
1029
1030 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
1031
1032 do_hook('read_body_bottom', $null);
1033 sqimap_logout($imapConnection);
1034 $oTemplate->display('footer.tpl');