home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Komunikace / phptriad / phptriadsetup2-11.exe / php / pear / Mail / sendmail.php < prev    next >
PHP Script  |  2001-02-22  |  5KB  |  112 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.  * Sendmail implementation of the PEAR Mail:: interface.
  23.  */
  24. class Mail_sendmail extends Mail {
  25.     
  26.     /**
  27.      * The location of the sendmail binary on the filesystem.
  28.      * @var string
  29.      */
  30.     var $sendmail_path = '/usr/sbin/sendmail';
  31.     
  32.     /**
  33.      * Constructor.
  34.      * 
  35.      * Instantiates a new Mail_sendmail:: object based on the parameters
  36.      * passed in. It looks for the following parameters:
  37.      *     sendmail_path    The location of the sendmail binary on the
  38.      *                      filesystem. Defaults to '/usr/sbin/sendmail'.
  39.      *
  40.      * If a parameter is present in the $params array, it replaces the
  41.      * default.
  42.      *
  43.      * @param array Hash containing any parameters different from the
  44.      *              defaults.
  45.      */    
  46.     function Mail_sendmail($params)
  47.     {
  48.         if (isset($params['sendmail_path'])) $this->sendmail_path = $params['sendmail_path'];
  49.     }
  50.     
  51.     /**
  52.      * Implements Mail::send() function using the sendmail
  53.      * command-line binary.
  54.      * 
  55.      * @param mixed Either a comma-seperated list of recipients
  56.      *              (RFC822 compliant), or an array of recipients,
  57.      *              each RFC822 valid. This may contain recipients not
  58.      *              specified in the headers, for Bcc:, resending
  59.      *              messages, etc.
  60.      *
  61.      * @param array The array of headers to send with the mail, in an
  62.      *              associative array, where the array key is the
  63.      *              header name (ie, 'Subject'), and the array value
  64.      *              is the header value (ie, 'test'). The header
  65.      *              produced from those values would be 'Subject:
  66.      *              test'.
  67.      *
  68.      * @param string The full text of the message body, including any
  69.      *               Mime parts, etc.
  70.      *
  71.      * @return mixed Returns true on success, or a PEAR_Error
  72.      *               containing a descriptive error message on
  73.      *               failure.
  74.      * @access public
  75.      */    
  76.     function send($recipients, $headers, $body)
  77.     {
  78.         $recipients = escapeShellCmd(implode(' ', $this->parseRecipients($recipients)));
  79.         
  80.         list($from, $text_headers) = $this->prepareHeaders($headers);
  81.         if (!isset($from)) {
  82.             return new PEAR_Error('No from address given.');
  83.         } elseif (strstr($from, ' ') ||
  84.                   strstr($from, ';') ||
  85.                   strstr($from, '&') ||
  86.                   strstr($from, '`')) {
  87.             return new PEAR_Error('From address specified with dangerous characters.');
  88.         }
  89.         
  90.         $result = 0;
  91.         if (@is_executable($this->sendmail_path)) {
  92.             $from = escapeShellCmd($from);
  93.             $mail = popen($this->sendmail_path . " -i -f$from -- $recipients", 'w');
  94.             fputs($mail, $text_headers);
  95.             fputs($mail, "\n");  // newline to end the headers section
  96.             fputs($mail, $body);
  97.             $result = pclose($mail) >> 8 & 0xFF; // need to shift the pclose result to get the exit code
  98.         } else {
  99.             return new PEAR_Error('sendmail [' . $this->sendmail_path . '] not executable');
  100.         }
  101.         
  102.         // Return.
  103.         if ($result != 0) {
  104.             return new PEAR_Error('sendmail returned error code ' . $result);
  105.         }
  106.         
  107.         return true;
  108.     }
  109.     
  110. }
  111. ?>
  112.