[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.115 and 1.133

version 1.115, 2009/09/27 22:10:12 version 1.133, 2017/02/07 22:00:28
Line 1 Line 1
 /** @file  /** @file
         Parser: @b mail parser class.          Parser: @b mail parser class.
   
         Copyright (c) 2001-2009 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2017 Art. Lebedev Studio (http://www.artlebedev.com)
         Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)          Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */  */
   
 static const char * const IDENT_MAIL_C="$Date$";  
   
 #include "pa_config_includes.h"  #include "pa_config_includes.h"
 #include "pa_vmethod_frame.h"  #include "pa_vmethod_frame.h"
   
Line 21  static const char * const IDENT_MAIL_C=" Line 19  static const char * const IDENT_MAIL_C="
   
 #include "smtp.h"  #include "smtp.h"
   
   volatile const char * IDENT_MAIL_C="$Id$";
   
 // defines  // defines
   
 #define MAIL_CLASS_NAME "mail"  #define MAIL_CLASS_NAME "mail"
Line 43  public: Line 43  public:
   
 // global variable  // global variable
   
 DECLARE_CLASS_VAR(mail, 0/*fictive*/, new MMail);  DECLARE_CLASS_VAR(mail, new MMail);
   
 // defines for statics  // defines for statics
   
Line 66  static void sendmail( Line 66  static void sendmail(
                         const String* from,                          const String* from,
                         const String* to,                          const String* to,
                         const String*                           const String* 
 #ifndef _MSC_VER  #ifndef WIN32
                          options                           options
 #endif  #endif
                          ) {                           ) {
         const char* message_cstr=message.untaint_cstr(String::L_AS_IS);  
   
         const char* exception_type="email.format";          const char* exception_type="email.format";
         if(!from) // we use in sendmail -f {from} && SMTP MAIL from: {from}          if(!from) // we use in sendmail -f {from} && SMTP MAIL from: {from}
                 throw Exception(exception_type,                  throw Exception(exception_type,
                         0,                          0,
                         "parameter does not specify 'from' header field");                          "parameter does not specify 'from' header field");
   
           const char* message_cstr=message.untaint_cstr(String::L_AS_IS);
   
         if(smtp_server_port) {          if(smtp_server_port) {
                 if(!to) // we use only in SMTP RCPT to: {to}                  if(!to) // we use only in SMTP RCPT to: {to}
                         throw Exception(exception_type,                          throw Exception(exception_type,
Line 93  static void sendmail( Line 94  static void sendmail(
                 return;                  return;
         }          }
   
 #if WIN32  #ifdef WIN32
         // win32 without SMTP server configured          // win32 without SMTP server configured
         throw Exception(PARSER_RUNTIME,          throw Exception(PARSER_RUNTIME,
                 0,                  0,
                 "$"MAIN_CLASS_NAME":"MAIL_NAME".SMTP not defined");                  "$" MAIN_CLASS_NAME ":" MAIL_NAME ".SMTP not defined");
 #else  #else
         // unix          // unix
         // $MAIN:MAIL.sendmail["/usr/sbin/sendmail -t -i -f postmaster"] default          // $MAIN:MAIL.sendmail["/usr/sbin/sendmail -t -i -f postmaster"] default
Line 108  static void sendmail( Line 109  static void sendmail(
 #ifdef PA_FORCED_SENDMAIL  #ifdef PA_FORCED_SENDMAIL
                 throw Exception(PARSER_RUNTIME,                  throw Exception(PARSER_RUNTIME,
                         0,                          0,
                         "Parser was configured with --with-sendmail="PA_FORCED_SENDMAIL                          "Parser was configured with --with-sendmail=" PA_FORCED_SENDMAIL
                         " key, to change sendmail you should reconfigure and recompie it");                          " key, to change sendmail you should reconfigure and recompie it");
 #else  #else
                 if(Value* sendmail_value=vmail_conf->get_hash()->get(mail_sendmail_name))                  if(Value* sendmail_value=vmail_conf->get_hash()->get(mail_sendmail_name))
Line 116  static void sendmail( Line 117  static void sendmail(
                 else                  else
                         throw Exception(PARSER_RUNTIME,                          throw Exception(PARSER_RUNTIME,
                                 0,                                  0,
                                 "$"MAIN_CLASS_NAME":"MAIL_NAME"."SENDMAIL_NAME" not defined");                                  "$" MAIN_CLASS_NAME ":" MAIL_NAME "." SENDMAIL_NAME " not defined");
 #endif  #endif
         } else {          } else {
 #ifdef PA_FORCED_SENDMAIL  #ifdef PA_FORCED_SENDMAIL
Line 148  static void sendmail( Line 149  static void sendmail(
         if(after_file_spec==STRING_NOT_FOUND || after_file_spec==0)          if(after_file_spec==STRING_NOT_FOUND || after_file_spec==0)
                 file_spec=sendmail_command;                  file_spec=sendmail_command;
         else {          else {
                 size_t pos_after=after_file_spec;                  file_spec=&sendmail_command->mid(0, after_file_spec);
                 file_spec=&sendmail_command->mid(0, pos_after++);                  sendmail_command->split(argv, after_file_spec+1, " ", String::L_AS_IS);
                 sendmail_command->split(argv, pos_after, " ", String::L_AS_IS);  
         }          }
   
         if(!file_executable(*file_spec))          if(!file_executable(*file_spec))
Line 160  static void sendmail( Line 160  static void sendmail(
 #ifdef PA_FORCED_SENDMAIL  #ifdef PA_FORCED_SENDMAIL
                         " Use configure key \"--with-sendmail=appropriate sendmail command\""                          " Use configure key \"--with-sendmail=appropriate sendmail command\""
 #else  #else
                         " Set $"MAIN_CLASS_NAME":"MAIL_NAME"."SENDMAIL_NAME" to appropriate sendmail command"                          " Set $" MAIN_CLASS_NAME ":" MAIL_NAME "." SENDMAIL_NAME " to appropriate sendmail command"
 #endif  #endif
                 );                  );
   
   
         String in(message_cstr);  
         PA_exec_result exec=pa_exec(          PA_exec_result exec=pa_exec(
                 // forced_allow                  // forced_allow
 #ifdef PA_FORCED_SENDMAIL  #ifdef PA_FORCED_SENDMAIL
Line 176  static void sendmail( Line 174  static void sendmail(
                 , *file_spec,                  , *file_spec,
                 0 /* pass env */,                  0 /* pass env */,
                 argv,                  argv,
                 in);                  String::C(message_cstr, strlen(message_cstr)));
   
         if(exec.status || exec.err.length())          if(exec.status || exec.err.length())
                 throw Exception("email.send",                  throw Exception("email.send", 0, "'%s' reported problem: %s (%d)", file_spec->cstr(), exec.err.length() ? exec.err.cstr() : "UNKNOWN", exec.status);
                         0,  #endif //WIN32
                         "'%s' reported problem: %s (%d)",  
                                 file_spec->cstr(),  
                                 exec.err.length()?exec.err.cstr():"UNKNOWN",   
                                 exec.status);  
 #endif  
 }  }
   
 // methods  // methods
   
 static void _send(Request& r, MethodParams& params) {  static void _send(Request& r, MethodParams& params) {
         Value& vhash=params.as_no_junction(0, "message must not be code");          HashStringValue* hash=params.as_hash(0, "message");
         HashStringValue* hash=vhash.get_hash();          if(!hash || !hash->count())
         if(!hash)                  return;
                 throw Exception(PARSER_RUNTIME,          // todo@ check if enough options are specified.
                         0,          // now ^mail:send[^hash::create[]] and ^mail:send[$.print-debug(1)] "work".
                         "message must be hash");  
   
         const String* soptions=0;          const String* soptions=0;
         if(Value* voptions=hash->get(MAIL_OPTIONS_NAME))          if(Value* voptions=hash->get(MAIL_OPTIONS_NAME))
Line 205  static void _send(Request& r, MethodPara Line 198  static void _send(Request& r, MethodPara
         if(Value* vdebug=hash->get(MAIL_DEBUG_NAME))          if(Value* vdebug=hash->get(MAIL_DEBUG_NAME))
                 print_debug=vdebug->as_bool();                  print_debug=vdebug->as_bool();
   
         Value* vmail_conf=static_cast<Value*>(r.classes_conf.get(mail_base_class->name()));          Value* vmail_conf=static_cast<Value*>(r.classes_conf.get(mail_class->type()));
         Value* smtp_server_port=0;          Value* smtp_server_port=0;
         if(vmail_conf) {          if(vmail_conf) {
                 // $MAIN:MAIL.SMTP[mail.yourdomain.ru[:port]]                  // $MAIN:MAIL.SMTP[mail.yourdomain.ru[:port]]
                 smtp_server_port=vmail_conf->get_hash()->get(String::Body("SMTP"));                  smtp_server_port=vmail_conf->get_hash()->get("SMTP");
         }          }
   
   
Line 220  static void _send(Request& r, MethodPara Line 213  static void _send(Request& r, MethodPara
                         smtp_server_port?true:false /*send by SMTP=strip to?*/, to);                          smtp_server_port?true:false /*send by SMTP=strip to?*/, to);
   
         if(print_debug)          if(print_debug)
                 r.write_pass_lang(message);                  r.write(message);
         else          else
                 sendmail(vmail_conf, smtp_server_port, message, from, to, soptions);                  sendmail(vmail_conf, smtp_server_port, message, from, to, soptions);
 }  }
Line 235  MMail::MMail(): Methoded(MAIL_CLASS_NAME Line 228  MMail::MMail(): Methoded(MAIL_CLASS_NAME
 void MMail::configure_user(Request& r) {  void MMail::configure_user(Request& r) {
   
         // $MAIN:MAIL[$SMTP[mail.design.ru]]          // $MAIN:MAIL[$SMTP[mail.design.ru]]
         if(Value* mail_element=r.main_class.get_element(mail_name))          if(Value* mail_element=r.main_class.get_element(mail_name)) {
                 if(mail_element->get_hash())                  if(mail_element->get_hash())
                         r.classes_conf.put(name(), mail_element);                          r.classes_conf.put(type(), mail_element);
                 else                  else
                         if( !mail_element->is_string() )                          if( !mail_element->is_string() )
                                 throw Exception(PARSER_RUNTIME,                                  throw Exception(PARSER_RUNTIME,
                                         0,                                          0,
                                         "$" MAIL_CLASS_NAME ":" MAIL_NAME " is not hash");                                          "$" MAIL_CLASS_NAME ":" MAIL_NAME " is not hash");
           }
 }  }
Removed from v.1.115  
changed lines
  Added in v.1.133

E-mail: