- /**
- ** read_body.php
- **
- ** Copyright (c) 1999-2000 The SquirrelMail development 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.
- **/
-
- session_start();
-
- if (!isset($config_php))
- include("../config/config.php");
- if (!isset($strings_php))
- include("../functions/strings.php");
- if (!isset($page_header_php))
- include("../functions/page_header.php");
- if (!isset($imap_php))
- include("../functions/imap.php");
- if (!isset($mime_php))
- include("../functions/mime.php");
- if (!isset($date_php))
- include("../functions/date.php");
- if (!isset($url_parser_php))
- include("../functions/url_parser.php");
-
- include("../src/load_prefs.php");
- $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
- sqimap_mailbox_select($imapConnection, $mailbox);
- do_hook("html_top");
- displayPageHeader($color, $mailbox);
-
- if ($view_hdr) {
- fputs ($imapConnection, "a003 FETCH $passed_id BODY[HEADER]\r\n");
- $read = sqimap_read_data ($imapConnection, "a003", true, $a, $b);
-
- echo "<br>";
- echo "<table width=100% cellpadding=2 cellspacing=0 border=0 align=center>\n";
- echo " <TR><TD BGCOLOR=\"$color[9]\" WIDTH=100%><center><b>" . _("Viewing full header") . "</b> - ";
- if ($where && $what) {
- // Got here from a search
- echo "<a href=\"read_body.php?mailbox=".urlencode($mailbox)."&passed_id=$passed_id&where=".urlencode($where)."&what=".urlencode($what)."\">";
- } else {
- echo "<a href=\"read_body.php?mailbox=".urlencode($mailbox)."&passed_id=$passed_id&startMessage=$startMessage&show_more=$show_more\">";
- }
- echo ""._("View message") . "</a></b></center></td></tr></table>\n";
- echo "<table width=99% cellpadding=2 cellspacing=0 border=0 align=center>\n";
- echo "<tr><td>";
-
- for ($i=1; $i < count($read)-1; $i++) {
- $line = htmlspecialchars($read[$i]);
- if (eregi("^>", $line)) {
- $second[$i] = $line;
- $first[$i] = " ";
- $cnum++;
- } else if (eregi("^[ |\t]", $line)) {
+
+/**
+ * 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');
+
+/**
+* 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.
+*
+* returns the index of the next valid message from the array
+*/
+function findNextMessage() {
+ global $msort, $currentArrayIndex, $msgs, $sort;
+ $result = -1;
+
+ if ($sort == 6) {
+ if ($currentArrayIndex != 1) {
+ $result = $currentArrayIndex - 1;
+ }
+ } else {
+ 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. */
+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;
+ global $mailbox, $data_dir, $username;
+ $result = -1;
+
+ if ($sort == 6) {
+ $numMessages = sqimap_get_num_messages($imapConnection, $mailbox);
+ if ($currentArrayIndex != $numMessages) {
+ $result = $currentArrayIndex + 1;
+ }
+ } else {
+ 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;
+ global $pf_subtle_link;
+ global $javascript_on;
+
+ if (strlen(trim($mailbox)) < 1) {
+ $mailbox = 'INBOX';
+ }
+
+ $params = '?passed_ent_id=' . $ent_num;
+ $params .= '&mailbox=' . urlencode($mailbox);
+ $params .= '&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] . '">' . "\n" .
+ ' <td class="medText" align="right" valign="top">' . "\n" .
+ ' ' . "\n" .
+ ' </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">' . "\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>' . "\n" .
+ ' </tr>' . "\n";
+ }
+
+ return ($result);
+}
+
+/*****************************/
+/*** Main of read_boby.php ***/
+/*****************************/
+
+$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
+sqimap_mailbox_select($imapConnection, $mailbox);
+do_hook('html_top');
+displayPageHeader($color, $mailbox);
+
+if (isset($view_hdr)) {
+ fputs ($imapConnection, sqimap_session_id() . " FETCH $passed_id BODY[HEADER]\r\n");
+ $read = sqimap_read_data ($imapConnection, sqimap_session_id(), true, $a, $b);
+
+ echo '<BR>' .
+ '<TABLE WIDTH="100%" CELLPADDING="2" CELLSPACING="0" BORDER="0" ALIGN="CENTER">' . "\n" .
+ " <TR><TD BGCOLOR=\"$color[9]\" WIDTH=\"100%\"><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></center></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)) {