--- parser3/src/classes/mail.C 2001/04/07 10:34:39 1.1 +++ parser3/src/classes/mail.C 2003/11/21 12:38:20 1.96 @@ -1,72 +1,239 @@ /** @file Parser: @b mail parser class. - Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) - - Author: Alexander Petrosyan (http://design.ru/paf) - - $Id: mail.C,v 1.1 2001/04/07 10:34:39 paf Exp $ + Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com) + Author: Alexandr Petrosian (http://paf.design.ru) */ +static const char * const IDENT_MAIL_C="$Date: 2003/11/21 12:38:20 $"; + #include "pa_config_includes.h" +#include "pa_vmethod_frame.h" -#include "_mail.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" +#include "pa_vmail.h" -// global var +#ifdef _MSC_VER +# include "smtp/smtp.h" +#endif -VStateless_class *mail_class; +// defines -// methods +#define MAIL_CLASS_NAME "mail" +#define SENDMAIL_NAME "sendmail" + +// consts -struct Mail_info { - String *attribute_to_exclude; - String *header; +const int ATTACHMENT_WEIGHT=100; + +// class + +class MMail: public Methoded { +public: // Methoded + bool used_directly() { return false; } + void configure_user(Request& r); + +public: + MMail(); }; -static void add_header_attribute(const Hash::Key& aattribute, Hash::Val *ameaning, - void *info) { +// global variable + +DECLARE_CLASS_VAR(mail, 0/*fictive*/, new MMail); - Value& lmeaning=*static_cast(ameaning); - Mail_info& mi=*static_cast(info); - if(aattribute==*mi.attribute_to_exclude) - return; - - mi.header->append(aattribute, String::UL_PASS_APPENDED); - mi.header->APPEND_CONST(":"); - mi.header->append( - attributed_meaning_to_string(lmeaning, String::UL_MAIL_HEADER), - String::UL_PASS_APPENDED); - mi.header->APPEND_CONST("\n"); +// defines for statics + +#define MAIL_NAME "MAIL" + +// statics + +static const String mail_name(MAIL_NAME); +static const String mail_sendmail_name(SENDMAIL_NAME); + +// helpers + +static void sendmail(Request& r, + const String& message, + const String* from, const String* +#ifdef _MSC_VER + to +#endif + , + const String* +#ifndef _MSC_VER + options +#endif + ) { + const char* message_cstr=message.cstr(String::L_UNSPECIFIED); + Value* vmail_conf=static_cast(r.classes_conf.get(mail_base_class->name())); + + const char* exception_type="email.format"; + if(!from) // we use in sendmail -f {from} && SMTP MAIL from: {from} + throw Exception(exception_type, + 0, + "parameter does not specify 'from' header field"); + +#ifdef _MSC_VER + if(!to) // we use only in SMTP RCPT to: {to} + throw Exception(exception_type, + 0, + "parameter does not specify 'to' header field"); + + SMTP smtp; + Value* server_port; + // $MAIN:MAIL.SMTP[mail.yourdomain.ru[:port]] + if(vmail_conf && + (server_port=vmail_conf->get_hash()->get(String::Body("SMTP")))) { + char* server=server_port->as_string().cstrm(); + const char* port=rsplit(server, ':'); + if(!port) + port="25"; + + smtp.Send(server, port, message_cstr, from->cstrm(), to->cstrm()); + } else + throw Exception("parser.runtime", + 0, + "$"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 + + String* sendmail_command=new String; + if(vmail_conf) { +#ifdef PA_FORCED_SENDMAIL + throw Exception("parser.runtime", + 0, + "Parser was configured with --with-sendmail="PA_FORCED_SENDMAIL + " key, to change sendmail you should reconfigure and recompie it"); +#else + if(Value* sendmail_value=vmail_conf->get_hash()->get(mail_sendmail_name)) + *sendmail_command<as_string(); + else + throw Exception("parser.runtime", + 0, + "$"MAIN_CLASS_NAME":"MAIL_NAME"."SENDMAIL_NAME" not defined"); +#endif + } else { +#ifdef PA_FORCED_SENDMAIL + *sendmail_command<pos("postmaster"); + if(at_postmaster!=STRING_NOT_FOUND) { + String& reconstructed=sendmail_command->mid(0, at_postmaster); + reconstructed << *from; + reconstructed << sendmail_command->mid(at_postmaster+10/*postmaster*/, sendmail_command->length()); + sendmail_command=&reconstructed; + } + + // execute it + ArrayString argv; + const String* file_spec; + size_t after_file_spec=sendmail_command->pos(' '); + if(after_file_spec==STRING_NOT_FOUND || 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, " ", String::L_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"."SENDMAIL_NAME" to appropriate sendmail command" +#endif + ); + + + String in(message_cstr); + PA_exec_result exec=pa_exec( + // forced_allow +#ifdef PA_FORCED_SENDMAIL + true +#else + false +#endif + , *file_spec, + 0 /* pass env */, + argv, + in); + if(exec.status || exec.err.length()) + throw Exception("email.send", + 0, + "'%s' reported problem: %s (%d)", + file_spec->cstr(), + exec.err.length()?exec.err.cstr():"UNKNOWN", + exec.status); +#endif } -static void _send(Request& r, const String& method_name, Array *params) { - Pool& pool=r.pool(); - Value& vhash=*static_cast(params->get(0)); - // forcing [this body type] - r.fail_if_junction_(true, vhash, method_name, "message must not be code"); +// methods - Hash *hash=vhash.get_hash(); +static void _send(Request& r, MethodParams& params) { + Value& vhash=params.as_no_junction(0, "message must not be code"); + HashStringValue* hash=vhash.get_hash(); if(!hash) - PTHROW(0, 0, - &method_name, + throw Exception("parser.runtime", + 0, "message must be hash"); - // prepare header: 'hash' without "body" - String& header=*new(pool) String(pool); - Mail_info mail_info={ - /*excluding*/ body_name, - &header - }; - hash->for_each(add_header_attribute, &mail_info); - + const String* soptions=0; + if(Value* voptions=hash->get(MAIL_OPTIONS_NAME)) + soptions=&voptions->as_string(); + + const String* from=0; + String* to=0; + const String& message= + GET_SELF(r, VMail).message_hash_to_string(r, hash, 0, from, +#ifdef WIN32 + true +#else + false +#endif + , to); - r.write_assign_lang(*new(pool) VString(*mail_info.header)); + //r.write_pass_lang(message); + sendmail(r, message, from, to, soptions); } -// initialize -void initialize_mail_class(Pool& pool, VStateless_class& vclass) { +// constructor & configurator + +MMail::MMail(): Methoded(MAIL_CLASS_NAME) { // ^mail:send{hash} - vclass.add_native_method("send", Method::CT_STATIC, _send, 1, 1); + add_native_method("send", Method::CT_STATIC, _send, 1, 1); +} + +void MMail::configure_user(Request& r) { + + // $MAIN:MAIL[$SMTP[mail.design.ru]] + if(Value* mail_element=r.main_class.get_element(mail_name, r.main_class, false)) + if(mail_element->get_hash()) + r.classes_conf.put(name(), mail_element); + else + if( !mail_element->is_string() ) + throw Exception("parser.runtime", + 0, + "$" MAIL_CLASS_NAME ":" MAIL_NAME " is not hash"); }