Annotation of parser3/src/classes/mail.C, revision 1.88.2.9
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.9! paf 8: static const char* IDENT_MAIL_C="$Date: 2003/02/17 07:18:57 $";
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.50 paf 20:
21: #ifdef _MSC_VER
22: # include "smtp/smtp.h"
23: #endif
1.4 paf 24:
1.23 paf 25: // defines
1.1 paf 26:
1.23 paf 27: #define MAIL_CLASS_NAME "mail"
28:
1.67 paf 29: // consts
1.25 paf 30:
1.67 paf 31: const int ATTACHMENT_WEIGHT=100;
1.25 paf 32:
1.23 paf 33: // class
34:
1.88.2.9! paf 35: class MMail: public Methoded {
1.24 paf 36: public: // Methoded
1.67 paf 37: bool used_directly() { return false; }
1.68 paf 38: void configure_user(Request& r);
1.7 paf 39:
1.88.2.6 paf 40: public:
41: MMail();
1.1 paf 42: };
1.70 paf 43:
1.88.2.6 paf 44: // global variable
1.22 paf 45:
1.88.2.8 paf 46: MethodedPtr mail_class(0);
1.88.2.6 paf 47: MethodedPtr mail_base_class(new MMail);
1.47 paf 48:
1.88.2.6 paf 49: // defines for statics
1.2 paf 50:
1.88.2.6 paf 51: #define MAIL_NAME "MAIL"
1.20 paf 52:
1.88.2.6 paf 53: // statics
54:
55: static StringPtr mail_name(new String(MAIL_NAME));
1.2 paf 56:
1.88.2.6 paf 57: // helpers
1.2 paf 58:
1.88.2.6 paf 59: static void sendmail(Request& r, StringPtr method_name,
60: StringPtr message,
61: StringPtr from, StringPtr to) {
1.4 paf 62: Pool& pool=r.pool();
63:
1.88.2.6 paf 64: CharPtr message_cstr=message->cstr(String::UL_UNSPECIFIED);
1.88.2.7 paf 65: Value* vmail_conf=static_cast<Value*>(r.classes_conf.get(mail_base_class->name()).get());
1.12 paf 66:
1.88.2.6 paf 67: const char *exception_type="email.format";
1.85 paf 68: if(!from) // we use in sendmail -f {from} && SMTP MAIL from: {from}
1.75 paf 69: throw Exception(exception_type,
1.88.2.5 paf 70: method_name,
1.70 paf 71: "parameter does not specify 'from' header field");
1.85 paf 72:
73: #ifdef _MSC_VER
74: if(!to) // we use only in SMTP RCPT to: {to}
1.75 paf 75: throw Exception(exception_type,
1.88.2.5 paf 76: method_name,
1.70 paf 77: "parameter does not specify 'to' header field");
1.4 paf 78:
1.88.2.6 paf 79: SMTPPtr smtp(new SMTP(method_name));
80: ValuePtr server_port;
1.29 parser 81: // $MAIN:MAIL.SMTP[mail.yourdomain.ru[:port]]
1.88.2.6 paf 82: if(vmail_conf &&
83: (server_port=vmail_conf->get_hash(method_name)->get(StringPtr(new String("SMTP"))))) {
84: CharPtr server=server_port->as_string(&pool)->cstr();
85: const char *port=rsplit(server, ':');
1.4 paf 86: if(!port)
1.11 paf 87: port="25";
1.4 paf 88:
1.88.2.6 paf 89: smtp->Send(server, port, message_cstr, from->cstr(), to->cstr());
1.4 paf 90: } else
1.60 paf 91: throw Exception("parser.runtime",
1.88.2.5 paf 92: method_name,
1.13 paf 93: "$"MAIN_CLASS_NAME":"MAIL_NAME".SMTP not defined");
1.4 paf 94: #else
1.12 paf 95: // unix
1.70 paf 96: // $MAIN:MAIL.sendmail["/usr/sbin/sendmail -t -i -f postmaster"] default
97: // $MAIN:MAIL.sendmail["/usr/lib/sendmail -t -i -f postmaster"] default
1.12 paf 98:
1.55 paf 99: const String *sendmail_command;
1.88.2.6 paf 100: const char *sendmailkey_cstr="sendmail";
1.86 paf 101: if(mail_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.51 paf 108: if(Value *sendmail_value=static_cast<Value *>(mail_conf->get(String(pool, sendmailkey_cstr))))
1.52 paf 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.51 paf 113: "$"MAIN_CLASS_NAME":"MAIL_NAME".%s not defined",
114: sendmailkey_cstr);
1.86 paf 115: #endif
1.51 paf 116: } else {
1.86 paf 117: #ifdef PA_FORCED_SENDMAIL
118: sendmail_command=new(pool) String(pool, PA_FORCED_SENDMAIL);
119: #else
1.52 paf 120: String *test=new(pool) String(pool, "/usr/sbin/sendmail");
121: if(!file_executable(*test))
122: test=new(pool) String(pool, "/usr/lib/sendmail");
1.70 paf 123: test->APPEND_CONST(" -t -i -f postmaster");
1.52 paf 124: sendmail_command=test;
1.86 paf 125: #endif
1.51 paf 126: }
127:
1.70 paf 128: // we know sendmail_command here, should replace "postmaster" with "$from" from message
129: int at_postmaster=sendmail_command->pos("postmaster");
130: if(at_postmaster>0) {
131: String& reconstructed=sendmail_command->mid(0, at_postmaster);
1.71 paf 132: reconstructed << *from;
133: reconstructed << sendmail_command->mid(at_postmaster+10/*postmaster*/, sendmail_command->size());
1.70 paf 134: sendmail_command=&reconstructed;
135: }
136:
137: // execute it
1.51 paf 138: Array argv(pool);
139: const String *file_spec;
1.52 paf 140: int after_file_spec=sendmail_command->pos(" ", 1);
1.51 paf 141: if(after_file_spec<=0)
1.52 paf 142: file_spec=sendmail_command;
1.51 paf 143: else {
1.52 paf 144: size_t pos_after=after_file_spec;
145: file_spec=&sendmail_command->mid(0, pos_after++);
146: sendmail_command->split(argv, &pos_after, " ", 1, String::UL_AS_IS);
1.36 parser 147: }
1.51 paf 148:
1.52 paf 149: if(!file_executable(*file_spec))
1.75 paf 150: throw Exception("email.send",
1.55 paf 151: file_spec,
152: "is not executable."
153: #ifdef PA_FORCED_SENDMAIL
1.59 paf 154: " Use configure key \"--with-sendmail=appropriate sendmail command\""
1.58 paf 155: #else
1.70 paf 156: " Set $"MAIN_CLASS_NAME":"MAIL_NAME".%s to appropriate sendmail command",
1.55 paf 157: sendmailkey_cstr
158: #endif
159: );
160:
1.51 paf 161:
1.67 paf 162: String in(pool, message_cstr); String out(pool); String err(pool);
1.56 paf 163: int exit_status=pa_exec(
164: // forced_allow
165: #ifdef PA_FORCED_SENDMAIL
166: true
167: #else
168: false
169: #endif
1.57 paf 170: , *file_spec,
1.51 paf 171: 0/*default env*/,
172: &argv,
173: in, out, err);
174: if(exit_status || err.size())
1.75 paf 175: throw Exception("email.send",
1.88.2.5 paf 176: method_name,
1.51 paf 177: "'%s' reported problem: %s (%d)",
178: file_spec->cstr(),
179: err.size()?err.cstr():"UNKNOWN",
180: exit_status);
1.4 paf 181: #endif
182: }
183:
1.7 paf 184: // methods
185:
1.88.2.3 paf 186: static void _send(Request& r, StringPtr method_name, MethodParams& params) {
1.1 paf 187: Pool& pool=r.pool();
188:
1.88.2.6 paf 189: ValuePtr vhash=params.as_no_junction(0, "message must not be code");
190: HashStringValue* hash=vhash->get_hash(method_name);
1.1 paf 191: if(!hash)
1.60 paf 192: throw Exception("parser.runtime",
1.88.2.5 paf 193: method_name,
1.1 paf 194: "message must be hash");
195:
1.88.2.6 paf 196: StringPtr from(0);
197: StringPtr to(0);
198: StringPtr message=
199: GET_SELF(r, VMail).message_hash_to_string(r, method_name, hash, 0, from, to);
1.1 paf 200:
1.67 paf 201: //r.write_pass_lang(message);
202: sendmail(r, method_name, message, from, to);
1.6 paf 203: }
204:
1.24 paf 205: // constructor & configurator
1.23 paf 206:
1.88.2.6 paf 207: MMail::MMail(): Methoded(MAIL_CLASS_NAME) {
1.27 paf 208: // ^mail:send{hash}
1.23 paf 209: add_native_method("send", Method::CT_STATIC, _send, 1, 1);
1.68 paf 210: }
211:
212: void MMail::configure_user(Request& r) {
213: Pool& pool=r.pool();
214:
215: // $MAIN:MAIL[$SMTP[mail.design.ru]]
1.88.2.6 paf 216: if(ValuePtr mail_element=r.main_class->get_element(mail_name, *r.main_class, false))
217: if(mail_element->get_hash(Exception::undefined_source))
218: r.classes_conf.put(name(), mail_element);
1.68 paf 219: else
1.69 paf 220: if( !mail_element->is_string() )
221: throw Exception("parser.runtime",
1.88.2.6 paf 222: Exception::undefined_source,
1.69 paf 223: "$" MAIL_CLASS_NAME ":" MAIL_NAME " is not hash");
1.1 paf 224: }
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