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,
 132            $languages, $useSendmail, $domain, $sent_folder;
 133
 134     sqgetGlobalVar('SERVER_NAME', $SERVER_NAME, SQ_SERVER);
 135
 136     $header = $message->rfc822_header;
 137
 138     $rfc822_header = new Rfc822Header();
 139     $content_type  = new ContentType('multipart/report');
 140     $content_type->properties['report-type']='disposition-notification';
 141
 142     set_my_charset();
 143     if ($default_charset) {
 144         $content_type->properties['charset']=$default_charset;
 145     }
 146     $rfc822_header->content_type = $content_type;
 147     $rfc822_header->to[] = $header->dnt;
 148     $rfc822_header->subject = _("Read:") . ' ' . decodeHeader($header->subject,true,false);
 149
 150     $idents = get_identities();
 151     $needles = array();
 152     if ($header->to) {
 153         foreach ($header->to as $message_to) {
 154              $needles[] = $message_to->mailbox.'@'.$message_to->host;
 155         }
 156     }
 157     $identity = find_identity($needles);
 158     $from_addr = build_from_header($identity);
 159     $reply_to = isset($idents[$identity]['reply_to']) ? $idents[$identity]['reply_to'] : '';
 160     // FIXME: this must actually be the envelope address of the orginal message,
 161     // but do we have that information? For now the first identity is our best guess.
 162     $final_recipient = $idents[0]['email_address'];
 163
 164     $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
 165     if ($reply_to) {
 166        $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
 167     }
 168
 169     // part 1 (RFC2298)
 170     $senton = getLongDateString( $header->date, $header->date_unparsed );
 171     $to_array = $header->to;
 172     $to = '';
 173     foreach ($to_array as $line) {
 174         $to .= ' '.$line->getAddress();
 175     }
 176     $now = getLongDateString( time() );
 177     set_my_charset();
 178     $body = _("Your message") . "\r\n\r\n" .
 179             "\t" . _("To") . ': ' . decodeHeader($to,false,false) . "\r\n" .
 180             "\t" . _("Subject") . ': ' . decodeHeader($header->subject,false,false) . "\r\n" .
 181             "\t" . _("Sent") . ': ' . $senton . "\r\n" .
 182             "\r\n" .
 183             sprintf( _("Was displayed on %s"), $now );
 184
 185     $special_encoding = '';
 186     if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
 187         function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode')) {
 188         $body = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode', $body);
 189         if (strtolower($default_charset) == 'iso-2022-jp') {
 190             if (mb_detect_encoding($body) == 'ASCII') {
 191                 $special_encoding = '8bit';
 192             } else {
 193                 $body = mb_convert_encoding($body, 'JIS');
 194                 $special_encoding = '7bit';
 195             }
 196         }
 197     } elseif (sq_is8bit($body)) {
 198         $special_encoding = '8bit';
 199     }
 200     $part1 = new Message();
 201     $part1->setBody($body);
 202     $mime_header = new MessageHeader;
 203     $mime_header->type0 = 'text';
 204     $mime_header->type1 = 'plain';
 205     if ($special_encoding) {
 206         $mime_header->encoding = $special_encoding;
 207     } else {
 208         $mime_header->encoding = 'us-ascii';
 209     }
 210     if ($default_charset) {
 211         $mime_header->parameters['charset'] = $default_charset;
 212     }
 213     $part1->mime_header = $mime_header;
 214
 215     // part2  (RFC2298)
 216     $original_recipient  = $to;
 217     $original_message_id = $header->message_id;
 218
 219     $report = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version " . SM_VERSION . ") \r\n";
 220     if ($original_recipient != '') {
 221         $report .= "Original-Recipient : $original_recipient\r\n";
 222     }
 223     $report .= "Final-Recipient: rfc822; $final_recipient\r\n" .
 224               "Original-Message-ID : $original_message_id\r\n" .
 225               "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
 226
 227     $part2 = new Message();
 228     $part2->setBody($report);
 229     $mime_header = new MessageHeader;
 230     $mime_header->type0 = 'message';
 231     $mime_header->type1 = 'disposition-notification';
 232     $mime_header->encoding = 'us-ascii';
 233     $part2->mime_header = $mime_header;
 234
 235     $composeMessage = new Message();
 236     $composeMessage->rfc822_header = $rfc822_header;
 237     $composeMessage->addEntity($part1);
 238     $composeMessage->addEntity($part2);
 239
 240
 241     if ($useSendmail) {
 242         require_once(SM_PATH . 'class/deliver/Deliver_SendMail.class.php');
 243         global $sendmail_path, $sendmail_args;
 244         // Check for outdated configuration
 245         if (!isset($sendmail_args)) {
 246             if ($sendmail_path=='/var/qmail/bin/qmail-inject') {
 247                 $sendmail_args = '';
 248             } else {
 249                 $sendmail_args = '-i -t';
 250             }
 251         }
 252         $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
 253         $stream = $deliver->initStream($composeMessage,$sendmail_path);
 254     } else {
 255         require_once(SM_PATH . 'class/deliver/Deliver_SMTP.class.php');
 256         $deliver = new Deliver_SMTP();
 257         global $smtpServerAddress, $smtpPort, $pop_before_smtp;
 258         $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ? true : false;
 259         get_smtp_user($user, $pass);
 260         $stream = $deliver->initStream($composeMessage,$domain,0,
 261                                        $smtpServerAddress, $smtpPort, $user, $pass, $authPop);
 262     }
 263     $success = false;
 264     if ($stream) {
 265         $length  = $deliver->mail($composeMessage, $stream);
 266         $success = $deliver->finalizeStream($stream);
 267     }
 268     if (!$success) {
 269         $msg = _("Message not sent.") . "<br />\n" .
 270             $deliver->dlv_msg;
 271         if (! empty($deliver->dlv_server_msg)) {
 272             $msg.= '<br />' .
 273                 _("Server replied:") . ' ' . $deliver->dlv_ret_nr . ' ' .
 274                 nl2br(htmlspecialchars($deliver->dlv_server_msg));
 275         }
 276         plain_error_message($msg);
 277     } else {
 278         unset ($deliver);
 279         if (sqimap_mailbox_exists ($imapConnection, $sent_folder)) {
 280             $sid = sqimap_append ($imapConnection, $sent_folder, $length);
 281             require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
 282             $imap_deliver = new Deliver_IMAP();
 283             $imap_deliver->mail($composeMessage, $imapConnection);
 284             sqimap_append_done ($imapConnection, $sent_folder);
 285             unset ($imap_deliver);
 286         }
 287     }
 288     return $success;
 289 }
 290
 291 function ToggleMDNflag ($set ,$imapConnection, $mailbox, $passed_id) {
 292     $sg   =  $set?'+':'-';
 293     $cmd  = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
 294     $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
 295                                 $readmessage, TRUE);
 296 }
 297
 298 function formatRecipientString($recipients, $item ) {
 299     global $show_more, $show_more_cc, $show_more_bcc,
 300            $PHP_SELF, $oTemplate;
 301
 302     $string = '';
 303     if ((is_array($recipients)) && (isset($recipients[0]))) {
 304         $show = false;
 305
 306         if ($item == 'to') {
 307             if ($show_more) {
 308                 $show = true;
 309                 $url = set_url_var($PHP_SELF, 'show_more',0);
 310             } else {
 311                 $url = set_url_var($PHP_SELF, 'show_more',1);
 312             }
 313         } else if ($item == 'cc') {
 314             if ($show_more_cc) {
 315                 $show = true;
 316                 $url = set_url_var($PHP_SELF, 'show_more_cc',0);
 317             } else {
 318                 $url = set_url_var($PHP_SELF, 'show_more_cc',1);
 319             }
 320         } else if ($item == 'bcc') {
 321             if ($show_more_bcc) {
 322                 $show = true;
 323                 $url = set_url_var($PHP_SELF, 'show_more_bcc',0);
 324             } else {
 325                 $url = set_url_var($PHP_SELF, 'show_more_bcc',1);
 326             }
 327         }
 328
 329         $a = array();
 330         foreach ($recipients as $r) {
 331             $a[] = array(
 332                             'Name'  => htmlspecialchars($r->getAddress(false)),
 333                             'Email' => htmlspecialchars($r->getEmail()),
 334                             'Full'  => htmlspecialchars($r->getAddress(true))
 335                         );
 336         }
 337
 338         $oTemplate->assign('which_field', $item);
 339         $oTemplate->assign('recipients', $a);
 340         $oTemplate->assign('more_less_toggle_href', $url);
 341         $oTemplate->assign('show_more', $show);
 342
 343         $string = $oTemplate->fetch('read_recipient_list.tpl');
 344     }
 345     return $string;
 346 }
 347
 348 function formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message,
 349                          $color, $FirstTimeSee) {
 350     global $default_use_mdn, $default_use_priority,
 351            $show_xmailer_default, $mdn_user_support, $PHP_SELF,
 352            $squirrelmail_language, $oTemplate;
 353
 354     $mailbox = $aMailbox['NAME'];
 355
 356     $header = $message->rfc822_header;
 357     $env = array();
 358     $env[_("Subject")] = str_replace("&nbsp;"," ",decodeHeader($header->subject));
 359
 360     $from_name = $header->getAddr_s('from');
 361     if (!$from_name)
 362         $from_name = $header->getAddr_s('sender');
 363     if (!$from_name)
 364         $env[_("From")] = _("Unknown sender");
 365     else
 366         $env[_("From")] = decodeHeader($from_name);
 367     $env[_("Date")] = getLongDateString($header->date, $header->date_unparsed);
 368     $env[_("To")] = formatRecipientString($header->to, "to");
 369     $env[_("Cc")] = formatRecipientString($header->cc, "cc");
 370     $env[_("Bcc")] = formatRecipientString($header->bcc, "bcc");
 371     if ($default_use_priority) {
 372         $oTemplate->assign('message_priority', $header->priority);
 373         $env[_("Priority")] = $oTemplate->fetch('read_message_priority.tpl');
 374     }
 375     if ($show_xmailer_default) {
 376         $oTemplate->assign('xmailer', decodeHeader($header->xmailer));
 377         $env[_("Mailer")] = $oTemplate->fetch('read_xmailer.tpl');
 378     }
 379     if ($default_use_mdn) {
 380         if ($mdn_user_support) {
 381             if ($header->dnt) {
 382                 $mdn_url = $PHP_SELF;
 383                 $mdn_url = set_url_var($mdn_url, 'mailbox', urlencode($mailbox));
 384                 $mdn_url = set_url_var($mdn_url, 'passed_id', $passed_id);
 385                 $mdn_url = set_url_var($mdn_url, 'passed_ent_id', $passed_ent_id);
 386                 $mdn_url = set_url_var($mdn_url, 'sendreceipt', 1);
 387
 388                 $oTemplate->assign('read_receipt_sent', $message->is_mdnsent);
 389                 $oTemplate->assign('send_receipt_href', $mdn_url);
 390
 391                 $env[_("Read Receipt")] = $oTemplate->fetch('read_handle_receipt.tpl');
 392             }
 393         }
 394     }
 395
 396     // this is used for both mdn and also general use for plugins, etc
 397     $oTemplate->assign('first_time_reading', $FirstTimeSee);
 398
 399     $statuses = array();
 400     if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 401         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted']) &&
 402                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\deleted'] === true) {
 403             $statuses[] = _("deleted");
 404         }
 405         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered']) &&
 406                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\answered'] === true) {
 407             $statuses[] = _("answered");
 408         }
 409         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft']) &&
 410                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\draft'] === true) {
 411             $statuses[] = _("draft");
 412         }
 413         if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged']) &&
 414                   $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\flagged'] === true) {
 415             $statuses[] = _("flagged");
 416         }
 417         if ( count($statuses) ) {
 418             $env[_("Status")] = implode(', ', $statuses);
 419         }
 420     }
 421
 422     $env[_("Options")] = formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color);
 423
 424
 425     $oTemplate->assign('headers_to_display', $env);
 426
 427     $oTemplate->display('read_headers.tpl');
 428 }
 429
 430 /**
 431  * Format message toolbar
 432  *
 433  * @param string $mailbox Name of current mailbox
 434  * @param int $passed_id UID of current message
 435  * @param int $passed_ent_id Id of entity within message
 436  * @param object $message Current message object
 437  * @param object $mbx_response
 438  */
 439 function formatMenubar($aMailbox, $passed_id, $passed_ent_id, $message, $removedVar, $nav_on_top = TRUE) {
 440     global $base_uri, $draft_folder, $where, $what, $sort,
 441            $startMessage, $PHP_SELF, $save_as_draft,
 442            $enable_forward_as_attachment, $imapConnection, $lastTargetMailbox,
 443            $delete_prev_next_display, $show_copy_buttons,
 444            $compose_new_win, $compose_width, $compose_height,
 445            $oTemplate;
 446
 447     //FIXME cleanup argument list, use $aMailbox where possible
 448     $mailbox = $aMailbox['NAME'];
 449
 450     $urlMailbox = urlencode($mailbox);
 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
 791 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
 792 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
 793
 794
 795 /**
 796  Start code to set the columns to fetch in case of hitting the next/prev link
 797  The reason for this is the fact that the cache can be invalidated which means that the headers
 798  to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
 799
 800  Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
 801 */
 802
 803 /**
 804  * Replace From => To  in case it concerns a draft or sent folder
 805  */
 806 $aColumns = array();
 807 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
 808     !in_array(SQM_COL_TO,$index_order)) {
 809     $aNewOrder = array(); // nice var name ;)
 810     foreach($index_order as $iCol) {
 811         if ($iCol == SQM_COL_FROM) {
 812             $iCol = SQM_COL_TO;
 813         }
 814         $aColumns[$iCol] = array();
 815    }
 816 } else {
 817    foreach ($index_order as $iCol) {
 818        $aColumns[$iCol] = array();
 819    }
 820 }
 821
 822 $aProps = array(
 823     'columns' => $aColumns, // columns bound settings
 824     'config'  => array(
 825                         'highlight_list'        => $message_highlight_list, // row highlighting rules
 826                         'trash_folder'          => $trash_folder,
 827                         'sent_folder'           => $sent_folder,
 828                         'draft_folder'          => $draft_folder));
 829
 830 calcFetchColumns($aMailbox,$aProps);
 831
 832 /**
 833  End code to set the columns to fetch in case of hitting the next/prev link
 834 */
 835
 836
 837
 838 /**
 839  * Check if cache is still valid, $what contains the key
 840  * which gives us acces to the array with uid's. At this moment
 841  * 0 is used for a normal message list and search uses 1 as key. This can be
 842  * changed / extended in the future.
 843  * If on a select of a mailbox we detect that the cache should be invalidated due to
 844  * the delete of messages or due to new messages we empty the list with uid's and
 845  * that's what we detect below.
 846  */
 847 if (!is_array($aMailbox['UIDSET'][$what])) {
 848     fetchMessageHeaders($imapConnection, $aMailbox);
 849 }
 850
 851 $iSetIndex = $aMailbox['SETINDEX'];
 852 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
 853
 854 /**
 855  * Update the seen state
 856  * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
 857  */
 858 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 859     $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
 860 }
 861
 862 /**
 863  * Process Delete from delete-move-next
 864  * but only if delete_id was set
 865  */
 866 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
 867     handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
 868 }
 869
 870 /**
 871  * $message contains all information about the message
 872  * including header and body
 873  */
 874
 875 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
 876     $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
 877     $FirstTimeSee = !$message->is_seen;
 878 } else {
 879     $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
 880     $FirstTimeSee = !$message->is_seen;
 881 }
 882
 883 /**
 884  * update message seen status and put in cache
 885  */
 886 $message->is_seen = true;
 887 $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 888
 889 if (isset($passed_ent_id) && $passed_ent_id) {
 890     $message = $message->getEntity($passed_ent_id);
 891     if ($message->type0 != 'message'  && $message->type1 != 'rfc822') {
 892         $message = $message->parent;
 893     }
 894     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
 895     $rfc822_header = new Rfc822Header();
 896     $rfc822_header->parseHeader($read);
 897     $message->rfc822_header = $rfc822_header;
 898 } else if ($message->type0 == 'message'  && $message->type1 == 'rfc822' && isset($message->entities[0])) {
 899     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
 900     $rfc822_header = new Rfc822Header();
 901     $rfc822_header->parseHeader($read);
 902     $message->rfc822_header = $rfc822_header;
 903 } else {
 904     $passed_ent_id = 0;
 905 }
 906 $header = $message->header;
 907
 908
 909 /****************************************/
 910 /* Block for handling incoming url vars */
 911 /****************************************/
 912
 913 if (isset($sendreceipt)) {
 914    if ( !$message->is_mdnsent ) {
 915       $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
 916       if ( SendMDN( $mailbox, $passed_id, $message, $imapConnection ) > 0 && $supportMDN ) {
 917          ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
 918          $message->is_mdnsent = true;
 919          $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 920       }
 921    }
 922 }
 923 /***********************************************/
 924 /* End of block for handling incoming url vars */
 925 /***********************************************/
 926
 927 $messagebody = '';
 928 do_hook('read_body_top', $null);
 929 if ($show_html_default == 1) {
 930     $ent_ar = $message->findDisplayEntity(array());
 931 } else {
 932     $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
 933 }
 934 $cnt = count($ent_ar);
 935 for ($i = 0; $i < $cnt; $i++) {
 936    $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
 937    if ($i != $cnt-1) {
 938        $messagebody .= '<hr />';
 939    }
 940 }
 941
 942 /**
 943  * Write mailbox with updated seen flag information back to cache.
 944  */
 945 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
 946 sqsession_register($mailbox_cache,'mailbox_cache');
 947 $_SESSION['mailbox_cache'] = $mailbox_cache;
 948
 949 displayPageHeader($color, $mailbox,'','');
 950 formatMenuBar($aMailbox, $passed_id, $passed_ent_id, $message,false);
 951 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
 952
 953 $oTemplate->assign('message_body', $messagebody);
 954 $oTemplate->display('read_message_body.tpl');
 955
 956 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
 957
 958 /* show attached images inline -- if pref'fed so */
 959 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
 960     $images = array();
 961     foreach ($attachment_common_show_images_list as $img) {
 962         $imgurl = SM_PATH . 'src/download.php' .
 963                 '?' .
 964                 'passed_id='     . urlencode($img['passed_id']) .
 965                 '&amp;mailbox='       . urlencode($mailbox) .
 966                 '&amp;ent_id=' . urlencode($img['ent_id']) .
 967                 '&amp;absolute_dl=true';
 968         $a = array();
 969         $a['Name'] = $img['name'];
 970         $a['DisplayURL'] = $imgurl;
 971         $a['DownloadURL'] = $img['download_href'];
 972         $images[] = $a;
 973     }
 974
 975     $oTemplate->assign('images', $images);
 976     $oTemplate->display('read_display_images_inline.tpl');
 977 }
 978
 979 formatMenuBar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
 980
 981 do_hook('read_body_bottom', $null);
 982 sqimap_logout($imapConnection);
 983 $oTemplate->display('footer.tpl');