Imported from /home/lorry/working-area/delta_php2/php-5.4.13.tar.bz2.HEADphp-5.4.13master

1 files changed, 414 insertions, 0 deletions

diff --git a/ext/standard/mail.c b/ext/standard/mail.c
new file mode 100644
index 0000000..2576681
--- /dev/null
+++ b/ext/standard/mail.c
@@ -0,0 +1,414 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP Version 5                                                        |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997-2013 The PHP Group                                |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 3.01 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_01.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"
+#include "ext/standard/php_string.h"
+#include "ext/standard/basic_functions.h"
+
+#if HAVE_SYSEXITS_H
+#include <sysexits.h>
+#endif
+#if HAVE_SYS_SYSEXITS_H
+#include <sys/sysexits.h>
+#endif
+
+#if PHP_SIGCHILD
+#if HAVE_SIGNAL_H
+#include <signal.h>
+#endif
+#endif
+
+#include "php_syslog.h"
+#include "php_mail.h"
+#include "php_ini.h"
+#include "php_string.h"
+#include "exec.h"
+
+#ifdef PHP_WIN32
+#include "win32/sendmail.h"
+#endif
+
+#ifdef NETWARE
+#define EX_OK           0       /* successful termination */
+#define EX_TEMPFAIL     75      /* temp failure; user is invited to retry */
+#endif
+
+#define SKIP_LONG_HEADER_SEP(str, pos)																	\
+	if (str[pos] == '\r' && str[pos + 1] == '\n' && (str[pos + 2] == ' ' || str[pos + 2] == '\t')) {	\
+		pos += 2;																						\
+		while (str[pos + 1] == ' ' || str[pos + 1] == '\t') {											\
+			pos++;																						\
+		}																								\
+		continue;																						\
+	}																									\
+
+#define MAIL_ASCIIZ_CHECK(str, len)				\
+	p = str;									\
+	e = p + len;								\
+	while ((p = memchr(p, '\0', (e - p)))) {	\
+		*p = ' ';								\
+	}											\
+
+extern long php_getuid(TSRMLS_D);
+
+/* {{{ proto int ezmlm_hash(string addr)
+   Calculate EZMLM list hash value. */
+PHP_FUNCTION(ezmlm_hash)
+{
+	char *str = NULL;
+	unsigned int h = 5381;
+	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, *headers_trimmed=NULL;
+	char *subject=NULL, *extra_cmd=NULL;
+	int to_len, message_len, headers_len = 0;
+	int subject_len, extra_cmd_len = 0, i;
+	char *force_extra_parameters = INI_STR("mail.force_extra_parameters");
+	char *to_r, *subject_r;
+	char *p, *e;
+
+	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;
+	}
+
+	/* ASCIIZ check */
+	MAIL_ASCIIZ_CHECK(to, to_len);
+	MAIL_ASCIIZ_CHECK(subject, subject_len);
+	MAIL_ASCIIZ_CHECK(message, message_len);
+	if (headers) {
+		MAIL_ASCIIZ_CHECK(headers, headers_len);
+		headers_trimmed = php_trim(headers, headers_len, NULL, 0, NULL, 2 TSRMLS_CC);
+	}
+	if (extra_cmd) {
+		MAIL_ASCIIZ_CHECK(extra_cmd, extra_cmd_len);
+	}
+
+	if (to_len > 0) {
+		to_r = estrndup(to, to_len);
+		for (; to_len; to_len--) {
+			if (!isspace((unsigned char) to_r[to_len - 1])) {
+				break;
+			}
+			to_r[to_len - 1] = '\0';
+		}
+		for (i = 0; to_r[i]; i++) {
+			if (iscntrl((unsigned char) to_r[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_r, i);
+				to_r[i] = ' ';
+			}
+		}
+	} else {
+		to_r = to;
+	}
+
+	if (subject_len > 0) {
+		subject_r = estrndup(subject, subject_len);
+		for (; subject_len; subject_len--) {
+			if (!isspace((unsigned char) subject_r[subject_len - 1])) {
+				break;
+			}
+			subject_r[subject_len - 1] = '\0';
+		}
+		for (i = 0; subject_r[i]; i++) {
+			if (iscntrl((unsigned char) subject_r[i])) {
+				SKIP_LONG_HEADER_SEP(subject_r, i);
+				subject_r[i] = ' ';
+			}
+		}
+	} else {
+		subject_r = subject;
+	}
+
+	if (force_extra_parameters) {
+		extra_cmd = php_escape_shell_cmd(force_extra_parameters);
+	} else if (extra_cmd) {
+		extra_cmd = php_escape_shell_cmd(extra_cmd);
+	}
+
+	if (php_mail(to_r, subject_r, message, headers_trimmed, extra_cmd TSRMLS_CC)) {
+		RETVAL_TRUE;
+	} else {
+		RETVAL_FALSE;
+	}
+
+	if (headers_trimmed) {
+		efree(headers_trimmed);
+	}
+
+	if (extra_cmd) {
+		efree (extra_cmd);
+	}
+	if (to_r != to) {
+		efree(to_r);
+	}
+	if (subject_r != subject) {
+		efree(subject_r);
+	}
+}
+/* }}} */
+
+
+void php_mail_log_crlf_to_spaces(char *message) {
+	/* Find all instances of carriage returns or line feeds and
+	 * replace them with spaces. Thus, a log line is always one line
+	 * long
+	 */
+	char *p = message;
+	while ((p = strpbrk(p, "\r\n"))) {
+		*p = ' ';
+	}
+}
+
+void php_mail_log_to_syslog(char *message) {
+	/* Write 'message' to syslog. */
+#ifdef HAVE_SYSLOG_H
+	php_syslog(LOG_NOTICE, "%s", message);
+#endif
+}
+
+
+void php_mail_log_to_file(char *filename, char *message, size_t message_size TSRMLS_DC) {
+	/* Write 'message' to the given file. */
+	uint flags = IGNORE_URL_WIN | REPORT_ERRORS | STREAM_DISABLE_OPEN_BASEDIR;
+	php_stream *stream = php_stream_open_wrapper(filename, "a", flags, NULL);
+	if (stream) {
+		php_stream_write(stream, message, message_size);
+		php_stream_close(stream);
+	}
+}
+
+
+/* {{{ 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;
+	char *mail_log = INI_STR("mail.log");
+	char *hdr = headers;
+#if PHP_SIGCHILD
+	void (*sig_handler)() = NULL;
+#endif
+
+#define MAIL_RET(val) \
+	if (hdr != headers) {	\
+		efree(hdr);	\
+	}	\
+	return val;	\
+
+	if (mail_log && *mail_log) {
+		char *tmp;
+		int l = spprintf(&tmp, 0, "mail() on [%s:%d]: To: %s -- Headers: %s\n", zend_get_executed_filename(TSRMLS_C), zend_get_executed_lineno(TSRMLS_C), to, hdr ? hdr : "");
+
+		if (hdr) {
+			php_mail_log_crlf_to_spaces(tmp);
+		}
+
+		if (!strcmp(mail_log, "syslog")) {
+			/* Drop the final space when logging to syslog. */
+			tmp[l - 1] = 0;
+			php_mail_log_to_syslog(tmp);
+		}
+		else {
+			/* Convert the final space to a newline when logging to file. */
+			tmp[l - 1] = '\n';
+			php_mail_log_to_file(mail_log, tmp, l TSRMLS_CC);
+		}
+
+		efree(tmp);
+	}
+	if (PG(mail_x_header)) {
+		const char *tmp = zend_get_executed_filename(TSRMLS_C);
+		char *f;
+		size_t f_len;
+
+		php_basename(tmp, strlen(tmp), NULL, 0,&f, &f_len TSRMLS_CC);
+
+		if (headers != NULL) {
+			spprintf(&hdr, 0, "X-PHP-Originating-Script: %ld:%s\n%s", php_getuid(TSRMLS_C), f, headers);
+		} else {
+			spprintf(&hdr, 0, "X-PHP-Originating-Script: %ld:%s\n", php_getuid(TSRMLS_C), f);
+		}
+		efree(f);
+	}
+
+	if (!sendmail_path) {
+#if (defined PHP_WIN32 || defined NETWARE)
+		/* handle old style win smtp sending */
+		if (TSendMail(INI_STR("SMTP"), &tsm_err, &tsm_errmsg, hdr, subject, to, message, NULL, NULL, NULL TSRMLS_CC) == 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));
+			}
+			MAIL_RET(0);
+		}
+		MAIL_RET(1);
+#else
+		MAIL_RET(0);
+#endif
+	}
+	if (extra_cmd != NULL) {
+		spprintf(&sendmail_cmd, 0, "%s %s", sendmail_path, extra_cmd);
+	} else {
+		sendmail_cmd = sendmail_path;
+	}
+
+#if PHP_SIGCHILD
+	/* Set signal handler of SIGCHLD to default to prevent other signal handlers
+	 * from being called and reaping the return code when our child exits.
+	 * The original handler needs to be restored after pclose() */
+	sig_handler = (void *)signal(SIGCHLD, SIG_DFL);
+	if (sig_handler == SIG_ERR) {
+		sig_handler = NULL;
+	}
+#endif
+
+#ifdef PHP_WIN32
+	sendmail = popen_ex(sendmail_cmd, "wb", NULL, NULL TSRMLS_CC);
+#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);
+#if PHP_SIGCHILD
+			/* Restore handler in case of error on Windows
+			   Not sure if this applicable on Win but just in case. */
+			if (sig_handler) {
+				signal(SIGCHLD, sig_handler);
+			}
+#endif
+			MAIL_RET(0);
+		}
+#endif
+		fprintf(sendmail, "To: %s\n", to);
+		fprintf(sendmail, "Subject: %s\n", subject);
+		if (hdr != NULL) {
+			fprintf(sendmail, "%s\n", hdr);
+		}
+		fprintf(sendmail, "\n%s\n", message);
+		ret = pclose(sendmail);
+
+#if PHP_SIGCHILD
+		if (sig_handler) {
+			signal(SIGCHLD, sig_handler);
+		}
+#endif
+
+#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
+		{
+			MAIL_RET(0);
+		} else {
+			MAIL_RET(1);
+		}
+	} else {
+		php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not execute mail delivery program '%s'", sendmail_path);
+#if PHP_SIGCHILD
+		if (sig_handler) {
+			signal(SIGCHLD, sig_handler);						
+		}
+#endif
+		MAIL_RET(0);
+	}
+
+	MAIL_RET(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
+}
+/* }}} */
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * End:
+ * vim600: sw=4 ts=4 fdm=marker
+ * vim<600: sw=4 ts=4
+ */