mirror of
https://github.com/php/php-src.git
synced 2024-12-27 10:50:19 +08:00
283 lines
7.3 KiB
C
283 lines
7.3 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP Version 4 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1997-2003 The PHP Group |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 3.0 of the PHP license, |
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
| available through the world-wide-web at the following url: |
|
|
| http://www.php.net/license/3_0.txt. |
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
| license@php.net so we can mail you a copy immediately. |
|
|
+----------------------------------------------------------------------+
|
|
| Author: Rasmus Lerdorf <rasmus@php.net> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
#include <stdlib.h>
|
|
#include <ctype.h>
|
|
#include <stdio.h>
|
|
#include "php.h"
|
|
#include "ext/standard/info.h"
|
|
|
|
#if HAVE_SYSEXITS_H
|
|
#include <sysexits.h>
|
|
#endif
|
|
#if HAVE_SYS_SYSEXITS_H
|
|
#include <sys/sysexits.h>
|
|
#endif
|
|
|
|
#include "php_mail.h"
|
|
#include "php_ini.h"
|
|
#include "safe_mode.h"
|
|
#include "exec.h"
|
|
|
|
#if HAVE_SENDMAIL
|
|
#ifdef PHP_WIN32
|
|
#include "win32/sendmail.h"
|
|
#endif
|
|
|
|
#ifdef NETWARE
|
|
#include "netware/pipe.h" /* For popen(), pclose() */
|
|
#include "netware/sysexits.h" /* For exit status codes like EX_OK */
|
|
#endif
|
|
|
|
#define SKIP_LONG_HEADER_SEP(str, pos) \
|
|
if (str[pos] == '\r' && str[pos + 1] == '\n' && (str[pos + 2] == ' ' || str[pos + 2] == '\t')) { \
|
|
pos += 3; \
|
|
while (str[pos] == ' ' || str[pos] == '\t') { \
|
|
pos++; \
|
|
} \
|
|
continue; \
|
|
} \
|
|
|
|
/* {{{ proto int ezmlm_hash(string addr)
|
|
Calculate EZMLM list hash value. */
|
|
PHP_FUNCTION(ezmlm_hash)
|
|
{
|
|
char *str = NULL;
|
|
unsigned long h = 5381L;
|
|
int j, str_len;
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s",
|
|
&str, &str_len) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
for (j = 0; j < str_len; j++) {
|
|
h = (h + (h << 5)) ^ (unsigned long) (unsigned char) tolower(str[j]);
|
|
}
|
|
|
|
h = (h % 53);
|
|
|
|
RETURN_LONG((int) h);
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto int mail(string to, string subject, string message [, string additional_headers [, string additional_parameters]])
|
|
Send an email message */
|
|
PHP_FUNCTION(mail)
|
|
{
|
|
char *to=NULL, *message=NULL, *headers=NULL;
|
|
char *subject=NULL, *extra_cmd=NULL;
|
|
int to_len, message_len, headers_len;
|
|
int subject_len, extra_cmd_len, i;
|
|
char *force_extra_parameters = INI_STR("mail_force_extra_parameters");
|
|
|
|
if (PG(safe_mode) && (ZEND_NUM_ARGS() == 5)) {
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "SAFE MODE Restriction in effect. The fifth parameter is disabled in SAFE MODE.");
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sss|ss",
|
|
&to, &to_len,
|
|
&subject, &subject_len,
|
|
&message, &message_len,
|
|
&headers, &headers_len,
|
|
&extra_cmd, &extra_cmd_len
|
|
) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
if (to_len > 0) {
|
|
for (; to_len; to_len--) {
|
|
if (!isspace((unsigned char) to[to_len - 1])) {
|
|
break;
|
|
}
|
|
to[to_len - 1] = '\0';
|
|
}
|
|
for (i = 0; to[i]; i++) {
|
|
if (iscntrl((unsigned char) to[i])) {
|
|
/* According to RFC 822, section 3.1.1 long headers may be separated into
|
|
* parts using CRLF followed at least one linear-white-space character ('\t' or ' ').
|
|
* To prevent these separators from being replaced with a space, we use the
|
|
* SKIP_LONG_HEADER_SEP to skip over them.
|
|
*/
|
|
SKIP_LONG_HEADER_SEP(to, i);
|
|
to[i] = ' ';
|
|
}
|
|
}
|
|
}
|
|
|
|
if (subject_len > 0) {
|
|
for (; subject_len; subject_len--) {
|
|
if (!isspace((unsigned char) subject[subject_len - 1])) {
|
|
break;
|
|
}
|
|
subject[subject_len - 1] = '\0';
|
|
}
|
|
for(i = 0; subject[i]; i++) {
|
|
if (iscntrl((unsigned char) subject[i])) {
|
|
SKIP_LONG_HEADER_SEP(subject, i);
|
|
subject[i] = ' ';
|
|
}
|
|
}
|
|
}
|
|
|
|
if (force_extra_parameters) {
|
|
extra_cmd = estrdup(force_extra_parameters);
|
|
} else if (extra_cmd) {
|
|
extra_cmd = php_escape_shell_cmd(extra_cmd);
|
|
}
|
|
|
|
if (php_mail(to, subject, message, headers, extra_cmd TSRMLS_CC)) {
|
|
RETVAL_TRUE;
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
|
|
if (extra_cmd) {
|
|
efree (extra_cmd);
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ php_mail
|
|
*/
|
|
PHPAPI int php_mail(char *to, char *subject, char *message, char *headers, char *extra_cmd TSRMLS_DC)
|
|
{
|
|
#if (defined PHP_WIN32 || defined NETWARE)
|
|
int tsm_err;
|
|
char *tsm_errmsg = NULL;
|
|
#endif
|
|
FILE *sendmail;
|
|
int ret;
|
|
char *sendmail_path = INI_STR("sendmail_path");
|
|
char *sendmail_cmd = NULL;
|
|
|
|
if (!sendmail_path) {
|
|
#if (defined PHP_WIN32 || defined NETWARE)
|
|
/* handle old style win smtp sending */
|
|
if (TSendMail(INI_STR("SMTP"), &tsm_err, &tsm_errmsg, headers, subject, to, message, NULL, NULL, NULL) == FAILURE) {
|
|
if (tsm_errmsg) {
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", tsm_errmsg);
|
|
efree(tsm_errmsg);
|
|
} else {
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", GetSMErrorText(tsm_err));
|
|
}
|
|
return 0;
|
|
}
|
|
return 1;
|
|
#else
|
|
return 0;
|
|
#endif
|
|
}
|
|
if (extra_cmd != NULL) {
|
|
sendmail_cmd = emalloc (strlen (sendmail_path) + strlen (extra_cmd) + 2);
|
|
strcpy (sendmail_cmd, sendmail_path);
|
|
strcat (sendmail_cmd, " ");
|
|
strcat (sendmail_cmd, extra_cmd);
|
|
} else {
|
|
sendmail_cmd = sendmail_path;
|
|
}
|
|
|
|
#ifdef PHP_WIN32
|
|
sendmail = popen(sendmail_cmd, "wb");
|
|
#else
|
|
/* Since popen() doesn't indicate if the internal fork() doesn't work
|
|
* (e.g. the shell can't be executed) we explicitely set it to 0 to be
|
|
* sure we don't catch any older errno value. */
|
|
errno = 0;
|
|
sendmail = popen(sendmail_cmd, "w");
|
|
#endif
|
|
if (extra_cmd != NULL)
|
|
efree (sendmail_cmd);
|
|
|
|
if (sendmail) {
|
|
#ifndef PHP_WIN32
|
|
if (EACCES == errno) {
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Permission denied: unable to execute shell to run mail delivery binary '%s'", sendmail_path);
|
|
pclose(sendmail);
|
|
return 0;
|
|
}
|
|
#endif
|
|
fprintf(sendmail, "To: %s\n", to);
|
|
fprintf(sendmail, "Subject: %s\n", subject);
|
|
if (headers != NULL) {
|
|
fprintf(sendmail, "%s\n", headers);
|
|
}
|
|
fprintf(sendmail, "\n%s\n", message);
|
|
ret = pclose(sendmail);
|
|
#ifdef PHP_WIN32
|
|
if (ret == -1)
|
|
#else
|
|
#if defined(EX_TEMPFAIL)
|
|
if ((ret != EX_OK)&&(ret != EX_TEMPFAIL))
|
|
#elif defined(EX_OK)
|
|
if (ret != EX_OK)
|
|
#else
|
|
if (ret != 0)
|
|
#endif
|
|
#endif
|
|
{
|
|
return 0;
|
|
} else {
|
|
return 1;
|
|
}
|
|
} else {
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not execute mail delivery program '%s'", sendmail_path);
|
|
return 0;
|
|
}
|
|
|
|
return 1; /* never reached */
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_MINFO_FUNCTION
|
|
*/
|
|
PHP_MINFO_FUNCTION(mail)
|
|
{
|
|
char *sendmail_path = INI_STR("sendmail_path");
|
|
|
|
#ifdef PHP_WIN32
|
|
if (!sendmail_path) {
|
|
php_info_print_table_row(2, "Internal Sendmail Support for Windows", "enabled");
|
|
} else {
|
|
php_info_print_table_row(2, "Path to sendmail", sendmail_path);
|
|
}
|
|
#else
|
|
php_info_print_table_row(2, "Path to sendmail", sendmail_path);
|
|
#endif
|
|
}
|
|
/* }}} */
|
|
|
|
#else
|
|
|
|
PHP_FUNCTION(mail) {}
|
|
PHP_MINFO_FUNCTION(mail) {}
|
|
|
|
#endif
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
* vim600: sw=4 ts=4 fdm=marker
|
|
* vim<600: sw=4 ts=4
|
|
*/
|