+ }
+ }
+ 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)) {
+ $second[$i] = $line;
+ $first[$i] = '';
+ } else if (eregi("^([^:]+):(.+)", $line, $regs)) {
+ $first[$i] = $regs[1] . ':';
+ $second[$i] = $regs[2];
+ $cnum++;
+ } else {
+ $second[$i] = trim($line);
+ $first[$i] = '';
+ }
+ }
+ for ($i=0; $i < count($second); $i = $j) {
+ if (isset($first[$i])) {
+ $f = $first[$i];
+ }
+ if (isset($second[$i])) {
+ $s = nl2br($second[$i]);
+ }
+ $j = $i + 1;
+ while (($first[$j] == '') && ($j < count($first))) {
+ $s .= ' ' . nl2br($second[$j]);
+ $j++;
+ }
+ parseEmail($s);
+ if (isset($f)) echo "<nobr><tt><b>$f</b>$s</tt></nobr>";
+ }
+ echo "</td></tr></table>\n";
+ echo '</body></html>';
+ sqimap_logout($imapConnection);
+ exit;
+}
+
+if (isset($msgs)) {
+ $currentArrayIndex = $passed_id;
+} else {
+ $currentArrayIndex = -1;
+}
+
+for ($i = 0; $i < count($msgs); $i++) {
+ if ($msgs[$i]['ID'] == $passed_id) {
+ $msgs[$i]['FLAG_SEEN'] = true;
+ }
+}
+
+// $message contains all information about the message
+// including header and body
+$message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
+
+/** translate the subject and mailbox into url-able text **/
+$url_subj = urlencode(trim($message->header->subject));
+$urlMailbox = urlencode($mailbox);
+$url_replyto = '';
+if (isset($message->header->replyto)) {
+ $url_replyto = urlencode($message->header->replyto);
+}
+
+$url_replytoall = $url_replyto;
+
+// If we are replying to all, then find all other addresses and
+// add them to the list. Remove duplicates.
+// This is somewhat messy, so I'll explain:
+// 1) Take all addresses (from, to, cc) (avoid nasty join errors here)
+$url_replytoall_extra_addrs = array_merge(
+ array($message->header->from),
+ $message->header->to,
+ $message->header->cc
+);
+
+// 2) Make one big string out of them
+$url_replytoall_extra_addrs = join(';', $url_replytoall_extra_addrs);
+
+// 3) Parse that into an array of addresses
+$url_replytoall_extra_addrs = parseAddrs($url_replytoall_extra_addrs);
+
+// 4) Make them unique -- weed out duplicates
+// (Coded for PHP 4.0.0)
+$url_replytoall_extra_addrs =
+ array_keys(array_flip($url_replytoall_extra_addrs));
+
+// 5) Remove the addresses we'll be sending the message 'to'
+$url_replytoall_avoid_addrs = '';
+if (isset($message->header->replyto)) {
+ $url_replytoall_avoid_addrs = $message->header->replyto;
+}
+
+$url_replytoall_avoid_addrs = parseAddrs($url_replytoall_avoid_addrs);
+foreach ($url_replytoall_avoid_addrs as $addr) {
+ RemoveAddress($url_replytoall_extra_addrs, $addr);
+}
+
+// 6) Remove our identities from the CC list (they still can be in the
+// TO list) only if $include_self_reply_all is turned off
+if (!$include_self_reply_all) {
+ RemoveAddress($url_replytoall_extra_addrs,
+ getPref($data_dir, $username, 'email_address'));
+ $idents = getPref($data_dir, $username, 'identities');
+ if ($idents != '' && $idents > 1) {
+ for ($i = 1; $i < $idents; $i ++) {
+ $cur_email_address = getPref($data_dir, $username, 'email_address' . $i);
+ RemoveAddress($url_replytoall_extra_addrs, $cur_email_address);
+ }
+ }
+}
+
+// 7) Smoosh back into one nice line
+$url_replytoallcc = getLineOfAddrs($url_replytoall_extra_addrs);
+
+// 8) urlencode() it
+$url_replytoallcc = urlencode($url_replytoallcc);
+
+$dateString = getLongDateString($message->header->date);
+
+// What do we reply to -- text only, if possible
+$ent_num = findDisplayEntity($message);
+
+/** TEXT STRINGS DEFINITIONS **/
+$echo_more = _("more");
+$echo_less = _("less");
+
+if (!isset($show_more_cc)) $show_more_cc = false;
+
+/** FORMAT THE TO STRING **/
+$i = 0;
+$to_string = '';
+$to_ary = $message->header->to;
+while ($i < count($to_ary)) {
+ $to_ary[$i] = htmlspecialchars(decodeHeader($to_ary[$i]));
+
+ if ($to_string) {
+ $to_string = "$to_string<BR>$to_ary[$i]";
+ } else {
+ $to_string = "$to_ary[$i]";
+ }
+
+ $i++;
+ if (count($to_ary) > 1) {
+ if ($show_more == false) {