-
-/**
- * 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(false));
- } else {
- $from_name = _("Unknown sender");
- }
- $description = '<tr>'.
- html_tag( 'td',_("From:"), 'right') .
- html_tag( 'td',$from_name, 'left') .
- '</tr>';
- } else {
- $filename = $att->getFilename();
- if ($header->description) {
- $description = '<tr>'.
- html_tag( 'td',_("Info").':', 'right') .
- html_tag( 'td',decodeHeader($header->description), 'left') .
- '</tr>';
- } else {
- $description = '';
- }
- }
-
- $display_filename = $filename;
-
- // TODO: maybe make it nicer?
- $attachments .= '<table border="1"><tr><th colspan="2">'.decodeHeader($display_filename).'</th></tr>' .
- '<tr border="0">'.
- html_tag( 'td',_("Size").':', 'right') .
- html_tag( 'td',show_readable_size($header->size), 'left') .
- '</tr><tr>' .
- html_tag( 'td',_("Type").':', 'right') .
- html_tag( 'td',htmlspecialchars($type0).'/'.htmlspecialchars($type1), 'left') .
- '</tr>';
- if (! empty($description)) {
- $attachments .= $description;
- }
- $attachments .= "</table>\n";
- }
- return $attachments;
-}
-
-
-/* --end pf-specific functions */
-
-?>
\ No newline at end of file