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