6 #include "auto_qmail.h"
22 #include "rcpthosts.h"
23 #include "timeoutread.h"
24 #include "timeoutwrite.h"
28 unsigned int databytes = 0;
31 int safewrite(fd,buf,len) int fd; char *buf; int len;
34 r = timeoutwrite(timeout,fd,buf,len);
40 substdio ssout = SUBSTDIO_FDBUF(safewrite,1,ssoutbuf,sizeof ssoutbuf);
42 void flush() { substdio_flush(&ssout); }
43 void out(s) char *s; { substdio_puts(&ssout,s); }
45 void die_read() { _exit(1); }
46 void die_alarm() { out("451 timeout (#4.4.2)\r\n"); flush(); _exit(1); }
47 void die_nomem() { out("421 out of memory (#4.3.0)\r\n"); flush(); _exit(1); }
48 void die_control() { out("421 unable to read controls (#4.3.0)\r\n"); flush(); _exit(1); }
49 void die_ipme() { out("421 unable to figure out my IP addresses (#4.3.0)\r\n"); flush(); _exit(1); }
50 void straynewline() { out("451 See http://pobox.com/~djb/docs/smtplf.html.\r\n"); flush(); _exit(1); }
52 void err_bmf() { out("553 sorry, your envelope sender is in my badmailfrom list (#5.7.1)\r\n"); }
53 void err_nogateway() { out("553 sorry, that domain isn't in my list of allowed rcpthosts (#5.7.1)\r\n"); }
54 void err_unimpl() { out("502 unimplemented (#5.5.1)\r\n"); }
55 void err_syntax() { out("555 syntax error (#5.5.4)\r\n"); }
56 void err_wantmail() { out("503 MAIL first (#5.5.1)\r\n"); }
57 void err_wantrcpt() { out("503 RCPT first (#5.5.1)\r\n"); }
58 void err_noop() { out("250 ok\r\n"); }
59 void err_vrfy() { out("252 send some mail, i'll try my best\r\n"); }
60 void err_qqt() { out("451 qqt failure (#4.3.0)\r\n"); }
63 stralloc greeting = {0};
65 void smtp_greet(code) char *code;
67 substdio_puts(&ssout,code);
68 substdio_put(&ssout,greeting.s,greeting.len);
72 out("214 qmail home page: http://pobox.com/~djb/qmail.html\r\n");
76 smtp_greet("221 "); out("\r\n"); flush(); _exit(0);
85 stralloc helohost = {0};
86 char *fakehelo; /* pointer into helohost, or 0 */
88 void dohelo(arg) char *arg; {
89 if (!stralloc_copys(&helohost,arg)) die_nomem();
90 if (!stralloc_0(&helohost)) die_nomem();
91 fakehelo = case_diffs(remotehost,helohost.s) ? helohost.s : 0;
95 stralloc liphost = {0};
98 struct constmap mapbmf;
105 if (control_init() == -1) die_control();
106 if (control_rldef(&greeting,"control/smtpgreeting",1,(char *) 0) != 1)
108 liphostok = control_rldef(&liphost,"control/localiphost",1,(char *) 0);
109 if (liphostok == -1) die_control();
110 if (control_readint(&timeout,"control/timeoutsmtpd") == -1) die_control();
111 if (timeout <= 0) timeout = 1;
113 if (rcpthosts_init() == -1) die_control();
115 bmfok = control_readfile(&bmf,"control/badmailfrom",0);
116 if (bmfok == -1) die_control();
118 if (!constmap_init(&mapbmf,bmf.s,bmf.len,0)) die_nomem();
120 if (control_readint(&databytes,"control/databytes") == -1) die_control();
121 x = env_get("DATABYTES");
122 if (x) { scan_ulong(x,&u); databytes = u; }
123 if (!(databytes + 1)) --databytes;
125 remoteip = env_get("TCPREMOTEIP");
126 if (!remoteip) remoteip = "unknown";
127 local = env_get("TCPLOCALHOST");
128 if (!local) local = env_get("TCPLOCALIP");
129 if (!local) local = "unknown";
130 remotehost = env_get("TCPREMOTEHOST");
131 if (!remotehost) remotehost = "unknown";
132 remoteinfo = env_get("TCPREMOTEINFO");
133 relayclient = env_get("RELAYCLIENT");
138 stralloc addr = {0}; /* will be 0-terminated, if addrparse returns 1 */
146 struct ip_address ip;
151 i = str_chr(arg,'<');
154 else { /* partner should go read rfc 821 */
156 arg += str_chr(arg,':');
157 if (*arg == ':') ++arg;
158 while (*arg == ' ') ++arg;
161 /* strip source route */
162 if (*arg == '@') while (*arg) if (*arg++ == ':') break;
164 if (!stralloc_copys(&addr,"")) die_nomem();
167 for (i = 0;ch = arg[i];++i) { /* copy arg to addr, stripping quotes */
169 if (!stralloc_append(&addr,&ch)) die_nomem();
173 if (!flagquoted && (ch == terminator)) break;
175 case '\\': flagesc = 1; break;
176 case '"': flagquoted = !flagquoted; break;
177 default: if (!stralloc_append(&addr,&ch)) die_nomem();
181 /* could check for termination failure here, but why bother? */
182 if (!stralloc_append(&addr,"")) die_nomem();
185 i = byte_rchr(addr.s,addr.len,'@');
186 if (i < addr.len) /* if not, partner should go read rfc 821 */
187 if (addr.s[i + 1] == '[')
188 if (!addr.s[i + 1 + ip_scanbracket(addr.s + i + 1,&ip)])
191 if (!stralloc_cat(&addr,&liphost)) die_nomem();
192 if (!stralloc_0(&addr)) die_nomem();
196 if (addr.len > 900) return 0;
203 if (!bmfok) return 0;
204 if (constmap(&mapbmf,addr.s,addr.len - 1)) return 1;
205 j = byte_rchr(addr.s,addr.len,'@');
207 if (constmap(&mapbmf,addr.s + j,addr.len - j - 1)) return 1;
214 r = rcpthosts(addr.s,str_len(addr.s));
215 if (r == -1) die_control();
221 int flagbarf; /* defined if seenmail */
222 stralloc mailfrom = {0};
223 stralloc rcptto = {0};
225 void smtp_helo(arg) char *arg;
227 smtp_greet("250 "); out("\r\n");
228 seenmail = 0; dohelo(arg);
230 void smtp_ehlo(arg) char *arg;
232 smtp_greet("250-"); out("\r\n250-PIPELINING\r\n250 8BITMIME\r\n");
233 seenmail = 0; dohelo(arg);
238 out("250 flushed\r\n");
240 void smtp_mail(arg) char *arg;
242 if (!addrparse(arg)) { err_syntax(); return; }
243 flagbarf = bmfcheck();
245 if (!stralloc_copys(&rcptto,"")) die_nomem();
246 if (!stralloc_copys(&mailfrom,addr.s)) die_nomem();
247 if (!stralloc_0(&mailfrom)) die_nomem();
250 void smtp_rcpt(arg) char *arg; {
251 if (!seenmail) { err_wantmail(); return; }
252 if (!addrparse(arg)) { err_syntax(); return; }
253 if (flagbarf) { err_bmf(); return; }
256 if (!stralloc_cats(&addr,relayclient)) die_nomem();
257 if (!stralloc_0(&addr)) die_nomem();
260 if (!addrallowed()) { err_nogateway(); return; }
261 if (!stralloc_cats(&rcptto,"T")) die_nomem();
262 if (!stralloc_cats(&rcptto,addr.s)) die_nomem();
263 if (!stralloc_0(&rcptto)) die_nomem();
268 int saferead(fd,buf,len) int fd; char *buf; int len;
272 r = timeoutread(timeout,fd,buf,len);
273 if (r == -1) if (errno == error_timeout) die_alarm();
274 if (r <= 0) die_read();
279 substdio ssin = SUBSTDIO_FDBUF(saferead,0,ssinbuf,sizeof ssinbuf);
282 unsigned int bytestooverflow = 0;
288 if (!--bytestooverflow)
290 qmail_put(&qqt,ch,1);
299 int pos; /* number of bytes since most recent \n, if fih */
300 int flagmaybex; /* 1 if this line might match RECEIVED, if fih */
301 int flagmaybey; /* 1 if this line might match \r\n, if fih */
302 int flagmaybez; /* 1 if this line might match DELIVERED, if fih */
307 pos = 0; flagmaybex = flagmaybey = flagmaybez = 1;
309 substdio_get(&ssin,&ch,1);
312 if (ch != "delivered"[pos]) if (ch != "DELIVERED"[pos]) flagmaybez = 0;
313 if (flagmaybez) if (pos == 8) ++*hops;
315 if (ch != "received"[pos]) if (ch != "RECEIVED"[pos]) flagmaybex = 0;
316 if (flagmaybex) if (pos == 7) ++*hops;
317 if (pos < 2) if (ch != "\r\n"[pos]) flagmaybey = 0;
318 if (flagmaybey) if (pos == 1) flaginheader = 0;
321 if (ch == '\n') { pos = 0; flagmaybex = flagmaybey = flagmaybez = 1; }
325 if (ch == '\n') straynewline();
326 if (ch == '\r') { state = 4; continue; }
329 if (ch == '\n') straynewline();
330 if (ch == '.') { state = 2; continue; }
331 if (ch == '\r') { state = 4; continue; }
334 case 2: /* \r\n + . */
335 if (ch == '\n') straynewline();
336 if (ch == '\r') { state = 3; continue; }
339 case 3: /* \r\n + .\r */
340 if (ch == '\n') return;
343 if (ch == '\r') { state = 4; continue; }
347 if (ch == '\n') { state = 1; break; }
348 if (ch != '\r') { put("\r"); state = 0; }
354 char accept_buf[FMT_ULONG];
355 void acceptmessage(qp) unsigned long qp;
360 accept_buf[fmt_ulong(accept_buf,(unsigned long) when)] = 0;
363 accept_buf[fmt_ulong(accept_buf,qp)] = 0;
373 if (!seenmail) { err_wantmail(); return; }
374 if (!rcptto.len) { err_wantrcpt(); return; }
376 if (databytes) bytestooverflow = databytes + 1;
377 if (qmail_open(&qqt) == -1) { err_qqt(); return; }
379 out("354 go ahead\r\n");
381 received(&qqt,"SMTP",local,remoteip,remotehost,remoteinfo,fakehelo);
383 hops = (hops >= MAXHOPS);
384 if (hops) qmail_fail(&qqt);
385 qmail_from(&qqt,mailfrom.s);
386 qmail_put(&qqt,rcptto.s,rcptto.len);
388 qqx = qmail_close(&qqt);
389 if (!*qqx) { acceptmessage(qp); return; }
390 if (hops) { out("554 too many hops, this message is looping (#5.4.6)\r\n"); return; }
391 if (databytes) if (!bytestooverflow) { out("552 sorry, that message size exceeds my databytes limit (#5.3.4)\r\n"); return; }
392 if (*qqx == 'D') out("554 "); else out("451 ");
397 struct commands smtpcommands[] = {
398 { "rcpt", smtp_rcpt, 0 }
399 , { "mail", smtp_mail, 0 }
400 , { "data", smtp_data, flush }
401 , { "quit", smtp_quit, flush }
402 , { "helo", smtp_helo, flush }
403 , { "ehlo", smtp_ehlo, flush }
404 , { "rset", smtp_rset, 0 }
405 , { "help", smtp_help, flush }
406 , { "noop", err_noop, flush }
407 , { "vrfy", err_vrfy, flush }
408 , { 0, err_unimpl, flush }
414 if (chdir(auto_qmail) == -1) die_control();
416 if (ipme_init() != 1) die_ipme();
419 if (commands(&ssin,&smtpcommands) == 0) die_read();