Annotation of parser3/src/classes/mail.C, revision 1.88.2.16.2.6
1.1 paf 1: /** @file
2: Parser: @b mail parser class.
3:
1.88.2.1 paf 4: Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
1.54 paf 5: Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.73 paf 6: */
1.1 paf 7:
1.88.2.16.2.6! (paf 8:: static const char* IDENT_MAIL_C="$Date: 2003/03/20 14:19:08 $";
1.1 paf 9:
10: #include "pa_config_includes.h"
1.88.2.4 paf 11: #include "pa_vmethod_frame.h"
1.1 paf 12:
13: #include "pa_common.h"
14: #include "pa_request.h"
1.6 paf 15: #include "pa_vfile.h"
1.12 paf 16: #include "pa_exec.h"
1.45 paf 17: #include "pa_charsets.h"
18: #include "pa_charset.h"
1.67 paf 19: #include "pa_uue.h"
1.88.2.16 paf 20: #include "pa_vmail.h"
1.50 paf 21:
22: #ifdef _MSC_VER
23: # include "smtp/smtp.h"
24: #endif
1.4 paf 25:
1.23 paf 26: // defines
1.1 paf 27:
1.23 paf 28: #define MAIL_CLASS_NAME "mail"
1.88.2.14 paf 29: #define MAIL_SENDMAIL_NAME "sendmail"
1.23 paf 30:
1.67 paf 31: // consts
1.25 paf 32:
1.67 paf 33: const int ATTACHMENT_WEIGHT=100;
1.25 paf 34:
1.23 paf 35: // class
36:
1.88.2.9 paf 37: class MMail: public Methoded {
1.24 paf 38: public: // Methoded
1.67 paf 39: bool used_directly() { return false; }
1.68 paf 40: void configure_user(Request& r);
1.7 paf 41:
1.88.2.6 paf 42: public:
43: MMail();
1.1 paf 44: };
1.70 paf 45:
1.88.2.6 paf 46: // global variable
1.22 paf 47:
1.88.2.12 paf 48: DECLARE_CLASS_VAR(mail, 0/*fictive*/, new MMail);
1.47 paf 49:
1.88.2.6 paf 50: // defines for statics
1.2 paf 51:
1.88.2.6 paf 52: #define MAIL_NAME "MAIL"
1.20 paf 53:
1.88.2.6 paf 54: // statics
55:
1.88.2.16.2.1 (paf 56:: static const String& mail_name(new String(MAIL_NAME));
57:: static const String& mail_sendmail_name(new String(MAIL_SENDMAIL_NAME));
1.2 paf 58:
1.88.2.6 paf 59: // helpers
1.2 paf 60:
1.88.2.16.2.1 (paf 61:: static void sendmail(Request& r, const String& method_name,
62:: const String& message,
63:: const String& from, const String& to) {
1.4 paf 64:
1.88.2.16.2.6! (paf 65:: const char* message_cstr=message->cstr(String::L_UNSPECIFIED);
1.88.2.7 paf 66: Value* vmail_conf=static_cast<Value*>(r.classes_conf.get(mail_base_class->name()).get());
1.12 paf 67:
1.88.2.16.2.4 (paf 68:: const char* exception_type="email.format";
1.85 paf 69: if(!from) // we use in sendmail -f {from} && SMTP MAIL from: {from}
1.75 paf 70: throw Exception(exception_type,
1.88.2.5 paf 71: method_name,
1.70 paf 72: "parameter does not specify 'from' header field");
1.85 paf 73:
74: #ifdef _MSC_VER
75: if(!to) // we use only in SMTP RCPT to: {to}
1.75 paf 76: throw Exception(exception_type,
1.88.2.5 paf 77: method_name,
1.70 paf 78: "parameter does not specify 'to' header field");
1.4 paf 79:
1.88.2.6 paf 80: SMTPPtr smtp(new SMTP(method_name));
1.88.2.16.2.6! (paf 81:: Value* server_port;
1.29 parser 82: // $MAIN:MAIL.SMTP[mail.yourdomain.ru[:port]]
1.88.2.6 paf 83: if(vmail_conf &&
1.88.2.16.2.1 (paf 84:: (server_port=vmail_conf->get_hash(method_name)->get(String* (new String("SMTP"))))) {
1.88.2.16.2.6! (paf 85:: const char* server=server_port->as_string()->cstr();
1.88.2.16.2.4 (paf 86:: const char* port=rsplit(server, ':');
1.4 paf 87: if(!port)
1.11 paf 88: port="25";
1.4 paf 89:
1.88.2.6 paf 90: smtp->Send(server, port, message_cstr, from->cstr(), to->cstr());
1.4 paf 91: } else
1.60 paf 92: throw Exception("parser.runtime",
1.88.2.5 paf 93: method_name,
1.13 paf 94: "$"MAIN_CLASS_NAME":"MAIL_NAME".SMTP not defined");
1.4 paf 95: #else
1.12 paf 96: // unix
1.70 paf 97: // $MAIN:MAIL.sendmail["/usr/sbin/sendmail -t -i -f postmaster"] default
98: // $MAIN:MAIL.sendmail["/usr/lib/sendmail -t -i -f postmaster"] default
1.12 paf 99:
1.88.2.16.2.1 (paf 100:: const String& sendmail_command;
1.88.2.13 paf 101: if(vmail_conf) {
1.55 paf 102: #ifdef PA_FORCED_SENDMAIL
1.86 paf 103: throw Exception("parser.runtime",
1.88.2.5 paf 104: method_name,
1.86 paf 105: "Parser was configured with --with-sendmail="PA_FORCED_SENDMAIL
1.87 paf 106: " key, to change sendmail you should reconfigure and recompie it");
1.55 paf 107: #else
1.88.2.16.2.6! (paf 108:: if(Value* sendmail_value=vmail_conf->get_hash(method_name)->get(mail_sendmail_name))
! 109:: sendmail_command=sendmail_value->as_string();
1.51 paf 110: else
1.60 paf 111: throw Exception("parser.runtime",
1.88.2.5 paf 112: method_name,
1.88.2.14 paf 113: "$"MAIN_CLASS_NAME":"MAIL_NAME"."MAIL_SENDMAIL_NAME" not defined");
1.86 paf 114: #endif
1.51 paf 115: } else {
1.86 paf 116: #ifdef PA_FORCED_SENDMAIL
1.88.2.16.2.1 (paf 117:: sendmail_command=String* (new String(PA_FORCED_SENDMAIL));
1.86 paf 118: #else
1.88.2.16.2.1 (paf 119:: const String& test(new String("/usr/sbin/sendmail"));
1.88.2.14 paf 120: if(!file_executable(test))
1.88.2.16.2.1 (paf 121:: test=String* (new String("/usr/lib/sendmail"));
1.70 paf 122: test->APPEND_CONST(" -t -i -f postmaster");
1.52 paf 123: sendmail_command=test;
1.86 paf 124: #endif
1.51 paf 125: }
126:
1.70 paf 127: // we know sendmail_command here, should replace "postmaster" with "$from" from message
128: int at_postmaster=sendmail_command->pos("postmaster");
129: if(at_postmaster>0) {
1.88.2.16.2.1 (paf 130:: const String& reconstructed=sendmail_command->mid(0, at_postmaster);
1.88.2.13 paf 131: *reconstructed << *from;
1.88.2.16.2.5 (paf 132:: *reconstructed << sendmail_command->mid(at_postmaster+10/*postmaster*/, sendmail_command->length());
1.88.2.13 paf 133: sendmail_command=reconstructed;
1.70 paf 134: }
135:
136: // execute it
1.88.2.14 paf 137: ArrayString argv;
1.88.2.16.2.1 (paf 138:: const String& file_spec;
1.52 paf 139: int after_file_spec=sendmail_command->pos(" ", 1);
1.51 paf 140: if(after_file_spec<=0)
1.52 paf 141: file_spec=sendmail_command;
1.51 paf 142: else {
1.52 paf 143: size_t pos_after=after_file_spec;
1.88.2.13 paf 144: file_spec=sendmail_command->mid(0, pos_after++);
1.88.2.16.2.6! (paf 145:: sendmail_command->split(argv, &pos_after, " ", 1, String::L_AS_IS);
1.36 parser 146: }
1.51 paf 147:
1.88.2.13 paf 148: if(!file_executable(file_spec))
1.75 paf 149: throw Exception("email.send",
1.55 paf 150: file_spec,
151: "is not executable."
152: #ifdef PA_FORCED_SENDMAIL
1.59 paf 153: " Use configure key \"--with-sendmail=appropriate sendmail command\""
1.58 paf 154: #else
1.88.2.14 paf 155: " Set $"MAIN_CLASS_NAME":"MAIL_NAME"."MAIL_SENDMAIL_NAME" to appropriate sendmail command"
1.55 paf 156: #endif
157: );
158:
1.51 paf 159:
1.88.2.13 paf 160: String in(message_cstr); String out; String err;
1.88.2.14 paf 161: PA_exec_result exec=pa_exec(pool,
1.56 paf 162: // forced_allow
163: #ifdef PA_FORCED_SENDMAIL
164: true
165: #else
166: false
167: #endif
1.88.2.14 paf 168: , file_spec,
169: 0 /* pass env */,
170: argv,
171: in);
1.88.2.16.2.5 (paf 172:: if(exec.status || exec.err->length())
1.75 paf 173: throw Exception("email.send",
1.88.2.5 paf 174: method_name,
1.51 paf 175: "'%s' reported problem: %s (%d)",
1.88.2.11 paf 176: file_spec->cstr().get(),
1.88.2.16.2.5 (paf 177:: exec.err->length()?exec.err->cstr().get():"UNKNOWN",
1.88.2.14 paf 178: exec.status);
1.4 paf 179: #endif
180: }
181:
1.7 paf 182: // methods
183:
1.88.2.16.2.1 (paf 184:: static void _send(Request& r, const String& method_name, MethodParams* params) {
1.1 paf 185:
1.88.2.16.2.6! (paf 186:: Value* vhash=params->as_no_junction(0, "message must not be code");
1.88.2.6 paf 187: HashStringValue* hash=vhash->get_hash(method_name);
1.1 paf 188: if(!hash)
1.60 paf 189: throw Exception("parser.runtime",
1.88.2.5 paf 190: method_name,
1.1 paf 191: "message must be hash");
192:
1.88.2.16.2.1 (paf 193:: const String& from(0);
194:: const String& to(0);
195:: const String& message=
1.88.2.15 paf 196: GET_SELF(r, VMail).message_hash_to_string(r, method_name, hash, 0, from,
197: #ifdef WIN32
198: true
199: #else
200: false
201: #endif
202: , to);
1.1 paf 203:
1.67 paf 204: //r.write_pass_lang(message);
205: sendmail(r, method_name, message, from, to);
1.6 paf 206: }
207:
1.24 paf 208: // constructor & configurator
1.23 paf 209:
1.88.2.6 paf 210: MMail::MMail(): Methoded(MAIL_CLASS_NAME) {
1.27 paf 211: // ^mail:send{hash}
1.23 paf 212: add_native_method("send", Method::CT_STATIC, _send, 1, 1);
1.68 paf 213: }
214:
215: void MMail::configure_user(Request& r) {
216:
217: // $MAIN:MAIL[$SMTP[mail.design.ru]]
1.88.2.16.2.6! (paf 218:: if(Value* mail_element=r.main_class->get_element(mail_name, *r.main_class, false))
1.88.2.16.2.3 (paf 219:: if(mail_element->get_hash(0))
1.88.2.6 paf 220: r.classes_conf.put(name(), mail_element);
1.68 paf 221: else
1.69 paf 222: if( !mail_element->is_string() )
223: throw Exception("parser.runtime",
1.88.2.16.2.3 (paf 224:: 0,
1.69 paf 225: "$" MAIL_CLASS_NAME ":" MAIL_NAME " is not hash");
1.1 paf 226: }
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mail.C CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / classes