home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Komunikace / phptriad / phptriadsetup2-11.exe / php / pear / Mail / smtp.php < prev   
PHP Script  |  2001-02-22  |  6KB  |  139 lines
  1. <?php
  2. //
  3. // +----------------------------------------------------------------------+
  4. // | PHP version 4.0                                                      |
  5. // +----------------------------------------------------------------------+
  6. // | Copyright (c) 1997-2001 The PHP Group                                |
  7. // +----------------------------------------------------------------------+
  8. // | This source file is subject to version 2.02 of the PHP license,      |
  9. // | that is bundled with this package in the file LICENSE, and is        |
  10. // | available at through the world-wide-web at                           |
  11. // | http://www.php.net/license/2_02.txt.                                 |
  12. // | If you did not receive a copy of the PHP license and are unable to   |
  13. // | obtain it through the world-wide-web, please send a note to          |
  14. // | license@php.net so we can mail you a copy immediately.               |
  15. // +----------------------------------------------------------------------+
  16. // | Authors: Chuck Hagenbuch <chuck@horde.org>                           |
  17. // +----------------------------------------------------------------------+
  18.  
  19. require_once 'Mail.php';
  20.  
  21. /**
  22.  * SMTP implementation of the PEAR Mail:: interface. Requires the PEAR
  23.  * Net_SMTP:: class.
  24.  */
  25. class Mail_smtp extends Mail {
  26.     
  27.     /**
  28.      * The SMTP host to connect to.
  29.      * @var    string
  30.      */
  31.     var $host = 'localhost';
  32.     
  33.     /**
  34.      * The port the SMTP server is on.
  35.      * @var    int
  36.      */
  37.     var $port = 25;
  38.     
  39.     /**
  40.      * Whether or not to attempt to authenticate to the SMTP server.
  41.      * @var boolean
  42.      */
  43.     var $auth = false;
  44.     
  45.     /**
  46.      * The username to use if the SMTP server requires authentication.
  47.      * @var string
  48.      */
  49.     var $username = '';
  50.     
  51.     /**
  52.      * The password to use if the SMTP server requires authentication.
  53.      * @var string
  54.      */
  55.     var $password = '';
  56.     
  57.     /**
  58.      * Constructor.
  59.      * 
  60.      * Instantiates a new Mail_smtp:: object based on the parameters
  61.      * passed in. It looks for the following parameters:
  62.      *     host        The server to connect to. Defaults to localhost.
  63.      *     port        The port to connect to. Defaults to 25.
  64.      *     auth        Whether or not to use SMTP auth. Defaults to false.
  65.      *     username    The username to use for SMTP auth. No default.
  66.      *     password    The password to use for SMTP auth. No default.
  67.      *
  68.      * If a parameter is present in the $params array, it replaces the
  69.      * default.
  70.      *
  71.      * @param array Hash containing any parameters different from the
  72.      *              defaults.
  73.      */    
  74.     function Mail_smtp($params)
  75.     {
  76.         if (isset($params['host'])) $this->host = $params['host'];
  77.         if (isset($params['port'])) $this->port = $params['port'];
  78.         if (isset($params['auth'])) $this->auth = $params['auth'];
  79.         if (isset($params['username'])) $this->username = $params['username'];
  80.         if (isset($params['password'])) $this->password = $params['password'];
  81.     }
  82.     
  83.     /**
  84.      * Implements Mail::send() function using SMTP.
  85.      * 
  86.      * @param mixed Either a comma-seperated list of recipients
  87.      *              (RFC822 compliant), or an array of recipients,
  88.      *              each RFC822 valid. This may contain recipients not
  89.      *              specified in the headers, for Bcc:, resending
  90.      *              messages, etc.
  91.      *
  92.      * @param array The array of headers to send with the mail, in an
  93.      *              associative array, where the array key is the
  94.      *              header name (ie, 'Subject'), and the array value
  95.      *              is the header value (ie, 'test'). The header
  96.      *              produced from those values would be 'Subject:
  97.      *              test'.
  98.      *
  99.      * @param string The full text of the message body, including any
  100.      *               Mime parts, etc.
  101.      *
  102.      * @return mixed Returns true on success, or a PEAR_Error
  103.      *               containing a descriptive error message on
  104.      *               failure.
  105.      * @access public
  106.      */
  107.     function send($recipients, $headers, $body)
  108.     {
  109.         include_once 'Net/SMTP.php';
  110.         
  111.         if (!($smtp = new Net_SMTP($this->host, $this->port))) { return new PEAR_Error('unable to instantiate Net_SMTP object'); }
  112.         if (!$smtp->connect()) { return new PEAR_Error('unable to connect to smtp server ' . $this->host . ':' . $this->port); }
  113.         
  114.         if ($this->auth) {
  115.             if (!$smtp->auth($this->username, $this->password)) { return new PEAR_Error('unable to authenticate to smtp server'); }
  116.             if (!$smtp->identifySender()) { return new PEAR_Error('unable to identify smtp server'); }
  117.         }
  118.         
  119.         list($from, $text_headers) = $this->prepareHeaders($headers);
  120.         if (!isset($from)) {
  121.             return new PEAR_Error('No from address given');
  122.         }
  123.         
  124.         if (!($smtp->mailFrom($from))) { return new PEAR_Error('unable to set sender to [' . $from . ']'); }
  125.         
  126.         $recipients = $this->parseRecipients($recipients);
  127.         foreach($recipients as $recipient) {
  128.             if (!$smtp->rcptTo($recipient)) { return new PEAR_Error('unable to add recipient [' . $recipient . ']'); }
  129.         }
  130.         
  131.         if (!$smtp->data($text_headers . "\n" . $body)) { return new PEAR_Error('unable to send data'); }
  132.         
  133.         $smtp->disconnect();
  134.         return true;
  135.     }
  136.     
  137. }
  138. ?>
  139.