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 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;
 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             }
 559
 560             if ($next >= 0) {
 561                 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
 562                        '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 563                        '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
 564                        "&amp;where=$where&amp;what=$what" .
 565                        '&amp;delete_id='.$passed_id;
 566             }
 567         }
 568     }
 569
 570     $msg_list_href = get_message_list_uri($aMailbox['NAME'], $startMessage, $what);
 571     if ($where == 'search.php')
 572         $search_href = str_replace('read_body.php', 'search.php', $msg_list_href);
 573     else
 574         $search_href = '';
 575
 576     $comp_uri = $base_uri.'src/compose.php' .
 577                 '?passed_id=' . $passed_id .
 578                 '&amp;mailbox=' . $urlMailbox .
 579                 '&amp;startMessage=' . $startMessage .
 580                  (isset($passed_ent_id) ? '&amp;passed_ent_id='.$passed_ent_id : '');
 581
 582     // Start form for reply/reply all/forward..
 583     $target = '';
 584     $on_click='';
 585     $method='post';
 586     $onsubmit='';
 587     if ($compose_new_win == '1') {
 588         if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
 589             $compose_width = '640';
 590         }
 591         if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
 592             $compose_height = '550';
 593         }
 594         if ( checkForJavascript() ) {
 595           $on_click='comp_in_new_form(\''.$comp_uri.'\', this, this.form,'. $compose_width .',' . $compose_height .')';
 596           $comp_uri = 'javascript:void(0)';
 597           $method='get';
 598           $onsubmit = 'return false';
 599         } else {
 600           $target = '_blank';
 601         }
 602     }
 603
 604     $oTemplate->assign('nav_on_top', $nav_on_top);
 605
 606     $oTemplate->assign('prev_href', $prev_href);
 607     $oTemplate->assign('up_href', $up_href);
 608     $oTemplate->assign('next_href', $next_href);
 609     $oTemplate->assign('del_prev_href', $del_prev_href);
 610     $oTemplate->assign('del_next_href', $del_next_href);
 611     $oTemplate->assign('view_msg_href', $view_msg_href);
 612
 613     $oTemplate->assign('message_list_href', $msg_list_href);
 614     $oTemplate->assign('search_href', $search_href);
 615
 616     $oTemplate->assign('form_extra', '');
 617     $oTemplate->assign('form_method', $method);
 618     $oTemplate->assign('form_target', $target);
 619     $oTemplate->assign('form_onsubmit', $onsubmit);
 620     $oTemplate->assign('compose_href', $comp_uri);
 621     $oTemplate->assign('button_onclick', $on_click);
 622     $oTemplate->assign('forward_as_attachment_enabled', $enable_forward_as_attachment==1);
 623
 624     //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
 625     $oTemplate->assign('mailbox', $aMailbox['NAME']);
 626     $oTemplate->assign('passed_id', $passed_id);
 627     $oTemplate->assign('what', $what);
 628
 629     // If Draft folder - create Resume link
 630     $resume_draft = $edit_as_new = false;
 631     if (($mailbox == $draft_folder) && ($save_as_draft)) {
 632         $resume_draft = true; 'smaction_draft';
 633     } else if (handleAsSent($mailbox)) {
 634         $edit_as_new = true;
 635     }
 636     $oTemplate->assign('can_resume_draft', $resume_draft);
 637     $oTemplate->assign('can_edit_as_new', $edit_as_new);
 638
 639     $oTemplate->assign('mailboxes', sqimap_mailbox_option_array($imapConnection));
 640     if (in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true)) {
 641         $delete_url = $base_uri . "src/$where";
 642         $oTemplate->assign('can_be_deleted', true);
 643         $oTemplate->assign('move_delete_form_action', $base_uri.'src/'.$where);
 644         $oTemplate->assign('delete_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 645                                                 addHidden('msg[0]', $passed_id)."\n" .
 646                                                 addHidden('startMessage', $startMessage)."\n" );
 647         if (!(isset($passed_ent_id) && $passed_ent_id)) {
 648             $oTemplate->assign('can_be_moved', true);
 649             $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 650                                                   addHidden('msg[0]', $passed_id)."\n" );
 651             $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ? $lastTargetMailbox : '');
 652             $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
 653         } else {
 654             $oTemplate->assign('can_be_moved', false);
 655             $oTemplate->assign('move_form_extra', '');
 656             $oTemplate->assign('last_move_target', '');
 657             $oTemplate->assign('can_be_copied', false);
 658         }
 659     } else {
 660         $oTemplate->assign('can_be_deleted', false);
 661         $oTemplate->assign('move_delete_form_action', '');
 662         $oTemplate->assign('delete_form_extra', '');
 663         $oTemplate->assign('can_be_moved', false);
 664         $oTemplate->assign('move_form_extra', '');
 665         $oTemplate->assign('last_move_target', '');
 666         $oTemplate->assign('can_be_copied', false);
 667     }
 668
 669     // access keys... only add to the bottom menubar, because adding
 670     // them twice makes them less functional (press access key, *then*
 671     // press <enter> to make it work), and we always have a bottom
 672     // menubar, even on the non-JavaScript printable screen
 673     //
 674     // the one exception we'll make to this is the "move to" (folder
 675     // selection) since the user can get confused if the focus for
 676     // that access key does not land in the folder select widget at
 677     // the top of the page
 678     //
 679     // FIXME: this also can be confusing for the "as attachment" and "bypass trash" checkboxes, but they are not being excepted like "move to" because pressing their access keys will only focus on them and not check them, which might be even more confusing to naive users or those that can't see the focus indication on the checkbox - this is a compromise, the best I can think of at this time
 680     //
 681     global $accesskey_read_msg_move_to;
 682     if (!$nav_on_top) {
 683         global $accesskey_read_msg_reply, $accesskey_read_msg_reply_all,
 684                $accesskey_read_msg_forward, $accesskey_read_msg_as_attach,
 685                $accesskey_read_msg_delete, $accesskey_read_msg_bypass_trash,
 686                $accesskey_read_msg_move;
 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 = 'NONE';
 692     }
 693     $oTemplate->assign('accesskey_read_msg_reply', $accesskey_read_msg_reply);
 694     $oTemplate->assign('accesskey_read_msg_reply_all', $accesskey_read_msg_reply_all);
 695     $oTemplate->assign('accesskey_read_msg_forward', $accesskey_read_msg_forward);
 696     $oTemplate->assign('accesskey_read_msg_as_attach', $accesskey_read_msg_as_attach);
 697     $oTemplate->assign('accesskey_read_msg_delete', $accesskey_read_msg_delete);
 698     $oTemplate->assign('accesskey_read_msg_bypass_trash', $accesskey_read_msg_bypass_trash);
 699     $oTemplate->assign('accesskey_read_msg_move_to', $accesskey_read_msg_move_to);
 700     $oTemplate->assign('accesskey_read_msg_move', $accesskey_read_msg_move);
 701
 702     global $null;
 703     do_hook('read_body_menu', $null);
 704
 705     if ($nav_on_top) {
 706         $oTemplate->display('read_menubar_nav.tpl');
 707         $oTemplate->display('read_menubar_buttons.tpl');
 708     } else {
 709         $oTemplate->display('read_menubar_buttons.tpl');
 710         $oTemplate->display('read_menubar_nav.tpl');
 711     }
 712
 713 }
 714
 715 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
 716     global $base_uri, $where, $what, $show_html_default,
 717            $oTemplate, $download_href, $PHP_SELF,
 718            $unsafe_image_toggle_href, $unsafe_image_toggle_text;
 719
 720     $urlMailbox = urlencode($mailbox);
 721     $urlPassed_id = urlencode($passed_id);
 722     $urlPassed_ent_id = urlencode($passed_ent_id);
 723
 724     $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
 725     if (!empty($where)) {
 726         $query_string .= '&amp;where=' . urlencode($where);
 727     }
 728     if (!empty($what)) {
 729         $query_string .= '&amp;what=' . urlencode($what);
 730     }
 731     $url = $base_uri.'src/view_header.php?'.$query_string;
 732
 733     $links = array();
 734     $links[] = array (
 735                         'URL'   => $url,
 736                         'Text'  => _("View Full Header")
 737                      );
 738
 739     if ( checkForJavaScript() ) {
 740         $links[] = array (
 741                         'URL'   => 'javascript:printThis();',
 742                         'Text'  => _("Print"),
 743                      );
 744     } else {
 745         $links[] = array (
 746                         'URL'   => set_url_var($PHP_SELF, 'print', '1'),
 747                         'Text'  => _("Print"),
 748                         'Target' => '_blank'
 749                      );
 750     }
 751
 752     $links[] = array (
 753                         'URL'   => $download_href,
 754                         'Text'  => _("Download this as a file")
 755                      );
 756     $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
 757     if (!empty($toggle)) {
 758         $links[] = array (
 759                             'URL'   => $toggle,
 760                             'Text'  => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
 761                          );
 762     }
 763     if (!empty($unsafe_image_toggle_href)) {
 764         $links[] = array (
 765                             'URL'   => $unsafe_image_toggle_href,
 766                             'Text'  => $unsafe_image_toggle_text
 767                          );
 768     }
 769
 770     do_hook('read_body_header_right', $links);
 771
 772     $oTemplate->assign('links', $links);
 773
 774     return $oTemplate->fetch('read_toolbar.tpl');
 775 }
 776
 777 /***************************/
 778 /*   Main of read_body.php */
 779 /***************************/
 780
 781 /* get the globals we may need */
 782
 783 sqgetGlobalVar('delimiter', $delimiter,     SQ_SESSION);
 784 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
 785 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
 786     $messages = array();
 787 }
 788 sqgetGlobalVar('delayed_errors',  $delayed_errors,  SQ_SESSION);
 789 if (is_array($delayed_errors)) {
 790     $oErrorHandler->AssignDelayedErrors($delayed_errors);
 791     sqsession_unregister("delayed_errors");
 792 }
 793 /** GET VARS */
 794 sqgetGlobalVar('sendreceipt',   $sendreceipt,   SQ_GET);
 795 if (!sqgetGlobalVar('where',         $where,         SQ_GET) ) {
 796     $where = 'right_main.php';
 797 }
 798 /*
 799  * Used as entry key to the list of uid's cached in the mailbox cache
 800  * we use the cached uid's to get the next and prev  message.
 801  */
 802 if (!sqgetGlobalVar('what',          $what,          SQ_GET) ){
 803     $what = 0;
 804 }
 805 if ( sqgetGlobalVar('show_more', $temp,  SQ_GET) ) {
 806     $show_more = (int) $temp;
 807 }
 808 if ( sqgetGlobalVar('show_more_cc', $temp,  SQ_GET) ) {
 809     $show_more_cc = (int) $temp;
 810 }
 811 if ( sqgetGlobalVar('show_more_bcc', $temp,  SQ_GET) ) {
 812     $show_more_bcc = (int) $temp;
 813 }
 814 if ( sqgetGlobalVar('view_hdr', $temp,  SQ_GET) ) {
 815     $view_hdr = (int) $temp;
 816 }
 817
 818 if ( sqgetGlobalVar('account', $temp,  SQ_GET) ) {
 819     $iAccount = (int) $temp;
 820 } else {
 821     $iAccount = 0;
 822 }
 823
 824 /** GET/POST VARS */
 825 sqgetGlobalVar('passed_id',     $passed_id, SQ_INORDER, NULL, SQ_TYPE_BIGINT);
 826 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
 827 sqgetGlobalVar('mailbox',       $mailbox);
 828
 829 if ( sqgetGlobalVar('sort', $temp) ) {
 830     $sort = (int) $temp;
 831 }
 832 if ( sqgetGlobalVar('startMessage', $temp) ) {
 833     $startMessage = (int) $temp;
 834 } else {
 835     $startMessage = 1;
 836 }
 837 if(sqgetGlobalVar('show_html_default', $temp)) {
 838     $show_html_default = (int) $temp;
 839 }
 840
 841 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
 842     $view_unsafe_images = (int) $temp;
 843     if($view_unsafe_images == 1) {
 844         $show_html_default = 1;
 845     }
 846 } else {
 847     $view_unsafe_images = 0;
 848 }
 849
 850 /**
 851  * Retrieve mailbox cache
 852  */
 853 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
 854
 855 /* end of get globals */
 856
 857 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
 858 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
 859
 860
 861 /**
 862  Start code to set the columns to fetch in case of hitting the next/prev link
 863  The reason for this is the fact that the cache can be invalidated which means that the headers
 864  to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
 865
 866  Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
 867 */
 868
 869 /**
 870  * Replace From => To  in case it concerns a draft or sent folder
 871  */
 872 $aColumns = array();
 873 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
 874     !in_array(SQM_COL_TO,$index_order)) {
 875     $aNewOrder = array(); // nice var name ;)
 876     foreach($index_order as $iCol) {
 877         if ($iCol == SQM_COL_FROM) {
 878             $iCol = SQM_COL_TO;
 879         }
 880         $aColumns[$iCol] = array();
 881    }
 882 } else {
 883    foreach ($index_order as $iCol) {
 884        $aColumns[$iCol] = array();
 885    }
 886 }
 887
 888 $aProps = array(
 889     'columns' => $aColumns, // columns bound settings
 890     'config'  => array(
 891                         'highlight_list'        => $message_highlight_list, // row highlighting rules
 892                         'trash_folder'          => $trash_folder,
 893                         'sent_folder'           => $sent_folder,
 894                         'draft_folder'          => $draft_folder));
 895
 896 calcFetchColumns($aMailbox,$aProps);
 897
 898 /**
 899  End code to set the columns to fetch in case of hitting the next/prev link
 900 */
 901
 902
 903
 904 /**
 905  * Check if cache is still valid, $what contains the key
 906  * which gives us acces to the array with uid's. At this moment
 907  * 0 is used for a normal message list and search uses 1 as key. This can be
 908  * changed / extended in the future.
 909  * If on a select of a mailbox we detect that the cache should be invalidated due to
 910  * the delete of messages or due to new messages we empty the list with uid's and
 911  * that's what we detect below.
 912  */
 913 if (!is_array($aMailbox['UIDSET'][$what])) {
 914     fetchMessageHeaders($imapConnection, $aMailbox);
 915 }
 916
 917 $iSetIndex = $aMailbox['SETINDEX'];
 918 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
 919
 920 /**
 921  * Update the seen state
 922  * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
 923  */
 924 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 925     $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
 926 }
 927
 928 /**
 929  * Process Delete from delete-move-next
 930  * but only if delete_id was set
 931  */
 932 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
 933     handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
 934 }
 935
 936 /**
 937  * $message contains all information about the message
 938  * including header and body
 939  */
 940
 941 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
 942     $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
 943     $FirstTimeSee = !$message->is_seen;
 944 } else {
 945     $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
 946     $FirstTimeSee = !$message->is_seen;
 947 }
 948
 949 /**
 950  * update message seen status and put in cache
 951  */
 952 $message->is_seen = true;
 953 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 954
 955 if (isset($passed_ent_id) && $passed_ent_id) {
 956     $message = $message->getEntity($passed_ent_id);
 957     if ($message->type0 != 'message'  && $message->type1 != 'rfc822') {
 958         $message = $message->parent;
 959     }
 960     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
 961     $rfc822_header = new Rfc822Header();
 962     $rfc822_header->parseHeader($read);
 963     $message->rfc822_header = $rfc822_header;
 964 } else if ($message->type0 == 'message'  && $message->type1 == 'rfc822' && isset($message->entities[0])) {
 965     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
 966     $rfc822_header = new Rfc822Header();
 967     $rfc822_header->parseHeader($read);
 968     $message->rfc822_header = $rfc822_header;
 969 } else {
 970     $passed_ent_id = 0;
 971 }
 972 $header = $message->header;
 973
 974
 975 /****************************************/
 976 /* Block for handling incoming url vars */
 977 /****************************************/
 978
 979 if (isset($sendreceipt)) {
 980    if ( !$message->is_mdnsent ) {
 981       $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
 982       if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
 983          ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
 984          $message->is_mdnsent = true;
 985          $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 986       }
 987    }
 988 }
 989 /***********************************************/
 990 /* End of block for handling incoming url vars */
 991 /***********************************************/
 992
 993 $oTemplate->assign('aAttribs', array('class' => 'entity_sep'));
 994 $hr = $oTemplate->fetch('horizontal_rule.tpl');
 995 $messagebody = '';
 996 do_hook('read_body_top', $null);
 997 if ($show_html_default == 1) {
 998     $ent_ar = $message->findDisplayEntity(array());
 999 } else {
1000     $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
1001 }
1002 $cnt = count($ent_ar);
1003 for ($i = 0; $i < $cnt; $i++) {
1004    $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
1005    if ($i != $cnt-1) {
1006        $messagebody .= $hr;
1007    }
1008 }
1009
1010 /**
1011  * Write mailbox with updated seen flag information back to cache.
1012  */
1013 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
1014 sqsession_register($mailbox_cache,'mailbox_cache');
1015 $_SESSION['mailbox_cache'] = $mailbox_cache;
1016
1017 // message list URI is used in page header when on read_body
1018 $oTemplate->assign('message_list_href', get_message_list_uri($aMailbox['NAME'], $startMessage, $what));
1019
1020 displayPageHeader($color, $mailbox,'','');
1021
1022 /* this is the non-javascript version of printer friendly */
1023 if ( sqgetGlobalVar('print', $print, SQ_GET) ) {
1024     $oTemplate->display('read_message_print.tpl');
1025 } else {
1026     formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,false);
1027 }
1028 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
1029
1030 $oTemplate->assign('message_body', $messagebody);
1031 $oTemplate->display('read_message_body.tpl');
1032
1033 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
1034
1035 /* show attached images inline -- if pref'fed so */
1036 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
1037     $images = array();
1038     foreach ($attachment_common_show_images_list as $img) {
1039         $imgurl = SM_PATH . 'src/download.php' .
1040                 '?' .
1041                 'passed_id='     . urlencode($img['passed_id']) .
1042                 '&amp;mailbox='       . urlencode($mailbox) .
1043                 '&amp;ent_id=' . urlencode($img['ent_id']) .
1044                 '&amp;absolute_dl=true';
1045         $a = array();
1046         $a['Name'] = $img['name'];
1047         $a['DisplayURL'] = $imgurl;
1048         $a['DownloadURL'] = $img['download_href'];
1049         $images[] = $a;
1050     }
1051
1052     $oTemplate->assign('images', $images);
1053     $oTemplate->display('read_display_images_inline.tpl');
1054 }
1055
1056 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
1057
1058 do_hook('read_body_bottom', $null);
1059 sqimap_logout($imapConnection);
1060 $oTemplate->display('footer.tpl');