header->from);
$date = getLongDateString($message->header->date);
// we can clean these up if the list is too long...
$cc = decodeHeader(getLineOfAddrs($message->header->cc));
$to = decodeHeader(getLineOfAddrs($message->header->to));
// and Body and Subject could easily stream off the page...
$body = mime_fetch_body($imap_stream, $passed_id, $passed_ent_id);
$body = str_replace("\n", "\n", trim(decodeBody($body, $message->header->encoding)));
$subject = trim(decodeHeader($message->header->subject));
// now, if they choose to, we clean up the display a bit...
if ( empty($pf_cleandisplay) || $pf_cleandisplay != 'no' )
{
$num_leading_spaces = 9; // nine leading spaces for indentation
// sometimes I see ',,' instead of ',' seperating addresses *shrug*
$cc = pf_clean_string(str_replace(',,', ',', $cc), $num_leading_spaces);
$to = pf_clean_string(str_replace(',,', ',', $to), $num_leading_spaces);
// the body should have no leading zeros
$body = pf_clean_string($body, 0);
// clean up everything else...
$subject = pf_clean_string($subject, $num_leading_spaces);
$from = pf_clean_string($from, $num_leading_spaces);
$date = pf_clean_string($date, $num_leading_spaces);
} // end cleanup
// --end display setup--
// --start browser output--
displayHtmlHeader( _("Printer Friendly"), '', FALSE );
echo "\n" .
// headers (we use table becasue translations are not all the same width)
''.
'| ' . _("From") . ': | ' . htmlentities($from) . " | \n".
'
| ' . _("To") . ': | ' . htmlentities($to) . " | \n";
if ( strlen($cc) > 0 ) { // only show CC: if it's there...
echo '
| ' . _("CC") . ': | ' . htmlentities($cc) . " | \n";
}
echo '
| ' . _("Date") . ': | ' . htmlentities($date) . " | \n".
'
| ' . _("Subject") . ': | ' . htmlentities($subject) . " | \n".
'
'.
"\n";
// body
echo "
\n";
echo htmlentities($body);
// --end browser output--
?>