A few more unnecessary urldecodes when not needed. Now we can view headers
[squirrelmail.git] / functions / mime.php
index 6fb3d5528db8343b464eac3e2b9afbd4704c7b58..5e0e82cc38570955c66a3706df909891a7e5f9b0 100644 (file)
@@ -3,7 +3,7 @@
 /**
  * mime.php
  *
- * Copyright (c) 1999-2002 The SquirrelMail Project Team
+ * Copyright (c) 1999-2003 The SquirrelMail Project Team
  * Licensed under the GNU GPL. For full terms see the file COPYING.
  *
  * This contains the functions necessary to detect and decode MIME
@@ -34,7 +34,8 @@ function mime_structure ($bodystructure, $flags=array()) {
     if (!is_object($msg)) {
         include_once(SM_PATH . 'functions/display_messages.php');
         global $color, $mailbox;
-        displayPageHeader( $color, urldecode($mailbox) );
+        /* removed urldecode because $_GET is auto urldecoded ??? */
+        displayPageHeader( $color, $mailbox );
         echo "<BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n\n" .
          '<CENTER>';
         $errormessage  = _("SquirrelMail could not decode the bodystructure of the message");
@@ -44,7 +45,6 @@ function mime_structure ($bodystructure, $flags=array()) {
         echo '</body></html>';
         exit;
     }
