X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=src%2Fprinter_friendly_bottom.php;h=3e4e95fa1789c64e4a5c338782dc74df95f92909;hb=a15f9d9379cebc62fa39b6cb10d2195f95ed5081;hp=0d624b86561de0620998730f48244ed66e6aa887;hpb=f6d2358f01980ab941029e72e972a77965748ac5;p=squirrelmail.git diff --git a/src/printer_friendly_bottom.php b/src/printer_friendly_bottom.php index 0d624b86..3e4e95fa 100644 --- a/src/printer_friendly_bottom.php +++ b/src/printer_friendly_bottom.php @@ -3,124 +3,177 @@ /** * printer_friendly_bottom.php * - * Copyright (c) 1999-2002 The SquirrelMail Project Team - * Licensed under the GNU GPL. For full terms see the file COPYING. - * * with javascript on, it is the bottom frame of printer_friendly_main.php * else, it is alone in a new window * * - this is the page that does all the work, really. * - * $Id$ + * @copyright © 1999-2006 The SquirrelMail Project Team + * @license http://opensource.org/licenses/gpl-license.php GNU Public License + * @version $Id$ + * @package squirrelmail */ -/*****************************************************************/ -/*** THIS FILE NEEDS TO HAVE ITS FORMATTING FIXED!!! ***/ -/*** PLEASE DO SO AND REMOVE THIS COMMENT SECTION. ***/ -/*** + Base level indent should begin at left margin, as ***/ -/*** the require_once below looks. ***/ -/*** + All identation should consist of four space blocks ***/ -/*** + Tab characters are evil. ***/ -/*** + all comments should use "slash-star ... star-slash" ***/ -/*** style -- no pound characters, no slash-slash style ***/ -/*** + FLOW CONTROL STATEMENTS (if, while, etc) SHOULD ***/ -/*** ALWAYS USE { AND } CHARACTERS!!! ***/ -/*** + Please use ' instead of ", when possible. Note " ***/ -/*** should always be used in _( ) function calls. ***/ -/*** Thank you for your help making the SM code more readable. ***/ -/*****************************************************************/ - -require_once('../src/validate.php'); -require_once('../functions/strings.php'); -require_once('../config/config.php'); -require_once('../src/load_prefs.php'); -require_once('../functions/imap.php'); -require_once('../functions/page_header.php'); - - $pf_cleandisplay = getPref($data_dir, $username, 'pf_cleandisplay'); - - $imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0); - sqimap_mailbox_select($imap_stream, $mailbox); - $message = sqimap_get_message($imap_stream, $passed_id, $mailbox); - - -// --start display setup-- - - // From and Date are usually fine as they are... - $from = decodeHeader($message->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) - ''. - '\n". - '\n"; - if ( strlen($cc) > 0 ) { // only show CC: if it's there... - echo '\n"; - } - echo '\n". - '\n". - '
' . _("From") . ':' . htmlentities($from) . "
' . _("To") . ':' . htmlentities($to) . "
' . _("CC") . ':' . htmlentities($cc) . "
' . _("Date") . ':' . htmlentities($date) . "
' . _("Subject") . ':' . htmlentities($subject) . "
'. - "\n
";
-
-
-     // body
-    echo "
\n";
-    echo htmlentities($body);
-
-// --end browser output--
-
-
-?>
- - - -getEntity($passed_ent_id); +} + +/* --start display setup-- */ + +$rfc822_header = $message->rfc822_header; +/* From and Date are usually fine as they are... */ +$from = $rfc822_header->getAddr_s('from'); +$date = getLongDateString($rfc822_header->date); +$subject = trim($rfc822_header->subject); + +/* we can clean these up if the list is too long... */ +$cc = $rfc822_header->getAddr_s('cc'); +$to = $rfc822_header->getAddr_s('to'); + +if ($show_html_default == 1) { + $ent_ar = $message->findDisplayEntity(array()); +} else { + $ent_ar = $message->findDisplayEntity(array(), array('text/plain')); +} +$body = ''; +if ($ent_ar[0] != '') { + for ($i = 0; $i < count($ent_ar); $i++) { + $body .= formatBody($imapConnection, $message, $color, $wrap_at, $ent_ar[$i], $passed_id, $mailbox, TRUE); + $body .= '
'; + } + $hookResults = do_hook('message_body', $body); + $body = $hookResults[1]; +} else { + $body = _("Message not printable"); +} + +/* now we clean up the display a bit... */ + +$num_leading_spaces = 9; // nine leading spaces for indentation + +// sometimes I see ',,' instead of ',' separating addresses *shrug* +$cc = pf_clean_string(str_replace(',,', ',', $cc), $num_leading_spaces); +$to = pf_clean_string(str_replace(',,', ',', $to), $num_leading_spaces); + +// 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 + +$to = decodeHeader($to); +$cc = decodeHeader($cc); +$from = decodeHeader($from); +$subject = decodeHeader($subject); + +$attachments = pf_show_attachments($message,$ent_ar,$mailbox,$passed_id); + +// --end display setup-- + + +/* --start browser output-- */ +displayHtmlHeader( $subject, '', FALSE ); + +echo ''."\n" . + /* headers (we use table because translations are not all the same width) */ + html_tag( 'table', '', 'center', '', 'cellspacing="0" cellpadding="0" border="0" width="100%"' ) . + html_tag( 'tr', + html_tag( 'td', ''._("From").': ', 'left' ,'','valign="top"') . + html_tag( 'td', $from, 'left' ) + ) . "\n" . + html_tag( 'tr', + html_tag( 'td', ''._("Subject").': ', 'left','','valign="top"' ) . + html_tag( 'td', $subject, 'left' ) + ) . "\n" . + html_tag( 'tr', + html_tag( 'td', ''._("Date").': ', 'left' ) . + html_tag( 'td', htmlspecialchars($date), 'left' ) + ) . "\n" . + html_tag( 'tr', + html_tag( 'td', ''._("To").': ', 'left','','valign="top"' ) . + html_tag( 'td', $to, 'left' ) + ) . "\n"; + if ( strlen($cc) > 0 ) { /* only show Cc: if it's there... */ + echo html_tag( 'tr', + html_tag( 'td', ''._("Cc").': ', 'left','','valign="top"' ) . + html_tag( 'td', $cc, 'left' ) + ); + } + /* body */ + echo html_tag( 'tr', + html_tag( 'td', '

' . "\n" . $body, 'left', '', 'colspan="2"' ) + ) . "\n" ; + + if (! empty($attachments)) { + // attachments title + echo html_tag( 'tr', + html_tag( 'td',''._("Attachments:").'', 'left', '', 'colspan="2"' ) + ) . "\n" ; + // list of attachments + echo html_tag( 'tr', + html_tag( 'td',$attachments, 'left', '', 'colspan="2"' ) + ) . "\n" ; + // add separator line + echo html_tag( 'tr', + html_tag( 'td', '
', 'left', '', 'colspan="2"' ) + ) . "\n" ; + } + + echo '' . "\n"; +$oTemplate->display('footer.tpl'); + +/* --end browser output-- */ + + +/* --start pf-specific functions-- */ - // $string = pf_clean_string($string, 9); +/** + * Function should clean layout of printed messages when user + * enables "Printer Friendly Clean Display" option. + * For example: $string = pf_clean_string($string, 9); + * + * @param string unclean_string + * @param integer num_leading_spaces + * @return string + * @access private + */ function pf_clean_string ( $unclean_string, $num_leading_spaces ) { global $data_dir, $username; - + $unclean_string = str_replace(' ',' ',$unclean_string); $wrap_at = getPref($data_dir, $username, 'wrap_at', 86); - $wrap_at = $wrap_at - $num_leading_spaces; // header stuff + $wrap_at = $wrap_at - $num_leading_spaces; /* header stuff */ $leading_spaces = ''; while ( strlen($leading_spaces) < $num_leading_spaces ) @@ -130,7 +183,7 @@ function pf_clean_string ( $unclean_string, $num_leading_spaces ) { while ( strlen($unclean_string) > $wrap_at ) { $this_line = substr($unclean_string, 0, $wrap_at); - if ( strrpos( $this_line, "\n" ) ) // this should NEVER happen with anything but the $body + if ( strrpos( $this_line, "\n" ) ) /* this should NEVER happen with anything but the $body */ { $clean_string .= substr( $this_line, 0, strrpos( $this_line, "\n" )); $clean_string .= $leading_spaces; @@ -138,16 +191,93 @@ function pf_clean_string ( $unclean_string, $num_leading_spaces ) { } else { - $clean_string .= substr( $this_line, 0, strrpos( $this_line, ' ' )); + $i = strrpos( $this_line, ' '); + $clean_string .= substr( $this_line, 0, $i); $clean_string .= "\n" . $leading_spaces; - $unclean_string = substr($unclean_string, (1+strrpos( $this_line, ' ' ))); + $unclean_string = substr($unclean_string, 1+$i); } } $clean_string .= $unclean_string; return $clean_string; -} // end pf_clean_string() function +} /* end pf_clean_string() function */ + +/** + * Displays attachment information + * + * Stripped version of formatAttachments() function from functions/mime.php. + * @param object $message SquirrelMail message object + * @param array $exclude_id message parts that are not attachments. + * @param string $mailbox mailbox name + * @param integer $id message id + * @return string html formated attachment information. + */ +function pf_show_attachments($message, $exclude_id, $mailbox, $id) { + global $where, $what, $startMessage, $color, $passed_ent_id; + + $att_ar = $message->getAttachments($exclude_id); + + if (!count($att_ar)) return ''; + + $attachments = ''; + + $urlMailbox = urlencode($mailbox); + + foreach ($att_ar as $att) { + $ent = $att->entity_id; + $header = $att->header; + $type0 = strtolower($header->type0); + $type1 = strtolower($header->type1); + $name = ''; + + if ($type0 =='message' && $type1 == 'rfc822') { + $rfc822_header = $att->rfc822_header; + $filename = $rfc822_header->subject; + if (trim( $filename ) == '') { + $filename = 'untitled-[' . $ent . ']' ; + } + $from_o = $rfc822_header->from; + if (is_object($from_o)) { + $from_name = decodeHeader($from_o->getAddress(true)); + } else { + $from_name = _("Unknown sender"); + } + $description = ''. + html_tag( 'td',_("From:"), 'right') . + html_tag( 'td',$from_name, 'left') . + ''; + } else { + $filename = $att->getFilename(); + if ($header->description) { + $description = ''. + html_tag( 'td',_("Info:"), 'right') . + html_tag( 'td',decodeHeader($header->description), 'left') . + ''; + } else { + $description = ''; + } + } + + $display_filename = $filename; + + // TODO: maybe make it nicer? + $attachments .= '' . + ''. + html_tag( 'td',_("Size:"), 'right', '', 'width="25%"') . + html_tag( 'td',show_readable_size($header->size), 'left', '', 'width="75%"') . + '' . "\n" . + html_tag( 'td',_("Type:"), 'right', '', 'width="25%"') . + html_tag( 'td',htmlspecialchars($type0).'/'.htmlspecialchars($type1), 'left', '', 'width="75%"') . + ''; + if (! empty($description)) { + $attachments .= $description; + } + $attachments .= "
'.decodeHeader($display_filename).'
\n"; + } + return $attachments; +} + -// --end pf-specific functions +/* --end pf-specific functions */ ?>