(1) $address_data in an ACL was clobbered by a sender verify that
[exim.git] / src / src / acl.c
CommitLineData
2a3eea10 1/* $Cambridge: exim/src/src/acl.c,v 1.4 2004/10/19 13:40:39 ph10 Exp $ */
059ec3d9
PH
2
3/*************************************************
4* Exim - an Internet mail transport agent *
5*************************************************/
6
7/* Copyright (c) University of Cambridge 1995 - 2004 */
8/* See the file NOTICE for conditions of use and distribution. */
9
10/* Code for handling Access Control Lists (ACLs) */
11
12#include "exim.h"
13
14
15/* Default callout timeout */
16
17#define CALLOUT_TIMEOUT_DEFAULT 30
18
19/* ACL verb codes - keep in step with the table of verbs that follows */
20
21enum { ACL_ACCEPT, ACL_DEFER, ACL_DENY, ACL_DISCARD, ACL_DROP, ACL_REQUIRE,
22 ACL_WARN };
23
24/* ACL verbs */
25
26static uschar *verbs[] =
27 { US"accept", US"defer", US"deny", US"discard", US"drop", US"require",
28 US"warn" };
29
30/* For each verb, the condition for which "message" is used */
31
32static int msgcond[] = { FAIL, OK, OK, FAIL, OK, FAIL, OK };
33
34/* ACL condition and modifier codes - keep in step with the table that
35follows. */
36
37enum { ACLC_ACL, ACLC_AUTHENTICATED, ACLC_CONDITION, ACLC_CONTROL, ACLC_DELAY,
38 ACLC_DNSLISTS, ACLC_DOMAINS, ACLC_ENCRYPTED, ACLC_ENDPASS, ACLC_HOSTS,
39 ACLC_LOCAL_PARTS, ACLC_LOG_MESSAGE, ACLC_LOGWRITE, ACLC_MESSAGE,
40 ACLC_RECIPIENTS, ACLC_SENDER_DOMAINS, ACLC_SENDERS, ACLC_SET, ACLC_VERIFY };
41
42/* ACL conditions/modifiers: "delay", "control", "endpass", "message",
43"log_message", "logwrite", and "set" are modifiers that look like conditions
44but always return TRUE. They are used for their side effects. */
45
46static uschar *conditions[] = { US"acl", US"authenticated", US"condition",
47 US"control", US"delay", US"dnslists", US"domains", US"encrypted",
48 US"endpass", US"hosts", US"local_parts", US"log_message", US"logwrite",
49 US"message", US"recipients", US"sender_domains", US"senders", US"set",
50 US"verify" };
c5fcb476
PH
51
52/* ACL control names */
53
54static uschar *controls[] = { US"error", US"caseful_local_part",
55 US"caselower_local_part", US"enforce_sync", US"no_enforce_sync", US"freeze",
56 US"queue_only", US"submission", US"no_multiline"};
059ec3d9
PH
57
58/* Flags to indicate for which conditions /modifiers a string expansion is done
59at the outer level. In the other cases, expansion already occurs in the
60checking functions. */
61
62static uschar cond_expand_at_top[] = {
63 TRUE, /* acl */
64 FALSE, /* authenticated */
65 TRUE, /* condition */
66 TRUE, /* control */
67 TRUE, /* delay */
68 TRUE, /* dnslists */
69 FALSE, /* domains */
70 FALSE, /* encrypted */
71 TRUE, /* endpass */
72 FALSE, /* hosts */
73 FALSE, /* local_parts */
74 TRUE, /* log_message */
75 TRUE, /* logwrite */
76 TRUE, /* message */
77 FALSE, /* recipients */
78 FALSE, /* sender_domains */
79 FALSE, /* senders */
80 TRUE, /* set */
81 TRUE /* verify */
82};
83
84/* Flags to identify the modifiers */
85
86static uschar cond_modifiers[] = {
87 FALSE, /* acl */
88 FALSE, /* authenticated */
89 FALSE, /* condition */
90 TRUE, /* control */
91 TRUE, /* delay */
92 FALSE, /* dnslists */
93 FALSE, /* domains */
94 FALSE, /* encrypted */
95 TRUE, /* endpass */
96 FALSE, /* hosts */
97 FALSE, /* local_parts */
98 TRUE, /* log_message */
99 TRUE, /* log_write */
100 TRUE, /* message */
101 FALSE, /* recipients */
102 FALSE, /* sender_domains */
103 FALSE, /* senders */
104 TRUE, /* set */
105 FALSE /* verify */
106};
107
c5fcb476
PH
108/* Bit map vector of which conditions are not allowed at certain times. For
109each condition, there's a bitmap of dis-allowed times. */
059ec3d9
PH
110
111static unsigned int cond_forbids[] = {
112 0, /* acl */
113 (1<<ACL_WHERE_NOTSMTP)|(1<<ACL_WHERE_CONNECT)| /* authenticated */
114 (1<<ACL_WHERE_HELO),
115 0, /* condition */
116
117 /* Certain types of control are always allowed, so we let it through
118 always and check in the control processing itself */
119
120 0, /* control */
121 0, /* delay */
122 (1<<ACL_WHERE_NOTSMTP), /* dnslists */
123
124 (1<<ACL_WHERE_NOTSMTP)|(1<<ACL_WHERE_AUTH)| /* domains */
125 (1<<ACL_WHERE_CONNECT)|(1<<ACL_WHERE_HELO)|
126 (1<<ACL_WHERE_DATA)|(1<<ACL_WHERE_PREDATA)|
127 (1<<ACL_WHERE_ETRN)|(1<<ACL_WHERE_EXPN)|
128 (1<<ACL_WHERE_MAILAUTH)|(1<<ACL_WHERE_QUIT)|
129 (1<<ACL_WHERE_MAIL)|(1<<ACL_WHERE_STARTTLS)|
130 (1<<ACL_WHERE_VRFY),
131
132 (1<<ACL_WHERE_NOTSMTP)|(1<<ACL_WHERE_CONNECT)| /* encrypted */
133 (1<<ACL_WHERE_HELO),
134 0, /* endpass */
135 (1<<ACL_WHERE_NOTSMTP), /* hosts */
136
137 (1<<ACL_WHERE_NOTSMTP)|(1<<ACL_WHERE_AUTH)| /* local_parts */
138 (1<<ACL_WHERE_CONNECT)|(1<<ACL_WHERE_HELO)|
139 (1<<ACL_WHERE_DATA)|(1<<ACL_WHERE_PREDATA)|
140 (1<<ACL_WHERE_ETRN)|(1<<ACL_WHERE_EXPN)|
141 (1<<ACL_WHERE_MAILAUTH)|(1<<ACL_WHERE_QUIT)|
142 (1<<ACL_WHERE_MAIL)|(1<<ACL_WHERE_STARTTLS)|
143 (1<<ACL_WHERE_VRFY),
144
145 0, /* log_message */
146 0, /* logwrite */
147 0, /* message */
148
149 (1<<ACL_WHERE_NOTSMTP)|(1<<ACL_WHERE_AUTH)| /* recipients */
150 (1<<ACL_WHERE_CONNECT)|(1<<ACL_WHERE_HELO)|
151 (1<<ACL_WHERE_DATA)|(1<<ACL_WHERE_PREDATA)|
152 (1<<ACL_WHERE_ETRN)|(1<<ACL_WHERE_EXPN)|
153 (1<<ACL_WHERE_MAILAUTH)|(1<<ACL_WHERE_QUIT)|
154 (1<<ACL_WHERE_MAIL)|(1<<ACL_WHERE_STARTTLS)|
155 (1<<ACL_WHERE_VRFY),
156
157 (1<<ACL_WHERE_AUTH)|(1<<ACL_WHERE_CONNECT)| /* sender_domains */
158 (1<<ACL_WHERE_HELO)|
159 (1<<ACL_WHERE_MAILAUTH)|(1<<ACL_WHERE_QUIT)|
160 (1<<ACL_WHERE_ETRN)|(1<<ACL_WHERE_EXPN)|
161 (1<<ACL_WHERE_STARTTLS)|(1<<ACL_WHERE_VRFY),
162
163 (1<<ACL_WHERE_AUTH)|(1<<ACL_WHERE_CONNECT)| /* senders */
164 (1<<ACL_WHERE_HELO)|
165 (1<<ACL_WHERE_MAILAUTH)|(1<<ACL_WHERE_QUIT)|
166 (1<<ACL_WHERE_ETRN)|(1<<ACL_WHERE_EXPN)|
167 (1<<ACL_WHERE_STARTTLS)|(1<<ACL_WHERE_VRFY),
168
169 0, /* set */
170
171 /* Certain types of verify are always allowed, so we let it through
172 always and check in the verify function itself */
173
174 0 /* verify */
059ec3d9
PH
175};
176
177
178/* Return values from decode_control() */
179
180enum { CONTROL_ERROR, CONTROL_CASEFUL_LOCAL_PART, CONTROL_CASELOWER_LOCAL_PART,
181 CONTROL_ENFORCE_SYNC, CONTROL_NO_ENFORCE_SYNC, CONTROL_FREEZE,
182 CONTROL_QUEUE_ONLY, CONTROL_SUBMISSION, CONTROL_NO_MULTILINE };
183
c5fcb476
PH
184/* Bit map vector of which controls are not allowed at certain times. For
185each control, there's a bitmap of dis-allowed times. For some, it is easier to
186specify the negation of a small number of allowed times. */
187
188static unsigned int control_forbids[] = {
189 0, /* error */
190 ~(1<<ACL_WHERE_RCPT), /* caseful_local_part */
191 ~(1<<ACL_WHERE_RCPT), /* caselower_local_part */
192 (1<<ACL_WHERE_NOTSMTP), /* enforce_sync */
193 (1<<ACL_WHERE_NOTSMTP), /* no_enforce_sync */
194
195 ~((1<<ACL_WHERE_MAIL)|(1<<ACL_WHERE_RCPT)| /* freeze */
196 (1<<ACL_WHERE_PREDATA)|(1<<ACL_WHERE_DATA)|
197 (1<<ACL_WHERE_NOTSMTP)),
198
199 ~((1<<ACL_WHERE_MAIL)|(1<<ACL_WHERE_RCPT)| /* queue_only */
200 (1<<ACL_WHERE_PREDATA)|(1<<ACL_WHERE_DATA)|
201 (1<<ACL_WHERE_NOTSMTP)),
202
203 ~((1<<ACL_WHERE_MAIL)|(1<<ACL_WHERE_RCPT)| /* submission */
204 (1<<ACL_WHERE_PREDATA)),
205
206 (1<<ACL_WHERE_NOTSMTP) /* no_multiline */
207};
208
209/* Structure listing various control arguments, with their characteristics. */
059ec3d9
PH
210
211typedef struct control_def {
212 uschar *name;
213 int value; /* CONTROL_xxx value */
059ec3d9
PH
214 BOOL has_option; /* Has /option(s) following */
215} control_def;
216
217static control_def controls_list[] = {
c5fcb476
PH
218 { US"caseful_local_part", CONTROL_CASEFUL_LOCAL_PART, FALSE},
219 { US"caselower_local_part", CONTROL_CASELOWER_LOCAL_PART, FALSE},
220 { US"enforce_sync", CONTROL_ENFORCE_SYNC, FALSE},
221 { US"freeze", CONTROL_FREEZE, FALSE},
222 { US"no_enforce_sync", CONTROL_NO_ENFORCE_SYNC, FALSE},
223 { US"no_multiline_responses", CONTROL_NO_MULTILINE, FALSE},
224 { US"queue_only", CONTROL_QUEUE_ONLY, FALSE},
225 { US"submission", CONTROL_SUBMISSION, TRUE}
059ec3d9
PH
226 };
227
228/* Enable recursion between acl_check_internal() and acl_check_condition() */
229
230static int acl_check_internal(int, address_item *, uschar *, int, uschar **,
231 uschar **);
232
233
234/*************************************************
235* Pick out name from list *
236*************************************************/
237
238/* Use a binary chop method
239
240Arguments:
241 name name to find
242 list list of names
243 end size of list
244
245Returns: offset in list, or -1 if not found
246*/
247
248static int
249acl_checkname(uschar *name, uschar **list, int end)
250{
251int start = 0;
252
253while (start < end)
254 {
255 int mid = (start + end)/2;
256 int c = Ustrcmp(name, list[mid]);
257 if (c == 0) return mid;
258 if (c < 0) end = mid; else start = mid + 1;
259 }
260
261return -1;
262}
263
264
265/*************************************************
266* Read and parse one ACL *
267*************************************************/
268
269/* This function is called both from readconf in order to parse the ACLs in the
270configuration file, and also when an ACL is encountered dynamically (e.g. as
271the result of an expansion). It is given a function to call in order to
272retrieve the lines of the ACL. This function handles skipping comments and
273blank lines (where relevant).
274
275Arguments:
276 func function to get next line of ACL
277 error where to put an error message
278
279Returns: pointer to ACL, or NULL
280 NULL can be legal (empty ACL); in this case error will be NULL
281*/
282
283acl_block *
284acl_read(uschar *(*func)(void), uschar **error)
285{
286acl_block *yield = NULL;
287acl_block **lastp = &yield;
288acl_block *this = NULL;
289acl_condition_block *cond;
290acl_condition_block **condp = NULL;
291uschar *s;
292
293*error = NULL;
294
295while ((s = (*func)()) != NULL)
296 {
297 int v, c;
298 BOOL negated = FALSE;
299 uschar *saveline = s;
300 uschar name[64];
301
302 /* Conditions (but not verbs) are allowed to be negated by an initial
303 exclamation mark. */
304
305 while (isspace(*s)) s++;
306 if (*s == '!')
307 {
308 negated = TRUE;
309 s++;
310 }
311
312 /* Read the name of a verb or a condition, or the start of a new ACL */
313
314 s = readconf_readname(name, sizeof(name), s);
315 if (*s == ':')
316 {
317 if (negated || name[0] == 0)
318 {
319 *error = string_sprintf("malformed ACL name in \"%s\"", saveline);
320 return NULL;
321 }
322 break;
323 }
324
325 /* If a verb is unrecognized, it may be another condition or modifier that
326 continues the previous verb. */
327
328 v = acl_checkname(name, verbs, sizeof(verbs)/sizeof(char *));
329 if (v < 0)
330 {
331 if (this == NULL)
332 {
333 *error = string_sprintf("unknown ACL verb in \"%s\"", saveline);
334 return NULL;
335 }
336 }
337
338 /* New verb */
339
340 else
341 {
342 if (negated)
343 {
344 *error = string_sprintf("malformed ACL line \"%s\"", saveline);
345 return NULL;
346 }
347 this = store_get(sizeof(acl_block));
348 *lastp = this;
349 lastp = &(this->next);
350 this->next = NULL;
351 this->verb = v;
352 this->condition = NULL;
353 condp = &(this->condition);
354 if (*s == 0) continue; /* No condition on this line */
355 if (*s == '!')
356 {
357 negated = TRUE;
358 s++;
359 }
360 s = readconf_readname(name, sizeof(name), s); /* Condition name */
361 }
362
363 /* Handle a condition or modifier. */
364
365 c = acl_checkname(name, conditions, sizeof(conditions)/sizeof(char *));
366 if (c < 0)
367 {
368 *error = string_sprintf("unknown ACL condition/modifier in \"%s\"",
369 saveline);
370 return NULL;
371 }
372
373 /* The modifiers may not be negated */
374
375 if (negated && cond_modifiers[c])
376 {
377 *error = string_sprintf("ACL error: negation is not allowed with "
378 "\"%s\"", conditions[c]);
379 return NULL;
380 }
381
382 /* ENDPASS may occur only with ACCEPT or DISCARD. */
383
384 if (c == ACLC_ENDPASS &&
385 this->verb != ACL_ACCEPT &&
386 this->verb != ACL_DISCARD)
387 {
388 *error = string_sprintf("ACL error: \"%s\" is not allowed with \"%s\"",
389 conditions[c], verbs[this->verb]);
390 return NULL;
391 }
392
393 cond = store_get(sizeof(acl_condition_block));
394 cond->next = NULL;
395 cond->type = c;
396 cond->u.negated = negated;
397
398 *condp = cond;
399 condp = &(cond->next);
400
401 /* The "set" modifier is different in that its argument is "name=value"
402 rather than just a value, and we can check the validity of the name, which
403 gives us a variable number to insert into the data block. */
404
405 if (c == ACLC_SET)
406 {
407 if (Ustrncmp(s, "acl_", 4) != 0 || (s[4] != 'c' && s[4] != 'm') ||
408 !isdigit(s[5]) || (!isspace(s[6]) && s[6] != '='))
409 {
410 *error = string_sprintf("unrecognized name after \"set\" in ACL "
411 "modifier \"set %s\"", s);
412 return NULL;
413 }
414
415 cond->u.varnumber = s[5] - '0';
416 if (s[4] == 'm') cond->u.varnumber += ACL_C_MAX;
417 s += 6;
418 while (isspace(*s)) s++;
419 }
420
421 /* For "set", we are now positioned for the data. For the others, only
422 "endpass" has no data */
423
424 if (c != ACLC_ENDPASS)
425 {
426 if (*s++ != '=')
427 {
428 *error = string_sprintf("\"=\" missing after ACL \"%s\" %s", name,
429 cond_modifiers[c]? US"modifier" : US"condition");
430 return NULL;
431 }
432 while (isspace(*s)) s++;
433 cond->arg = string_copy(s);
434 }
435 }
436
437return yield;
438}
439
440
441
442/*************************************************
443* Handle warnings *
444*************************************************/
445
446/* This function is called when a WARN verb's conditions are true. It adds to
447the message's headers, and/or writes information to the log. In each case, this
448only happens once (per message for headers, per connection for log).
449
450Arguments:
451 where ACL_WHERE_xxxx indicating which ACL this is
452 user_message message for adding to headers
453 log_message message for logging, if different
454
455Returns: nothing
456*/
457
458static void
459acl_warn(int where, uschar *user_message, uschar *log_message)
460{
461int hlen;
462
463if (log_message != NULL && log_message != user_message)
464 {
465 uschar *text;
466 string_item *logged;
467
468 text = string_sprintf("%s Warning: %s", host_and_ident(TRUE),
469 string_printing(log_message));
470
471 /* If a sender verification has failed, and the log message is "sender verify
472 failed", add the failure message. */
473
474 if (sender_verified_failed != NULL &&
475 sender_verified_failed->message != NULL &&
476 strcmpic(log_message, US"sender verify failed") == 0)
477 text = string_sprintf("%s: %s", text, sender_verified_failed->message);
478
479 /* Search previously logged warnings. They are kept in malloc store so they
480 can be freed at the start of a new message. */
481
482 for (logged = acl_warn_logged; logged != NULL; logged = logged->next)
483 if (Ustrcmp(logged->text, text) == 0) break;
484
485 if (logged == NULL)
486 {
487 int length = Ustrlen(text) + 1;
488 log_write(0, LOG_MAIN, "%s", text);
489 logged = store_malloc(sizeof(string_item) + length);
490 logged->text = (uschar *)logged + sizeof(string_item);
491 memcpy(logged->text, text, length);
492 logged->next = acl_warn_logged;
493 acl_warn_logged = logged;
494 }
495 }
496
497/* If there's no user message, we are done. */
498
499if (user_message == NULL) return;
500
501/* If this isn't a message ACL, we can't do anything with a user message.
502Log an error. */
503
504if (where > ACL_WHERE_NOTSMTP)
505 {
506 log_write(0, LOG_MAIN|LOG_PANIC, "ACL \"warn\" with \"message\" setting "
507 "found in a non-message (%s) ACL: cannot specify header lines here: "
508 "message ignored", acl_wherenames[where]);
509 return;
510 }
511
512/* Treat the user message as a sequence of one or more header lines. */
513
514hlen = Ustrlen(user_message);
515if (hlen > 0)
516 {
517 uschar *text, *p, *q;
518
519 /* Add a final newline if not present */
520
521 text = ((user_message)[hlen-1] == '\n')? user_message :
522 string_sprintf("%s\n", user_message);
523
524 /* Loop for multiple header lines, taking care about continuations */
525
526 for (p = q = text; *p != 0; )
527 {
528 uschar *s;
529 int newtype = htype_add_bot;
530 header_line **hptr = &acl_warn_headers;
531
532 /* Find next header line within the string */
533
534 for (;;)
535 {
536 q = Ustrchr(q, '\n');
537 if (*(++q) != ' ' && *q != '\t') break;
538 }
539
540 /* If the line starts with a colon, interpret the instruction for where to
541 add it. This temporarily sets up a new type. */
542
543 if (*p == ':')
544 {
545 if (strncmpic(p, US":after_received:", 16) == 0)
546 {
547 newtype = htype_add_rec;
548 p += 16;
549 }
550 else if (strncmpic(p, US":at_start:", 10) == 0)
551 {
552 newtype = htype_add_top;
553 p += 10;
554 }
555 else if (strncmpic(p, US":at_end:", 8) == 0)
556 {
557 newtype = htype_add_bot;
558 p += 8;
559 }
560 while (*p == ' ' || *p == '\t') p++;
561 }
562
563 /* See if this line starts with a header name, and if not, add X-ACL-Warn:
564 to the front of it. */
565
566 for (s = p; s < q - 1; s++)
567 {
568 if (*s == ':' || !isgraph(*s)) break;
569 }
570
571 s = string_sprintf("%s%.*s", (*s == ':')? "" : "X-ACL-Warn: ", q - p, p);
572 hlen = Ustrlen(s);
573
574 /* See if this line has already been added */
575
576 while (*hptr != NULL)
577 {
578 if (Ustrncmp((*hptr)->text, s, hlen) == 0) break;
579 hptr = &((*hptr)->next);
580 }
581
582 /* Add if not previously present */
583
584 if (*hptr == NULL)
585 {
586 header_line *h = store_get(sizeof(header_line));
587 h->text = s;
588 h->next = NULL;
589 h->type = newtype;
590 h->slen = hlen;
591 *hptr = h;
592 hptr = &(h->next);
593 }
594
595 /* Advance for next header line within the string */
596
597 p = q;
598 }
599 }
600}
601
602
603
604/*************************************************
605* Verify and check reverse DNS *
606*************************************************/
607
608/* Called from acl_verify() below. We look up the host name(s) of the client IP
609address if this has not yet been done. The host_name_lookup() function checks
610that one of these names resolves to an address list that contains the client IP
611address, so we don't actually have to do the check here.
612
613Arguments:
614 user_msgptr pointer for user message
615 log_msgptr pointer for log message
616
617Returns: OK verification condition succeeded
618 FAIL verification failed
619 DEFER there was a problem verifying
620*/
621
622static int
623acl_verify_reverse(uschar **user_msgptr, uschar **log_msgptr)
624{
625int rc;
626
627user_msgptr = user_msgptr; /* stop compiler warning */
628
629/* Previous success */
630
631if (sender_host_name != NULL) return OK;
632
633/* Previous failure */
634
635if (host_lookup_failed)
636 {
637 *log_msgptr = string_sprintf("host lookup failed%s", host_lookup_msg);
638 return FAIL;
639 }
640
641/* Need to do a lookup */
642
643HDEBUG(D_acl)
644 debug_printf("looking up host name to force name/address consistency check\n");
645
646if ((rc = host_name_lookup()) != OK)
647 {
648 *log_msgptr = (rc == DEFER)?
649 US"host lookup deferred for reverse lookup check"
650 :
651 string_sprintf("host lookup failed for reverse lookup check%s",
652 host_lookup_msg);
653 return rc; /* DEFER or FAIL */
654 }
655
656host_build_sender_fullhost();
657return OK;
658}
659
660
661
662/*************************************************
663* Handle verification (address & other) *
664*************************************************/
665
666/* This function implements the "verify" condition. It is called when
667encountered in any ACL, because some tests are almost always permitted. Some
668just don't make sense, and always fail (for example, an attempt to test a host
669lookup for a non-TCP/IP message). Others are restricted to certain ACLs.
670
671Arguments:
672 where where called from
673 addr the recipient address that the ACL is handling, or NULL
674 arg the argument of "verify"
675 user_msgptr pointer for user message
676 log_msgptr pointer for log message
677 basic_errno where to put verify errno
678
679Returns: OK verification condition succeeded
680 FAIL verification failed
681 DEFER there was a problem verifying
682 ERROR syntax error
683*/
684
685static int
686acl_verify(int where, address_item *addr, uschar *arg,
687 uschar **user_msgptr, uschar **log_msgptr, int *basic_errno)
688{
689int sep = '/';
690int callout = -1;
691int callout_overall = -1;
692int verify_options = 0;
693int rc;
694BOOL verify_header_sender = FALSE;
695BOOL defer_ok = FALSE;
696BOOL callout_defer_ok = FALSE;
697BOOL no_details = FALSE;
698address_item *sender_vaddr = NULL;
699uschar *verify_sender_address = NULL;
700uschar *pm_mailfrom = NULL;
701uschar *se_mailfrom = NULL;
702uschar *list = arg;
703uschar *ss = string_nextinlist(&list, &sep, big_buffer, big_buffer_size);
704
705if (ss == NULL) goto BAD_VERIFY;
706
707/* Handle name/address consistency verification in a separate function. */
708
709if (strcmpic(ss, US"reverse_host_lookup") == 0)
710 {
711 if (sender_host_address == NULL) return OK;
712 return acl_verify_reverse(user_msgptr, log_msgptr);
713 }
714
715/* TLS certificate verification is done at STARTTLS time; here we just
716test whether it was successful or not. (This is for optional verification; for
717mandatory verification, the connection doesn't last this long.) */
718
719if (strcmpic(ss, US"certificate") == 0)
720 {
721 if (tls_certificate_verified) return OK;
722 *user_msgptr = US"no verified certificate";
723 return FAIL;
724 }
725
726/* We can test the result of optional HELO verification */
727
728if (strcmpic(ss, US"helo") == 0) return helo_verified? OK : FAIL;
729
730/* Handle header verification options - permitted only after DATA or a non-SMTP
731message. */
732
733if (strncmpic(ss, US"header_", 7) == 0)
734 {
735 if (where != ACL_WHERE_DATA && where != ACL_WHERE_NOTSMTP)
736 {
737 *log_msgptr = string_sprintf("cannot check header contents in ACL for %s "
738 "(only possible in ACL for DATA)", acl_wherenames[where]);
739 return ERROR;
740 }
741
742 /* Check that all relevant header lines have the correct syntax. If there is
743 a syntax error, we return details of the error to the sender if configured to
744 send out full details. (But a "message" setting on the ACL can override, as
745 always). */
746
747 if (strcmpic(ss+7, US"syntax") == 0)
748 {
749 int rc = verify_check_headers(log_msgptr);
750 if (rc != OK && smtp_return_error_details && *log_msgptr != NULL)
751 *user_msgptr = string_sprintf("Rejected after DATA: %s", *log_msgptr);
752 return rc;
753 }
754
755 /* Check that there is at least one verifiable sender address in the relevant
756 header lines. This can be followed by callout and defer options, just like
757 sender and recipient. */
758
759 else if (strcmpic(ss+7, US"sender") == 0) verify_header_sender = TRUE;
760
761 /* Unknown verify argument starting with "header_" */
762
763 else goto BAD_VERIFY;
764 }
765
766/* Otherwise, first item in verify argument must be "sender" or "recipient".
767In the case of a sender, this can optionally be followed by an address to use
768in place of the actual sender (rare special-case requirement). */
769
770else if (strncmpic(ss, US"sender", 6) == 0)
771 {
772 uschar *s = ss + 6;
773 if (where > ACL_WHERE_NOTSMTP)
774 {
775 *log_msgptr = string_sprintf("cannot verify sender in ACL for %s "
776 "(only possible for MAIL, RCPT, PREDATA, or DATA)",
777 acl_wherenames[where]);
778 return ERROR;
779 }
780 if (*s == 0)
781 verify_sender_address = sender_address;
782 else
783 {
784 while (isspace(*s)) s++;
785 if (*s++ != '=') goto BAD_VERIFY;
786 while (isspace(*s)) s++;
787 verify_sender_address = string_copy(s);
788 }
789 }
790else
791 {
792 if (strcmpic(ss, US"recipient") != 0) goto BAD_VERIFY;
793 if (addr == NULL)
794 {
795 *log_msgptr = string_sprintf("cannot verify recipient in ACL for %s "
796 "(only possible for RCPT)", acl_wherenames[where]);
797 return ERROR;
798 }
799 }
800
801/* Remaining items are optional */
802
803while ((ss = string_nextinlist(&list, &sep, big_buffer, big_buffer_size))
804 != NULL)
805 {
806 if (strcmpic(ss, US"defer_ok") == 0) defer_ok = TRUE;
807 else if (strcmpic(ss, US"no_details") == 0) no_details = TRUE;
808
809 /* These two old options are left for backwards compatibility */
810
811 else if (strcmpic(ss, US"callout_defer_ok") == 0)
812 {
813 callout_defer_ok = TRUE;
814 if (callout == -1) callout = CALLOUT_TIMEOUT_DEFAULT;
815 }
816
817 else if (strcmpic(ss, US"check_postmaster") == 0)
818 {
819 pm_mailfrom = US"";
820 if (callout == -1) callout = CALLOUT_TIMEOUT_DEFAULT;
821 }
822
823 /* The callout option has a number of sub-options, comma separated */
824
825 else if (strncmpic(ss, US"callout", 7) == 0)
826 {
827 callout = CALLOUT_TIMEOUT_DEFAULT;
828 ss += 7;
829 if (*ss != 0)
830 {
831 while (isspace(*ss)) ss++;
832 if (*ss++ == '=')
833 {
834 int optsep = ',';
835 uschar *opt;
836 uschar buffer[256];
837 while (isspace(*ss)) ss++;
838 while ((opt = string_nextinlist(&ss, &optsep, buffer, sizeof(buffer)))
839 != NULL)
840 {
841 if (strcmpic(opt, US"defer_ok") == 0) callout_defer_ok = TRUE;
842 else if (strcmpic(opt, US"no_cache") == 0)
843 verify_options |= vopt_callout_no_cache;
844 else if (strcmpic(opt, US"random") == 0)
845 verify_options |= vopt_callout_random;
846 else if (strcmpic(opt, US"use_sender") == 0)
847 verify_options |= vopt_callout_recipsender;
848 else if (strcmpic(opt, US"use_postmaster") == 0)
849 verify_options |= vopt_callout_recippmaster;
850 else if (strcmpic(opt, US"postmaster") == 0) pm_mailfrom = US"";
851
852 else if (strncmpic(opt, US"mailfrom", 8) == 0)
853 {
854 if (!verify_header_sender)
855 {
856 *log_msgptr = string_sprintf("\"mailfrom\" is allowed as a "
857 "callout option only for verify=header_sender (detected in ACL "
858 "condition \"%s\")", arg);
859 return ERROR;
860 }
861 opt += 8;
862 while (isspace(*opt)) opt++;
863 if (*opt++ != '=')
864 {
865 *log_msgptr = string_sprintf("'=' expected after "
866 "\"mailfrom\" in ACL condition \"%s\"", arg);
867 return ERROR;
868 }
869 while (isspace(*opt)) opt++;
870 se_mailfrom = string_copy(opt);
871 }
872
873 else if (strncmpic(opt, US"postmaster_mailfrom", 19) == 0)
874 {
875 opt += 19;
876 while (isspace(*opt)) opt++;
877 if (*opt++ != '=')
878 {
879 *log_msgptr = string_sprintf("'=' expected after "
880 "\"postmaster_mailfrom\" in ACL condition \"%s\"", arg);
881 return ERROR;
882 }
883 while (isspace(*opt)) opt++;
884 pm_mailfrom = string_copy(opt);
885 }
886
887 else if (strncmpic(opt, US"maxwait", 7) == 0)
888 {
889 opt += 7;
890 while (isspace(*opt)) opt++;
891 if (*opt++ != '=')
892 {
893 *log_msgptr = string_sprintf("'=' expected after \"maxwait\" in "
894 "ACL condition \"%s\"", arg);
895 return ERROR;
896 }
897 while (isspace(*opt)) opt++;
898 callout_overall = readconf_readtime(opt, 0, FALSE);
899 if (callout_overall < 0)
900 {
901 *log_msgptr = string_sprintf("bad time value in ACL condition "
902 "\"verify %s\"", arg);
903 return ERROR;
904 }
905 }
906 else /* Plain time is callout connect/command timeout */
907 {
908 callout = readconf_readtime(opt, 0, FALSE);
909 if (callout < 0)
910 {
911 *log_msgptr = string_sprintf("bad time value in ACL condition "
912 "\"verify %s\"", arg);
913 return ERROR;
914 }
915 }
916 }
917 }
918 else
919 {
920 *log_msgptr = string_sprintf("'=' expected after \"callout\" in "
921 "ACL condition \"%s\"", arg);
922 return ERROR;
923 }
924 }
925 }
926
927 /* Option not recognized */
928
929 else
930 {
931 *log_msgptr = string_sprintf("unknown option \"%s\" in ACL "
932 "condition \"verify %s\"", ss, arg);
933 return ERROR;
934 }
935 }
936
937if ((verify_options & (vopt_callout_recipsender|vopt_callout_recippmaster)) ==
938 (vopt_callout_recipsender|vopt_callout_recippmaster))
939 {
940 *log_msgptr = US"only one of use_sender and use_postmaster can be set "
941 "for a recipient callout";
942 return ERROR;
943 }
944
945/* Handle sender-in-header verification. Default the user message to the log
946message if giving out verification details. */
947
948if (verify_header_sender)
949 {
950 rc = verify_check_header_address(user_msgptr, log_msgptr, callout,
951 callout_overall, se_mailfrom, pm_mailfrom, verify_options);
952 if (smtp_return_error_details)
953 {
954 if (*user_msgptr == NULL && *log_msgptr != NULL)
955 *user_msgptr = string_sprintf("Rejected after DATA: %s", *log_msgptr);
956 if (rc == DEFER) acl_temp_details = TRUE;
957 }
958 }
959
960/* Handle a sender address. The default is to verify *the* sender address, but
961optionally a different address can be given, for special requirements. If the
962address is empty, we are dealing with a bounce message that has no sender, so
963we cannot do any checking. If the real sender address gets rewritten during
964verification (e.g. DNS widening), set the flag to stop it being rewritten again
965during message reception.
966
967A list of verified "sender" addresses is kept to try to avoid doing to much
968work repetitively when there are multiple recipients in a message and they all
969require sender verification. However, when callouts are involved, it gets too
970complicated because different recipients may require different callout options.
971Therefore, we always do a full sender verify when any kind of callout is
972specified. Caching elsewhere, for instance in the DNS resolver and in the
973callout handling, should ensure that this is not terribly inefficient. */
974
975else if (verify_sender_address != NULL)
976 {
977 if ((verify_options & (vopt_callout_recipsender|vopt_callout_recippmaster))
978 != 0)
979 {
980 *log_msgptr = US"use_sender or use_postmaster cannot be used for a "
981 "sender verify callout";
982 return ERROR;
983 }
984
985 sender_vaddr = verify_checked_sender(verify_sender_address);
986 if (sender_vaddr != NULL && /* Previously checked */
987 callout <= 0) /* No callout needed this time */
988 {
989 /* If the "routed" flag is set, it means that routing worked before, so
990 this check can give OK (the saved return code value, if set, belongs to a
991 callout that was done previously). If the "routed" flag is not set, routing
992 must have failed, so we use the saved return code. */
993
994 if (testflag(sender_vaddr, af_verify_routed)) rc = OK; else
995 {
996 rc = sender_vaddr->special_action;
997 *basic_errno = sender_vaddr->basic_errno;
998 }
999 HDEBUG(D_acl) debug_printf("using cached sender verify result\n");
1000 }
1001
1002 /* Do a new verification, and cache the result. The cache is used to avoid
1003 verifying the sender multiple times for multiple RCPTs when callouts are not
1004 specified (see comments above).
1005
1006 The cache is also used on failure to give details in response to the first
1007 RCPT that gets bounced for this reason. However, this can be suppressed by
1008 the no_details option, which sets the flag that says "this detail has already
1009 been sent". The cache normally contains just one address, but there may be
1010 more in esoteric circumstances. */
1011
1012 else
1013 {
1014 BOOL routed = TRUE;
2a3eea10
PH
1015 uschar *save_address_data = deliver_address_data;
1016
059ec3d9
PH
1017 sender_vaddr = deliver_make_addr(verify_sender_address, TRUE);
1018 if (no_details) setflag(sender_vaddr, af_sverify_told);
1019 if (verify_sender_address[0] != 0)
1020 {
1021 /* If this is the real sender address, save the unrewritten version
1022 for use later in receive. Otherwise, set a flag so that rewriting the
1023 sender in verify_address() does not update sender_address. */
1024
1025 if (verify_sender_address == sender_address)
1026 sender_address_unrewritten = sender_address;
1027 else
1028 verify_options |= vopt_fake_sender;
1029
1030 /* The recipient, qualify, and expn options are never set in
1031 verify_options. */
1032
1033 rc = verify_address(sender_vaddr, NULL, verify_options, callout,
1034 callout_overall, se_mailfrom, pm_mailfrom, &routed);
1035
1036 HDEBUG(D_acl) debug_printf("----------- end verify ------------\n");
1037
1038 if (rc == OK)
1039 {
1040 if (Ustrcmp(sender_vaddr->address, verify_sender_address) != 0)
1041 {
1042 DEBUG(D_acl) debug_printf("sender %s verified ok as %s\n",
1043 verify_sender_address, sender_vaddr->address);
1044 }
1045 else
1046 {
1047 DEBUG(D_acl) debug_printf("sender %s verified ok\n",
1048 verify_sender_address);
1049 }
1050 }
1051 else *basic_errno = sender_vaddr->basic_errno;
1052 }
1053 else rc = OK; /* Null sender */
1054
1055 /* Cache the result code */
1056
1057 if (routed) setflag(sender_vaddr, af_verify_routed);
1058 if (callout > 0) setflag(sender_vaddr, af_verify_callout);
1059 sender_vaddr->special_action = rc;
1060 sender_vaddr->next = sender_verified_list;
1061 sender_verified_list = sender_vaddr;
2a3eea10
PH
1062
1063 /* Restore the recipient address data, which might have been clobbered by
1064 the sender verification. */
1065
1066 deliver_address_data = save_address_data;
059ec3d9 1067 }
2a3eea10
PH
1068
1069 /* Put the sender address_data value into $sender_address_data */
1070
1071 sender_address_data = sender_vaddr->p.address_data;
059ec3d9
PH
1072 }
1073
1074/* A recipient address just gets a straightforward verify; again we must handle
1075the DEFER overrides. */
1076
1077else
1078 {
1079 address_item addr2;
1080
1081 /* We must use a copy of the address for verification, because it might
1082 get rewritten. */
1083
1084 addr2 = *addr;
1085 rc = verify_address(&addr2, NULL, verify_options|vopt_is_recipient, callout,
1086 callout_overall, se_mailfrom, pm_mailfrom, NULL);
1087 HDEBUG(D_acl) debug_printf("----------- end verify ------------\n");
1088 *log_msgptr = addr2.message;
1089 *user_msgptr = addr2.user_message;
1090 *basic_errno = addr2.basic_errno;
1091
1092 /* Make $address_data visible */
1093 deliver_address_data = addr2.p.address_data;
1094 }
1095
1096/* We have a result from the relevant test. Handle defer overrides first. */
1097
1098if (rc == DEFER && (defer_ok ||
1099 (callout_defer_ok && *basic_errno == ERRNO_CALLOUTDEFER)))
1100 {
1101 HDEBUG(D_acl) debug_printf("verify defer overridden by %s\n",
1102 defer_ok? "defer_ok" : "callout_defer_ok");
1103 rc = OK;
1104 }
1105
1106/* If we've failed a sender, set up a recipient message, and point
1107sender_verified_failed to the address item that actually failed. */
1108
1109if (rc != OK && verify_sender_address != NULL)
1110 {
1111 if (rc != DEFER)
1112 {
1113 *log_msgptr = *user_msgptr = US"Sender verify failed";
1114 }
1115 else if (*basic_errno != ERRNO_CALLOUTDEFER)
1116 {
1117 *log_msgptr = *user_msgptr = US"Could not complete sender verify";
1118 }
1119 else
1120 {
1121 *log_msgptr = US"Could not complete sender verify callout";
1122 *user_msgptr = smtp_return_error_details? sender_vaddr->user_message :
1123 *log_msgptr;
1124 }
1125
1126 sender_verified_failed = sender_vaddr;
1127 }
1128
1129/* Verifying an address messes up the values of $domain and $local_part,
1130so reset them before returning if this is a RCPT ACL. */
1131
1132if (addr != NULL)
1133 {
1134 deliver_domain = addr->domain;
1135 deliver_localpart = addr->local_part;
1136 }
1137return rc;
1138
1139/* Syntax errors in the verify argument come here. */
1140
1141BAD_VERIFY:
1142*log_msgptr = string_sprintf("expected \"sender[=address]\", \"recipient\", "
1143 "\"header_syntax\" or \"header_sender\" at start of ACL condition "
1144 "\"verify %s\"", arg);
1145return ERROR;
1146}
1147
1148
1149
1150
1151/*************************************************
1152* Check argument for control= modifier *
1153*************************************************/
1154
1155/* Called from acl_check_condition() below
1156
1157Arguments:
1158 arg the argument string for control=
1159 pptr set to point to the terminating character
1160 where which ACL we are in
1161 log_msgptr for error messages
1162
1163Returns: CONTROL_xxx value
1164*/
1165
1166static int
1167decode_control(uschar *arg, uschar **pptr, int where, uschar **log_msgptr)
1168{
1169int len;
1170control_def *d;
1171
1172for (d = controls_list;
1173 d < controls_list + sizeof(controls_list)/sizeof(control_def);
1174 d++)
1175 {
1176 len = Ustrlen(d->name);
1177 if (Ustrncmp(d->name, arg, len) == 0) break;
1178 }
1179
1180if (d >= controls_list + sizeof(controls_list)/sizeof(control_def) ||
1181 (arg[len] != 0 && (!d->has_option || arg[len] != '/')))
1182 {
1183 *log_msgptr = string_sprintf("syntax error in \"control=%s\"", arg);
1184 return CONTROL_ERROR;
1185 }
1186
059ec3d9
PH
1187*pptr = arg + len;
1188return d->value;
1189}
1190
1191
1192
1193/*************************************************
1194* Handle conditions/modifiers on an ACL item *
1195*************************************************/
1196
1197/* Called from acl_check() below.
1198
1199Arguments:
1200 verb ACL verb
1201 cb ACL condition block - if NULL, result is OK
1202 where where called from
1203 addr the address being checked for RCPT, or NULL
1204 level the nesting level
1205 epp pointer to pass back TRUE if "endpass" encountered
1206 (applies only to "accept" and "discard")
1207 user_msgptr user message pointer
1208 log_msgptr log message pointer
1209 basic_errno pointer to where to put verify error
1210
1211Returns: OK - all conditions are met
1212 DISCARD - an "acl" condition returned DISCARD - only allowed
1213 for "accept" or "discard" verbs
1214 FAIL - at least one condition fails
1215 FAIL_DROP - an "acl" condition returned FAIL_DROP
1216 DEFER - can't tell at the moment (typically, lookup defer,
1217 but can be temporary callout problem)
1218 ERROR - ERROR from nested ACL or expansion failure or other
1219 error
1220*/
1221
1222static int
1223acl_check_condition(int verb, acl_condition_block *cb, int where,
1224 address_item *addr, int level, BOOL *epp, uschar **user_msgptr,
1225 uschar **log_msgptr, int *basic_errno)
1226{
1227uschar *user_message = NULL;
1228uschar *log_message = NULL;
1229uschar *p;
1230int rc = OK;
1231
1232for (; cb != NULL; cb = cb->next)
1233 {
1234 uschar *arg;
c5fcb476 1235 int control_type;
059ec3d9
PH
1236
1237 /* The message and log_message items set up messages to be used in
1238 case of rejection. They are expanded later. */
1239
1240 if (cb->type == ACLC_MESSAGE)
1241 {
1242 user_message = cb->arg;
1243 continue;
1244 }
1245
1246 if (cb->type == ACLC_LOG_MESSAGE)
1247 {
1248 log_message = cb->arg;
1249 continue;
1250 }
1251
1252 /* The endpass "condition" just sets a flag to show it occurred. This is
1253 checked at compile time to be on an "accept" or "discard" item. */
1254
1255 if (cb->type == ACLC_ENDPASS)
1256 {
1257 *epp = TRUE;
1258 continue;
1259 }
1260
1261 /* For other conditions and modifiers, the argument is expanded now for some
1262 of them, but not for all, because expansion happens down in some lower level
1263 checking functions in some cases. */
1264
1265 if (cond_expand_at_top[cb->type])
1266 {
1267 arg = expand_string(cb->arg);
1268 if (arg == NULL)
1269 {
1270 if (expand_string_forcedfail) continue;
1271 *log_msgptr = string_sprintf("failed to expand ACL string \"%s\": %s",
1272 cb->arg, expand_string_message);
1273 return search_find_defer? DEFER : ERROR;
1274 }
1275 }
1276 else arg = cb->arg;
1277
1278 /* Show condition, and expanded condition if it's different */
1279
1280 HDEBUG(D_acl)
1281 {
1282 int lhswidth = 0;
1283 debug_printf("check %s%s %n",
1284 (!cond_modifiers[cb->type] && cb->u.negated)? "!":"",
1285 conditions[cb->type], &lhswidth);
1286
1287 if (cb->type == ACLC_SET)
1288 {
1289 int n = cb->u.varnumber;
1290 int t = (n < ACL_C_MAX)? 'c' : 'm';
1291 if (n >= ACL_C_MAX) n -= ACL_C_MAX;
1292 debug_printf("acl_%c%d ", t, n);
1293 lhswidth += 7;
1294 }
1295
1296 debug_printf("= %s\n", cb->arg);
1297
1298 if (arg != cb->arg)
1299 debug_printf("%.*s= %s\n", lhswidth,
1300 US" ", CS arg);
1301 }
1302
1303 /* Check that this condition makes sense at this time */
1304
1305 if ((cond_forbids[cb->type] & (1 << where)) != 0)
1306 {
1307 *log_msgptr = string_sprintf("cannot %s %s condition in %s ACL",
1308 cond_modifiers[cb->type]? "use" : "test",
1309 conditions[cb->type], acl_wherenames[where]);
1310 return ERROR;
1311 }
1312
1313 /* Run the appropriate test for each condition, or take the appropriate
1314 action for the remaining modifiers. */
1315
1316 switch(cb->type)
1317 {
1318 /* A nested ACL that returns "discard" makes sense only for an "accept" or
1319 "discard" verb. */
1320
1321 case ACLC_ACL:
1322 rc = acl_check_internal(where, addr, arg, level+1, user_msgptr, log_msgptr);
1323 if (rc == DISCARD && verb != ACL_ACCEPT && verb != ACL_DISCARD)
1324 {
1325 *log_msgptr = string_sprintf("nested ACL returned \"discard\" for "
1326 "\"%s\" command (only allowed with \"accept\" or \"discard\")",
1327 verbs[verb]);
1328 return ERROR;
1329 }
1330 break;
1331
1332 case ACLC_AUTHENTICATED:
1333 rc = (sender_host_authenticated == NULL)? FAIL :
1334 match_isinlist(sender_host_authenticated, &arg, 0, NULL, NULL, MCL_STRING,
1335 TRUE, NULL);
1336 break;
1337
1338 case ACLC_CONDITION:
1339 if (Ustrspn(arg, "0123456789") == Ustrlen(arg)) /* Digits, or empty */
1340 rc = (Uatoi(arg) == 0)? FAIL : OK;
1341 else
1342 rc = (strcmpic(arg, US"no") == 0 ||
1343 strcmpic(arg, US"false") == 0)? FAIL :
1344 (strcmpic(arg, US"yes") == 0 ||
1345 strcmpic(arg, US"true") == 0)? OK : DEFER;
1346 if (rc == DEFER)
1347 *log_msgptr = string_sprintf("invalid \"condition\" value \"%s\"", arg);
1348 break;
1349
1350 case ACLC_CONTROL:
c5fcb476
PH
1351 control_type = decode_control(arg, &p, where, log_msgptr);
1352
1353 /* Check this control makes sense at this time */
1354
1355 if ((control_forbids[control_type] & (1 << where)) != 0)
1356 {
1357 *log_msgptr = string_sprintf("cannot use \"control=%s\" in %s ACL",
1358 controls[control_type], acl_wherenames[where]);
1359 return ERROR;
1360 }
1361
1362 switch(control_type)
059ec3d9
PH
1363 {
1364 case CONTROL_ERROR:
1365 return ERROR;
1366
1367 case CONTROL_CASEFUL_LOCAL_PART:
1368 deliver_localpart = addr->cc_local_part;
1369 break;
1370
1371 case CONTROL_CASELOWER_LOCAL_PART:
1372 deliver_localpart = addr->lc_local_part;
1373 break;
1374
1375 case CONTROL_ENFORCE_SYNC:
1376 smtp_enforce_sync = TRUE;
1377 break;
1378
1379 case CONTROL_NO_ENFORCE_SYNC:
1380 smtp_enforce_sync = FALSE;
1381 break;
1382
1383 case CONTROL_NO_MULTILINE:
1384 no_multiline_responses = TRUE;
1385 break;
1386
1387 case CONTROL_FREEZE:
1388 deliver_freeze = TRUE;
1389 deliver_frozen_at = time(NULL);
1390 break;
1391
1392 case CONTROL_QUEUE_ONLY:
1393 queue_only_policy = TRUE;
1394 break;
1395
1396 case CONTROL_SUBMISSION:
1397 submission_mode = TRUE;
69358f02
PH
1398 while (*p == '/')
1399 {
1400 if (Ustrncmp(p, "/sender_retain", 14) == 0)
1401 {
1402 p += 14;
1403 active_local_sender_retain = TRUE;
1404 active_local_from_check = FALSE;
1405 }
1406 else if (Ustrncmp(p, "/domain=", 8) == 0)
1407 {
1408 uschar *pp = p + 8;
1409 while (*pp != 0 && *pp != '/') pp++;
1410 submission_domain = string_copyn(p+8, pp-p);
1411 p = pp;
1412 }
1413 else break;
1414 }
1415 if (*p != 0)
059ec3d9 1416 {
69358f02 1417 *log_msgptr = string_sprintf("syntax error in \"control=%s\"", arg);
059ec3d9
PH
1418 return ERROR;
1419 }
1420 break;
1421 }
1422 break;
1423
1424 case ACLC_DELAY:
1425 {
1426 int delay = readconf_readtime(arg, 0, FALSE);
1427 if (delay < 0)
1428 {
1429 *log_msgptr = string_sprintf("syntax error in argument for \"delay\" "
1430 "modifier: \"%s\" is not a time value", arg);
1431 return ERROR;
1432 }
1433 else
1434 {
1435 HDEBUG(D_acl) debug_printf("delay modifier requests %d-second delay\n",
1436 delay);
1437 if (host_checking)
1438 {
1439 HDEBUG(D_acl)
1440 debug_printf("delay skipped in -bh checking mode\n");
1441 }
1442 else sleep(delay);
1443 }
1444 }
1445 break;
1446
1447 case ACLC_DNSLISTS:
1448 rc = verify_check_dnsbl(&arg);
1449 break;
1450
1451 case ACLC_DOMAINS:
1452 rc = match_isinlist(addr->domain, &arg, 0, &domainlist_anchor,
1453 addr->domain_cache, MCL_DOMAIN, TRUE, &deliver_domain_data);
1454 break;
1455
1456 /* The value in tls_cipher is the full cipher name, for example,
1457 TLSv1:DES-CBC3-SHA:168, whereas the values to test for are just the
1458 cipher names such as DES-CBC3-SHA. But program defensively. We don't know
1459 what may in practice come out of the SSL library - which at the time of
1460 writing is poorly documented. */
1461
1462 case ACLC_ENCRYPTED:
1463 if (tls_cipher == NULL) rc = FAIL; else
1464 {
1465 uschar *endcipher = NULL;
1466 uschar *cipher = Ustrchr(tls_cipher, ':');
1467 if (cipher == NULL) cipher = tls_cipher; else
1468 {
1469 endcipher = Ustrchr(++cipher, ':');
1470 if (endcipher != NULL) *endcipher = 0;
1471 }
1472 rc = match_isinlist(cipher, &arg, 0, NULL, NULL, MCL_STRING, TRUE, NULL);
1473 if (endcipher != NULL) *endcipher = ':';
1474 }
1475 break;
1476
1477 /* Use verify_check_this_host() instead of verify_check_host() so that
1478 we can pass over &host_data to catch any looked up data. Once it has been
1479 set, it retains its value so that it's still there if another ACL verb
1480 comes through here and uses the cache. However, we must put it into
1481 permanent store in case it is also expected to be used in a subsequent
1482 message in the same SMTP connection. */
1483
1484 case ACLC_HOSTS:
1485 rc = verify_check_this_host(&arg, sender_host_cache, NULL,
1486 (sender_host_address == NULL)? US"" : sender_host_address, &host_data);
1487 if (host_data != NULL) host_data = string_copy_malloc(host_data);
1488 break;
1489
1490 case ACLC_LOCAL_PARTS:
1491 rc = match_isinlist(addr->cc_local_part, &arg, 0,
1492 &localpartlist_anchor, addr->localpart_cache, MCL_LOCALPART, TRUE,
1493 &deliver_localpart_data);
1494 break;
1495
1496 case ACLC_LOGWRITE:
1497 {
1498 int logbits = 0;
1499 uschar *s = arg;
1500 if (*s == ':')
1501 {
1502 s++;
1503 while (*s != ':')
1504 {
1505 if (Ustrncmp(s, "main", 4) == 0)
1506 { logbits |= LOG_MAIN; s += 4; }
1507 else if (Ustrncmp(s, "panic", 5) == 0)
1508 { logbits |= LOG_PANIC; s += 5; }
1509 else if (Ustrncmp(s, "reject", 6) == 0)
1510 { logbits |= LOG_REJECT; s += 6; }
1511 else
1512 {
1513 logbits = LOG_MAIN|LOG_PANIC;
1514 s = string_sprintf(":unknown log name in \"%s\" in "
1515 "\"logwrite\" in %s ACL", arg, acl_wherenames[where]);
1516 }
1517 if (*s == ',') s++;
1518 }
1519 s++;
1520 }
1521 while (isspace(*s)) s++;
1522 if (logbits == 0) logbits = LOG_MAIN;
1523 log_write(0, logbits, "%s", string_printing(s));
1524 }
1525 break;
1526
1527 case ACLC_RECIPIENTS:
1528 rc = match_address_list(addr->address, TRUE, TRUE, &arg, NULL, -1, 0,
1529 &recipient_data);
1530 break;
1531
1532 case ACLC_SENDER_DOMAINS:
1533 {
1534 uschar *sdomain;
1535 sdomain = Ustrrchr(sender_address, '@');
1536 sdomain = (sdomain == NULL)? US"" : sdomain + 1;
1537 rc = match_isinlist(sdomain, &arg, 0, &domainlist_anchor,
1538 sender_domain_cache, MCL_DOMAIN, TRUE, NULL);
1539 }
1540 break;
1541
1542 case ACLC_SENDERS:
1543 rc = match_address_list(sender_address, TRUE, TRUE, &arg,
1544 sender_address_cache, -1, 0, &sender_data);
1545 break;
1546
1547 /* Connection variables must persist forever */
1548
1549 case ACLC_SET:
1550 {
1551 int old_pool = store_pool;
1552 if (cb->u.varnumber < ACL_C_MAX) store_pool = POOL_PERM;
1553 acl_var[cb->u.varnumber] = string_copy(arg);
1554 store_pool = old_pool;
1555 }
1556 break;
1557
1558 /* If the verb is WARN, discard any user message from verification, because
1559 such messages are SMTP responses, not header additions. The latter come
1560 only from explicit "message" modifiers. */
1561
1562 case ACLC_VERIFY:
1563 rc = acl_verify(where, addr, arg, user_msgptr, log_msgptr, basic_errno);
1564 if (verb == ACL_WARN) *user_msgptr = NULL;
1565 break;
1566
1567 default:
1568 log_write(0, LOG_MAIN|LOG_PANIC_DIE, "internal ACL error: unknown "
1569 "condition %d", cb->type);
1570 break;
1571 }
1572
1573 /* If a condition was negated, invert OK/FAIL. */
1574
1575 if (!cond_modifiers[cb->type] && cb->u.negated)
1576 {
1577 if (rc == OK) rc = FAIL;
1578 else if (rc == FAIL || rc == FAIL_DROP) rc = OK;
1579 }
1580
1581 if (rc != OK) break; /* Conditions loop */
1582 }
1583
1584
1585/* If the result is the one for which "message" and/or "log_message" are used,
1586handle the values of these options. Most verbs have but a single return for
1587which the messages are relevant, but for "discard", it's useful to have the log
1588message both when it succeeds and when it fails. Also, for an "accept" that
1589appears in a QUIT ACL, we want to handle the user message. Since only "accept"
1590and "warn" are permitted in that ACL, we don't need to test the verb.
1591
1592These modifiers act in different ways:
1593
1594"message" is a user message that will be included in an SMTP response. Unless
1595it is empty, it overrides any previously set user message.
1596
1597"log_message" is a non-user message, and it adds to any existing non-user
1598message that is already set.
1599
1600If there isn't a log message set, we make it the same as the user message. */
1601
1602if (((rc == FAIL_DROP)? FAIL : rc) == msgcond[verb] ||
1603 (verb == ACL_DISCARD && rc == OK) ||
1604 (where == ACL_WHERE_QUIT))
1605 {
1606 uschar *expmessage;
1607
1608 /* If the verb is "warn", messages generated by conditions (verification or
1609 nested ACLs) are discarded. Only messages specified at this level are used.
1610 However, the value of an existing message is available in $acl_verify_message
1611 during expansions. */
1612
1613 uschar *old_user_msgptr = *user_msgptr;
1614 uschar *old_log_msgptr = (*log_msgptr != NULL)? *log_msgptr : old_user_msgptr;
1615
1616 if (verb == ACL_WARN) *log_msgptr = *user_msgptr = NULL;
1617
1618 if (user_message != NULL)
1619 {
1620 acl_verify_message = old_user_msgptr;
1621 expmessage = expand_string(user_message);
1622 if (expmessage == NULL)
1623 {
1624 if (!expand_string_forcedfail)
1625 log_write(0, LOG_MAIN|LOG_PANIC, "failed to expand ACL message \"%s\": %s",
1626 user_message, expand_string_message);
1627 }
1628 else if (expmessage[0] != 0) *user_msgptr = expmessage;
1629 }
1630
1631 if (log_message != NULL)
1632 {
1633 acl_verify_message = old_log_msgptr;
1634 expmessage = expand_string(log_message);
1635 if (expmessage == NULL)
1636 {
1637 if (!expand_string_forcedfail)
1638 log_write(0, LOG_MAIN|LOG_PANIC, "failed to expand ACL message \"%s\": %s",
1639 log_message, expand_string_message);
1640 }
1641 else if (expmessage[0] != 0)
1642 {
1643 *log_msgptr = (*log_msgptr == NULL)? expmessage :
1644 string_sprintf("%s: %s", expmessage, *log_msgptr);
1645 }
1646 }
1647
1648 /* If no log message, default it to the user message */
1649
1650 if (*log_msgptr == NULL) *log_msgptr = *user_msgptr;
1651 }
1652
1653acl_verify_message = NULL;
1654return rc;
1655}
1656
1657
1658
1659
1660
1661/*************************************************
1662* Get line from a literal ACL *
1663*************************************************/
1664
1665/* This function is passed to acl_read() in order to extract individual lines
1666of a literal ACL, which we access via static pointers. We can destroy the
1667contents because this is called only once (the compiled ACL is remembered).
1668
1669This code is intended to treat the data in the same way as lines in the main
1670Exim configuration file. That is:
1671
1672 . Leading spaces are ignored.
1673
1674 . A \ at the end of a line is a continuation - trailing spaces after the \
1675 are permitted (this is because I don't believe in making invisible things
1676 significant). Leading spaces on the continued part of a line are ignored.
1677
1678 . Physical lines starting (significantly) with # are totally ignored, and
1679 may appear within a sequence of backslash-continued lines.
1680
1681 . Blank lines are ignored, but will end a sequence of continuations.
1682
1683Arguments: none
1684Returns: a pointer to the next line
1685*/
1686
1687
1688static uschar *acl_text; /* Current pointer in the text */
1689static uschar *acl_text_end; /* Points one past the terminating '0' */
1690
1691
1692static uschar *
1693acl_getline(void)
1694{
1695uschar *yield;
1696
1697/* This loop handles leading blank lines and comments. */
1698
1699for(;;)
1700 {
1701 while (isspace(*acl_text)) acl_text++; /* Leading spaces/empty lines */
1702 if (*acl_text == 0) return NULL; /* No more data */
1703 yield = acl_text; /* Potential data line */
1704
1705 while (*acl_text != 0 && *acl_text != '\n') acl_text++;
1706
1707 /* If we hit the end before a newline, we have the whole logical line. If
1708 it's a comment, there's no more data to be given. Otherwise, yield it. */
1709
1710 if (*acl_text == 0) return (*yield == '#')? NULL : yield;
1711
1712 /* After reaching a newline, end this loop if the physical line does not
1713 start with '#'. If it does, it's a comment, and the loop continues. */
1714
1715 if (*yield != '#') break;
1716 }
1717
1718/* This loop handles continuations. We know we have some real data, ending in
1719newline. See if there is a continuation marker at the end (ignoring trailing
1720white space). We know that *yield is not white space, so no need to test for
1721cont > yield in the backwards scanning loop. */
1722
1723for(;;)
1724 {
1725 uschar *cont;
1726 for (cont = acl_text - 1; isspace(*cont); cont--);
1727
1728 /* If no continuation follows, we are done. Mark the end of the line and
1729 return it. */
1730
1731 if (*cont != '\\')
1732 {
1733 *acl_text++ = 0;
1734 return yield;
1735 }
1736
1737 /* We have encountered a continuation. Skip over whitespace at the start of
1738 the next line, and indeed the whole of the next line or lines if they are
1739 comment lines. */
1740
1741 for (;;)
1742 {
1743 while (*(++acl_text) == ' ' || *acl_text == '\t');
1744 if (*acl_text != '#') break;
1745 while (*(++acl_text) != 0 && *acl_text != '\n');
1746 }
1747
1748 /* We have the start of a continuation line. Move all the rest of the data
1749 to join onto the previous line, and then find its end. If the end is not a
1750 newline, we are done. Otherwise loop to look for another continuation. */
1751
1752 memmove(cont, acl_text, acl_text_end - acl_text);
1753 acl_text_end -= acl_text - cont;
1754 acl_text = cont;
1755 while (*acl_text != 0 && *acl_text != '\n') acl_text++;
1756 if (*acl_text == 0) return yield;
1757 }
1758
1759/* Control does not reach here */
1760}
1761
1762
1763
1764
1765
1766/*************************************************
1767* Check access using an ACL *
1768*************************************************/
1769
1770/* This function is called from address_check. It may recurse via
1771acl_check_condition() - hence the use of a level to stop looping. The ACL is
1772passed as a string which is expanded. A forced failure implies no access check
1773is required. If the result is a single word, it is taken as the name of an ACL
1774which is sought in the global ACL tree. Otherwise, it is taken as literal ACL
1775text, complete with newlines, and parsed as such. In both cases, the ACL check
1776is then run. This function uses an auxiliary function for acl_read() to call
1777for reading individual lines of a literal ACL. This is acl_getline(), which
1778appears immediately above.
1779
1780Arguments:
1781 where where called from
1782 addr address item when called from RCPT; otherwise NULL
1783 s the input string; NULL is the same as an empty ACL => DENY
1784 level the nesting level
1785 user_msgptr where to put a user error (for SMTP response)
1786 log_msgptr where to put a logging message (not for SMTP response)
1787
1788Returns: OK access is granted
1789 DISCARD access is apparently granted...
1790 FAIL access is denied
1791 FAIL_DROP access is denied; drop the connection
1792 DEFER can't tell at the moment
1793 ERROR disaster
1794*/
1795
1796static int
1797acl_check_internal(int where, address_item *addr, uschar *s, int level,
1798 uschar **user_msgptr, uschar **log_msgptr)
1799{
1800int fd = -1;
1801acl_block *acl = NULL;
1802uschar *acl_name = US"inline ACL";
1803uschar *ss;
1804
1805/* Catch configuration loops */
1806
1807if (level > 20)
1808 {
1809 *log_msgptr = US"ACL nested too deep: possible loop";
1810 return ERROR;
1811 }
1812
1813if (s == NULL)
1814 {
1815 HDEBUG(D_acl) debug_printf("ACL is NULL: implicit DENY\n");
1816 return FAIL;
1817 }
1818
1819/* At top level, we expand the incoming string. At lower levels, it has already
1820been expanded as part of condition processing. */
1821
1822if (level == 0)
1823 {
1824 ss = expand_string(s);
1825 if (ss == NULL)
1826 {
1827 if (expand_string_forcedfail) return OK;
1828 *log_msgptr = string_sprintf("failed to expand ACL string \"%s\": %s", s,
1829 expand_string_message);
1830 return ERROR;
1831 }
1832 }
1833else ss = s;
1834
1835while (isspace(*ss))ss++;
1836
1837/* If we can't find a named ACL, the default is to parse it as an inline one.
1838(Unless it begins with a slash; non-existent files give rise to an error.) */
1839
1840acl_text = ss;
1841
1842/* Handle the case of a string that does not contain any spaces. Look for a
1843named ACL among those read from the configuration, or a previously read file.
1844It is possible that the pointer to the ACL is NULL if the configuration
1845contains a name with no data. If not found, and the text begins with '/',
1846read an ACL from a file, and save it so it can be re-used. */
1847
1848if (Ustrchr(ss, ' ') == NULL)
1849 {
1850 tree_node *t = tree_search(acl_anchor, ss);
1851 if (t != NULL)
1852 {
1853 acl = (acl_block *)(t->data.ptr);
1854 if (acl == NULL)
1855 {
1856 HDEBUG(D_acl) debug_printf("ACL \"%s\" is empty: implicit DENY\n", ss);
1857 return FAIL;
1858 }
1859 acl_name = string_sprintf("ACL \"%s\"", ss);
1860 HDEBUG(D_acl) debug_printf("using ACL \"%s\"\n", ss);
1861 }
1862
1863 else if (*ss == '/')
1864 {
1865 struct stat statbuf;
1866 fd = Uopen(ss, O_RDONLY, 0);
1867 if (fd < 0)
1868 {
1869 *log_msgptr = string_sprintf("failed to open ACL file \"%s\": %s", ss,
1870 strerror(errno));
1871 return ERROR;
1872 }
1873
1874 if (fstat(fd, &statbuf) != 0)
1875 {
1876 *log_msgptr = string_sprintf("failed to fstat ACL file \"%s\": %s", ss,
1877 strerror(errno));
1878 return ERROR;
1879 }
1880
1881 acl_text = store_get(statbuf.st_size + 1);
1882 acl_text_end = acl_text + statbuf.st_size + 1;
1883
1884 if (read(fd, acl_text, statbuf.st_size) != statbuf.st_size)
1885 {
1886 *log_msgptr = string_sprintf("failed to read ACL file \"%s\": %s",
1887 ss, strerror(errno));
1888 return ERROR;
1889 }
1890 acl_text[statbuf.st_size] = 0;
1891 close(fd);
1892
1893 acl_name = string_sprintf("ACL \"%s\"", ss);
1894 HDEBUG(D_acl) debug_printf("read ACL from file %s\n", ss);
1895 }
1896 }
1897
1898/* Parse an ACL that is still in text form. If it came from a file, remember it
1899in the ACL tree, having read it into the POOL_PERM store pool so that it
1900persists between multiple messages. */
1901
1902if (acl == NULL)
1903 {
1904 int old_pool = store_pool;
1905 if (fd >= 0) store_pool = POOL_PERM;
1906 acl = acl_read(acl_getline, log_msgptr);
1907 store_pool = old_pool;
1908 if (acl == NULL && *log_msgptr != NULL) return ERROR;
1909 if (fd >= 0)
1910 {
1911 tree_node *t = store_get_perm(sizeof(tree_node) + Ustrlen(ss));
1912 Ustrcpy(t->name, ss);
1913 t->data.ptr = acl;
1914 (void)tree_insertnode(&acl_anchor, t);
1915 }
1916 }
1917
1918/* Now we have an ACL to use. It's possible it may be NULL. */
1919
1920while (acl != NULL)
1921 {
1922 int cond;
1923 int basic_errno = 0;
1924 BOOL endpass_seen = FALSE;
1925
1926 *log_msgptr = *user_msgptr = NULL;
1927 acl_temp_details = FALSE;
1928
1929 if (where == ACL_WHERE_QUIT &&
1930 acl->verb != ACL_ACCEPT &&
1931 acl->verb != ACL_WARN)
1932 {
1933 *log_msgptr = string_sprintf("\"%s\" is not allowed in a QUIT ACL",
1934 verbs[acl->verb]);
1935 return ERROR;
1936 }
1937
1938 HDEBUG(D_acl) debug_printf("processing \"%s\"\n", verbs[acl->verb]);
1939
1940 /* Clear out any search error message from a previous check before testing
1941 this condition. */
1942
1943 search_error_message = NULL;
1944 cond = acl_check_condition(acl->verb, acl->condition, where, addr, level,
1945 &endpass_seen, user_msgptr, log_msgptr, &basic_errno);
1946
1947 /* Handle special returns: DEFER causes a return except on a WARN verb;
1948 ERROR always causes a return. */
1949
1950 switch (cond)
1951 {
1952 case DEFER:
1953 HDEBUG(D_acl) debug_printf("%s: condition test deferred\n", verbs[acl->verb]);
1954 if (basic_errno != ERRNO_CALLOUTDEFER)
1955 {
1956 if (search_error_message != NULL && *search_error_message != 0)
1957 *log_msgptr = search_error_message;
1958 if (smtp_return_error_details) acl_temp_details = TRUE;
1959 }
1960 else
1961 {
1962 acl_temp_details = TRUE;
1963 }
1964 if (acl->verb != ACL_WARN) return DEFER;
1965 break;
1966
1967 default: /* Paranoia */
1968 case ERROR:
1969 HDEBUG(D_acl) debug_printf("%s: condition test error\n", verbs[acl->verb]);
1970 return ERROR;
1971
1972 case OK:
1973 HDEBUG(D_acl) debug_printf("%s: condition test succeeded\n",
1974 verbs[acl->verb]);
1975 break;
1976
1977 case FAIL:
1978 HDEBUG(D_acl) debug_printf("%s: condition test failed\n", verbs[acl->verb]);
1979 break;
1980
1981 /* DISCARD and DROP can happen only from a nested ACL condition, and
1982 DISCARD can happen only for an "accept" or "discard" verb. */
1983
1984 case DISCARD:
1985 HDEBUG(D_acl) debug_printf("%s: condition test yielded \"discard\"\n",
1986 verbs[acl->verb]);
1987 break;
1988
1989 case FAIL_DROP:
1990 HDEBUG(D_acl) debug_printf("%s: condition test yielded \"drop\"\n",
1991 verbs[acl->verb]);
1992 break;
1993 }
1994
1995 /* At this point, cond for most verbs is either OK or FAIL or (as a result of
1996 a nested ACL condition) FAIL_DROP. However, for WARN, cond may be DEFER, and
1997 for ACCEPT and DISCARD, it may be DISCARD after a nested ACL call. */
1998
1999 switch(acl->verb)
2000 {
2001 case ACL_ACCEPT:
2002 if (cond == OK || cond == DISCARD) return cond;
2003 if (endpass_seen)
2004 {
2005 HDEBUG(D_acl) debug_printf("accept: endpass encountered - denying access\n");
2006 return cond;
2007 }
2008 break;
2009
2010 case ACL_DEFER:
2011 if (cond == OK)
2012 {
2013 acl_temp_details = TRUE;
2014 return DEFER;
2015 }
2016 break;
2017
2018 case ACL_DENY:
2019 if (cond == OK) return FAIL;
2020 break;
2021
2022 case ACL_DISCARD:
2023 if (cond == OK || cond == DISCARD) return DISCARD;
2024 if (endpass_seen)
2025 {
2026 HDEBUG(D_acl) debug_printf("discard: endpass encountered - denying access\n");
2027 return cond;
2028 }
2029 break;
2030
2031 case ACL_DROP:
2032 if (cond == OK) return FAIL_DROP;
2033 break;
2034
2035 case ACL_REQUIRE:
2036 if (cond != OK) return cond;
2037 break;
2038
2039 case ACL_WARN:
2040 if (cond == OK)
2041 acl_warn(where, *user_msgptr, *log_msgptr);
2042 else if (cond == DEFER)
2043 acl_warn(where, NULL, string_sprintf("ACL \"warn\" statement skipped: "
2044 "condition test deferred: %s",
2045 (*log_msgptr == NULL)? US"" : *log_msgptr));
2046 *log_msgptr = *user_msgptr = NULL; /* In case implicit DENY follows */
2047 break;
2048
2049 default:
2050 log_write(0, LOG_MAIN|LOG_PANIC_DIE, "internal ACL error: unknown verb %d",
2051 acl->verb);
2052 break;
2053 }
2054
2055 /* Pass to the next ACL item */
2056
2057 acl = acl->next;
2058 }
2059
2060/* We have reached the end of the ACL. This is an implicit DENY. */
2061
2062HDEBUG(D_acl) debug_printf("end of %s: implicit DENY\n", acl_name);
2063return FAIL;
2064}
2065
2066
2067/*************************************************
2068* Check access using an ACL *
2069*************************************************/
2070
2071/* This is the external interface for ACL checks. It sets up an address and the
2072expansions for $domain and $local_part when called after RCPT, then calls
2073acl_check_internal() to do the actual work.
2074
2075Arguments:
2076 where ACL_WHERE_xxxx indicating where called from
2077 data_string RCPT address, or SMTP command argument, or NULL
2078 s the input string; NULL is the same as an empty ACL => DENY
2079 user_msgptr where to put a user error (for SMTP response)
2080 log_msgptr where to put a logging message (not for SMTP response)
2081
2082Returns: OK access is granted by an ACCEPT verb
2083 DISCARD access is granted by a DISCARD verb
2084 FAIL access is denied
2085 FAIL_DROP access is denied; drop the connection
2086 DEFER can't tell at the moment
2087 ERROR disaster
2088*/
2089
2090int
2091acl_check(int where, uschar *data_string, uschar *s, uschar **user_msgptr,
2092 uschar **log_msgptr)
2093{
2094int rc;
2095address_item adb;
2096address_item *addr;
2097
2098*user_msgptr = *log_msgptr = NULL;
2099sender_verified_failed = NULL;
2100
2101if (where == ACL_WHERE_RCPT)
2102 {
2103 adb = address_defaults;
2104 addr = &adb;
2105 addr->address = data_string;
2106 if (deliver_split_address(addr) == DEFER)
2107 {
2108 *log_msgptr = US"defer in percent_hack_domains check";
2109 return DEFER;
2110 }
2111 deliver_domain = addr->domain;
2112 deliver_localpart = addr->local_part;
2113 }
2114else
2115 {
2116 addr = NULL;
2117 smtp_command_argument = data_string;
2118 }
2119
2120rc = acl_check_internal(where, addr, s, 0, user_msgptr, log_msgptr);
2121
2122smtp_command_argument = deliver_domain =
2a3eea10 2123 deliver_localpart = deliver_address_data = sender_address_data = NULL;
059ec3d9
PH
2124
2125/* A DISCARD response is permitted only for message ACLs, excluding the PREDATA
2126ACL, which is really in the middle of an SMTP command. */
2127
2128if (rc == DISCARD)
2129 {
2130 if (where > ACL_WHERE_NOTSMTP || where == ACL_WHERE_PREDATA)
2131 {
2132 log_write(0, LOG_MAIN|LOG_PANIC, "\"discard\" verb not allowed in %s "
2133 "ACL", acl_wherenames[where]);
2134 return ERROR;
2135 }
2136 return DISCARD;
2137 }
2138
2139/* A DROP response is not permitted from MAILAUTH */
2140
2141if (rc == FAIL_DROP && where == ACL_WHERE_MAILAUTH)
2142 {
2143 log_write(0, LOG_MAIN|LOG_PANIC, "\"drop\" verb not allowed in %s "
2144 "ACL", acl_wherenames[where]);
2145 return ERROR;
2146 }
2147
2148/* Before giving an error response, take a look at the length of any user
2149message, and split it up into multiple lines if possible. */
2150
2151if (rc != OK && *user_msgptr != NULL && Ustrlen(*user_msgptr) > 75)
2152 {
2153 uschar *s = *user_msgptr = string_copy(*user_msgptr);
2154 uschar *ss = s;
2155
2156 for (;;)
2157 {
2158 int i = 0;
2159 while (i < 75 && *ss != 0 && *ss != '\n') ss++, i++;
2160 if (*ss == 0) break;
2161 if (*ss == '\n')
2162 s = ++ss;
2163 else
2164 {
2165 uschar *t = ss + 1;
2166 uschar *tt = NULL;
2167 while (--t > s + 35)
2168 {
2169 if (*t == ' ')
2170 {
2171 if (t[-1] == ':') { tt = t; break; }
2172 if (tt == NULL) tt = t;
2173 }
2174 }
2175
2176 if (tt == NULL) /* Can't split behind - try ahead */
2177 {
2178 t = ss + 1;
2179 while (*t != 0)
2180 {
2181 if (*t == ' ' || *t == '\n')
2182 { tt = t; break; }
2183 t++;
2184 }
2185 }
2186
2187 if (tt == NULL) break; /* Can't find anywhere to split */
2188 *tt = '\n';
2189 s = ss = tt+1;
2190 }
2191 }
2192 }
2193
2194return rc;
2195}
2196
2197/* End of acl.c */