updated some documentation
[squirrelmail.git] / functions / smtp.php
index 9ca0091821ba80207b37bbc8177f1c630ae60a28..7beb63ce452460b64e2ad5abdad44f42bbb5deb0 100644 (file)
@@ -5,27 +5,95 @@
     ** an smtp server or sendmail.
     **/
 
-   function sendMessage($t, $c, $b, $subject, $body) {
-      global $useSendmail;
+   $smtp_php = true;
 
-      if ($useSendmail==true) {  
-        sendSendmail($t, $c, $b, $subject, $body);
-      } else {
-        sendSMTP($t, $c, $b, $subject, $body);
+   // Returns true only if this message is multipart
+   function isMultipart () {
+      global $attachments;
+      
+      if (count($attachments)>0)
+         return true;
+      else
+         return false;
+   }
+
+   // Attach the files that are due to be attached
+   function attachFiles ($fp) {
+      global $attachments, $attachment_dir;
+
+      while (list($localname, $remotename) = each($attachments)) {
+         // This is to make sure noone is giving a filename in another
+         // directory
+         $localname = ereg_replace ("\\/", "", $localname);
+
+         $fileinfo = fopen ($attachment_dir.$localname.".info", "r");
+         $filetype = fgets ($fileinfo, 8192);
+         fclose ($fileinfo);
+         $filetype = trim ($filetype);
+         if ($filetype=="")
+            $filetype = "application/octet-stream";
+
+         fputs ($fp, "--".mimeBoundary()."\n");
+         fputs ($fp, "Content-Type: $filetype\n");
+         fputs ($fp, "Content-Disposition: attachment; filename=\"$remotename\"\n");
+         fputs ($fp, "Content-Transfer-Encoding: base64\n\n");
+
+         $file = fopen ($attachment_dir.$localname, "r");
+         while ($tmp = fread($file, 57))
+            fputs ($fp, chunk_split(base64_encode($tmp)));
+         fclose ($file);
+
+         unlink ($attachment_dir.$localname);
+         unlink ($attachment_dir.$localname.".info");
       }
-    
    }
 
+   // Return a nice MIME-boundary
+   function mimeBoundary () {
+      global $mimeBoundaryString, $version, $REMOTE_ADDR, $SERVER_NAME,
+         $REMOTE_PORT;
+
+      if ($mimeBoundaryString == "") {
+         $temp = "SquirrelMail".$version.$REMOTE_ADDR.$SERVER_NAME.
+            $REMOTE_PORT;
+         $mimeBoundaryString = "=-_+".substr(md5($temp),1,20);
+      }
+
+      return $mimeBoundaryString;
+   }
+
+   /* Time offset for correct timezone */
+   function timezone () {
+      $diff_second = date("Z");
+      if ($diff_second > 0)
+         $sign = "+";
+      else
+         $sign = "-";
+
+      $diff_second = abs($diff_second);
+
+      $diff_hour = floor ($diff_second / 3600);
+      $diff_minute = floor (($diff_second-3600*$diff_hour) / 60);
+
+      $zonename = "(".strftime("%Z").")";
+      $result = sprintf ("%s%02d%02d %s", $sign, $diff_hour, $diff_minute, $zonename);
+      return ($result);
+   }
+
+   /* Print all the needed RFC822 headers */
    function write822Header ($fp, $t, $c, $b, $subject) {
       global $REMOTE_ADDR, $SERVER_NAME;
-      global $data_dir, $username, $domain, $version;
+      global $data_dir, $username, $domain, $version, $useSendmail;
 
       $to = parseAddrs($t);
       $cc = parseAddrs($c);
       $bcc = parseAddrs($b);
-      $from_addr = "$username@$domain";
       $reply_to = getPref($data_dir, $username, "reply_to");
       $from = getPref($data_dir, $username, "full_name");
+      $from_addr = getPref($data_dir, $username, "email_address");
+
+      if ($from_addr == "")
+         $from_addr = "$username@$domain";
 
       $to_list = getLineOfAddrs($to);
       $cc_list = getLineOfAddrs($cc);
       else
          $from = $from . " <$from_addr>";
 
-      $date = date("D, j M Y H:i:s +0000", gmmktime());
+      /* This creates an RFC 822 date showing GMT */
+      $date = date("D, j M Y H:i:s ", mktime()) . timezone();
 
-      /* Make a RFC822 Received: line */
+      /* Make an RFC822 Received: line */
       fputs ($fp, "Received: from $REMOTE_ADDR by $SERVER_NAME with HTTP; ");
       fputs ($fp, "$date\n");
 
+      /* The rest of the header */
       fputs ($fp, "Date: $date\n");
       fputs ($fp, "Subject: $subject\n"); // Subject
       fputs ($fp, "From: $from\n"); // Subject
       if ($cc_list) {
          fputs($fp, "Cc: $cc_list\n"); // Who the CCs are
       }
-      if ($bcc_list) {
-         fputs($fp, "Bcc: $bcc_list\n"); // BCCs is removed from header by sendmail
+
+      if ($reply_to != "")
+         fputs($fp, "Reply-To: $reply_to\n");
+
+      if ($useSendmail) {
+         if ($bcc_list) {
+            // BCCs is removed from header by sendmail
+            fputs($fp, "Bcc: $bcc_list\n"); 
+         }
       }
+
       fputs($fp, "X-Mailer: SquirrelMail (version $version)\n"); // Identify SquirrelMail
+
+      // Do the MIME-stuff
       fputs($fp, "MIME-Version: 1.0\n");
-      fputs($fp, "Content-Type: text/plain\n");
-      if ($reply_to != "")
-         fputs($fp, "Reply-To: $reply_to\n");
+
+      if (isMultipart()) {
+         fputs ($fp, "Content-Type: multipart/mixed; boundary=\"");
+         fputs ($fp, mimeBoundary());
+         fputs ($fp, "\"\n");
+      } else {
+         fputs($fp, "Content-Type: text/plain; charset=ISO-8859-1\n");
+         fputs($fp, "Content-Transfer-Encoding: 8bit\n");
+      }
+   }
+
+   // Send the body
+   function writeBody ($fp, $body) {
+     if (isMultipart()) {
+        fputs ($fp, "--".mimeBoundary()."\n");
+        fputs ($fp, "Content-Type: text/plain; charset=ISO-8859-1\n");
+        fputs ($fp, "Content-Transfer-Encoding: 8bit\n\n");
+        fputs ($fp, stripslashes($body) . "\n");
+        attachFiles($fp);
+        fputs ($fp, "\n--".mimeBoundary()."--\n");
+     } else {
+       fputs ($fp, stripslashes($body) . "\n");
+     }
    }
 
    // Send mail using the sendmail command
       global $sendmail_path, $username, $domain;
       
       // open pipe to sendmail
-      $fp = popen ("$sendmail_path -t -f$username@$domain", "w");
+      $fp = popen (escapeshellcmd("$sendmail_path -odb -oi -t -f$username@$domain"), "w");
       
       write822Header ($fp, $t, $c, $b, $subject);
-      fputs($fp, "\n$body\n"); // send the body of the message
+      writeBody($fp, $body);
 
       pclose($fp);
    }
    }
 
    function sendSMTP($t, $c, $b, $subject, $body) {
-      global $username, $domain, $version, $smtpServerAddress, $smtpPort;
+      global $username, $domain, $version, $smtpServerAddress, $smtpPort,
+         $data_dir;
 
       $to = parseAddrs($t);
       $cc = parseAddrs($c);
       $bcc = parseAddrs($b);
-      $from_addr = "$username@$domain";
+      $from_addr = getPref($data_dir, $username, "email_address");
+
+      if ($from_addr == "")
+         $from_addr = "$username@$domain";
 
       $smtpConnection = fsockopen($smtpServerAddress, $smtpPort, $errorNumber, $errorString);
       if (!$smtpConnection) {
 
       write822Header ($smtpConnection, $t, $c, $b, $subject);
 
-      fputs($smtpConnection, "$body\n"); // send the body of the message
+      writeBody($smtpConnection, $body); // send the body of the message
 
       fputs($smtpConnection, ".\n"); // end the DATA part
       $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
       }
       return $err_num;
    }
+
+   function sendMessage($t, $c, $b, $subject, $body) {
+      global $useSendmail;
+
+      if ($useSendmail==true) {  
+        sendSendmail($t, $c, $b, $subject, $body);
+      } else {
+        sendSMTP($t, $c, $b, $subject, $body);
+      }
+    
+   }
+
 ?>