/*
   +----------------------------------------------------------------------+
   | PHP Version 4                                                        |
   +----------------------------------------------------------------------+
   | Copyright (c) 1997-2002 The PHP Group                                |
   +----------------------------------------------------------------------+
   | This source file is subject to version 2.02 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available at through the world-wide-web at                           |
   | http://www.php.net/license/2_02.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.               |
   +----------------------------------------------------------------------+
   | Authors: Frank M. Kromann <frank@kromann.info>                       |
   +----------------------------------------------------------------------+
 */
/* $Id$ */

#include "php.h"				/*php specific */
#include <stdio.h>
#include <stdlib.h>
#include <winsock.h>
#include "time.h"
#include <string.h>
#include <malloc.h>
#include <memory.h>
#include <winbase.h>
#include "ext/imap/php_imap.h"
#include "sendmail.h"
#include "imap_sendmail.h"
#include "php_ini.h"

char Buffer[MAIL_BUFFER_SIZE];

extern int WinsockStarted;
extern char MailHost[HOST_NAME_LEN];
extern char LocalHost[HOST_NAME_LEN];


/********************************************************************
 Name:  imap_TSendMail
 Input:   1) host:    Name of the mail host where the SMTP server resides
                      max accepted length of name = 256
          2) appname: Name of the application to use in the X-mailer
                      field of the message. if NULL is given the application
                      name is used as given by the GetCommandLine() function
                      max accespted length of name = 100
 Output:  1) error:   Returns the error code if something went wrong or
                      SUCCESS otherwise.

 See SendText() for additional args!
********************************************************************/
int imap_TSendMail(char *host, int *error,
			  char *headers, char *Subject, char *mailTo, char *data, char *mailCc, char *mailBcc, char *mailRPath)
{
	int ret;
	char *RPath = NULL;

	WinsockStarted = FALSE;

	if (host == NULL) {
		*error = BAD_MAIL_HOST;
		return BAD_MAIL_HOST;
	} else if (strlen(host) >= HOST_NAME_LEN) {
		*error = BAD_MAIL_HOST;
		return BAD_MAIL_HOST;
	} else {
		strcpy(MailHost, host);
	}

	if (mailRPath)
		RPath = estrdup(mailRPath);
	else if (INI_STR("sendmail_from")){
		RPath = estrdup(INI_STR("sendmail_from"));
	} else {
		return 19;
	}

	// attempt to connect with mail host
	*error = MailConnect();
	if (*error != 0) {
		if(RPath)efree(RPath);
		return *error;
	} else {
		ret = imap_SendText(RPath, Subject, mailTo, data, headers, mailCc, mailBcc);
		TSMClose();
		if (ret != SUCCESS) {
			*error = ret;
		}
		if(RPath)efree(RPath);
		return ret;
	}
}

