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