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 /**
  16  * Include the SquirrelMail initialization file.
  17  */
  18 require('../include/init.php');
  19
  20 /* SquirrelMail required files. */
  21 require_once(SM_PATH . 'functions/imap.php');
  22 require_once(SM_PATH . 'functions/imap_asearch.php'); // => move to mailbox_display
  23 require_once(SM_PATH . 'functions/mime.php');
  24 require_once(SM_PATH . 'functions/date.php');
  25 require_once(SM_PATH . 'functions/url_parser.php');
  26 require_once(SM_PATH . 'functions/identity.php');
  27 require_once(SM_PATH . 'functions/mailbox_display.php');
  28 require_once(SM_PATH . 'functions/forms.php');
  29 require_once(SM_PATH . 'functions/attachment_common.php');
  30 require_once(SM_PATH . 'functions/compose.php');
  31
  32 /**
  33  * Given an IMAP message id number, this will look it up in the cached
  34  * and sorted msgs array and return the index of the next message
  35  *
  36  * @param int $passed_id The current message UID
  37  * @return the index of the next valid message from the array
  38  */
  39 function findNextMessage($uidset,$passed_id='backwards') {
  40     if (!is_array($uidset)) {
  41         return -1;
  42     }
  43     if ($passed_id=='backwards' || !is_array($uidset)) { // check for backwards compattibilty gpg plugin
  44         $passed_id = $uidset;
  45     }
  46     $result = sqm_array_get_value_by_offset($uidset,$passed_id,1);
  47     if ($result === false) {
  48         return -1;
  49     } else {
  50         return $result;
  51     }
  52 }
  53
  54 /**
  55  * Given an IMAP message id number, this will look it up in the cached
  56  * and sorted msgs array and return the index of the previous message
  57  *
  58  * @param int $passed_id The current message UID
  59  * @return the index of the next valid message from the array
  60  */
  61
  62 function findPreviousMessage($uidset, $passed_id) {
  63     if (!is_array($uidset)) {
  64         return -1;
  65     }
  66     $result = sqm_array_get_value_by_offset($uidset,$passed_id,-1);
  67     if ($result === false) {
  68         return -1;
  69     } else {
  70         return $result;
  71     }
  72 }
  73
  74 function html_toggle_href ($mailbox, $passed_id, $passed_ent_id, $message) {
  75     global $base_uri, $show_html_default;
  76
  77     $has_html = false;
  78     if ($message->header->type0 == 'message' && $message->header->type1 == 'rfc822') {
  79         $type0 = $message->rfc822_header->content_type->type0;
  80         $type1 = $message->rfc822_header->content_type->type1;
  81     } else {
  82         $type0 = $message->header->type0;
  83         $type1 = $message->header->type1;
  84     }
  85     if($type0 == 'multipart' &&
  86        ($type1 == 'alternative' || $type1 == 'mixed' || $type1 == 'related' || $type1=='signed')) {
  87         if ($message->findDisplayEntity(array(), array('text/html'), true)) {
  88             $has_html = true;
  89         }
  90     }
  91     /*
  92      * Normal single part message so check its type.
  93      */
  94     else {
  95         if($type0 == 'text' && $type1 == 'html') {
  96             $has_html = true;
  97         }
  98     }
  99     if($has_html == true) {
 100         $vars = array('passed_ent_id', 'show_more', 'show_more_cc', 'override_type0', 'override_type1', 'startMessage','where', 'what');
 101
 102         $new_link = $base_uri . 'src/read_body.php?passed_id=' . urlencode($passed_id) .
 103                     '&amp;passed_ent_id=' . urlencode($passed_ent_id) .
 104                     '&amp;mailbox=' . urlencode($mailbox);
 105         foreach($vars as $var) {
 106             if(sqgetGlobalVar($var, $temp)) {
 107                 $new_link .= '&amp;' . $var . '=' . urlencode($temp);
 108             }
 109         }
 110
 111         if($show_html_default == 1) {
 112             $new_link .= '&amp;show_html_default=0';
 113         } else {
 114             $new_link .= '&amp;show_html_default=1';
 115         }
 116         return $new_link;
 117     }
 118     return '';
 119 }
 120
 121 function ServerMDNSupport($aFlags) {
 122     /* escaping $ doesn't work -> \x36 */
 123     return ( in_array('$mdnsent',$aFlags,true) ||
 124              in_array('\\*',$aFlags,true) ) ;
 125 }
 126
 127 function SendMDN ( $mailbox, $passed_id, $message, $imapConnection) {
 128     global $username, $attachment_dir, $color,
 129            $squirrelmail_language, $default_charset,
 130            $languages, $useSendmail, $domain, $sent_folder;
 131
 132     sqgetGlobalVar('SERVER_NAME', $SERVER_NAME, SQ_SERVER);
 133
 134     $header = $message->rfc822_header;
 135
 136     $rfc822_header = new Rfc822Header();
 137     $content_type  = new ContentType('multipart/report');
 138     $content_type->properties['report-type']='disposition-notification';
 139
 140     set_my_charset();
 141     if ($default_charset) {
 142         $content_type->properties['charset']=$default_charset;
 143     }
 144     $rfc822_header->content_type = $content_type;
 145     $rfc822_header->to[] = $header->dnt;
 146     $rfc822_header->subject = _("Read:") . ' ' . encodeHeader($header->subject);
 147
 148     $idents = get_identities();
 149     $needles = array();
 150     if ($header->to) {
 151         foreach ($header->to as $message_to) {
 152              $needles[] = $message_to->mailbox.'@'.$message_to->host;
 153         }
 154     }
 155     $identity = find_identity($needles);
 156     $from_addr = build_from_header($identity);
 157     $reply_to = isset($idents[$identity]['reply_to']) ? $idents[$identity]['reply_to'] : '';
 158     // FIXME: this must actually be the envelope address of the orginal message,
 159     // but do we have that information? For now the first identity is our best guess.
 160     $final_recipient = $idents[0]['email_address'];
 161
 162     $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
 163     if ($reply_to) {
 164        $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
 165     }
 166
 167     // part 1 (RFC2298)
 168     $senton = getLongDateString( $header->date, $header->date_unparsed );
 169     $to_array = $header->to;
 170     $to = '';
 171     foreach ($to_array as $line) {
 172         $to .= ' '.$line->getAddress();
 173     }
 174     $now = getLongDateString( time() );
 175     set_my_charset();
 176     $body = _("Your message") . "\r\n\r\n" .
 177             "\t" . _("To") . ': ' . decodeHeader($to,false,false) . "\r\n" .
 178             "\t" . _("Subject") . ': ' . decodeHeader($header->subject,false,false) . "\r\n" .
 179             "\t" . _("Sent") . ': ' . $senton . "\r\n" .
 180             "\r\n" .
 181             sprintf( _("Was displayed on %s"), $now );
 182
 183     $special_encoding = '';
 184     if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
 185         function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode')) {
 186         $body = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode', $body);
 187         if (strtolower($default_charset) == 'iso-2022-jp') {
 188             if (mb_detect_encoding($body) == 'ASCII') {
 189                 $special_encoding = '8bit';
 190             } else {
 191                 $body = mb_convert_encoding($body, 'JIS');
 192                 $special_encoding = '7bit';
 193             }
 194         }
 195     } elseif (sq_is8bit($body)) {
 196         $special_encoding = '8bit';
 197     }
 198     $part1 = new Message();
 199     $part1->setBody($body);
 200     $mime_header = new MessageHeader;
 201     $mime_header->type0 = 'text';
 202     $mime_header->type1 = 'plain';
 203     if ($special_encoding) {
 204         $mime_header->encoding = $special_encoding;
 205     } else {
 206         $mime_header->encoding = 'us-ascii';
 207     }
 208     if ($default_charset) {
 209         $mime_header->parameters['charset'] = $default_charset;
 210     }
 211     $part1->mime_header = $mime_header;
 212
 213     // part2  (RFC2298)
 214     $original_recipient  = $to;
 215     $original_message_id = $header->message_id;
 216
 217     $report = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version " . SM_VERSION . ") \r\n";
 218     if ($original_recipient != '') {
 219         $report .= "Original-Recipient : $original_recipient\r\n";
 220     }
 221     $report .= "Final-Recipient: rfc822; $final_recipient\r\n" .
 222               "Original-Message-ID : $original_message_id\r\n" .
 223               "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
 224
 225     $part2 = new Message();
 226     $part2->setBody($report);
 227     $mime_header = new MessageHeader;
 228     $mime_header->type0 = 'message';
 229     $mime_header->type1 = 'disposition-notification';
 230     $mime_header->encoding = 'us-ascii';
 231     $part2->mime_header = $mime_header;
 232
 233     $composeMessage = new Message();
 234     $composeMessage->rfc822_header = $rfc822_header;
 235     $composeMessage->addEntity($part1);
 236     $composeMessage->addEntity($part2);
 237
 238
 239     if ($useSendmail) {
 240         require_once(SM_PATH . 'class/deliver/Deliver_SendMail.class.php');
 241         global $sendmail_path, $sendmail_args;
 242         // Check for outdated configuration
 243         if (!isset($sendmail_args)) {
 244             if ($sendmail_path=='/var/qmail/bin/qmail-inject') {
 245                 $sendmail_args = '';
 246             } else {
 247                 $sendmail_args = '-i -t';
 248             }
 249         }
 250         $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
 251         $stream = $deliver->initStream($composeMessage,$sendmail_path);
 252     } else {
 253         require_once(SM_PATH . 'class/deliver/Deliver_SMTP.class.php');
 254         $deliver = new Deliver_SMTP();
 255         global $smtpServerAddress, $smtpPort, $pop_before_smtp;
 256         $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ? true : false;
 257         get_smtp_user($user, $pass);
 258         $stream = $deliver->initStream($composeMessage,$domain,0,
 259                                        $smtpServerAddress, $smtpPort, $user, $pass, $authPop);
 260     }
 261     $success = false;
 262     if ($stream) {
 263         $length  = $deliver->mail($composeMessage, $stream);
 264         $success = $deliver->finalizeStream($stream);
 265     }
 266     if (!$success) {
 267         $msg = _("Message not sent.") . "<br />\n" .
 268             $deliver->dlv_msg;
 269         if (! empty($deliver->dlv_server_msg)) {
 270             $msg.= '<br />' .
 271                 _("Server replied:") . ' ' . $deliver->dlv_ret_nr . ' ' .
 272                 nl2br(htmlspecialchars($deliver->dlv_server_msg));
 273         }
 274         plain_error_message($msg, $color);
 275     } else {
 276         unset ($deliver);
 277         if (sqimap_mailbox_exists ($imapConnection, $sent_folder)) {
 278             $sid = sqimap_append ($imapConnection, $sent_folder, $length);
 279             require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
 280             $imap_deliver = new Deliver_IMAP();
 281             $imap_deliver->mail($composeMessage, $imapConnection);
 282             sqimap_append_done ($imapConnection, $sent_folder);
 283             unset ($imap_deliver);
 284         }
 285     }
 286     return $success;
 287 }
 288
 289 function ToggleMDNflag ($set ,$imapConnection, $mailbox, $passed_id) {
 290     $sg   =  $set?'+':'-';
 291     $cmd  = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
 292     $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
 293                                 $readmessage, TRUE);
 294 }
 295
 296 function formatRecipientString($recipients, $item ) {
 297     global $show_more_cc, $show_more, $show_more_bcc,
 298            $PHP_SELF, $oTemplate;
 299
 300     $string = '';
 301     if ((is_array($recipients)) && (isset($recipients[0]))) {
 302         $show = false;
 303
 304         if ($item == 'to') {
 305             if ($show_more) {
 306                 $show = true;
 307                 $url = set_url_var($PHP_SELF, 'show_more',0);
 308             } else {
 309                 $url = set_url_var($PHP_SELF, 'show_more',1);
 310             }
 311         } else if ($item == 'cc') {
 312             if ($show_more_cc) {
 313                 $show = true;
 314                 $url = set_url_var($PHP_SELF, 'show_more_cc',0);
 315             } else {
 316                 $url = set_url_var($PHP_SELF, 'show_more_cc',1);
 317             }
 318         } else if ($item == 'bcc') {
 319             if ($show_more_bcc) {
 320                 $show = true;
 321                 $url = set_url_var($PHP_SELF, 'show_more_bcc',0);
 322             } else {
 323                 $url = set_url_var($PHP_SELF, 'show_more_bcc',1);
 324             }
 325         }
 326
 327         $a = array();
 328         foreach ($recipients as $r) {
 329             $a[] = array(
 330                             'Name'  => htmlspecialchars($r->getAddress(false)),
 331                             'Email' => htmlspecialchars($r->getEmail()),
 332                             'Full'  => htmlspecialchars($r->getAddress(true))
 333                         );
 334         }
 335
 336         $oTemplate->assign('which_field', $item);
 337         $oTemplate->assign('recipients', $a);
 338         $oTemplate->assign('more_less_toggle_href', $url);
 339         $oTemplate->assign('show_more', $show);
 340
 341         $string = $oTemplate->fetch('read_recipient_list.tpl');
 342     }
 343     return $string;
 344 }
 345
 346 function formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message,
 347                          $color, $FirstTimeSee) {
 348     global $default_use_mdn, $default_use_priority,
 349            $show_xmailer_default, $mdn_user_support, $PHP_SELF,
 350            $squirrelmail_language, $oTemplate;
 351
 352     $mailbox = $aMailbox['NAME'];
 353
 354     $header = $message->rfc822_header;
 355     $env = array();
 356     $env[_("Subject")] = str_replace("&nbsp;"," ",decodeHeader($header->subject));
 357
 358     $from_name = $header->getAddr_s('from');
 359     if (!$from_name)
 360         $from_name = $header->getAddr_s('sender');
 361     if (!$from_name)
 362         $env[_("From")] = _("Unknown sender");
 363     else
 364         $env[_("From")] = decodeHeader($from_name);
 365     $env[_("Date")] = getLongDateString($header->date, $header->date_unparsed);
 366     $env[_("To")] = formatRecipientString($header->to, "to");
 367     $env[_("Cc")] = formatRecipientString($header->cc, "cc");
 368     $env[_("Bcc")] = formatRecipientString($header->bcc, "bcc");
 369     if ($default_use_priority) {
 370         $oTemplate->assign('message_priority', $header->priority);
 371         $env[_("Priority")] = $oTemplate->fetch('read_message_priority.tpl');
 372     }
 373     if ($show_xmailer_default) {
 374         $oTemplate->assign('xmailer', decodeHeader($header->xmailer));
 375         $env[_("Mailer")] = $oTemplate->fetch('read_xmailer.tpl');
 376     }
 377     if ($default_use_mdn) {
 378         if ($mdn_user_support) {
 379             if ($header->dnt) {
 380                 $mdn_url = $PHP_SELF;
 381                 $mdn_url = set_url_var($mdn_url, 'mailbox', urlencode($mailbox));
 382                 $mdn_url = set_url_var($mdn_url, 'passed_id', $passed_id);
 383                 $mdn_url = set_url_var($mdn_url, 'passed_ent_id', $passed_ent_id);
 384                 $mdn_url = set_url_var($mdn_url, 'sendreceipt', 1);
 385
 386                 $oTemplate->assign('read_receipt_sent', $message->is_mdnsent);
 387                 $oTemplate->assign('send_receipt_href', $mdn_url);
 388
 389                 $env[_("Read Receipt")] = $oTemplate->fetch('read_handle_receipt.tpl');
 390             }
 391         }
 392     }
 393
 394     // this is used for both mdn and also general use for plugins, etc
 395     $oTemplate->assign('first_time_reading', $FirstTimeSee);
 396
 397     $statuses = array();
 398     if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 399         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted']) &&
 400                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted'] === true) {
 401             $statuses[] = _("deleted");
 402         }
 403         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered']) &&
 404                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered'] === true) {
 405             $statuses[] = _("answered");
 406         }
 407         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft']) &&
 408                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft'] === true) {
 409             $statuses[] = _("draft");
 410         }
 411         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged']) &&
 412                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged'] === true) {
 413             $statuses[] = _("flagged");
 414         }
 415         if ( count($statuses) ) {
 416             $env[_("Status")] = implode(', ', $statuses);
 417         }
 418     }
 419
 420     $env[_("Options")] = formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color);
 421
 422
 423     $oTemplate->assign('headers_to_display', $env);
 424
 425     $oTemplate->display('read_headers.tpl');
 426 }
 427
 428 /**
 429  * Format message toolbar
 430  *
 431  * @param string $mailbox Name of current mailbox
 432  * @param int $passed_id UID of current message
 433  * @param int $passed_ent_id Id of entity within message
 434  * @param object $message Current message object
 435  * @param object $mbx_response
 436  */
 437 function formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, $removedVar, $nav_on_top = TRUE) {
 438     global $base_uri, $draft_folder, $where, $what, $sort,
 439            $startMessage, $PHP_SELF, $save_as_draft,
 440            $enable_forward_as_attachment, $imapConnection, $lastTargetMailbox,
 441            $delete_prev_next_display, $show_copy_buttons,
 442            $compose_new_win, $compose_width, $compose_height,
 443            $oTemplate;
 444
 445     //FIXME cleanup argument list, use $aMailbox where possible
 446     $mailbox = $aMailbox['NAME'];
 447
 448     $urlMailbox = urlencode($mailbox);
 449
 450     $msgs_url = $base_uri . 'src/';
 451
 452     // Create Prev & Next links
 453     // Handle nested entities first (i.e. Mime Attach parts)
 454     $prev_href = $next_href = $up_href = $del_href = $del_prev_href = $del_next_href = '';
 455     $msg_list_href = $search_href = $view_msg_href = '';
 456     if (isset($passed_ent_id) && $passed_ent_id) {
 457         // code for navigating through attached message/rfc822 messages
 458         $url = set_url_var($PHP_SELF, 'passed_ent_id',0);
 459         $entities     = array();
 460         $entity_count = array();
 461         $c = 0;
 462
 463         foreach($message->parent->entities as $ent) {
 464             if ($ent->type0 == 'message' && $ent->type1 == 'rfc822') {
 465
 466                 $c++;
 467                 $entity_count[$c] = $ent->entity_id;
 468                 $entities[$ent->entity_id] = $c;
 469             }
 470         }
 471
 472         if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] > 1) {
 473             $prev_ent_id = $entity_count[$entities[$passed_ent_id] - 1];
 474             $prev_href = set_url_var($PHP_SELF, 'passed_ent_id', $prev_ent_id);
 475         }
 476
 477         if(isset($entities[$passed_ent_id]) && $entities[$passed_ent_id] < $c) {
 478             $next_ent_id = $entity_count[$entities[$passed_ent_id] + 1];
 479             $next_href = set_url_var($PHP_SELF, 'passed_ent_id', $next_ent_id);
 480         }
 481
 482         $par_ent_id = $message->parent->entity_id;
 483         if ($par_ent_id) {
 484             $par_ent_id = substr($par_ent_id,0,-2);
 485             if ( $par_ent_id != 0 ) {
 486                 $up_href = set_url_var($PHP_SELF, 'passed_ent_id',$par_ent_id);
 487             }
 488         }
 489
 490         $view_msg_href = $url;
 491
 492     // Prev/Next links for regular messages
 493     } else if ( true ) { //!(isset($where) && isset($what)) ) {
 494         $prev = findPreviousMessage($aMailbox['UIDSET'][$what], $passed_id);
 495         $next = findNextMessage($aMailbox['UIDSET'][$what],$passed_id);
 496
 497         if ($prev >= 0) {
 498             $prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
 499                    '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 500                    "&amp;where=$where&amp;what=$what" .
 501                    '&amp;startMessage='.$startMessage.'&amp;show_more=0';
 502         }
 503
 504         if ($next >= 0) {
 505             $next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
 506                    '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 507                    "&amp;where=$where&amp;what=$what" .
 508                    '&amp;startMessage='.$startMessage.'&amp;show_more=0';
 509         }
 510
 511         // Only bother with Delete & Prev and Delete & Next IF
 512         // top display is enabled.
 513         if ( $delete_prev_next_display == 1 &&
 514                in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true) ) {
 515             if ($prev >= 0) {
 516                 $del_prev_href = $base_uri . 'src/read_body.php?passed_id='.$prev.
 517                        '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 518                        '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
 519                        "&amp;where=$where&amp;what=$what" .
 520                        '&amp;delete_id='.$passed_id;
 521             }
 522
 523             if ($next >= 0) {
 524                 $del_next_href = $base_uri . 'src/read_body.php?passed_id='.$next.
 525                        '&amp;mailbox='.$urlMailbox.'&amp;sort='.$sort.
 526                        '&amp;startMessage='.$startMessage.'&amp;show_more=0'.
 527                        "&amp;where=$where&amp;what=$what" .
 528                        '&amp;delete_id='.$passed_id;
 529             }
 530         }
 531     }
 532
 533     // Start with Search Results or Message List link.
 534     $list_xtra = "?where=read_body.php&amp;what=$what&amp;mailbox=" . $urlMailbox.
 535                  "&amp;startMessage=$startMessage";
 536     $msg_list_href = $base_uri .'src/right_main.php'. $list_xtra;
 537     $search_href = $where=='search.php' ? $base_uri .'src/search.php?'.$list_xtra : '';
 538
 539     $comp_uri = $base_uri.'src/compose.php' .
 540                 '?passed_id=' . $passed_id .
 541                 '&amp;mailbox=' . $urlMailbox .
 542                 '&amp;startMessage=' . $startMessage .
 543                  (isset($passed_ent_id) ? '&amp;passed_ent_id='.$passed_ent_id : '');
 544
 545     // Start form for reply/reply all/forward..
 546     $target = '';
 547     $on_click='';
 548     $method='post';
 549     $onsubmit='';
 550     if ($compose_new_win == '1') {
 551         if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
 552             $compose_width = '640';
 553         }
 554         if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
 555             $compose_height = '550';
 556         }
 557         if ( checkForJavascript() ) {
 558           $on_click='comp_in_new_form(\''.$comp_uri.'\', this, this.form,'. $compose_width .',' . $compose_height .')';
 559           $comp_uri = 'javascript:void(0)';
 560           $method='get';
 561           $onsubmit = 'return false';
 562         } else {
 563           $target = '_blank';
 564         }
 565     }
 566
 567     $oTemplate->assign('nav_on_top', $nav_on_top);
 568
 569     $oTemplate->assign('prev_href', $prev_href);
 570     $oTemplate->assign('up_href', $up_href);
 571     $oTemplate->assign('next_href', $next_href);
 572     $oTemplate->assign('del_prev_href', $del_prev_href);
 573     $oTemplate->assign('del_next_href', $del_next_href);
 574     $oTemplate->assign('view_msg_href', $view_msg_href);
 575
 576     $oTemplate->assign('message_list_href', $msg_list_href);
 577     $oTemplate->assign('search_href', $search_href);
 578
 579     $oTemplate->assign('form_extra', '');
 580     $oTemplate->assign('form_method', $method);
 581     $oTemplate->assign('form_target', $target);
 582     $oTemplate->assign('form_onsubmit', $onsubmit);
 583     $oTemplate->assign('compose_href', $comp_uri);
 584     $oTemplate->assign('button_onclick', $on_click);
 585     $oTemplate->assign('forward_as_attachment_enabled', $enable_forward_as_attachment==1);
 586
 587     //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
 588     $oTemplate->assign('mailbox', $aMailbox['NAME']);
 589     $oTemplate->assign('passed_id', $passed_id);
 590     $oTemplate->assign('what', $what);
 591
 592     // If Draft folder - create Resume link
 593     $resume_draft = $edit_as_new = false;
 594     if (($mailbox == $draft_folder) && ($save_as_draft)) {
 595         $resume_draft = true; 'smaction_draft';
 596     } else if (handleAsSent($mailbox)) {
 597         $edit_as_new = true;
 598     }
 599     $oTemplate->assign('can_resume_draft', $resume_draft);
 600     $oTemplate->assign('can_edit_as_new', $edit_as_new);
 601
 602     $oTemplate->assign('mailboxes', sqimap_mailbox_option_array($imapConnection));
 603     if (in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true)) {
 604         $delete_url = $base_uri . "src/$where";
 605         $oTemplate->assign('can_be_deleted', true);
 606         $oTemplate->assign('move_delete_form_action', $base_uri.'src/'.$where);
 607         $oTemplate->assign('delete_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 608                                                 addHidden('msg[0]', $passed_id)."\n" .
 609                                                 addHidden('startMessage', $startMessage)."\n" );
 610         if (!(isset($passed_ent_id) && $passed_ent_id)) {
 611             $oTemplate->assign('can_be_moved', true);
 612             $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 613                                                   addHidden('msg[0]', $passed_id)."\n" );
 614             $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ? $lastTargetMailbox : '');
 615             $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
 616         } else {
 617             $oTemplate->assign('can_be_moved', false);
 618             $oTemplate->assign('move_form_extra', '');
 619             $oTemplate->assign('last_move_target', '');
 620             $oTemplate->assign('can_be_copied', false);
 621         }
 622     } else {
 623         $oTemplate->assign('can_be_deleted', false);
 624         $oTemplate->assign('move_delete_form_action', '');
 625         $oTemplate->assign('delete_form_extra', '');
 626         $oTemplate->assign('can_be_moved', false);
 627         $oTemplate->assign('move_form_extra', '');
 628         $oTemplate->assign('last_move_target', '');
 629         $oTemplate->assign('can_be_copied', false);
 630     }
 631
 632     global $null;
 633     do_hook('read_body_menu', $null);
 634
 635     if ($nav_on_top) {
 636         $oTemplate->display('read_menubar_nav.tpl');
 637         $oTemplate->display('read_menubar_buttons.tpl');
 638     } else {
 639         $oTemplate->display('read_menubar_buttons.tpl');
 640         $oTemplate->display('read_menubar_nav.tpl');
 641     }
 642
 643 }
 644
 645 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
 646     global $base_uri, $where, $what, $show_html_default,
 647            $oTemplate, $download_href,
 648            $unsafe_image_toggle_href, $unsafe_image_toggle_text;
 649
 650     $urlMailbox = urlencode($mailbox);
 651     $urlPassed_id = urlencode($passed_id);
 652     $urlPassed_ent_id = urlencode($passed_ent_id);
 653
 654     $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
 655     if (!empty($where)) {
 656         $query_string .= '&amp;where=' . urlencode($where);
 657     }
 658     if (!empty($what)) {
 659         $query_string .= '&amp;what=' . urlencode($what);
 660     }
 661     $url = $base_uri.'src/view_header.php?'.$query_string;
 662
 663
 664     // Build the printer friend link
 665     /* hackydiehack */
 666     if( !sqgetGlobalVar('view_unsafe_images', $view_unsafe_images, SQ_GET) ) {
 667         $view_unsafe_images = false;
 668     } else {
 669         $view_unsafe_images = true;
 670     }
 671     $pf_params = '?passed_ent_id=' . $urlPassed_ent_id .
 672                  '&mailbox=' . $urlMailbox .
 673                  '&passed_id=' . $urlPassed_id .
 674                  '&view_unsafe_images='. (bool) $view_unsafe_images .
 675                  '&show_html_default=' . $show_html_default;
 676     $links = array();
 677     $links[] = array (
 678                         'URL'   => $url,
 679                         'Text'  => _("View Full Header")
 680                      );
 681     $links[] = array (
 682                         'URL'   => $pf_params,
 683                         'Text'  => _("View Printable Version")
 684                      );
 685     $links[] = array (
 686                         'URL'   => $download_href,
 687                         'Text'  => _("Download this as a file")
 688                      );
 689     $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
 690     if (!empty($toggle)) {
 691         $links[] = array (
 692                             'URL'   => $toggle,
 693                             'Text'  => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
 694                          );
 695     }
 696     if (!empty($unsafe_image_toggle_href)) {
 697         $links[] = array (
 698                             'URL'   => $unsafe_image_toggle_href,
 699                             'Text'  => $unsafe_image_toggle_text
 700                          );
 701     }
 702
 703     do_hook('read_body_header_right', $links);
 704
 705     $oTemplate->assign('links', $links);
 706
 707     return $oTemplate->fetch('read_toolbar.tpl');
 708 }
 709
 710 /***************************/
 711 /*   Main of read_body.php */
 712 /***************************/
 713
 714 /* get the globals we may need */
 715
 716 sqgetGlobalVar('delimiter', $delimiter,     SQ_SESSION);
 717 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
 718 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
 719     $messages = array();
 720 }
 721 sqgetGlobalVar('delayed_errors',  $delayed_errors,  SQ_SESSION);
 722 if (is_array($delayed_errors)) {
 723     $oErrorHandler->AssignDelayedErrors($delayed_errors);
 724     sqsession_unregister("delayed_errors");
 725 }
 726 /** GET VARS */
 727 sqgetGlobalVar('sendreceipt',   $sendreceipt,   SQ_GET);
 728 if (!sqgetGlobalVar('where',         $where,         SQ_GET) ) {
 729     $where = 'right_main.php';
 730 }
 731 /*
 732  * Used as entry key to the list of uid's cached in the mailbox cache
 733  * we use the cached uid's to get the next and prev  message.
 734  */
 735 if (!sqgetGlobalVar('what',          $what,          SQ_GET) ){
 736     $what = 0;
 737 }
 738 if ( sqgetGlobalVar('show_more', $temp,  SQ_GET) ) {
 739     $show_more = (int) $temp;
 740 }
 741 if ( sqgetGlobalVar('show_more_cc', $temp,  SQ_GET) ) {
 742     $show_more_cc = (int) $temp;
 743 }
 744 if ( sqgetGlobalVar('show_more_bcc', $temp,  SQ_GET) ) {
 745     $show_more_bcc = (int) $temp;
 746 }
 747 if ( sqgetGlobalVar('view_hdr', $temp,  SQ_GET) ) {
 748     $view_hdr = (int) $temp;
 749 }
 750
 751 if ( sqgetGlobalVar('account', $temp,  SQ_GET) ) {
 752     $iAccount = (int) $temp;
 753 } else {
 754     $iAccount = 0;
 755 }
 756
 757 /** GET/POST VARS */
 758 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
 759 sqgetGlobalVar('mailbox',       $mailbox);
 760
 761 if ( sqgetGlobalVar('passed_id', $temp) ) {
 762     $passed_id = (int) $temp;
 763 }
 764 if ( sqgetGlobalVar('sort', $temp) ) {
 765     $sort = (int) $temp;
 766 }
 767 if ( sqgetGlobalVar('startMessage', $temp) ) {
 768     $startMessage = (int) $temp;
 769 } else {
 770     $startMessage = 1;
 771 }
 772 if(sqgetGlobalVar('show_html_default', $temp)) {
 773     $show_html_default = (int) $temp;
 774 }
 775
 776 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
 777     $view_unsafe_images = (int) $temp;
 778     if($view_unsafe_images == 1) {
 779         $show_html_default = 1;
 780     }
 781 } else {
 782     $view_unsafe_images = 0;
 783 }
 784 /**
 785  * Retrieve mailbox cache
 786  */
 787 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
 788
 789 /* end of get globals */
 790 global $sqimap_capabilities, $lastTargetMailbox;
 791
 792 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
 793 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
 794
 795
 796 /**
 797  Start code to set the columns to fetch in case of hitting the next/prev link
 798  The reason for this is the fact that the cache can be invalidated which means that the headers
 799  to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
 800
 801  Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
 802 */
 803
 804 /**
 805  * Replace From => To  in case it concerns a draft or sent folder
 806  */
 807 $aColumns = array();
 808 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
 809     !in_array(SQM_COL_TO,$index_order)) {
 810     $aNewOrder = array(); // nice var name ;)
 811     foreach($index_order as $iCol) {
 812         if ($iCol == SQM_COL_FROM) {
 813             $iCol = SQM_COL_TO;
 814         }
 815         $aColumns[$iCol] = array();
 816    }
 817 } else {
 818    foreach ($index_order as $iCol) {
 819        $aColumns[$iCol] = array();
 820    }
 821 }
 822
 823 $aProps = array(
 824     'columns' => $aColumns, // columns bound settings
 825     'config'  => array(
 826                         'highlight_list'        => $message_highlight_list, // row highlighting rules
 827                         'trash_folder'          => $trash_folder,
 828                         'sent_folder'           => $sent_folder,
 829                         'draft_folder'          => $draft_folder));
 830
 831 calcFetchColumns($aMailbox,$aProps);
 832
 833 /**
 834  End code to set the columns to fetch in case of hitting the next/prev link
 835 */
 836
 837
 838
 839 /**
 840  * Check if cache is still valid, $what contains the key
 841  * which gives us acces to the array with uid's. At this moment
 842  * 0 is used for a normal message list and search uses 1 as key. This can be
 843  * changed / extended in the future.
 844  * If on a select of a mailbox we detect that the cache should be invalidated due to
 845  * the delete of messages or due to new messages we empty the list with uid's and
 846  * that's what we detect below.
 847  */
 848 if (!is_array($aMailbox['UIDSET'][$what])) {
 849     fetchMessageHeaders($imapConnection, $aMailbox);
 850 }
 851
 852 $iSetIndex = $aMailbox['SETINDEX'];
 853 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
 854
 855 /**
 856  * Update the seen state
 857  * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
 858  */
 859 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 860     $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
 861 }
 862
 863 /**
 864  * Process Delete from delete-move-next
 865  * but only if delete_id was set
 866  */
 867 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
 868     handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
 869 }
 870
 871 /**
 872  * $message contains all information about the message
 873  * including header and body
 874  */
 875
 876 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
 877     $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
 878     $FirstTimeSee = !$message->is_seen;
 879 } else {
 880     $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
 881     $FirstTimeSee = !$message->is_seen;
 882 }
 883
 884 /**
 885  * update message seen status and put in cache
 886  */
 887 $message->is_seen = true;
 888 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 889
 890 if (isset($passed_ent_id) && $passed_ent_id) {
 891     $message = $message->getEntity($passed_ent_id);
 892     if ($message->type0 != 'message'  && $message->type1 != 'rfc822') {
 893         $message = $message->parent;
 894     }
 895     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
 896     $rfc822_header = new Rfc822Header();
 897     $rfc822_header->parseHeader($read);
 898     $message->rfc822_header = $rfc822_header;
 899 } else if ($message->type0 == 'message'  && $message->type1 == 'rfc822' && isset($message->entities[0])) {
 900     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
 901     $rfc822_header = new Rfc822Header();
 902     $rfc822_header->parseHeader($read);
 903     $message->rfc822_header = $rfc822_header;
 904 } else {
 905     $passed_ent_id = 0;
 906 }
 907 $header = $message->header;
 908
 909
 910 /****************************************/
 911 /* Block for handling incoming url vars */
 912 /****************************************/
 913
 914 if (isset($sendreceipt)) {
 915    if ( !$message->is_mdnsent ) {
 916       $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
 917       if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
 918          ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
 919          $message->is_mdnsent = true;
 920          $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 921       }
 922    }
 923 }
 924 /***********************************************/
 925 /* End of block for handling incoming url vars */
 926 /***********************************************/
 927
 928 $messagebody = '';
 929 do_hook('read_body_top', $null);
 930 if ($show_html_default == 1) {
 931     $ent_ar = $message->findDisplayEntity(array());
 932 } else {
 933     $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
 934 }
 935 $cnt = count($ent_ar);
 936 for ($i = 0; $i < $cnt; $i++) {
 937    $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
 938    if ($i != $cnt-1) {
 939        $messagebody .= '<hr />';
 940    }
 941 }
 942
 943 /**
 944  * Write mailbox with updated seen flag information back to cache.
 945  */
 946 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
 947 sqsession_register($mailbox_cache,'mailbox_cache');
 948 $_SESSION['mailbox_cache'] = $mailbox_cache;
 949
 950 displayPageHeader($color, $mailbox,'','');
 951 formatMenuBar($aMailbox, $passed_id, $passed_ent_id, $message,false);
 952 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
 953
 954 $oTemplate->assign('message_body', $messagebody);
 955 $oTemplate->display('read_message_body.tpl');
 956
 957 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
 958
 959 /* show attached images inline -- if pref'fed so */
 960 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
 961     $images = array();
 962     foreach ($attachment_common_show_images_list as $img) {
 963         $imgurl = SM_PATH . 'src/download.php' .
 964                 '?' .
 965                 'passed_id='     . urlencode($img['passed_id']) .
 966                 '&amp;mailbox='       . urlencode($mailbox) .
 967                 '&amp;ent_id=' . urlencode($img['ent_id']) .
 968                 '&amp;absolute_dl=true';
 969         $a = array();
 970         $a['Name'] = $img['name'];
 971         $a['DisplayURL'] = $imgurl;
 972         $a['DownloadURL'] = $img['download_href'];
 973         $images[] = $a;
 974     }
 975
 976     $oTemplate->assign('images', $images);
 977     $oTemplate->display('read_display_images_inline.tpl');
 978 }
 979
 980 formatMenuBar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
 981
 982 do_hook('read_body_bottom', $null);
 983 sqimap_logout($imapConnection);
 984 $oTemplate->display('footer.tpl');
 985 ?>