X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=functions%2Fmime.php;h=d4ac2e735dc1639724de9841082f4e1cec96fdca;hb=5d9c6f73b65a0b78156836ce7d0751360b581e33;hp=52a452ea6cd11ba6c8381a3971db604f0ba5d849;hpb=8ebb83f3e342a95c887d0d5a3732bfe68e9a4d8f;p=squirrelmail.git
diff --git a/functions/mime.php b/functions/mime.php
index 52a452ea..d4ac2e73 100644
--- a/functions/mime.php
+++ b/functions/mime.php
@@ -1,769 +1,1605 @@
parseStructure($read,0);
+ $msg->setEnt('0');
+ if (count($flags)) {
+ foreach ($flags as $flag) {
+ $char = strtoupper($flag{1});
+ switch ($char) {
+ case 'S':
+ if (strtolower($flag) == '\\seen') {
+ $msg->is_seen = true;
+ }
+ break;
+ case 'A':
+ if (strtolower($flag) == '\\answered') {
+ $msg->is_answered = true;
+ }
+ break;
+ case 'D':
+ if (strtolower($flag) == '\\deleted') {
+ $msg->is_deleted = true;
+ }
+ break;
+ case 'F':
+ if (strtolower($flag) == '\\flagged') {
+ $msg->is_flagged = true;
+ }
+ break;
+ case 'M':
+ if (strtolower($flag) == '$mdnsent') {
+ $msg->is_mdnsent = true;
+ }
+ break;
+ default:
+ break;
+ }
+ }
+ }
+// listEntities($msg);
+ return( $msg );
+}
+
+/* this starts the parsing of a particular structure. It is called recursively,
+ * so it can be passed different structures. It returns an object of type
+ * $message.
+ * First, it checks to see if it is a multipart message. If it is, then it
+ * handles that as it sees is necessary. If it is just a regular entity,
+ * then it parses it and adds the necessary header information (by calling out
+ * to mime_get_elements()
+ */
+
+function mime_fetch_body($imap_stream, $id, $ent_id) {
+ global $uid_support;
+ /*
+ * do a bit of error correction. If we couldn't find the entity id, just guess
+ * that it is the first one. That is usually the case anyway.
+ */
+ if (!$ent_id) {
+ $ent_id = 1;
+ }
+ $cmd = "FETCH $id BODY[$ent_id]";
- if (defined('mime_php'))
- return;
- define('mime_php', true);
+ $data = sqimap_run_command ($imap_stream, $cmd, true, $response, $message, $uid_support);
+ do {
+ $topline = trim(array_shift( $data ));
+ } while( $topline && $topline[0] == '*' && !preg_match( '/\* [0-9]+ FETCH.*/i', $topline )) ;
- global $debug_mime;
- $debug_mime = false;
-
- require_once('../functions/imap.php');
-
- /** Setting up the objects that have the structure for the message **/
-
- class msg_header {
- /** msg_header contains generic variables for values that **/
- /** could be in a header. **/
-
- var $type0 = '', $type1 = '', $boundary = '', $charset = '';
- var $encoding = '', $size = 0, $to = array(), $from = '', $date = '';
- var $cc = array(), $bcc = array(), $reply_to = '', $subject = '';
- var $id = 0, $mailbox = '', $description = '', $filename = '';
- var $entity_id = 0, $message_id = 0, $name = '';
- }
-
- class message {
- /** message is the object that contains messages. It is a recursive
- object in that through the $entities variable, it can contain
- more objects of type message. See documentation in mime.txt for
- a better description of how this works.
- **/
- var $header = '';
- var $entities = array();
-
- function addEntity ($msg) {
- $this->entities[] = $msg;
- }
- }
+ $wholemessage = implode('', $data);
+ if (ereg('\\{([^\\}]*)\\}', $topline, $regs)) {
+ $ret = substr( $wholemessage, 0, $regs[1] );
+ /*
+ There is some information in the content info header that could be important
+ in order to parse html messages. Let's get them here.
+ */
+ if ( $ret{0} == '<' ) {
+ $data = sqimap_run_command ($imap_stream, "FETCH $id BODY[$ent_id.MIME]", true, $response, $message, $uid_support);
+ }
+ } else if (ereg('"([^"]*)"', $topline, $regs)) {
+ $ret = $regs[1];
+ } else {
+ global $where, $what, $mailbox, $passed_id, $startMessage;
+ $par = 'mailbox=' . urlencode($mailbox) . "&passed_id=$passed_id";
+ if (isset($where) && isset($what)) {
+ $par .= '&where='. urlencode($where) . "&what=" . urlencode($what);
+ } else {
+ $par .= "&startMessage=$startMessage&show_more=0";
+ }
+ $par .= '&response=' . urlencode($response) .
+ '&message=' . urlencode($message).
+ '&topline=' . urlencode($topline);
+ echo '
' .
+ '' .
+ ' ' .
+ '' .
+ _("Body retrieval error. The reason for this is most probably that the message is malformed. Please help us making future versions better by submitting this message to the developers knowledgebase!") .
+ "
" .
+ _("Submit message") . '
' .
+ '' . _("Command:") . " $cmd " .
+ '' . _("Response:") . " $response " .
+ '' . _("Message:") . " $message " .
+ '' . _("FETCH line:") . " $topline " .
+ "
' . implode("\n", $body_ary) . ''; +} - // figures out what entity to display and returns the $message object - // for that entity. - function findDisplayEntity ($message, $textOnly = 1) - { - global $show_html_default; - - if (! $message) - return 0; - - if ($message->header->type0 == "multipart" && - $message->header->type1 == "alternative" && - $show_html_default && ! $textOnly) { - $entity = findDisplayEntityHTML($message); - if ($entity != 0) - return $entity; - } - - // Show text/plain or text/html -- the first one we find. - if ($message->header->type0 == 'text' && - ($message->header->type1 == 'plain' || - $message->header->type1 == 'html') && - isset($message->header->entity_id)) - return $message->header->entity_id; - - for ($i=0; isset($message->entities[$i]); $i++) { - $entity = findDisplayEntity($message->entities[$i], $textOnly); - if ($entity != 0) - return $entity; - } - - return 0; - } - - // Shows the HTML version - function findDisplayEntityHTML ($message) { - if ($message->header->type0 == 'text' && - $message->header->type1 == 'html' && - isset($message->header->entity_id)) - return $message->header->entity_id; - for ($i = 0; isset($message->entities[$i]); $i ++) { - $entity = findDisplayEntityHTML($message->entities[$i]); - if ($entity != 0) - return $entity; - } - return 0; - } - /** This returns a parsed string called $body. That string can then - be displayed as the actual message in the HTML. It contains - everything needed, including HTML Tags, Attachments at the - bottom, etc. - **/ - function formatBody($imap_stream, $message, $color, $wrap_at) { - // this if statement checks for the entity to show as the - // primary message. To add more of them, just put them in the - // order that is their priority. - global $startMessage, $username, $key, $imapServerAddress, $imapPort, - $show_html_default; - - $id = $message->header->id; - $urlmailbox = urlencode($message->header->mailbox); - - // Get the right entity and redefine message to be this entity - // Pass the 0 to mean that we want the 'best' viewable one - $ent_num = findDisplayEntity ($message, 0); - $body_message = getEntity($message, $ent_num); - if (($body_message->header->type0 == "text") || - ($body_message->header->type0 == "rfc822")) { - - $body = mime_fetch_body ($imap_stream, $id, $ent_num); - $body = decodeBody($body, $body_message->header->encoding); - - // If there are other types that shouldn't be formatted, add - // them here - if ($body_message->header->type1 != "html" || ! $show_html_default) { - translateText($body, $wrap_at, $body_message->header->charset); - } - - $body .= "
\n"; - $body .= _("Attachments") . ':'; - $body .= " |
---|
\n";
-
- $body .= " |