/********************************************************************
 Name:  imap_TSendText
 Input:       1) RPath:   return path of the message
                          Is used to fill the "Return-Path" and the
                          "X-Sender" fields of the message.
              2) Subject: Subject field of the message. If NULL is given
                          the subject is set to "No Subject"
              3) mailTo:  Destination address
              4) data:    Null terminated string containing the data to be send.
			  5) headers: Null terminated string containing extra headers
			  6) mailCc:  Additional destination addresses
			  7) mailBcc: Send the mail to these addresses as well, but do not 
			              list these in the headers
 Output:      Error code or SUCCESS
 Description:
 Author/Date:  fmk/12-13-2001
 History:
********************************************************************/
int imap_SendText(char *RPath, char *Subject, char *mailTo, char *data, char *headers, char *mailCc, char *mailBcc)
{
	int res, i;
	char *p;
	char *tempMailTo;
	ADDRESS *addr;
	char *server_response = NULL;

	/* check for NULL parameters */
	if (data == NULL)
		return (BAD_MSG_CONTENTS);
	if (mailTo == NULL)
		return (BAD_MSG_DESTINATION);
	if (RPath == NULL)
		return (BAD_MSG_RPATH);

	/* simple checks for the mailto address */
	/* have ampersand ? */
	if (strchr(mailTo, '@') == NULL)
		return (BAD_MSG_DESTINATION);

	sprintf(Buffer, "HELO %s\r\n", LocalHost);

	/* in the beggining of the dialog */
	/* attempt reconnect if the first Post fail */
	if ((res = Post(Buffer)) != SUCCESS) {
		MailConnect();
		if ((res = Post(Buffer)) != SUCCESS)
			return (res);
	}
	if ((res = Ack(NULL)) != SUCCESS)
		return (res);

	sprintf(Buffer, "MAIL FROM:<%s>\r\n", RPath);
	if ((res = Post(Buffer)) != SUCCESS)
		return (res);
	if ((res = Ack(NULL)) != SUCCESS)
		return (res);

	// Send mail to all rcpt's
	tempMailTo = estrdup(mailTo);	// rfc822_parse_adrlist will change the string
	addr = NULL;
	rfc822_parse_adrlist(&addr, tempMailTo, NULL);
	while (addr) {
		if (strcmp(addr->host, ERRHOST) == 0)
			return (BAD_MSG_DESTINATION);
		else {
			sprintf(Buffer, "RCPT TO:<%s@%s>\r\n", addr->mailbox, addr->host);
			if ((res = Post(Buffer)) != SUCCESS)
				return (res);
			if ((res = Ack(NULL)) != SUCCESS)
				return (res);
		}
		addr = addr->next;
	}
	efree(tempMailTo);

	/* Send mail to all Cc rcpt's */
	if (mailCc && *mailCc) {
		tempMailTo = estrdup(mailCc);
		addr = NULL;
		rfc822_parse_adrlist(&addr, tempMailTo, NULL);
		while (addr) {
			if (strcmp(addr->host, ERRHOST) == 0)
				return (BAD_MSG_DESTINATION);
			else {
				sprintf(Buffer, "RCPT TO:<%s@%s>\r\n", addr->mailbox, addr->host);
				if ((res = Post(Buffer)) != SUCCESS)
					return (res);
				if ((res = Ack(NULL)) != SUCCESS)
					return (res);
			}
			addr = addr->next;
		}
		efree(tempMailTo);
	}

	if (mailBcc && *mailBcc) {
		tempMailTo = estrdup(mailBcc);
		addr = NULL;
		rfc822_parse_adrlist(&addr, tempMailTo, NULL);
		while (addr) {
			if (strcmp(addr->host, ERRHOST) == 0)
				return (BAD_MSG_DESTINATION);
			else {
				sprintf(Buffer, "RCPT TO:<%s@%s>\r\n", addr->mailbox, addr->host);
				if ((res = Post(Buffer)) != SUCCESS)
					return (res);
				if ((res = Ack(NULL)) != SUCCESS)
					return (res);
			}
			addr = addr->next;
		}
		efree(tempMailTo);
	}

	if ((res = Post("DATA\r\n")) != SUCCESS)
		return (res);
	if ((res = Ack(NULL)) != SUCCESS)
		return (res);


	// send message header
	if (Subject == NULL)
		res = PostHeader(RPath, "No Subject", mailTo, headers, mailCc);
	else
		res = PostHeader(RPath, Subject, mailTo, headers, mailCc);
	if (res != SUCCESS)
		return (res);


	/* send message contents in 1024 chunks */
	if (strlen(data) <= 1024) {
		if ((res = Post(data)) != SUCCESS)
			return (res);
	} else {
		p = data;
		while (1) {
			if (*p == '\0')
				break;
			if (strlen(p) >= 1024)
				i = 1024;
			else
				i = strlen(p);

			/* put next chunk in buffer */
			strncpy(Buffer, p, i);
			Buffer[i] = '\0';
			p += i;

			/* send chunk */
			if ((res = Post(Buffer)) != SUCCESS)
				return (res);
		}
	}

	/*send termination dot */
	if ((res = Post("\r\n.\r\n")) != SUCCESS)
		return (res);
	if ((res = Ack(NULL)) != SUCCESS)
		return (res);

	return (SUCCESS);
}