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='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='get';
 569           $onsubmit = 'return false';
 570         } else {
 571           $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', '');
 588     $oTemplate->assign('form_method', $method);
 589     $oTemplate->assign('form_target', $target);
 590     $oTemplate->assign('form_onsubmit', $onsubmit);
 591     $oTemplate->assign('compose_href', $comp_uri);
 592     $oTemplate->assign('button_onclick', $on_click);
 593     $oTemplate->assign('forward_as_attachment_enabled', $enable_forward_as_attachment==1);
 594
 595     //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
 596     $oTemplate->assign('mailbox', $aMailbox['NAME']);
 597     $oTemplate->assign('passed_id', $passed_id);
 598     $oTemplate->assign('what', $what);
 599
 600     // If Draft folder - create Resume link
 601     $resume_draft = $edit_as_new = false;
 602     if (($mailbox == $draft_folder) && ($save_as_draft)) {
 603         $resume_draft = true; 'smaction_draft';
 604     } else if (handleAsSent($mailbox)) {
 605         $edit_as_new = true;
 606     }
 607     $oTemplate->assign('can_resume_draft', $resume_draft);
 608     $oTemplate->assign('can_edit_as_new', $edit_as_new);
 609
 610     $oTemplate->assign('mailboxes', sqimap_mailbox_option_array($imapConnection));
 611     if (in_array('\\deleted', $aMailbox['PERMANENTFLAGS'],true)) {
 612         $delete_url = $base_uri . "src/$where";
 613         $oTemplate->assign('can_be_deleted', true);
 614         $oTemplate->assign('move_delete_form_action', $base_uri.'src/'.$where);
 615         $oTemplate->assign('delete_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 616                                                 addHidden('msg[0]', $passed_id)."\n" .
 617                                                 addHidden('startMessage', $startMessage)."\n" );
 618         if (!(isset($passed_ent_id) && $passed_ent_id)) {
 619             $oTemplate->assign('can_be_moved', true);
 620             $oTemplate->assign('move_form_extra', addHidden('mailbox', $aMailbox['NAME'])."\n" .
 621                                                   addHidden('msg[0]', $passed_id)."\n" );
 622             $oTemplate->assign('last_move_target', isset($lastTargetMailbox) && !empty($lastTargetMailbox) ? $lastTargetMailbox : '');
 623             $oTemplate->assign('can_be_copied', $show_copy_buttons==1);
 624         } else {
 625             $oTemplate->assign('can_be_moved', false);
 626             $oTemplate->assign('move_form_extra', '');
 627             $oTemplate->assign('last_move_target', '');
 628             $oTemplate->assign('can_be_copied', false);
 629         }
 630     } else {
 631         $oTemplate->assign('can_be_deleted', false);
 632         $oTemplate->assign('move_delete_form_action', '');
 633         $oTemplate->assign('delete_form_extra', '');
 634         $oTemplate->assign('can_be_moved', false);
 635         $oTemplate->assign('move_form_extra', '');
 636         $oTemplate->assign('last_move_target', '');
 637         $oTemplate->assign('can_be_copied', false);
 638     }
 639
 640     if ($nav_on_top) {
 641         $oTemplate->display('read_menubar_nav.tpl');
 642         $oTemplate->display('read_menubar_buttons.tpl');
 643     } else {
 644         $oTemplate->display('read_menubar_buttons.tpl');
 645         $oTemplate->display('read_menubar_nav.tpl');
 646     }
 647
 648     global $null;
 649     do_hook('read_body_menu_bottom', $null);
 650 }
 651
 652 function formatToolbar($mailbox, $passed_id, $passed_ent_id, $message, $color) {
 653     global $base_uri, $where, $what, $show_html_default,
 654            $oTemplate, $download_href,
 655            $unsafe_image_toggle_href, $unsafe_image_toggle_text;
 656
 657     $urlMailbox = urlencode($mailbox);
 658     $urlPassed_id = urlencode($passed_id);
 659     $urlPassed_ent_id = urlencode($passed_ent_id);
 660
 661     $query_string = 'mailbox=' . $urlMailbox . '&amp;passed_id=' . $urlPassed_id . '&amp;passed_ent_id=' . $urlPassed_ent_id;
 662     if (!empty($where)) {
 663         $query_string .= '&amp;where=' . urlencode($where);
 664     }
 665     if (!empty($what)) {
 666         $query_string .= '&amp;what=' . urlencode($what);
 667     }
 668     $url = $base_uri.'src/view_header.php?'.$query_string;
 669
 670
 671     // Build the printer friend link
 672     /* hackydiehack */
 673     if( !sqgetGlobalVar('view_unsafe_images', $view_unsafe_images, SQ_GET) ) {
 674         $view_unsafe_images = false;
 675     } else {
 676         $view_unsafe_images = true;
 677     }
 678     $pf_params = '?passed_ent_id=' . $urlPassed_ent_id .
 679                  '&mailbox=' . $urlMailbox .
 680                  '&passed_id=' . $urlPassed_id .
 681                  '&view_unsafe_images='. (bool) $view_unsafe_images .
 682                  '&show_html_default=' . $show_html_default;
 683     $links = array();
 684     $links[] = array (
 685                         'URL'   => $url,
 686                         'Text'  => _("View Full Header")
 687                      );
 688     $links[] = array (
 689                         'URL'   => $pf_params,
 690                         'Text'  => _("View Printable Version")
 691                      );
 692     $links[] = array (
 693                         'URL'   => $download_href,
 694                         'Text'  => _("Download this as a file")
 695                      );
 696     $toggle = html_toggle_href($mailbox, $passed_id, $passed_ent_id, $message);
 697     if (!empty($toggle)) {
 698         $links[] = array (
 699                             'URL'   => $toggle,
 700                             'Text'  => $show_html_default==1 ? _("View as plain text") : _("View as HTML")
 701                          );
 702     }
 703     if (!empty($unsafe_image_toggle_href)) {
 704         $links[] = array (
 705                             'URL'   => $unsafe_image_toggle_href,
 706                             'Text'  => $unsafe_image_toggle_text
 707                          );
 708     }
 709
 710     do_hook('read_body_header_right', $links);
 711
 712     $oTemplate->assign('links', $links);
 713
 714     return $oTemplate->fetch('read_toolbar.tpl');
 715 }
 716
 717 /***************************/
 718 /*   Main of read_body.php */
 719 /***************************/
 720
 721 /* get the globals we may need */
 722
 723 sqgetGlobalVar('delimiter', $delimiter,     SQ_SESSION);
 724 sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
 725 if (!sqgetGlobalVar('messages', $messages, SQ_SESSION) ) {
 726     $messages = array();
 727 }
 728 sqgetGlobalVar('delayed_errors',  $delayed_errors,  SQ_SESSION);
 729 if (is_array($delayed_errors)) {
 730     $oErrorHandler->AssignDelayedErrors($delayed_errors);
 731     sqsession_unregister("delayed_errors");
 732 }
 733 /** GET VARS */
 734 sqgetGlobalVar('sendreceipt',   $sendreceipt,   SQ_GET);
 735 if (!sqgetGlobalVar('where',         $where,         SQ_GET) ) {
 736     $where = 'right_main.php';
 737 }
 738 /*
 739  * Used as entry key to the list of uid's cached in the mailbox cache
 740  * we use the cached uid's to get the next and prev  message.
 741  */
 742 if (!sqgetGlobalVar('what',          $what,          SQ_GET) ){
 743     $what = 0;
 744 }
 745 if ( sqgetGlobalVar('show_more', $temp,  SQ_GET) ) {
 746     $show_more = (int) $temp;
 747 }
 748 if ( sqgetGlobalVar('show_more_cc', $temp,  SQ_GET) ) {
 749     $show_more_cc = (int) $temp;
 750 }
 751 if ( sqgetGlobalVar('show_more_bcc', $temp,  SQ_GET) ) {
 752     $show_more_bcc = (int) $temp;
 753 }
 754 if ( sqgetGlobalVar('view_hdr', $temp,  SQ_GET) ) {
 755     $view_hdr = (int) $temp;
 756 }
 757
 758 if ( sqgetGlobalVar('account', $temp,  SQ_GET) ) {
 759     $iAccount = (int) $temp;
 760 } else {
 761     $iAccount = 0;
 762 }
 763
 764 /** GET/POST VARS */
 765 sqgetGlobalVar('passed_ent_id', $passed_ent_id);
 766 sqgetGlobalVar('mailbox',       $mailbox);
 767
 768 if ( sqgetGlobalVar('passed_id', $temp) ) {
 769     $passed_id = (int) $temp;
 770 }
 771 if ( sqgetGlobalVar('sort', $temp) ) {
 772     $sort = (int) $temp;
 773 }
 774 if ( sqgetGlobalVar('startMessage', $temp) ) {
 775     $startMessage = (int) $temp;
 776 } else {
 777     $startMessage = 1;
 778 }
 779 if(sqgetGlobalVar('show_html_default', $temp)) {
 780     $show_html_default = (int) $temp;
 781 }
 782
 783 if(sqgetGlobalVar('view_unsafe_images', $temp)) {
 784     $view_unsafe_images = (int) $temp;
 785     if($view_unsafe_images == 1) {
 786         $show_html_default = 1;
 787     }
 788 } else {
 789     $view_unsafe_images = 0;
 790 }
 791 /**
 792  * Retrieve mailbox cache
 793  */
 794 sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
 795
 796 /* end of get globals */
 797 global $sqimap_capabilities, $lastTargetMailbox;
 798
 799 $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
 800 $aMailbox = sqm_api_mailbox_select($imapConnection, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
 801
 802
 803 /**
 804  Start code to set the columns to fetch in case of hitting the next/prev link
 805  The reason for this is the fact that the cache can be invalidated which means that the headers
 806  to fetch aren't there anymore. Before they got calculated when the messagelist was shown.
 807
 808  Todo, better central handling of setting the mailbox options so we do not need to do the stuff below
 809 */
 810
 811 /**
 812  * Replace From => To  in case it concerns a draft or sent folder
 813  */
 814 $aColumns = array();
 815 if (($mailbox == $sent_folder || $mailbox == $draft_folder) &&
 816     !in_array(SQM_COL_TO,$index_order)) {
 817     $aNewOrder = array(); // nice var name ;)
 818     foreach($index_order as $iCol) {
 819         if ($iCol == SQM_COL_FROM) {
 820             $iCol = SQM_COL_TO;
 821         }
 822         $aColumns[$iCol] = array();
 823    }
 824 } else {
 825    foreach ($index_order as $iCol) {
 826        $aColumns[$iCol] = array();
 827    }
 828 }
 829
 830 $aProps = array(
 831     'columns' => $aColumns, // columns bound settings
 832     'config'  => array(
 833                         'highlight_list'        => $message_highlight_list, // row highlighting rules
 834                         'trash_folder'          => $trash_folder,
 835                         'sent_folder'           => $sent_folder,
 836                         'draft_folder'          => $draft_folder));
 837
 838 calcFetchColumns($aMailbox,$aProps);
 839
 840 /**
 841  End code to set the columns to fetch in case of hitting the next/prev link
 842 */
 843
 844
 845
 846 /**
 847  * Check if cache is still valid, $what contains the key
 848  * which gives us acces to the array with uid's. At this moment
 849  * 0 is used for a normal message list and search uses 1 as key. This can be
 850  * changed / extended in the future.
 851  * If on a select of a mailbox we detect that the cache should be invalidated due to
 852  * the delete of messages or due to new messages we empty the list with uid's and
 853  * that's what we detect below.
 854  */
 855 if (!is_array($aMailbox['UIDSET'][$what])) {
 856     fetchMessageHeaders($imapConnection, $aMailbox);
 857 }
 858
 859 $iSetIndex = $aMailbox['SETINDEX'];
 860 $aMailbox['CURRENT_MSG'][$iSetIndex] = $passed_id;
 861
 862 /**
 863  * Update the seen state
 864  * and ignore in_array('\\seen',$aMailbox['PERMANENTFLAGS'],true)
 865  */
 866 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'])) {
 867     $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS']['\\seen'] = true;
 868 }
 869
 870 /**
 871  * Process Delete from delete-move-next
 872  * but only if delete_id was set
 873  */
 874 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET) ) {
 875     handleMessageListForm($imapConnection,$aMailbox,$sButton='setDeleted', array($delete_id));
 876 }
 877
 878 /**
 879  * $message contains all information about the message
 880  * including header and body
 881  */
 882
 883 if (isset($aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'])) {
 884     $message = $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'];
 885     $FirstTimeSee = !$message->is_seen;
 886 } else {
 887     $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
 888     $FirstTimeSee = !$message->is_seen;
 889     $message->is_seen = true;
 890     $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 891 }
 892 if (isset($passed_ent_id) && $passed_ent_id) {
 893     $message = $message->getEntity($passed_ent_id);
 894     if ($message->type0 != 'message'  && $message->type1 != 'rfc822') {
 895         $message = $message->parent;
 896     }
 897     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[$passed_ent_id.HEADER]", true, $response, $msg, TRUE);
 898     $rfc822_header = new Rfc822Header();
 899     $rfc822_header->parseHeader($read);
 900     $message->rfc822_header = $rfc822_header;
 901 } else if ($message->type0 == 'message'  && $message->type1 == 'rfc822' && isset($message->entities[0])) {
 902     $read = sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[1.HEADER]", true, $response, $msg, TRUE);
 903     $rfc822_header = new Rfc822Header();
 904     $rfc822_header->parseHeader($read);
 905     $message->rfc822_header = $rfc822_header;
 906 } else {
 907     $passed_ent_id = 0;
 908 }
 909 $header = $message->header;
 910
 911
 912 /****************************************/
 913 /* Block for handling incoming url vars */
 914 /****************************************/
 915
 916 if (isset($sendreceipt)) {
 917    if ( !$message->is_mdnsent ) {
 918       $final_recipient = '';
 919       if ((isset($identity)) && ($identity != 0)) //Main identity
 920          $final_recipient = trim(getPref($data_dir, $username, 'email_address' . $identity, '' ));
 921       if ($final_recipient == '' )
 922          $final_recipient = trim(getPref($data_dir, $username, 'email_address', '' ));
 923       $supportMDN = ServerMDNSupport($aMailbox["PERMANENTFLAGS"]);
 924       if ( SendMDN( $mailbox, $passed_id, $final_recipient, $message, $imapConnection ) > 0 && $supportMDN ) {
 925          ToggleMDNflag( true, $imapConnection, $mailbox, $passed_id);
 926          $message->is_mdnsent = true;
 927          $aMailbox['MSG_HEADERS'][$passed_id]['MESSAGE_OBJECT'] = $message;
 928       }
 929    }
 930 }
 931 /***********************************************/
 932 /* End of block for handling incoming url vars */
 933 /***********************************************/
 934
 935 $messagebody = '';
 936 do_hook('read_body_top', $null);
 937 if ($show_html_default == 1) {
 938     $ent_ar = $message->findDisplayEntity(array());
 939 } else {
 940     $ent_ar = $message->findDisplayEntity(array(), array('text/plain'));
 941 }
 942 $cnt = count($ent_ar);
 943 for ($i = 0; $i < $cnt; $i++) {
 944    $messagebody .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox);
 945    if ($i != $cnt-1) {
 946        $messagebody .= '<hr />';
 947    }
 948 }
 949
 950 /**
 951  * Write mailbox with updated seen flag information back to cache.
 952  */
 953 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
 954 sqsession_register($mailbox_cache,'mailbox_cache');
 955 $_SESSION['mailbox_cache'] = $mailbox_cache;
 956
 957 displayPageHeader($color, $mailbox,'','');
 958 formatMenuBar($aMailbox, $passed_id, $passed_ent_id, $message,false);
 959 formatEnvheader($aMailbox, $passed_id, $passed_ent_id, $message, $color, $FirstTimeSee);
 960
 961 $oTemplate->assign('message_body', $messagebody);
 962 $oTemplate->display('read_message_body.tpl');
 963
 964 formatAttachments($message,$ent_ar,$mailbox, $passed_id);
 965
 966 /* show attached images inline -- if pref'fed so */
 967 if ($attachment_common_show_images && is_array($attachment_common_show_images_list)) {
 968     $images = array();
 969     foreach ($attachment_common_show_images_list as $img) {
 970         $imgurl = SM_PATH . 'src/download.php' .
 971                 '?' .
 972                 'passed_id='     . urlencode($img['passed_id']) .
 973                 '&amp;mailbox='       . urlencode($mailbox) .
 974                 '&amp;ent_id=' . urlencode($img['ent_id']) .
 975                 '&amp;absolute_dl=true';
 976         $a = array();
 977         $a['Name'] = $img['name'];
 978         $a['DisplayURL'] = $imgurl;
 979         $a['DownloadURL'] = $img['download_href'];
 980         $images[] = $a;
 981     }
 982
 983     $oTemplate->assign('images', $images);
 984     $oTemplate->display('read_display_images_inline.tpl');
 985 }
 986
 987 formatMenuBar($aMailbox, $passed_id, $passed_ent_id, $message, false, FALSE);
 988
 989 do_hook('read_body_bottom', $null);
 990 sqimap_logout($imapConnection);
 991 $oTemplate->display('footer.tpl');
 992 ?>