/** @file
	Parser: @b mail parser class.

	Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
*/

static const char* IDENT_MAIL_C="$Date: 2003/02/14 17:28:18 $";

#include "pa_config_includes.h"
#include "pa_vmethod_frame.h"

#include "pa_common.h"
#include "pa_request.h"
#include "pa_vfile.h"
#include "pa_exec.h"
#include "pa_charsets.h"
#include "pa_charset.h"
#include "pa_uue.h"

#ifdef _MSC_VER
#	include "smtp/smtp.h"
#endif

// defines

#define MAIL_CLASS_NAME "mail"

// consts

const int ATTACHMENT_WEIGHT=100;

// class

class MMail : public Methoded {
public: // Methoded
	bool used_directly() { return false; }
	void configure_user(Request& r);

public:
	MMail();
};

// global variable

MethodedPtr mail_base_class(new MMail);

// defines for statics

#define MAIL_NAME "MAIL"

// statics
	
static StringPtr mail_name(new String(MAIL_NAME));

// helpers

static void sendmail(Request& r, StringPtr method_name, 
					 StringPtr message, 
					 StringPtr from, StringPtr to) {
	Pool& pool=r.pool();

	CharPtr message_cstr=message->cstr(String::UL_UNSPECIFIED);
	Value* vmail_conf=static_cast<Value*>(r.classes_conf.get(mail_base_class->name()).get());

	const char *exception_type="email.format";
	if(!from) // we use in sendmail -f {from} && SMTP MAIL from: {from}
		throw Exception(exception_type,
			method_name,
			"parameter does not specify 'from' header field");

#ifdef _MSC_VER
	if(!to) // we use only in SMTP RCPT to: {to}
		throw Exception(exception_type,
			method_name,
			"parameter does not specify 'to' header field");

	SMTPPtr smtp(new SMTP(method_name));
	ValuePtr server_port;
	// $MAIN:MAIL.SMTP[mail.yourdomain.ru[:port]]
	if(vmail_conf && 
		(server_port=vmail_conf->get_hash(method_name)->get(StringPtr(new String("SMTP"))))) {
		CharPtr server=server_port->as_string(&pool)->cstr();
		const char *port=rsplit(server, ':');
		if(!port)
			port="25";

		smtp->Send(server, port, message_cstr, from->cstr(), to->cstr());
	} else
		throw Exception("parser.runtime",
			method_name,
			"$"MAIN_CLASS_NAME":"MAIL_NAME".SMTP not defined");
#else
	// unix
	// $MAIN:MAIL.sendmail["/usr/sbin/sendmail -t -i -f postmaster"] default
	// $MAIN:MAIL.sendmail["/usr/lib/sendmail -t -i  -f postmaster"] default

	const String *sendmail_command;
	const char *sendmailkey_cstr="sendmail";
	if(mail_conf) {
#ifdef PA_FORCED_SENDMAIL
		throw Exception("parser.runtime",
			method_name,
			"Parser was configured with --with-sendmail="PA_FORCED_SENDMAIL
			" key, to change sendmail you should reconfigure and recompie it");
#else
		if(Value *sendmail_value=static_cast<Value *>(mail_conf->get(String(pool, sendmailkey_cstr))))
			sendmail_command=&sendmail_value->as_string();
		else
			throw Exception("parser.runtime",
				method_name,
				"$"MAIN_CLASS_NAME":"MAIL_NAME".%s not defined", 
				sendmailkey_cstr);
#endif
	} else {
#ifdef PA_FORCED_SENDMAIL
		sendmail_command=new(pool) String(pool, PA_FORCED_SENDMAIL);
#else
		String *test=new(pool) String(pool, "/usr/sbin/sendmail");
		if(!file_executable(*test))
			test=new(pool) String(pool, "/usr/lib/sendmail");
		test->APPEND_CONST(" -t -i -f postmaster");
		sendmail_command=test;
#endif
	}

	// we know sendmail_command here, should replace "postmaster" with "$from" from message
	int at_postmaster=sendmail_command->pos("postmaster");
	if(at_postmaster>0) {
		String& reconstructed=sendmail_command->mid(0, at_postmaster);
		reconstructed << *from;
		reconstructed << sendmail_command->mid(at_postmaster+10/*postmaster*/, sendmail_command->size());
		sendmail_command=&reconstructed;
	}

	// execute it
	Array argv(pool);
	const String *file_spec;
	int after_file_spec=sendmail_command->pos(" ", 1);
	if(after_file_spec<=0)
		file_spec=sendmail_command;
	else {
		size_t pos_after=after_file_spec;
		file_spec=&sendmail_command->mid(0, pos_after++);
		sendmail_command->split(argv, &pos_after, " ", 1, String::UL_AS_IS);
	}

	if(!file_executable(*file_spec))
		throw Exception("email.send",
			file_spec, 
			"is not executable."
#ifdef PA_FORCED_SENDMAIL
			" Use configure key \"--with-sendmail=appropriate sendmail command\""
#else
			" Set $"MAIN_CLASS_NAME":"MAIL_NAME".%s to appropriate sendmail command", 
				sendmailkey_cstr
#endif
		);


	String in(pool, message_cstr); String out(pool); String err(pool);
	int exit_status=pa_exec(
		// forced_allow
#ifdef PA_FORCED_SENDMAIL
		true
#else
		false
#endif
		, *file_spec,
		0/*default env*/,
		&argv,
		in, out, err);
	if(exit_status || err.size())
		throw Exception("email.send",
			method_name,
			"'%s' reported problem: %s (%d)",
				file_spec->cstr(),
				err.size()?err.cstr():"UNKNOWN", 
				exit_status);
#endif
}

// methods

static void _send(Request& r, StringPtr method_name, MethodParams& params) {
	Pool& pool=r.pool();

	ValuePtr vhash=params.as_no_junction(0, "message must not be code");
	HashStringValue* hash=vhash->get_hash(method_name);
	if(!hash)
		throw Exception("parser.runtime",
			method_name,
			"message must be hash");

	StringPtr from(0);
	StringPtr to(0);
	StringPtr message=
		GET_SELF(r, VMail).message_hash_to_string(r, method_name, hash, 0, from, to);

	//r.write_pass_lang(message);
	sendmail(r, method_name, message, from, to);
}

// constructor & configurator

MMail::MMail(): Methoded(MAIL_CLASS_NAME) {
	// ^mail:send{hash}
	add_native_method("send", Method::CT_STATIC, _send, 1, 1);
}

void MMail::configure_user(Request& r) {
	Pool& pool=r.pool();

	// $MAIN:MAIL[$SMTP[mail.design.ru]]
	if(ValuePtr mail_element=r.main_class->get_element(mail_name, *r.main_class, false))
		if(mail_element->get_hash(Exception::undefined_source))
			r.classes_conf.put(name(), mail_element);
		else
			if( !mail_element->is_string() )
				throw Exception("parser.runtime",
					Exception::undefined_source,
					"$" MAIL_CLASS_NAME ":" MAIL_NAME " is not hash");
}