[BACK]Return to mail.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / classes

Diff for /parser3/src/classes/mail.C between versions 1.1 and 1.88.2.6

version 1.1, 2001/04/07 10:34:39 version 1.88.2.6, 2003/02/06 16:05:23
Line 1 Line 1
 /** @file  /** @file
         Parser: @b mail parser class.          Parser: @b mail parser class.
   
         Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
           Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
         Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)  
   
         $Id$  
 */  */
   
   static const char* IDENT_MAIL_C="$Date$";
   
 #include "pa_config_includes.h"  #include "pa_config_includes.h"
   #include "pa_vmethod_frame.h"
   
 #include "_mail.h"  
 #include "pa_common.h"  #include "pa_common.h"
 #include "pa_request.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"
   
 // global var  #ifdef _MSC_VER
   #       include "smtp/smtp.h"
   #endif
   
 VStateless_class *mail_class;  // defines
   
 // methods  #define MAIL_CLASS_NAME "mail"
   
   // consts
   
   const int ATTACHMENT_WEIGHT=100;
   
   // class
   
 struct Mail_info {  class MMail : public Methoded {
         String *attribute_to_exclude;  public: // Methoded
         String *header;          bool used_directly() { return false; }
           void configure_user(Request& r);
   
   public:
           MMail();
 };  };
   
 static void add_header_attribute(const Hash::Key& aattribute, Hash::Val *ameaning,   // global variable
                                                                  void *info) {  
   
         Value& lmeaning=*static_cast<Value *>(ameaning);  MethodedPtr mail_base_class(new MMail);
         Mail_info& mi=*static_cast<Mail_info *>(info);  
         if(aattribute==*mi.attribute_to_exclude)  // defines for statics
                 return;  
   #define MAIL_NAME "MAIL"
         mi.header->append(aattribute, String::UL_PASS_APPENDED);  
         mi.header->APPEND_CONST(":");  // statics
         mi.header->append(          
                 attributed_meaning_to_string(lmeaning, String::UL_MAIL_HEADER),   static StringPtr mail_name(new String(MAIL_NAME));
                 String::UL_PASS_APPENDED);  
         mi.header->APPEND_CONST("\n");  // helpers
 }  
 static void _send(Request& r, const String& method_name, Array *params) {  static void sendmail(Request& r, StringPtr method_name, 
                                            StringPtr message, 
                                            StringPtr from, StringPtr to) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
   
         Value& vhash=*static_cast<Value *>(params->get(0));          CharPtr message_cstr=message->cstr(String::UL_UNSPECIFIED);
         // forcing [this body type]          ValuePtr vmail_conf=r.classes_conf.get(mail_base_class->name());
         r.fail_if_junction_(true, vhash, method_name, "message must not be code");  
           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();
   
         Hash *hash=vhash.get_hash();          ValuePtr vhash=params.as_no_junction(0, "message must not be code");
           HashStringValue* hash=vhash->get_hash(method_name);
         if(!hash)          if(!hash)
                 PTHROW(0, 0,                  throw Exception("parser.runtime",
                         &method_name,                          method_name,
                         "message must be hash");                          "message must be hash");
   
         // prepare header: 'hash' without "body"          StringPtr from(0);
         String& header=*new(pool) String(pool);          StringPtr to(0);
         Mail_info mail_info={          StringPtr message=
                 /*excluding*/ body_name,                  GET_SELF(r, VMail).message_hash_to_string(r, method_name, hash, 0, from, to);
                 &header  
         };  
         hash->for_each(add_header_attribute, &mail_info);  
   
           //r.write_pass_lang(message);
         r.write_assign_lang(*new(pool) VString(*mail_info.header));          sendmail(r, method_name, message, from, to);
 }  }
   
 // initialize  // constructor & configurator
 void initialize_mail_class(Pool& pool, VStateless_class& vclass) {  
   MMail::MMail(): Methoded(MAIL_CLASS_NAME) {
         // ^mail:send{hash}          // ^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) {
           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");
 }  }
Removed from v.1.1  
changed lines
  Added in v.1.88.2.6

E-mail: