X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=blobdiff_plain;f=src%2Fdownload.php;h=d78999d1b11ce6793eac99a6c7cfa08c275753fb;hp=f0a31f58492146e7ec797bd88d4a1c7418752d00;hb=de19cd7342abc1fb96dce8403128152b7708ec58;hpb=355861846a51d35efe50848869d680fd3b4a5316 diff --git a/src/download.php b/src/download.php index f0a31f58..d78999d1 100644 --- a/src/download.php +++ b/src/download.php @@ -3,7 +3,7 @@ /** * download.php * - * Copyright (c) 1999-2001 The Squirrelmail Development Team + * Copyright (c) 1999-2002 The SquirrelMail Project Team * Licensed under the GNU GPL. For full terms see the file COPYING. * * Handles attachment downloads to the users computer. @@ -12,232 +12,222 @@ * $Id$ */ -/*****************************************************************/ -/*** 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. ***/ -/*****************************************************************/ - -define('download_php', true); // Used for preferences - require_once('../src/validate.php'); require_once('../functions/imap.php'); require_once('../functions/mime.php'); require_once('../functions/date.php'); - header("Pragma: "); - header("Cache-Control: cache"); - - function viewText($color, $body, $id, $entid, $mailbox, $type1, $wrap_at) { - global $where, $what, $charset; - global $startMessage; - - displayPageHeader($color, 'None'); - - echo "
"; - echo "
"; - echo _("Viewing a text attachment") . " - "; - if ($where && $what) { - // from a search - echo "". _("View message") . ""; - } else { - echo "". _("View message") . ""; - } - - $urlmailbox = urlencode($mailbox); - echo "
"; - echo _("Download this as a file"); - echo "

"; - echo ""; - echo "
"; - - echo "
"; - echo "
"; - - if ($type1 == 'html') { - $body = MagicHTML( $body, $id ); - } else { - translateText($body, $wrap_at, $charset); - } - - flush(); - echo $body; - - echo "
"; - } - - $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0); - sqimap_mailbox_select($imapConnection, $mailbox); - - // $message contains all information about the message - // including header and body - $message = sqimap_get_message($imapConnection, $passed_id, $mailbox); - $top_header = $message->header; - - // lets redefine message as this particular entity that we wish to display. - // it should hold only the header for this entity. We need to fetch the body - // yet before we can display anything. - $message = getEntity($message, $passed_ent_id); - - $header = $message->header; - - $charset = $header->charset; - $type0 = $header->type0; - $type1 = $header->type1; - if (isset($override_type0)) - $type0 = $override_type0; - if (isset($override_type1)) - $type1 = $override_type1; - $filename = decodeHeader($header->filename); - if (!$filename) { - $filename = decodeHeader($header->name); - } - - if (strlen($filename) < 1) { - if ($type1 == "plain" && $type0 == "text") $suffix = "txt"; - else if ($type1 == "richtext" && $type0 == "text") $suffix = "rtf"; - else if ($type1 == "postscript" && $type0 == "application") $suffix = "ps"; - else if ($type1 == "message" && $type0 == "rfc822") $suffix = "msg"; - else $suffix = $type1; - - $filename = "untitled$passed_ent_id.$suffix"; - } - - // Note: - // The following sections display the attachment in different - // ways depending on how they choose. The first way will download - // under any circumstance. This sets the Content-type to be - // applicatin/octet-stream, which should be interpreted by the - // browser as "download me". - // The second method (view) is used for images or other formats - // that should be able to be handled by the browser. It will - // most likely display the attachment inline inside the browser. - // And finally, the third one will be used by default. If it - // is displayable (text or html), it will load them up in a text - // viewer (built in to squirrelmail). Otherwise, it sets the - // content-type as application/octet-stream - - if (isset($absolute_dl) && $absolute_dl == "true") { - switch($type0) { - case "text": - DumpHeaders($type0, $type1, $filename, 1); +header('Pragma: '); +header('Cache-Control: cache'); + +function viewText($color, $body, $id, $entid, $mailbox, $type1, $wrap_at) { + global $where, $what, $charset; + global $startMessage; + + displayPageHeader($color, 'None'); + + echo "
". + "
". + _("Viewing a text attachment") . " - "; + if ($where && $what) { + // from a search + echo "". _("View message") . ""; + } else { + echo "". _("View message") . ""; + } + + $urlmailbox = urlencode($mailbox); + echo "
". + _("Download this as a file"). + "

