| | |
| | | * @package Mail |
| | | */ |
| | | |
| | | // include required PEAR classes |
| | | require_once('Net/SMTP.php'); |
| | | |
| | | |
| | | // define headers delimiter |
| | | define('SMTP_MIME_CRLF', "\r\n"); |
| | | |
| | |
| | | * |
| | | * @return bool Returns TRUE on success, or FALSE on error |
| | | */ |
| | | function smtp_mail($from, $recipients, &$headers, &$body, &$response) |
| | | function smtp_mail($from, $recipients, &$headers, &$body, &$response, &$error) |
| | | { |
| | | global $SMTP_CONN, $CONFIG, $RCMAIL; |
| | | global $SMTP_CONN, $RCMAIL; |
| | | |
| | | // let plugins alter smtp connection config |
| | | $CONFIG = $RCMAIL->plugins->exec_hook('smtp_connect', array( |
| | | 'smtp_server' => $RCMAIL->config->get('smtp_server'), |
| | | 'smtp_port' => $RCMAIL->config->get('smtp_port', 25), |
| | | 'smtp_user' => $RCMAIL->config->get('smtp_user'), |
| | | 'smtp_pass' => $RCMAIL->config->get('smtp_pass'), |
| | | 'smtp_auth_type' => $RCMAIL->config->get('smtp_auth_type'), |
| | | 'smtp_helo_host' => $RCMAIL->config->get('smtp_helo_host'), |
| | | )); |
| | | |
| | | $smtp_timeout = null; |
| | | $smtp_host = $CONFIG['smtp_server']; |
| | | $smtp_port = is_numeric($CONFIG['smtp_port']) ? $CONFIG['smtp_port'] : 25; |
| | |
| | | $result = $SMTP_CONN->connect($smtp_timeout); |
| | | if (PEAR::isError($result)) |
| | | { |
| | | $SMTP_CONN = null; |
| | | $response[] = "Connection failed: ".$result->getMessage(); |
| | | $error = array('label' => 'smtpconnerror', 'vars' => array('code' => $SMTP_CONN->_code)); |
| | | $SMTP_CONN = null; |
| | | return FALSE; |
| | | } |
| | | |
| | |
| | | $smtp_user = $CONFIG['smtp_user']; |
| | | |
| | | if (strstr($CONFIG['smtp_pass'], '%p')) |
| | | $smtp_pass = str_replace('%p', $RCMAIL->decrypt_passwd($_SESSION['password']), $CONFIG['smtp_pass']); |
| | | $smtp_pass = str_replace('%p', $RCMAIL->decrypt($_SESSION['password']), $CONFIG['smtp_pass']); |
| | | else |
| | | $smtp_pass = $CONFIG['smtp_pass']; |
| | | |
| | |
| | | |
| | | if (PEAR::isError($result)) |
| | | { |
| | | smtp_reset(); |
| | | $error = array('label' => 'smtpautherror', 'vars' => array('code' => $SMTP_CONN->_code)); |
| | | $response[] .= 'Authentication failure: ' . $result->getMessage() . ' (Code: ' . $result->getCode() . ')'; |
| | | smtp_reset(); |
| | | return FALSE; |
| | | } |
| | | } |
| | |
| | | // set From: address |
| | | if (PEAR::isError($SMTP_CONN->mailFrom($from))) |
| | | { |
| | | smtp_reset(); |
| | | $error = array('label' => 'smtpfromerror', 'vars' => array('from' => $from, 'code' => $SMTP_CONN->_code)); |
| | | $response[] .= "Failed to set sender '$from'"; |
| | | smtp_reset(); |
| | | return FALSE; |
| | | } |
| | | |
| | |
| | | $recipients = smtp_parse_rfc822($recipients); |
| | | if (PEAR::isError($recipients)) |
| | | { |
| | | $error = array('label' => 'smtprecipientserror'); |
| | | smtp_reset(); |
| | | return FALSE; |
| | | } |
| | |
| | | { |
| | | if (PEAR::isError($SMTP_CONN->rcptTo($recipient))) |
| | | { |
| | | smtp_reset(); |
| | | $error = array('label' => 'smtptoerror', 'vars' => array('to' => $recipient, 'code' => $SMTP_CONN->_code)); |
| | | $response[] .= "Failed to add recipient '$recipient'"; |
| | | smtp_reset(); |
| | | return FALSE; |
| | | } |
| | | } |
| | |
| | | unset($text_headers, $body); |
| | | |
| | | // Send the message's headers and the body as SMTP data. |
| | | if (PEAR::isError($SMTP_CONN->data($data))) |
| | | if (PEAR::isError($result = $SMTP_CONN->data($data))) |
| | | { |
| | | smtp_reset(); |
| | | $error = array('label' => 'smtperror', 'vars' => array('msg' => $result->getMessage())); |
| | | $response[] .= "Failed to send data"; |
| | | smtp_reset(); |
| | | return FALSE; |
| | | } |
| | | |
| | |
| | | { |
| | | global $SMTP_CONN; |
| | | |
| | | if (is_object($SMTP_CONN)) |
| | | if (is_object($SMTP_CONN) && is_resource($SMTP_CONN->_socket->fp)) |
| | | { |
| | | $SMTP_CONN->rset(); |
| | | smtp_disconnect(); |
| | | } |
| | | } |
| | | |
| | | |
| | | |
| | | /** |