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-2009 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 = '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(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 (isDraftMailbox($mailbox) && ($save_as_draft)) {
 632         $resume_draft = true;
 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 top menubar, because adding
 670     // them twice makes them less functional (press access key, *then*
 671     // press <enter> to make it work)
 672     //
 673     if ($nav_on_top) {
 674         global $accesskey_read_msg_reply, $accesskey_read_msg_reply_all,
 675                $accesskey_read_msg_forward, $accesskey_read_msg_as_attach,
 676                $accesskey_read_msg_delete, $accesskey_read_msg_bypass_trash,
 677                $accesskey_read_msg_move, $accesskey_read_msg_move_to;
 678     } else {
 679         $accesskey_read_msg_reply = $accesskey_read_msg_reply_all =
 680         $accesskey_read_msg_forward = $accesskey_read_msg_as_attach =
 681         $accesskey_read_msg_delete = $accesskey_read_msg_bypass_trash =
 682         $accesskey_read_msg_move = $accesskey_read_msg_move_to = 'NONE';
 683     }
 684     $oTemplate->assign('accesskey_read_msg_reply', $accesskey_read_msg_reply);
 685     $oTemplate->assign('accesskey_read_msg_reply_all', $accesskey_read_msg_reply_all);
 686     $oTemplate->assign('accesskey_read_msg_forward', $accesskey_read_msg_forward);
 687     $oTemplate->assign('accesskey_read_msg_as_attach', $accesskey_read_msg_as_attach);
 688     $oTemplate->assign('accesskey_read_msg_delete', $accesskey_read_msg_delete);
 689     $oTemplate->assign('accesskey_read_msg_bypass_trash', $accesskey_read_msg_bypass_trash);
 690     $oTemplate->assign('accesskey_read_msg_move_to', $accesskey_read_msg_move_to);
 691     $oTemplate->assign('accesskey_read_msg_move', $accesskey_read_msg_move);
 692
 693     global $null;
 694     do_hook('read_body_menu', $null);
 695
 696     if ($nav_on_top) {
 697         $oTemplate->display('read_menubar_nav.tpl');
 698         $oTemplate->display('read_menubar_buttons.tpl');
 699     } else {
 700         $oTemplate->display('read_menubar_buttons.tpl');
 701         $oTemplate->display('read_menubar_nav.tpl');
 702     }
 703
 704 }
 705
 706 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
 707     global $base_uri, $where, $what, $show_html_default,
 708            $oTemplate, $download_href, $PHP_SELF,
 709            $unsafe_image_toggle_href, $unsafe_image_toggle_text;
 710
 711     $urlMailbox = urlencode($mailbox);
 712     $urlPassed_id = urlencode($passed_id);
 713     $urlPassed_ent_id = urlencode($passed_ent_id);
 714
 715     $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
 716     if (!empty($where)) {
 717         $query_string .= '&amp;where=' . urlencode($where);
 718     }
 719     if (!empty($what)) {
 720         $query_string .= '&amp;what=' . urlencode($what);
 721     }
 722     $url = $base_uri.'src/view_header.php?'.$query_string;
 723
 724     $links = array();
 725     $links[] = array (
 726                         'URL'   => $url,
 727                         'Text'  => _("View Full Header")
 728                      );
 729
 730     if ( checkForJavaScript() ) {
 731         $links[] = array (
 732                         'URL'   => 'javascript:printThis();',
 733                         'Text'  => _("Print"),
 734                      );
 735     } else {
 736         $links[] = array (
 737                         'URL'   => set_url_var($PHP_SELF, 'print', '1'),
 738                         'Text'  => _("Print"),
 739                         'Target' => '_blank'
 740                      );
 741     }
 742
 743     $links[] = array (
 744                         'URL'   => $download_href,
 745                         'Text'  => _("Download this as a file")
 746                      );
 747     $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
 748     if (!empty($toggle)) {
 749         $links[] = array (
 750                             'URL'   => $toggle,
 751                             'Text'  => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
 752                          );
 753     }
 754     if (!empty($unsafe_image_toggle_href)) {
 755         $links[] = array (
 756                             'URL'   => $unsafe_image_toggle_href,
 757                             'Text'  => $unsafe_image_toggle_text
 758                          );
 759     }
 760
 761     do_hook('read_body_header_right', $links);
 762
 763     $oTemplate->assign('links', $links);
 764
 765     return $oTemplate->fetch('read_toolbar.tpl');
 766 }
 767
 768 /***************************/
 769 /*   Main of read_body.php */
 770 /***************************/
 771
 772 /* get the globals we may need */
 773
 774 sqgetGlobalVar('delimiter', $delimiter,     SQ_SESSION);
 775 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
 776 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
 777     $messages = array();
 778 }
 779 sqgetGlobalVar('delayed_errors',  $delayed_errors,  SQ_SESSION);
 780 if (is_array($delayed_errors)) {
 781     $oErrorHandler->AssignDelayedErrors($delayed_errors);
 782     sqsession_unregister("delayed_errors");
 783 }
 784 /** GET VARS */
 785 sqgetGlobalVar('sendreceipt',   $sendreceipt,   SQ_GET);
 786 if (!sqgetGlobalVar('where',         $where,         SQ_GET) ) {
 787     $where = 'right_main.php';
 788 }
 789 /*
 790  * Used as entry key to the list of uid's cached in the mailbox cache
 791  * we use the cached uid's to get the next and prev  message.
 792  */
 793 if (!sqgetGlobalVar('what',          $what,          SQ_GET) ){
 794     $what = 0;
 795 }
 796 if ( sqgetGlobalVar('show_more', $temp,  SQ_GET) ) {
 797     $show_more = (int) $temp;
 798 }
 799 if ( sqgetGlobalVar('show_more_cc', $temp,  SQ_GET) ) {
 800     $show_more_cc = (int) $temp;
 801 }
 802 if ( sqgetGlobalVar('show_more_bcc', $temp,  SQ_GET) ) {
 803     $show_more_bcc = (int) $temp;
 804 }
 805 if ( sqgetGlobalVar('view_hdr', $temp,  SQ_GET) ) {
 806     $view_hdr = (int) $temp;
 807 }
 808
 809 if ( sqgetGlobalVar('account', $temp,  SQ_GET) ) {
 810     $iAccount = (int) $temp;
 811 } else {
 812     $iAccount = 0;
 813 }
 814
 815 /** GET/POST VARS */
 816 sqgetGlobalVar('passed_id',     $passed_id, SQ_INORDER, NULL, SQ_TYPE_BIGINT);
 817 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
 818 sqgetGlobalVar('mailbox',       $mailbox);
 819
 820 if ( sqgetGlobalVar('sort', $temp) ) {
 821     $sort = (int) $temp;
 822 }
 823 if ( sqgetGlobalVar('startMessage', $temp) ) {
 824     $startMessage = (int) $temp;
 825 } else {
 826     $startMessage = 1;
 827 }
 828 if(sqgetGlobalVar('show_html_default', $temp)) {
 829     $show_html_default = (int) $temp;
 830 }
 831
 832 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
 833     $view_unsafe_images = (int) $temp;
 834     if($view_unsafe_images == 1) {
 835         $show_html_default = 1;
 836     }
 837 } else {
 838     $view_unsafe_images = 0;
 839 }
 840
 841 /**
 842  * Retrieve mailbox cache
 843  */
 844 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
 845
 846 /* end of get globals */
 847
 848 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
 849 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
 850
 851
 852 /**
 853  Start code to set the columns to fetch in case of hitting the next/prev link
 854  The reason for this is the fact that the cache can be invalidated which means that the headers
 855  to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
 856
 857  Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
 858 */
 859
 860 /**
 861  * Replace From => To  in case it concerns a draft or sent folder
 862  */
 863 $aColumns = array();
 864 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
 865     !in_array(SQM_COL_TO,$index_order)) {
 866     $aNewOrder = array(); // nice var name ;)
 867     foreach($index_order as $iCol) {
 868         if ($iCol == SQM_COL_FROM) {
 869             $iCol = SQM_COL_TO;
 870         }
 871         $aColumns[$iCol] = array();
 872    }
 873 } else {
 874    foreach ($index_order as $iCol) {
 875        $aColumns[$iCol] = array();
 876    }
 877 }
 878
 879 $aProps = array(
 880     'columns' => $aColumns, // columns bound settings
 881     'config'  => array(
 882                         'highlight_list'        => $message_highlight_list, // row highlighting rules
 883                         'trash_folder'          => $trash_folder,
 884                         'sent_folder'           => $sent_folder,
 885                         'draft_folder'          => $draft_folder));
 886
 887 calcFetchColumns($aMailbox,$aProps);
 888
 889 /**
 890  End code to set the columns to fetch in case of hitting the next/prev link
 891 */
 892
 893
 894
 895 /**
 896  * Check if cache is still valid, $what contains the key
 897  * which gives us acces to the array with uid's. At this moment
 898  * 0 is used for a normal message list and search uses 1 as key. This can be
 899  * changed / extended in the future.
 900  * If on a select of a mailbox we detect that the cache should be invalidated due to
 901  * the delete of messages or due to new messages we empty the list with uid's and
 902  * that's what we detect below.
 903  */
 904 if (!is_array($aMailbox['UIDSET'][$what])) {
 905     fetchMessageHeaders($imapConnection, $aMailbox);
 906 }
 907
 908 $iSetIndex = $aMailbox['SETINDEX'];
 909 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
 910
 911 /**
 912  * Update the seen state
 913  * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
 914  */
 915 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 916     $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
 917 }
 918
 919 /**
 920  * Process Delete from delete-move-next
 921  * but only if delete_id was set
 922  */
 923 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
 924     handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
 925 }
 926
 927 /**
 928  * $message contains all information about the message
 929  * including header and body
 930  */
 931
 932 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
 933     $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
 934     $FirstTimeSee = !$message->is_seen;
 935 } else {
 936     $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
 937     $FirstTimeSee = !$message->is_seen;
 938 }
 939
 940 /**
 941  * update message seen status and put in cache
 942  */
 943 $message->is_seen = true;
 944 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 945
 946 if (isset($passed_ent_id) && $passed_ent_id) {
 947     $message = $message->getEntity($passed_ent_id);
 948     if ($message->type0 != 'message'  && $message->type1 != 'rfc822') {
 949         $message = $message->parent;
 950     }
 951     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
 952     $rfc822_header = new Rfc822Header();
 953     $rfc822_header->parseHeader($read);
 954     $message->rfc822_header = $rfc822_header;
 955 } else if ($message->type0 == 'message'  && $message->type1 == 'rfc822' && isset($message->entities[0])) {
 956     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
 957     $rfc822_header = new Rfc822Header();
 958     $rfc822_header->parseHeader($read);
 959     $message->rfc822_header = $rfc822_header;
 960 } else {
 961     $passed_ent_id = 0;
 962 }
 963 $header = $message->header;
 964
 965
 966 /****************************************/
 967 /* Block for handling incoming url vars */
 968 /****************************************/
 969
 970 if (isset($sendreceipt)) {
 971    if ( !$message->is_mdnsent ) {
 972       $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
 973       if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
 974          ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
 975          $message->is_mdnsent = true;
 976          $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 977       }
 978    }
 979 }
 980 /***********************************************/
 981 /* End of block for handling incoming url vars */
 982 /***********************************************/
 983
 984 $oTemplate->assign('aAttribs', array('class' => 'entity_sep'));
 985 $hr = $oTemplate->fetch('horizontal_rule.tpl');
 986 $messagebody = '';
 987 do_hook('read_body_top', $null);
 988 if ($show_html_default == 1) {
 989     $ent_ar = $message->findDisplayEntity(array());
 990 } else {
 991     $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
 992 }
 993 $cnt = count($ent_ar);
 994 for ($i = 0; $i < $cnt; $i++) {
 995    $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
 996    if ($i != $cnt-1) {
 997        $messagebody .= $hr;
 998    }
 999 }
