If SERVER_NAME not set, use $domain as the domain in message-id.
[squirrelmail.git] / class / deliver / Deliver.class.php
index adc041b726cb25ff2253c2b410b771bc097b4aa0..4f98c7808c4713d9c89352071114fe0a4e1eebb1 100644 (file)
@@ -226,19 +226,20 @@ class Deliver {
     }    
 
     function prepareRFC822_Header($rfc822_header, $reply_rfc822_header, &$raw_length) {
-        $REMOTE_ADDR = $_SERVER['REMOTE_ADDR'];
-        $SERVER_NAME = $_SERVER['SERVER_NAME'];
-        $REMOTE_PORT = $_SERVER['REMOTE_PORT'];
-        if(isset($_SERVER['REMOTE_HOST'])) {
-            $REMOTE_HOST = $_SERVER['REMOTE_HOST'];
-        }
-        if(isset($_SERVER['HTTP_VIA'])) {
-            $HTTP_VIA = $_SERVER['HTTP_VIA'];
-        }
-        if(isset($_SERVER['HTTP_X_FORWARDED_FOR'])) {
-            $HTTP_X_FORWARDED_FOR = $_SERVER['HTTP_X_FORWARDED_FOR'];
-        }
-       global $version, $username;
+
+       global $domain, $version, $username;
+
+       /* if server var SERVER_NAME not available, use $domain */
+        if(!sqGetGlobalVar('SERVER_NAME', $SERVER_NAME, SQ_SERVER)) {
+            $SERVER_NAME = $domain;
+       }
+
+       sqGetGlobalVar('REMOTE_ADDR', $REMOTE_ADDR, SQ_SERVER);
+       sqGetGlobalVar('REMOTE_PORT', $REMOTE_PORT, SQ_SERVER);
+       sqGetGlobalVar('REMOTE_HOST', $REMOTE_HOST, SQ_SERVER);
+       sqGetGlobalVar('HTTP_VIA',    $HTTP_VIA,    SQ_SERVER);
+       sqGetGlobalVar('HTTP_X_FORWARDED_FOR', $HTTP_X_FORWARDED_FOR, SQ_SERVER);
+
        $rn = "\r\n";
        /* This creates an RFC 822 date */
        $date = date('D, j M Y H:i:s ', mktime()) . $this->timezone();
@@ -273,24 +274,24 @@ class Deliver {
        }       
        $header[] = "Date: $date" . $rn;
         $header[] = 'Subject: '.encodeHeader($rfc822_header->subject) . $rn;
-        $header[] = 'From: '. encodeHeader($rfc822_header->getAddr_s('from')) . $rn;
+        $header[] = 'From: '. $rfc822_header->getAddr_s('from',',',true) . $rn;
        /* RFC2822 if from contains more then 1 address */      
         if (count($rfc822_header->from) > 1) {
-           $header[] = 'Sender: '. encodeHeader($rfc822_header->getAddr_s('sender')) . $rn;
+           $header[] = 'Sender: '. $rfc822_header->getAddr_s('sender',',',true) . $rn;
        }
        if (count($rfc822_header->to)) {
-           $header[] = 'To: '. encodeHeader($rfc822_header->getAddr_s('to')) . $rn;
+           $header[] = 'To: '. $rfc822_header->getAddr_s('to',',',true) . $rn;
         }
        if (count($rfc822_header->cc)) {
-           $header[] = 'Cc: '. encodeHeader($rfc822_header->getAddr_s('cc')) . $rn;
+           $header[] = 'Cc: '. $rfc822_header->getAddr_s('cc',',',true) . $rn;
        }
        if (count($rfc822_header->reply_to)) {
-           $header[] = 'Reply-To: '. encodeHeader($rfc822_header->getAddr_s('reply_to')) . $rn;
+           $header[] = 'Reply-To: '. $rfc822_header->getAddr_s('reply_to',',',true) . $rn;
        }
        /* Sendmail should return true. Default = false */
        $bcc = $this->getBcc();
        if (count($rfc822_header->bcc)) {
-           $s = 'Bcc: '. encodeHeader($rfc822_header->getAddr_s('bcc')) . $rn;
+           $s = 'Bcc: '. $rfc822_header->getAddr_s('bcc',',',true) . $rn;
            if (!$bcc) {
               $s = $this->foldLine($s, 78, str_pad('',4));
               $raw_length += strlen($s);
@@ -299,9 +300,9 @@ class Deliver {
            }
        }
        /* Identify SquirrelMail */     
-       $header[] = "X-Mailer: SquirrelMail (version $version)" . $rn; 
+       $header[] = 'User-Agent: SquirrelMail/' . $version . $rn; 
        /* Do the MIME-stuff */
-       $header[] = "MIME-Version: 1.0" . $rn;
+       $header[] = 'MIME-Version: 1.0' . $rn;
        $contenttype = 'Content-Type: '. $rfc822_header->content_type->type0 .'/'.
                                          $rfc822_header->content_type->type1;
        if (count($rfc822_header->content_type->properties)) {
@@ -341,8 +342,6 @@ class Deliver {
        for ($i = 0 ; $i < $cnt ; $i++) {
            $hdr_s .= $this->foldLine($header[$i], 78, str_pad('',4));
        }
-//     $debug = "Debug: <123456789012345678901234567890123456789012345678901234567890123456789>\r\n";
-//     $this->foldLine($debug, 78, str_pad('',4));
        $header = $hdr_s;
        $header .= $rn; /* One blank line to separate header and body */
        $raw_length += strlen($header);
@@ -354,55 +353,85 @@ class Deliver {
     */
     function foldLine($line, $length, $pre='') {
         $line = substr($line,0, -2);
-       $length -= 2; /* don not fold between \r and \n */
-       $cnt = strlen($line);
-       $res = '';
-       $fold=false;
-       if ($cnt > $length) {
-           $fold_string = "\r\n " . $pre;
-           if ($fold) {
-             $length -=(strlen($fold_string)+2);
-           }  
-           for ($i=0;$i<($cnt-$length);$i++) {
-               $fold_pos = 0;
-               /* first try to fold at delimiters */
-               for ($j=($i+$length); $j>$i; --$j) {
-                   switch ($line{$j}) {
-                     case (','):
-                     case (';'): $fold_pos = $i = $j; break;
-                     default: break;
-                   }
-               }
-               if (!$fold_pos) { /* not succeed yet so we try at spaces & = */
-                   for ($j=($i+$length); $j>$i; $j--) {
-                       switch ($line{$j}) {
-                         case (' '):
-                         case ('='): $fold_pos = $i = $j; break;
-                         default: break;
-                       }
-                   }
-               }
-               if (!$fold_pos) { /* clean folding didn't work */
-                   $i = $j = $fold_pos = $i+$length;
-               }
-               $line = substr_replace($line,$line{$fold_pos}.$fold_string,
-                                      $fold_pos,1);
-               $cnt += strlen($fold_string);
-               if (!$fold) {
-                   $length -=(strlen($fold_string)+2);
-               }  
-               $fold = true;
-               $i = $j + strlen($fold_string)+1;
-           }       
-       }
-       /* debugging code
-       $debug = $line;
-       $debug = str_replace("\r","\\r", $debug);
-       $debug = str_replace("\n","\\n", $debug);
-       */
-       return $line."\r\n";
-    }     
-
+        $length -= 2; /* do not fold between \r and \n */
+        $cnt = strlen($line);
+        if ($cnt > $length) { /* try folding */
+            $fold_string = "\r\n " . $pre;
+            $bFirstFold = false;
+            $aFoldLine = array();
+            while (strlen($line) > $length) {
+                $fold = false;
+                /* handle encoded parts */
+                if (preg_match('/(=\?.+\?.+\?.+\?=)/',$line,$regs)) {
+                    $fold_tmp = $regs[1];
+                    $iPosEnc = strpos($line,$fold_tmp);
+                    $iLengthEnc = strlen($fold_tmp);
+                    if ($iPosEnc < $length && ($iPosEnc + $iLengthEnc > $length)) {
+                        $fold = true;
+                        /* fold just before the start of the encoded string */
+                        $aFoldLine[] = substr($line,0,$iPosEnc);
+                        $line = substr($line,$iPosEnc);
+                        if (!$bFirstFold) {
+                            $bFirstFold = true;
+                            $length -= strlen($fold_string);
+                        }
+                        if ($iLengthEnc > $length) { /* place the encoded
+                            string on a separate line and do not fold inside it*/
+                            if ($iLengthEnc < (998 - strlen($fold_string))) { 
+                                $aFoldLine[] = substr($line,0,$iLengthEnc);
+                                $line = substr($line,$iLengthEnc);
+                            } else { /* line is too long, continue with normal folding */
+                                $fold = false;
+                            }
+                        }
+                    } else { /* the encoded string fits into the foldlength */
+                        /*remainder */
+                        $iPosEncEnd = $iPosEnc+$iLengthEnc;
+                        $sLineRem = substr($line,$iPosEncEnd,$length - $iPosEncEnd);
+                        if (!preg_match('/[=,;\s]/',$sLineRem)) {
+                            /*impossible to fold clean in the next part -> fold after the enc string */
+                            $aFoldLine[] = substr($line,0,$iPosEncEnd+1);
+                            $line = substr($line,$iPosEncEnd+1);
+                            $fold = true;
+                            if (!$bFirstFold) {
+                                $bFirstFold = true;
+                                $length -= strlen($fold_string);
+                            }
+                        }
+                    }
+                }
+                if (!$fold) {
+                    $line_tmp = substr($line,0,$length);
+                    $iFoldPos = false;
+                    /* try to fold at logical places */
+                    switch (true)
+                    {
+                    case ($iFoldPos = strrpos($line_tmp,',')): break;
+                    case ($iFoldPos = strrpos($line_tmp,';')): break;
+                    case ($iFoldPos = strrpos($line_tmp,' ')): break;
+                    case ($iFoldPos = strrpos($line_tmp,'=')): break;
+                    default: break;
+                    }
+                    
+                    if (!$iFoldPos) { /* clean folding didn't work */
+                        $iFoldPos = $length;
+                    }
+                    $aFoldLine[] = substr($line,0,$iFoldPos+1);
+                    $line = substr($line,$iFoldPos+1);
+                    if (!$bFirstFold) {
+                        $bFirstFold = true;
+                        $length -= strlen($fold_string);
+                    }
+                }
+            }
+            /*$reconstruct the line */
+            if ($line) {
+                $aFoldLine[] = $line;
+            }
+            $line = implode($fold_string,$aFoldLine);
+        }
+        return $line."\r\n";
+    }
 
     function mimeBoundary () {
        static $mimeBoundaryString;