". + "". + "
". + "
". + "
"; + + if ($type1 == 'html') { + $body = MagicHTML( $body, $id ); + } else { + translateText($body, $wrap_at, $charset); + } + + flush(); + echo $body . + "
"; +} + +$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0); +sqimap_mailbox_select($imapConnection, $mailbox); + +/* + * $message contains all information about the message + * including header and body + */ +$message = sqimap_get_message($imapConnection, $passed_id, $mailbox); +$top_header = $message->header; + +/* + * lets redefine message as this particular entity that we wish to display. + * it should hold only the header for this entity. We need to fetch the body + * yet before we can display anything. + */ +$message = getEntity($message, $passed_ent_id); + +$header = $message->header; + +$charset = $header->charset; +$type0 = $header->type0; +$type1 = $header->type1; +if (isset($override_type0)) { + $type0 = $override_type0; +} +if (isset($override_type1)) { + $type1 = $override_type1; +} +$filename = decodeHeader($header->filename); +if (!$filename) { + $filename = decodeHeader($header->name); +} + +if (strlen($filename) < 1) { + if ($type1 == 'plain' && $type0 == 'text') { + $suffix = 'txt'; + } else if ($type1 == 'richtext' && $type0 == 'text') { + $suffix = 'rtf'; + } else if ($type1 == 'postscript' && $type0 == 'application') { + $suffix = 'ps'; + } else if ($type1 == 'message' && $type0 == 'rfc822') { + $suffix = 'msg'; + } else { + $suffix = $type1; + } + + $filename = "untitled$passed_ent_id.$suffix"; +} + +/* + * Note: + * The following sections display the attachment in different + * ways depending on how they choose. The first way will download + * under any circumstance. This sets the Content-type to be + * applicatin/octet-stream, which should be interpreted by the + * browser as "download me". + * The second method (view) is used for images or other formats + * that should be able to be handled by the browser. It will + * most likely display the attachment inline inside the browser. + * And finally, the third one will be used by default. If it + * is displayable (text or html), it will load them up in a text + * viewer (built in to squirrelmail). Otherwise, it sets the + * content-type as application/octet-stream + */ +if (isset($absolute_dl) && $absolute_dl == 'true') { + switch($type0) { + case 'text': + DumpHeaders($type0, $type1, $filename, 1); + $body = mime_fetch_body($imapConnection, $passed_id, $passed_ent_id); + $body = decodeBody($body, $header->encoding); + if ($type1 == 'plain' && isset($showHeaders)) { + echo _("Subject") . ": " . decodeHeader($top_header->subject) . "\n". + " " . _("From") . ": " . decodeHeader($top_header->from) . "\n". + " " . _("To") . ": " . decodeHeader(getLineOfAddrs($top_header->to)) . "\n". + " " . _("Date") . ": " . getLongDateString($top_header->date) . "\n\n"; + } elseif ($type1 == 'html' && isset($showHeaders)) { + echo '\n\n\n\n
' . _("Subject"). + ':' . decodeHeader($top_header->subject). + "
" . _("From"). + ':' . decodeHeader($top_header->from). + "
" . _("To"). + ':' . decodeHeader(getLineOfAddrs($top_header->to)). + "
" . _("Date"). + ':' . getLongDateString($top_header->date). + "
\n
\n"; + } + echo $body; + break; + default: + DumpHeaders($type0, $type1, $filename, 1); + mime_print_body_lines ($imapConnection, $passed_id, $passed_ent_id, $header->encoding); + break; + } +} else { + switch ($type0) { + case 'text': + if ($type1 == 'plain' || $type1 == 'html') { $body = mime_fetch_body($imapConnection, $passed_id, $passed_ent_id); $body = decodeBody($body, $header->encoding); - if ($type1 == "plain" && isset($showHeaders)) { - echo _("Subject") . ": " . decodeHeader($top_header->subject) . "\n"; - echo " " . _("From") . ": " . decodeHeader($top_header->from) . "\n"; - echo " " . _("To") . ": " . decodeHeader(getLineOfAddrs($top_header->to)) . "\n"; - echo " " . _("Date") . ": " . getLongDateString($top_header->date) . "\n\n"; - } - elseif ($type1 == "html" && isset($showHeaders)) { - echo '\n\n\n\n
' . _("Subject"); - echo ':' . decodeHeader($top_header->subject); - echo "
" . _("From"); - echo ':' . decodeHeader($top_header->from); - echo "
" . _("To"); - echo ':' . decodeHeader(getLineOfAddrs($top_header->to)); - echo "
" . _("Date"); - echo ':' . getLongDateString($top_header->date); - echo "
\n
\n"; - } - echo $body; - break; - default: - DumpHeaders($type0, $type1, $filename, 1); - mime_print_body_lines ($imapConnection, $passed_id, $passed_ent_id, $header->encoding); - break; - } - } else { - switch ($type0) { - case "text": - if ($type1 == "plain" || $type1 == "html") { - $body = mime_fetch_body($imapConnection, $passed_id, $passed_ent_id); - $body = decodeBody($body, $header->encoding); - viewText($color, $body, $passed_id, $passed_ent_id, $mailbox, $type1, $wrap_at); - } else { - DumpHeaders($type0, $type1, $filename, 0); - $body = mime_fetch_body($imapConnection, $passed_id, $passed_ent_id); - $body = decodeBody($body, $header->encoding); - echo $body; - } - break; - case "message": + viewText($color, $body, $passed_id, $passed_ent_id, $mailbox, $type1, $wrap_at); + } else { + DumpHeaders($type0, $type1, $filename, 0); $body = mime_fetch_body($imapConnection, $passed_id, $passed_ent_id); $body = decodeBody($body, $header->encoding); - viewText($color, $body, $passed_id, $passed_ent_id, $mailbox, $type1, $wrap_at); - break; - default: - DumpHeaders($type0, $type1, $filename, 0); - mime_print_body_lines ($imapConnection, $passed_id, $passed_ent_id, $header->encoding); - break; - } - } - - - // This function is verified to work with Netscape and the *very latest* - // version of IE. I don't know if it works with Opera, but it should now. - function DumpHeaders($type0, $type1, $filename, $force) - { - global $HTTP_USER_AGENT; - - $isIE = 0; - if (strstr($HTTP_USER_AGENT, 'compatible; MSIE ') !== false && - strstr($HTTP_USER_AGENT, 'Opera') === false) { + echo $body; + } + break; + case 'message': + $body = mime_fetch_body($imapConnection, $passed_id, $passed_ent_id); + $body = decodeBody($body, $header->encoding); + viewText($color, $body, $passed_id, $passed_ent_id, $mailbox, $type1, $wrap_at); + break; + default: + DumpHeaders($type0, $type1, $filename, 0); + mime_print_body_lines ($imapConnection, $passed_id, $passed_ent_id, $header->encoding); + break; + } +} + + +/* + * This function is verified to work with Netscape and the *very latest* + * version of IE. I don't know if it works with Opera, but it should now. + */ +function DumpHeaders($type0, $type1, $filename, $force) { + global $HTTP_USER_AGENT; + + $isIE = 0; + if (strstr($HTTP_USER_AGENT, 'compatible; MSIE ') !== false && + strstr($HTTP_USER_AGENT, 'Opera') === false) { $isIE = 1; - } - - $filename = ereg_replace('[^-a-zA-Z0-9\.]', '_', $filename); - - // A Pox on Microsoft and it's Office! - if (! $force) - { - // Try to show in browser window - header("Content-Disposition: inline; filename=\"$filename\""); - header("Content-Type: $type0/$type1; name=\"$filename\""); - } - else - { - // Try to pop up the "save as" box - // IE makes this hard. It pops up 2 save boxes, or none. - // http://support.microsoft.com/support/kb/articles/Q238/5/88.ASP - // But, accordint to Microsoft, it is "RFC compliant but doesn't - // take into account some deviations that allowed within the - // specification." Doesn't that mean RFC non-compliant? - // http://support.microsoft.com/support/kb/articles/Q258/4/52.ASP - // - // The best thing you can do for IE is to upgrade to the latest - // version - if ($isIE) { - // http://support.microsoft.com/support/kb/articles/Q182/3/15.asp - // Do not have quotes around filename, but that applied to - // "attachment"... does it apply to inline too? - // - // This combination seems to work mostly. IE 5.5 SP 1 has - // known issues (see the Microsoft Knowledge Base) - header("Content-Disposition: inline; filename=$filename"); - - // This works for most types, but doesn't work with Word files - header("Content-Type: application/download; name=\"$filename\""); - - // These are spares, just in case. :-) - //header("Content-Type: $type0/$type1; name=\"$filename\""); - //header("Content-Type: application/x-msdownload; name=\"$filename\""); - //header("Content-Type: application/octet-stream; name=\"$filename\""); - } else { - header("Content-Disposition: attachment; filename=\"$filename\""); - // application/octet-stream forces download for Netscape - header("Content-Type: application/octet-stream; name=\"$filename\""); - } - } - } + } + + $filename = ereg_replace('[^-a-zA-Z0-9\.]', '_', $filename); + + // A Pox on Microsoft and it's Office! + if (! $force) { + // Try to show in browser window + header("Content-Disposition: inline; filename=\"$filename\""); + header("Content-Type: $type0/$type1; name=\"$filename\""); + } else { + // Try to pop up the "save as" box + // IE makes this hard. It pops up 2 save boxes, or none. + // http://support.microsoft.com/support/kb/articles/Q238/5/88.ASP + // But, accordint to Microsoft, it is "RFC compliant but doesn't + // take into account some deviations that allowed within the + // specification." Doesn't that mean RFC non-compliant? + // http://support.microsoft.com/support/kb/articles/Q258/4/52.ASP + // + // The best thing you can do for IE is to upgrade to the latest + // version + if ($isIE) { + // http://support.microsoft.com/support/kb/articles/Q182/3/15.asp + // Do not have quotes around filename, but that applied to + // "attachment"... does it apply to inline too? + // + // This combination seems to work mostly. IE 5.5 SP 1 has + // known issues (see the Microsoft Knowledge Base) + header("Content-Disposition: inline; filename=$filename"); + + // This works for most types, but doesn't work with Word files + header("Content-Type: application/download; name=\"$filename\""); + + // These are spares, just in case. :-) + //header("Content-Type: $type0/$type1; name=\"$filename\""); + //header("Content-Type: application/x-msdownload; name=\"$filename\""); + //header("Content-Type: application/octet-stream; name=\"$filename\""); + } else { + header("Content-Disposition: attachment; filename=\"$filename\""); + // application/octet-stream forces download for Netscape + header("Content-Type: application/octet-stream; name=\"$filename\""); + } + } +} ?>