+
+/**
+ * read_body.php
+ *
+ * Copyright (c) 1999-2002 The SquirrelMail Project Team
+ * Licensed under the GNU GPL. For full terms see the file COPYING.
+ *
+ * This file is used for reading the msgs array and displaying
+ * the resulting emails in the right frame.
+ *
+ * $Id$
+ */
+
+require_once('../src/validate.php');
+require_once('../functions/imap.php');
+require_once('../functions/mime.php');
+require_once('../functions/date.php');
+require_once('../functions/url_parser.php');
+require_once('../functions/smtp.php');
+
+/**
+ * Given an IMAP message id number, this will look it up in the cached
+ * and sorted msgs array and return the index. Used for finding the next
+ * and previous messages.
+ *
+ * @return the index of the next valid message from the array
+ */
+function findNextMessage() {
+ global $msort, $currentArrayIndex, $msgs, $sort,
+ $thread_sort_messages, $allow_server_sort,
+ $server_sort_array;
+ $result = -1;
+ if ($thread_sort_messages == 1 || $allow_server_sort == 'true') {
+ reset($server_sort_array);
+ while(list($key, $value) = each ($server_sort_array)) {
+ if ($currentArrayIndex == $value) {
+ if ($key == (count($server_sort_array) - 1)) {
+ $result = -1;
+ break;
+ }
+ $result = $server_sort_array[$key + 1];
+ break;
+ }
+ }
+ }
+ elseif ($sort == 6 && $allow_server_sort != 'true' &&
+ $thread_sort_messages != 1) {
+ if ($currentArrayIndex != 1) {
+ $result = $currentArrayIndex - 1;
+ }
+ }
+ elseif ($allow_server_sort != 'true' && $thread_sort_messages != 1 ) {
+ if (!is_array($msort)) {
+ return -1;
+ }
+ for (reset($msort); ($key = key($msort)), (isset($key)); next($msort)) {
+ if ($currentArrayIndex == $msgs[$key]['ID']) {
+ next($msort);
+ $key = key($msort);
+ if (isset($key)){
+ $result = $msgs[$key]['ID'];
+ break;
+ }
+ }
+ }
+ }
+ return ($result);
+}
+
+/**
+ * Removes just one address from the list of addresses.
+ *
+ * @param &$addr_list a by-ref array of addresses
+ * @param $addr an address to remove
+ * @return void, since it operates on a by-ref param
+ */
+function RemoveAddress(&$addr_list, $addr) {
+ if ($addr != '') {
+ foreach (array_keys($addr_list, $addr) as $key_to_delete) {
+ unset($addr_list[$key_to_delete]);
+ }
+ }
+}
+
+/** returns the index of the previous message from the array. */
+function findPreviousMessage() {
+ global $msort, $currentArrayIndex, $sort, $msgs, $imapConnection,
+ $mailbox, $data_dir, $username, $thread_sort_messages,
+ $allow_server_sort, $server_sort_array;
+ $result = -1;
+ if ($thread_sort_messages == 1 || $allow_server_sort == 'true') {
+ reset($server_sort_array);
+ while(list($key, $value) = each ($server_sort_array)) {
+ if ($currentArrayIndex == $value) {
+ if ($key == 0) {
+ $result = -1;
+ break;
+ }
+ $result = $server_sort_array[$key -1];
+ break;
+ }
+ }
+ }
+ elseif ($sort == 6 && $allow_server_sort != 'true' &&
+ $thread_sort_messages != 1) {
+ $numMessages = sqimap_get_num_messages($imapConnection, $mailbox);
+ if ($currentArrayIndex != $numMessages) {
+ $result = $currentArrayIndex + 1;
+ }
+ }
+ elseif ($thread_sort_messages != 1 && $allow_server_sort != 'true') {
+ if (!is_array($msort)) {
+ return -1;
+ }
+ for (reset($msort); ($key = key($msort)), (isset($key)); next($msort)) {
+ if ($currentArrayIndex == $msgs[$key]['ID']) {
+ prev($msort);
+ $key = key($msort);
+ if (isset($key)) {
+ $result = $msgs[$key]['ID'];
+ break;
+ }
+ }
+ }
+ }
+ return ($result);
+}
+
+/**
+ * Displays a link to a page where the message is displayed more
+ * "printer friendly".
+ */
+function printer_friendly_link() {
+ global $passed_id, $mailbox, $ent_num, $color,
+ $pf_subtle_link,
+ $javascript_on;
+
+ if (strlen(trim($mailbox)) < 1) {
+ $mailbox = 'INBOX';
+ }
+
+ $params = '?passed_ent_id=' . $ent_num .
+ '&mailbox=' . urlencode($mailbox) .
+ '&passed_id=' . $passed_id;
+
+ $print_text = _("View Printable Version");
+
+ if (!$pf_subtle_link) {
+ /* The link is large, on the bottom of the header panel. */
+ $result = '<tr bgcolor="' . $color[0] . '">' .
+ '<td class="medText" align="right" valign="top">' .
+ ' ' .
+ '</td><td class="medText" valign="top" colspan="2">'."\n";
+ } else {
+ /* The link is subtle, below "view full header". */
+ $result = "<BR>\n";
+ }
+
+ /* Output the link. */
+ if ($javascript_on) {
+ $result .= '<script language="javascript" type="text/javascript">' . "\n" .
+ '<!--' . "\n" .
+ " function printFormat() {\n" .
+ ' window.open("../src/printer_friendly_main.php' .
+ $params . '","Print","width=800,height=600");' . "\n".
+ " }\n" .
+ "// -->\n" .
+ "</script>\n" .
+ "<A HREF=\"javascript:printFormat();\">$print_text</A>\n";
+ } else {
+ $result .= '<A TARGET="_blank" HREF="../src/printer_friendly_bottom.php' .
+ "$params\">$print_text</A>\n";
+ }
+
+ if (!$pf_subtle_link) {
+ /* The link is large, on the bottom of the header panel. */
+ $result .= '</td></tr>' . "\n";
+ }
+
+ return ($result);
+}
+
+function ServerMDNSupport( $read ) {
+ /* escaping $ doesn't work -> \x36 */
+ $ret = preg_match( '/(\x36MDNSent|\\\*)/i', $read );
+ return ( $ret );
+}
+
+function SendMDN ( $recipient , $sender) {
+ global $imapConnection, $mailbox, $username, $attachment_dir, $SERVER_NAME,
+ $version, $attachments, $identity, $data_dir, $passed_id;
+
+ $header = sqimap_get_message_header($imapConnection, $passed_id, $mailbox);
+ $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
+
+ // part 1 (RFC2298)
+
+ $senton = getLongDateString( $header->date );
+ $to_array = $header->to;
+ $to = '';
+ foreach ($to_array as $line) {
+ $to .= " $line ";
+ }
+
+ $subject = $header->subject;
+ $now = getLongDateString( time() );
+
+ set_my_charset();
+
+ $body = _("Your message") . "\r\n\r\n" .
+ "\t" . _("To:") . ' ' . $to . "\r\n" .
+ "\t" . _("Subject:") . ' ' . $subject . "\r\n" .
+ "\t" . _("Sent:") . ' ' . $senton . "\r\n" .
+ "\r\n" .
+ sprintf( _("Was displayed on %s"), $now );
+
+ // part2 (RFC2298)
+
+ $original_recipient = $to;
+ $original_message_id = $header->message_id;
+
+ $part2 = "Reporting-UA : $SERVER_NAME ; SquirrelMail (version $version) \r\n";
+ if ($original_recipient != '') {
+ $part2 .= "Original-Recipient : $original_recipient\r\n";
+ }
+ $final_recipient = $sender;
+ $part2 .= "Final-Recipient: rfc822; $final_recipient\r\n" .
+ "Original-Message-ID : $original_message_id\r\n" .
+ "Disposition: manual-action/MDN-sent-manually; displayed\r\n";
+
+
+ $localfilename = GenerateRandomString(32, 'FILE', 7);
+ $full_localfilename = "$hashed_attachment_dir/$localfilename";
+
+ $fp = fopen( $full_localfilename, 'w');
+ fwrite ($fp, $part2);
+ fclose($fp);
+
+ $newAttachment = array();
+ $newAttachment['localfilename'] = $localfilename;
+ $newAttachment['type'] = "message/disposition-notification";
+ $newAttachment['session']=-1;
+ $attachments[] = $newAttachment;
+ $MDN_to = trim($recipient);
+ $reply_id = 0;
+
+ return (SendMessage($MDN_to, '', '', _("Read:") . ' ' . $subject,
+ $body, $reply_id, True, 3, -1) );
+}
+
+
+function ToggleMDNflag ( $set ) {
+ global $imapConnection, $passed_id, $mailbox;
+ sqimap_mailbox_select($imapConnection, $mailbox);
+
+ $sg = $set?'+':'-';
+ $cmd = 'STORE ' . $passed_id . ' ' . $sg . 'FLAGS ($MDNSent)';
+ $read = sqimap_run_command ($imapConnection, $cmd, true, $response,
+ $readmessage);
+}
+
+function ClearAttachments() {
+ global $username, $attachments, $attachment_dir;
+
+ $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
+
+ $rem_attachments = array();
+ foreach ($attachments as $info) {
+ if ($info->session == -1) {
+ $attached_file = "$hashed_attachment_dir/$info[localfilename]";
+ if (file_exists($attached_file)) {
+ unlink($attached_file);
+ }
+ } else {
+ $rem_attachments[] = $info;
+ }
+ }
+ $attachments = rem_attachments;
+}
+
+function formatRecipientString($recipients, $item ) {
+ global $base_uri, $passed_id, $urlMailbox, $startMessage, $show_more_cc,
+ $echo_more, $echo_less, $show_more, $show_more_bcc, $sort;
+
+ $i = 0;
+ $url_string = '';
+
+ if (isset ($recipients[0]) && trim($recipients[0])) {
+ $string = '';
+ $ary = $recipients;
+
+ switch ($item) {
+ case 'to':
+ $show = "&show_more=1&show_more_cc=$show_more_cc&".
+ "show_more_bcc=$show_more_bcc";
+ $show_n = "&show_more=0&show_more_cc=$show_more_cc&".
+ "show_more_bcc=$show_more_bcc";
+ break;
+ case 'cc':
+ $show = "&show_more=$show_more&show_more_cc=1&".
+ "show_more_bcc=$show_more_bcc";
+ $show_n = "&show_more=$show_more&show_more_cc=0&".
+ "show_more_bcc=$show_more_bcc";
+ $show_more = $show_more_cc;
+ break;
+ case 'bcc':
+ $show = "&show_more=$show_more&show_more_cc=$show_more_cc".
+ "&show_more_bcc=1";
+ $show_n = "&show_more=$show_more&show_more_cc=".
+ "$show_more_cc&show_more_bcc=0";
+ $show_more = $show_more_bcc;
+ break;
+ default:
+ $break;
+ }
+
+ while ($i < count($ary)) {
+ $ary[$i] = decodeHeader(htmlspecialchars($ary[$i]));
+ $url_string .= $ary[$i];
+ if ($string) {
+ $string = "$string<BR>$ary[$i]";
+ } else {
+ $string = "$ary[$i]";
+ }
+
+ $i++;
+ if (count($ary) > 1) {
+ if ($show_more == false) {
+ if ($i == 1) {
+ /* From a search... */
+ $string .= ' (<A HREF="' . $base_uri .
+ "src/read_body.php?mailbox=$urlMailbox&".
+ "passed_id=$passed_id&";
+ if (isset($where) && isset($what)) {
+ $string .= 'what=' . urlencode($what).
+ "&where=".urlencode($where).
+ "$show\">$echo_more</A>)";
+ } else {
+ $string .= "sort=$sort&startMessage=".
+ "$startMessage"."$show\">$echo_more</A>)";
+ }
+ $i = count($ary);
+ }
+ } else if ($i == 1) {
+ /* From a search... */
+ $string .= ' (<A HREF="' . $base_uri .
+ "src/read_body.php?mailbox=$urlMailbox&".
+ "passed_id=$passed_id&";
+ if (isset($where) && isset($what)) {
+ $string .= 'what=' . urlencode($what).
+ "&where=".urlencode($where).
+ "$show_n\">$echo_less</A>)";
+ } else {
+ $string .= "sort=$sort&startMessage=$startMessage".
+ "$show_n\">$echo_less</A>)";
+ }
+ }
+ }
+ }
+ }
+ else {
+ $string = '';
+ }
+ $url_string = urlencode($url_string);
+ $result = array();
+ $result['str'] = $string;
+ $result['url_str'] = $url_string;
+ return $result;
+}
+
+
+
+/*
+ * Main of read_boby.php --------------------------------------------------
+ */
+
+/*
+ Urled vars
+ ----------
+ $passed_id
+*/
+
+if (isset($mailbox)){
+ $mailbox = urldecode( $mailbox );
+}
+$imapConnection = sqimap_login($username, $key, $imapServerAddress,
+ $imapPort, 0);
+$read = sqimap_mailbox_select($imapConnection, $mailbox, false, false, true);
+
+do_hook('html_top');
+
+/*
+ * The following code sets necesarry stuff for the MDN thing
+ */
+if($default_use_mdn &&
+ ($mdn_user_support = getPref($data_dir, $username, 'mdn_user_support',
+ $default_use_mdn))) {
+
+ $supportMDN = ServerMDNSupport($read["PERMANENTFLAGS"]);
+ $flags = sqimap_get_flags ($imapConnection, $passed_id);
+ $FirstTimeSee = !(in_array( 'Seen', $flags ));
+}
+
+displayPageHeader($color, $mailbox);
+
+
+/*
+ * The following code shows the header of the message and then exit
+ */
+if (isset($view_hdr)) {
+ $read=sqimap_run_command ($imapConnection, "FETCH $passed_id BODY[HEADER]",
+ true, $a, $b);
+
+ echo '<BR>' .
+ '<TABLE WIDTH="100%" CELLPADDING="2" CELLSPACING="0" BORDER="0"'.
+ ' ALIGN="CENTER">' . "\n" .
+ " <TR><TD BGCOLOR=\"$color[9]\" WIDTH=\"100%\" ALIGN=\"CENTER\"><B>".
+ _("Viewing Full Header") . '</B> - '.
+ '<a href="' . $base_uri . 'src/read_body.php?mailbox='.
+ urlencode($mailbox);
+ if (isset($where) && isset($what)) {
+ // Got here from a search
+ echo "&passed_id=$passed_id&where=".urlencode($where).
+ "&what=".urlencode($what).'">';
+ } else {
+ echo "&passed_id=$passed_id&startMessage=$startMessage".
+ "&show_more=$show_more\">";
+ }
+ echo _("View message") . "</a></b></td></tr></table>\n".
+ "<table width='99%' cellpadding='2' cellspacing='0' border='0'".
+ "align=center>\n".
+ '<tr><td>';
+
+ $cnum = 0;
+ for ($i=1; $i < count($read); $i++) {
+ $line = htmlspecialchars($read[$i]);
+ if (eregi("^>", $line)) {
+ $second[$i] = $line;
+ $first[$i] = ' ';
+ $cnum++;
+ } else if (eregi("^[ |\t]", $line)) {