src/read_body.php

   1 <?php
   2
   3 /**
   4  * read_body.php
   5  *
   6  * This file is used for reading the msgs array and displaying
   7  * the resulting emails in the right frame.
   8  *
   9  * @copyright 1999-2021 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 or -1 if there is no next message
  41  */
  42 function findNextMessage($uidset,$passed_id='backwards') {
  43     if (!is_array($uidset)) {
  44         return -1;
  45     }
  46     if ($passed_id=='backwards' || !is_array($uidset)) { // check for backwards compattibilty gpg plugin
  47         $passed_id = $uidset;
  48     }
  49     $result = sqm_array_get_value_by_offset($uidset,$passed_id,1);
  50     if ($result === false) {
  51         return -1;
  52     } else {
  53         return $result;
  54     }
  55 }
  56
  57 /**
  58  * Given an IMAP message id number, this will look it up in the cached
  59  * and sorted msgs array and return the index of the previous message
  60  *
  61  * @param int $passed_id The current message UID
  62  * @return the index of the previous valid message from the array or -1 if there is no previous message
  63  */
  64
  65 function findPreviousMessage($uidset, $passed_id) {
  66     if (!is_array($uidset)) {
  67         return -1;
  68     }
  69     $result = sqm_array_get_value_by_offset($uidset,$passed_id,-1);
  70     if ($result === false) {
  71         return -1;
  72     } else {
  73         return $result;
  74     }
  75 }
  76
  77 function html_toggle_href ($mailbox, $passed_id, $passed_ent_id, $message) {
  78     global $base_uri, $show_html_default;
  79
  80     $has_html = false;
  81     if ($message->header->type0 == 'message' && $message->header->type1 == 'rfc822') {
  82         $type0 = $message->rfc822_header->content_type->type0;
  83         $type1 = $message->rfc822_header->content_type->type1;
  84     } else {
  85         $type0 = $message->header->type0;
  86         $type1 = $message->header->type1;
  87     }
  88     if($type0 == 'multipart' &&
  89        ($type1 == 'alternative' || $type1 == 'mixed' || $type1 == 'related' || $type1=='signed')) {
  90         if ($message->findDisplayEntity(array(), array('text/html'), true)) {
  91             $has_html = true;
  92         }
  93     }
  94     /*
  95      * Normal single part message so check its type.
  96      */
  97     else {
  98         if($type0 == 'text' && $type1 == 'html') {
  99             $has_html = true;
 100         }
 101     }
 102     if($has_html == true) {
 103         $vars = array('passed_ent_id', 'show_more', 'show_more_cc', 'override_type0', 'override_type1', 'startMessage','where', 'what');
 104
 105         $new_link = $base_uri . 'src/read_body.php?passed_id=' . urlencode($passed_id) .
 106                     '&amp;passed_ent_id=' . urlencode($passed_ent_id) .
 107                     '&amp;mailbox=' . urlencode($mailbox);
 108         foreach($vars as $var) {
 109             if(sqgetGlobalVar($var, $temp)) {
 110                 $new_link .= '&amp;' . $var . '=' . urlencode($temp);
 111             }
 112         }
 113
 114         if($show_html_default == 1) {
 115             $new_link .= '&amp;show_html_default=0';
 116         } else {
 117             $new_link .= '&amp;show_html_default=1';
 118         }
 119         return $new_link;
 120     }
 121     return '';
 122 }
 123
 124 function ServerMDNSupport($aFlags) {
 125     /* escaping $ doesn't work -> \x36 */
 126     return ( in_array('$mdnsent',$aFlags,true) ||
 127              in_array('\\*',$aFlags,true) ) ;
 128 }
 129
 130 function SendMDN ( $mailbox, $passed_id, $message, $imapConnection) {
 131     global $squirrelmail_language, $default_charset, $default_move_to_sent,
 132            $languages, $useSendmail, $domain, $sent_folder, $username,
 133            $data_dir;
 134
 135     sqgetGlobalVar('SERVER_NAME', $SERVER_NAME, SQ_SERVER);
 136
 137     $header = $message->rfc822_header;
 138
 139     $rfc822_header = new Rfc822Header();
 140     $content_type  = new ContentType('multipart/report');
 141     $content_type->properties['report-type']='disposition-notification';
 142
 143     set_my_charset();
 144     if ($default_charset) {
 145         $content_type->properties['charset']=$default_charset;
 146     }
 147     $rfc822_header->content_type = $content_type;
 148     $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 = '7bit';
 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 = '7bit';
 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(sm_encode_html_special_chars($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' => sm_encode_html_special_chars($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 void    $removedVar    This parameter is no longer used, but remains
 467  *                               so as not to break this function's prototype
 468  *                               (OPTIONAL)
 469  * @param boolean $nav_on_top    When TRUE, the menubar is being constructed
 470  *                               for use at the top of the page, otherwise it
 471  *                               will be used for page bottom (OPTIONAL;
 472  *                               default = TRUE)
 473  */
 474 function formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,
 475                        $removedVar=FALSE, $nav_on_top=TRUE) {
 476
 477     global $base_uri, $draft_folder, $where, $what, $sort,
 478            $startMessage, $PHP_SELF, $save_as_draft,
 479            $enable_forward_as_attachment, $imapConnection, $lastTargetMailbox,
 480            $delete_prev_next_display, $show_copy_buttons,
 481            $compose_new_win, $compose_width, $compose_height,
 482            $oTemplate, $return_to_message_list_after_move;
 483
 484     //FIXME cleanup argument list, use $aMailbox where possible
 485     $mailbox = $aMailbox['NAME'];
 486
 487     $urlMailbox = urlencode($mailbox);
 488
 489     // Create Prev & Next links
 490     // Handle nested entities first (i.e. Mime Attach parts)
 491     $prev_href = $next_href = $up_href = $del_href = $del_prev_href = $del_next_href = '';
 492     $msg_list_href = $search_href = $view_msg_href = '';
 493     if (isset($passed_ent_id) && $passed_ent_id) {
 494         // code for navigating through attached message/rfc822 messages
 495         $url = set_url_var($PHP_SELF, 'passed_ent_id',0);
 496         $entities     = array();
 497         $entity_count = array();
 498         $c = 0;
 499
 500         foreach($message->parent->entities as $ent) {
 501             if ($ent->type0 == 'message' && $ent->type1 == 'rfc822') {
 502
 503                 $c++;
 504                 $entity_count[$c] = $ent->entity_id;
 505                 $entities[$ent->entity_id] = $c;
 506             }
 507         }
 508
 509         if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] > 1) {
 510             $prev_ent_id = $entity_count[$entities[$passed_ent_id] - 1];
 511             $prev_href = set_url_var($PHP_SELF, 'passed_ent_id', $prev_ent_id);
 512         }
 513
 514         if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] < $c) {
 515             $next_ent_id = $entity_count[$entities[$passed_ent_id] + 1];
 516             $next_href = set_url_var($PHP_SELF, 'passed_ent_id', $next_ent_id);
 517         }
 518
 519         $par_ent_id = $message->parent->entity_id;
 520         if ($par_ent_id) {
 521             $par_ent_id = substr($par_ent_id,0,-2);
 522             if ( $par_ent_id != 0 ) {
 523                 $up_href = set_url_var($PHP_SELF, 'passed_ent_id',$par_ent_id);
 524             }
 525         }
 526
 527         $view_msg_href = $url;
 528
 529     // Prev/Next links for regular messages
 530     } else if ( true ) { //!(isset($where) && isset($what)) ) {
 531         $prev = findPreviousMessage($aMailbox['UIDSET'][$what], $passed_id);
 532         $next = findNextMessage($aMailbox['UIDSET'][$what],$passed_id);
 533
 534         if ($prev >= 0) {
 535             $prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
 536                    '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 537                    "&amp;where=$where&amp;what=$what" .
 538                    '&amp;startMessage='.$startMessage.'&amp;show_more=0';
 539         }
 540
 541         if ($next >= 0) {
 542             $next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
 543                    '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 544                    "&amp;where=$where&amp;what=$what" .
 545                    '&amp;startMessage='.$startMessage.'&amp;show_more=0';
 546         }
 547
 548         // Only bother with Delete & Prev and Delete & Next IF
 549         // top display is enabled.
 550         if ( $delete_prev_next_display == 1 &&
 551                in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true) ) {
 552             if ($prev >= 0) {
 553                 $del_prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
 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                        '&amp;smtoken='.sm_generate_security_token();
 559             }
 560
 561             if ($next >= 0) {
 562                 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
 563                        '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 564                        '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
 565                        "&amp;where=$where&amp;what=$what" .
 566                        '&amp;delete_id='.$passed_id .
 567                        '&amp;smtoken='.sm_generate_security_token();
 568             }
 569         }
 570     }
 571
 572     $msg_list_href = get_message_list_uri($aMailbox['NAME'], $startMessage, $what);
 573     if ($where == 'search.php')
 574         $search_href = str_replace('read_body.php', 'search.php', $msg_list_href);
 575     else
 576         $search_href = '';
 577
 578     $comp_uri = $base_uri.'src/compose.php' .
 579                 '?passed_id=' . $passed_id .
 580                 '&amp;mailbox=' . $urlMailbox .
 581                 '&amp;startMessage=' . $startMessage .
 582                  (isset($passed_ent_id) ? '&amp;passed_ent_id='.$passed_ent_id : '');
 583
 584     // Start form for reply/reply all/forward..
 585     $target = '';
 586     $on_click='';
 587     $method='post';
 588     $onsubmit='';
 589     if ($compose_new_win == '1') {
 590         if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
 591             $compose_width = '640';
 592         }
 593         if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
 594             $compose_height = '550';
 595         }
 596         if ( checkForJavascript() ) {
 597           $on_click='comp_in_new_form(\''.$comp_uri.'\', this, this.form,'. $compose_width .',' . $compose_height .')';
 598           $comp_uri = 'javascript:void(0)';
 599           $method='get';
 600           $onsubmit = 'return false';
 601         } else {
 602           $target = '_blank';
 603         }
 604     }
 605
 606     $oTemplate->assign('nav_on_top', $nav_on_top);
 607
 608     $oTemplate->assign('prev_href', $prev_href);
 609     $oTemplate->assign('up_href', $up_href);
 610     $oTemplate->assign('next_href', $next_href);
 611     $oTemplate->assign('del_prev_href', $del_prev_href);
 612     $oTemplate->assign('del_next_href', $del_next_href);
 613     $oTemplate->assign('view_msg_href', $view_msg_href);
 614
 615     $oTemplate->assign('message_list_href', $msg_list_href);
 616     $oTemplate->assign('search_href', $search_href);
 617
 618     $oTemplate->assign('form_extra', '');
 619     $oTemplate->assign('form_method', $method);
 620     $oTemplate->assign('form_target', $target);
 621     $oTemplate->assign('form_onsubmit', $onsubmit);
 622     $oTemplate->assign('compose_href', $comp_uri);
 623     $oTemplate->assign('button_onclick', $on_click);
 624     $oTemplate->assign('forward_as_attachment_enabled', $enable_forward_as_attachment==1);
 625
 626     //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
 627     $oTemplate->assign('mailbox', $aMailbox['NAME']);
 628     $oTemplate->assign('passed_id', $passed_id);
 629     $oTemplate->assign('what', $what);
 630
 631     // If Draft folder - create Resume link
 632     $resume_draft = $edit_as_new = false;
 633     if (isDraftMailbox($mailbox) && ($save_as_draft)) {
 634         $resume_draft = true;
 635     } else if (handleAsSent($mailbox)) {
 636         $edit_as_new = true;
 637     }
 638     $oTemplate->assign('can_resume_draft', $resume_draft);
 639     $oTemplate->assign('can_edit_as_new', $edit_as_new);
 640
 641     $oTemplate->assign('mailboxes', sqimap_mailbox_option_array($imapConnection));
 642     if (in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true)) {
 643         $oTemplate->assign('can_be_deleted', true);
 644         // force return-to-message-list if this is the only message in the folder
 645         if ($return_to_message_list_after_move || ($next < 0 && $prev < 0))
 646             $oTemplate->assign('move_delete_form_action', $base_uri.'src/'.$where);
 647         else
 648             $oTemplate->assign('move_delete_form_action', $base_uri.'src/read_body.php');
 649         $oTemplate->assign('delete_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 650                                                 addHidden('msg[0]', $passed_id)."\n" .
 651                                                 addHidden('startMessage', $startMessage)."\n" );
 652         if (!(isset($passed_ent_id) && $passed_ent_id)) {
 653             $oTemplate->assign('can_be_moved', true);
 654             $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 655                                                   addHidden('msg[0]', $passed_id)."\n" .
 656                                                   // only need when $return_to_message_list_after_move is off
 657                                                   addHidden('passed_id', ($next >= 0 ? $next : $prev))."\n" .
 658                                                   addHidden('startMessage', $startMessage)."\n" );
 659             $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ? $lastTargetMailbox : '');
 660             $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
 661         } else {
 662             $oTemplate->assign('can_be_moved', false);
 663             $oTemplate->assign('move_form_extra', '');
 664             $oTemplate->assign('last_move_target', '');
 665             $oTemplate->assign('can_be_copied', false);
 666         }
 667     } else {
 668         $oTemplate->assign('can_be_deleted', false);
 669         $oTemplate->assign('move_delete_form_action', '');
 670         $oTemplate->assign('delete_form_extra', '');
 671         $oTemplate->assign('can_be_moved', false);
 672         $oTemplate->assign('move_form_extra', '');
 673         $oTemplate->assign('last_move_target', '');
 674         $oTemplate->assign('can_be_copied', false);
 675     }
 676
 677     // access keys... only add to the top menubar, because adding
 678     // them twice makes them less functional (press access key, *then*
 679     // press <enter> to make it work)
 680     //
 681     if ($nav_on_top) {
 682         global $accesskey_read_msg_reply, $accesskey_read_msg_reply_all,
 683                $accesskey_read_msg_forward, $accesskey_read_msg_as_attach,
 684                $accesskey_read_msg_delete, $accesskey_read_msg_bypass_trash,
 685                $accesskey_read_msg_move, $accesskey_read_msg_move_to,
 686                $accesskey_read_msg_copy;
 687     } else {
 688         $accesskey_read_msg_reply = $accesskey_read_msg_reply_all =
 689         $accesskey_read_msg_forward = $accesskey_read_msg_as_attach =
 690         $accesskey_read_msg_delete = $accesskey_read_msg_bypass_trash =
 691         $accesskey_read_msg_move = $accesskey_read_msg_move_to =
 692         $accesskey_read_msg_copy = 'NONE';
 693     }
 694     $oTemplate->assign('accesskey_read_msg_reply', $accesskey_read_msg_reply);
 695     $oTemplate->assign('accesskey_read_msg_reply_all', $accesskey_read_msg_reply_all);
 696     $oTemplate->assign('accesskey_read_msg_forward', $accesskey_read_msg_forward);
 697     $oTemplate->assign('accesskey_read_msg_as_attach', $accesskey_read_msg_as_attach);
 698     $oTemplate->assign('accesskey_read_msg_delete', $accesskey_read_msg_delete);
 699     $oTemplate->assign('accesskey_read_msg_bypass_trash', $accesskey_read_msg_bypass_trash);
 700     $oTemplate->assign('accesskey_read_msg_move_to', $accesskey_read_msg_move_to);
 701     $oTemplate->assign('accesskey_read_msg_move', $accesskey_read_msg_move);
 702     $oTemplate->assign('accesskey_read_msg_copy', $accesskey_read_msg_copy);
 703
 704     global $null;
 705     do_hook('read_body_menu', $null);
 706
 707     if ($nav_on_top) {
 708         $oTemplate->display('read_menubar_nav.tpl');
 709         $oTemplate->display('read_menubar_buttons.tpl');
 710     } else {
 711         $oTemplate->display('read_menubar_buttons.tpl');
 712         $oTemplate->display('read_menubar_nav.tpl');
 713     }
 714
 715 }
 716
 717 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
 718     global $base_uri, $where, $what, $show_html_default,
 719            $oTemplate, $download_href, $PHP_SELF,
 720            $unsafe_image_toggle_href, $unsafe_image_toggle_text;
 721
 722     $urlMailbox = urlencode($mailbox);
 723     $urlPassed_id = urlencode($passed_id);
 724     $urlPassed_ent_id = urlencode($passed_ent_id);
 725
 726     $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
 727     if (!empty($where)) {
 728         $query_string .= '&amp;where=' . urlencode($where);
 729     }
 730     if (!empty($what)) {
 731         $query_string .= '&amp;what=' . urlencode($what);
 732     }
 733     $url = $base_uri.'src/view_header.php?'.$query_string;
 734
 735     $links = array();
 736     $links[] = array (
 737                         'URL'   => $url,
 738                         'Text'  => _("View Full Header")
 739                      );
 740
 741     if ( checkForJavaScript() ) {
 742         $links[] = array (
 743                         'URL'   => 'javascript:printThis();',
 744                         'Text'  => _("Print"),
 745                      );
 746     } else {
 747         $links[] = array (
 748                         'URL'   => set_url_var($PHP_SELF, 'print', '1'),
 749                         'Text'  => _("Print"),
 750                         'Target' => '_blank'
 751                      );
 752     }
 753
 754     $links[] = array (
 755                         'URL'   => $download_href,
 756                         'Text'  => _("Download this as a file")
 757                      );
 758     $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
 759     if (!empty($toggle)) {
 760         $links[] = array (
 761                             'URL'   => $toggle,
 762                             'Text'  => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
 763                          );
 764     }
 765     if (!empty($unsafe_image_toggle_href)) {
 766         $links[] = array (
 767                             'URL'   => $unsafe_image_toggle_href,
 768                             'Text'  => $unsafe_image_toggle_text
 769                          );
 770     }
 771
 772     do_hook('read_body_header_right', $links);
 773
 774     $oTemplate->assign('links', $links);
 775
 776     return $oTemplate->fetch('read_toolbar.tpl');
 777 }
 778
 779 /***************************/
 780 /*   Main of read_body.php */
 781 /***************************/
 782
 783 /* get the globals we may need */
 784
 785 sqgetGlobalVar('delimiter', $delimiter,     SQ_SESSION);
 786 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
 787 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
 788     $messages = array();
 789 }
 790 sqgetGlobalVar('delayed_errors',  $delayed_errors,  SQ_SESSION);
 791 if (is_array($delayed_errors)) {
 792     $oErrorHandler->AssignDelayedErrors($delayed_errors);
 793     sqsession_unregister("delayed_errors");
 794 }
 795 /** GET VARS */
 796 sqgetGlobalVar('sendreceipt',   $sendreceipt,   SQ_GET);
 797 if (!sqgetGlobalVar('where',         $where,         SQ_GET) ) {
 798     $where = 'right_main.php';
 799 }
 800 /*
 801  * Used as entry key to the list of uid's cached in the mailbox cache
 802  * we use the cached uid's to get the next and prev  message.
 803  */
 804 if (!sqgetGlobalVar('what',          $what,          SQ_GET) ){
 805     $what = 0;
 806 }
 807 if ( sqgetGlobalVar('show_more', $temp,  SQ_GET) ) {
 808     $show_more = (int) $temp;
 809 }
 810 if ( sqgetGlobalVar('show_more_cc', $temp,  SQ_GET) ) {
 811     $show_more_cc = (int) $temp;
 812 }
 813 if ( sqgetGlobalVar('show_more_bcc', $temp,  SQ_GET) ) {
 814     $show_more_bcc = (int) $temp;
 815 }
 816 if ( sqgetGlobalVar('view_hdr', $temp,  SQ_GET) ) {
 817     $view_hdr = (int) $temp;
 818 }
 819
 820 if ( sqgetGlobalVar('account', $temp,  SQ_GET) ) {
 821     $iAccount = (int) $temp;
 822 } else {
 823     $iAccount = 0;
 824 }
 825
 826 /** GET/POST VARS */
 827 sqgetGlobalVar('passed_id',     $passed_id, SQ_INORDER, NULL, SQ_TYPE_BIGINT);
 828 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
 829 sqgetGlobalVar('mailbox',       $mailbox);
 830
 831 if ( sqgetGlobalVar('sort', $temp) ) {
 832     $sort = (int) $temp;
 833 }
 834 if ( sqgetGlobalVar('startMessage', $temp) ) {
 835     $startMessage = (int) $temp;
 836 } else {
 837     $startMessage = 1;
 838 }
 839 if(sqgetGlobalVar('show_html_default', $temp)) {
 840     $show_html_default = (int) $temp;
 841 }
 842
 843 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
 844     $view_unsafe_images = (int) $temp;
 845     if($view_unsafe_images == 1) {
 846         $show_html_default = 1;
 847     }
 848 } else {
 849     $view_unsafe_images = 0;
 850 }
 851
 852 /**
 853  * Retrieve mailbox cache
 854  */
 855 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
 856
 857 /* end of get globals */
 858
 859 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
 860 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
 861
 862
 863 /**
 864  Start code to set the columns to fetch in case of hitting the next/prev link
 865  The reason for this is the fact that the cache can be invalidated which means that the headers
 866  to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
 867
 868  Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
 869 */
 870
 871 /**
 872  * Replace From => To  in case it concerns a draft or sent folder
 873  */
 874 $aColumns = array();
 875 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
 876     !in_array(SQM_COL_TO,$index_order)) {
 877     $aNewOrder = array(); // nice var name ;)
 878     foreach($index_order as $iCol) {
 879         if ($iCol == SQM_COL_FROM) {
 880             $iCol = SQM_COL_TO;
 881         }
 882         $aColumns[$iCol] = array();
 883    }
 884 } else {
 885    foreach ($index_order as $iCol) {
 886        $aColumns[$iCol] = array();
 887    }
 888 }
 889
 890 $aProps = array(
 891     'columns' => $aColumns, // columns bound settings
 892     'config'  => array(
 893                         'highlight_list'        => $message_highlight_list, // row highlighting rules
 894                         'trash_folder'          => $trash_folder,
 895                         'sent_folder'           => $sent_folder,
 896                         'draft_folder'          => $draft_folder));
 897
 898 calcFetchColumns($aMailbox,$aProps);
 899
 900 /**
 901  End code to set the columns to fetch in case of hitting the next/prev link
 902 */
 903
 904
 905
 906 /**
 907  * Check if cache is still valid, $what contains the key
 908  * which gives us acces to the array with uid's. At this moment
 909  * 0 is used for a normal message list and search uses 1 as key. This can be
 910  * changed / extended in the future.
 911  * If on a select of a mailbox we detect that the cache should be invalidated due to
 912  * the delete of messages or due to new messages we empty the list with uid's and
 913  * that's what we detect below.
 914  */
 915 if (!is_array($aMailbox['UIDSET'][$what])) {
 916     fetchMessageHeaders($imapConnection, $aMailbox);
 917 }
 918
 919 $iSetIndex = $aMailbox['SETINDEX'];
 920 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
 921
 922 /**
 923  * Update the seen state
 924  * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
 925  */
 926 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 927     $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
 928 }
 929
 930 /**
 931  * Process Delete from delete-move-next
 932  * but only if delete_id was set
 933  */
 934 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
 935     handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
 936 }
 937
 938 /**
 939  * or move button... why is handleMessageListForm (per above) conditional anway?
 940  */
 941 if ( sqgetGlobalVar('moveButton', $ignore, SQ_POST) ) {
 942     $sError = handleMessageListForm($imapConnection,$aMailbox);
 943     sqgetGlobalVar('targetMailbox', $lastTargetMailbox, SQ_POST);
 944 }
 945
 946 /**
 947  * $message contains all information about the message
 948  * including header and body
 949  */
 950
 951 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
 952     $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
 953     $FirstTimeSee = !$message->is_seen;
 954 } else {
 955     $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
 956     $FirstTimeSee = !$message->is_seen;
 957 }
 958
 959 /**
 960  * update message seen status and put in cache
 961  */
 962 $message->is_seen = true;
 963 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 964
 965 if (isset($passed_ent_id) && $passed_ent_id) {
 966     $message = $message->getEntity($passed_ent_id);
 967     if ($message->type0 != 'message'  && $message->type1 != 'rfc822') {
 968         $message = $message->parent;
 969     }
 970     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
 971     $rfc822_header = new Rfc822Header();
 972     $rfc822_header->parseHeader($read);
 973     $message->rfc822_header = $rfc822_header;
 974 } else if ($message->type0 == 'message'  && $message->type1 == 'rfc822' && isset($message->entities[0])) {
 975     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
 976     $rfc822_header = new Rfc822Header();
 977     $rfc822_header->parseHeader($read);
 978     $message->rfc822_header = $rfc822_header;
 979 } else {
 980     $passed_ent_id = 0;
 981 }
 982 $header = $message->header;
 983
 984 // gmail does not mark messages as read when retrieving the message body
 985 // even though RFC 3501, section 6.4.5 (FETCH Command) says:
 986 // "The \Seen flag is implicitly set; if this causes the flags to change,
 987 // they SHOULD be included as part of the FETCH responses."
 988 //
 989 if ($imap_server_type == 'gmail') {
 990     sqimap_toggle_flag($imapConnection, $passed_id, '\\Seen', true, true);
 991 }
 992
 993 /****************************************/
 994 /* Block for handling incoming url vars */
 995 /****************************************/
 996
 997 if (isset($sendreceipt)) {
 998    if ( !$message->is_mdnsent ) {
 999       $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
1000       if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
1001          ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
1002          $message->is_mdnsent = true;
1003          $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
1004       }
1005    }
1006 }
1007 /***********************************************/
1008 /* End of block for handling incoming url vars */
1009 /***********************************************/
1010
1011 $oTemplate->assign('aAttribs', array('class' => 'entity_sep'));
1012 $hr = $oTemplate->fetch('horizontal_rule.tpl');
1013 $messagebody = '';
1014 do_hook('read_body_top', $null);
1015 if ($show_html_default == 1) {
1016     $ent_ar = $message->findDisplayEntity(array());
1017 } else {
1018     $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
1019 }
1020 $cnt = count($ent_ar);
1021 for ($i = 0; $i < $cnt; $i++) {
1022    $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
1023    if ($i != $cnt-1) {
1024        $messagebody .= $hr;
1025    }
1026 }
1027
1028 /**
1029  * Write mailbox with updated seen flag information back to cache.
1030  */
1031 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
1032 sqsession_register($mailbox_cache,'mailbox_cache');
1033 $_SESSION['mailbox_cache'] = $mailbox_cache;
1034
1035 // message list URI is used in page header when on read_body
1036 $oTemplate->assign('message_list_href', get_message_list_uri($aMailbox['NAME'], $startMessage, $what));
1037
1038 displayPageHeader($color, $mailbox,'','');
1039
1040 /* this is the non-javascript version of printer friendly */
1041 if ( sqgetGlobalVar('print', $print, SQ_GET) ) {
1042     $oTemplate->display('read_message_print.tpl');
1043 } else {
1044     formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,false);
1045 }
1046 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
1047
1048 $oTemplate->assign('message_body', $messagebody);
1049 $oTemplate->display('read_message_body.tpl');
1050
1051 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
1052
1053 /* show attached images inline -- if pref'fed so */
1054 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
1055     $images = array();
1056     foreach ($attachment_common_show_images_list as $img) {
1057         $imgurl = SM_PATH . 'src/download.php' .
1058                 '?' .
1059                 'passed_id='     . urlencode($img['passed_id']) .
1060                 '&amp;mailbox='       . urlencode($mailbox) .
1061                 '&amp;ent_id=' . urlencode($img['ent_id']) .
1062                 '&amp;absolute_dl=true';
1063         $a = array();
1064         $a['Name'] = $img['name'];
1065         $a['DisplayURL'] = $imgurl;
1066         $a['DownloadURL'] = $img['download_href'];
1067         $images[] = $a;
1068     }
1069
1070     $oTemplate->assign('images', $images);
1071     $oTemplate->display('read_display_images_inline.tpl');
1072 }
1073
1074 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
1075
1076 do_hook('read_body_bottom', $null);
1077 sqimap_logout($imapConnection);
1078 $oTemplate->display('footer.tpl');