1000
1001 /**
1002  * Write mailbox with updated seen flag information back to cache.
1003  */
1004 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
1005 sqsession_register($mailbox_cache,'mailbox_cache');
1006 $_SESSION['mailbox_cache'] = $mailbox_cache;
1007
1008 // message list URI is used in page header when on read_body
1009 $oTemplate->assign('message_list_href', get_message_list_uri($aMailbox['NAME'], $startMessage, $what));
1010
1011 displayPageHeader($color, $mailbox,'','');
1012
1013 /* this is the non-javascript version of printer friendly */
1014 if ( sqgetGlobalVar('print', $print, SQ_GET) ) {
1015     $oTemplate->display('read_message_print.tpl');
1016 } else {
1017     formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message,false);
1018 }
1019 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
1020
1021 $oTemplate->assign('message_body', $messagebody);
1022 $oTemplate->display('read_message_body.tpl');
1023
1024 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
1025
1026 /* show attached images inline -- if pref'fed so */
1027 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
1028     $images = array();
1029     foreach ($attachment_common_show_images_list as $img) {
1030         $imgurl = SM_PATH . 'src/download.php' .
1031                 '?' .
1032                 'passed_id='     . urlencode($img['passed_id']) .
1033                 '&amp;mailbox='       . urlencode($mailbox) .
1034                 '&amp;ent_id=' . urlencode($img['ent_id']) .
1035                 '&amp;absolute_dl=true';
1036         $a = array();
1037         $a['Name'] = $img['name'];
1038         $a['DisplayURL'] = $imgurl;
1039         $a['DownloadURL'] = $img['download_href'];
1040         $images[] = $a;
1041     }
1042
1043     $oTemplate->assign('images', $images);
1044     $oTemplate->display('read_display_images_inline.tpl');
1045 }
1046
1047 formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
1048
1049 do_hook('read_body_bottom', $null);
1050 sqimap_logout($imapConnection);
1051 $oTemplate->display('footer.tpl');