-    $msg->setEnt('0');
     if (count($flags)) {
         foreach ($flags as $flag) {
             $char = strtoupper($flag{1});
@@ -94,15 +94,16 @@ function mime_structure ($bodystructure, $flags=array()) {
  * to mime_get_elements()
  */
 
-function mime_fetch_body($imap_stream, $id, $ent_id) {
+function mime_fetch_body($imap_stream, $id, $ent_id=1) {
     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[]";
+    } else {
+       $cmd = "FETCH $id BODY[$ent_id]";
     }
-    $cmd = "FETCH $id BODY[$ent_id]";
 
     $data = sqimap_run_command ($imap_stream, $cmd, true, $response, $message, $uid_support);
     do {
@@ -152,14 +153,9 @@ function mime_fetch_body($imap_stream, $id, $ent_id) {
     return $ret;
 }
 
-function mime_print_body_lines ($imap_stream, $id, $ent_id, $encoding) {
+function mime_print_body_lines ($imap_stream, $id, $ent_id=1, $encoding) {
     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;
-    }
+
     $sid = sqimap_session_id($uid_support);
     /* Don't kill the connection if the browser is over a dialup
      * and it would take over 30 seconds to download it.
@@ -295,16 +291,16 @@ function translateText(&$body, $wrap_at, $charset) {
             }
         }
 
-        if ($quotes > 1) {
-            if (!isset($color[14])) {
-                $color[14] = '#FF0000';
-            }
-            $line = '<FONT COLOR="' . $color[14] . '">' . $line . '</FONT>';
-        } elseif ($quotes) {
+        if ($quotes % 2) {
             if (!isset($color[13])) {
                 $color[13] = '#800000';
             }
-            $line = '<FONT COLOR="' . $color[13] . '">' . $line . '</FONT>';
+            $line = '<font color="' . $color[13] . '">' . $line . '</font>';
+        } elseif ($quotes) {
+            if (!isset($color[14])) {
+                $color[14] = '#FF0000';
+            }
+            $line = '<font color="' . $color[14] . '">' . $line . '</font>';
         }
 
         $body_ary[$i] = $line;
@@ -312,7 +308,6 @@ function translateText(&$body, $wrap_at, $charset) {
     $body = '<pre>' . implode("\n", $body_ary) . '</pre>';
 }
 
-
 /* 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
@@ -324,15 +319,10 @@ function formatBody($imap_stream, $message, $color, $wrap_at, $ent_num, $id, $ma
      * order that is their priority.
      */
     global $startMessage, $username, $key, $imapServerAddress, $imapPort,
-           $show_html_default, $sort, $has_unsafe_images;
+           $show_html_default, $sort, $has_unsafe_images, $passed_ent_id;
 
-    if ( !check_php_version(4,1) ) {
-        global $_GET;
-    }
-    if(isset($_GET['view_unsafe_images'])) {
-        $view_unsafe_images = $_GET['view_unsafe_images'];
-    } else {
-       $view_unsafe_images = false;
+    if( !sqgetGlobalVar('view_unsafe_images', $view_unsafe_images, SQ_GET) ) {
+        $view_unsafe_images = false;
     }
 
     $body = '';
@@ -370,21 +360,24 @@ function formatBody($imap_stream, $message, $color, $wrap_at, $ent_num, $id, $ma
             translateText($body, $wrap_at,
                           $body_message->header->getParameter('charset'));
         }
-
+       $link = 'read_body.php?passed_id=' . $id . '&amp;ent_id='.$ent_num.
+                 '&amp;mailbox=' . $urlmailbox .'&amp;sort=' . $sort .
+                '&amp;startMessage=' . $startMessage . '&amp;show_more=0'; 
+       if (isset($passed_ent_id)) {
+           $link .= '&amp;passed_ent_id='.$passed_ent_id;
+       }
         if ($view_unsafe_images) {
-            $untext = '">' . _("Hide Unsafe Images");
+            $text = _("Hide Unsafe Images");
         } else {
            if (isset($has_unsafe_images) && $has_unsafe_images) {
-               $untext = '&amp;view_unsafe_images=1">' . _("View Unsafe Images");
+               $link .= '&amp;view_unsafe_images=1';
+               $text = _("View Unsafe Images");
            } else {
-               $untext = '">';
+               $text = '';
            }
         }
-        $body .= '<center><small><a href="read_body.php?passed_id=' . $id .
-                 '&amp;passed_ent_id=' . $message->entity_id . '&amp;mailbox=' . $urlmailbox .
-                 '&amp;sort=' . $sort . '&amp;startMessage=' . $startMessage . '&amp;show_more=0' .
-                 $untext . '</a></small></center><br>' . "\n";
-        
+        $body .= '<center><small><a href="'.$link.'">'.$text.
+                '</a></small></center><br>' . "\n";
     }
     return $body;
 }
@@ -403,7 +396,7 @@ function formatAttachments($message, $exclude_id, $mailbox, $id) {
     $urlMailbox = urlencode($mailbox);
 
     foreach ($att_ar as $att) {
-        $ent = urldecode($att->entity_id);
+        $ent = $att->entity_id;
         $header = $att->header;
         $type0 = strtolower($header->type0);
         $type1 = strtolower($header->type1);
@@ -415,7 +408,7 @@ function formatAttachments($message, $exclude_id, $mailbox, $id) {
         if ($type0 =='message' && $type1 == 'rfc822') {
             $default_page = '../src/read_body.php';
             $rfc822_header = $att->rfc822_header;
-            $filename = decodeHeader($rfc822_header->subject);
+            $filename = $rfc822_header->subject;
             if (trim( $filename ) == '') {
                 $filename = 'untitled-[' . $ent . ']' ;
            }           
@@ -425,34 +418,41 @@ function formatAttachments($message, $exclude_id, $mailbox, $id) {
             } else {
                 $from_name = _("Unknown sender");
             }
-            $from_name = decodeHeader(htmlspecialchars($from_name));
+            $from_name = decodeHeader(($from_name));
             $description = $from_name;
         } else {
             $default_page = '../src/download.php';
             if (is_object($header->disposition)) {
-                $filename = decodeHeader($header->disposition->getProperty('filename'));
+                $filename = $header->disposition->getProperty('filename');
                 if (trim($filename) == '') {
                     $name = decodeHeader($header->disposition->getProperty('name'));
                     if (trim($name) == '') {
-                        if (trim( $header->id ) == '') {
-                            $filename = 'untitled-[' . $ent . ']' ;
+                        $name = $header->getParameter('name');
+                        if(trim($name) == '') {
+                            if (trim( $header->id ) == '') {
+                                $filename = 'untitled-[' . $ent . ']' ;
+                            } else {
+                                $filename = 'cid: ' . $header->id;
+                           }
                         } else {
-                            $filename = 'cid: ' . $header->id;
+                           $filename = $name;
                         }
                     } else {
                         $filename = $name;
                     }
                 }
             } else {
-                if (trim( $header->id ) == '') {
-                    $filename = 'untitled-[' . $ent . ']' ;
-                } else {
-                    $filename = 'cid: ' . $header->id;
-                }
-            }
-
+               $filename = $header->getParameter('name');
+               if (!trim($filename)) {
+                   if (trim( $header->id ) == '') {
+                       $filename = 'untitled-[' . $ent . ']' ;
+                   } else {
+                       $filename = 'cid: ' . $header->id;
+                   }
+               }
+           }
             if ($header->description) {
-                $description = htmlspecialchars($header->description);
+                $description = decodeHeader($header->description);
             } else {
                 $description = '';
             }
@@ -487,7 +487,7 @@ function formatAttachments($message, $exclude_id, $mailbox, $id) {
         $defaultlink = $hookresults[6];
 
         $attachments .= '<TR><TD>' .
-                        "<A HREF=\"$defaultlink\">$display_filename</A>&nbsp;</TD>" .
+                        '<A HREF="'.$defaultlink.'">'.decodeHeader($display_filename).'</A>&nbsp;</TD>' .
                         '<TD><SMALL><b>' . show_readable_size($header->size) .
                         '</b>&nbsp;&nbsp;</small></TD>' .
                         "<TD><SMALL>[ $type0/$type1 ]&nbsp;</SMALL></TD>" .
@@ -544,43 +544,64 @@ function decodeBody($body, $encoding) {
  * RFC1522 (MIME Part Two: Message Header Extensions for Non-ASCII Text).
  * Patched by Christian Schmidt <christian@ostenfeld.dk>  23/03/2002
  */
-function decodeHeader ($string, $utfencode=true) {
+function decodeHeader ($string, $utfencode=true,$htmlsave=true) {
     global $languages, $squirrelmail_language;
     if (is_array($string)) {
         $string = implode("\n", $string);
     }
-
+    
     if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
         function_exists($languages[$squirrelmail_language]['XTRA_CODE'])) {
         $string = $languages[$squirrelmail_language]['XTRA_CODE']('decodeheader', $string);
+       // Do we need to return at this point?
+       // return $string;
     }
-
     $i = 0;
-    while (preg_match('/^(.{' . $i . '})(.*)=\?([^?]*)\?(Q|B)\?([^?]*)\?=/Ui', 
-                      $string, $res)) {
-        $prefix = $res[1];
-        /* Ignore white-space between consecutive encoded-words. */
-        if (strspn($res[2], " \t") != strlen($res[2])) {
-            $prefix .= $res[2];
-        }
-
-        if (ucfirst($res[4]) == 'B') {
-            $replace = base64_decode($res[5]);
-        } else {
-            $replace = str_replace('_', ' ', $res[5]);
-            $replace = preg_replace('/=([0-9a-f]{2})/ie', 'chr(hexdec("\1"))', 
+    $aString = explode(' ',$string);
+    foreach ($aString as $chunk) {
+        $encoded = false;
+        $aString[$i] = '';
+        while (preg_match('/^(.*)=\?([^?]*)\?(Q|B)\?([^?]*)\?=(.*)$/Ui',$chunk,$res)) {
+            //$aString[$i] .= $res[1];
+           //echo "$chunk match ". $res[5] . "<br>";
+            $encoding = ucfirst($res[3]);
+            switch ($encoding)
+            {
+            case 'B':
+                $replace = base64_decode($res[4]);
+                $aString[$i] .= charset_decode($res[2],$replace);
+                break;
+            case 'Q':
+                $replace = str_replace('_', ' ', $res[4]);
+                $replace = preg_replace('/=([0-9a-f]{2})/ie', 'chr(hexdec("\1"))', 
                                     $replace);
-            /* Only encode into entities by default. Some places
-             * don't need the encoding, like the compose form.
-             */
-            if ($utfencode) {
-                $replace = charset_decode($res[3], $replace);
+                /* Only encode into entities by default. Some places
+                 * don't need the encoding, like the compose form.
+                 */
+                if ($utfencode) {
+                    $replace = charset_decode($res[2], $replace);
+                } else {
+                    if ($htmlsave) {
+                        $replace = htmlspecialchars($replace);
+                    }
+                }
+                $aString[$i] .= $replace;
+                break;
+            default:
+                break;
             }
+            $chunk = $res[5];
+            $encoded = true;
+        } 
+        if (!$encoded && $htmlsave) {
+            $aString[$i] = htmlspecialchars($chunk);
+        } else {
+            $aString[$i] .= $chunk;
         }
-        $string = $prefix . $replace . substr($string, strlen($res[0]));
-        $i = strlen($prefix) + strlen($replace);
+        ++$i;
     }
-    return $string;
+    return implode (' ',$aString);
+
 }
 
 /*
@@ -595,41 +616,115 @@ function encodeHeader ($string) {
         function_exists($languages[$squirrelmail_language]['XTRA_CODE'])) {
         return  $languages[$squirrelmail_language]['XTRA_CODE']('encodeheader', $string);
     }
+    if (strtolower($default_charset) == 'iso-8859-1') {
+        $string = str_replace("\240",' ',$string);
+    }
 
     // Encode only if the string contains 8-bit characters or =?
     $j = strlen($string);
-    $l = strstr($string, '=?');         // Must be encoded ?
+    $max_l = 75 - strlen($default_charset) - 7;
+    $aRet = array();
     $ret = '';
+    $iEncStart = $enc_init = false;
+    $cur_l = $iOffset = 0;
     for($i = 0; $i < $j; ++$i) {
-        switch($string{$i}) {
-            case '=':
-                $ret .= '=3D';
-                break;
-            case '?':
-                $ret .= '=3F';
-                break;
-            case '_':
-                $ret .= '=5F';
-                break;
-            case ' ':
-                $ret .= '_';
-                break;
-            default:
-                $k = ord($string{$i});
-                if ($k > 126) {
-                    $ret .= sprintf("=%02X", $k);
-                    $l = TRUE;
-                } else {
-                    $ret .= $string{$i};
+        switch($string{$i})
+        {
+        case '=':
+        case '<':
+        case '>':
+        case ',':
+        case '?':
+        case '_':
+            if ($iEncStart === false) {
+                $iEncStart = $i;
+            }
+            $cur_l+=3;
+            if ($cur_l > ($max_l-2)) {
+                $aRet[] = substr($string,$iOffset,$iEncStart-$iOffset);
+                $aRet[] = "=?$default_charset?Q?$ret?=";
+                $iOffset = $i;
+                $cur_l = 0;
+                $ret = '';
+                $iEncStart = false;
+            } else {
+                $ret .= sprintf("=%02X",ord($string{$i}));
+            }
+            break;
+        case '(':
+        case ')':
+            if ($iEncStart !== false) {
+                $aRet[] = substr($string,$iOffset,$iEncStart-$iOffset);                        
+                $aRet[] = "=?$default_charset?Q?$ret?=";
+                $iOffset = $i;
+                $cur_l = 0;
+                $ret = '';
+                $iEncStart = false;
+            }
+            break;
+        case ' ':
+            if ($iEncStart !== false) {
+                $cur_l++;
+                if ($cur_l > $max_l) {
+                    $aRet[] = substr($string,$iOffset,$iEncStart-$iOffset);                        
+                    $aRet[] = "=?$default_charset?Q?$ret?=";
+                    $iOffset = $i;
+                    $cur_l = 0;
+                    $ret = '';
+                    $iEncStart = false;
+                } else {                
+                    $ret .= '_';
                 }
-                break;
+            }
+            break;
+        default:
+            $k = ord($string{$i});
+            if ($k > 126) {
+                if ($iEncStart === false) {
+                    $iEncStart = $i;
+                }
+                $cur_l += 3;
+                if ($cur_l > ($max_l-2)) {
+                    if ($iEncStart !== false) {
+                        $aRet[] = substr($string,$iOffset,$iEncStart-$iOffset);                        
+                        $aRet[] = "=?$default_charset?Q?$ret?=";
+                    } else {
+                        $aRet[] = substr($string,$iOffset,$i-$iOffset);
+                    }
+                    $cur_l = 3;
+                    $ret = '';
+                    $iOffset = $i;
+                }
+                $enc_init = true;                    
+                $ret .= sprintf("=%02X", $k);
+            } else {
+                if ($iEncStart !== false) {
+                    $cur_l++;
+                    if ($cur_l > $max_l) {
+                        $aRet[] = substr($string,$iOffset,$iEncStart-$iOffset);  
+                        $aRet[] = "=?$default_charset?Q?$ret?=";
+                        $iEncStart = false;
+                        $iOffset = $i;
+                        $cur_l = 0;
+                        $ret = '';
+                    } else {                     
+                        $ret .= $string{$i};
+                    }
+                }
+            }
+            break;
         }
     }
 
-    if ($l) {
-        $string = "=?$default_charset?Q?$ret?=";
+    if ($enc_init) {
+        if ($iEncStart !== false) {
+            $aRet[] = substr($string,$iOffset,$iEncStart-$iOffset);
+            $aRet[] = "=?$default_charset?Q?$ret?=";
+        } else {
+            $aRet[] = substr($string,$iOffset);
+        }
+        $string = implode('',$aRet);
     }
-
     return $string;
 }
 
@@ -1227,7 +1322,7 @@ function sq_fixstyle($message, $id, $content){
         $content = preg_replace("|url\(([\'\"])\s*https*:.*?([\'\"])\)|si",
                                 "url(\\1$secremoveimg\\2)", $content);
     }
-    
+   
     /**
      * Fix urls that refer to cid:
      */
@@ -1596,9 +1691,7 @@ function magicHTML($body, $id, $message, $mailbox = 'INBOX') {
                           )
                 )
         );
-    if(isset($_GET['view_unsafe_images'])) {
-        $view_unsafe_images = $_GET['view_unsafe_images'];
-    } else {
+    if( !sqgetGlobalVar('view_unsafe_images', $view_unsafe_images, SQ_GET) ) {
        $view_unsafe_images = false;
     }
     if (!$view_unsafe_images){