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