Initial revision

1 files changed, 251 insertions, 0 deletions

diff --git a/program/steps/mail/sendmail.inc b/program/steps/mail/sendmail.inc
new file mode 100644
index 000000000..789001e14
--- /dev/null
+++ b/program/steps/mail/sendmail.inc
@@ -0,0 +1,251 @@
+<?php
+
+/*
+ +-----------------------------------------------------------------------+
+ | program/steps/mail/sendmail.inc                                       |
+ |                                                                       |
+ | This file is part of the RoundCube Webmail client                     |
+ | Copyright (C) 2005, RoundCube Dev. - Switzerland                      |
+ | All rights reserved.                                                  |
+ |                                                                       |
+ | PURPOSE:                                                              |
+ |   Compose a new mail message with all headers and attachments         |
+ |   and send it using IlohaMail's SMTP methods or with PHP mail()       |
+ |                                                                       |
+ +-----------------------------------------------------------------------+
+ | Author: Thomas Bruederli <roundcube@gmail.com>                        |
+ +-----------------------------------------------------------------------+
+
+ $Id$
+
+*/
+
+
+require_once('lib/smtp.inc');
+require_once('Mail/mime.php');
+
+
+if (!isset($_SESSION['compose']['id']))
+  {
+  $_action = 'list';
+  return;
+  }
+
+
+/****** message sending functions ********/
+
+
+
+function rcmail_get_identity($id)
+  {
+  global $DB;
+  
+  // get identity record
+  $sql_result = $DB->query(sprintf("SELECT *, email AS mailto
+                                    FROM   %s
+                                    WHERE  identity_id=%d
+                                    AND    user_id=%d
+                                    AND    del!='1'",
+                                   get_table_name('identities'),
+                                   $id,
+                                   $_SESSION['user_id']));
+                                   
+  if ($DB->num_rows($sql_result))
+    {
+    $sql_arr = $DB->fetch_assoc($sql_result);
+    $out = $sql_arr;
+    $out['string'] = sprintf('%s <%s>', $sql_arr['name'], $sql_arr['mailto']);
+    return $out;
+    }
+
+  return FALSE;  
+  }
+
+
+
+/****** check submission and compose message ********/
+
+
+$mailto_regexp = '/,\s*$/';
+
+// trip ending ', ' from 
+$mailto = preg_replace($mailto_regexp, '', $_POST['_to']);
+
+// decode address strings
+$to_address_arr = $IMAP->decode_address_list($mailto);
+$identity_arr = rcmail_get_identity($_POST['_from']);
+
+
+$from = $identity_arr['mailto'];
+$first_to = is_array($to_address_arr[0]) ? $to_address_arr[0]['mailto'] : $mailto;
+
+
+// create unique message-id
+$message_id = sprintf('<%s@%s>', md5(uniqid('rcmail')), $_SESSION['imap_host']);
+
+
+// compose headers array
+$headers = array('Date' => date('D, j M Y G:i:s O'),
+                 'From' => $identity_arr['string'],
+                 'To'   => $mailto);
+
+// additional recipients
+if ($_POST['_cc'])
+  $headers['Cc'] = preg_replace($mailto_regexp, '', $_POST['_cc']);
+
+if ($_POST['_bcc'])
+  $headers['Bcc'] = preg_replace($mailto_regexp, '', $_POST['_bcc']);
+  
+if (strlen($identity_arr['bcc']))
+  $headers['Bcc'] = ($headers['Bcc'] ? $headers['Bcc'].', ' : '') . $identity_arr['bcc'];
+
+// add subject
+$headers['Subject'] = trim(stripslashes($_POST['_subject']));
+
+if (strlen($identity_arr['organization']))
+  $headers['Organization'] = $identity_arr['organization'];
+
+if (strlen($identity_arr['reply-to']))
+  $headers['Reply-To'] = $identity_arr['reply-to'];
+
+if ($_SESSION['compose']['reply_msgid'])
+  $headers['In-Reply-To'] = $_SESSION['compose']['reply_msgid'];
+
+
+if ($_POST['_priority'])
+  {
+  $priority = (int)$_POST['_priority'];
+  $a_priorities = array(1=>'lowest', 2=>'low', 4=>'high', 5=>'highest');
+  if ($str_priority = $a_priorities[$priority])
+    $headers['X-Priority'] = sprintf("%d (%s)", $priority, ucfirst($str_priority));
+  }
+
+
+// additional headers
+$headers['Message-ID'] = $message_id;
+$headers['X-Sender'] = $from;
+
+if ($CONFIG['useragent'])
+  $headers['User-Agent'] = $CONFIG['useragent'];
+
+
+// create PEAR::Mail_mime instance
+$MAIL_MIME = new Mail_mime();
+$MAIL_MIME->setTXTBody(stripslashes($_POST['_message']), FALSE, TRUE);
+//$MAIL_MIME->setTXTBody(wordwrap(stripslashes($_POST['_message'])), FALSE, TRUE);
+
+
+// add stored attachments, if any
+if (is_array($_SESSION['compose']['attachments']))
+  foreach ($_SESSION['compose']['attachments'] as $attachment)
+    $MAIL_MIME->addAttachment($attachment['path'], $attachment['mimetype'], $attachment['name'], TRUE);
+
+  
+// add submitted attachments
+if (is_array($_FILES['_attachments']['tmp_name']))
+  foreach ($_FILES['_attachments']['tmp_name'] as $i => $filepath)
+    $MAIL_MIME->addAttachment($filepath, $files['type'][$i], $files['name'][$i], TRUE);
+
+
+// compose message body and get headers
+$msg_body = $MAIL_MIME->get();
+$msg_subject = $headers['Subject'];
+
+
+// send thru SMTP server using cusotm SMTP library
+if ($CONFIG['smtp_server'])
+  {
+  // connect to SMTP server
+  $smtp_conn = smtp_connect($CONFIG['smtp_server'], '25', $CONFIG['smtp_user'], $CONFIG['smtp_pass']);
+	
+  if ($smtp_conn)
+    {
+    // generate list of recipients
+    $recipients = $mailto.', '.$headers['Cc'].', '.$headers['Bcc'];
+    $a_recipients = smtp_expand($recipients);
+
+    // generate message headers
+    $header_str = $MAIL_MIME->txtHeaders($headers);
+	
+    // send message
+    $sent = smtp_mail($smtp_conn, $from, $a_recipients, $header_str."\r\n".$msg_body, FALSE);
+	}
+	
+  // log error
+  if (!$smtp_conn || !$sent)
+    {
+    raise_error(array('code' => 800,
+                      'type' => 'smtp',
+                      'line' => __LINE__,
+                      'file' => __FILE__,
+                      'message' => "Connection failed: $smtp_error"), TRUE, FALSE);
+    }
+  }
+
+// send mail using PHP's mail() function
+else
+  {
+  // unset some headers because they will be added by the mail() function
+  $headers_php = $headers;
+  unset($headers_php['To'], $headers_php['Subject']);
+
+  $header_str = $MAIL_MIME->txtHeaders($headers_php);
+  $sent = mail($mailto, $msg_subject, $msg_body, $header_str, "-f$from");
+  }
+
+
+// return to compose page if sending failed
+if (!$sent)
+  {
+  $_action = 'compose';
+  $OUTPUT->add_script(sprintf("\n%s.set_env('action', '%s');", $JS_OBJECT_NAME, $_action));
+  show_message("sendingfailed", 'error'); 
+  return;
+  }
+
+
+// set repliead flag
+if ($_SESSION['compose']['reply_uid'])
+  $IMAP->set_flag($_SESSION['compose']['reply_uid'], 'ANSWERED');
+
+
+// copy message to sent folder
+if ($CONFIG['sent_mbox'])
+  {
+  // create string of complete message headers
+  $header_str = $MAIL_MIME->txtHeaders($headers);
+
+  // check if mailbox exists
+  if (!in_array_nocase($CONFIG['sent_mbox'], $IMAP->list_mailboxes()))
+    $IMAP->create_mailbox($CONFIG['sent_mbox'], TRUE);
+
+  // append message to sent box
+  $saved = $IMAP->save_message($CONFIG['sent_mbox'], $header_str."\r\n".$msg_body);
+  }
+
+
+// log mail sending
+if ($CONFIG['smtp_log'])
+  {
+  $log_entry = sprintf("[%s] User: %d; Message for %s; Subject: %s\n",
+               date("d-M-Y H:i:s O", mktime()),
+               $_SESSION['user_id'],
+               $mailto,
+               $msg_subject);
+
+  if ($fp = fopen($INSTALL_PATH.'logs/sendmail', 'a'))
+    {
+    fwrite($fp, $log_entry);
+    fclose($fp);
+    }
+  }
+
+
+// show confirmation
+show_message('messagesent', 'confirmation');
+
+
+// kill compose entry from session
+rcmail_compose_cleanup();
+
+?>
\ No newline at end of file