6 #include "auto_qmail.h"
22 #include "rcpthosts.h"
23 #include "addrcheck.h"
24 #include "timeoutread.h"
25 #include "timeoutwrite.h"
29 unsigned int databytes
= 0;
32 int safewrite(fd
,buf
,len
) int fd
; char *buf
; int len
;
35 r
= timeoutwrite(timeout
,fd
,buf
,len
);
41 substdio ssout
= SUBSTDIO_FDBUF(safewrite
,1,ssoutbuf
,sizeof ssoutbuf
);
43 void flush() { substdio_flush(&ssout
); }
44 void out(s
) char *s
; { substdio_puts(&ssout
,s
); }
46 void die_read() { _exit(1); }
47 void die_alarm() { out("451 timeout (#4.4.2)\r\n"); flush(); _exit(1); }
48 void die_nomem() { out("421 out of memory (#4.3.0)\r\n"); flush(); _exit(1); }
49 void die_control() { out("421 unable to read controls (#4.3.0)\r\n"); flush(); _exit(1); }
50 void die_ipme() { out("421 unable to figure out my IP addresses (#4.3.0)\r\n"); flush(); _exit(1); }
51 void die_badaddr() { out("553 too many bad recipients: sulking (#5.5.1)\r\n"); flush(); _exit(1); }
52 void straynewline() { out("451 See http://pobox.com/~djb/docs/smtplf.html.\r\n"); flush(); _exit(1); }
54 void err_bmf() { out("553 sorry, your envelope sender is in my badmailfrom list (#5.7.1)\r\n"); }
55 void err_nogateway() { out("553 sorry, that domain isn't in my list of allowed rcpthosts (#5.7.1)\r\n"); }
56 void err_badaddr() { out("550 unknown mailbox (#5.1.1)\r\n"); }
57 void err_unimpl() { out("502 unimplemented (#5.5.1)\r\n"); }
58 void err_syntax() { out("555 syntax error (#5.5.4)\r\n"); }
59 void err_wantmail() { out("503 MAIL first (#5.5.1)\r\n"); }
60 void err_wantrcpt() { out("503 RCPT first (#5.5.1)\r\n"); }
61 void err_noop() { out("250 ok\r\n"); }
62 void err_vrfy() { out("252 send some mail, i'll try my best\r\n"); }
63 void err_qqt() { out("451 qqt failure (#4.3.0)\r\n"); }
66 stralloc greeting
= {0};
68 void smtp_greet(code
) char *code
;
70 substdio_puts(&ssout
,code
);
71 substdio_put(&ssout
,greeting
.s
,greeting
.len
);
75 out("214 qmail home page: http://pobox.com/~djb/qmail.html\r\n");
79 smtp_greet("221 "); out("\r\n"); flush(); _exit(0);
88 stralloc helohost
= {0};
89 char *fakehelo
; /* pointer into helohost, or 0 */
91 void dohelo(arg
) char *arg
; {
92 if (!stralloc_copys(&helohost
,arg
)) die_nomem();
93 if (!stralloc_0(&helohost
)) die_nomem();
94 fakehelo
= case_diffs(remotehost
,helohost
.s
) ? helohost
.s
: 0;
98 stralloc liphost
= {0};
100 stralloc relayhosts
= {0};
101 struct constmap maprelayhosts
;
104 struct constmap mapbmf
;
105 static int ac_slow
= 5;
106 static int ac_limit
= 50;
107 static int ac_delay
= 2;
108 static int ac_count
= 0;
109 static int ac_fd
= -1;
116 if (control_init() == -1) die_control();
117 if (control_rldef(&greeting
,"control/smtpgreeting",1,(char *) 0) != 1)
119 liphostok
= control_rldef(&liphost
,"control/localiphost",1,(char *) 0);
120 if (liphostok
== -1) die_control();
121 if (control_readint(&timeout
,"control/timeoutsmtpd") == -1) die_control();
122 if (timeout
<= 0) timeout
= 1;
124 if (rcpthosts_init() == -1) die_control();
126 bmfok
= control_readfile(&bmf
,"control/badmailfrom",0);
127 if (bmfok
== -1) die_control();
129 if (!constmap_init(&mapbmf
,bmf
.s
,bmf
.len
,0)) die_nomem();
131 switch (control_readfile(&relayhosts
, "control/relayhosts", 0)) {
136 if (!constmap_init(&maprelayhosts
, relayhosts
.s
, relayhosts
.len
, 1))
140 if (control_readint(&ac_slow
, "control/addrcheck-slow") == -1 ||
141 control_readint(&ac_slow
, "control/addrcheck-limit") == -1 ||
142 control_readint(&ac_slow
, "control/addrcheck-delay") == -1)
145 if ((ac_fd
= open_read("control/addrcheck.cdb")) < 0 && errno
!= error_noent
)
148 if (control_readint(&databytes
,"control/databytes") == -1) die_control();
149 x
= env_get("DATABYTES");
150 if (x
) { scan_ulong(x
,&u
); databytes
= u
; }
151 if (!(databytes
+ 1)) --databytes
;
153 remoteip
= env_get("TCPREMOTEIP");
154 if (!remoteip
) remoteip
= "unknown";
155 local
= env_get("TCPLOCALHOST");
156 if (!local
) local
= env_get("TCPLOCALIP");
157 if (!local
) local
= "unknown";
158 remotehost
= env_get("TCPREMOTEHOST");
159 if (!remotehost
) remotehost
= "unknown";
160 remoteinfo
= env_get("TCPREMOTEINFO");
161 relayclient
= env_get("RELAYCLIENT");
162 if (!relayclient
&& relayhostsok
) {
164 int l
= str_len(remotehost
);
165 relayclient
= constmap(&maprelayhosts
, remotehost
, l
);
166 if (!relayclient
) for (j
= 0; j
< l
; ++j
) {
167 if (remotehost
[j
] == '.' &&
168 (relayclient
= constmap(&maprelayhosts
,
178 stralloc addr
= {0}; /* will be 0-terminated, if addrparse returns 1 */
186 struct ip_address ip
;
191 i
= str_chr(arg
,'<');
194 else { /* partner should go read rfc 821 */
196 arg
+= str_chr(arg
,':');
197 if (*arg
== ':') ++arg
;
198 while (*arg
== ' ') ++arg
;
201 /* strip source route */
202 if (*arg
== '@') while (*arg
) if (*arg
++ == ':') break;
204 if (!stralloc_copys(&addr
,"")) die_nomem();
207 for (i
= 0;ch
= arg
[i
];++i
) { /* copy arg to addr, stripping quotes */
209 if (!stralloc_append(&addr
,&ch
)) die_nomem();
213 if (!flagquoted
&& (ch
== terminator
)) break;
215 case '\\': flagesc
= 1; break;
216 case '"': flagquoted
= !flagquoted
; break;
217 default: if (!stralloc_append(&addr
,&ch
)) die_nomem();
221 /* could check for termination failure here, but why bother? */
222 if (!stralloc_append(&addr
,"")) die_nomem();
225 i
= byte_rchr(addr
.s
,addr
.len
,'@');
226 if (i
< addr
.len
) /* if not, partner should go read rfc 821 */
227 if (addr
.s
[i
+ 1] == '[')
228 if (!addr
.s
[i
+ 1 + ip_scanbracket(addr
.s
+ i
+ 1,&ip
)])
231 if (!stralloc_cat(&addr
,&liphost
)) die_nomem();
232 if (!stralloc_0(&addr
)) die_nomem();
236 if (addr
.len
> 900) return 0;
243 if (!bmfok
) return 0;
244 if (constmap(&mapbmf
,addr
.s
,addr
.len
- 1)) return 1;
245 j
= byte_rchr(addr
.s
,addr
.len
,'@');
247 if (constmap(&mapbmf
,addr
.s
+ j
,addr
.len
- j
- 1)) return 1;
254 r
= rcpthosts(addr
.s
,str_len(addr
.s
));
255 if (r
== -1) die_control();
261 int flagbarf
; /* defined if seenmail */
262 stralloc mailfrom
= {0};
263 stralloc rcptto
= {0};
265 void smtp_helo(arg
) char *arg
;
267 smtp_greet("250 "); out("\r\n");
268 seenmail
= 0; dohelo(arg
);
270 void smtp_ehlo(arg
) char *arg
;
272 smtp_greet("250-"); out("\r\n250-PIPELINING\r\n250 8BITMIME\r\n");
273 seenmail
= 0; dohelo(arg
);
278 out("250 flushed\r\n");
280 void smtp_mail(arg
) char *arg
;
282 if (!addrparse(arg
)) { err_syntax(); return; }
283 flagbarf
= bmfcheck();
285 if (!stralloc_copys(&rcptto
,"")) die_nomem();
286 if (!stralloc_copys(&mailfrom
,addr
.s
)) die_nomem();
287 if (!stralloc_0(&mailfrom
)) die_nomem();
290 void smtp_rcpt(arg
) char *arg
; {
291 if (!seenmail
) { err_wantmail(); return; }
292 if (!addrparse(arg
)) { err_syntax(); return; }
293 if (flagbarf
) { err_bmf(); return; }
296 if (!stralloc_cats(&addr
,relayclient
)) die_nomem();
297 if (!stralloc_0(&addr
)) die_nomem();
300 if (!addrallowed()) { err_nogateway(); return; }
303 if (addrcheck(ac_fd
, addr
.s
, mailfrom
.s
, &rc
) < 0) {
304 if (errno
== error_nomem
)
311 if (ac_limit
&& ac_count
>= ac_limit
) die_badaddr();
312 if (ac_delay
&& ac_count
>= ac_slow
) sleep(ac_delay
);
317 if (!stralloc_cats(&rcptto
,"T")) die_nomem();
318 if (!stralloc_cats(&rcptto
,addr
.s
)) die_nomem();
319 if (!stralloc_0(&rcptto
)) die_nomem();
324 int saferead(fd
,buf
,len
) int fd
; char *buf
; int len
;
328 r
= timeoutread(timeout
,fd
,buf
,len
);
329 if (r
== -1) if (errno
== error_timeout
) die_alarm();
330 if (r
<= 0) die_read();
335 substdio ssin
= SUBSTDIO_FDBUF(saferead
,0,ssinbuf
,sizeof ssinbuf
);
338 unsigned int bytestooverflow
= 0;
344 if (!--bytestooverflow
)
346 qmail_put(&qqt
,ch
,1);
355 int pos
; /* number of bytes since most recent \n, if fih */
356 int flagmaybex
; /* 1 if this line might match RECEIVED, if fih */
357 int flagmaybey
; /* 1 if this line might match \r\n, if fih */
358 int flagmaybez
; /* 1 if this line might match DELIVERED, if fih */
363 pos
= 0; flagmaybex
= flagmaybey
= flagmaybez
= 1;
365 substdio_get(&ssin
,&ch
,1);
368 if (ch
!= "delivered"[pos
]) if (ch
!= "DELIVERED"[pos
]) flagmaybez
= 0;
369 if (flagmaybez
) if (pos
== 8) ++*hops
;
371 if (ch
!= "received"[pos
]) if (ch
!= "RECEIVED"[pos
]) flagmaybex
= 0;
372 if (flagmaybex
) if (pos
== 7) ++*hops
;
373 if (pos
< 2) if (ch
!= "\r\n"[pos
]) flagmaybey
= 0;
374 if (flagmaybey
) if (pos
== 1) flaginheader
= 0;
377 if (ch
== '\n') { pos
= 0; flagmaybex
= flagmaybey
= flagmaybez
= 1; }
381 if (ch
== '\n') straynewline();
382 if (ch
== '\r') { state
= 4; continue; }
385 if (ch
== '\n') straynewline();
386 if (ch
== '.') { state
= 2; continue; }
387 if (ch
== '\r') { state
= 4; continue; }
390 case 2: /* \r\n + . */
391 if (ch
== '\n') straynewline();
392 if (ch
== '\r') { state
= 3; continue; }
395 case 3: /* \r\n + .\r */
396 if (ch
== '\n') return;
399 if (ch
== '\r') { state
= 4; continue; }
403 if (ch
== '\n') { state
= 1; break; }
404 if (ch
!= '\r') { put("\r"); state
= 0; }
410 char accept_buf
[FMT_ULONG
];
411 void acceptmessage(qp
) unsigned long qp
;
416 accept_buf
[fmt_ulong(accept_buf
,(unsigned long) when
)] = 0;
419 accept_buf
[fmt_ulong(accept_buf
,qp
)] = 0;
429 if (!seenmail
) { err_wantmail(); return; }
430 if (!rcptto
.len
) { err_wantrcpt(); return; }
432 if (databytes
) bytestooverflow
= databytes
+ 1;
433 if (qmail_open(&qqt
) == -1) { err_qqt(); return; }
435 out("354 go ahead\r\n");
437 received(&qqt
,"SMTP",local
,remoteip
,remotehost
,remoteinfo
,fakehelo
);
439 hops
= (hops
>= MAXHOPS
);
440 if (hops
) qmail_fail(&qqt
);
441 qmail_from(&qqt
,mailfrom
.s
);
442 qmail_put(&qqt
,rcptto
.s
,rcptto
.len
);
444 qqx
= qmail_close(&qqt
);
445 if (!*qqx
) { acceptmessage(qp
); return; }
446 if (hops
) { out("554 too many hops, this message is looping (#5.4.6)\r\n"); return; }
447 if (databytes
) if (!bytestooverflow
) { out("552 sorry, that message size exceeds my databytes limit (#5.3.4)\r\n"); return; }
448 if (*qqx
== 'D') out("554 "); else out("451 ");
453 struct commands smtpcommands
[] = {
454 { "rcpt", smtp_rcpt
, 0 }
455 , { "mail", smtp_mail
, 0 }
456 , { "data", smtp_data
, flush
}
457 , { "quit", smtp_quit
, flush
}
458 , { "helo", smtp_helo
, flush
}
459 , { "ehlo", smtp_ehlo
, flush
}
460 , { "rset", smtp_rset
, 0 }
461 , { "help", smtp_help
, flush
}
462 , { "noop", err_noop
, flush
}
463 , { "vrfy", err_vrfy
, flush
}
464 , { 0, err_unimpl
, flush
}
470 if (chdir(auto_qmail
) == -1) die_control();
472 if (ipme_init() != 1) die_ipme();
475 if (commands(&ssin
,&smtpcommands
) == 0) die_read();