7d1c3b6a6a02fbfeba68d306fcbe0ed36f4914db
[exim.git] / src / src / exim.c
1 /* $Cambridge: exim/src/src/exim.c,v 1.67 2010/06/06 00:27:52 pdp Exp $ */
2
3 /*************************************************
4 *     Exim - an Internet mail transport agent    *
5 *************************************************/
6
7 /* Copyright (c) University of Cambridge 1995 - 2009 */
8 /* See the file NOTICE for conditions of use and distribution. */
9
10
11 /* The main function: entry point, initialization, and high-level control.
12 Also a few functions that don't naturally fit elsewhere. */
13
14
15 #include "exim.h"
16
17
18
19 /*************************************************
20 *      Function interface to store functions     *
21 *************************************************/
22
23 /* We need some real functions to pass to the PCRE regular expression library
24 for store allocation via Exim's store manager. The normal calls are actually
25 macros that pass over location information to make tracing easier. These
26 functions just interface to the standard macro calls. A good compiler will
27 optimize out the tail recursion and so not make them too expensive. There
28 are two sets of functions; one for use when we want to retain the compiled
29 regular expression for a long time; the other for short-term use. */
30
31 static void *
32 function_store_get(size_t size)
33 {
34 return store_get((int)size);
35 }
36
37 static void
38 function_dummy_free(void *block) { block = block; }
39
40 static void *
41 function_store_malloc(size_t size)
42 {
43 return store_malloc((int)size);
44 }
45
46 static void
47 function_store_free(void *block)
48 {
49 store_free(block);
50 }
51
52
53
54
55 /*************************************************
56 *  Compile regular expression and panic on fail  *
57 *************************************************/
58
59 /* This function is called when failure to compile a regular expression leads
60 to a panic exit. In other cases, pcre_compile() is called directly. In many
61 cases where this function is used, the results of the compilation are to be
62 placed in long-lived store, so we temporarily reset the store management
63 functions that PCRE uses if the use_malloc flag is set.
64
65 Argument:
66   pattern     the pattern to compile
67   caseless    TRUE if caseless matching is required
68   use_malloc  TRUE if compile into malloc store
69
70 Returns:      pointer to the compiled pattern
71 */
72
73 const pcre *
74 regex_must_compile(uschar *pattern, BOOL caseless, BOOL use_malloc)
75 {
76 int offset;
77 int options = PCRE_COPT;
78 const pcre *yield;
79 const uschar *error;
80 if (use_malloc)
81   {
82   pcre_malloc = function_store_malloc;
83   pcre_free = function_store_free;
84   }
85 if (caseless) options |= PCRE_CASELESS;
86 yield = pcre_compile(CS pattern, options, (const char **)&error, &offset, NULL);
87 pcre_malloc = function_store_get;
88 pcre_free = function_dummy_free;
89 if (yield == NULL)
90   log_write(0, LOG_MAIN|LOG_PANIC_DIE, "regular expression error: "
91     "%s at offset %d while compiling %s", error, offset, pattern);
92 return yield;
93 }
94
95
96
97
98 /*************************************************
99 *   Execute regular expression and set strings   *
100 *************************************************/
101
102 /* This function runs a regular expression match, and sets up the pointers to
103 the matched substrings.
104
105 Arguments:
106   re          the compiled expression
107   subject     the subject string
108   options     additional PCRE options
109   setup       if < 0 do full setup
110               if >= 0 setup from setup+1 onwards,
111                 excluding the full matched string
112
113 Returns:      TRUE or FALSE
114 */
115
116 BOOL
117 regex_match_and_setup(const pcre *re, uschar *subject, int options, int setup)
118 {
119 int ovector[3*(EXPAND_MAXN+1)];
120 int n = pcre_exec(re, NULL, CS subject, Ustrlen(subject), 0,
121   PCRE_EOPT | options, ovector, sizeof(ovector)/sizeof(int));
122 BOOL yield = n >= 0;
123 if (n == 0) n = EXPAND_MAXN + 1;
124 if (yield)
125   {
126   int nn;
127   expand_nmax = (setup < 0)? 0 : setup + 1;
128   for (nn = (setup < 0)? 0 : 2; nn < n*2; nn += 2)
129     {
130     expand_nstring[expand_nmax] = subject + ovector[nn];
131     expand_nlength[expand_nmax++] = ovector[nn+1] - ovector[nn];
132     }
133   expand_nmax--;
134   }
135 return yield;
136 }
137
138
139
140
141 /*************************************************
142 *             Handler for SIGUSR1                *
143 *************************************************/
144
145 /* SIGUSR1 causes any exim process to write to the process log details of
146 what it is currently doing. It will only be used if the OS is capable of
147 setting up a handler that causes automatic restarting of any system call
148 that is in progress at the time.
149
150 Argument: the signal number (SIGUSR1)
151 Returns:  nothing
152 */
153
154 static void
155 usr1_handler(int sig)
156 {
157 sig = sig;      /* Keep picky compilers happy */
158 log_write(0, LOG_PROCESS, "%s", process_info);
159 log_close_all();
160 os_restarting_signal(SIGUSR1, usr1_handler);
161 }
162
163
164
165 /*************************************************
166 *             Timeout handler                    *
167 *************************************************/
168
169 /* This handler is enabled most of the time that Exim is running. The handler
170 doesn't actually get used unless alarm() has been called to set a timer, to
171 place a time limit on a system call of some kind. When the handler is run, it
172 re-enables itself.
173
174 There are some other SIGALRM handlers that are used in special cases when more
175 than just a flag setting is required; for example, when reading a message's
176 input. These are normally set up in the code module that uses them, and the
177 SIGALRM handler is reset to this one afterwards.
178
179 Argument: the signal value (SIGALRM)
180 Returns:  nothing
181 */
182
183 void
184 sigalrm_handler(int sig)
185 {
186 sig = sig;      /* Keep picky compilers happy */
187 sigalrm_seen = TRUE;
188 os_non_restarting_signal(SIGALRM, sigalrm_handler);
189 }
190
191
192
193 /*************************************************
194 *      Sleep for a fractional time interval      *
195 *************************************************/
196
197 /* This function is called by millisleep() and exim_wait_tick() to wait for a
198 period of time that may include a fraction of a second. The coding is somewhat
199 tedious. We do not expect setitimer() ever to fail, but if it does, the process
200 will wait for ever, so we panic in this instance. (There was a case of this
201 when a bug in a function that calls milliwait() caused it to pass invalid data.
202 That's when I added the check. :-)
203
204 Argument:  an itimerval structure containing the interval
205 Returns:   nothing
206 */
207
208 static void
209 milliwait(struct itimerval *itval)
210 {
211 sigset_t sigmask;
212 sigset_t old_sigmask;
213 (void)sigemptyset(&sigmask);                           /* Empty mask */
214 (void)sigaddset(&sigmask, SIGALRM);                    /* Add SIGALRM */
215 (void)sigprocmask(SIG_BLOCK, &sigmask, &old_sigmask);  /* Block SIGALRM */
216 if (setitimer(ITIMER_REAL, itval, NULL) < 0)           /* Start timer */
217   log_write(0, LOG_MAIN|LOG_PANIC_DIE,
218     "setitimer() failed: %s", strerror(errno));
219 (void)sigfillset(&sigmask);                            /* All signals */
220 (void)sigdelset(&sigmask, SIGALRM);                    /* Remove SIGALRM */
221 (void)sigsuspend(&sigmask);                            /* Until SIGALRM */
222 (void)sigprocmask(SIG_SETMASK, &old_sigmask, NULL);    /* Restore mask */
223 }
224
225
226
227
228 /*************************************************
229 *         Millisecond sleep function             *
230 *************************************************/
231
232 /* The basic sleep() function has a granularity of 1 second, which is too rough
233 in some cases - for example, when using an increasing delay to slow down
234 spammers.
235
236 Argument:    number of millseconds
237 Returns:     nothing
238 */
239
240 void
241 millisleep(int msec)
242 {
243 struct itimerval itval;
244 itval.it_interval.tv_sec = 0;
245 itval.it_interval.tv_usec = 0;
246 itval.it_value.tv_sec = msec/1000;
247 itval.it_value.tv_usec = (msec % 1000) * 1000;
248 milliwait(&itval);
249 }
250
251
252
253 /*************************************************
254 *         Compare microsecond times              *
255 *************************************************/
256
257 /*
258 Arguments:
259   tv1         the first time
260   tv2         the second time
261
262 Returns:      -1, 0, or +1
263 */
264
265 int
266 exim_tvcmp(struct timeval *t1, struct timeval *t2)
267 {
268 if (t1->tv_sec > t2->tv_sec) return +1;
269 if (t1->tv_sec < t2->tv_sec) return -1;
270 if (t1->tv_usec > t2->tv_usec) return +1;
271 if (t1->tv_usec < t2->tv_usec) return -1;
272 return 0;
273 }
274
275
276
277
278 /*************************************************
279 *          Clock tick wait function              *
280 *************************************************/
281
282 /* Exim uses a time + a pid to generate a unique identifier in two places: its
283 message IDs, and in file names for maildir deliveries. Because some OS now
284 re-use pids within the same second, sub-second times are now being used.
285 However, for absolute certaintly, we must ensure the clock has ticked before
286 allowing the relevant process to complete. At the time of implementation of
287 this code (February 2003), the speed of processors is such that the clock will
288 invariably have ticked already by the time a process has done its job. This
289 function prepares for the time when things are faster - and it also copes with
290 clocks that go backwards.
291
292 Arguments:
293   then_tv      A timeval which was used to create uniqueness; its usec field
294                  has been rounded down to the value of the resolution.
295                  We want to be sure the current time is greater than this.
296   resolution   The resolution that was used to divide the microseconds
297                  (1 for maildir, larger for message ids)
298
299 Returns:       nothing
300 */
301
302 void
303 exim_wait_tick(struct timeval *then_tv, int resolution)
304 {
305 struct timeval now_tv;
306 long int now_true_usec;
307
308 (void)gettimeofday(&now_tv, NULL);
309 now_true_usec = now_tv.tv_usec;
310 now_tv.tv_usec = (now_true_usec/resolution) * resolution;
311
312 if (exim_tvcmp(&now_tv, then_tv) <= 0)
313   {
314   struct itimerval itval;
315   itval.it_interval.tv_sec = 0;
316   itval.it_interval.tv_usec = 0;
317   itval.it_value.tv_sec = then_tv->tv_sec - now_tv.tv_sec;
318   itval.it_value.tv_usec = then_tv->tv_usec + resolution - now_true_usec;
319
320   /* We know that, overall, "now" is less than or equal to "then". Therefore, a
321   negative value for the microseconds is possible only in the case when "now"
322   is more than a second less than "then". That means that itval.it_value.tv_sec
323   is greater than zero. The following correction is therefore safe. */
324
325   if (itval.it_value.tv_usec < 0)
326     {
327     itval.it_value.tv_usec += 1000000;
328     itval.it_value.tv_sec -= 1;
329     }
330
331   DEBUG(D_transport|D_receive)
332     {
333     if (!running_in_test_harness)
334       {
335       debug_printf("tick check: %lu.%06lu %lu.%06lu\n",
336         then_tv->tv_sec, then_tv->tv_usec, now_tv.tv_sec, now_tv.tv_usec);
337       debug_printf("waiting %lu.%06lu\n", itval.it_value.tv_sec,
338         itval.it_value.tv_usec);
339       }
340     }
341
342   milliwait(&itval);
343   }
344 }
345
346
347
348
349 /*************************************************
350 *            Set up processing details           *
351 *************************************************/
352
353 /* Save a text string for dumping when SIGUSR1 is received.
354 Do checks for overruns.
355
356 Arguments: format and arguments, as for printf()
357 Returns:   nothing
358 */
359
360 void
361 set_process_info(char *format, ...)
362 {
363 int len;
364 va_list ap;
365 sprintf(CS process_info, "%5d ", (int)getpid());
366 len = Ustrlen(process_info);
367 va_start(ap, format);
368 if (!string_vformat(process_info + len, PROCESS_INFO_SIZE - len, format, ap))
369   Ustrcpy(process_info + len, "**** string overflowed buffer ****");
370 DEBUG(D_process_info) debug_printf("set_process_info: %s\n", process_info);
371 va_end(ap);
372 }
373
374
375
376
377
378 /*************************************************
379 *   Call fopen() with umask 777 and adjust mode  *
380 *************************************************/
381
382 /* Exim runs with umask(0) so that files created with open() have the mode that
383 is specified in the open() call. However, there are some files, typically in
384 the spool directory, that are created with fopen(). They end up world-writeable
385 if no precautions are taken. Although the spool directory is not accessible to
386 the world, this is an untidiness. So this is a wrapper function for fopen()
387 that sorts out the mode of the created file.
388
389 Arguments:
390    filename       the file name
391    options        the fopen() options
392    mode           the required mode
393
394 Returns:          the fopened FILE or NULL
395 */
396
397 FILE *
398 modefopen(uschar *filename, char *options, mode_t mode)
399 {
400 mode_t saved_umask = umask(0777);
401 FILE *f = Ufopen(filename, options);
402 (void)umask(saved_umask);
403 if (f != NULL) (void)fchmod(fileno(f), mode);
404 return f;
405 }
406
407
408
409
410 /*************************************************
411 *   Ensure stdin, stdout, and stderr exist       *
412 *************************************************/
413
414 /* Some operating systems grumble if an exec() happens without a standard
415 input, output, and error (fds 0, 1, 2) being defined. The worry is that some
416 file will be opened and will use these fd values, and then some other bit of
417 code will assume, for example, that it can write error messages to stderr.
418 This function ensures that fds 0, 1, and 2 are open if they do not already
419 exist, by connecting them to /dev/null.
420
421 This function is also used to ensure that std{in,out,err} exist at all times,
422 so that if any library that Exim calls tries to use them, it doesn't crash.
423
424 Arguments:  None
425 Returns:    Nothing
426 */
427
428 void
429 exim_nullstd(void)
430 {
431 int i;
432 int devnull = -1;
433 struct stat statbuf;
434 for (i = 0; i <= 2; i++)
435   {
436   if (fstat(i, &statbuf) < 0 && errno == EBADF)
437     {
438     if (devnull < 0) devnull = open("/dev/null", O_RDWR);
439     if (devnull < 0) log_write(0, LOG_MAIN|LOG_PANIC_DIE, "%s",
440       string_open_failed(errno, "/dev/null"));
441     if (devnull != i) (void)dup2(devnull, i);
442     }
443   }
444 if (devnull > 2) (void)close(devnull);
445 }
446
447
448
449
450 /*************************************************
451 *   Close unwanted file descriptors for delivery *
452 *************************************************/
453
454 /* This function is called from a new process that has been forked to deliver
455 an incoming message, either directly, or using exec.
456
457 We want any smtp input streams to be closed in this new process. However, it
458 has been observed that using fclose() here causes trouble. When reading in -bS
459 input, duplicate copies of messages have been seen. The files will be sharing a
460 file pointer with the parent process, and it seems that fclose() (at least on
461 some systems - I saw this on Solaris 2.5.1) messes with that file pointer, at
462 least sometimes. Hence we go for closing the underlying file descriptors.
463
464 If TLS is active, we want to shut down the TLS library, but without molesting
465 the parent's SSL connection.
466
467 For delivery of a non-SMTP message, we want to close stdin and stdout (and
468 stderr unless debugging) because the calling process might have set them up as
469 pipes and be waiting for them to close before it waits for the submission
470 process to terminate. If they aren't closed, they hold up the calling process
471 until the initial delivery process finishes, which is not what we want.
472
473 Exception: We do want it for synchronous delivery!
474
475 And notwithstanding all the above, if D_resolver is set, implying resolver
476 debugging, leave stdout open, because that's where the resolver writes its
477 debugging output.
478
479 When we close stderr (which implies we've also closed stdout), we also get rid
480 of any controlling terminal.
481
482 Arguments:   None
483 Returns:     Nothing
484 */
485
486 static void
487 close_unwanted(void)
488 {
489 if (smtp_input)
490   {
491   #ifdef SUPPORT_TLS
492   tls_close(FALSE);      /* Shut down the TLS library */
493   #endif
494   (void)close(fileno(smtp_in));
495   (void)close(fileno(smtp_out));
496   smtp_in = NULL;
497   }
498 else
499   {
500   (void)close(0);                                          /* stdin */
501   if ((debug_selector & D_resolver) == 0) (void)close(1);  /* stdout */
502   if (debug_selector == 0)                                 /* stderr */
503     {
504     if (!synchronous_delivery)
505       {
506       (void)close(2);
507       log_stderr = NULL;
508       }
509     (void)setsid();
510     }
511   }
512 }
513
514
515
516
517 /*************************************************
518 *          Set uid and gid                       *
519 *************************************************/
520
521 /* This function sets a new uid and gid permanently, optionally calling
522 initgroups() to set auxiliary groups. There are some special cases when running
523 Exim in unprivileged modes. In these situations the effective uid will not be
524 root; if we already have the right effective uid/gid, and don't need to
525 initialize any groups, leave things as they are.
526
527 Arguments:
528   uid        the uid
529   gid        the gid
530   igflag     TRUE if initgroups() wanted
531   msg        text to use in debugging output and failure log
532
533 Returns:     nothing; bombs out on failure
534 */
535
536 void
537 exim_setugid(uid_t uid, gid_t gid, BOOL igflag, uschar *msg)
538 {
539 uid_t euid = geteuid();
540 gid_t egid = getegid();
541
542 if (euid == root_uid || euid != uid || egid != gid || igflag)
543   {
544   /* At least one OS returns +1 for initgroups failure, so just check for
545   non-zero. */
546
547   if (igflag)
548     {
549     struct passwd *pw = getpwuid(uid);
550     if (pw != NULL)
551       {
552       if (initgroups(pw->pw_name, gid) != 0)
553         log_write(0,LOG_MAIN|LOG_PANIC_DIE,"initgroups failed for uid=%ld: %s",
554           (long int)uid, strerror(errno));
555       }
556     else log_write(0, LOG_MAIN|LOG_PANIC_DIE, "cannot run initgroups(): "
557       "no passwd entry for uid=%ld", (long int)uid);
558     }
559
560   if (setgid(gid) < 0 || setuid(uid) < 0)
561     {
562     log_write(0, LOG_MAIN|LOG_PANIC_DIE, "unable to set gid=%ld or uid=%ld "
563       "(euid=%ld): %s", (long int)gid, (long int)uid, (long int)euid, msg);
564     }
565   }
566
567 /* Debugging output included uid/gid and all groups */
568
569 DEBUG(D_uid)
570   {
571   int group_count;
572   gid_t group_list[NGROUPS_MAX];
573   debug_printf("changed uid/gid: %s\n  uid=%ld gid=%ld pid=%ld\n", msg,
574     (long int)geteuid(), (long int)getegid(), (long int)getpid());
575   group_count = getgroups(NGROUPS_MAX, group_list);
576   debug_printf("  auxiliary group list:");
577   if (group_count > 0)
578     {
579     int i;
580     for (i = 0; i < group_count; i++) debug_printf(" %d", (int)group_list[i]);
581     }
582   else debug_printf(" <none>");
583   debug_printf("\n");
584   }
585 }
586
587
588
589
590 /*************************************************
591 *               Exit point                       *
592 *************************************************/
593
594 /* Exim exits via this function so that it always clears up any open
595 databases.
596
597 Arguments:
598   rc         return code
599
600 Returns:     does not return
601 */
602
603 void
604 exim_exit(int rc)
605 {
606 search_tidyup();
607 DEBUG(D_any)
608   debug_printf(">>>>>>>>>>>>>>>> Exim pid=%d terminating with rc=%d "
609     ">>>>>>>>>>>>>>>>\n", (int)getpid(), rc);
610 exit(rc);
611 }
612
613
614
615
616 /*************************************************
617 *         Extract port from host address         *
618 *************************************************/
619
620 /* Called to extract the port from the values given to -oMa and -oMi.
621 It also checks the syntax of the address, and terminates it before the
622 port data when a port is extracted.
623
624 Argument:
625   address   the address, with possible port on the end
626
627 Returns:    the port, or zero if there isn't one
628             bombs out on a syntax error
629 */
630
631 static int
632 check_port(uschar *address)
633 {
634 int port = host_address_extract_port(address);
635 if (string_is_ip_address(address, NULL) == 0)
636   {
637   fprintf(stderr, "exim abandoned: \"%s\" is not an IP address\n", address);
638   exit(EXIT_FAILURE);
639   }
640 return port;
641 }
642
643
644
645 /*************************************************
646 *              Test/verify an address            *
647 *************************************************/
648
649 /* This function is called by the -bv and -bt code. It extracts a working
650 address from a full RFC 822 address. This isn't really necessary per se, but it
651 has the effect of collapsing source routes.
652
653 Arguments:
654   s            the address string
655   flags        flag bits for verify_address()
656   exit_value   to be set for failures
657
658 Returns:       nothing
659 */
660
661 static void
662 test_address(uschar *s, int flags, int *exit_value)
663 {
664 int start, end, domain;
665 uschar *parse_error = NULL;
666 uschar *address = parse_extract_address(s, &parse_error, &start, &end, &domain,
667   FALSE);
668 if (address == NULL)
669   {
670   fprintf(stdout, "syntax error: %s\n", parse_error);
671   *exit_value = 2;
672   }
673 else
674   {
675   int rc = verify_address(deliver_make_addr(address,TRUE), stdout, flags, -1,
676     -1, -1, NULL, NULL, NULL);
677   if (rc == FAIL) *exit_value = 2;
678     else if (rc == DEFER && *exit_value == 0) *exit_value = 1;
679   }
680 }
681
682
683
684 /*************************************************
685 *          Show supported features               *
686 *************************************************/
687
688 /* This function is called for -bV and for -d to output the optional features
689 of the current Exim binary.
690
691 Arguments:  a FILE for printing
692 Returns:    nothing
693 */
694
695 static void
696 show_whats_supported(FILE *f)
697 {
698 #ifdef DB_VERSION_STRING
699 fprintf(f, "Berkeley DB: %s\n", DB_VERSION_STRING);
700 #elif defined(BTREEVERSION) && defined(HASHVERSION)
701   #ifdef USE_DB
702   fprintf(f, "Probably Berkeley DB version 1.8x (native mode)\n");
703   #else
704   fprintf(f, "Probably Berkeley DB version 1.8x (compatibility mode)\n");
705   #endif
706 #elif defined(_DBM_RDONLY) || defined(dbm_dirfno)
707 fprintf(f, "Probably ndbm\n");
708 #elif defined(USE_TDB)
709 fprintf(f, "Using tdb\n");
710 #else
711   #ifdef USE_GDBM
712   fprintf(f, "Probably GDBM (native mode)\n");
713   #else
714   fprintf(f, "Probably GDBM (compatibility mode)\n");
715   #endif
716 #endif
717
718 fprintf(f, "Support for:");
719 #ifdef SUPPORT_CRYPTEQ
720   fprintf(f, " crypteq");
721 #endif
722 #if HAVE_ICONV
723   fprintf(f, " iconv()");
724 #endif
725 #if HAVE_IPV6
726   fprintf(f, " IPv6");
727 #endif
728 #ifdef HAVE_SETCLASSRESOURCES
729   fprintf(f, " use_setclassresources");
730 #endif
731 #ifdef SUPPORT_PAM
732   fprintf(f, " PAM");
733 #endif
734 #ifdef EXIM_PERL
735   fprintf(f, " Perl");
736 #endif
737 #ifdef EXPAND_DLFUNC
738   fprintf(f, " Expand_dlfunc");
739 #endif
740 #ifdef USE_TCP_WRAPPERS
741   fprintf(f, " TCPwrappers");
742 #endif
743 #ifdef SUPPORT_TLS
744   #ifdef USE_GNUTLS
745   fprintf(f, " GnuTLS");
746   #else
747   fprintf(f, " OpenSSL");
748   #endif
749 #endif
750 #ifdef SUPPORT_TRANSLATE_IP_ADDRESS
751   fprintf(f, " translate_ip_address");
752 #endif
753 #ifdef SUPPORT_MOVE_FROZEN_MESSAGES
754   fprintf(f, " move_frozen_messages");
755 #endif
756 #ifdef WITH_CONTENT_SCAN
757   fprintf(f, " Content_Scanning");
758 #endif
759 #ifndef DISABLE_DKIM
760   fprintf(f, " DKIM");
761 #endif
762 #ifdef WITH_OLD_DEMIME
763   fprintf(f, " Old_Demime");
764 #endif
765 #ifdef EXPERIMENTAL_SPF
766   fprintf(f, " Experimental_SPF");
767 #endif
768 #ifdef EXPERIMENTAL_SRS
769   fprintf(f, " Experimental_SRS");
770 #endif
771 #ifdef EXPERIMENTAL_BRIGHTMAIL
772   fprintf(f, " Experimental_Brightmail");
773 #endif
774 #ifdef EXPERIMENTAL_DCC
775   fprintf(f, " Experimental_DCC");
776 #endif
777 fprintf(f, "\n");
778
779 fprintf(f, "Lookups:");
780 #ifdef LOOKUP_LSEARCH
781   fprintf(f, " lsearch wildlsearch nwildlsearch iplsearch");
782 #endif
783 #ifdef LOOKUP_CDB
784   fprintf(f, " cdb");
785 #endif
786 #ifdef LOOKUP_DBM
787   fprintf(f, " dbm dbmnz");
788 #endif
789 #ifdef LOOKUP_DNSDB
790   fprintf(f, " dnsdb");
791 #endif
792 #ifdef LOOKUP_DSEARCH
793   fprintf(f, " dsearch");
794 #endif
795 #ifdef LOOKUP_IBASE
796   fprintf(f, " ibase");
797 #endif
798 #ifdef LOOKUP_LDAP
799   fprintf(f, " ldap ldapdn ldapm");
800 #endif
801 #ifdef LOOKUP_MYSQL
802   fprintf(f, " mysql");
803 #endif
804 #ifdef LOOKUP_NIS
805   fprintf(f, " nis nis0");
806 #endif
807 #ifdef LOOKUP_NISPLUS
808   fprintf(f, " nisplus");
809 #endif
810 #ifdef LOOKUP_ORACLE
811   fprintf(f, " oracle");
812 #endif
813 #ifdef LOOKUP_PASSWD
814   fprintf(f, " passwd");
815 #endif
816 #ifdef LOOKUP_PGSQL
817   fprintf(f, " pgsql");
818 #endif
819 #ifdef LOOKUP_SQLITE
820   fprintf(f, " sqlite");
821 #endif
822 #ifdef LOOKUP_TESTDB
823   fprintf(f, " testdb");
824 #endif
825 #ifdef LOOKUP_WHOSON
826   fprintf(f, " whoson");
827 #endif
828 fprintf(f, "\n");
829
830 fprintf(f, "Authenticators:");
831 #ifdef AUTH_CRAM_MD5
832   fprintf(f, " cram_md5");
833 #endif
834 #ifdef AUTH_CYRUS_SASL
835   fprintf(f, " cyrus_sasl");
836 #endif
837 #ifdef AUTH_DOVECOT
838   fprintf(f, " dovecot");
839 #endif
840 #ifdef AUTH_PLAINTEXT
841   fprintf(f, " plaintext");
842 #endif
843 #ifdef AUTH_SPA
844   fprintf(f, " spa");
845 #endif
846 fprintf(f, "\n");
847
848 fprintf(f, "Routers:");
849 #ifdef ROUTER_ACCEPT
850   fprintf(f, " accept");
851 #endif
852 #ifdef ROUTER_DNSLOOKUP
853   fprintf(f, " dnslookup");
854 #endif
855 #ifdef ROUTER_IPLITERAL
856   fprintf(f, " ipliteral");
857 #endif
858 #ifdef ROUTER_IPLOOKUP
859   fprintf(f, " iplookup");
860 #endif
861 #ifdef ROUTER_MANUALROUTE
862   fprintf(f, " manualroute");
863 #endif
864 #ifdef ROUTER_QUERYPROGRAM
865   fprintf(f, " queryprogram");
866 #endif
867 #ifdef ROUTER_REDIRECT
868   fprintf(f, " redirect");
869 #endif
870 fprintf(f, "\n");
871
872 fprintf(f, "Transports:");
873 #ifdef TRANSPORT_APPENDFILE
874   fprintf(f, " appendfile");
875   #ifdef SUPPORT_MAILDIR
876     fprintf(f, "/maildir");
877   #endif
878   #ifdef SUPPORT_MAILSTORE
879     fprintf(f, "/mailstore");
880   #endif
881   #ifdef SUPPORT_MBX
882     fprintf(f, "/mbx");
883   #endif
884 #endif
885 #ifdef TRANSPORT_AUTOREPLY
886   fprintf(f, " autoreply");
887 #endif
888 #ifdef TRANSPORT_LMTP
889   fprintf(f, " lmtp");
890 #endif
891 #ifdef TRANSPORT_PIPE
892   fprintf(f, " pipe");
893 #endif
894 #ifdef TRANSPORT_SMTP
895   fprintf(f, " smtp");
896 #endif
897 fprintf(f, "\n");
898
899 if (fixed_never_users[0] > 0)
900   {
901   int i;
902   fprintf(f, "Fixed never_users: ");
903   for (i = 1; i <= (int)fixed_never_users[0] - 1; i++)
904     fprintf(f, "%d:", (unsigned int)fixed_never_users[i]);
905   fprintf(f, "%d\n", (unsigned int)fixed_never_users[i]);
906   }
907
908 fprintf(f, "Size of off_t: %d\n", sizeof(off_t));
909
910 /* This runtime check is to help diagnose library linkage mismatches which
911 result in segfaults and the like; as such, it's left until the end,
912 just in case.  There will still be a "Configuration file is" line still to
913 come. */
914 #ifdef SUPPORT_TLS
915 tls_version_report(f);
916 #endif
917 }
918
919
920
921
922 /*************************************************
923 *               Quote a local part               *
924 *************************************************/
925
926 /* This function is used when a sender address or a From: or Sender: header
927 line is being created from the caller's login, or from an authenticated_id. It
928 applies appropriate quoting rules for a local part.
929
930 Argument:    the local part
931 Returns:     the local part, quoted if necessary
932 */
933
934 uschar *
935 local_part_quote(uschar *lpart)
936 {
937 BOOL needs_quote = FALSE;
938 int size, ptr;
939 uschar *yield;
940 uschar *t;
941
942 for (t = lpart; !needs_quote && *t != 0; t++)
943   {
944   needs_quote = !isalnum(*t) && strchr("!#$%&'*+-/=?^_`{|}~", *t) == NULL &&
945     (*t != '.' || t == lpart || t[1] == 0);
946   }
947
948 if (!needs_quote) return lpart;
949
950 size = ptr = 0;
951 yield = string_cat(NULL, &size, &ptr, US"\"", 1);
952
953 for (;;)
954   {
955   uschar *nq = US Ustrpbrk(lpart, "\\\"");
956   if (nq == NULL)
957     {
958     yield = string_cat(yield, &size, &ptr, lpart, Ustrlen(lpart));
959     break;
960     }
961   yield = string_cat(yield, &size, &ptr, lpart, nq - lpart);
962   yield = string_cat(yield, &size, &ptr, US"\\", 1);
963   yield = string_cat(yield, &size, &ptr, nq, 1);
964   lpart = nq + 1;
965   }
966
967 yield = string_cat(yield, &size, &ptr, US"\"", 1);
968 yield[ptr] = 0;
969 return yield;
970 }
971
972
973
974 #ifdef USE_READLINE
975 /*************************************************
976 *         Load readline() functions              *
977 *************************************************/
978
979 /* This function is called from testing executions that read data from stdin,
980 but only when running as the calling user. Currently, only -be does this. The
981 function loads the readline() function library and passes back the functions.
982 On some systems, it needs the curses library, so load that too, but try without
983 it if loading fails. All this functionality has to be requested at build time.
984
985 Arguments:
986   fn_readline_ptr   pointer to where to put the readline pointer
987   fn_addhist_ptr    pointer to where to put the addhistory function
988
989 Returns:            the dlopen handle or NULL on failure
990 */
991
992 static void *
993 set_readline(char * (**fn_readline_ptr)(char *),
994              char * (**fn_addhist_ptr)(char *))
995 {
996 void *dlhandle;
997 void *dlhandle_curses = dlopen("libcurses.so", RTLD_GLOBAL|RTLD_LAZY);
998
999 dlhandle = dlopen("libreadline.so", RTLD_GLOBAL|RTLD_NOW);
1000 if (dlhandle_curses != NULL) dlclose(dlhandle_curses);
1001
1002 if (dlhandle != NULL)
1003   {
1004   *fn_readline_ptr = (char *(*)(char*))dlsym(dlhandle, "readline");
1005   *fn_addhist_ptr = (char *(*)(char*))dlsym(dlhandle, "add_history");
1006   }
1007 else
1008   {
1009   DEBUG(D_any) debug_printf("failed to load readline: %s\n", dlerror());
1010   }
1011
1012 return dlhandle;
1013 }
1014 #endif
1015
1016
1017
1018 /*************************************************
1019 *    Get a line from stdin for testing things    *
1020 *************************************************/
1021
1022 /* This function is called when running tests that can take a number of lines
1023 of input (for example, -be and -bt). It handles continuations and trailing
1024 spaces. And prompting and a blank line output on eof. If readline() is in use,
1025 the arguments are non-NULL and provide the relevant functions.
1026
1027 Arguments:
1028   fn_readline   readline function or NULL
1029   fn_addhist    addhist function or NULL
1030
1031 Returns:        pointer to dynamic memory, or NULL at end of file
1032 */
1033
1034 static uschar *
1035 get_stdinput(char *(*fn_readline)(char *), char *(*fn_addhist)(char *))
1036 {
1037 int i;
1038 int size = 0;
1039 int ptr = 0;
1040 uschar *yield = NULL;
1041
1042 if (fn_readline == NULL) { printf("> "); fflush(stdout); }
1043
1044 for (i = 0;; i++)
1045   {
1046   uschar buffer[1024];
1047   uschar *p, *ss;
1048
1049   #ifdef USE_READLINE
1050   char *readline_line = NULL;
1051   if (fn_readline != NULL)
1052     {
1053     if ((readline_line = fn_readline((i > 0)? "":"> ")) == NULL) break;
1054     if (*readline_line != 0 && fn_addhist != NULL) fn_addhist(readline_line);
1055     p = US readline_line;
1056     }
1057   else
1058   #endif
1059
1060   /* readline() not in use */
1061
1062     {
1063     if (Ufgets(buffer, sizeof(buffer), stdin) == NULL) break;
1064     p = buffer;
1065     }
1066
1067   /* Handle the line */
1068
1069   ss = p + (int)Ustrlen(p);
1070   while (ss > p && isspace(ss[-1])) ss--;
1071
1072   if (i > 0)
1073     {
1074     while (p < ss && isspace(*p)) p++;   /* leading space after cont */
1075     }
1076
1077   yield = string_cat(yield, &size, &ptr, p, ss - p);
1078
1079   #ifdef USE_READLINE
1080   if (fn_readline != NULL) free(readline_line);
1081   #endif
1082
1083   if (ss == p || yield[ptr-1] != '\\')
1084     {
1085     yield[ptr] = 0;
1086     break;
1087     }
1088   yield[--ptr] = 0;
1089   }
1090
1091 if (yield == NULL) printf("\n");
1092 return yield;
1093 }
1094
1095
1096
1097 /*************************************************
1098 *    Output usage information for the program    *
1099 *************************************************/
1100
1101 /* This function is called when there are no recipients
1102    or a specific --help argument was added.
1103
1104 Arguments:
1105   progname      information on what name we were called by
1106
1107 Returns:        DOES NOT RETURN
1108 */
1109
1110 static void
1111 exim_usage(uschar *progname)
1112 {
1113
1114 /* Handle specific program invocation varients */
1115 if (Ustrcmp(progname, US"-mailq") == 0)
1116   {
1117   fprintf(stderr,
1118     "mailq - list the contents of the mail queue\n\n"
1119     "For a list of options, see the Exim documentation.\n");
1120   exit(EXIT_FAILURE);
1121   }
1122
1123 /* Generic usage - we output this whatever happens */
1124 fprintf(stderr,
1125   "Exim is a Mail Transfer Agent. It is normally called by Mail User Agents,\n"
1126   "not directly from a shell command line. Options and/or arguments control\n"
1127   "what it does when called. For a list of options, see the Exim documentation.\n");
1128
1129 exit(EXIT_FAILURE);
1130 }
1131
1132
1133
1134 /*************************************************
1135 *          Entry point and high-level code       *
1136 *************************************************/
1137
1138 /* Entry point for the Exim mailer. Analyse the arguments and arrange to take
1139 the appropriate action. All the necessary functions are present in the one
1140 binary. I originally thought one should split it up, but it turns out that so
1141 much of the apparatus is needed in each chunk that one might as well just have
1142 it all available all the time, which then makes the coding easier as well.
1143
1144 Arguments:
1145   argc      count of entries in argv
1146   argv      argument strings, with argv[0] being the program name
1147
1148 Returns:    EXIT_SUCCESS if terminated successfully
1149             EXIT_FAILURE otherwise, except when a message has been sent
1150               to the sender, and -oee was given
1151 */
1152
1153 int
1154 main(int argc, char **cargv)
1155 {
1156 uschar **argv = USS cargv;
1157 int  arg_receive_timeout = -1;
1158 int  arg_smtp_receive_timeout = -1;
1159 int  arg_error_handling = error_handling;
1160 int  filter_sfd = -1;
1161 int  filter_ufd = -1;
1162 int  group_count;
1163 int  i;
1164 int  list_queue_option = 0;
1165 int  msg_action = 0;
1166 int  msg_action_arg = -1;
1167 int  namelen = (argv[0] == NULL)? 0 : Ustrlen(argv[0]);
1168 int  queue_only_reason = 0;
1169 #ifdef EXIM_PERL
1170 int  perl_start_option = 0;
1171 #endif
1172 int  recipients_arg = argc;
1173 int  sender_address_domain = 0;
1174 int  test_retry_arg = -1;
1175 int  test_rewrite_arg = -1;
1176 BOOL arg_queue_only = FALSE;
1177 BOOL bi_option = FALSE;
1178 BOOL checking = FALSE;
1179 BOOL count_queue = FALSE;
1180 BOOL expansion_test = FALSE;
1181 BOOL extract_recipients = FALSE;
1182 BOOL forced_delivery = FALSE;
1183 BOOL f_end_dot = FALSE;
1184 BOOL deliver_give_up = FALSE;
1185 BOOL list_queue = FALSE;
1186 BOOL list_options = FALSE;
1187 BOOL local_queue_only;
1188 BOOL more = TRUE;
1189 BOOL one_msg_action = FALSE;
1190 BOOL queue_only_set = FALSE;
1191 BOOL receiving_message = TRUE;
1192 BOOL sender_ident_set = FALSE;
1193 BOOL session_local_queue_only;
1194 BOOL unprivileged;
1195 BOOL removed_privilege = FALSE;
1196 BOOL usage_wanted = FALSE;
1197 BOOL verify_address_mode = FALSE;
1198 BOOL verify_as_sender = FALSE;
1199 BOOL version_printed = FALSE;
1200 uschar *alias_arg = NULL;
1201 uschar *called_as = US"";
1202 uschar *start_queue_run_id = NULL;
1203 uschar *stop_queue_run_id = NULL;
1204 uschar *expansion_test_message = NULL;
1205 uschar *ftest_domain = NULL;
1206 uschar *ftest_localpart = NULL;
1207 uschar *ftest_prefix = NULL;
1208 uschar *ftest_suffix = NULL;
1209 uschar *malware_test_file = NULL;
1210 uschar *real_sender_address;
1211 uschar *originator_home = US"/";
1212 void *reset_point;
1213
1214 struct passwd *pw;
1215 struct stat statbuf;
1216 pid_t passed_qr_pid = (pid_t)0;
1217 int passed_qr_pipe = -1;
1218 gid_t group_list[NGROUPS_MAX];
1219
1220 /* Possible options for -R and -S */
1221
1222 static uschar *rsopts[] = { US"f", US"ff", US"r", US"rf", US"rff" };
1223
1224 /* Need to define this in case we need to change the environment in order
1225 to get rid of a bogus time zone. We have to make it char rather than uschar
1226 because some OS define it in /usr/include/unistd.h. */
1227
1228 extern char **environ;
1229
1230 /* If the Exim user and/or group and/or the configuration file owner/group were
1231 defined by ref:name at build time, we must now find the actual uid/gid values.
1232 This is a feature to make the lives of binary distributors easier. */
1233
1234 #ifdef EXIM_USERNAME
1235 if (route_finduser(US EXIM_USERNAME, &pw, &exim_uid))
1236   {
1237   exim_gid = pw->pw_gid;
1238   }
1239 else
1240   {
1241   fprintf(stderr, "exim: failed to find uid for user name \"%s\"\n",
1242     EXIM_USERNAME);
1243   exit(EXIT_FAILURE);
1244   }
1245 #endif
1246
1247 #ifdef EXIM_GROUPNAME
1248 if (!route_findgroup(US EXIM_GROUPNAME, &exim_gid))
1249   {
1250   fprintf(stderr, "exim: failed to find gid for group name \"%s\"\n",
1251     EXIM_GROUPNAME);
1252   exit(EXIT_FAILURE);
1253   }
1254 #endif
1255
1256 #ifdef CONFIGURE_OWNERNAME
1257 if (!route_finduser(US CONFIGURE_OWNERNAME, NULL, &config_uid))
1258   {
1259   fprintf(stderr, "exim: failed to find uid for user name \"%s\"\n",
1260     CONFIGURE_OWNERNAME);
1261   exit(EXIT_FAILURE);
1262   }
1263 #endif
1264
1265 #ifdef CONFIGURE_GROUPNAME
1266 if (!route_findgroup(US CONFIGURE_GROUPNAME, &config_gid))
1267   {
1268   fprintf(stderr, "exim: failed to find gid for group name \"%s\"\n",
1269     CONFIGURE_GROUPNAME);
1270   exit(EXIT_FAILURE);
1271   }
1272 #endif
1273
1274 /* In the Cygwin environment, some initialization needs doing. It is fudged
1275 in by means of this macro. */
1276
1277 #ifdef OS_INIT
1278 OS_INIT
1279 #endif
1280
1281 /* Check a field which is patched when we are running Exim within its
1282 testing harness; do a fast initial check, and then the whole thing. */
1283
1284 running_in_test_harness =
1285   *running_status == '<' && Ustrcmp(running_status, "<<<testing>>>") == 0;
1286
1287 /* The C standard says that the equivalent of setlocale(LC_ALL, "C") is obeyed
1288 at the start of a program; however, it seems that some environments do not
1289 follow this. A "strange" locale can affect the formatting of timestamps, so we
1290 make quite sure. */
1291
1292 setlocale(LC_ALL, "C");
1293
1294 /* Set up the default handler for timing using alarm(). */
1295
1296 os_non_restarting_signal(SIGALRM, sigalrm_handler);
1297
1298 /* Ensure we have a buffer for constructing log entries. Use malloc directly,
1299 because store_malloc writes a log entry on failure. */
1300
1301 log_buffer = (uschar *)malloc(LOG_BUFFER_SIZE);
1302 if (log_buffer == NULL)
1303   {
1304   fprintf(stderr, "exim: failed to get store for log buffer\n");
1305   exit(EXIT_FAILURE);
1306   }
1307
1308 /* Set log_stderr to stderr, provided that stderr exists. This gets reset to
1309 NULL when the daemon is run and the file is closed. We have to use this
1310 indirection, because some systems don't allow writing to the variable "stderr".
1311 */
1312
1313 if (fstat(fileno(stderr), &statbuf) >= 0) log_stderr = stderr;
1314
1315 /* Arrange for the PCRE regex library to use our store functions. Note that
1316 the normal calls are actually macros that add additional arguments for
1317 debugging purposes so we have to assign specially constructed functions here.
1318 The default is to use store in the stacking pool, but this is overridden in the
1319 regex_must_compile() function. */
1320
1321 pcre_malloc = function_store_get;
1322 pcre_free = function_dummy_free;
1323
1324 /* Ensure there is a big buffer for temporary use in several places. It is put
1325 in malloc store so that it can be freed for enlargement if necessary. */
1326
1327 big_buffer = store_malloc(big_buffer_size);
1328
1329 /* Set up the handler for the data request signal, and set the initial
1330 descriptive text. */
1331
1332 set_process_info("initializing");
1333 os_restarting_signal(SIGUSR1, usr1_handler);
1334
1335 /* SIGHUP is used to get the daemon to reconfigure. It gets set as appropriate
1336 in the daemon code. For the rest of Exim's uses, we ignore it. */
1337
1338 signal(SIGHUP, SIG_IGN);
1339
1340 /* We don't want to die on pipe errors as the code is written to handle
1341 the write error instead. */
1342
1343 signal(SIGPIPE, SIG_IGN);
1344
1345 /* Under some circumstance on some OS, Exim can get called with SIGCHLD
1346 set to SIG_IGN. This causes subprocesses that complete before the parent
1347 process waits for them not to hang around, so when Exim calls wait(), nothing
1348 is there. The wait() code has been made robust against this, but let's ensure
1349 that SIGCHLD is set to SIG_DFL, because it's tidier to wait and get a process
1350 ending status. We use sigaction rather than plain signal() on those OS where
1351 SA_NOCLDWAIT exists, because we want to be sure it is turned off. (There was a
1352 problem on AIX with this.) */
1353
1354 #ifdef SA_NOCLDWAIT
1355   {
1356   struct sigaction act;
1357   act.sa_handler = SIG_DFL;
1358   sigemptyset(&(act.sa_mask));
1359   act.sa_flags = 0;
1360   sigaction(SIGCHLD, &act, NULL);
1361   }
1362 #else
1363 signal(SIGCHLD, SIG_DFL);
1364 #endif
1365
1366 /* Save the arguments for use if we re-exec exim as a daemon after receiving
1367 SIGHUP. */
1368
1369 sighup_argv = argv;
1370
1371 /* Set up the version number. Set up the leading 'E' for the external form of
1372 message ids, set the pointer to the internal form, and initialize it to
1373 indicate no message being processed. */
1374
1375 version_init();
1376 message_id_option[0] = '-';
1377 message_id_external = message_id_option + 1;
1378 message_id_external[0] = 'E';
1379 message_id = message_id_external + 1;
1380 message_id[0] = 0;
1381
1382 /* Set the umask to zero so that any files Exim creates using open() are
1383 created with the modes that it specifies. NOTE: Files created with fopen() have
1384 a problem, which was not recognized till rather late (February 2006). With this
1385 umask, such files will be world writeable. (They are all content scanning files
1386 in the spool directory, which isn't world-accessible, so this is not a
1387 disaster, but it's untidy.) I don't want to change this overall setting,
1388 however, because it will interact badly with the open() calls. Instead, there's
1389 now a function called modefopen() that fiddles with the umask while calling
1390 fopen(). */
1391
1392 (void)umask(0);
1393
1394 /* Precompile the regular expression for matching a message id. Keep this in
1395 step with the code that generates ids in the accept.c module. We need to do
1396 this here, because the -M options check their arguments for syntactic validity
1397 using mac_ismsgid, which uses this. */
1398
1399 regex_ismsgid =
1400   regex_must_compile(US"^(?:[^\\W_]{6}-){2}[^\\W_]{2}$", FALSE, TRUE);
1401
1402 /* Precompile the regular expression that is used for matching an SMTP error
1403 code, possibly extended, at the start of an error message. Note that the
1404 terminating whitespace character is included. */
1405
1406 regex_smtp_code =
1407   regex_must_compile(US"^\\d\\d\\d\\s(?:\\d\\.\\d\\d?\\d?\\.\\d\\d?\\d?\\s)?",
1408     FALSE, TRUE);
1409
1410 /* If the program is called as "mailq" treat it as equivalent to "exim -bp";
1411 this seems to be a generally accepted convention, since one finds symbolic
1412 links called "mailq" in standard OS configurations. */
1413
1414 if ((namelen == 5 && Ustrcmp(argv[0], "mailq") == 0) ||
1415     (namelen  > 5 && Ustrncmp(argv[0] + namelen - 6, "/mailq", 6) == 0))
1416   {
1417   list_queue = TRUE;
1418   receiving_message = FALSE;
1419   called_as = US"-mailq";
1420   }
1421
1422 /* If the program is called as "rmail" treat it as equivalent to
1423 "exim -i -oee", thus allowing UUCP messages to be input using non-SMTP mode,
1424 i.e. preventing a single dot on a line from terminating the message, and
1425 returning with zero return code, even in cases of error (provided an error
1426 message has been sent). */
1427
1428 if ((namelen == 5 && Ustrcmp(argv[0], "rmail") == 0) ||
1429     (namelen  > 5 && Ustrncmp(argv[0] + namelen - 6, "/rmail", 6) == 0))
1430   {
1431   dot_ends = FALSE;
1432   called_as = US"-rmail";
1433   errors_sender_rc = EXIT_SUCCESS;
1434   }
1435
1436 /* If the program is called as "rsmtp" treat it as equivalent to "exim -bS";
1437 this is a smail convention. */
1438
1439 if ((namelen == 5 && Ustrcmp(argv[0], "rsmtp") == 0) ||
1440     (namelen  > 5 && Ustrncmp(argv[0] + namelen - 6, "/rsmtp", 6) == 0))
1441   {
1442   smtp_input = smtp_batched_input = TRUE;
1443   called_as = US"-rsmtp";
1444   }
1445
1446 /* If the program is called as "runq" treat it as equivalent to "exim -q";
1447 this is a smail convention. */
1448
1449 if ((namelen == 4 && Ustrcmp(argv[0], "runq") == 0) ||
1450     (namelen  > 4 && Ustrncmp(argv[0] + namelen - 5, "/runq", 5) == 0))
1451   {
1452   queue_interval = 0;
1453   receiving_message = FALSE;
1454   called_as = US"-runq";
1455   }
1456
1457 /* If the program is called as "newaliases" treat it as equivalent to
1458 "exim -bi"; this is a sendmail convention. */
1459
1460 if ((namelen == 10 && Ustrcmp(argv[0], "newaliases") == 0) ||
1461     (namelen  > 10 && Ustrncmp(argv[0] + namelen - 11, "/newaliases", 11) == 0))
1462   {
1463   bi_option = TRUE;
1464   receiving_message = FALSE;
1465   called_as = US"-newaliases";
1466   }
1467
1468 /* Save the original effective uid for a couple of uses later. It should
1469 normally be root, but in some esoteric environments it may not be. */
1470
1471 original_euid = geteuid();
1472
1473 /* Get the real uid and gid. If the caller is root, force the effective uid/gid
1474 to be the same as the real ones. This makes a difference only if Exim is setuid
1475 (or setgid) to something other than root, which could be the case in some
1476 special configurations. */
1477
1478 real_uid = getuid();
1479 real_gid = getgid();
1480
1481 if (real_uid == root_uid)
1482   {
1483   setgid(real_gid);
1484   setuid(real_uid);
1485   }
1486
1487 /* If neither the original real uid nor the original euid was root, Exim is
1488 running in an unprivileged state. */
1489
1490 unprivileged = (real_uid != root_uid && original_euid != root_uid);
1491
1492 /* If the first argument is --help, set usage_wanted and pretend there
1493 are no arguments. This will cause a brief message to be given.   We do
1494 the message generation downstream so we can pick up how we were invoked */
1495
1496 if (argc > 1 && Ustrcmp(argv[1], "--help") == 0)
1497   {
1498   argc = 1;
1499   usage_wanted = TRUE;
1500   }
1501
1502 /* Scan the program's arguments. Some can be dealt with right away; others are
1503 simply recorded for checking and handling afterwards. Do a high-level switch
1504 on the second character (the one after '-'), to save some effort. */
1505
1506 for (i = 1; i < argc; i++)
1507   {
1508   BOOL badarg = FALSE;
1509   uschar *arg = argv[i];
1510   uschar *argrest;
1511   int switchchar;
1512
1513   /* An argument not starting with '-' is the start of a recipients list;
1514   break out of the options-scanning loop. */
1515
1516   if (arg[0] != '-')
1517     {
1518     recipients_arg = i;
1519     break;
1520     }
1521
1522   /* An option consistion of -- terminates the options */
1523
1524   if (Ustrcmp(arg, "--") == 0)
1525     {
1526     recipients_arg = i + 1;
1527     break;
1528     }
1529
1530   /* Handle flagged options */
1531
1532   switchchar = arg[1];
1533   argrest = arg+2;
1534
1535   /* Make all -ex options synonymous with -oex arguments, since that
1536   is assumed by various callers. Also make -qR options synonymous with -R
1537   options, as that seems to be required as well. Allow for -qqR too, and
1538   the same for -S options. */
1539
1540   if (Ustrncmp(arg+1, "oe", 2) == 0 ||
1541       Ustrncmp(arg+1, "qR", 2) == 0 ||
1542       Ustrncmp(arg+1, "qS", 2) == 0)
1543     {
1544     switchchar = arg[2];
1545     argrest++;
1546     }
1547   else if (Ustrncmp(arg+1, "qqR", 3) == 0 || Ustrncmp(arg+1, "qqS", 3) == 0)
1548     {
1549     switchchar = arg[3];
1550     argrest += 2;
1551     queue_2stage = TRUE;
1552     }
1553
1554   /* Make -r synonymous with -f, since it is a documented alias */
1555
1556   else if (arg[1] == 'r') switchchar = 'f';
1557
1558   /* Make -ov synonymous with -v */
1559
1560   else if (Ustrcmp(arg, "-ov") == 0)
1561     {
1562     switchchar = 'v';
1563     argrest++;
1564     }
1565
1566   /* High-level switch on active initial letter */
1567
1568   switch(switchchar)
1569     {
1570     /* -Btype is a sendmail option for 7bit/8bit setting. Exim is 8-bit clean
1571     so has no need of it. */
1572
1573     case 'B':
1574     if (*argrest == 0) i++;       /* Skip over the type */
1575     break;
1576
1577
1578     case 'b':
1579     receiving_message = FALSE;    /* Reset TRUE for -bm, -bS, -bs below */
1580
1581     /* -bd:  Run in daemon mode, awaiting SMTP connections.
1582        -bdf: Ditto, but in the foreground.
1583     */
1584
1585     if (*argrest == 'd')
1586       {
1587       daemon_listen = TRUE;
1588       if (*(++argrest) == 'f') background_daemon = FALSE;
1589         else if (*argrest != 0) { badarg = TRUE; break; }
1590       }
1591
1592     /* -be:  Run in expansion test mode
1593        -bem: Ditto, but read a message from a file first
1594     */
1595
1596     else if (*argrest == 'e')
1597       {
1598       expansion_test = checking = TRUE;
1599       if (argrest[1] == 'm')
1600         {
1601         if (++i >= argc) { badarg = TRUE; break; }
1602         expansion_test_message = argv[i];
1603         argrest++;
1604         }
1605       if (argrest[1] != 0) { badarg = TRUE; break; }
1606       }
1607
1608     /* -bF:  Run system filter test */
1609
1610     else if (*argrest == 'F')
1611       {
1612       filter_test |= FTEST_SYSTEM;
1613       if (*(++argrest) != 0) { badarg = TRUE; break; }
1614       if (++i < argc) filter_test_sfile = argv[i]; else
1615         {
1616         fprintf(stderr, "exim: file name expected after %s\n", argv[i-1]);
1617         exit(EXIT_FAILURE);
1618         }
1619       }
1620
1621     /* -bf:  Run user filter test
1622        -bfd: Set domain for filter testing
1623        -bfl: Set local part for filter testing
1624        -bfp: Set prefix for filter testing
1625        -bfs: Set suffix for filter testing
1626     */
1627
1628     else if (*argrest == 'f')
1629       {
1630       if (*(++argrest) == 0)
1631         {
1632         filter_test |= FTEST_USER;
1633         if (++i < argc) filter_test_ufile = argv[i]; else
1634           {
1635           fprintf(stderr, "exim: file name expected after %s\n", argv[i-1]);
1636           exit(EXIT_FAILURE);
1637           }
1638         }
1639       else
1640         {
1641         if (++i >= argc)
1642           {
1643           fprintf(stderr, "exim: string expected after %s\n", arg);
1644           exit(EXIT_FAILURE);
1645           }
1646         if (Ustrcmp(argrest, "d") == 0) ftest_domain = argv[i];
1647         else if (Ustrcmp(argrest, "l") == 0) ftest_localpart = argv[i];
1648         else if (Ustrcmp(argrest, "p") == 0) ftest_prefix = argv[i];
1649         else if (Ustrcmp(argrest, "s") == 0) ftest_suffix = argv[i];
1650         else { badarg = TRUE; break; }
1651         }
1652       }
1653
1654     /* -bh: Host checking - an IP address must follow. */
1655
1656     else if (Ustrcmp(argrest, "h") == 0 || Ustrcmp(argrest, "hc") == 0)
1657       {
1658       if (++i >= argc) { badarg = TRUE; break; }
1659       sender_host_address = argv[i];
1660       host_checking = checking = log_testing_mode = TRUE;
1661       host_checking_callout = argrest[1] == 'c';
1662       }
1663
1664     /* -bi: This option is used by sendmail to initialize *the* alias file,
1665     though it has the -oA option to specify a different file. Exim has no
1666     concept of *the* alias file, but since Sun's YP make script calls
1667     sendmail this way, some support must be provided. */
1668
1669     else if (Ustrcmp(argrest, "i") == 0) bi_option = TRUE;
1670
1671     /* -bm: Accept and deliver message - the default option. Reinstate
1672     receiving_message, which got turned off for all -b options. */
1673
1674     else if (Ustrcmp(argrest, "m") == 0) receiving_message = TRUE;
1675
1676     /* -bmalware: test the filename given for malware */
1677
1678     else if (Ustrcmp(argrest, "malware") == 0)
1679       {
1680       if (++i >= argc) { badarg = TRUE; break; }
1681       malware_test_file = argv[i];
1682       }
1683
1684     /* -bnq: For locally originating messages, do not qualify unqualified
1685     addresses. In the envelope, this causes errors; in header lines they
1686     just get left. */
1687
1688     else if (Ustrcmp(argrest, "nq") == 0)
1689       {
1690       allow_unqualified_sender = FALSE;
1691       allow_unqualified_recipient = FALSE;
1692       }
1693
1694     /* -bpxx: List the contents of the mail queue, in various forms. If
1695     the option is -bpc, just a queue count is needed. Otherwise, if the
1696     first letter after p is r, then order is random. */
1697
1698     else if (*argrest == 'p')
1699       {
1700       if (*(++argrest) == 'c')
1701         {
1702         count_queue = TRUE;
1703         if (*(++argrest) != 0) badarg = TRUE;
1704         break;
1705         }
1706
1707       if (*argrest == 'r')
1708         {
1709         list_queue_option = 8;
1710         argrest++;
1711         }
1712       else list_queue_option = 0;
1713
1714       list_queue = TRUE;
1715
1716       /* -bp: List the contents of the mail queue, top-level only */
1717
1718       if (*argrest == 0) {}
1719
1720       /* -bpu: List the contents of the mail queue, top-level undelivered */
1721
1722       else if (Ustrcmp(argrest, "u") == 0) list_queue_option += 1;
1723
1724       /* -bpa: List the contents of the mail queue, including all delivered */
1725
1726       else if (Ustrcmp(argrest, "a") == 0) list_queue_option += 2;
1727
1728       /* Unknown after -bp[r] */
1729
1730       else
1731         {
1732         badarg = TRUE;
1733         break;
1734         }
1735       }
1736
1737
1738     /* -bP: List the configuration variables given as the address list.
1739     Force -v, so configuration errors get displayed. */
1740
1741     else if (Ustrcmp(argrest, "P") == 0)
1742       {
1743       list_options = TRUE;
1744       debug_selector |= D_v;
1745       debug_file = stderr;
1746       }
1747
1748     /* -brt: Test retry configuration lookup */
1749
1750     else if (Ustrcmp(argrest, "rt") == 0)
1751       {
1752       test_retry_arg = i + 1;
1753       goto END_ARG;
1754       }
1755
1756     /* -brw: Test rewrite configuration */
1757
1758     else if (Ustrcmp(argrest, "rw") == 0)
1759       {
1760       test_rewrite_arg = i + 1;
1761       goto END_ARG;
1762       }
1763
1764     /* -bS: Read SMTP commands on standard input, but produce no replies -
1765     all errors are reported by sending messages. */
1766
1767     else if (Ustrcmp(argrest, "S") == 0)
1768       smtp_input = smtp_batched_input = receiving_message = TRUE;
1769
1770     /* -bs: Read SMTP commands on standard input and produce SMTP replies
1771     on standard output. */
1772
1773     else if (Ustrcmp(argrest, "s") == 0) smtp_input = receiving_message = TRUE;
1774
1775     /* -bt: address testing mode */
1776
1777     else if (Ustrcmp(argrest, "t") == 0)
1778       address_test_mode = checking = log_testing_mode = TRUE;
1779
1780     /* -bv: verify addresses */
1781
1782     else if (Ustrcmp(argrest, "v") == 0)
1783       verify_address_mode = checking = log_testing_mode = TRUE;
1784
1785     /* -bvs: verify sender addresses */
1786
1787     else if (Ustrcmp(argrest, "vs") == 0)
1788       {
1789       verify_address_mode = checking = log_testing_mode = TRUE;
1790       verify_as_sender = TRUE;
1791       }
1792
1793     /* -bV: Print version string and support details */
1794
1795     else if (Ustrcmp(argrest, "V") == 0)
1796       {
1797       printf("Exim version %s #%s built %s\n", version_string,
1798         version_cnumber, version_date);
1799       printf("%s\n", CS version_copyright);
1800       version_printed = TRUE;
1801       show_whats_supported(stdout);
1802       }
1803
1804     else badarg = TRUE;
1805     break;
1806
1807
1808     /* -C: change configuration file list; ignore if it isn't really
1809     a change! Enforce a prefix check if required. */
1810
1811     case 'C':
1812     if (*argrest == 0)
1813       {
1814       if(++i < argc) argrest = argv[i]; else
1815         { badarg = TRUE; break; }
1816       }
1817     if (Ustrcmp(config_main_filelist, argrest) != 0)
1818       {
1819       #ifdef ALT_CONFIG_PREFIX
1820       int sep = 0;
1821       int len = Ustrlen(ALT_CONFIG_PREFIX);
1822       uschar *list = argrest;
1823       uschar *filename;
1824       while((filename = string_nextinlist(&list, &sep, big_buffer,
1825              big_buffer_size)) != NULL)
1826         {
1827         if ((Ustrlen(filename) < len ||
1828              Ustrncmp(filename, ALT_CONFIG_PREFIX, len) != 0 ||
1829              Ustrstr(filename, "/../") != NULL) &&
1830              (Ustrcmp(filename, "/dev/null") != 0 || real_uid != root_uid))
1831           {
1832           fprintf(stderr, "-C Permission denied\n");
1833           exit(EXIT_FAILURE);
1834           }
1835         }
1836       #endif
1837
1838       config_main_filelist = argrest;
1839       config_changed = TRUE;
1840       }
1841     break;
1842
1843
1844     /* -D: set up a macro definition */
1845
1846     case 'D':
1847     #ifdef DISABLE_D_OPTION
1848     fprintf(stderr, "exim: -D is not available in this Exim binary\n");
1849     exit(EXIT_FAILURE);
1850     #else
1851       {
1852       int ptr = 0;
1853       macro_item *mlast = NULL;
1854       macro_item *m;
1855       uschar name[24];
1856       uschar *s = argrest;
1857
1858       while (isspace(*s)) s++;
1859
1860       if (*s < 'A' || *s > 'Z')
1861         {
1862         fprintf(stderr, "exim: macro name set by -D must start with "
1863           "an upper case letter\n");
1864         exit(EXIT_FAILURE);
1865         }
1866
1867       while (isalnum(*s) || *s == '_')
1868         {
1869         if (ptr < sizeof(name)-1) name[ptr++] = *s;
1870         s++;
1871         }
1872       name[ptr] = 0;
1873       if (ptr == 0) { badarg = TRUE; break; }
1874       while (isspace(*s)) s++;
1875       if (*s != 0)
1876         {
1877         if (*s++ != '=') { badarg = TRUE; break; }
1878         while (isspace(*s)) s++;
1879         }
1880
1881       for (m = macros; m != NULL; m = m->next)
1882         {
1883         if (Ustrcmp(m->name, name) == 0)
1884           {
1885           fprintf(stderr, "exim: duplicated -D in command line\n");
1886           exit(EXIT_FAILURE);
1887           }
1888         mlast = m;
1889         }
1890
1891       m = store_get(sizeof(macro_item) + Ustrlen(name));
1892       m->next = NULL;
1893       m->command_line = TRUE;
1894       if (mlast == NULL) macros = m; else mlast->next = m;
1895       Ustrcpy(m->name, name);
1896       m->replacement = string_copy(s);
1897
1898       if (clmacro_count >= MAX_CLMACROS)
1899         {
1900         fprintf(stderr, "exim: too many -D options on command line\n");
1901         exit(EXIT_FAILURE);
1902         }
1903       clmacros[clmacro_count++] = string_sprintf("-D%s=%s", m->name,
1904         m->replacement);
1905       }
1906     #endif
1907     break;
1908
1909     /* -d: Set debug level (see also -v below) or set the drop_cr option.
1910     The latter is now a no-op, retained for compatibility only. If -dd is used,
1911     debugging subprocesses of the daemon is disabled. */
1912
1913     case 'd':
1914     if (Ustrcmp(argrest, "ropcr") == 0)
1915       {
1916       /* drop_cr = TRUE; */
1917       }
1918
1919     /* Use an intermediate variable so that we don't set debugging while
1920     decoding the debugging bits. */
1921
1922     else
1923       {
1924       unsigned int selector = D_default;
1925       debug_selector = 0;
1926       debug_file = NULL;
1927       if (*argrest == 'd')
1928         {
1929         debug_daemon = TRUE;
1930         argrest++;
1931         }
1932       if (*argrest != 0)
1933         decode_bits(&selector, NULL, D_memory, 0, argrest, debug_options,
1934           debug_options_count, US"debug", 0);
1935       debug_selector = selector;
1936       }
1937     break;
1938
1939
1940     /* -E: This is a local error message. This option is not intended for
1941     external use at all, but is not restricted to trusted callers because it
1942     does no harm (just suppresses certain error messages) and if Exim is run
1943     not setuid root it won't always be trusted when it generates error
1944     messages using this option. If there is a message id following -E, point
1945     message_reference at it, for logging. */
1946
1947     case 'E':
1948     local_error_message = TRUE;
1949     if (mac_ismsgid(argrest)) message_reference = argrest;
1950     break;
1951
1952
1953     /* -ex: The vacation program calls sendmail with the undocumented "-eq"
1954     option, so it looks as if historically the -oex options are also callable
1955     without the leading -o. So we have to accept them. Before the switch,
1956     anything starting -oe has been converted to -e. Exim does not support all
1957     of the sendmail error options. */
1958
1959     case 'e':
1960     if (Ustrcmp(argrest, "e") == 0)
1961       {
1962       arg_error_handling = ERRORS_SENDER;
1963       errors_sender_rc = EXIT_SUCCESS;
1964       }
1965     else if (Ustrcmp(argrest, "m") == 0) arg_error_handling = ERRORS_SENDER;
1966     else if (Ustrcmp(argrest, "p") == 0) arg_error_handling = ERRORS_STDERR;
1967     else if (Ustrcmp(argrest, "q") == 0) arg_error_handling = ERRORS_STDERR;
1968     else if (Ustrcmp(argrest, "w") == 0) arg_error_handling = ERRORS_SENDER;
1969     else badarg = TRUE;
1970     break;
1971
1972
1973     /* -F: Set sender's full name, used instead of the gecos entry from
1974     the password file. Since users can usually alter their gecos entries,
1975     there's no security involved in using this instead. The data can follow
1976     the -F or be in the next argument. */
1977
1978     case 'F':
1979     if (*argrest == 0)
1980       {
1981       if(++i < argc) argrest = argv[i]; else
1982         { badarg = TRUE; break; }
1983       }
1984     originator_name = argrest;
1985     sender_name_forced = TRUE;
1986     break;
1987
1988
1989     /* -f: Set sender's address - this value is only actually used if Exim is
1990     run by a trusted user, or if untrusted_set_sender is set and matches the
1991     address, except that the null address can always be set by any user. The
1992     test for this happens later, when the value given here is ignored when not
1993     permitted. For an untrusted user, the actual sender is still put in Sender:
1994     if it doesn't match the From: header (unless no_local_from_check is set).
1995     The data can follow the -f or be in the next argument. The -r switch is an
1996     obsolete form of -f but since there appear to be programs out there that
1997     use anything that sendmail has ever supported, better accept it - the
1998     synonymizing is done before the switch above.
1999
2000     At this stage, we must allow domain literal addresses, because we don't
2001     know what the setting of allow_domain_literals is yet. Ditto for trailing
2002     dots and strip_trailing_dot. */
2003
2004     case 'f':
2005       {
2006       int start, end;
2007       uschar *errmess;
2008       if (*argrest == 0)
2009         {
2010         if (i+1 < argc) argrest = argv[++i]; else
2011           { badarg = TRUE; break; }
2012         }
2013       if (*argrest == 0)
2014         {
2015         sender_address = string_sprintf("");  /* Ensure writeable memory */
2016         }
2017       else
2018         {
2019         uschar *temp = argrest + Ustrlen(argrest) - 1;
2020         while (temp >= argrest && isspace(*temp)) temp--;
2021         if (temp >= argrest && *temp == '.') f_end_dot = TRUE;
2022         allow_domain_literals = TRUE;
2023         strip_trailing_dot = TRUE;
2024         sender_address = parse_extract_address(argrest, &errmess, &start, &end,
2025           &sender_address_domain, TRUE);
2026         allow_domain_literals = FALSE;
2027         strip_trailing_dot = FALSE;
2028         if (sender_address == NULL)
2029           {
2030           fprintf(stderr, "exim: bad -f address \"%s\": %s\n", argrest, errmess);
2031           return EXIT_FAILURE;
2032           }
2033         }
2034       sender_address_forced = TRUE;
2035       }
2036     break;
2037
2038     /* This is some Sendmail thing which can be ignored */
2039
2040     case 'G':
2041     break;
2042
2043     /* -h: Set the hop count for an incoming message. Exim does not currently
2044     support this; it always computes it by counting the Received: headers.
2045     To put it in will require a change to the spool header file format. */
2046
2047     case 'h':
2048     if (*argrest == 0)
2049       {
2050       if(++i < argc) argrest = argv[i]; else
2051         { badarg = TRUE; break; }
2052       }
2053     if (!isdigit(*argrest)) badarg = TRUE;
2054     break;
2055
2056
2057     /* -i: Set flag so dot doesn't end non-SMTP input (same as -oi, seems
2058     not to be documented for sendmail but mailx (at least) uses it) */
2059
2060     case 'i':
2061     if (*argrest == 0) dot_ends = FALSE; else badarg = TRUE;
2062     break;
2063
2064
2065     case 'M':
2066     receiving_message = FALSE;
2067
2068     /* -MC:  continue delivery of another message via an existing open
2069     file descriptor. This option is used for an internal call by the
2070     smtp transport when there is a pending message waiting to go to an
2071     address to which it has got a connection. Five subsequent arguments are
2072     required: transport name, host name, IP address, sequence number, and
2073     message_id. Transports may decline to create new processes if the sequence
2074     number gets too big. The channel is stdin. This (-MC) must be the last
2075     argument. There's a subsequent check that the real-uid is privileged.
2076
2077     If we are running in the test harness. delay for a bit, to let the process
2078     that set this one up complete. This makes for repeatability of the logging,
2079     etc. output. */
2080
2081     if (Ustrcmp(argrest, "C") == 0)
2082       {
2083       union sockaddr_46 interface_sock;
2084       EXIM_SOCKLEN_T size = sizeof(interface_sock);
2085
2086       if (argc != i + 6)
2087         {
2088         fprintf(stderr, "exim: too many or too few arguments after -MC\n");
2089         return EXIT_FAILURE;
2090         }
2091
2092       if (msg_action_arg >= 0)
2093         {
2094         fprintf(stderr, "exim: incompatible arguments\n");
2095         return EXIT_FAILURE;
2096         }
2097
2098       continue_transport = argv[++i];
2099       continue_hostname = argv[++i];
2100       continue_host_address = argv[++i];
2101       continue_sequence = Uatoi(argv[++i]);
2102       msg_action = MSG_DELIVER;
2103       msg_action_arg = ++i;
2104       forced_delivery = TRUE;
2105       queue_run_pid = passed_qr_pid;
2106       queue_run_pipe = passed_qr_pipe;
2107
2108       if (!mac_ismsgid(argv[i]))
2109         {
2110         fprintf(stderr, "exim: malformed message id %s after -MC option\n",
2111           argv[i]);
2112         return EXIT_FAILURE;
2113         }
2114
2115       /* Set up $sending_ip_address and $sending_port */
2116
2117       if (getsockname(fileno(stdin), (struct sockaddr *)(&interface_sock),
2118           &size) == 0)
2119         sending_ip_address = host_ntoa(-1, &interface_sock, NULL,
2120           &sending_port);
2121       else
2122         {
2123         fprintf(stderr, "exim: getsockname() failed after -MC option: %s\n",
2124           strerror(errno));
2125         return EXIT_FAILURE;
2126         }
2127
2128       if (running_in_test_harness) millisleep(500);
2129       break;
2130       }
2131
2132     /* -MCA: set the smtp_authenticated flag; this is useful only when it
2133     precedes -MC (see above). The flag indicates that the host to which
2134     Exim is connected has accepted an AUTH sequence. */
2135
2136     else if (Ustrcmp(argrest, "CA") == 0)
2137       {
2138       smtp_authenticated = TRUE;
2139       break;
2140       }
2141
2142     /* -MCP: set the smtp_use_pipelining flag; this is useful only when
2143     it preceded -MC (see above) */
2144
2145     else if (Ustrcmp(argrest, "CP") == 0)
2146       {
2147       smtp_use_pipelining = TRUE;
2148       break;
2149       }
2150
2151     /* -MCQ: pass on the pid of the queue-running process that started
2152     this chain of deliveries and the fd of its synchronizing pipe; this
2153     is useful only when it precedes -MC (see above) */
2154
2155     else if (Ustrcmp(argrest, "CQ") == 0)
2156       {
2157       if(++i < argc) passed_qr_pid = (pid_t)(Uatol(argv[i]));
2158         else badarg = TRUE;
2159       if(++i < argc) passed_qr_pipe = (int)(Uatol(argv[i]));
2160         else badarg = TRUE;
2161       break;
2162       }
2163
2164     /* -MCS: set the smtp_use_size flag; this is useful only when it
2165     precedes -MC (see above) */
2166
2167     else if (Ustrcmp(argrest, "CS") == 0)
2168       {
2169       smtp_use_size = TRUE;
2170       break;
2171       }
2172
2173     /* -MCT: set the tls_offered flag; this is useful only when it
2174     precedes -MC (see above). The flag indicates that the host to which
2175     Exim is connected has offered TLS support. */
2176
2177     #ifdef SUPPORT_TLS
2178     else if (Ustrcmp(argrest, "CT") == 0)
2179       {
2180       tls_offered = TRUE;
2181       break;
2182       }
2183     #endif
2184
2185     /* -M[x]: various operations on the following list of message ids:
2186        -M    deliver the messages, ignoring next retry times and thawing
2187        -Mc   deliver the messages, checking next retry times, no thawing
2188        -Mf   freeze the messages
2189        -Mg   give up on the messages
2190        -Mt   thaw the messages
2191        -Mrm  remove the messages
2192     In the above cases, this must be the last option. There are also the
2193     following options which are followed by a single message id, and which
2194     act on that message. Some of them use the "recipient" addresses as well.
2195        -Mar  add recipient(s)
2196        -Mmad mark all recipients delivered
2197        -Mmd  mark recipients(s) delivered
2198        -Mes  edit sender
2199        -Mset load a message for use with -be
2200        -Mvb  show body
2201        -Mvc  show copy (of whole message, in RFC 2822 format)
2202        -Mvh  show header
2203        -Mvl  show log
2204     */
2205
2206     else if (*argrest == 0)
2207       {
2208       msg_action = MSG_DELIVER;
2209       forced_delivery = deliver_force_thaw = TRUE;
2210       }
2211     else if (Ustrcmp(argrest, "ar") == 0)
2212       {
2213       msg_action = MSG_ADD_RECIPIENT;
2214       one_msg_action = TRUE;
2215       }
2216     else if (Ustrcmp(argrest, "c") == 0)  msg_action = MSG_DELIVER;
2217     else if (Ustrcmp(argrest, "es") == 0)
2218       {
2219       msg_action = MSG_EDIT_SENDER;
2220       one_msg_action = TRUE;
2221       }
2222     else if (Ustrcmp(argrest, "f") == 0)  msg_action = MSG_FREEZE;
2223     else if (Ustrcmp(argrest, "g") == 0)
2224       {
2225       msg_action = MSG_DELIVER;
2226       deliver_give_up = TRUE;
2227       }
2228     else if (Ustrcmp(argrest, "mad") == 0)
2229       {
2230       msg_action = MSG_MARK_ALL_DELIVERED;
2231       }
2232     else if (Ustrcmp(argrest, "md") == 0)
2233       {
2234       msg_action = MSG_MARK_DELIVERED;
2235       one_msg_action = TRUE;
2236       }
2237     else if (Ustrcmp(argrest, "rm") == 0) msg_action = MSG_REMOVE;
2238     else if (Ustrcmp(argrest, "set") == 0)
2239       {
2240       msg_action = MSG_LOAD;
2241       one_msg_action = TRUE;
2242       }
2243     else if (Ustrcmp(argrest, "t") == 0)  msg_action = MSG_THAW;
2244     else if (Ustrcmp(argrest, "vb") == 0)
2245       {
2246       msg_action = MSG_SHOW_BODY;
2247       one_msg_action = TRUE;
2248       }
2249     else if (Ustrcmp(argrest, "vc") == 0)
2250       {
2251       msg_action = MSG_SHOW_COPY;
2252       one_msg_action = TRUE;
2253       }
2254     else if (Ustrcmp(argrest, "vh") == 0)
2255       {
2256       msg_action = MSG_SHOW_HEADER;
2257       one_msg_action = TRUE;
2258       }
2259     else if (Ustrcmp(argrest, "vl") == 0)
2260       {
2261       msg_action = MSG_SHOW_LOG;
2262       one_msg_action = TRUE;
2263       }
2264     else { badarg = TRUE; break; }
2265
2266     /* All the -Mxx options require at least one message id. */
2267
2268     msg_action_arg = i + 1;
2269     if (msg_action_arg >= argc)
2270       {
2271       fprintf(stderr, "exim: no message ids given after %s option\n", arg);
2272       return EXIT_FAILURE;
2273       }
2274
2275     /* Some require only message ids to follow */
2276
2277     if (!one_msg_action)
2278       {
2279       int j;
2280       for (j = msg_action_arg; j < argc; j++) if (!mac_ismsgid(argv[j]))
2281         {
2282         fprintf(stderr, "exim: malformed message id %s after %s option\n",
2283           argv[j], arg);
2284         return EXIT_FAILURE;
2285         }
2286       goto END_ARG;   /* Remaining args are ids */
2287       }
2288
2289     /* Others require only one message id, possibly followed by addresses,
2290     which will be handled as normal arguments. */
2291
2292     else
2293       {
2294       if (!mac_ismsgid(argv[msg_action_arg]))
2295         {
2296         fprintf(stderr, "exim: malformed message id %s after %s option\n",
2297           argv[msg_action_arg], arg);
2298         return EXIT_FAILURE;
2299         }
2300       i++;
2301       }
2302     break;
2303
2304
2305     /* Some programs seem to call the -om option without the leading o;
2306     for sendmail it askes for "me too". Exim always does this. */
2307
2308     case 'm':
2309     if (*argrest != 0) badarg = TRUE;
2310     break;
2311
2312
2313     /* -N: don't do delivery - a debugging option that stops transports doing
2314     their thing. It implies debugging at the D_v level. */
2315
2316     case 'N':
2317     if (*argrest == 0)
2318       {
2319       dont_deliver = TRUE;
2320       debug_selector |= D_v;
2321       debug_file = stderr;
2322       }
2323     else badarg = TRUE;
2324     break;
2325
2326
2327     /* -n: This means "don't alias" in sendmail, apparently. Just ignore
2328     it. */
2329
2330     case 'n':
2331     break;
2332
2333     /* -O: Just ignore it. In sendmail, apparently -O option=value means set
2334     option to the specified value. This form uses long names. We need to handle
2335     -O option=value and -Ooption=value. */
2336
2337     case 'O':
2338     if (*argrest == 0)
2339       {
2340       if (++i >= argc)
2341         {
2342         fprintf(stderr, "exim: string expected after -O\n");
2343         exit(EXIT_FAILURE);
2344         }
2345       }
2346     break;
2347
2348     case 'o':
2349
2350     /* -oA: Set an argument for the bi command (sendmail's "alternate alias
2351     file" option). */
2352
2353     if (*argrest == 'A')
2354       {
2355       alias_arg = argrest + 1;
2356       if (alias_arg[0] == 0)
2357         {
2358         if (i+1 < argc) alias_arg = argv[++i]; else
2359           {
2360           fprintf(stderr, "exim: string expected after -oA\n");
2361           exit(EXIT_FAILURE);
2362           }
2363         }
2364       }
2365
2366     /* -oB: Set a connection message max value for remote deliveries */
2367
2368     else if (*argrest == 'B')
2369       {
2370       uschar *p = argrest + 1;
2371       if (p[0] == 0)
2372         {
2373         if (i+1 < argc && isdigit((argv[i+1][0]))) p = argv[++i]; else
2374           {
2375           connection_max_messages = 1;
2376           p = NULL;
2377           }
2378         }
2379
2380       if (p != NULL)
2381         {
2382         if (!isdigit(*p))
2383           {
2384           fprintf(stderr, "exim: number expected after -oB\n");
2385           exit(EXIT_FAILURE);
2386           }
2387         connection_max_messages = Uatoi(p);
2388         }
2389       }
2390
2391     /* -odb: background delivery */
2392
2393     else if (Ustrcmp(argrest, "db") == 0)
2394       {
2395       synchronous_delivery = FALSE;
2396       arg_queue_only = FALSE;
2397       queue_only_set = TRUE;
2398       }
2399
2400     /* -odf: foreground delivery (smail-compatible option); same effect as
2401        -odi: interactive (synchronous) delivery (sendmail-compatible option)
2402     */
2403
2404     else if (Ustrcmp(argrest, "df") == 0 || Ustrcmp(argrest, "di") == 0)
2405       {
2406       synchronous_delivery = TRUE;
2407       arg_queue_only = FALSE;
2408       queue_only_set = TRUE;
2409       }
2410
2411     /* -odq: queue only */
2412
2413     else if (Ustrcmp(argrest, "dq") == 0)
2414       {
2415       synchronous_delivery = FALSE;
2416       arg_queue_only = TRUE;
2417       queue_only_set = TRUE;
2418       }
2419
2420     /* -odqs: queue SMTP only - do local deliveries and remote routing,
2421     but no remote delivery */
2422
2423     else if (Ustrcmp(argrest, "dqs") == 0)
2424       {
2425       queue_smtp = TRUE;
2426       arg_queue_only = FALSE;
2427       queue_only_set = TRUE;
2428       }
2429
2430     /* -oex: Sendmail error flags. As these are also accepted without the
2431     leading -o prefix, for compatibility with vacation and other callers,
2432     they are handled with -e above. */
2433
2434     /* -oi:     Set flag so dot doesn't end non-SMTP input (same as -i)
2435        -oitrue: Another sendmail syntax for the same */
2436
2437     else if (Ustrcmp(argrest, "i") == 0 ||
2438              Ustrcmp(argrest, "itrue") == 0)
2439       dot_ends = FALSE;
2440
2441     /* -oM*: Set various characteristics for an incoming message; actually
2442     acted on for trusted callers only. */
2443
2444     else if (*argrest == 'M')
2445       {
2446       if (i+1 >= argc)
2447         {
2448         fprintf(stderr, "exim: data expected after -o%s\n", argrest);
2449         exit(EXIT_FAILURE);
2450         }
2451
2452       /* -oMa: Set sender host address */
2453
2454       if (Ustrcmp(argrest, "Ma") == 0) sender_host_address = argv[++i];
2455
2456       /* -oMaa: Set authenticator name */
2457
2458       else if (Ustrcmp(argrest, "Maa") == 0)
2459         sender_host_authenticated = argv[++i];
2460
2461       /* -oMas: setting authenticated sender */
2462
2463       else if (Ustrcmp(argrest, "Mas") == 0) authenticated_sender = argv[++i];
2464
2465       /* -oMai: setting authenticated id */
2466
2467       else if (Ustrcmp(argrest, "Mai") == 0) authenticated_id = argv[++i];
2468
2469       /* -oMi: Set incoming interface address */
2470
2471       else if (Ustrcmp(argrest, "Mi") == 0) interface_address = argv[++i];
2472
2473       /* -oMr: Received protocol */
2474
2475       else if (Ustrcmp(argrest, "Mr") == 0) received_protocol = argv[++i];
2476
2477       /* -oMs: Set sender host name */
2478
2479       else if (Ustrcmp(argrest, "Ms") == 0) sender_host_name = argv[++i];
2480
2481       /* -oMt: Set sender ident */
2482
2483       else if (Ustrcmp(argrest, "Mt") == 0)
2484         {
2485         sender_ident_set = TRUE;
2486         sender_ident = argv[++i];
2487         }
2488
2489       /* Else a bad argument */
2490
2491       else
2492         {
2493         badarg = TRUE;
2494         break;
2495         }
2496       }
2497
2498     /* -om: Me-too flag for aliases. Exim always does this. Some programs
2499     seem to call this as -m (undocumented), so that is also accepted (see
2500     above). */
2501
2502     else if (Ustrcmp(argrest, "m") == 0) {}
2503
2504     /* -oo: An ancient flag for old-style addresses which still seems to
2505     crop up in some calls (see in SCO). */
2506
2507     else if (Ustrcmp(argrest, "o") == 0) {}
2508
2509     /* -oP <name>: set pid file path for daemon */
2510
2511     else if (Ustrcmp(argrest, "P") == 0)
2512       override_pid_file_path = argv[++i];
2513
2514     /* -or <n>: set timeout for non-SMTP acceptance
2515        -os <n>: set timeout for SMTP acceptance */
2516
2517     else if (*argrest == 'r' || *argrest == 's')
2518       {
2519       int *tp = (*argrest == 'r')?
2520         &arg_receive_timeout : &arg_smtp_receive_timeout;
2521       if (argrest[1] == 0)
2522         {
2523         if (i+1 < argc) *tp= readconf_readtime(argv[++i], 0, FALSE);
2524         }
2525       else *tp = readconf_readtime(argrest + 1, 0, FALSE);
2526       if (*tp < 0)
2527         {
2528         fprintf(stderr, "exim: bad time value %s: abandoned\n", argv[i]);
2529         exit(EXIT_FAILURE);
2530         }
2531       }
2532
2533     /* -oX <list>: Override local_interfaces and/or default daemon ports */
2534
2535     else if (Ustrcmp(argrest, "X") == 0)
2536       override_local_interfaces = argv[++i];
2537
2538     /* Unknown -o argument */
2539
2540     else badarg = TRUE;
2541     break;
2542
2543
2544     /* -ps: force Perl startup; -pd force delayed Perl startup */
2545
2546     case 'p':
2547     #ifdef EXIM_PERL
2548     if (*argrest == 's' && argrest[1] == 0)
2549       {
2550       perl_start_option = 1;
2551       break;
2552       }
2553     if (*argrest == 'd' && argrest[1] == 0)
2554       {
2555       perl_start_option = -1;
2556       break;
2557       }
2558     #endif
2559
2560     /* -panythingelse is taken as the Sendmail-compatible argument -prval:sval,
2561     which sets the host protocol and host name */
2562
2563     if (*argrest == 0)
2564       {
2565       if (i+1 < argc) argrest = argv[++i]; else
2566         { badarg = TRUE; break; }
2567       }
2568
2569     if (*argrest != 0)
2570       {
2571       uschar *hn = Ustrchr(argrest, ':');
2572       if (hn == NULL)
2573         {
2574         received_protocol = argrest;
2575         }
2576       else
2577         {
2578         received_protocol = string_copyn(argrest, hn - argrest);
2579         sender_host_name = hn + 1;
2580         }
2581       }
2582     break;
2583
2584
2585     case 'q':
2586     receiving_message = FALSE;
2587     if (queue_interval >= 0)
2588       {
2589       fprintf(stderr, "exim: -q specified more than once\n");
2590       exit(EXIT_FAILURE);
2591       }
2592
2593     /* -qq...: Do queue runs in a 2-stage manner */
2594
2595     if (*argrest == 'q')
2596       {
2597       queue_2stage = TRUE;
2598       argrest++;
2599       }
2600
2601     /* -qi...: Do only first (initial) deliveries */
2602
2603     if (*argrest == 'i')
2604       {
2605       queue_run_first_delivery = TRUE;
2606       argrest++;
2607       }
2608
2609     /* -qf...: Run the queue, forcing deliveries
2610        -qff..: Ditto, forcing thawing as well */
2611
2612     if (*argrest == 'f')
2613       {
2614       queue_run_force = TRUE;
2615       if (*(++argrest) == 'f')
2616         {
2617         deliver_force_thaw = TRUE;
2618         argrest++;
2619         }
2620       }
2621
2622     /* -q[f][f]l...: Run the queue only on local deliveries */
2623
2624     if (*argrest == 'l')
2625       {
2626       queue_run_local = TRUE;
2627       argrest++;
2628       }
2629
2630     /* -q[f][f][l]: Run the queue, optionally forced, optionally local only,
2631     optionally starting from a given message id. */
2632
2633     if (*argrest == 0 &&
2634         (i + 1 >= argc || argv[i+1][0] == '-' || mac_ismsgid(argv[i+1])))
2635       {
2636       queue_interval = 0;
2637       if (i+1 < argc && mac_ismsgid(argv[i+1]))
2638         start_queue_run_id = argv[++i];
2639       if (i+1 < argc && mac_ismsgid(argv[i+1]))
2640         stop_queue_run_id = argv[++i];
2641       }
2642
2643     /* -q[f][f][l]<n>: Run the queue at regular intervals, optionally forced,
2644     optionally local only. */
2645
2646     else
2647       {
2648       if (*argrest != 0)
2649         queue_interval = readconf_readtime(argrest, 0, FALSE);
2650       else
2651         queue_interval = readconf_readtime(argv[++i], 0, FALSE);
2652       if (queue_interval <= 0)
2653         {
2654         fprintf(stderr, "exim: bad time value %s: abandoned\n", argv[i]);
2655         exit(EXIT_FAILURE);
2656         }
2657       }
2658     break;
2659
2660
2661     case 'R':   /* Synonymous with -qR... */
2662     receiving_message = FALSE;
2663
2664     /* -Rf:   As -R (below) but force all deliveries,
2665        -Rff:  Ditto, but also thaw all frozen messages,
2666        -Rr:   String is regex
2667        -Rrf:  Regex and force
2668        -Rrff: Regex and force and thaw
2669
2670     in all cases provided there are no further characters in this
2671     argument. */
2672
2673     if (*argrest != 0)
2674       {
2675       int i;
2676       for (i = 0; i < sizeof(rsopts)/sizeof(uschar *); i++)
2677         {
2678         if (Ustrcmp(argrest, rsopts[i]) == 0)
2679           {
2680           if (i != 2) queue_run_force = TRUE;
2681           if (i >= 2) deliver_selectstring_regex = TRUE;
2682           if (i == 1 || i == 4) deliver_force_thaw = TRUE;
2683           argrest += Ustrlen(rsopts[i]);
2684           }
2685         }
2686       }
2687
2688     /* -R: Set string to match in addresses for forced queue run to
2689     pick out particular messages. */
2690
2691     if (*argrest == 0)
2692       {
2693       if (i+1 < argc) deliver_selectstring = argv[++i]; else
2694         {
2695         fprintf(stderr, "exim: string expected after -R\n");
2696         exit(EXIT_FAILURE);
2697         }
2698       }
2699     else deliver_selectstring = argrest;
2700     break;
2701
2702
2703     /* -r: an obsolete synonym for -f (see above) */
2704
2705
2706     /* -S: Like -R but works on sender. */
2707
2708     case 'S':   /* Synonymous with -qS... */
2709     receiving_message = FALSE;
2710
2711     /* -Sf:   As -S (below) but force all deliveries,
2712        -Sff:  Ditto, but also thaw all frozen messages,
2713        -Sr:   String is regex
2714        -Srf:  Regex and force
2715        -Srff: Regex and force and thaw
2716
2717     in all cases provided there are no further characters in this
2718     argument. */
2719
2720     if (*argrest != 0)
2721       {
2722       int i;
2723       for (i = 0; i < sizeof(rsopts)/sizeof(uschar *); i++)
2724         {
2725         if (Ustrcmp(argrest, rsopts[i]) == 0)
2726           {
2727           if (i != 2) queue_run_force = TRUE;
2728           if (i >= 2) deliver_selectstring_sender_regex = TRUE;
2729           if (i == 1 || i == 4) deliver_force_thaw = TRUE;
2730           argrest += Ustrlen(rsopts[i]);
2731           }
2732         }
2733       }
2734
2735     /* -S: Set string to match in addresses for forced queue run to
2736     pick out particular messages. */
2737
2738     if (*argrest == 0)
2739       {
2740       if (i+1 < argc) deliver_selectstring_sender = argv[++i]; else
2741         {
2742         fprintf(stderr, "exim: string expected after -S\n");
2743         exit(EXIT_FAILURE);
2744         }
2745       }
2746     else deliver_selectstring_sender = argrest;
2747     break;
2748
2749     /* -Tqt is an option that is exclusively for use by the testing suite.
2750     It is not recognized in other circumstances. It allows for the setting up
2751     of explicit "queue times" so that various warning/retry things can be
2752     tested. Otherwise variability of clock ticks etc. cause problems. */
2753
2754     case 'T':
2755     if (running_in_test_harness && Ustrcmp(argrest, "qt") == 0)
2756       fudged_queue_times = argv[++i];
2757     else badarg = TRUE;
2758     break;
2759
2760
2761     /* -t: Set flag to extract recipients from body of message. */
2762
2763     case 't':
2764     if (*argrest == 0) extract_recipients = TRUE;
2765
2766     /* -ti: Set flag to extract recipients from body of message, and also
2767     specify that dot does not end the message. */
2768
2769     else if (Ustrcmp(argrest, "i") == 0)
2770       {
2771       extract_recipients = TRUE;
2772       dot_ends = FALSE;
2773       }
2774
2775     /* -tls-on-connect: don't wait for STARTTLS (for old clients) */
2776
2777     #ifdef SUPPORT_TLS
2778     else if (Ustrcmp(argrest, "ls-on-connect") == 0) tls_on_connect = TRUE;
2779     #endif
2780
2781     else badarg = TRUE;
2782     break;
2783
2784
2785     /* -U: This means "initial user submission" in sendmail, apparently. The
2786     doc claims that in future sendmail may refuse syntactically invalid
2787     messages instead of fixing them. For the moment, we just ignore it. */
2788
2789     case 'U':
2790     break;
2791
2792
2793     /* -v: verify things - this is a very low-level debugging */
2794
2795     case 'v':
2796     if (*argrest == 0)
2797       {
2798       debug_selector |= D_v;
2799       debug_file = stderr;
2800       }
2801     else badarg = TRUE;
2802     break;
2803
2804
2805     /* -x: AIX uses this to indicate some fancy 8-bit character stuff:
2806
2807       The -x flag tells the sendmail command that mail from a local
2808       mail program has National Language Support (NLS) extended characters
2809       in the body of the mail item. The sendmail command can send mail with
2810       extended NLS characters across networks that normally corrupts these
2811       8-bit characters.
2812
2813     As Exim is 8-bit clean, it just ignores this flag. */
2814
2815     case 'x':
2816     if (*argrest != 0) badarg = TRUE;
2817     break;
2818
2819     /* All other initial characters are errors */
2820
2821     default:
2822     badarg = TRUE;
2823     break;
2824     }         /* End of high-level switch statement */
2825
2826   /* Failed to recognize the option, or syntax error */
2827
2828   if (badarg)
2829     {
2830     fprintf(stderr, "exim abandoned: unknown, malformed, or incomplete "
2831       "option %s\n", arg);
2832     exit(EXIT_FAILURE);
2833     }
2834   }
2835
2836
2837 /* If -R or -S have been specified without -q, assume a single queue run. */
2838
2839 if ((deliver_selectstring != NULL || deliver_selectstring_sender != NULL) &&
2840   queue_interval < 0) queue_interval = 0;
2841
2842
2843 END_ARG:
2844 /* If usage_wanted is set we call the usage function - which never returns */
2845 if (usage_wanted) exim_usage(called_as);
2846
2847 /* Arguments have been processed. Check for incompatibilities. */
2848 if ((
2849     (smtp_input || extract_recipients || recipients_arg < argc) &&
2850     (daemon_listen || queue_interval >= 0 || bi_option ||
2851       test_retry_arg >= 0 || test_rewrite_arg >= 0 ||
2852       filter_test != FTEST_NONE || (msg_action_arg > 0 && !one_msg_action))
2853     ) ||
2854     (
2855     msg_action_arg > 0 &&
2856     (daemon_listen || queue_interval >= 0 || list_options ||
2857       (checking && msg_action != MSG_LOAD) ||
2858       bi_option || test_retry_arg >= 0 || test_rewrite_arg >= 0)
2859     ) ||
2860     (
2861     (daemon_listen || queue_interval >= 0) &&
2862     (sender_address != NULL || list_options || list_queue || checking ||
2863       bi_option)
2864     ) ||
2865     (
2866     daemon_listen && queue_interval == 0
2867     ) ||
2868     (
2869     list_options &&
2870     (checking || smtp_input || extract_recipients ||
2871       filter_test != FTEST_NONE || bi_option)
2872     ) ||
2873     (
2874     verify_address_mode &&
2875     (address_test_mode || smtp_input || extract_recipients ||
2876       filter_test != FTEST_NONE || bi_option)
2877     ) ||
2878     (
2879     address_test_mode && (smtp_input || extract_recipients ||
2880       filter_test != FTEST_NONE || bi_option)
2881     ) ||
2882     (
2883     smtp_input && (sender_address != NULL || filter_test != FTEST_NONE ||
2884       extract_recipients)
2885     ) ||
2886     (
2887     deliver_selectstring != NULL && queue_interval < 0
2888     ) ||
2889     (
2890     msg_action == MSG_LOAD &&
2891       (!expansion_test || expansion_test_message != NULL)
2892     )
2893    )
2894   {
2895   fprintf(stderr, "exim: incompatible command-line options or arguments\n");
2896   exit(EXIT_FAILURE);
2897   }
2898
2899 /* If debugging is set up, set the file and the file descriptor to pass on to
2900 child processes. It should, of course, be 2 for stderr. Also, force the daemon
2901 to run in the foreground. */
2902
2903 if (debug_selector != 0)
2904   {
2905   debug_file = stderr;
2906   debug_fd = fileno(debug_file);
2907   background_daemon = FALSE;
2908   if (running_in_test_harness) millisleep(100);   /* lets caller finish */
2909   if (debug_selector != D_v)    /* -v only doesn't show this */
2910     {
2911     debug_printf("Exim version %s uid=%ld gid=%ld pid=%d D=%x\n",
2912       version_string, (long int)real_uid, (long int)real_gid, (int)getpid(),
2913       debug_selector);
2914     show_whats_supported(stderr);
2915     }
2916   }
2917
2918 /* When started with root privilege, ensure that the limits on the number of
2919 open files and the number of processes (where that is accessible) are
2920 sufficiently large, or are unset, in case Exim has been called from an
2921 environment where the limits are screwed down. Not all OS have the ability to
2922 change some of these limits. */
2923
2924 if (unprivileged)
2925   {
2926   DEBUG(D_any) debug_print_ids(US"Exim has no root privilege:");
2927   }
2928 else
2929   {
2930   struct rlimit rlp;
2931
2932   #ifdef RLIMIT_NOFILE
2933   if (getrlimit(RLIMIT_NOFILE, &rlp) < 0)
2934     {
2935     log_write(0, LOG_MAIN|LOG_PANIC, "getrlimit(RLIMIT_NOFILE) failed: %s",
2936       strerror(errno));
2937     rlp.rlim_cur = rlp.rlim_max = 0;
2938     }
2939
2940   /* I originally chose 1000 as a nice big number that was unlikely to
2941   be exceeded. It turns out that some older OS have a fixed upper limit of
2942   256. */
2943
2944   if (rlp.rlim_cur < 1000)
2945     {
2946     rlp.rlim_cur = rlp.rlim_max = 1000;
2947     if (setrlimit(RLIMIT_NOFILE, &rlp) < 0)
2948       {
2949       rlp.rlim_cur = rlp.rlim_max = 256;
2950       if (setrlimit(RLIMIT_NOFILE, &rlp) < 0)
2951         log_write(0, LOG_MAIN|LOG_PANIC, "setrlimit(RLIMIT_NOFILE) failed: %s",
2952           strerror(errno));
2953       }
2954     }
2955   #endif
2956
2957   #ifdef RLIMIT_NPROC
2958   if (getrlimit(RLIMIT_NPROC, &rlp) < 0)
2959     {
2960     log_write(0, LOG_MAIN|LOG_PANIC, "getrlimit(RLIMIT_NPROC) failed: %s",
2961       strerror(errno));
2962     rlp.rlim_cur = rlp.rlim_max = 0;
2963     }
2964
2965   #ifdef RLIM_INFINITY
2966   if (rlp.rlim_cur != RLIM_INFINITY && rlp.rlim_cur < 1000)
2967     {
2968     rlp.rlim_cur = rlp.rlim_max = RLIM_INFINITY;
2969   #else
2970   if (rlp.rlim_cur < 1000)
2971     {
2972     rlp.rlim_cur = rlp.rlim_max = 1000;
2973   #endif
2974     if (setrlimit(RLIMIT_NPROC, &rlp) < 0)
2975       log_write(0, LOG_MAIN|LOG_PANIC, "setrlimit(RLIMIT_NPROC) failed: %s",
2976         strerror(errno));
2977     }
2978   #endif
2979   }
2980
2981 /* Exim is normally entered as root (but some special configurations are
2982 possible that don't do this). However, it always spins off sub-processes that
2983 set their uid and gid as required for local delivery. We don't want to pass on
2984 any extra groups that root may belong to, so we want to get rid of them all at
2985 this point.
2986
2987 We need to obey setgroups() at this stage, before possibly giving up root
2988 privilege for a changed configuration file, but later on we might need to
2989 check on the additional groups for the admin user privilege - can't do that
2990 till after reading the config, which might specify the exim gid. Therefore,
2991 save the group list here first. */
2992
2993 group_count = getgroups(NGROUPS_MAX, group_list);
2994
2995 /* There is a fundamental difference in some BSD systems in the matter of
2996 groups. FreeBSD and BSDI are known to be different; NetBSD and OpenBSD are
2997 known not to be different. On the "different" systems there is a single group
2998 list, and the first entry in it is the current group. On all other versions of
2999 Unix there is a supplementary group list, which is in *addition* to the current
3000 group. Consequently, to get rid of all extraneous groups on a "standard" system
3001 you pass over 0 groups to setgroups(), while on a "different" system you pass
3002 over a single group - the current group, which is always the first group in the
3003 list. Calling setgroups() with zero groups on a "different" system results in
3004 an error return. The following code should cope with both types of system.
3005
3006 However, if this process isn't running as root, setgroups() can't be used
3007 since you have to be root to run it, even if throwing away groups. Not being
3008 root here happens only in some unusual configurations. We just ignore the
3009 error. */
3010
3011 if (setgroups(0, NULL) != 0)
3012   {
3013   if (setgroups(1, group_list) != 0 && !unprivileged)
3014     {
3015     fprintf(stderr, "exim: setgroups() failed: %s\n", strerror(errno));
3016     exit(EXIT_FAILURE);
3017     }
3018   }
3019
3020 /* If the configuration file name has been altered by an argument on the
3021 command line (either a new file name or a macro definition) and the caller is
3022 not root or the exim user, or if this is a filter testing run, remove any
3023 setuid privilege the program has, and run as the underlying user.
3024
3025 If ALT_CONFIG_ROOT_ONLY is defined, the exim user is locked out of this, which
3026 severely restricts the use of -C for some purposes.
3027
3028 Otherwise, set the real ids to the effective values (should be root unless run
3029 from inetd, which it can either be root or the exim uid, if one is configured).
3030
3031 There is a private mechanism for bypassing some of this, in order to make it
3032 possible to test lots of configurations automatically, without having either to
3033 recompile each time, or to patch in an actual configuration file name and other
3034 values (such as the path name). If running in the test harness, pretend that
3035 configuration file changes and macro definitions haven't happened. */
3036
3037 if ((                                            /* EITHER */
3038     (config_changed || macros != NULL) &&        /* Config changed, and */
3039     real_uid != root_uid &&                      /* Not root, and */
3040     #ifndef ALT_CONFIG_ROOT_ONLY                 /* (when not locked out) */
3041     real_uid != exim_uid &&                      /* Not exim, and */
3042     #endif
3043     !running_in_test_harness                     /* Not fudged */
3044     ) ||                                         /*   OR   */
3045     expansion_test                               /* expansion testing */
3046     ||                                           /*   OR   */
3047     filter_test != FTEST_NONE)                   /* Filter testing */
3048   {
3049   setgroups(group_count, group_list);
3050   exim_setugid(real_uid, real_gid, FALSE,
3051     US"-C, -D, -be or -bf forces real uid");
3052   removed_privilege = TRUE;
3053
3054   /* In the normal case when Exim is called like this, stderr is available
3055   and should be used for any logging information because attempts to write
3056   to the log will usually fail. To arrange this, we unset really_exim. However,
3057   if no stderr is available there is no point - we might as well have a go
3058   at the log (if it fails, syslog will be written). */
3059
3060   if (log_stderr != NULL) really_exim = FALSE;
3061   }
3062
3063 /* Privilege is to be retained for the moment. It may be dropped later,
3064 depending on the job that this Exim process has been asked to do. For now, set
3065 the real uid to the effective so that subsequent re-execs of Exim are done by a
3066 privileged user. */
3067
3068 else exim_setugid(geteuid(), getegid(), FALSE, US"forcing real = effective");
3069
3070 /* If testing a filter, open the file(s) now, before wasting time doing other
3071 setups and reading the message. */
3072
3073 if ((filter_test & FTEST_SYSTEM) != 0)
3074   {
3075   filter_sfd = Uopen(filter_test_sfile, O_RDONLY, 0);
3076   if (filter_sfd < 0)
3077     {
3078     fprintf(stderr, "exim: failed to open %s: %s\n", filter_test_sfile,
3079       strerror(errno));
3080     return EXIT_FAILURE;
3081     }
3082   }
3083
3084 if ((filter_test & FTEST_USER) != 0)
3085   {
3086   filter_ufd = Uopen(filter_test_ufile, O_RDONLY, 0);
3087   if (filter_ufd < 0)
3088     {
3089     fprintf(stderr, "exim: failed to open %s: %s\n", filter_test_ufile,
3090       strerror(errno));
3091     return EXIT_FAILURE;
3092     }
3093   }
3094
3095 /* Read the main runtime configuration data; this gives up if there
3096 is a failure. It leaves the configuration file open so that the subsequent
3097 configuration data for delivery can be read if needed. */
3098
3099 readconf_main();
3100
3101 /* Handle the decoding of logging options. */
3102
3103 decode_bits(&log_write_selector, &log_extra_selector, 0, 0,
3104   log_selector_string, log_options, log_options_count, US"log", 0);
3105
3106 DEBUG(D_any)
3107   {
3108   debug_printf("configuration file is %s\n", config_main_filename);
3109   debug_printf("log selectors = %08x %08x\n", log_write_selector,
3110     log_extra_selector);
3111   }
3112
3113 /* If domain literals are not allowed, check the sender address that was
3114 supplied with -f. Ditto for a stripped trailing dot. */
3115
3116 if (sender_address != NULL)
3117   {
3118   if (sender_address[sender_address_domain] == '[' && !allow_domain_literals)
3119     {
3120     fprintf(stderr, "exim: bad -f address \"%s\": domain literals not "
3121       "allowed\n", sender_address);
3122     return EXIT_FAILURE;
3123     }
3124   if (f_end_dot && !strip_trailing_dot)
3125     {
3126     fprintf(stderr, "exim: bad -f address \"%s.\": domain is malformed "
3127       "(trailing dot not allowed)\n", sender_address);
3128     return EXIT_FAILURE;
3129     }
3130   }
3131
3132 /* Paranoia check of maximum lengths of certain strings. There is a check
3133 on the length of the log file path in log.c, which will come into effect
3134 if there are any calls to write the log earlier than this. However, if we
3135 get this far but the string is very long, it is better to stop now than to
3136 carry on and (e.g.) receive a message and then have to collapse. The call to
3137 log_write() from here will cause the ultimate panic collapse if the complete
3138 file name exceeds the buffer length. */
3139
3140 if (Ustrlen(log_file_path) > 200)
3141   log_write(0, LOG_MAIN|LOG_PANIC_DIE,
3142     "log_file_path is longer than 200 chars: aborting");
3143
3144 if (Ustrlen(pid_file_path) > 200)
3145   log_write(0, LOG_MAIN|LOG_PANIC_DIE,
3146     "pid_file_path is longer than 200 chars: aborting");
3147
3148 if (Ustrlen(spool_directory) > 200)
3149   log_write(0, LOG_MAIN|LOG_PANIC_DIE,
3150     "spool_directory is longer than 200 chars: aborting");
3151
3152 /* Length check on the process name given to syslog for its TAG field,
3153 which is only permitted to be 32 characters or less. See RFC 3164. */
3154
3155 if (Ustrlen(syslog_processname) > 32)
3156   log_write(0, LOG_MAIN|LOG_PANIC_DIE,
3157     "syslog_processname is longer than 32 chars: aborting");
3158
3159 /* In some operating systems, the environment variable TMPDIR controls where
3160 temporary files are created; Exim doesn't use these (apart from when delivering
3161 to MBX mailboxes), but called libraries such as DBM libraries may require them.
3162 If TMPDIR is found in the environment, reset it to the value defined in the
3163 TMPDIR macro, if this macro is defined. */
3164
3165 #ifdef TMPDIR
3166   {
3167   uschar **p;
3168   for (p = USS environ; *p != NULL; p++)
3169     {
3170     if (Ustrncmp(*p, "TMPDIR=", 7) == 0 &&
3171         Ustrcmp(*p+7, TMPDIR) != 0)
3172       {
3173       uschar *newp = malloc(Ustrlen(TMPDIR) + 8);
3174       sprintf(CS newp, "TMPDIR=%s", TMPDIR);
3175       *p = newp;
3176       DEBUG(D_any) debug_printf("reset TMPDIR=%s in environment\n", TMPDIR);
3177       }
3178     }
3179   }
3180 #endif
3181
3182 /* Timezone handling. If timezone_string is "utc", set a flag to cause all
3183 timestamps to be in UTC (gmtime() is used instead of localtime()). Otherwise,
3184 we may need to get rid of a bogus timezone setting. This can arise when Exim is
3185 called by a user who has set the TZ variable. This then affects the timestamps
3186 in log files and in Received: headers, and any created Date: header lines. The
3187 required timezone is settable in the configuration file, so nothing can be done
3188 about this earlier - but hopefully nothing will normally be logged earlier than
3189 this. We have to make a new environment if TZ is wrong, but don't bother if
3190 timestamps_utc is set, because then all times are in UTC anyway. */
3191
3192 if (timezone_string != NULL && strcmpic(timezone_string, US"UTC") == 0)
3193   {
3194   timestamps_utc = TRUE;
3195   }
3196 else
3197   {
3198   uschar *envtz = US getenv("TZ");
3199   if ((envtz == NULL && timezone_string != NULL) ||
3200       (envtz != NULL &&
3201         (timezone_string == NULL ||
3202          Ustrcmp(timezone_string, envtz) != 0)))
3203     {
3204     uschar **p = USS environ;
3205     uschar **new;
3206     uschar **newp;
3207     int count = 0;
3208     while (*p++ != NULL) count++;
3209     if (envtz == NULL) count++;
3210     newp = new = malloc(sizeof(uschar *) * (count + 1));
3211     for (p = USS environ; *p != NULL; p++)
3212       {
3213       if (Ustrncmp(*p, "TZ=", 3) == 0) continue;
3214       *newp++ = *p;
3215       }
3216     if (timezone_string != NULL)
3217       {
3218       *newp = malloc(Ustrlen(timezone_string) + 4);
3219       sprintf(CS *newp++, "TZ=%s", timezone_string);
3220       }
3221     *newp = NULL;
3222     environ = CSS new;
3223     tzset();
3224     DEBUG(D_any) debug_printf("Reset TZ to %s: time is %s\n", timezone_string,
3225       tod_stamp(tod_log));
3226     }
3227   }
3228
3229 /* Handle the case when we have removed the setuid privilege because of -C or
3230 -D. This means that the caller of Exim was not root, and, provided that
3231 ALT_CONFIG_ROOT_ONLY is not defined, was not the Exim user that is built into
3232 the binary.
3233
3234 If ALT_CONFIG_ROOT_ONLY is not defined, there is a problem if it turns out we
3235 were running as the exim user defined in the configuration file (different to
3236 the one in the binary). The sysadmin may expect this case to retain privilege
3237 because "the binary was called by the Exim user", but it hasn't, because of the
3238 order in which it handles this stuff. There are two possibilities:
3239
3240   (1) If deliver_drop_privilege is set, Exim is not going to re-exec in order
3241       to do message deliveries. Thus, the fact that it is running as a
3242       non-privileged user is plausible, and might be wanted in some special
3243       configurations. However, really_exim will have been set false when
3244       privilege was dropped, to stop Exim trying to write to its normal log
3245       files. Therefore, re-enable normal log processing, assuming the sysadmin
3246       has set up the log directory correctly.
3247
3248   (2) If deliver_drop_privilege is not set, the configuration won't work as
3249       apparently intended, and so we log a panic message. In order to retain
3250       root for -C or -D, the caller must either be root or the Exim user
3251       defined in the binary (when deliver_drop_ privilege is false).
3252
3253 If ALT_CONFIG_ROOT_ONLY is defined, we don't know whether we were called by the
3254 built-in exim user or one defined in the configuration. In either event,
3255 re-enable log processing, assuming the sysadmin knows what they are doing. */
3256
3257 if (removed_privilege && (config_changed || macros != NULL) &&
3258     real_uid == exim_uid)
3259   {
3260   #ifdef ALT_CONFIG_ROOT_ONLY
3261   really_exim = TRUE;   /* let logging work normally */
3262   #else
3263
3264   if (deliver_drop_privilege)
3265     really_exim = TRUE; /* let logging work normally */
3266   else
3267     log_write(0, LOG_MAIN|LOG_PANIC,
3268       "exim user (uid=%d) is defined only at runtime; privilege lost for %s",
3269       (int)exim_uid, config_changed? "-C" : "-D");
3270   #endif
3271   }
3272
3273 /* Start up Perl interpreter if Perl support is configured and there is a
3274 perl_startup option, and the configuration or the command line specifies
3275 initializing starting. Note that the global variables are actually called
3276 opt_perl_xxx to avoid clashing with perl's namespace (perl_*). */
3277
3278 #ifdef EXIM_PERL
3279 if (perl_start_option != 0)
3280   opt_perl_at_start = (perl_start_option > 0);
3281 if (opt_perl_at_start && opt_perl_startup != NULL)
3282   {
3283   uschar *errstr;
3284   DEBUG(D_any) debug_printf("Starting Perl interpreter\n");
3285   errstr = init_perl(opt_perl_startup);
3286   if (errstr != NULL)
3287     {
3288     fprintf(stderr, "exim: error in perl_startup code: %s\n", errstr);
3289     return EXIT_FAILURE;
3290     }
3291   opt_perl_started = TRUE;
3292   }
3293 #endif /* EXIM_PERL */
3294
3295 /* Log the arguments of the call if the configuration file said so. This is
3296 a debugging feature for finding out what arguments certain MUAs actually use.
3297 Don't attempt it if logging is disabled, or if listing variables or if
3298 verifying/testing addresses or expansions. */
3299
3300 if (((debug_selector & D_any) != 0 || (log_extra_selector & LX_arguments) != 0)
3301       && really_exim && !list_options && !checking)
3302   {
3303   int i;
3304   uschar *p = big_buffer;
3305   Ustrcpy(p, "cwd=");
3306   (void)getcwd(CS p+4, big_buffer_size - 4);
3307   while (*p) p++;
3308   (void)string_format(p, big_buffer_size - (p - big_buffer), " %d args:", argc);
3309   while (*p) p++;
3310   for (i = 0; i < argc; i++)
3311     {
3312     int len = Ustrlen(argv[i]);
3313     uschar *printing;
3314     uschar *quote;
3315     if (p + len + 8 >= big_buffer + big_buffer_size)
3316       {
3317       Ustrcpy(p, " ...");
3318       log_write(0, LOG_MAIN, "%s", big_buffer);
3319       Ustrcpy(big_buffer, "...");
3320       p = big_buffer + 3;
3321       }
3322     printing = string_printing(argv[i]);
3323     if (printing[0] == 0) quote = US"\""; else
3324       {
3325       uschar *pp = printing;
3326       quote = US"";
3327       while (*pp != 0) if (isspace(*pp++)) { quote = US"\""; break; }
3328       }
3329     sprintf(CS p, " %s%.*s%s", quote, (int)(big_buffer_size -
3330       (p - big_buffer) - 4), printing, quote);
3331     while (*p) p++;
3332     }
3333
3334   if ((log_extra_selector & LX_arguments) != 0)
3335     log_write(0, LOG_MAIN, "%s", big_buffer);
3336   else
3337     debug_printf("%s\n", big_buffer);
3338   }
3339
3340 /* Set the working directory to be the top-level spool directory. We don't rely
3341 on this in the code, which always uses fully qualified names, but it's useful
3342 for core dumps etc. Don't complain if it fails - the spool directory might not
3343 be generally accessible and calls with the -C option (and others) have lost
3344 privilege by now. Before the chdir, we try to ensure that the directory exists.
3345 */
3346
3347 if (Uchdir(spool_directory) != 0)
3348   {
3349   (void)directory_make(spool_directory, US"", SPOOL_DIRECTORY_MODE, FALSE);
3350   (void)Uchdir(spool_directory);
3351   }
3352
3353 /* Handle calls with the -bi option. This is a sendmail option to rebuild *the*
3354 alias file. Exim doesn't have such a concept, but this call is screwed into
3355 Sun's YP makefiles. Handle this by calling a configured script, as the real
3356 user who called Exim. The -oA option can be used to pass an argument to the
3357 script. */
3358
3359 if (bi_option)
3360   {
3361   (void)fclose(config_file);
3362   if (bi_command != NULL)
3363     {
3364     int i = 0;
3365     uschar *argv[3];
3366     argv[i++] = bi_command;
3367     if (alias_arg != NULL) argv[i++] = alias_arg;
3368     argv[i++] = NULL;
3369
3370     setgroups(group_count, group_list);
3371     exim_setugid(real_uid, real_gid, FALSE, US"running bi_command");
3372
3373     DEBUG(D_exec) debug_printf("exec %.256s %.256s\n", argv[0],
3374       (argv[1] == NULL)? US"" : argv[1]);
3375
3376     execv(CS argv[0], (char *const *)argv);
3377     fprintf(stderr, "exim: exec failed: %s\n", strerror(errno));
3378     exit(EXIT_FAILURE);
3379     }
3380   else
3381     {
3382     DEBUG(D_any) debug_printf("-bi used but bi_command not set; exiting\n");
3383     exit(EXIT_SUCCESS);
3384     }
3385   }
3386
3387 /* If an action on specific messages is requested, or if a daemon or queue
3388 runner is being started, we need to know if Exim was called by an admin user.
3389 This is the case if the real user is root or exim, or if the real group is
3390 exim, or if one of the supplementary groups is exim or a group listed in
3391 admin_groups. We don't fail all message actions immediately if not admin_user,
3392 since some actions can be performed by non-admin users. Instead, set admin_user
3393 for later interrogation. */
3394
3395 if (real_uid == root_uid || real_uid == exim_uid || real_gid == exim_gid)
3396   admin_user = TRUE;
3397 else
3398   {
3399   int i, j;
3400   for (i = 0; i < group_count; i++)
3401     {
3402     if (group_list[i] == exim_gid) admin_user = TRUE;
3403     else if (admin_groups != NULL)
3404       {
3405       for (j = 1; j <= (int)(admin_groups[0]); j++)
3406         if (admin_groups[j] == group_list[i])
3407           { admin_user = TRUE; break; }
3408       }
3409     if (admin_user) break;
3410     }
3411   }
3412
3413 /* Another group of privileged users are the trusted users. These are root,
3414 exim, and any caller matching trusted_users or trusted_groups. Trusted callers
3415 are permitted to specify sender_addresses with -f on the command line, and
3416 other message parameters as well. */
3417
3418 if (real_uid == root_uid || real_uid == exim_uid)
3419   trusted_caller = TRUE;
3420 else
3421   {
3422   int i, j;
3423
3424   if (trusted_users != NULL)
3425     {
3426     for (i = 1; i <= (int)(trusted_users[0]); i++)
3427       if (trusted_users[i] == real_uid)
3428         { trusted_caller = TRUE; break; }
3429     }
3430
3431   if (!trusted_caller && trusted_groups != NULL)
3432     {
3433     for (i = 1; i <= (int)(trusted_groups[0]); i++)
3434       {
3435       if (trusted_groups[i] == real_gid)
3436         trusted_caller = TRUE;
3437       else for (j = 0; j < group_count; j++)
3438         {
3439         if (trusted_groups[i] == group_list[j])
3440           { trusted_caller = TRUE; break; }
3441         }
3442       if (trusted_caller) break;
3443       }
3444     }
3445   }
3446
3447 if (trusted_caller) DEBUG(D_any) debug_printf("trusted user\n");
3448 if (admin_user) DEBUG(D_any) debug_printf("admin user\n");
3449
3450 /* Only an admin user may start the daemon or force a queue run in the default
3451 configuration, but the queue run restriction can be relaxed. Only an admin
3452 user may request that a message be returned to its sender forthwith. Only an
3453 admin user may specify a debug level greater than D_v (because it might show
3454 passwords, etc. in lookup queries). Only an admin user may request a queue
3455 count. Only an admin user can use the test interface to scan for email
3456 (because Exim will be in the spool dir and able to look at mails). */
3457
3458 if (!admin_user)
3459   {
3460   BOOL debugset = (debug_selector & ~D_v) != 0;
3461   if (deliver_give_up || daemon_listen || malware_test_file ||
3462      (count_queue && queue_list_requires_admin) ||
3463      (list_queue && queue_list_requires_admin) ||
3464      (queue_interval >= 0 && prod_requires_admin) ||
3465      (debugset && !running_in_test_harness))
3466     {
3467     fprintf(stderr, "exim:%s permission denied\n", debugset? " debugging" : "");
3468     exit(EXIT_FAILURE);
3469     }
3470   }
3471
3472 /* If the real user is not root or the exim uid, the argument for passing
3473 in an open TCP/IP connection for another message is not permitted, nor is
3474 running with the -N option for any delivery action, unless this call to exim is
3475 one that supplied an input message, or we are using a patched exim for
3476 regression testing. */
3477
3478 if (real_uid != root_uid && real_uid != exim_uid &&
3479      (continue_hostname != NULL ||
3480        (dont_deliver &&
3481          (queue_interval >= 0 || daemon_listen || msg_action_arg > 0)
3482        )) && !running_in_test_harness)
3483   {
3484   fprintf(stderr, "exim: Permission denied\n");
3485   return EXIT_FAILURE;
3486   }
3487
3488 /* If the caller is not trusted, certain arguments are ignored when running for
3489 real, but are permitted when checking things (-be, -bv, -bt, -bh, -bf, -bF).
3490 Note that authority for performing certain actions on messages is tested in the
3491 queue_action() function. */
3492
3493 if (!trusted_caller && !checking && filter_test == FTEST_NONE)
3494   {
3495   sender_host_name = sender_host_address = interface_address =
3496     sender_ident = received_protocol = NULL;
3497   sender_host_port = interface_port = 0;
3498   sender_host_authenticated = authenticated_sender = authenticated_id = NULL;
3499   }
3500
3501 /* If a sender host address is set, extract the optional port number off the
3502 end of it and check its syntax. Do the same thing for the interface address.
3503 Exim exits if the syntax is bad. */
3504
3505 else
3506   {
3507   if (sender_host_address != NULL)
3508     sender_host_port = check_port(sender_host_address);
3509   if (interface_address != NULL)
3510     interface_port = check_port(interface_address);
3511   }
3512
3513 /* If an SMTP message is being received check to see if the standard input is a
3514 TCP/IP socket. If it is, we assume that Exim was called from inetd if the
3515 caller is root or the Exim user, or if the port is a privileged one. Otherwise,
3516 barf. */
3517
3518 if (smtp_input)
3519   {
3520   union sockaddr_46 inetd_sock;
3521   EXIM_SOCKLEN_T size = sizeof(inetd_sock);
3522   if (getpeername(0, (struct sockaddr *)(&inetd_sock), &size) == 0)
3523     {
3524     int family = ((struct sockaddr *)(&inetd_sock))->sa_family;
3525     if (family == AF_INET || family == AF_INET6)
3526       {
3527       union sockaddr_46 interface_sock;
3528       size = sizeof(interface_sock);
3529
3530       if (getsockname(0, (struct sockaddr *)(&interface_sock), &size) == 0)
3531         interface_address = host_ntoa(-1, &interface_sock, NULL,
3532           &interface_port);
3533
3534       if (host_is_tls_on_connect_port(interface_port)) tls_on_connect = TRUE;
3535
3536       if (real_uid == root_uid || real_uid == exim_uid || interface_port < 1024)
3537         {
3538         is_inetd = TRUE;
3539         sender_host_address = host_ntoa(-1, (struct sockaddr *)(&inetd_sock),
3540           NULL, &sender_host_port);
3541         if (mua_wrapper) log_write(0, LOG_MAIN|LOG_PANIC_DIE, "Input from "
3542           "inetd is not supported when mua_wrapper is set");
3543         }
3544       else
3545         {
3546         fprintf(stderr,
3547           "exim: Permission denied (unprivileged user, unprivileged port)\n");
3548         return EXIT_FAILURE;
3549         }
3550       }
3551     }
3552   }
3553
3554 /* If the load average is going to be needed while receiving a message, get it
3555 now for those OS that require the first call to os_getloadavg() to be done as
3556 root. There will be further calls later for each message received. */
3557
3558 #ifdef LOAD_AVG_NEEDS_ROOT
3559 if (receiving_message &&
3560       (queue_only_load >= 0 ||
3561         (is_inetd && smtp_load_reserve >= 0)
3562       ))
3563   {
3564   load_average = OS_GETLOADAVG();
3565   }
3566 #endif
3567
3568 /* The queue_only configuration option can be overridden by -odx on the command
3569 line, except that if queue_only_override is false, queue_only cannot be unset
3570 from the command line. */
3571
3572 if (queue_only_set && (queue_only_override || arg_queue_only))
3573   queue_only = arg_queue_only;
3574
3575 /* The receive_timeout and smtp_receive_timeout options can be overridden by
3576 -or and -os. */
3577
3578 if (arg_receive_timeout >= 0) receive_timeout = arg_receive_timeout;
3579 if (arg_smtp_receive_timeout >= 0)
3580   smtp_receive_timeout = arg_smtp_receive_timeout;
3581
3582 /* If Exim was started with root privilege, unless we have already removed the
3583 root privilege above as a result of -C, -D, -be, -bf or -bF, remove it now
3584 except when starting the daemon or doing some kind of delivery or address
3585 testing (-bt). These are the only cases when root need to be retained. We run
3586 as exim for -bv and -bh. However, if deliver_drop_privilege is set, root is
3587 retained only for starting the daemon. We always do the initgroups() in this
3588 situation (controlled by the TRUE below), in order to be as close as possible
3589 to the state Exim usually runs in. */
3590
3591 if (!unprivileged &&                      /* originally had root AND */
3592     !removed_privilege &&                 /* still got root AND      */
3593     !daemon_listen &&                     /* not starting the daemon */
3594     queue_interval <= 0 &&                /* (either kind of daemon) */
3595       (                                   /*    AND EITHER           */
3596       deliver_drop_privilege ||           /* requested unprivileged  */
3597         (                                 /*       OR                */
3598         queue_interval < 0 &&             /* not running the queue   */
3599         (msg_action_arg < 0 ||            /*       and               */
3600           msg_action != MSG_DELIVER) &&   /* not delivering and      */
3601         (!checking || !address_test_mode) /* not address checking    */
3602         )
3603       ))
3604   {
3605   exim_setugid(exim_uid, exim_gid, TRUE, US"privilege not needed");
3606   }
3607
3608 /* When we are retaining a privileged uid, we still change to the exim gid. */
3609
3610 else setgid(exim_gid);
3611
3612 /* Handle a request to scan a file for malware */
3613 if (malware_test_file)
3614   {
3615   int result;
3616   set_process_info("scanning file for malware");
3617   result = malware_in_file(malware_test_file);
3618   if (result == FAIL)
3619     {
3620     printf("No malware found.\n");
3621     exit(EXIT_SUCCESS);
3622     }
3623   if (result != OK)
3624     {
3625     printf("Malware lookup returned non-okay/fail: %d\n", result);
3626     exit(EXIT_FAILURE);
3627     }
3628   if (malware_name)
3629     printf("Malware found: %s\n", malware_name);
3630   else
3631     printf("Malware scan detected malware of unknown name.\n");
3632   exit(EXIT_FAILURE);
3633   }
3634
3635 /* Handle a request to list the delivery queue */
3636
3637 if (list_queue)
3638   {
3639   set_process_info("listing the queue");
3640   queue_list(list_queue_option, argv + recipients_arg, argc - recipients_arg);
3641   exit(EXIT_SUCCESS);
3642   }
3643
3644 /* Handle a request to count the delivery queue */
3645
3646 if (count_queue)
3647   {
3648   set_process_info("counting the queue");
3649   queue_count();
3650   exit(EXIT_SUCCESS);
3651   }
3652
3653 /* Handle actions on specific messages, except for the force delivery and
3654 message load actions, which are done below. Some actions take a whole list of
3655 message ids, which are known to continue up to the end of the arguments. Others
3656 take a single message id and then operate on the recipients list. */
3657
3658 if (msg_action_arg > 0 && msg_action != MSG_DELIVER && msg_action != MSG_LOAD)
3659   {
3660   int yield = EXIT_SUCCESS;
3661   set_process_info("acting on specified messages");
3662
3663   if (!one_msg_action)
3664     {
3665     for (i = msg_action_arg; i < argc; i++)
3666       if (!queue_action(argv[i], msg_action, NULL, 0, 0))
3667         yield = EXIT_FAILURE;
3668     }
3669
3670   else if (!queue_action(argv[msg_action_arg], msg_action, argv, argc,
3671     recipients_arg)) yield = EXIT_FAILURE;
3672   exit(yield);
3673   }
3674
3675 /* All the modes below here require the remaining configuration sections
3676 to be read, except that we can skip over the ACL setting when delivering
3677 specific messages, or doing a queue run. (For various testing cases we could
3678 skip too, but as they are rare, it doesn't really matter.) The argument is TRUE
3679 for skipping. */
3680
3681 readconf_rest(msg_action_arg > 0 || (queue_interval == 0 && !daemon_listen));
3682
3683 /* The configuration data will have been read into POOL_PERM because we won't
3684 ever want to reset back past it. Change the current pool to POOL_MAIN. In fact,
3685 this is just a bit of pedantic tidiness. It wouldn't really matter if the
3686 configuration were read into POOL_MAIN, because we don't do any resets till
3687 later on. However, it seems right, and it does ensure that both pools get used.
3688 */
3689
3690 store_pool = POOL_MAIN;
3691
3692 /* Handle the -brt option. This is for checking out retry configurations.
3693 The next three arguments are a domain name or a complete address, and
3694 optionally two error numbers. All it does is to call the function that
3695 scans the retry configuration data. */
3696
3697 if (test_retry_arg >= 0)
3698   {
3699   retry_config *yield;
3700   int basic_errno = 0;
3701   int more_errno = 0;
3702   uschar *s1, *s2;
3703
3704   if (test_retry_arg >= argc)
3705     {
3706     printf("-brt needs a domain or address argument\n");
3707     exim_exit(EXIT_FAILURE);
3708     }
3709   s1 = argv[test_retry_arg++];
3710   s2 = NULL;
3711
3712   /* If the first argument contains no @ and no . it might be a local user
3713   or it might be a single-component name. Treat as a domain. */
3714
3715   if (Ustrchr(s1, '@') == NULL && Ustrchr(s1, '.') == NULL)
3716     {
3717     printf("Warning: \"%s\" contains no '@' and no '.' characters. It is "
3718       "being \ntreated as a one-component domain, not as a local part.\n\n",
3719       s1);
3720     }
3721
3722   /* There may be an optional second domain arg. */
3723
3724   if (test_retry_arg < argc && Ustrchr(argv[test_retry_arg], '.') != NULL)
3725     s2 = argv[test_retry_arg++];
3726
3727   /* The final arg is an error name */
3728
3729   if (test_retry_arg < argc)
3730     {
3731     uschar *ss = argv[test_retry_arg];
3732     uschar *error =
3733       readconf_retry_error(ss, ss + Ustrlen(ss), &basic_errno, &more_errno);
3734     if (error != NULL)
3735       {
3736       printf("%s\n", CS error);
3737       return EXIT_FAILURE;
3738       }
3739
3740     /* For the {MAIL,RCPT,DATA}_4xx errors, a value of 255 means "any", and a
3741     code > 100 as an error is for matching codes to the decade. Turn them into
3742     a real error code, off the decade. */
3743
3744     if (basic_errno == ERRNO_MAIL4XX ||
3745         basic_errno == ERRNO_RCPT4XX ||
3746         basic_errno == ERRNO_DATA4XX)
3747       {
3748       int code = (more_errno >> 8) & 255;
3749       if (code == 255)
3750         more_errno = (more_errno & 0xffff00ff) | (21 << 8);
3751       else if (code > 100)
3752         more_errno = (more_errno & 0xffff00ff) | ((code - 96) << 8);
3753       }
3754     }
3755
3756   yield = retry_find_config(s1, s2, basic_errno, more_errno);
3757   if (yield == NULL) printf("No retry information found\n"); else
3758     {
3759     retry_rule *r;
3760     more_errno = yield->more_errno;
3761     printf("Retry rule: %s  ", yield->pattern);
3762
3763     if (yield->basic_errno == ERRNO_EXIMQUOTA)
3764       {
3765       printf("quota%s%s  ",
3766         (more_errno > 0)? "_" : "",
3767         (more_errno > 0)? readconf_printtime(more_errno) : US"");
3768       }
3769     else if (yield->basic_errno == ECONNREFUSED)
3770       {
3771       printf("refused%s%s  ",
3772         (more_errno > 0)? "_" : "",
3773         (more_errno == 'M')? "MX" :
3774         (more_errno == 'A')? "A" : "");
3775       }
3776     else if (yield->basic_errno == ETIMEDOUT)
3777       {
3778       printf("timeout");
3779       if ((more_errno & RTEF_CTOUT) != 0) printf("_connect");
3780       more_errno &= 255;
3781       if (more_errno != 0) printf("_%s",
3782         (more_errno == 'M')? "MX" : "A");
3783       printf("  ");
3784       }
3785     else if (yield->basic_errno == ERRNO_AUTHFAIL)
3786       printf("auth_failed  ");
3787     else printf("*  ");
3788
3789     for (r = yield->rules; r != NULL; r = r->next)
3790       {
3791       printf("%c,%s", r->rule, readconf_printtime(r->timeout)); /* Do not */
3792       printf(",%s", readconf_printtime(r->p1));                 /* amalgamate */
3793       if (r->rule == 'G')
3794         {
3795         int x = r->p2;
3796         int f = x % 1000;
3797         int d = 100;
3798         printf(",%d.", x/1000);
3799         do
3800           {
3801           printf("%d", f/d);
3802           f %= d;
3803           d /= 10;
3804           }
3805         while (f != 0);
3806         }
3807       printf("; ");
3808       }
3809
3810     printf("\n");
3811     }
3812   exim_exit(EXIT_SUCCESS);
3813   }
3814
3815 /* Handle a request to list one or more configuration options */
3816
3817 if (list_options)
3818   {
3819   set_process_info("listing variables");
3820   if (recipients_arg >= argc) readconf_print(US"all", NULL);
3821     else for (i = recipients_arg; i < argc; i++)
3822       {
3823       if (i < argc - 1 &&
3824           (Ustrcmp(argv[i], "router") == 0 ||
3825            Ustrcmp(argv[i], "transport") == 0 ||
3826            Ustrcmp(argv[i], "authenticator") == 0 ||
3827            Ustrcmp(argv[i], "macro") == 0))
3828         {
3829         readconf_print(argv[i+1], argv[i]);
3830         i++;
3831         }
3832       else readconf_print(argv[i], NULL);
3833       }
3834   exim_exit(EXIT_SUCCESS);
3835   }
3836
3837
3838 /* Handle a request to deliver one or more messages that are already on the
3839 queue. Values of msg_action other than MSG_DELIVER and MSG_LOAD are dealt with
3840 above. MSG_LOAD is handled with -be (which is the only time it applies) below.
3841
3842 Delivery of specific messages is typically used for a small number when
3843 prodding by hand (when the option forced_delivery will be set) or when
3844 re-execing to regain root privilege. Each message delivery must happen in a
3845 separate process, so we fork a process for each one, and run them sequentially
3846 so that debugging output doesn't get intertwined, and to avoid spawning too
3847 many processes if a long list is given. However, don't fork for the last one;
3848 this saves a process in the common case when Exim is called to deliver just one
3849 message. */
3850
3851 if (msg_action_arg > 0 && msg_action != MSG_LOAD)
3852   {
3853   if (prod_requires_admin && !admin_user)
3854     {
3855     fprintf(stderr, "exim: Permission denied\n");
3856     exim_exit(EXIT_FAILURE);
3857     }
3858   set_process_info("delivering specified messages");
3859   if (deliver_give_up) forced_delivery = deliver_force_thaw = TRUE;
3860   for (i = msg_action_arg; i < argc; i++)
3861     {
3862     int status;
3863     pid_t pid;
3864     if (i == argc - 1)
3865       (void)deliver_message(argv[i], forced_delivery, deliver_give_up);
3866     else if ((pid = fork()) == 0)
3867       {
3868       (void)deliver_message(argv[i], forced_delivery, deliver_give_up);
3869       _exit(EXIT_SUCCESS);
3870       }
3871     else if (pid < 0)
3872       {
3873       fprintf(stderr, "failed to fork delivery process for %s: %s\n", argv[i],
3874         strerror(errno));
3875       exim_exit(EXIT_FAILURE);
3876       }
3877     else wait(&status);
3878     }
3879   exim_exit(EXIT_SUCCESS);
3880   }
3881
3882
3883 /* If only a single queue run is requested, without SMTP listening, we can just
3884 turn into a queue runner, with an optional starting message id. */
3885
3886 if (queue_interval == 0 && !daemon_listen)
3887   {
3888   DEBUG(D_queue_run) debug_printf("Single queue run%s%s%s%s\n",
3889     (start_queue_run_id == NULL)? US"" : US" starting at ",
3890     (start_queue_run_id == NULL)? US"" : start_queue_run_id,
3891     (stop_queue_run_id == NULL)?  US"" : US" stopping at ",
3892     (stop_queue_run_id == NULL)?  US"" : stop_queue_run_id);
3893   set_process_info("running the queue (single queue run)");
3894   queue_run(start_queue_run_id, stop_queue_run_id, FALSE);
3895   exim_exit(EXIT_SUCCESS);
3896   }
3897
3898
3899 /* Find the login name of the real user running this process. This is always
3900 needed when receiving a message, because it is written into the spool file. It
3901 may also be used to construct a from: or a sender: header, and in this case we
3902 need the user's full name as well, so save a copy of it, checked for RFC822
3903 syntax and munged if necessary, if it hasn't previously been set by the -F
3904 argument. We may try to get the passwd entry more than once, in case NIS or
3905 other delays are in evidence. Save the home directory for use in filter testing
3906 (only). */
3907
3908 for (i = 0;;)
3909   {
3910   if ((pw = getpwuid(real_uid)) != NULL)
3911     {
3912     originator_login = string_copy(US pw->pw_name);
3913     originator_home = string_copy(US pw->pw_dir);
3914
3915     /* If user name has not been set by -F, set it from the passwd entry
3916     unless -f has been used to set the sender address by a trusted user. */
3917
3918     if (originator_name == NULL)
3919       {
3920       if (sender_address == NULL ||
3921            (!trusted_caller && filter_test == FTEST_NONE))
3922         {
3923         uschar *name = US pw->pw_gecos;
3924         uschar *amp = Ustrchr(name, '&');
3925         uschar buffer[256];
3926
3927         /* Most Unix specify that a '&' character in the gecos field is
3928         replaced by a copy of the login name, and some even specify that
3929         the first character should be upper cased, so that's what we do. */
3930
3931         if (amp != NULL)
3932           {
3933           int loffset;
3934           string_format(buffer, sizeof(buffer), "%.*s%n%s%s",
3935             amp - name, name, &loffset, originator_login, amp + 1);
3936           buffer[loffset] = toupper(buffer[loffset]);
3937           name = buffer;
3938           }
3939
3940         /* If a pattern for matching the gecos field was supplied, apply
3941         it and then expand the name string. */
3942
3943         if (gecos_pattern != NULL && gecos_name != NULL)
3944           {
3945           const pcre *re;
3946           re = regex_must_compile(gecos_pattern, FALSE, TRUE); /* Use malloc */
3947
3948           if (regex_match_and_setup(re, name, 0, -1))
3949             {
3950             uschar *new_name = expand_string(gecos_name);
3951             expand_nmax = -1;
3952             if (new_name != NULL)
3953               {
3954               DEBUG(D_receive) debug_printf("user name \"%s\" extracted from "
3955                 "gecos field \"%s\"\n", new_name, name);
3956               name = new_name;
3957               }
3958             else DEBUG(D_receive) debug_printf("failed to expand gecos_name string "
3959               "\"%s\": %s\n", gecos_name, expand_string_message);
3960             }
3961           else DEBUG(D_receive) debug_printf("gecos_pattern \"%s\" did not match "
3962             "gecos field \"%s\"\n", gecos_pattern, name);
3963           store_free((void *)re);
3964           }
3965         originator_name = string_copy(name);
3966         }
3967
3968       /* A trusted caller has used -f but not -F */
3969
3970       else originator_name = US"";
3971       }
3972
3973     /* Break the retry loop */
3974
3975     break;
3976     }
3977
3978   if (++i > finduser_retries) break;
3979   sleep(1);
3980   }
3981
3982 /* If we cannot get a user login, log the incident and give up, unless the
3983 configuration specifies something to use. When running in the test harness,
3984 any setting of unknown_login overrides the actual name. */
3985
3986 if (originator_login == NULL || running_in_test_harness)
3987   {
3988   if (unknown_login != NULL)
3989     {
3990     originator_login = expand_string(unknown_login);
3991     if (originator_name == NULL && unknown_username != NULL)
3992       originator_name = expand_string(unknown_username);
3993     if (originator_name == NULL) originator_name = US"";
3994     }
3995   if (originator_login == NULL)
3996     log_write(0, LOG_MAIN|LOG_PANIC_DIE, "Failed to get user name for uid %d",
3997       (int)real_uid);
3998   }
3999
4000 /* Ensure that the user name is in a suitable form for use as a "phrase" in an
4001 RFC822 address.*/
4002
4003 originator_name = string_copy(parse_fix_phrase(originator_name,
4004   Ustrlen(originator_name), big_buffer, big_buffer_size));
4005
4006 /* If a message is created by this call of Exim, the uid/gid of its originator
4007 are those of the caller. These values are overridden if an existing message is
4008 read in from the spool. */
4009
4010 originator_uid = real_uid;
4011 originator_gid = real_gid;
4012
4013 DEBUG(D_receive) debug_printf("originator: uid=%d gid=%d login=%s name=%s\n",
4014   (int)originator_uid, (int)originator_gid, originator_login, originator_name);
4015
4016 /* Run in daemon and/or queue-running mode. The function daemon_go() never
4017 returns. We leave this till here so that the originator_ fields are available
4018 for incoming messages via the daemon. The daemon cannot be run in mua_wrapper
4019 mode. */
4020
4021 if (daemon_listen || queue_interval > 0)
4022   {
4023   if (mua_wrapper)
4024     {
4025     fprintf(stderr, "Daemon cannot be run when mua_wrapper is set\n");
4026     log_write(0, LOG_MAIN|LOG_PANIC_DIE, "Daemon cannot be run when "
4027       "mua_wrapper is set");
4028     }
4029   daemon_go();
4030   }
4031
4032 /* If the sender ident has not been set (by a trusted caller) set it to
4033 the caller. This will get overwritten below for an inetd call. If a trusted
4034 caller has set it empty, unset it. */
4035
4036 if (sender_ident == NULL) sender_ident = originator_login;
4037   else if (sender_ident[0] == 0) sender_ident = NULL;
4038
4039 /* Handle the -brw option, which is for checking out rewriting rules. Cause log
4040 writes (on errors) to go to stderr instead. Can't do this earlier, as want the
4041 originator_* variables set. */
4042
4043 if (test_rewrite_arg >= 0)
4044   {
4045   really_exim = FALSE;
4046   if (test_rewrite_arg >= argc)
4047     {
4048     printf("-brw needs an address argument\n");
4049     exim_exit(EXIT_FAILURE);
4050     }
4051   rewrite_test(argv[test_rewrite_arg]);
4052   exim_exit(EXIT_SUCCESS);
4053   }
4054
4055 /* A locally-supplied message is considered to be coming from a local user
4056 unless a trusted caller supplies a sender address with -f, or is passing in the
4057 message via SMTP (inetd invocation or otherwise). */
4058
4059 if ((sender_address == NULL && !smtp_input) ||
4060     (!trusted_caller && filter_test == FTEST_NONE))
4061   {
4062   sender_local = TRUE;
4063
4064   /* A trusted caller can supply authenticated_sender and authenticated_id
4065   via -oMas and -oMai and if so, they will already be set. Otherwise, force
4066   defaults except when host checking. */
4067
4068   if (authenticated_sender == NULL && !host_checking)
4069     authenticated_sender = string_sprintf("%s@%s", originator_login,
4070       qualify_domain_sender);
4071   if (authenticated_id == NULL && !host_checking)
4072     authenticated_id = originator_login;
4073   }
4074
4075 /* Trusted callers are always permitted to specify the sender address.
4076 Untrusted callers may specify it if it matches untrusted_set_sender, or if what
4077 is specified is the empty address. However, if a trusted caller does not
4078 specify a sender address for SMTP input, we leave sender_address unset. This
4079 causes the MAIL commands to be honoured. */
4080
4081 if ((!smtp_input && sender_address == NULL) ||
4082     !receive_check_set_sender(sender_address))
4083   {
4084   /* Either the caller is not permitted to set a general sender, or this is
4085   non-SMTP input and the trusted caller has not set a sender. If there is no
4086   sender, or if a sender other than <> is set, override with the originator's
4087   login (which will get qualified below), except when checking things. */
4088
4089   if (sender_address == NULL             /* No sender_address set */
4090        ||                                /*         OR            */
4091        (sender_address[0] != 0 &&        /* Non-empty sender address, AND */
4092        !checking &&                      /* Not running tests, AND */
4093        filter_test == FTEST_NONE))       /* Not testing a filter */
4094     {
4095     sender_address = originator_login;
4096     sender_address_forced = FALSE;
4097     sender_address_domain = 0;
4098     }
4099   }
4100
4101 /* Remember whether an untrusted caller set the sender address */
4102
4103 sender_set_untrusted = sender_address != originator_login && !trusted_caller;
4104
4105 /* Ensure that the sender address is fully qualified unless it is the empty
4106 address, which indicates an error message, or doesn't exist (root caller, smtp
4107 interface, no -f argument). */
4108
4109 if (sender_address != NULL && sender_address[0] != 0 &&
4110     sender_address_domain == 0)
4111   sender_address = string_sprintf("%s@%s", local_part_quote(sender_address),
4112     qualify_domain_sender);
4113
4114 DEBUG(D_receive) debug_printf("sender address = %s\n", sender_address);
4115
4116 /* Handle a request to verify a list of addresses, or test them for delivery.
4117 This must follow the setting of the sender address, since routers can be
4118 predicated upon the sender. If no arguments are given, read addresses from
4119 stdin. Set debug_level to at least D_v to get full output for address testing.
4120 */
4121
4122 if (verify_address_mode || address_test_mode)
4123   {
4124   int exit_value = 0;
4125   int flags = vopt_qualify;
4126
4127   if (verify_address_mode)
4128     {
4129     if (!verify_as_sender) flags |= vopt_is_recipient;
4130     DEBUG(D_verify) debug_print_ids(US"Verifying:");
4131     }
4132
4133   else
4134     {
4135     flags |= vopt_is_recipient;
4136     debug_selector |= D_v;
4137     debug_file = stderr;
4138     debug_fd = fileno(debug_file);
4139     DEBUG(D_verify) debug_print_ids(US"Address testing:");
4140     }
4141
4142   if (recipients_arg < argc)
4143     {
4144     while (recipients_arg < argc)
4145       {
4146       uschar *s = argv[recipients_arg++];
4147       while (*s != 0)
4148         {
4149         BOOL finished = FALSE;
4150         uschar *ss = parse_find_address_end(s, FALSE);
4151         if (*ss == ',') *ss = 0; else finished = TRUE;
4152         test_address(s, flags, &exit_value);
4153         s = ss;
4154         if (!finished)
4155           while (*(++s) != 0 && (*s == ',' || isspace(*s)));
4156         }
4157       }
4158     }
4159
4160   else for (;;)
4161     {
4162     uschar *s = get_stdinput(NULL, NULL);
4163     if (s == NULL) break;
4164     test_address(s, flags, &exit_value);
4165     }
4166
4167   route_tidyup();
4168   exim_exit(exit_value);
4169   }
4170
4171 /* Handle expansion checking. Either expand items on the command line, or read
4172 from stdin if there aren't any. If -Mset was specified, load the message so
4173 that its variables can be used, but restrict this facility to admin users.
4174 Otherwise, if -bem was used, read a message from stdin. */
4175
4176 if (expansion_test)
4177   {
4178   if (msg_action_arg > 0 && msg_action == MSG_LOAD)
4179     {
4180     uschar spoolname[256];  /* Not big_buffer; used in spool_read_header() */
4181     if (!admin_user)
4182       {
4183       fprintf(stderr, "exim: permission denied\n");
4184       exit(EXIT_FAILURE);
4185       }
4186     message_id = argv[msg_action_arg];
4187     (void)string_format(spoolname, sizeof(spoolname), "%s-H", message_id);
4188     if (!spool_open_datafile(message_id))
4189       printf ("Failed to load message datafile %s\n", message_id);
4190     if (spool_read_header(spoolname, TRUE, FALSE) != spool_read_OK)
4191       printf ("Failed to load message %s\n", message_id);
4192     }
4193
4194   /* Read a test message from a file. We fudge it up to be on stdin, saving
4195   stdin itself for later reading of expansion strings. */
4196
4197   else if (expansion_test_message != NULL)
4198     {
4199     int save_stdin = dup(0);
4200     int fd = Uopen(expansion_test_message, O_RDONLY, 0);
4201     if (fd < 0)
4202       {
4203       fprintf(stderr, "exim: failed to open %s: %s\n", expansion_test_message,
4204         strerror(errno));
4205       return EXIT_FAILURE;
4206       }
4207     (void) dup2(fd, 0);
4208     filter_test = FTEST_USER;      /* Fudge to make it look like filter test */
4209     message_ended = END_NOTENDED;
4210     read_message_body(receive_msg(extract_recipients));
4211     message_linecount += body_linecount;
4212     (void)dup2(save_stdin, 0);
4213     (void)close(save_stdin);
4214     clearerr(stdin);               /* Required by Darwin */
4215     }
4216
4217   /* Allow $recipients for this testing */
4218
4219   enable_dollar_recipients = TRUE;
4220
4221   /* Expand command line items */
4222
4223   if (recipients_arg < argc)
4224     {
4225     while (recipients_arg < argc)
4226       {
4227       uschar *s = argv[recipients_arg++];
4228       uschar *ss = expand_string(s);
4229       if (ss == NULL) printf ("Failed: %s\n", expand_string_message);
4230       else printf("%s\n", CS ss);
4231       }
4232     }
4233
4234   /* Read stdin */
4235
4236   else
4237     {
4238     char *(*fn_readline)(char *) = NULL;
4239     char *(*fn_addhist)(char *) = NULL;
4240
4241     #ifdef USE_READLINE
4242     void *dlhandle = set_readline(&fn_readline, &fn_addhist);
4243     #endif
4244
4245     for (;;)
4246       {
4247       uschar *ss;
4248       uschar *source = get_stdinput(fn_readline, fn_addhist);
4249       if (source == NULL) break;
4250       ss = expand_string(source);
4251       if (ss == NULL)
4252         printf ("Failed: %s\n", expand_string_message);
4253       else printf("%s\n", CS ss);
4254       }
4255
4256     #ifdef USE_READLINE
4257     if (dlhandle != NULL) dlclose(dlhandle);
4258     #endif
4259     }
4260
4261   /* The data file will be open after -Mset */
4262
4263   if (deliver_datafile >= 0)
4264     {
4265     (void)close(deliver_datafile);
4266     deliver_datafile = -1;
4267     }
4268
4269   exim_exit(EXIT_SUCCESS);
4270   }
4271
4272
4273 /* The active host name is normally the primary host name, but it can be varied
4274 for hosts that want to play several parts at once. We need to ensure that it is
4275 set for host checking, and for receiving messages. */
4276
4277 smtp_active_hostname = primary_hostname;
4278 if (raw_active_hostname != NULL)
4279   {
4280   uschar *nah = expand_string(raw_active_hostname);
4281   if (nah == NULL)
4282     {
4283     if (!expand_string_forcedfail)
4284       log_write(0, LOG_MAIN|LOG_PANIC_DIE, "failed to expand \"%s\" "
4285         "(smtp_active_hostname): %s", raw_active_hostname,
4286         expand_string_message);
4287     }
4288   else if (nah[0] != 0) smtp_active_hostname = nah;
4289   }
4290
4291 /* Handle host checking: this facility mocks up an incoming SMTP call from a
4292 given IP address so that the blocking and relay configuration can be tested.
4293 Unless a sender_ident was set by -oMt, we discard it (the default is the
4294 caller's login name). An RFC 1413 call is made only if we are running in the
4295 test harness and an incoming interface and both ports are specified, because
4296 there is no TCP/IP call to find the ident for. */
4297
4298 if (host_checking)
4299   {
4300   int x[4];
4301   int size;
4302
4303   if (!sender_ident_set)
4304     {
4305     sender_ident = NULL;
4306     if (running_in_test_harness && sender_host_port != 0 &&
4307         interface_address != NULL && interface_port != 0)
4308       verify_get_ident(1413);
4309     }
4310
4311   /* In case the given address is a non-canonical IPv6 address, canonicize
4312   it. The code works for both IPv4 and IPv6, as it happens. */
4313
4314   size = host_aton(sender_host_address, x);
4315   sender_host_address = store_get(48);  /* large enough for full IPv6 */
4316   (void)host_nmtoa(size, x, -1, sender_host_address, ':');
4317
4318   /* Now set up for testing */
4319
4320   host_build_sender_fullhost();
4321   smtp_input = TRUE;
4322   smtp_in = stdin;
4323   smtp_out = stdout;
4324   sender_local = FALSE;
4325   sender_host_notsocket = TRUE;
4326   debug_file = stderr;
4327   debug_fd = fileno(debug_file);
4328   fprintf(stdout, "\n**** SMTP testing session as if from host %s\n"
4329     "**** but without any ident (RFC 1413) callback.\n"
4330     "**** This is not for real!\n\n",
4331       sender_host_address);
4332
4333   if (verify_check_host(&hosts_connection_nolog) == OK)
4334     log_write_selector &= ~L_smtp_connection;
4335   log_write(L_smtp_connection, LOG_MAIN, "%s", smtp_get_connection_info());
4336
4337   /* NOTE: We do *not* call smtp_log_no_mail() if smtp_start_session() fails,
4338   because a log line has already been written for all its failure exists
4339   (usually "connection refused: <reason>") and writing another one is
4340   unnecessary clutter. */
4341
4342   if (smtp_start_session())
4343     {
4344     reset_point = store_get(0);
4345     for (;;)
4346       {
4347       store_reset(reset_point);
4348       if (smtp_setup_msg() <= 0) break;
4349       if (!receive_msg(FALSE)) break;
4350       }
4351     smtp_log_no_mail();
4352     }
4353   exim_exit(EXIT_SUCCESS);
4354   }
4355
4356
4357 /* Arrange for message reception if recipients or SMTP were specified;
4358 otherwise complain unless a version print (-bV) happened or this is a filter
4359 verification test. In the former case, show the configuration file name. */
4360
4361 if (recipients_arg >= argc && !extract_recipients && !smtp_input)
4362   {
4363   if (version_printed)
4364     {
4365     printf("Configuration file is %s\n", config_main_filename);
4366     return EXIT_SUCCESS;
4367     }
4368
4369   if (filter_test == FTEST_NONE)
4370     exim_usage(called_as);
4371   }
4372
4373
4374 /* If mua_wrapper is set, Exim is being used to turn an MUA that submits on the
4375 standard input into an MUA that submits to a smarthost over TCP/IP. We know
4376 that we are not called from inetd, because that is rejected above. The
4377 following configuration settings are forced here:
4378
4379   (1) Synchronous delivery (-odi)
4380   (2) Errors to stderr (-oep == -oeq)
4381   (3) No parallel remote delivery
4382   (4) Unprivileged delivery
4383
4384 We don't force overall queueing options because there are several of them;
4385 instead, queueing is avoided below when mua_wrapper is set. However, we do need
4386 to override any SMTP queueing. */
4387
4388 if (mua_wrapper)
4389   {
4390   synchronous_delivery = TRUE;
4391   arg_error_handling = ERRORS_STDERR;
4392   remote_max_parallel = 1;
4393   deliver_drop_privilege = TRUE;
4394   queue_smtp = FALSE;
4395   queue_smtp_domains = NULL;
4396   }
4397
4398
4399 /* Prepare to accept one or more new messages on the standard input. When a
4400 message has been read, its id is returned in message_id[]. If doing immediate
4401 delivery, we fork a delivery process for each received message, except for the
4402 last one, where we can save a process switch.
4403
4404 It is only in non-smtp mode that error_handling is allowed to be changed from
4405 its default of ERRORS_SENDER by argument. (Idle thought: are any of the
4406 sendmail error modes other than -oem ever actually used? Later: yes.) */
4407
4408 if (!smtp_input) error_handling = arg_error_handling;
4409
4410 /* If this is an inetd call, ensure that stderr is closed to prevent panic
4411 logging being sent down the socket and make an identd call to get the
4412 sender_ident. */
4413
4414 else if (is_inetd)
4415   {
4416   (void)fclose(stderr);
4417   exim_nullstd();                       /* Re-open to /dev/null */
4418   verify_get_ident(IDENT_PORT);
4419   host_build_sender_fullhost();
4420   set_process_info("handling incoming connection from %s via inetd",
4421     sender_fullhost);
4422   }
4423
4424 /* If the sender host address has been set, build sender_fullhost if it hasn't
4425 already been done (which it will have been for inetd). This caters for the
4426 case when it is forced by -oMa. However, we must flag that it isn't a socket,
4427 so that the test for IP options is skipped for -bs input. */
4428
4429 if (sender_host_address != NULL && sender_fullhost == NULL)
4430   {
4431   host_build_sender_fullhost();
4432   set_process_info("handling incoming connection from %s via -oMa",
4433     sender_fullhost);
4434   sender_host_notsocket = TRUE;
4435   }
4436
4437 /* Otherwise, set the sender host as unknown except for inetd calls. This
4438 prevents host checking in the case of -bs not from inetd and also for -bS. */
4439
4440 else if (!is_inetd) sender_host_unknown = TRUE;
4441
4442 /* If stdout does not exist, then dup stdin to stdout. This can happen
4443 if exim is started from inetd. In this case fd 0 will be set to the socket,
4444 but fd 1 will not be set. This also happens for passed SMTP channels. */
4445
4446 if (fstat(1, &statbuf) < 0) (void)dup2(0, 1);
4447
4448 /* Set up the incoming protocol name and the state of the program. Root is
4449 allowed to force received protocol via the -oMr option above. If we have come
4450 via inetd, the process info has already been set up. We don't set
4451 received_protocol here for smtp input, as it varies according to
4452 batch/HELO/EHLO/AUTH/TLS. */
4453
4454 if (smtp_input)
4455   {
4456   if (!is_inetd) set_process_info("accepting a local %sSMTP message from <%s>",
4457     smtp_batched_input? "batched " : "",
4458     (sender_address!= NULL)? sender_address : originator_login);
4459   }
4460 else
4461   {
4462   if (received_protocol == NULL)
4463     received_protocol = string_sprintf("local%s", called_as);
4464   set_process_info("accepting a local non-SMTP message from <%s>",
4465     sender_address);
4466   }
4467
4468 /* Initialize the session_local_queue-only flag (this will be ignored if
4469 mua_wrapper is set) */
4470
4471 queue_check_only();
4472 session_local_queue_only = queue_only;
4473
4474 /* For non-SMTP and for batched SMTP input, check that there is enough space on
4475 the spool if so configured. On failure, we must not attempt to send an error
4476 message! (For interactive SMTP, the check happens at MAIL FROM and an SMTP
4477 error code is given.) */
4478
4479 if ((!smtp_input || smtp_batched_input) && !receive_check_fs(0))
4480   {
4481   fprintf(stderr, "exim: insufficient disk space\n");
4482   return EXIT_FAILURE;
4483   }
4484
4485 /* If this is smtp input of any kind, real or batched, handle the start of the
4486 SMTP session.
4487
4488 NOTE: We do *not* call smtp_log_no_mail() if smtp_start_session() fails,
4489 because a log line has already been written for all its failure exists
4490 (usually "connection refused: <reason>") and writing another one is
4491 unnecessary clutter. */
4492
4493 if (smtp_input)
4494   {
4495   smtp_in = stdin;
4496   smtp_out = stdout;
4497   if (verify_check_host(&hosts_connection_nolog) == OK)
4498     log_write_selector &= ~L_smtp_connection;
4499   log_write(L_smtp_connection, LOG_MAIN, "%s", smtp_get_connection_info());
4500   if (!smtp_start_session())
4501     {
4502     mac_smtp_fflush();
4503     exim_exit(EXIT_SUCCESS);
4504     }
4505   }
4506
4507 /* Otherwise, set up the input size limit here. */
4508
4509 else
4510   {
4511   thismessage_size_limit = expand_string_integer(message_size_limit, TRUE);
4512   if (expand_string_message != NULL)
4513     {
4514     if (thismessage_size_limit == -1)
4515       log_write(0, LOG_MAIN|LOG_PANIC_DIE, "failed to expand "
4516         "message_size_limit: %s", expand_string_message);
4517     else
4518       log_write(0, LOG_MAIN|LOG_PANIC_DIE, "invalid value for "
4519         "message_size_limit: %s", expand_string_message);
4520     }
4521   }
4522
4523 /* Loop for several messages when reading SMTP input. If we fork any child
4524 processes, we don't want to wait for them unless synchronous delivery is
4525 requested, so set SIGCHLD to SIG_IGN in that case. This is not necessarily the
4526 same as SIG_DFL, despite the fact that documentation often lists the default as
4527 "ignore". This is a confusing area. This is what I know:
4528
4529 At least on some systems (e.g. Solaris), just setting SIG_IGN causes child
4530 processes that complete simply to go away without ever becoming defunct. You
4531 can't then wait for them - but we don't want to wait for them in the
4532 non-synchronous delivery case. However, this behaviour of SIG_IGN doesn't
4533 happen for all OS (e.g. *BSD is different).
4534
4535 But that's not the end of the story. Some (many? all?) systems have the
4536 SA_NOCLDWAIT option for sigaction(). This requests the behaviour that Solaris
4537 has by default, so it seems that the difference is merely one of default
4538 (compare restarting vs non-restarting signals).
4539
4540 To cover all cases, Exim sets SIG_IGN with SA_NOCLDWAIT here if it can. If not,
4541 it just sets SIG_IGN. To be on the safe side it also calls waitpid() at the end
4542 of the loop below. Paranoia rules.
4543
4544 February 2003: That's *still* not the end of the story. There are now versions
4545 of Linux (where SIG_IGN does work) that are picky. If, having set SIG_IGN, a
4546 process then calls waitpid(), a grumble is written to the system log, because
4547 this is logically inconsistent. In other words, it doesn't like the paranoia.
4548 As a consequenc of this, the waitpid() below is now excluded if we are sure
4549 that SIG_IGN works. */
4550
4551 if (!synchronous_delivery)
4552   {
4553   #ifdef SA_NOCLDWAIT
4554   struct sigaction act;
4555   act.sa_handler = SIG_IGN;
4556   sigemptyset(&(act.sa_mask));
4557   act.sa_flags = SA_NOCLDWAIT;
4558   sigaction(SIGCHLD, &act, NULL);
4559   #else
4560   signal(SIGCHLD, SIG_IGN);
4561   #endif
4562   }
4563
4564 /* Save the current store pool point, for resetting at the start of
4565 each message, and save the real sender address, if any. */
4566
4567 reset_point = store_get(0);
4568 real_sender_address = sender_address;
4569
4570 /* Loop to receive messages; receive_msg() returns TRUE if there are more
4571 messages to be read (SMTP input), or FALSE otherwise (not SMTP, or SMTP channel
4572 collapsed). */
4573
4574 while (more)
4575   {
4576   store_reset(reset_point);
4577   message_id[0] = 0;
4578
4579   /* Handle the SMTP case; call smtp_setup_mst() to deal with the initial SMTP
4580   input and build the recipients list, before calling receive_msg() to read the
4581   message proper. Whatever sender address is given in the SMTP transaction is
4582   often ignored for local senders - we use the actual sender, which is normally
4583   either the underlying user running this process or a -f argument provided by
4584   a trusted caller. It is saved in real_sender_address. The test for whether to
4585   accept the SMTP sender is encapsulated in receive_check_set_sender(). */
4586
4587   if (smtp_input)
4588     {
4589     int rc;
4590     if ((rc = smtp_setup_msg()) > 0)
4591       {
4592       if (real_sender_address != NULL &&
4593           !receive_check_set_sender(sender_address))
4594         {
4595         sender_address = raw_sender = real_sender_address;
4596         sender_address_unrewritten = NULL;
4597         }
4598
4599       /* For batched SMTP, we have to run the acl_not_smtp_start ACL, since it
4600       isn't really SMTP, so no other ACL will run until the acl_not_smtp one at
4601       the very end. The result of the ACL is ignored (as for other non-SMTP
4602       messages). It is run for its potential side effects. */
4603
4604       if (smtp_batched_input && acl_not_smtp_start != NULL)
4605         {
4606         uschar *user_msg, *log_msg;
4607         enable_dollar_recipients = TRUE;
4608         (void)acl_check(ACL_WHERE_NOTSMTP_START, NULL, acl_not_smtp_start,
4609           &user_msg, &log_msg);
4610         enable_dollar_recipients = FALSE;
4611         }
4612
4613       /* Now get the data for the message */
4614
4615       more = receive_msg(extract_recipients);
4616       if (message_id[0] == 0)
4617         {
4618         if (more) continue;
4619         smtp_log_no_mail();               /* Log no mail if configured */
4620         exim_exit(EXIT_FAILURE);
4621         }
4622       }
4623     else
4624       {
4625       smtp_log_no_mail();               /* Log no mail if configured */
4626       exim_exit((rc == 0)? EXIT_SUCCESS : EXIT_FAILURE);
4627       }
4628     }
4629
4630   /* In the non-SMTP case, we have all the information from the command
4631   line, but must process it in case it is in the more general RFC822
4632   format, and in any case, to detect syntax errors. Also, it appears that
4633   the use of comma-separated lists as single arguments is common, so we
4634   had better support them. */
4635
4636   else
4637     {
4638     int i;
4639     int rcount = 0;
4640     int count = argc - recipients_arg;
4641     uschar **list = argv + recipients_arg;
4642
4643     /* These options cannot be changed dynamically for non-SMTP messages */
4644
4645     active_local_sender_retain = local_sender_retain;
4646     active_local_from_check = local_from_check;
4647
4648     /* Save before any rewriting */
4649
4650     raw_sender = string_copy(sender_address);
4651
4652     /* Loop for each argument */
4653
4654     for (i = 0; i < count; i++)
4655       {
4656       int start, end, domain;
4657       uschar *errmess;
4658       uschar *s = list[i];
4659
4660       /* Loop for each comma-separated address */
4661
4662       while (*s != 0)
4663         {
4664         BOOL finished = FALSE;
4665         uschar *recipient;
4666         uschar *ss = parse_find_address_end(s, FALSE);
4667
4668         if (*ss == ',') *ss = 0; else finished = TRUE;
4669
4670         /* Check max recipients - if -t was used, these aren't recipients */
4671
4672         if (recipients_max > 0 && ++rcount > recipients_max &&
4673             !extract_recipients)
4674           {
4675           if (error_handling == ERRORS_STDERR)
4676             {
4677             fprintf(stderr, "exim: too many recipients\n");
4678             exim_exit(EXIT_FAILURE);
4679             }
4680           else
4681             {
4682             return
4683               moan_to_sender(ERRMESS_TOOMANYRECIP, NULL, NULL, stdin, TRUE)?
4684                 errors_sender_rc : EXIT_FAILURE;
4685             }
4686           }
4687
4688         recipient =
4689           parse_extract_address(s, &errmess, &start, &end, &domain, FALSE);
4690
4691         if (domain == 0 && !allow_unqualified_recipient)
4692           {
4693           recipient = NULL;
4694           errmess = US"unqualified recipient address not allowed";
4695           }
4696
4697         if (recipient == NULL)
4698           {
4699           if (error_handling == ERRORS_STDERR)
4700             {
4701             fprintf(stderr, "exim: bad recipient address \"%s\": %s\n",
4702               string_printing(list[i]), errmess);
4703             exim_exit(EXIT_FAILURE);
4704             }
4705           else
4706             {
4707             error_block eblock;
4708             eblock.next = NULL;
4709             eblock.text1 = string_printing(list[i]);
4710             eblock.text2 = errmess;
4711             return
4712               moan_to_sender(ERRMESS_BADARGADDRESS, &eblock, NULL, stdin, TRUE)?
4713                 errors_sender_rc : EXIT_FAILURE;
4714             }
4715           }
4716
4717         receive_add_recipient(recipient, -1);
4718         s = ss;
4719         if (!finished)
4720           while (*(++s) != 0 && (*s == ',' || isspace(*s)));
4721         }
4722       }
4723
4724     /* Show the recipients when debugging */
4725
4726     DEBUG(D_receive)
4727       {
4728       int i;
4729       if (sender_address != NULL) debug_printf("Sender: %s\n", sender_address);
4730       if (recipients_list != NULL)
4731         {
4732         debug_printf("Recipients:\n");
4733         for (i = 0; i < recipients_count; i++)
4734           debug_printf("  %s\n", recipients_list[i].address);
4735         }
4736       }
4737
4738     /* Run the acl_not_smtp_start ACL if required. The result of the ACL is
4739     ignored; rejecting here would just add complication, and it can just as
4740     well be done later. Allow $recipients to be visible in the ACL. */
4741
4742     if (acl_not_smtp_start != NULL)
4743       {
4744       uschar *user_msg, *log_msg;
4745       enable_dollar_recipients = TRUE;
4746       (void)acl_check(ACL_WHERE_NOTSMTP_START, NULL, acl_not_smtp_start,
4747         &user_msg, &log_msg);
4748       enable_dollar_recipients = FALSE;
4749       }
4750
4751     /* Read the data for the message. If filter_test is not FTEST_NONE, this
4752     will just read the headers for the message, and not write anything onto the
4753     spool. */
4754
4755     message_ended = END_NOTENDED;
4756     more = receive_msg(extract_recipients);
4757
4758     /* more is always FALSE here (not SMTP message) when reading a message
4759     for real; when reading the headers of a message for filter testing,
4760     it is TRUE if the headers were terminated by '.' and FALSE otherwise. */
4761
4762     if (message_id[0] == 0) exim_exit(EXIT_FAILURE);
4763     }  /* Non-SMTP message reception */
4764
4765   /* If this is a filter testing run, there are headers in store, but
4766   no message on the spool. Run the filtering code in testing mode, setting
4767   the domain to the qualify domain and the local part to the current user,
4768   unless they have been set by options. The prefix and suffix are left unset
4769   unless specified. The the return path is set to to the sender unless it has
4770   already been set from a return-path header in the message. */
4771
4772   if (filter_test != FTEST_NONE)
4773     {
4774     deliver_domain = (ftest_domain != NULL)?
4775       ftest_domain : qualify_domain_recipient;
4776     deliver_domain_orig = deliver_domain;
4777     deliver_localpart = (ftest_localpart != NULL)?
4778       ftest_localpart : originator_login;
4779     deliver_localpart_orig = deliver_localpart;
4780     deliver_localpart_prefix = ftest_prefix;
4781     deliver_localpart_suffix = ftest_suffix;
4782     deliver_home = originator_home;
4783
4784     if (return_path == NULL)
4785       {
4786       printf("Return-path copied from sender\n");
4787       return_path = string_copy(sender_address);
4788       }
4789     else
4790       {
4791       printf("Return-path = %s\n", (return_path[0] == 0)? US"<>" : return_path);
4792       }
4793     printf("Sender      = %s\n", (sender_address[0] == 0)? US"<>" : sender_address);
4794
4795     receive_add_recipient(
4796       string_sprintf("%s%s%s@%s",
4797         (ftest_prefix == NULL)? US"" : ftest_prefix,
4798         deliver_localpart,
4799         (ftest_suffix == NULL)? US"" : ftest_suffix,
4800         deliver_domain), -1);
4801
4802     printf("Recipient   = %s\n", recipients_list[0].address);
4803     if (ftest_prefix != NULL) printf("Prefix    = %s\n", ftest_prefix);
4804     if (ftest_suffix != NULL) printf("Suffix    = %s\n", ftest_suffix);
4805
4806     (void)chdir("/");   /* Get away from wherever the user is running this from */
4807
4808     /* Now we run either a system filter test, or a user filter test, or both.
4809     In the latter case, headers added by the system filter will persist and be
4810     available to the user filter. We need to copy the filter variables
4811     explicitly. */
4812
4813     if ((filter_test & FTEST_SYSTEM) != 0)
4814       {
4815       if (!filter_runtest(filter_sfd, filter_test_sfile, TRUE, more))
4816         exim_exit(EXIT_FAILURE);
4817       }
4818
4819     memcpy(filter_sn, filter_n, sizeof(filter_sn));
4820
4821     if ((filter_test & FTEST_USER) != 0)
4822       {
4823       if (!filter_runtest(filter_ufd, filter_test_ufile, FALSE, more))
4824         exim_exit(EXIT_FAILURE);
4825       }
4826
4827     exim_exit(EXIT_SUCCESS);
4828     }
4829
4830   /* Else act on the result of message reception. We should not get here unless
4831   message_id[0] is non-zero. If queue_only is set, session_local_queue_only
4832   will be TRUE. If it is not, check on the number of messages received in this
4833   connection. */
4834
4835   if (!session_local_queue_only &&
4836       smtp_accept_queue_per_connection > 0 &&
4837       receive_messagecount > smtp_accept_queue_per_connection)
4838     {
4839     session_local_queue_only = TRUE;
4840     queue_only_reason = 2;
4841     }
4842
4843   /* Initialize local_queue_only from session_local_queue_only. If it is false,
4844   and queue_only_load is set, check that the load average is below it. If it is
4845   not, set local_queue_only TRUE. If queue_only_load_latch is true (the
4846   default), we put the whole session into queue_only mode. It then remains this
4847   way for any subsequent messages on the same SMTP connection. This is a
4848   deliberate choice; even though the load average may fall, it doesn't seem
4849   right to deliver later messages on the same call when not delivering earlier
4850   ones. However, there are odd cases where this is not wanted, so this can be
4851   changed by setting queue_only_load_latch false. */
4852
4853   local_queue_only = session_local_queue_only;
4854   if (!local_queue_only && queue_only_load >= 0)
4855     {
4856     local_queue_only = (load_average = OS_GETLOADAVG()) > queue_only_load;
4857     if (local_queue_only)
4858       {
4859       queue_only_reason = 3;
4860       if (queue_only_load_latch) session_local_queue_only = TRUE;
4861       }
4862     }
4863
4864   /* If running as an MUA wrapper, all queueing options and freezing options
4865   are ignored. */
4866
4867   if (mua_wrapper)
4868     local_queue_only = queue_only_policy = deliver_freeze = FALSE;
4869
4870   /* Log the queueing here, when it will get a message id attached, but
4871   not if queue_only is set (case 0). Case 1 doesn't happen here (too many
4872   connections). */
4873
4874   if (local_queue_only) switch(queue_only_reason)
4875     {
4876     case 2:
4877     log_write(L_delay_delivery,
4878               LOG_MAIN, "no immediate delivery: more than %d messages "
4879       "received in one connection", smtp_accept_queue_per_connection);
4880     break;
4881
4882     case 3:
4883     log_write(L_delay_delivery,
4884               LOG_MAIN, "no immediate delivery: load average %.2f",
4885               (double)load_average/1000.0);
4886     break;
4887     }
4888
4889   /* Else do the delivery unless the ACL or local_scan() called for queue only
4890   or froze the message. Always deliver in a separate process. A fork failure is
4891   not a disaster, as the delivery will eventually happen on a subsequent queue
4892   run. The search cache must be tidied before the fork, as the parent will
4893   do it before exiting. The child will trigger a lookup failure and
4894   thereby defer the delivery if it tries to use (for example) a cached ldap
4895   connection that the parent has called unbind on. */
4896
4897   else if (!queue_only_policy && !deliver_freeze)
4898     {
4899     pid_t pid;
4900     search_tidyup();
4901
4902     if ((pid = fork()) == 0)
4903       {
4904       int rc;
4905       close_unwanted();      /* Close unwanted file descriptors and TLS */
4906       exim_nullstd();        /* Ensure std{in,out,err} exist */
4907
4908       /* Re-exec Exim if we need to regain privilege (note: in mua_wrapper
4909       mode, deliver_drop_privilege is forced TRUE). */
4910
4911       if (geteuid() != root_uid && !deliver_drop_privilege && !unprivileged)
4912         {
4913         (void)child_exec_exim(CEE_EXEC_EXIT, FALSE, NULL, FALSE, 2, US"-Mc",
4914           message_id);
4915         /* Control does not return here. */
4916         }
4917
4918       /* No need to re-exec */
4919
4920       rc = deliver_message(message_id, FALSE, FALSE);
4921       search_tidyup();
4922       _exit((!mua_wrapper || rc == DELIVER_MUA_SUCCEEDED)?
4923         EXIT_SUCCESS : EXIT_FAILURE);
4924       }
4925
4926     if (pid < 0)
4927       {
4928       log_write(0, LOG_MAIN|LOG_PANIC, "failed to fork automatic delivery "
4929         "process: %s", strerror(errno));
4930       }
4931
4932     /* In the parent, wait if synchronous delivery is required. This will
4933     always be the case in MUA wrapper mode. */
4934
4935     else if (synchronous_delivery)
4936       {
4937       int status;
4938       while (wait(&status) != pid);
4939       if ((status & 0x00ff) != 0)
4940         log_write(0, LOG_MAIN|LOG_PANIC,
4941           "process %d crashed with signal %d while delivering %s",
4942           (int)pid, status & 0x00ff, message_id);
4943       if (mua_wrapper && (status & 0xffff) != 0) exim_exit(EXIT_FAILURE);
4944       }
4945     }
4946
4947   /* The loop will repeat if more is TRUE. If we do not know know that the OS
4948   automatically reaps children (see comments above the loop), clear away any
4949   finished subprocesses here, in case there are lots of messages coming in
4950   from the same source. */
4951
4952   #ifndef SIG_IGN_WORKS
4953   while (waitpid(-1, NULL, WNOHANG) > 0);
4954   #endif
4955   }
4956
4957 exim_exit(EXIT_SUCCESS);   /* Never returns */
4958 return 0;                  /* To stop compiler warning */
4959 }
4960
4961 /* End of exim.c */