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