Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > Email Client > View Code
main.c
Package: sendmail.8.10.0.Beta10.tar.Z　[view]
Upload User: xu_441
Upload Date: 2007-01-04
Package Size: 1640k
Code Size: 67k
Category:

Email Client

Development Platform:

Unix_Linux

main.c：Code Content
  1. /*
  2.  * Copyright (c) 1998, 1999 Sendmail, Inc. and its suppliers.
  3.  * All rights reserved.
  4.  * Copyright (c) 1983, 1995-1997 Eric P. Allman.  All rights reserved.
  5.  * Copyright (c) 1988, 1993
  6.  * The Regents of the University of California.  All rights reserved.
  7.  *
  8.  * By using this file, you agree to the terms and conditions set
  9.  * forth in the LICENSE file which can be found at the top level of
  10.  * the sendmail distribution.
  11.  *
  12.  */
  14. #ifndef lint
  15. static char copyright[] =
  16. "@(#) Copyright (c) 1998, 1999 Sendmail, Inc. and its suppliers.n
  17. All rights reserved.n
  18.      Copyright (c) 1983, 1995-1997 Eric P. Allman.  All rights reserved.n
  19.      Copyright (c) 1988, 1993n
  20. The Regents of the University of California.  All rights reserved.n";
  21. #endif /* ! lint */
  23. #ifndef lint
  24. static char id[] = "@(#)$Id: main.c,v 8.469 1999/11/24 08:44:36 gshapiro Exp $";
  25. #endif /* ! lint */
  27. #define _DEFINE
  29. #include <sendmail.h>
  30. #if NETINET || NETINET6
  31. # include <arpa/inet.h>
  32. #endif /* NETINET || NETINET6 */
  34. static void dump_class __P((STAB *, int));
  35. static void obsolete __P((char **));
  36. static void testmodeline __P((char *, ENVELOPE *));
  38. /*
  39. **  SENDMAIL -- Post mail to a set of destinations.
  40. **
  41. ** This is the basic mail router.  All user mail programs should
  42. ** call this routine to actually deliver mail.  Sendmail in
  43. ** turn calls a bunch of mail servers that do the real work of
  44. ** delivering the mail.
  45. **
  46. ** Sendmail is driven by settings read in from /etc/mail/sendmail.cf
  47. ** (read by readcf.c).
  48. **
  49. ** Usage:
  50. ** /usr/lib/sendmail [flags] addr ...
  51. **
  52. ** See the associated documentation for details.
  53. **
  54. ** Author:
  55. ** Eric Allman, UCB/INGRES (until 10/81).
  56. **      Britton-Lee, Inc., purveyors of fine
  57. ** database computers (11/81 - 10/88).
  58. **      International Computer Science Institute
  59. ** (11/88 - 9/89).
  60. **      UCB/Mammoth Project (10/89 - 7/95).
  61. **      InReference, Inc. (8/95 - 1/97).
  62. **      Sendmail, Inc. (1/98 - present).
  63. ** The support of the my employers is gratefully acknowledged.
  64. ** Few of them (Britton-Lee in particular) have had
  65. ** anything to gain from my involvement in this project.
  66. */
  69. int NextMailer; /* "free" index into Mailer struct */
  70. char *FullName; /* sender's full name */
  71. ENVELOPE BlankEnvelope; /* a "blank" envelope */
  72. static ENVELOPE MainEnvelope; /* the envelope around the basic letter */
  73. ADDRESS NullAddress = /* a null address */
  74. { "", "", NULL, "" };
  75. char *CommandLineArgs; /* command line args for pid file */
  76. bool Warn_Q_option = FALSE; /* warn about Q option use */
  77. char **SaveArgv; /* argument vector for re-execing */
  78. static int MissingFds = 0; /* bit map of fds missing on startup */
  80. #ifdef NGROUPS_MAX
  81. GIDSET_T InitialGidSet[NGROUPS_MAX];
  82. #endif /* NGROUPS_MAX */
  84. #if DAEMON && !SMTP
  85. ERROR %%%%   Cannot have DAEMON mode without SMTP   %%%% ERROR
  86. #endif /* DAEMON && !SMTP */
  87. #if SMTP && !QUEUE
  88. ERROR %%%%   Cannot have SMTP mode without QUEUE   %%%% ERROR
  89. #endif /* SMTP && !QUEUE */
  91. #define MAXCONFIGLEVEL 9 /* highest config version level known */
  93. /* Flags for submitmode */
  94. #define SUBMIT_UNKNOWN 0x0000 /* unknown agent type */
  95. #define SUBMIT_MTA 0x0001 /* act like a message transfer agent */
  96. #define SUBMIT_MSA 0x0002 /* act like a message submission agent */
  98. #if SASL
  99. static sasl_callback_t srvcallbacks[] = {
  100. { SASL_CB_VERIFYFILE, &safesaslfile, NULL },
  101. { SASL_CB_PROXY_POLICY, &proxy_policy, NULL },
  102. { SASL_CB_LIST_END, NULL, NULL }
  103. };
  104. #endif /* SASL */
  106. int
  107. main(argc, argv, envp)
  108. int argc;
  109. char **argv;
  110. char **envp;
  111. {
  112. register char *p;
  113. char **av;
  114. extern char Version[];
  115. char *ep, *from;
  116. STAB *st;
  117. register int i;
  118. int j;
  119. int submitmode = SUBMIT_UNKNOWN;
  120. bool safecf = TRUE;
  121. BITMAP256 *p_flags = NULL; /* daemon flags */
  122. bool warn_C_flag = FALSE;
  123. bool auth = TRUE; /* whether to set e_auth_param */
  124. char warn_f_flag = '';
  125. bool run_in_foreground = FALSE; /* -bD mode */
  126. static bool reenter = FALSE;
  127. struct passwd *pw;
  128. struct hostent *hp;
  129. char *nullserver = NULL;
  130. char *authinfo = NULL;
  131. char *sysloglabel = NULL; /* label for syslog */
  132. bool forged;
  133. struct stat traf_st; /* for TrafficLog FIFO check */
  134. char jbuf[MAXHOSTNAMELEN]; /* holds MyHostName */
  135. static char rnamebuf[MAXNAME]; /* holds RealUserName */
  136. char *emptyenviron[1];
  137. QUEUE_CHAR *new;
  138. extern int DtableSize;
  139. extern int optind;
  140. extern int opterr;
  141. extern char *optarg;
  142. extern char **environ;
  144. /*
  145. **  Check to see if we reentered.
  146. ** This would normally happen if e_putheader or e_putbody
  147. ** were NULL when invoked.
  148. */
  150. if (reenter)
  151. {
  152. syserr("main: reentered!");
  153. abort();
  154. }
  155. reenter = TRUE;
  157. /* avoid null pointer dereferences */
  158. TermEscape.te_rv_on = TermEscape.te_rv_off = "";
  160. /* do machine-dependent initializations */
  161. init_md(argc, argv);
  163. /* in 4.4BSD, the table can be huge; impose a reasonable limit */
  164. DtableSize = getdtsize();
  165. if (DtableSize > 256)
  166. DtableSize = 256;
  168. /*
  169. **  Be sure we have enough file descriptors.
  170. ** But also be sure that 0, 1, & 2 are open.
  171. */
  173. fill_fd(STDIN_FILENO, NULL);
  174. fill_fd(STDOUT_FILENO, NULL);
  175. fill_fd(STDERR_FILENO, NULL);
  177. i = DtableSize;
  178. while (--i > 0)
  179. {
  180. if (i != STDIN_FILENO && i != STDOUT_FILENO && i != STDERR_FILENO)
  181. (void) close(i);
  182. }
  183. errno = 0;
  185. #if LOG
  186. # ifdef LOG_MAIL
  187. openlog("sendmail", LOG_PID, LOG_MAIL);
  188. # else /* LOG_MAIL */
  189. openlog("sendmail", LOG_PID);
  190. # endif /* LOG_MAIL */
  191. #endif /* LOG */
  193. if (MissingFds != 0)
  194. {
  195. char mbuf[MAXLINE];
  197. mbuf[0] = '';
  198. if (bitset(1 << STDIN_FILENO, MissingFds))
  199. (void) strlcat(mbuf, ", stdin", sizeof mbuf);
  200. if (bitset(1 << STDOUT_FILENO, MissingFds))
  201. (void) strlcat(mbuf, ", stdout", sizeof mbuf);
  202. if (bitset(1 << STDERR_FILENO, MissingFds))
  203. (void) strlcat(mbuf, ", stderr", sizeof mbuf);
  204. syserr("File descriptors missing on startup: %s", &mbuf[2]);
  205. }
  207. /* reset status from syserr() calls for missing file descriptors */
  208. Errors = 0;
  209. ExitStat = EX_OK;
  211. #if XDEBUG
  212. checkfd012("after openlog");
  213. #endif /* XDEBUG */
  215. /*
  216. **  Seed the random number generator.
  217. **  Used for queue file names, picking a queue directory, and
  218. **  MX randomization.
  219. */
  221. seed_random();
  223. tTsetup(tTdvect, sizeof tTdvect, "0-99.1");
  225. #ifdef NGROUPS_MAX
  226. /* save initial group set for future checks */
  227. i = getgroups(NGROUPS_MAX, InitialGidSet);
  228. if (i == 0)
  229. InitialGidSet[0] = (GID_T) -1;
  230. while (i < NGROUPS_MAX)
  231. InitialGidSet[i++] = InitialGidSet[0];
  232. #endif /* NGROUPS_MAX */
  234. /* drop group id privileges (RunAsUser not yet set) */
  235. (void) drop_privileges(FALSE);
  237. #ifdef SIGUSR1
  238. /* arrange to dump state on user-1 signal */
  239. (void) setsignal(SIGUSR1, sigusr1);
  240. #endif /* SIGUSR1 */
  242. /* initialize for setproctitle */
  243. initsetproctitle(argc, argv, envp);
  245. /* Handle any non-getoptable constructions. */
  246. obsolete(argv);
  248. /*
  249. **  Do a quick prescan of the argument list.
  250. */
  252. #if defined(__osf__) || defined(_AIX3)
  253. # define OPTIONS "B:b:C:cd:e:F:f:Gh:IiL:M:mN:nO:o:p:q:R:r:sTtUV:vX:x"
  254. #endif /* defined(__osf__) || defined(_AIX3) */
  255. #if defined(sony_news)
  256. # define OPTIONS "B:b:C:cd:E:e:F:f:Gh:IiJ:L:M:mN:nO:o:p:q:R:r:sTtUV:vX:"
  257. #endif /* defined(sony_news) */
  258. #ifndef OPTIONS
  259. # define OPTIONS "B:b:C:cd:e:F:f:Gh:IiL:M:mN:nO:o:p:q:R:r:sTtUV:vX:"
  260. #endif /* ! OPTIONS */
  261. opterr = 0;
  262. while ((j = getopt(argc, argv, OPTIONS)) != -1)
  263. {
  264. switch (j)
  265. {
  266.   case 'd':
  267. /* hack attack -- see if should use ANSI mode */
  268. if (strcmp(optarg, "ANSI") == 0)
  269. {
  270. TermEscape.te_rv_on = "33[7m";
  271. TermEscape.te_rv_off = "33[0m";
  272. break;
  273. }
  274. tTflag(optarg);
  275. setbuf(stdout, (char *) NULL);
  276. break;
  278.   case 'L':
  279. sysloglabel = optarg;
  280. break;
  281. }
  282. }
  283. opterr = 1;
  285. if (sysloglabel != NULL)
  286. {
  287. if (strlen(sysloglabel) > 24)
  288. sysloglabel[24] = '';
  289. #if LOG
  290. closelog();
  291. # ifdef LOG_MAIL
  292. openlog(sysloglabel, LOG_PID, LOG_MAIL);
  293. # else /* LOG_MAIL */
  294. openlog(sysloglabel, LOG_PID);
  295. # endif /* LOG_MAIL */
  296. #endif /* LOG */
  297. }
  299. /* set up the blank envelope */
  300. BlankEnvelope.e_puthdr = putheader;
  301. BlankEnvelope.e_putbody = putbody;
  302. BlankEnvelope.e_xfp = NULL;
  303. STRUCTCOPY(NullAddress, BlankEnvelope.e_from);
  304. CurEnv = &BlankEnvelope;
  305. STRUCTCOPY(NullAddress, MainEnvelope.e_from);
  307. /*
  308. **  Set default values for variables.
  309. ** These cannot be in initialized data space.
  310. */
  312. setdefaults(&BlankEnvelope);
  314. RealUid = getuid();
  315. RealGid = getgid();
  317. pw = sm_getpwuid(RealUid);
  318. if (pw != NULL)
  319. (void) snprintf(rnamebuf, sizeof rnamebuf, "%s", pw->pw_name);
  320. else
  321. (void) snprintf(rnamebuf, sizeof rnamebuf, "Unknown UID %d",
  322. (int) RealUid);
  323. RealUserName = rnamebuf;
  325. if (tTd(0, 101))
  326. {
  327. dprintf("Version %sn", Version);
  328. finis(FALSE, EX_OK);
  329. }
  331. /*
  332. **  if running non-setuid binary as non-root, pretend
  333. **  we are the RunAsUid
  334. */
  335. if (RealUid != 0 && geteuid() == RealUid)
  336. {
  337. if (tTd(47, 1))
  338. dprintf("Non-setuid binary: RunAsUid = RealUid = %dn",
  339. (int)RealUid);
  340. RunAsUid = RealUid;
  341. }
  342. else if (geteuid() != 0)
  343. RunAsUid = geteuid();
  345. if (RealUid != 0 && getegid() == RealGid)
  346. RunAsGid = RealGid;
  348. if (tTd(47, 5))
  349. {
  350. dprintf("main: e/ruid = %d/%d e/rgid = %d/%dn",
  351. (int)geteuid(), (int)getuid(),
  352. (int)getegid(), (int)getgid());
  353. dprintf("main: RunAsUser = %d:%dn",
  354. (int)RunAsUid, (int)RunAsGid);
  355. }
  357. /* save command line arguments */
  358. j = 0;
  359. for (av = argv; *av != NULL; )
  360. j += strlen(*av++) + 1;
  361. SaveArgv = (char **) xalloc(sizeof (char *) * (argc + 1));
  362. CommandLineArgs = xalloc(j);
  363. p = CommandLineArgs;
  364. for (av = argv, i = 0; *av != NULL; )
  365. {
  366. int h;
  368. SaveArgv[i++] = newstr(*av);
  369. if (av != argv)
  370. *p++ = ' ';
  371. (void) strlcpy(p, *av++, j);
  372. h = strlen(p);
  373. p += h;
  374. j -= h + 1;
  375. }
  376. SaveArgv[i] = NULL;
  378. if (tTd(0, 1))
  379. {
  380. int ll;
  381. extern char *CompileOptions[];
  383. dprintf("Version %sn Compiled with:", Version);
  384. av = CompileOptions;
  385. ll = 7;
  386. while (*av != NULL)
  387. {
  388. if (ll + strlen(*av) > 63)
  389. {
  390. dprintf("n");
  391. ll = 0;
  392. }
  393. if (ll == 0)
  394. dprintf("tt");
  395. else
  396. dprintf(" ");
  397. dprintf("%s", *av);
  398. ll += strlen(*av++) + 1;
  399. }
  400. dprintf("n");
  401. }
  402. if (tTd(0, 10))
  403. {
  404. int ll;
  405. extern char *OsCompileOptions[];
  407. dprintf("    OS Defines:");
  408. av = OsCompileOptions;
  409. ll = 7;
  410. while (*av != NULL)
  411. {
  412. if (ll + strlen(*av) > 63)
  413. {
  414. dprintf("n");
  415. ll = 0;
  416. }
  417. if (ll == 0)
  418. dprintf("tt");
  419. else
  420. dprintf(" ");
  421. dprintf("%s", *av);
  422. ll += strlen(*av++) + 1;
  423. }
  424. dprintf("n");
  425. #ifdef _PATH_UNIX
  426. dprintf("Kernel symbols:t%sn", _PATH_UNIX);
  427. #endif /* _PATH_UNIX */
  428. dprintf(" Def Conf file:t%sn", getcfname());
  429. dprintf("  Def Pid file:t%sn", PidFile);
  430. }
  432. InChannel = stdin;
  433. OutChannel = stdout;
  435. /* clear sendmail's environment */
  436. ExternalEnviron = environ;
  437. emptyenviron[0] = NULL;
  438. environ = emptyenviron;
  440. /*
  441. **  restore any original TZ setting until TimeZoneSpec has been
  442. **  determined - or early log messages may get bogus time stamps
  443. */
  444. if ((p = getextenv("TZ")) != NULL)
  445. {
  446. char *tz;
  447. int tzlen;
  449. tzlen = strlen(p) + 4;
  450. tz = xalloc(tzlen);
  451. (void) snprintf(tz, tzlen, "TZ=%s", p);
  452. (void) putenv(tz);
  453. }
  455. /* prime the child environment */
  456. setuserenv("AGENT", "sendmail");
  458. if (setsignal(SIGINT, SIG_IGN) != SIG_IGN)
  459. (void) setsignal(SIGINT, intsig);
  460. (void) setsignal(SIGTERM, intsig);
  461. (void) setsignal(SIGPIPE, SIG_IGN);
  462. OldUmask = umask(022);
  463. OpMode = MD_DELIVER;
  464. FullName = getextenv("NAME");
  466. /*
  467. **  Initialize name server if it is going to be used.
  468. */
  470. #if NAMED_BIND
  471. if (!bitset(RES_INIT, _res.options))
  472. (void) res_init();
  473. if (tTd(8, 8))
  474. _res.options |= RES_DEBUG;
  475. else
  476. _res.options &= ~RES_DEBUG;
  477. # ifdef RES_NOALIASES
  478. _res.options |= RES_NOALIASES;
  479. # endif /* RES_NOALIASES */
  480. TimeOuts.res_retry[RES_TO_DEFAULT] = _res.retry;
  481. TimeOuts.res_retry[RES_TO_FIRST] = _res.retry;
  482. TimeOuts.res_retry[RES_TO_NORMAL] = _res.retry;
  483. TimeOuts.res_retrans[RES_TO_DEFAULT] = _res.retrans;
  484. TimeOuts.res_retrans[RES_TO_FIRST] = _res.retrans;
  485. TimeOuts.res_retrans[RES_TO_NORMAL] = _res.retrans;
  486. #endif /* NAMED_BIND */
  488. errno = 0;
  489. from = NULL;
  491. /* initialize some macros, etc. */
  492. initmacros(CurEnv);
  493. init_vendor_macros(CurEnv);
  495. /* version */
  496. define('v', Version, CurEnv);
  498. /* hostname */
  499. hp = myhostname(jbuf, sizeof jbuf);
  500. if (jbuf[0] != '')
  501. {
  502. struct utsname utsname;
  504. if (tTd(0, 4))
  505. dprintf("canonical name: %sn", jbuf);
  506. define('w', newstr(jbuf), CurEnv); /* must be new string */
  507. define('j', newstr(jbuf), CurEnv);
  508. setclass('w', jbuf);
  510. p = strchr(jbuf, '.');
  511. if (p != NULL)
  512. {
  513. if (p[1] != '')
  514. {
  515. define('m', newstr(&p[1]), CurEnv);
  516. }
  517. while (p != NULL && strchr(&p[1], '.') != NULL)
  518. {
  519. *p = '';
  520. if (tTd(0, 4))
  521. dprintf("ta.k.a.: %sn", jbuf);
  522. setclass('w', jbuf);
  523. *p++ = '.';
  524. p = strchr(p, '.');
  525. }
  526. }
  528. if (uname(&utsname) >= 0)
  529. p = utsname.nodename;
  530. else
  531. {
  532. if (tTd(0, 22))
  533. dprintf("uname failed (%s)n",
  534. errstring(errno));
  535. makelower(jbuf);
  536. p = jbuf;
  537. }
  538. if (tTd(0, 4))
  539. dprintf(" UUCP nodename: %sn", p);
  540. p = newstr(p);
  541. define('k', p, CurEnv);
  542. setclass('k', p);
  543. setclass('w', p);
  544. }
  545. if (hp != NULL)
  546. {
  547. for (av = hp->h_aliases; av != NULL && *av != NULL; av++)
  548. {
  549. if (tTd(0, 4))
  550. dprintf("ta.k.a.: %sn", *av);
  551. setclass('w', *av);
  552. }
  553. #if NETINET || NETINET6
  554. for (i = 0; hp->h_addr_list[i] != NULL; i++)
  555. {
  556. # if NETINET6
  557. char *addr;
  558. char buf6[INET6_ADDRSTRLEN];
  559. struct in6_addr ia6;
  560. # endif /* NETINET6 */
  561. # if NETINET
  562. struct in_addr ia;
  563. # endif /* NETINET */
  564. char ipbuf[103];
  566. ipbuf[0] = '';
  567. switch (hp->h_addrtype)
  568. {
  569. # if NETINET
  570.   case AF_INET:
  571. if (hp->h_length != INADDRSZ)
  572. break;
  574. memmove(&ia, hp->h_addr_list[i], INADDRSZ);
  575. (void) snprintf(ipbuf,  sizeof ipbuf,
  576. "[%.100s]", inet_ntoa(ia));
  577. break;
  578. # endif /* NETINET */
  580. # if NETINET6
  581.   case AF_INET6:
  582. if (hp->h_length != IN6ADDRSZ)
  583. break;
  585. memmove(&ia6, hp->h_addr_list[i], IN6ADDRSZ);
  586. addr = anynet_ntop(&ia6, buf6, sizeof buf6);
  587. if (addr != NULL)
  588. (void) snprintf(ipbuf, sizeof ipbuf,
  589. "[%.100s]", addr);
  590. break;
  591. # endif /* NETINET6 */
  592. }
  593. if (ipbuf[0] == '')
  594. break;
  596. if (tTd(0, 4))
  597. dprintf("ta.k.a.: %sn", ipbuf);
  598. setclass('w', ipbuf);
  599. }
  600. #endif /* NETINET || NETINET6 */
  601. }
  603. /* current time */
  604. define('b', arpadate((char *) NULL), CurEnv);
  605. /* current load average */
  606. CurrentLA = sm_getla(CurEnv);
  608. QueueLimitRecipient = (QUEUE_CHAR *) NULL;
  609. QueueLimitSender = (QUEUE_CHAR *) NULL;
  610. QueueLimitId = (QUEUE_CHAR *) NULL;
  612. /*
  613. **  Crack argv.
  614. */
  616. av = argv;
  617. p = strrchr(*av, '/');
  618. if (p++ == NULL)
  619. p = *av;
  620. if (strcmp(p, "newaliases") == 0)
  621. OpMode = MD_INITALIAS;
  622. else if (strcmp(p, "mailq") == 0)
  623. OpMode = MD_PRINT;
  624. else if (strcmp(p, "smtpd") == 0)
  625. OpMode = MD_DAEMON;
  626. else if (strcmp(p, "hoststat") == 0)
  627. OpMode = MD_HOSTSTAT;
  628. else if (strcmp(p, "purgestat") == 0)
  629. OpMode = MD_PURGESTAT;
  631. optind = 1;
  632. while ((j = getopt(argc, argv, OPTIONS)) != -1)
  633. {
  634. switch (j)
  635. {
  636.   case 'b': /* operations mode */
  637. switch (j = *optarg)
  638. {
  639.   case MD_DAEMON:
  640.   case MD_FGDAEMON:
  641. #if !DAEMON
  642. usrerr("Daemon mode not implemented");
  643. ExitStat = EX_USAGE;
  644. break;
  645. #endif /* !DAEMON */
  646.   case MD_SMTP:
  647. #if !SMTP
  648. usrerr("I don't speak SMTP");
  649. ExitStat = EX_USAGE;
  650. break;
  651. #endif /* !SMTP */
  653.   case MD_INITALIAS:
  654.   case MD_DELIVER:
  655.   case MD_VERIFY:
  656.   case MD_TEST:
  657.   case MD_PRINT:
  658.   case MD_HOSTSTAT:
  659.   case MD_PURGESTAT:
  660.   case MD_ARPAFTP:
  661. OpMode = j;
  662. break;
  664.   case MD_FREEZE:
  665. usrerr("Frozen configurations unsupported");
  666. ExitStat = EX_USAGE;
  667. break;
  669.   default:
  670. usrerr("Invalid operation mode %c", j);
  671. ExitStat = EX_USAGE;
  672. break;
  673. }
  674. break;
  676.   case 'B': /* body type */
  677. CurEnv->e_bodytype = optarg;
  678. break;
  680.   case 'C': /* select configuration file (already done) */
  681. if (RealUid != 0)
  682. warn_C_flag = TRUE;
  683. ConfFile = optarg;
  684. (void) drop_privileges(TRUE);
  685. safecf = FALSE;
  686. break;
  688.   case 'd': /* debugging -- already done */
  689. break;
  691.   case 'f': /* from address */
  692.   case 'r': /* obsolete -f flag */
  693. if (from != NULL)
  694. {
  695. usrerr("More than one "from" person");
  696. ExitStat = EX_USAGE;
  697. break;
  698. }
  699. from = newstr(denlstring(optarg, TRUE, TRUE));
  700. if (strcmp(RealUserName, from) != 0)
  701. warn_f_flag = j;
  702. break;
  704.   case 'F': /* set full name */
  705. FullName = newstr(optarg);
  706. break;
  708.   case 'G': /* relay (gateway) submission */
  709. submitmode |= SUBMIT_MTA;
  710. break;
  712.   case 'h': /* hop count */
  713. CurEnv->e_hopcount = strtol(optarg, &ep, 10);
  714. if (*ep)
  715. {
  716. usrerr("Bad hop count (%s)", optarg);
  717. ExitStat = EX_USAGE;
  718. }
  719. break;
  721.   case 'L': /* program label */
  722. /* already set */
  723. break;
  725.   case 'n': /* don't alias */
  726. NoAlias = TRUE;
  727. break;
  729.   case 'N': /* delivery status notifications */
  730. DefaultNotify |= QHASNOTIFY;
  731. if (strcasecmp(optarg, "never") == 0)
  732. break;
  733. for (p = optarg; p != NULL; optarg = p)
  734. {
  735. p = strchr(p, ',');
  736. if (p != NULL)
  737. *p++ = '';
  738. if (strcasecmp(optarg, "success") == 0)
  739. DefaultNotify |= QPINGONSUCCESS;
  740. else if (strcasecmp(optarg, "failure") == 0)
  741. DefaultNotify |= QPINGONFAILURE;
  742. else if (strcasecmp(optarg, "delay") == 0)
  743. DefaultNotify |= QPINGONDELAY;
  744. else
  745. {
  746. usrerr("Invalid -N argument");
  747. ExitStat = EX_USAGE;
  748. }
  749. }
  750. break;
  752.   case 'o': /* set option */
  753. setoption(*optarg, optarg + 1, FALSE, TRUE, CurEnv);
  754. break;
  756.   case 'O': /* set option (long form) */
  757. setoption(' ', optarg, FALSE, TRUE, CurEnv);
  758. break;
  760.   case 'p': /* set protocol */
  761. p = strchr(optarg, ':');
  762. if (p != NULL)
  763. {
  764. *p++ = '';
  765. if (*p != '')
  766. {
  767. ep = xalloc(strlen(p) + 1);
  768. cleanstrcpy(ep, p, MAXNAME);
  769. define('s', ep, CurEnv);
  770. }
  771. }
  772. if (*optarg != '')
  773. {
  774. ep = xalloc(strlen(optarg) + 1);
  775. cleanstrcpy(ep, optarg, MAXNAME);
  776. define('r', ep, CurEnv);
  777. }
  778. break;
  780.   case 'q': /* run queue files at intervals */
  781. #if QUEUE
  782. /* sanity check */
  783. if (OpMode != MD_DELIVER &&
  784.     OpMode != MD_DAEMON &&
  785.     OpMode != MD_FGDAEMON &&
  786.     OpMode != MD_PRINT &&
  787.     OpMode != MD_QUEUERUN)
  788. {
  789. usrerr("Can not use -q with -b%c", OpMode);
  790. ExitStat = EX_USAGE;
  791. break;
  792. }
  794. /* don't override -bd, -bD or -bp */
  795. if (OpMode == MD_DELIVER)
  796. OpMode = MD_QUEUERUN;
  798. FullName = NULL;
  800. switch (optarg[0])
  801. {
  802.   case 'I':
  803. new = (QUEUE_CHAR *) xalloc(sizeof *new);
  804. new->queue_match = newstr(&optarg[1]);
  805. new->queue_next = QueueLimitId;
  806. QueueLimitId = new;
  807. break;
  809.   case 'R':
  810. new = (QUEUE_CHAR *) xalloc(sizeof *new);
  811. new->queue_match = newstr(&optarg[1]);
  812. new->queue_next = QueueLimitRecipient;
  813. QueueLimitRecipient = new;
  814. break;
  816.   case 'S':
  817. new = (QUEUE_CHAR *) xalloc(sizeof *new);
  818. new->queue_match = newstr(&optarg[1]);
  819. new->queue_next = QueueLimitSender;
  820. QueueLimitSender = new;
  821. break;
  823.   default:
  824. i = Errors;
  825. QueueIntvl = convtime(optarg, 'm');
  827. /* check for bad conversion */
  828. if (i < Errors)
  829. ExitStat = EX_USAGE;
  830. break;
  831. }
  832. #else /* QUEUE */
  833. usrerr("I don't know about queues");
  834. ExitStat = EX_USAGE;
  835. #endif /* QUEUE */
  836. break;
  838.   case 'R': /* DSN RET: what to return */
  839. if (bitset(EF_RET_PARAM, CurEnv->e_flags))
  840. {
  841. usrerr("Duplicate -R flag");
  842. ExitStat = EX_USAGE;
  843. break;
  844. }
  845. CurEnv->e_flags |= EF_RET_PARAM;
  846. if (strcasecmp(optarg, "hdrs") == 0)
  847. CurEnv->e_flags |= EF_NO_BODY_RETN;
  848. else if (strcasecmp(optarg, "full") != 0)
  849. {
  850. usrerr("Invalid -R value");
  851. ExitStat = EX_USAGE;
  852. }
  853. define(macid("{dsn_ret}", NULL),
  854.        newstr(optarg), CurEnv);
  855. break;
  857.   case 't': /* read recipients from message */
  858. GrabTo = TRUE;
  859. break;
  861.   case 'U': /* initial (user) submission */
  862. submitmode |= SUBMIT_MSA;
  863. break;
  865.   case 'V': /* DSN ENVID: set "original" envelope id */
  866. if (!xtextok(optarg))
  867. {
  868. usrerr("Invalid syntax in -V flag");
  869. ExitStat = EX_USAGE;
  870. }
  871. else
  872. {
  873. CurEnv->e_envid = newstr(optarg);
  874. define(macid("{dsn_envid}", NULL),
  875.        newstr(optarg), CurEnv);
  876. }
  877. break;
  879.   case 'X': /* traffic log file */
  880. (void) drop_privileges(TRUE);
  881. if (stat(optarg, &traf_st) == 0 &&
  882.     S_ISFIFO(traf_st.st_mode))
  883. TrafficLogFile = fopen(optarg, "w");
  884. else
  885. TrafficLogFile = fopen(optarg, "a");
  886. if (TrafficLogFile == NULL)
  887. {
  888. syserr("cannot open %s", optarg);
  889. ExitStat = EX_CANTCREAT;
  890. break;
  891. }
  892. #if HASSETVBUF
  893. (void) setvbuf(TrafficLogFile, NULL, _IOLBF, 0);
  894. #else /* HASSETVBUF */
  895. (void) setlinebuf(TrafficLogFile);
  896. #endif /* HASSETVBUF */
  897. break;
  899. /* compatibility flags */
  900.   case 'c': /* connect to non-local mailers */
  901.   case 'i': /* don't let dot stop me */
  902.   case 'm': /* send to me too */
  903.   case 'T': /* set timeout interval */
  904.   case 'v': /* give blow-by-blow description */
  905. setoption(j, "T", FALSE, TRUE, CurEnv);
  906. break;
  908.   case 'e': /* error message disposition */
  909.   case 'M': /* define macro */
  910. setoption(j, optarg, FALSE, TRUE, CurEnv);
  911. break;
  913.   case 's': /* save From lines in headers */
  914. setoption('f', "T", FALSE, TRUE, CurEnv);
  915. break;
  917. #ifdef DBM
  918.   case 'I': /* initialize alias DBM file */
  919. OpMode = MD_INITALIAS;
  920. break;
  921. #endif /* DBM */
  923. #if defined(__osf__) || defined(_AIX3)
  924.   case 'x': /* random flag that OSF/1 & AIX mailx passes */
  925. break;
  926. #endif /* defined(__osf__) || defined(_AIX3) */
  927. #if defined(sony_news)
  928.   case 'E':
  929.   case 'J': /* ignore flags for Japanese code conversion
  930.    implemented on Sony NEWS */
  931. break;
  932. #endif /* defined(sony_news) */
  934.   default:
  935. finis(TRUE, EX_USAGE);
  936. break;
  937. }
  938. }
  939. av += optind;
  941. if (bitset(SUBMIT_MTA, submitmode) &&
  942.     bitset(SUBMIT_MSA, submitmode))
  943. {
  944. /* sanity check */
  945. usrerr("Cannot use both -G and -U together");
  946. }
  947. else if (bitset(SUBMIT_MTA, submitmode))
  948. define(macid("{daemon_flags}", NULL), "CCf", CurEnv);
  949. else if (bitset(SUBMIT_MSA, submitmode))
  950. define(macid("{daemon_flags}", NULL), "cu", CurEnv);
  951. else
  952. {
  953. #if _FFR_DEFAULT_SUBMIT_TO_MSA
  954. define(macid("{daemon_flags}", NULL), "cu", CurEnv);
  955. #else /* _FFR_DEFAULT_SUBMIT_TO_MSA */
  956. /* EMPTY */
  957. #endif /* _FFR_DEFAULT_SUBMIT_TO_MSA */
  958. }
  960. /*
  961. **  Do basic initialization.
  962. ** Read system control file.
  963. ** Extract special fields for local use.
  964. */
  966. /* set up ${opMode} for use in config file */
  967. {
  968. char mbuf[2];
  970. mbuf[0] = OpMode;
  971. mbuf[1] = '';
  972. define(MID_OPMODE, newstr(mbuf), CurEnv);
  973. }
  975. #if XDEBUG
  976. checkfd012("before readcf");
  977. #endif /* XDEBUG */
  978. vendor_pre_defaults(CurEnv);
  979. readcf(getcfname(), safecf, CurEnv);
  980. ConfigFileRead = TRUE;
  981. vendor_post_defaults(CurEnv);
  983. /* Enforce use of local time (null string overrides this) */
  984. if (TimeZoneSpec == NULL)
  985. unsetenv("TZ");
  986. else if (TimeZoneSpec[0] != '')
  987. setuserenv("TZ", TimeZoneSpec);
  988. else
  989. setuserenv("TZ", NULL);
  990. tzset();
  992. /* avoid denial-of-service attacks */
  993. resetlimits();
  995. if (OpMode != MD_DAEMON && OpMode != MD_FGDAEMON)
  996. {
  997. /* drop privileges -- daemon mode done after socket/bind */
  998. (void) drop_privileges(FALSE);
  999. }
  1001. #if NAMED_BIND
  1002. _res.retry = TimeOuts.res_retry[RES_TO_DEFAULT];
  1003. _res.retrans = TimeOuts.res_retrans[RES_TO_DEFAULT];
  1004. #endif /* NAMED_BIND */
  1006. /*
  1007. **  Find our real host name for future logging.
  1008. */
  1010. authinfo = getauthinfo(STDIN_FILENO, &forged);
  1011. define('_', authinfo, CurEnv);
  1013. /* suppress error printing if errors mailed back or whatever */
  1014. if (CurEnv->e_errormode != EM_PRINT)
  1015. HoldErrs = TRUE;
  1017. /* set up the $=m class now, after .cf has a chance to redefine $m */
  1018. expand("201m", jbuf, sizeof jbuf, CurEnv);
  1019. setclass('m', jbuf);
  1021. /* probe interfaces and locate any additional names */
  1022. if (!DontProbeInterfaces)
  1023. load_if_names();
  1025. if (tTd(0, 1))
  1026. {
  1027. dprintf("n============ SYSTEM IDENTITY (after readcf) ============");
  1028. dprintf("n      (short domain name) $w = ");
  1029. xputs(macvalue('w', CurEnv));
  1030. dprintf("n  (canonical domain name) $j = ");
  1031. xputs(macvalue('j', CurEnv));
  1032. dprintf("n         (subdomain name) $m = ");
  1033. xputs(macvalue('m', CurEnv));
  1034. dprintf("n              (node name) $k = ");
  1035. xputs(macvalue('k', CurEnv));
  1036. dprintf("n========================================================nn");
  1037. }
  1039. /*
  1040. **  Do more command line checking -- these are things that
  1041. **  have to modify the results of reading the config file.
  1042. */
  1044. /* process authorization warnings from command line */
  1045. if (warn_C_flag)
  1046. auth_warning(CurEnv, "Processed by %s with -C %s",
  1047. RealUserName, ConfFile);
  1048. if (Warn_Q_option && !wordinclass(RealUserName, 't'))
  1049. auth_warning(CurEnv, "Processed from queue %s", QueueDir);
  1051. /* check body type for legality */
  1052. if (CurEnv->e_bodytype == NULL)
  1053. /* EMPTY */
  1054. /* nothing */ ;
  1055. else if (strcasecmp(CurEnv->e_bodytype, "7BIT") == 0)
  1056. SevenBitInput = TRUE;
  1057. else if (strcasecmp(CurEnv->e_bodytype, "8BITMIME") == 0)
  1058. SevenBitInput = FALSE;
  1059. else
  1060. {
  1061. usrerr("Illegal body type %s", CurEnv->e_bodytype);
  1062. CurEnv->e_bodytype = NULL;
  1063. }
  1065. /* tweak default DSN notifications */
  1066. if (DefaultNotify == 0)
  1067. DefaultNotify = QPINGONFAILURE|QPINGONDELAY;
  1069. /* be sure we don't pick up bogus HOSTALIASES environment variable */
  1070. if (OpMode == MD_QUEUERUN && RealUid != 0)
  1071. (void) unsetenv("HOSTALIASES");
  1073. /* check for sane configuration level */
  1074. if (ConfigLevel > MAXCONFIGLEVEL)
  1075. {
  1076. syserr("Warning: .cf version level (%d) exceeds sendmail version %s functionality (%d)",
  1077. ConfigLevel, Version, MAXCONFIGLEVEL);
  1078. }
  1080. /* need MCI cache to have persistence */
  1081. if (HostStatDir != NULL && MaxMciCache == 0)
  1082. {
  1083. HostStatDir = NULL;
  1084. printf("Warning: HostStatusDirectory disabled with ConnectionCacheSize = 0n");
  1085. }
  1087. /* need HostStatusDir in order to have SingleThreadDelivery */
  1088. if (SingleThreadDelivery && HostStatDir == NULL)
  1089. {
  1090. SingleThreadDelivery = FALSE;
  1091. printf("Warning: HostStatusDirectory required for SingleThreadDeliveryn");
  1092. }
  1094. /* check for permissions */
  1095. if ((OpMode == MD_DAEMON ||
  1096.      OpMode == MD_FGDAEMON ||
  1097.      OpMode == MD_PURGESTAT) &&
  1098.     RealUid != 0 &&
  1099.     RealUid != TrustedUid)
  1100. {
  1101. if (LogLevel > 1)
  1102. sm_syslog(LOG_ALERT, NOQID,
  1103.   "user %d attempted to %s",
  1104.   RealUid,
  1105.   OpMode != MD_PURGESTAT ? "run daemon"
  1106.  : "purge host status");
  1107. usrerr("Permission denied");
  1108. finis(FALSE, EX_USAGE);
  1109. }
  1110. if (OpMode == MD_INITALIAS &&
  1111.     RealUid != 0 &&
  1112.     RealUid != TrustedUid &&
  1113.     !wordinclass(RealUserName, 't'))
  1114. {
  1115. if (LogLevel > 1)
  1116. sm_syslog(LOG_ALERT, NOQID,
  1117.   "user %d attempted to rebuild the alias map",
  1118.   RealUid);
  1119. usrerr("Permission denied");
  1120. finis(FALSE, EX_USAGE);
  1121. }
  1123. if (MeToo)
  1124. BlankEnvelope.e_flags |= EF_METOO;
  1126. switch (OpMode)
  1127. {
  1128.   case MD_TEST:
  1129. /* don't have persistent host status in test mode */
  1130. HostStatDir = NULL;
  1131. if (Verbose == 0)
  1132. Verbose = 2;
  1133. CurEnv->e_errormode = EM_PRINT;
  1134. HoldErrs = FALSE;
  1135. break;
  1137.   case MD_VERIFY:
  1138. CurEnv->e_errormode = EM_PRINT;
  1139. HoldErrs = FALSE;
  1140. /* arrange to exit cleanly on hangup signal */
  1141. if (setsignal(SIGHUP, SIG_IGN) == (sigfunc_t) SIG_DFL)
  1142. (void) setsignal(SIGHUP, intsig);
  1143. break;
  1145.   case MD_FGDAEMON:
  1146. run_in_foreground = TRUE;
  1147. OpMode = MD_DAEMON;
  1148. /* FALLTHROUGH */
  1150.   case MD_DAEMON:
  1151. vendor_daemon_setup(CurEnv);
  1153. /* remove things that don't make sense in daemon mode */
  1154. FullName = NULL;
  1155. GrabTo = FALSE;
  1157. /* arrange to restart on hangup signal */
  1158. if (SaveArgv[0] == NULL || SaveArgv[0][0] != '/')
  1159. sm_syslog(LOG_WARNING, NOQID,
  1160.   "daemon invoked without full pathname; kill -1 won't work");
  1161. (void) setsignal(SIGHUP, sighup);
  1163. /* workaround: can't seem to release the signal in the parent */
  1164. (void) releasesignal(SIGHUP);
  1165. break;
  1167.   case MD_INITALIAS:
  1168. Verbose = 2;
  1169. CurEnv->e_errormode = EM_PRINT;
  1170. HoldErrs = FALSE;
  1171. /* FALLTHROUGH */
  1173.   default:
  1174. /* arrange to exit cleanly on hangup signal */
  1175. if (setsignal(SIGHUP, SIG_IGN) == (sigfunc_t) SIG_DFL)
  1176. (void) setsignal(SIGHUP, intsig);
  1177. break;
  1178. }
  1180. /* special considerations for FullName */
  1181. if (FullName != NULL)
  1182. {
  1183. char *full = NULL;
  1185. /* full names can't have newlines */
  1186. if (strchr(FullName, 'n') != NULL)
  1187. {
  1188. FullName = full = newstr(denlstring(FullName, TRUE, TRUE));
  1189. }
  1190. /* check for characters that may have to be quoted */
  1191. if (!rfc822_string(FullName))
  1192. {
  1193. /*
  1194. **  Quote a full name with special characters
  1195. **  as a comment so crackaddr() doesn't destroy
  1196. **  the name portion of the address.
  1197. */
  1198. FullName = addquotes(FullName);
  1199. if (full != NULL)
  1200. free(full);
  1201. }
  1202. }
  1204. /* do heuristic mode adjustment */
  1205. if (Verbose)
  1206. {
  1207. /* turn off noconnect option */
  1208. setoption('c', "F", TRUE, FALSE, CurEnv);
  1210. /* turn on interactive delivery */
  1211. setoption('d', "", TRUE, FALSE, CurEnv);
  1212. }
  1214. #ifdef VENDOR_CODE
  1215. /* check for vendor mismatch */
  1216. if (VendorCode != VENDOR_CODE)
  1217. {
  1218. message("Warning: .cf file vendor code mismatch: sendmail expects vendor %s, .cf file vendor is %s",
  1219. getvendor(VENDOR_CODE), getvendor(VendorCode));
  1220. }
  1221. #endif /* VENDOR_CODE */
  1223. /* check for out of date configuration level */
  1224. if (ConfigLevel < MAXCONFIGLEVEL)
  1225. {
  1226. message("Warning: .cf file is out of date: sendmail %s supports version %d, .cf file is version %d",
  1227. Version, MAXCONFIGLEVEL, ConfigLevel);
  1228. }
  1230. if (ConfigLevel < 3)
  1231. {
  1232. UseErrorsTo = TRUE;
  1233. }
  1235. /* set options that were previous macros */
  1236. if (SmtpGreeting == NULL)
  1237. {
  1238. if (ConfigLevel < 7 && (p = macvalue('e', CurEnv)) != NULL)
  1239. SmtpGreeting = newstr(p);
  1240. else
  1241. SmtpGreeting = "201j Sendmail 201v ready at 201b";
  1242. }
  1243. if (UnixFromLine == NULL)
  1244. {
  1245. if (ConfigLevel < 7 && (p = macvalue('l', CurEnv)) != NULL)
  1246. UnixFromLine = newstr(p);
  1247. else
  1248. UnixFromLine = "From 201g  201d";
  1249. }
  1251. /* our name for SMTP codes */
  1252. expand("201j", jbuf, sizeof jbuf, CurEnv);
  1253. MyHostName = jbuf;
  1254. if (strchr(jbuf, '.') == NULL)
  1255. message("WARNING: local host name (%s) is not qualified; fix $j in config file",
  1256. jbuf);
  1258. /* make certain that this name is part of the $=w class */
  1259. setclass('w', MyHostName);
  1261. /* the indices of built-in mailers */
  1262. st = stab("local", ST_MAILER, ST_FIND);
  1263. if (st != NULL)
  1264. LocalMailer = st->s_mailer;
  1265. else if (OpMode != MD_TEST || !warn_C_flag)
  1266. syserr("No local mailer defined");
  1268. st = stab("prog", ST_MAILER, ST_FIND);
  1269. if (st == NULL)
  1270. syserr("No prog mailer defined");
  1271. else
  1272. {
  1273. ProgMailer = st->s_mailer;
  1274. clrbitn(M_MUSER, ProgMailer->m_flags);
  1275. }
  1277. st = stab("*file*", ST_MAILER, ST_FIND);
  1278. if (st == NULL)
  1279. syserr("No *file* mailer defined");
  1280. else
  1281. {
  1282. FileMailer = st->s_mailer;
  1283. clrbitn(M_MUSER, FileMailer->m_flags);
  1284. }
  1286. st = stab("*include*", ST_MAILER, ST_FIND);
  1287. if (st == NULL)
  1288. syserr("No *include* mailer defined");
  1289. else
  1290. InclMailer = st->s_mailer;
  1292. if (ConfigLevel < 6)
  1293. {
  1294. /* heuristic tweaking of local mailer for back compat */
  1295. if (LocalMailer != NULL)
  1296. {
  1297. setbitn(M_ALIASABLE, LocalMailer->m_flags);
  1298. setbitn(M_HASPWENT, LocalMailer->m_flags);
  1299. setbitn(M_TRYRULESET5, LocalMailer->m_flags);
  1300. setbitn(M_CHECKINCLUDE, LocalMailer->m_flags);
  1301. setbitn(M_CHECKPROG, LocalMailer->m_flags);
  1302. setbitn(M_CHECKFILE, LocalMailer->m_flags);
  1303. setbitn(M_CHECKUDB, LocalMailer->m_flags);
  1304. }
  1305. if (ProgMailer != NULL)
  1306. setbitn(M_RUNASRCPT, ProgMailer->m_flags);
  1307. if (FileMailer != NULL)
  1308. setbitn(M_RUNASRCPT, FileMailer->m_flags);
  1309. }
  1310. if (ConfigLevel < 7)
  1311. {
  1312. if (LocalMailer != NULL)
  1313. setbitn(M_VRFY250, LocalMailer->m_flags);
  1314. if (ProgMailer != NULL)
  1315. setbitn(M_VRFY250, ProgMailer->m_flags);
  1316. if (FileMailer != NULL)
  1317. setbitn(M_VRFY250, FileMailer->m_flags);
  1318. }
  1320. /* MIME Content-Types that cannot be transfer encoded */
  1321. setclass('n', "multipart/signed");
  1323. /* MIME message/xxx subtypes that can be treated as messages */
  1324. setclass('s', "rfc822");
  1326. /* MIME Content-Transfer-Encodings that can be encoded */
  1327. setclass('e', "7bit");
  1328. setclass('e', "8bit");
  1329. setclass('e', "binary");
  1331. #ifdef USE_B_CLASS
  1332. /* MIME Content-Types that should be treated as binary */
  1333. setclass('b', "image");
  1334. setclass('b', "audio");
  1335. setclass('b', "video");
  1336. setclass('b', "application/octet-stream");
  1337. #endif /* USE_B_CLASS */
  1339. /* MIME headers which have fields to check for overflow */
  1340. setclass(macid("{checkMIMEFieldHeaders}", NULL), "content-disposition");
  1341. setclass(macid("{checkMIMEFieldHeaders}", NULL), "content-type");
  1343. /* MIME headers to check for length overflow */
  1344. setclass(macid("{checkMIMETextHeaders}", NULL), "content-description");
  1346. /* MIME headers to check for overflow and rebalance */
  1347. setclass(macid("{checkMIMEHeaders}", NULL), "content-disposition");
  1348. setclass(macid("{checkMIMEHeaders}", NULL), "content-id");
  1349. setclass(macid("{checkMIMEHeaders}", NULL), "content-transfer-encoding");
  1350. setclass(macid("{checkMIMEHeaders}", NULL), "content-type");
  1351. setclass(macid("{checkMIMEHeaders}", NULL), "mime-version");
  1353. /* Macros to save in the qf file -- don't remove any */
  1354. setclass(macid("{persistentMacros}", NULL), "r");
  1355. setclass(macid("{persistentMacros}", NULL), "s");
  1356. setclass(macid("{persistentMacros}", NULL), "_");
  1357. setclass(macid("{persistentMacros}", NULL), "{if_addr}");
  1358. setclass(macid("{persistentMacros}", NULL), "{if_family}");
  1359. setclass(macid("{persistentMacros}", NULL), "{daemon_flags}");
  1360. setclass(macid("{persistentMacros}", NULL), "{client_flags}");
  1362. /* operate in queue directory */
  1363. if (QueueDir == NULL)
  1364. {
  1365. if (OpMode != MD_TEST)
  1366. {
  1367. syserr("QueueDirectory (Q) option must be set");
  1368. ExitStat = EX_CONFIG;
  1369. }
  1370. }
  1371. else
  1372. {
  1373. /*
  1374. **  If multiple queues wildcarded, use one for
  1375. **  the daemon's home. Note that this preconditions
  1376. **  a wildcarded QueueDir to a real pathname.
  1377. */
  1379. if (OpMode != MD_TEST)
  1380. multiqueue_cache();
  1381. }
  1383. /* check host status directory for validity */
  1384. if (HostStatDir != NULL && !path_is_dir(HostStatDir, FALSE))
  1385. {
  1386. /* cannot use this value */
  1387. if (tTd(0, 2))
  1388. dprintf("Cannot use HostStatusDirectory = %s: %sn",
  1389. HostStatDir, errstring(errno));
  1390. HostStatDir = NULL;
  1391. }
  1393. #if QUEUE
  1394. if (OpMode == MD_QUEUERUN && RealUid != 0 &&
  1395.     bitset(PRIV_RESTRICTQRUN, PrivacyFlags))
  1396. {
  1397. struct stat stbuf;
  1399. /* check to see if we own the queue directory */
  1400. if (stat(".", &stbuf) < 0)
  1401. syserr("main: cannot stat %s", QueueDir);
  1402. if (stbuf.st_uid != RealUid)
  1403. {
  1404. /* nope, really a botch */
  1405. usrerr("You do not have permission to process the queue");
  1406. finis(FALSE, EX_NOPERM);
  1407. }
  1408. }
  1409. #endif /* QUEUE */
  1412. /* if we've had errors so far, exit now */
  1413. if (ExitStat != EX_OK && OpMode != MD_TEST)
  1414. finis(FALSE, ExitStat);
  1416. #if XDEBUG
  1417. checkfd012("before main() initmaps");
  1418. #endif /* XDEBUG */
  1420. /*
  1421. **  Do operation-mode-dependent initialization.
  1422. */
  1424. switch (OpMode)
  1425. {
  1426.   case MD_PRINT:
  1427. /* print the queue */
  1428. #if QUEUE
  1429. dropenvelope(CurEnv, TRUE);
  1430. (void) setsignal(SIGPIPE, quiesce);
  1431. printqueue();
  1432. finis(FALSE, EX_OK);
  1433. #else /* QUEUE */
  1434. usrerr("No queue to print");
  1435. finis(FALSE, EX_UNAVAILABLE);
  1436. #endif /* QUEUE */
  1437. break;
  1439.   case MD_HOSTSTAT:
  1440. (void) setsignal(SIGPIPE, quiesce);
  1441. (void) mci_traverse_persistent(mci_print_persistent, NULL);
  1442. finis(FALSE, EX_OK);
  1443. break;
  1445.   case MD_PURGESTAT:
  1446. (void) mci_traverse_persistent(mci_purge_persistent, NULL);
  1447. finis(FALSE, EX_OK);
  1448. break;
  1450.   case MD_INITALIAS:
  1451. /* initialize maps */
  1452. initmaps();
  1453. finis(FALSE, ExitStat);
  1454. break;
  1456.   case MD_SMTP:
  1457.   case MD_DAEMON:
  1458. /* reset DSN parameters */
  1459. DefaultNotify = QPINGONFAILURE|QPINGONDELAY;
  1460. CurEnv->e_envid = NULL;
  1461. define(macid("{dsn_envid}", NULL), NULL, CurEnv);
  1462. CurEnv->e_flags &= ~(EF_RET_PARAM|EF_NO_BODY_RETN);
  1463. define(macid("{dsn_ret}", NULL), NULL, CurEnv);
  1465. /* don't open maps for daemon -- done below in child */
  1466. break;
  1467. }
  1469. if (tTd(0, 15))
  1470. {
  1471. /* print configuration table (or at least part of it) */
  1472. if (tTd(0, 90))
  1473. printrules();
  1474. for (i = 0; i < MAXMAILERS; i++)
  1475. {
  1476. if (Mailer[i] != NULL)
  1477. printmailer(Mailer[i]);
  1478. }
  1479. }
  1481. /*
  1482. **  Switch to the main envelope.
  1483. */
  1485. CurEnv = newenvelope(&MainEnvelope, CurEnv);
  1486. MainEnvelope.e_flags = BlankEnvelope.e_flags;
  1488. /*
  1489. **  If test mode, read addresses from stdin and process.
  1490. */
  1492. if (OpMode == MD_TEST)
  1493. {
  1494. char buf[MAXLINE];
  1496. if (isatty(fileno(stdin)))
  1497. Verbose = 2;
  1499. if (Verbose)
  1500. {
  1501. printf("ADDRESS TEST MODE (ruleset 3 NOT automatically invoked)n");
  1502. printf("Enter <ruleset> <address>n");
  1503. }
  1504. if (setjmp(TopFrame) > 0)
  1505. printf("n");
  1506. (void) setsignal(SIGINT, intindebug);
  1507. for (;;)
  1508. {
  1509. if (Verbose == 2)
  1510. printf("> ");
  1511. (void) fflush(stdout);
  1512. if (fgets(buf, sizeof buf, stdin) == NULL)
  1513. testmodeline("/quit", CurEnv);
  1514. p = strchr(buf, 'n');
  1515. if (p != NULL)
  1516. *p = '';
  1517. if (Verbose < 2)
  1518. printf("> %sn", buf);
  1519. testmodeline(buf, CurEnv);
  1520. }
  1521. }
  1523. #if SMTP
  1524. #endif /* SMTP */
  1526. #if QUEUE
  1527. /*
  1528. **  If collecting stuff from the queue, go start doing that.
  1529. */
  1531. if (OpMode == MD_QUEUERUN && QueueIntvl == 0)
  1532. {
  1533. # if SMTP
  1534. # endif /* SMTP */
  1535. (void) runqueue(!Verbose, Verbose);
  1536. finis(TRUE, ExitStat);
  1537. }
  1538. #endif /* QUEUE */
  1540. /*
  1541. **  If a daemon, wait for a request.
  1542. ** getrequests will always return in a child.
  1543. ** If we should also be processing the queue, start
  1544. ** doing it in background.
  1545. ** We check for any errors that might have happened
  1546. ** during startup.
  1547. */
  1549. if (OpMode == MD_DAEMON || QueueIntvl != 0)
  1550. {
  1551. char dtype[200];
  1553. if (!run_in_foreground && !tTd(99, 100))
  1554. {
  1555. /* put us in background */
  1556. i = fork();
  1557. if (i < 0)
  1558. syserr("daemon: cannot fork");
  1559. if (i != 0)
  1560. finis(FALSE, EX_OK);
  1562. /* disconnect from our controlling tty */
  1563. disconnect(2, CurEnv);
  1564. }
  1566. dtype[0] = '';
  1567. if (OpMode == MD_DAEMON)
  1568. (void) strlcat(dtype, "+SMTP", sizeof dtype);
  1569. if (QueueIntvl != 0)
  1570. {
  1571. (void) strlcat(dtype, "+queueing@", sizeof dtype);
  1572. (void) strlcat(dtype, pintvl(QueueIntvl, TRUE),
  1573.        sizeof dtype);
  1574. }
  1575. if (tTd(0, 1))
  1576. (void) strlcat(dtype, "+debugging", sizeof dtype);
  1578. sm_syslog(LOG_INFO, NOQID,
  1579.   "starting daemon (%s): %s", Version, dtype + 1);
  1580. #ifdef XLA
  1581. xla_create_file();
  1582. #endif /* XLA */
  1584. /* save daemon type in a macro for possible PidFile use */
  1585. define(macid("{daemon_info}", NULL),
  1586.        newstr(dtype + 1), &BlankEnvelope);
  1588. /* save queue interval in a macro for possible PidFile use */
  1589. define(macid("{queue_interval}", NULL),
  1590.        newstr(pintvl(QueueIntvl, TRUE)), CurEnv);
  1592. #if QUEUE
  1593. if (QueueIntvl != 0)
  1594. {
  1595. (void) runqueue(TRUE, FALSE);
  1596. if (OpMode != MD_DAEMON)
  1597. {
  1598. /* write the pid to file */
  1599. log_sendmail_pid(CurEnv);
  1600. for (;;)
  1601. {
  1602. (void) pause();
  1603. if (DoQueueRun)
  1604. (void) runqueue(TRUE, FALSE);
  1605. }
  1606. }
  1607. }
  1608. #endif /* QUEUE */
  1609. dropenvelope(CurEnv, TRUE);
  1611. #if DAEMON
  1612. p_flags = getrequests(CurEnv);
  1614. /* drop privileges */
  1615. (void) drop_privileges(FALSE);
  1617. /* at this point we are in a child: reset state */
  1618. (void) newenvelope(CurEnv, CurEnv);
  1620. /*
  1621. **  Get authentication data
  1622. */
  1624. authinfo = getauthinfo(fileno(InChannel), &forged);
  1625. define('_', authinfo, &BlankEnvelope);
  1626. #endif /* DAEMON */
  1627. }
  1629. if (LogLevel > 9)
  1630. {
  1631. /* log connection information */
  1632. sm_syslog(LOG_INFO, CurEnv->e_id,
  1633.   "connect from %.100s", authinfo);
  1634. }
  1636. #if SMTP
  1637. /*
  1638. **  If running SMTP protocol, start collecting and executing
  1639. **  commands.  This will never return.
  1640. */
  1642. if (OpMode == MD_SMTP || OpMode == MD_DAEMON)
  1643. {
  1644. char pbuf[20];
  1646. /*
  1647. **  Save some macros for check_* rulesets.
  1648. */
  1650. if (forged)
  1651. {
  1652. char ipbuf[103];
  1654. (void) snprintf(ipbuf, sizeof ipbuf, "[%.100s]",
  1655. anynet_ntoa(&RealHostAddr));
  1656. define(macid("{client_name}", NULL),
  1657.        newstr(ipbuf), &BlankEnvelope);
  1658. define(macid("{client_resolve}", NULL),
  1659.        "FORGED", &BlankEnvelope);
  1660. }
  1661. else
  1662. define(macid("{client_name}", NULL), RealHostName,
  1663.        &BlankEnvelope);
  1664. define(macid("{client_addr}", NULL),
  1665.        newstr(anynet_ntoa(&RealHostAddr)), &BlankEnvelope);
  1666. (void)sm_getla(&BlankEnvelope);
  1668. switch(RealHostAddr.sa.sa_family)
  1669. {
  1670. # if NETINET
  1671.   case AF_INET:
  1672. (void) snprintf(pbuf, sizeof pbuf, "%d",
  1673. RealHostAddr.sin.sin_port);
  1674. break;
  1675. # endif /* NETINET */
  1676. # if NETINET6
  1677.   case AF_INET6:
  1678. (void) snprintf(pbuf, sizeof pbuf, "%d",
  1679. RealHostAddr.sin6.sin6_port);
  1680. break;
  1681. # endif /* NETINET6 */
  1682.   default:
  1683. (void) snprintf(pbuf, sizeof pbuf, "0");
  1684. break;
  1685. }
  1686. define(macid("{client_port}", NULL),
  1687.        newstr(pbuf), &BlankEnvelope);
  1689. #if SASL
  1690. /* give a syserr or just disable AUTH ? */
  1691. if (sasl_server_init(srvcallbacks, "Sendmail") != SASL_OK)
  1692. syserr("!sasl_server_init failed!");
  1693. #endif /* SASL */
  1695. if (OpMode == MD_DAEMON)
  1696. {
  1697. /* validate the connection */
  1698. HoldErrs = TRUE;
  1699. nullserver = validate_connection(&RealHostAddr,
  1700.  RealHostName, CurEnv);
  1701. HoldErrs = FALSE;
  1702. }
  1703. else if (p_flags == NULL)
  1704. {
  1705. p_flags = (BITMAP256 *) xalloc(sizeof *p_flags);
  1706. clrbitmap(p_flags);
  1707. }
  1708. smtp(nullserver, *p_flags, CurEnv);
  1709. }
  1710. #endif /* SMTP */
  1712. clearenvelope(CurEnv, FALSE);
  1713. if (OpMode == MD_VERIFY)
  1714. {
  1715. set_delivery_mode(SM_VERIFY, CurEnv);
  1716. PostMasterCopy = NULL;
  1717. }
  1718. else
  1719. {
  1720. /* interactive -- all errors are global */
  1721. CurEnv->e_flags |= EF_GLOBALERRS|EF_LOGSENDER;
  1722. }
  1724. /*
  1725. **  Do basic system initialization and set the sender
  1726. */
  1728. initsys(CurEnv);
  1729. define(macid("{ntries}", NULL), "0", CurEnv);
  1730. setsender(from, CurEnv, NULL, '', FALSE);
  1731. if (warn_f_flag != '' && !wordinclass(RealUserName, 't') &&
  1732.     (!bitnset(M_LOCALMAILER, CurEnv->e_from.q_mailer->m_flags) ||
  1733.      strcmp(CurEnv->e_from.q_user, RealUserName) != 0))
  1734. {
  1735. auth_warning(CurEnv, "%s set sender to %s using -%c",
  1736. RealUserName, from, warn_f_flag);
  1737. #if SASL
  1738. auth = FALSE;
  1739. #endif /* SASL */
  1740. }
  1741. if (auth)
  1742. {
  1743. char *fv;
  1745. /* set the initial sender for AUTH= to $f@$j */
  1746. fv = macvalue('f', CurEnv);
  1747. if (fv == NULL || *fv == '')
  1748. CurEnv->e_auth_param = NULL;
  1749. else
  1750. {
  1751. if (strchr(fv, '@') == NULL)
  1752. {
  1753. i = strlen(fv) + strlen(macvalue('j', CurEnv))
  1754.     + 2;
  1755. p = xalloc(i);
  1756. (void) snprintf(p, i, "%s@%s", fv,
  1757. macvalue('j', CurEnv));
  1758. }
  1759. else
  1760. p = newstr(fv);
  1761. CurEnv->e_auth_param = newstr(xtextify(p, NULL));
  1762. }
  1763. }
  1764. if (macvalue('s', CurEnv) == NULL)
  1765. define('s', RealHostName, CurEnv);
  1767. if (*av == NULL && !GrabTo)
  1768. {
  1769. CurEnv->e_to = NULL;
  1770. CurEnv->e_flags |= EF_GLOBALERRS;
  1771. HoldErrs = FALSE;
  1772. usrerr("Recipient names must be specified");
  1774. /* collect body for UUCP return */
  1775. if (OpMode != MD_VERIFY)
  1776. collect(InChannel, FALSE, NULL, CurEnv);
  1777. finis(TRUE, EX_USAGE);
  1778. }
  1780. /*
  1781. **  Scan argv and deliver the message to everyone.
  1782. */
  1784. sendtoargv(av, CurEnv);
  1786. /* if we have had errors sofar, arrange a meaningful exit stat */
  1787. if (Errors > 0 && ExitStat == EX_OK)
  1788. ExitStat = EX_USAGE;
  1790. #if _FFR_FIX_DASHT
  1791. /*
  1792. **  If using -t, force not sending to argv recipients, even
  1793. **  if they are mentioned in the headers.
  1794. */
  1796. if (GrabTo)
  1797. {
  1798. ADDRESS *q;
  1800. for (q = CurEnv->e_sendqueue; q != NULL; q = q->q_next)
  1801. q->q_state = QS_REMOVED;
  1802. }
  1803. #endif /* _FFR_FIX_DASHT */
  1805. /*
  1806. **  Read the input mail.
  1807. */
  1809. CurEnv->e_to = NULL;
  1810. if (OpMode != MD_VERIFY || GrabTo)
  1811. {
  1812. int savederrors = Errors;
  1813. long savedflags = CurEnv->e_flags & EF_FATALERRS;
  1815. CurEnv->e_flags |= EF_GLOBALERRS;
  1816. CurEnv->e_flags &= ~EF_FATALERRS;
  1817. Errors = 0;
  1818. buffer_errors();
  1819. collect(InChannel, FALSE, NULL, CurEnv);
  1821. /* header checks failed */
  1822. if (Errors > 0)
  1823. {
  1824. /* Log who the mail would have gone to */
  1825. if (LogLevel > 8 && CurEnv->e_message != NULL &&
  1826.     !GrabTo)
  1827. {
  1828. ADDRESS *a;
  1830. for (a = CurEnv->e_sendqueue;
  1831.      a != NULL;
  1832.      a = a->q_next)
  1833. {
  1834. if (!QS_IS_UNDELIVERED(a->q_state))
  1835. continue;
  1837. CurEnv->e_to = a->q_paddr;
  1838. logdelivery(NULL, NULL,
  1839.     CurEnv->e_message,
  1840.     NULL, (time_t) 0, CurEnv);
  1841. }
  1842. CurEnv->e_to = NULL;
  1843. }
  1844. flush_errors(TRUE);
  1845. finis(TRUE, ExitStat);
  1846. /* NOTREACHED */
  1847. return -1;
  1848. }
  1850. /* bail out if message too large */
  1851. if (bitset(EF_CLRQUEUE, CurEnv->e_flags))
  1852. {
  1853. finis(TRUE, ExitStat != EX_OK ? ExitStat : EX_DATAERR);
  1854. /* NOTREACHED */
  1855. return -1;
  1856. }
  1857. Errors = savederrors;
  1858. CurEnv->e_flags |= savedflags;
  1859. }
  1860. errno = 0;
  1862. if (tTd(1, 1))
  1863. dprintf("From person = "%s"n", CurEnv->e_from.q_paddr);
  1865. /*
  1866. **  Actually send everything.
  1867. ** If verifying, just ack.
  1868. */
  1870. CurEnv->e_from.q_state = QS_SENDER;
  1871. if (tTd(1, 5))
  1872. {
  1873. dprintf("main: QS_SENDER ");
  1874. printaddr(&CurEnv->e_from, FALSE);
  1875. }
  1876. CurEnv->e_to = NULL;
  1877. CurrentLA = sm_getla(CurEnv);
  1878. GrabTo = FALSE;
  1879. #if NAMED_BIND
  1880. _res.retry = TimeOuts.res_retry[RES_TO_FIRST];
  1881. _res.retrans = TimeOuts.res_retrans[RES_TO_FIRST];
  1882. #endif /* NAMED_BIND */
  1883. sendall(CurEnv, SM_DEFAULT);
  1885. /*
  1886. **  All done.
  1887. ** Don't send return error message if in VERIFY mode.
  1888. */
  1890. finis(TRUE, ExitStat);
  1891. /* NOTREACHED */
  1892. return ExitStat;
  1893. }
  1895. /* ARGSUSED */
  1896. SIGFUNC_DECL
  1897. quiesce(sig)
  1898. int sig;
  1899. {
  1900. clear_events();
  1901. finis(FALSE, EX_OK);
  1902. }
  1904. /* ARGSUSED */
  1905. SIGFUNC_DECL
  1906. intindebug(sig)
  1907. int sig;
  1908. {
  1909. longjmp(TopFrame, 1);
  1910. return SIGFUNC_RETURN;
  1911. }
  1912. /*
  1913. **  FINIS -- Clean up and exit.
  1914. **
  1915. ** Parameters:
  1916. ** drop -- whether or not to drop CurEnv envelope
  1917. ** exitstat -- exit status to use for exit() call
  1918. **
  1919. ** Returns:
  1920. ** never
  1921. **
  1922. ** Side Effects:
  1923. ** exits sendmail
  1924. */
  1926. void
  1927. finis(drop, exitstat)
  1928. bool drop;
  1929. volatile int exitstat;
  1930. {
  1932. if (tTd(2, 1))
  1933. {
  1934. dprintf("n====finis: stat %d e_id=%s e_flags=",
  1935. exitstat,
  1936. CurEnv->e_id == NULL ? "NOQUEUE" : CurEnv->e_id);
  1937. printenvflags(CurEnv);
  1938. }
  1939. if (tTd(2, 9))
  1940. printopenfds(FALSE);
  1942. /* if we fail in finis(), just exit */
  1943. if (setjmp(TopFrame) != 0)
  1944. {
  1945. /* failed -- just give it up */
  1946. goto forceexit;
  1947. }
  1949. /* clean up temp files */
  1950. CurEnv->e_to = NULL;
  1951. if (drop)
  1952. {
  1953. if (CurEnv->e_id != NULL)
  1954. dropenvelope(CurEnv, TRUE);
  1955. else
  1956. poststats(StatFile);
  1957. }
  1959. /* flush any cached connections */
  1960. mci_flush(TRUE, NULL);
  1962. /* close maps belonging to this pid */
  1963. closemaps();
  1965. #if USERDB
  1966. /* close UserDatabase */
  1967. _udbx_close();
  1968. #endif /* USERDB */
  1970. #ifdef XLA
  1971. /* clean up extended load average stuff */
  1972. xla_all_end();
  1973. #endif /* XLA */
  1975. /* and exit */
  1976.   forceexit:
  1977. if (LogLevel > 78)
  1978. sm_syslog(LOG_DEBUG, CurEnv->e_id,
  1979.   "finis, pid=%d",
  1980.   getpid());
  1981. if (exitstat == EX_TEMPFAIL || CurEnv->e_errormode == EM_BERKNET)
  1982. exitstat = EX_OK;
  1984. sync_queue_time();
  1986. /* reset uid for process accounting */
  1987. endpwent();
  1988. (void) setuid(RealUid);
  1989. exit(exitstat);
  1990. }
  1991. /*
  1992. **  INTSIG -- clean up on interrupt
  1993. **
  1994. ** This just arranges to exit.  It pessimizes in that it
  1995. ** may resend a message.
  1996. **
  1997. ** Parameters:
  1998. ** none.
  1999. **
  2000. ** Returns:
  2001. ** none.
  2002. **
  2003. ** Side Effects:
  2004. ** Unlocks the current job.
  2005. */
  2007. /* ARGSUSED */
  2008. SIGFUNC_DECL
  2009. intsig(sig)
  2010. int sig;
  2011. {
  2012. bool drop = FALSE;
  2014. clear_events();
  2015. if (sig != 0 && LogLevel > 79)
  2016. sm_syslog(LOG_DEBUG, CurEnv->e_id, "interrupt");
  2017. FileName = NULL;
  2018. closecontrolsocket(TRUE);
  2019. #ifdef XLA
  2020. xla_all_end();
  2021. #endif /* XLA */
  2023. /* Clean-up on aborted stdin message submission */
  2024. if (CurEnv->e_id != NULL &&
  2025.     (OpMode == MD_SMTP ||
  2026.      OpMode == MD_DELIVER ||
  2027.      OpMode == MD_ARPAFTP))
  2028. {
  2029. register ADDRESS *q;
  2031. /* don't return an error indication */
  2032. CurEnv->e_to = NULL;
  2033. CurEnv->e_flags &= ~EF_FATALERRS;
  2034. CurEnv->e_flags |= EF_CLRQUEUE;
  2036. /*
  2037. **  Spin through the addresses and
  2038. **  mark them dead to prevent bounces
  2039. */
  2041. for (q = CurEnv->e_sendqueue; q != NULL; q = q->q_next)
  2042. q->q_state = QS_DONTSEND;
  2044. /* and don't try to deliver the partial message either */
  2045. if (InChild)
  2046. ExitStat = EX_QUIT;
  2048. drop = TRUE;
  2049. }
  2050. else
  2051. unlockqueue(CurEnv);
  2053. finis(drop, EX_OK);
  2054. }
  2055. /*
  2056. **  INITMACROS -- initialize the macro system
  2057. **
  2058. ** This just involves defining some macros that are actually
  2059. ** used internally as metasymbols to be themselves.
  2060. **
  2061. ** Parameters:
  2062. ** none.
  2063. **
  2064. ** Returns:
  2065. ** none.
  2066. **
  2067. ** Side Effects:
  2068. ** initializes several macros to be themselves.
  2069. */
  2071. struct metamac MetaMacros[] =
  2072. {
  2073. /* LHS pattern matching characters */
  2074. { '*', MATCHZANY }, { '+', MATCHANY }, { '-', MATCHONE },
  2075. { '=', MATCHCLASS }, { '~', MATCHNCLASS },
  2077. /* these are RHS metasymbols */
  2078. { '#', CANONNET }, { '@', CANONHOST }, { ':', CANONUSER },
  2079. { '>', CALLSUBR },
  2081. /* the conditional operations */
  2082. { '?', CONDIF }, { '|', CONDELSE }, { '.', CONDFI },
  2084. /* the hostname lookup characters */
  2085. { '[', HOSTBEGIN }, { ']', HOSTEND },
  2086. { '(', LOOKUPBEGIN }, { ')', LOOKUPEND },
  2088. /* miscellaneous control characters */
  2089. { '&', MACRODEXPAND },
  2091. { '' }
  2092. };
  2094. #define MACBINDING(name, mid) 
  2095. stab(name, ST_MACRO, ST_ENTER)->s_macro = mid; 
  2096. MacroName[mid] = name;
  2098. void
  2099. initmacros(e)
  2100. register ENVELOPE *e;
  2101. {
  2102. register struct metamac *m;
  2103. register int c;
  2104. char buf[5];
  2105. extern char *MacroName[256];
  2107. for (m = MetaMacros; m->metaname != ''; m++)
  2108. {
  2109. buf[0] = m->metaval;
  2110. buf[1] = '';
  2111. define(m->metaname, newstr(buf), e);
  2112. }
  2113. buf[0] = MATCHREPL;
  2114. buf[2] = '';
  2115. for (c = '0'; c <= '9'; c++)
  2116. {
  2117. buf[1] = c;
  2118. define(c, newstr(buf), e);
  2119. }
  2121. /* set defaults for some macros sendmail will use later */
  2122. define('n', "MAILER-DAEMON", e);
  2124. /* set up external names for some internal macros */
  2125. MACBINDING("opMode", MID_OPMODE);
  2126. /*XXX should probably add equivalents for all short macros here XXX*/
  2127. }
  2128. /*
  2129. **  DISCONNECT -- remove our connection with any foreground process
  2130. **
  2131. ** Parameters:
  2132. ** droplev -- how "deeply" we should drop the line.
  2133. ** 0 -- ignore signals, mail back errors, make sure
  2134. **      output goes to stdout.
  2135. ** 1 -- also, make stdout go to /dev/null.
  2136. ** 2 -- also, disconnect from controlling terminal
  2137. **      (only for daemon mode).
  2138. ** e -- the current envelope.
  2139. **
  2140. ** Returns:
  2141. ** none
  2142. **
  2143. ** Side Effects:
  2144. ** Trys to insure that we are immune to vagaries of
  2145. ** the controlling tty.
  2146. */
  2148. void
  2149. disconnect(droplev, e)
  2150. int droplev;
  2151. register ENVELOPE *e;
  2152. {
  2153. int fd;
  2155. if (tTd(52, 1))
  2156. dprintf("disconnect: In %d Out %d, e=%lxn",
  2157. fileno(InChannel), fileno(OutChannel), (u_long) e);
  2158. if (tTd(52, 100))
  2159. {
  2160. dprintf("don'tn");
  2161. return;
  2162. }
  2163. if (LogLevel > 93)
  2164. sm_syslog(LOG_DEBUG, e->e_id,
  2165.   "disconnect level %d",
  2166.   droplev);
  2168. /* be sure we don't get nasty signals */
  2169. (void) setsignal(SIGINT, SIG_IGN);
  2170. (void) setsignal(SIGQUIT, SIG_IGN);
  2172. /* we can't communicate with our caller, so.... */
  2173. HoldErrs = TRUE;
  2174. CurEnv->e_errormode = EM_MAIL;
  2175. Verbose = 0;
  2176. DisConnected = TRUE;
  2178. /* all input from /dev/null */
  2179. if (InChannel != stdin)
  2180. {
  2181. (void) fclose(InChannel);
  2182. InChannel = stdin;
  2183. }
  2184. if (freopen("/dev/null", "r", stdin) == NULL)
  2185. sm_syslog(LOG_ERR, e->e_id,
  2186.   "disconnect: freopen("/dev/null") failed: %s",
  2187.   errstring(errno));
  2189. /* output to the transcript */
  2190. if (OutChannel != stdout)
  2191. {
  2192. (void) fclose(OutChannel);
  2193. OutChannel = stdout;
  2194. }
  2195. if (droplev > 0)
  2196. {
  2197. fd = open("/dev/null", O_WRONLY, 0666);
  2198. if (fd == -1)
  2199. sm_syslog(LOG_ERR, e->e_id,
  2200.   "disconnect: open("/dev/null") failed: %s",
  2201.   errstring(errno));
  2202. (void) fflush(stdout);
  2203. (void) dup2(fd, STDOUT_FILENO);
  2204. (void) dup2(fd, STDERR_FILENO);
  2205. (void) close(fd);
  2206. }
  2208. /* drop our controlling TTY completely if possible */
  2209. if (droplev > 1)
  2210. {
  2211. (void) setsid();
  2212. errno = 0;
  2213. }
  2215. #if XDEBUG
  2216. checkfd012("disconnect");
  2217. #endif /* XDEBUG */
  2219. if (LogLevel > 71)
  2220. sm_syslog(LOG_DEBUG, e->e_id,
  2221.   "in background, pid=%d",
  2222.   getpid());
  2224. errno = 0;
  2225. }
  2227. static void
  2228. obsolete(argv)
  2229. char *argv[];
  2230. {
  2231. register char *ap;
  2232. register char *op;
  2234. while ((ap = *++argv) != NULL)
  2235. {
  2236. /* Return if "--" or not an option of any form. */
  2237. if (ap[0] != '-' || ap[1] == '-')
  2238. return;
  2240. /* skip over options that do have a value */
  2241. op = strchr(OPTIONS, ap[1]);
  2242. if (op != NULL && *++op == ':' && ap[2] == '' &&
  2243.     ap[1] != 'd' &&
  2244. #if defined(sony_news)
  2245.     ap[1] != 'E' && ap[1] != 'J' &&
  2246. #endif /* defined(sony_news) */
  2247.     argv[1] != NULL && argv[1][0] != '-')
  2248. {
  2249. argv++;
  2250. continue;
  2251. }
  2253. /* If -C doesn't have an argument, use sendmail.cf. */
  2254. #define __DEFPATH "sendmail.cf"
  2255. if (ap[1] == 'C' && ap[2] == '')
  2256. {
  2257. *argv = xalloc(sizeof(__DEFPATH) + 2);
  2258. (void) snprintf(argv[0], sizeof(__DEFPATH) + 2, "-C%s",
  2259. __DEFPATH);
  2260. }
  2262. /* If -q doesn't have an argument, run it once. */
  2263. if (ap[1] == 'q' && ap[2] == '')
  2264. *argv = "-q0";
  2266. /* if -d doesn't have an argument, use 0-99.1 */
  2267. if (ap[1] == 'd' && ap[2] == '')
  2268. *argv = "-d0-99.1";
  2270. #if defined(sony_news)
  2271. /* if -E doesn't have an argument, use -EC */
  2272. if (ap[1] == 'E' && ap[2] == '')
  2273. *argv = "-EC";
  2275. /* if -J doesn't have an argument, use -JJ */
  2276. if (ap[1] == 'J' && ap[2] == '')
  2277. *argv = "-JJ";
  2278. #endif /* defined(sony_news) */
  2279. }
  2280. }
  2281. /*
  2282. **  AUTH_WARNING -- specify authorization warning
  2283. **
  2284. ** Parameters:
  2285. ** e -- the current envelope.
  2286. ** msg -- the text of the message.
  2287. ** args -- arguments to the message.
  2288. **
  2289. ** Returns:
  2290. ** none.
  2291. */
  2293. void
  2294. #ifdef __STDC__
  2295. auth_warning(register ENVELOPE *e, const char *msg, ...)
  2296. #else /* __STDC__ */
  2297. auth_warning(e, msg, va_alist)
  2298. register ENVELOPE *e;
  2299. const char *msg;
  2300. va_dcl
  2301. #endif /* __STDC__ */
  2302. {
  2303. char buf[MAXLINE];
  2304. VA_LOCAL_DECL
  2306. if (bitset(PRIV_AUTHWARNINGS, PrivacyFlags))
  2307. {
  2308. register char *p;
  2309. static char hostbuf[48];
  2311. if (hostbuf[0] == '')
  2312. (void) myhostname(hostbuf, sizeof hostbuf);
  2314. (void) snprintf(buf, sizeof buf, "%s: ", hostbuf);
  2315. p = &buf[strlen(buf)];
  2316. VA_START(msg);
  2317. vsnprintf(p, SPACELEFT(buf, p), msg, ap);
  2318. VA_END;
  2319. addheader("X-Authentication-Warning", buf, &e->e_header);
  2320. if (LogLevel > 3)
  2321. sm_syslog(LOG_INFO, e->e_id,
  2322.   "Authentication-Warning: %.400s",
  2323.   buf);
  2324. }
  2325. }
  2326. /*
  2327. **  GETEXTENV -- get from external environment
  2328. **
  2329. ** Parameters:
  2330. ** envar -- the name of the variable to retrieve
  2331. **
  2332. ** Returns:
  2333. ** The value, if any.
  2334. */
  2336. char *
  2337. getextenv(envar)
  2338. const char *envar;
  2339. {
  2340. char **envp;
  2341. int l;
  2343. l = strlen(envar);
  2344. for (envp = ExternalEnviron; *envp != NULL; envp++)
  2345. {
  2346. if (strncmp(*envp, envar, l) == 0 && (*envp)[l] == '=')
  2347. return &(*envp)[l + 1];
  2348. }
  2349. return NULL;
  2350. }
  2351. /*
  2352. **  SETUSERENV -- set an environment in the propogated environment
  2353. **
  2354. ** Parameters:
  2355. ** envar -- the name of the environment variable.
  2356. ** value -- the value to which it should be set.  If
  2357. ** null, this is extracted from the incoming
  2358. ** environment.  If that is not set, the call
  2359. ** to setuserenv is ignored.
  2360. **
  2361. ** Returns:
  2362. ** none.
  2363. */
  2365. void
  2366. setuserenv(envar, value)
  2367. const char *envar;
  2368. const char *value;
  2369. {
  2370. int i, l;
  2371. char **evp = UserEnviron;
  2372. char *p;
  2374. if (value == NULL)
  2375. {
  2376. value = getextenv(envar);
  2377. if (value == NULL)
  2378. return;
  2379. }
  2381. i = strlen(envar) + 1;
  2382. l = strlen(value) + i + 1;
  2383. p = (char *) xalloc(l);
  2384. (void) snprintf(p, l, "%s=%s", envar, value);
  2386. while (*evp != NULL && strncmp(*evp, p, i) != 0)
  2387. evp++;
  2388. if (*evp != NULL)
  2389. {
  2390. *evp++ = p;
  2391. }
  2392. else if (evp < &UserEnviron[MAXUSERENVIRON])
  2393. {
  2394. *evp++ = p;
  2395. *evp = NULL;
  2396. }
  2398. /* make sure it is in our environment as well */
  2399. if (putenv(p) < 0)
  2400. syserr("setuserenv: putenv(%s) failed", p);
  2401. }
  2402. /*
  2403. **  DUMPSTATE -- dump state
  2404. **
  2405. ** For debugging.
  2406. */
  2408. void
  2409. dumpstate(when)
  2410. char *when;
  2411. {
  2412. register char *j = macvalue('j', CurEnv);
  2413. int rs;
  2414. extern int NextMacroId;
  2416. sm_syslog(LOG_DEBUG, CurEnv->e_id,
  2417.   "--- dumping state on %s: $j = %s ---",
  2418.   when,
  2419.   j == NULL ? "<NULL>" : j);
  2420. if (j != NULL)
  2421. {
  2422. if (!wordinclass(j, 'w'))
  2423. sm_syslog(LOG_DEBUG, CurEnv->e_id,
  2424.   "*** $j not in $=w ***");
  2425. }
  2426. sm_syslog(LOG_DEBUG, CurEnv->e_id, "CurChildren = %d", CurChildren);
  2427. sm_syslog(LOG_DEBUG, CurEnv->e_id, "NextMacroId = %d (Max %d)n",
  2428.   NextMacroId, MAXMACROID);
  2429. sm_syslog(LOG_DEBUG, CurEnv->e_id, "--- open file descriptors: ---");
  2430. printopenfds(TRUE);
  2431. sm_syslog(LOG_DEBUG, CurEnv->e_id, "--- connection cache: ---");
  2432. mci_dump_all(TRUE);
  2433. rs = strtorwset("debug_dumpstate", NULL, ST_FIND);
  2434. if (rs > 0)
  2435. {
  2436. int status;
  2437. register char **pvp;
  2438. char *pv[MAXATOM + 1];
  2440. pv[0] = NULL;
  2441. status = rewrite(pv, rs, 0, CurEnv);
  2442. sm_syslog(LOG_DEBUG, CurEnv->e_id,
  2443.   "--- ruleset debug_dumpstate returns stat %d, pv: ---",
  2444.   status);
  2445. for (pvp = pv; *pvp != NULL; pvp++)
  2446. sm_syslog(LOG_DEBUG, CurEnv->e_id, "%s", *pvp);
  2447. }
  2448. sm_syslog(LOG_DEBUG, CurEnv->e_id, "--- end of state dump ---");
  2449. }
  2452. /* ARGSUSED */
  2453. SIGFUNC_DECL
  2454. sigusr1(sig)
  2455. int sig;
  2456. {
  2457. dumpstate("user signal");
  2458. return SIGFUNC_RETURN;
  2459. }
  2462. /* ARGSUSED */
  2463. SIGFUNC_DECL
  2464. sighup(sig)
  2465. int sig;
  2466. {
  2467. int i;
  2468. extern int DtableSize;
  2470. clear_events();
  2471. (void) alarm(0);
  2472. if (SaveArgv[0][0] != '/')
  2473. {
  2474. if (LogLevel > 3)
  2475. sm_syslog(LOG_INFO, NOQID,
  2476.   "could not restart: need full path");
  2477. finis(FALSE, EX_OSFILE);
  2478. }
  2479. if (LogLevel > 3)
  2480. sm_syslog(LOG_INFO, NOQID, "restarting %s %s",
  2481.   sig == 0 ? "due to control command" : "on signal",
  2482.   SaveArgv[0]);
  2484. /* Control socket restart? */
  2485. if (sig != 0)
  2486. (void) releasesignal(SIGHUP);
  2488. closecontrolsocket(TRUE);
  2489. if (drop_privileges(TRUE) != EX_OK)
  2490. {
  2491. if (LogLevel > 0)
  2492. sm_syslog(LOG_ALERT, NOQID,
  2493.   "could not set[ug]id(%d, %d): %m",
  2494.   RunAsUid, RunAsGid);
  2495. finis(FALSE, EX_OSERR);
  2496. }
  2498. /* arrange for all the files to be closed */
  2499. for (i = 3; i < DtableSize; i++)
  2500. {
  2501. register int j;
  2503. if ((j = fcntl(i, F_GETFD, 0)) != -1)
  2504. (void) fcntl(i, F_SETFD, j | FD_CLOEXEC);
  2505. }
  2507. (void) execve(SaveArgv[0], (ARGV_T) SaveArgv, (ARGV_T) ExternalEnviron);
  2508. if (LogLevel > 0)
  2509. sm_syslog(LOG_ALERT, NOQID, "could not exec %s: %m",
  2510.   SaveArgv[0]);
  2511. finis(FALSE, EX_OSFILE);
  2512. }
  2513. /*
  2514. **  DROP_PRIVILEGES -- reduce privileges to those of the RunAsUser option
  2515. **
  2516. ** Parameters:
  2517. ** to_real_uid -- if set, drop to the real uid instead
  2518. ** of the RunAsUser.
  2519. **
  2520. ** Returns:
  2521. ** EX_OSERR if the setuid failed.
  2522. ** EX_OK otherwise.
  2523. */
  2525. int
  2526. drop_privileges(to_real_uid)
  2527. bool to_real_uid;
  2528. {
  2529. int rval = EX_OK;
  2530. GIDSET_T emptygidset[1];
  2532. if (tTd(47, 1))
  2533. dprintf("drop_privileges(%d): Real[UG]id=%d:%d, RunAs[UG]id=%d:%dn",
  2534. (int)to_real_uid, (int)RealUid, (int)RealGid, (int)RunAsUid, (int)RunAsGid);
  2536. if (to_real_uid)
  2537. {
  2538. RunAsUserName = RealUserName;
  2539. RunAsUid = RealUid;
  2540. RunAsGid = RealGid;
  2541. }
  2543. /* make sure no one can grab open descriptors for secret files */
  2544. endpwent();
  2546. /* reset group permissions; these can be set later */
  2547. emptygidset[0] = (to_real_uid || RunAsGid != 0) ? RunAsGid : getegid();
  2548. if (setgroups(1, emptygidset) == -1 && geteuid() == 0)
  2549. rval = EX_OSERR;
  2551. /* reset primary group and user id */
  2552. if ((to_real_uid || RunAsGid != 0) && setgid(RunAsGid) < 0)
  2553. rval = EX_OSERR;
  2554. if ((to_real_uid || RunAsUid != 0) && setuid(RunAsUid) < 0)
  2555. rval = EX_OSERR;
  2556. if (tTd(47, 5))
  2557. {
  2558. dprintf("drop_privileges: e/ruid = %d/%d e/rgid = %d/%dn",
  2559. (int)geteuid(), (int)getuid(), (int)getegid(), (int)getgid());
  2560. dprintf("drop_privileges: RunAsUser = %d:%dn",
  2561. (int)RunAsUid, (int)RunAsGid);
  2562. }
  2563. return rval;
  2564. }
  2565. /*
  2566. **  FILL_FD -- make sure a file descriptor has been properly allocated
  2567. **
  2568. ** Used to make sure that stdin/out/err are allocated on startup
  2569. **
  2570. ** Parameters:
  2571. ** fd -- the file descriptor to be filled.
  2572. ** where -- a string used for logging.  If NULL, this is
  2573. ** being called on startup, and logging should
  2574. ** not be done.
  2575. **
  2576. ** Returns:
  2577. ** none
  2578. */
  2580. void
  2581. fill_fd(fd, where)
  2582. int fd;
  2583. char *where;
  2584. {
  2585. int i;
  2586. struct stat stbuf;
  2588. if (fstat(fd, &stbuf) >= 0 || errno != EBADF)
  2589. return;
  2591. if (where != NULL)
  2592. syserr("fill_fd: %s: fd %d not open", where, fd);
  2593. else
  2594. MissingFds |= 1 << fd;
  2595. i = open("/dev/null", fd == 0 ? O_RDONLY : O_WRONLY, 0666);
  2596. if (i < 0)
  2597. {
  2598. syserr("!fill_fd: %s: cannot open /dev/null",
  2599. where == NULL ? "startup" : where);
  2600. }
  2601. if (fd != i)
  2602. {
  2603. (void) dup2(i, fd);
  2604. (void) close(i);
  2605. }
  2606. }
  2607. /*
  2608. **  TESTMODELINE -- process a test mode input line
  2609. **
  2610. ** Parameters:
  2611. ** line -- the input line.
  2612. ** e -- the current environment.
  2613. ** Syntax:
  2614. ** #  a comment
  2615. ** .X process X as a configuration line
  2616. ** =X dump a configuration item (such as mailers)
  2617. ** $X dump a macro or class
  2618. ** /X try an activity
  2619. ** X  normal process through rule set X
  2620. */
  2622. static void
  2623. testmodeline(line, e)
  2624. char *line;
  2625. ENVELOPE *e;
  2626. {
  2627. register char *p;
  2628. char *q;
  2629. auto char *delimptr;
  2630. int mid;
  2631. int i, rs;
  2632. STAB *map;
  2633. char **s;
  2634. struct rewrite *rw;
  2635. ADDRESS a;
  2636. static int tryflags = RF_COPYNONE;
  2637. char exbuf[MAXLINE];
  2638. extern u_char TokTypeNoC[];
  2640. #if _FFR_ADDR_TYPE
  2641. define(macid("{addr_type}", NULL), "e r", e);
  2642. #endif /* _FFR_ADDR_TYPE */
  2643. switch (line[0])
  2644. {
  2645.   case '#':
  2646.   case '':
  2647. return;
  2649.   case '?':
  2650. help("-bt", e);
  2651. return;
  2653.   case '.': /* config-style settings */
  2654. switch (line[1])
  2655. {
  2656.   case 'D':
  2657. mid = macid(&line[2], &delimptr);
  2658. if (mid == '')
  2659. return;
  2660. translate_dollars(delimptr);
  2661. define(mid, newstr(delimptr), e);
  2662. break;
  2664.   case 'C':
  2665. if (line[2] == '') /* not to call syserr() */
  2666. return;
  2668. mid = macid(&line[2], &delimptr);
  2669. if (mid == '')
  2670. return;
  2671. translate_dollars(delimptr);
  2672. expand(delimptr, exbuf, sizeof exbuf, e);
  2673. p = exbuf;
  2674. while (*p != '')
  2675. {
  2676. register char *wd;
  2677. char delim;
  2679. while (*p != '' && isascii(*p) && isspace(*p))
  2680. p++;
  2681. wd = p;
  2682. while (*p != '' && !(isascii(*p) && isspace(*p)))
  2683. p++;
  2684. delim = *p;
  2685. *p = '';
  2686. if (wd[0] != '')
  2687. setclass(mid, wd);
  2688. *p = delim;
  2689. }
  2690. break;
  2692.   case '':
  2693. printf("Usage: .[DC]macro value(s)n");
  2694. break;
  2696.   default:
  2697. printf("Unknown "." command %sn", line);
  2698. break;
  2699. }
  2700. return;
  2702.   case '=': /* config-style settings */
  2703. switch (line[1])
  2704. {
  2705.   case 'S': /* dump rule set */
  2706. rs = strtorwset(&line[2], NULL, ST_FIND);
  2707. if (rs < 0)
  2708. {
  2709. printf("Undefined ruleset %sn", &line[2]);
  2710. return;
  2711. }
  2712. rw = RewriteRules[rs];
  2713. if (rw == NULL)
  2714. return;
  2715. do
  2716. {
  2717. (void) putchar('R');
  2718. s = rw->r_lhs;
  2719. while (*s != NULL)
  2720. {
  2721. xputs(*s++);
  2722. (void) putchar(' ');
  2723. }
  2724. (void) putchar('t');
  2725. (void) putchar('t');
  2726. s = rw->r_rhs;
  2727. while (*s != NULL)
  2728. {
  2729. xputs(*s++);
  2730. (void) putchar(' ');
  2731. }
  2732. (void) putchar('n');
  2733. } while ((rw = rw->r_next) != NULL);
  2734. break;
  2736.   case 'M':
  2737. for (i = 0; i < MAXMAILERS; i++)
  2738. {
  2739. if (Mailer[i] != NULL)
  2740. printmailer(Mailer[i]);
  2741. }
  2742. break;
  2744.   case '':
  2745. printf("Usage: =Sruleset or =Mn");
  2746. break;
  2748.   default:
  2749. printf("Unknown "=" command %sn", line);
  2750. break;
  2751. }
  2752. return;
  2754.   case '-': /* set command-line-like opts */
  2755. switch (line[1])
  2756. {
  2757.   case 'd':
  2758. tTflag(&line[2]);
  2759. break;
  2761.   case '':
  2762. printf("Usage: -d{debug arguments}n");
  2763. break;
  2765.   default:
  2766. printf("Unknown "-" command %sn", line);
  2767. break;
  2768. }
  2769. return;
  2771.   case '$':
  2772. if (line[1] == '=')
  2773. {
  2774. mid = macid(&line[2], NULL);
  2775. if (mid != '')
  2776. stabapply(dump_class, mid);
  2777. return;
  2778. }
  2779. mid = macid(&line[1], NULL);
  2780. if (mid == '')
  2781. return;
  2782. p = macvalue(mid, e);
  2783. if (p == NULL)
  2784. printf("Undefinedn");
  2785. else
  2786. {
  2787. xputs(p);
  2788. printf("n");
  2789. }
  2790. return;
  2792.   case '/': /* miscellaneous commands */
  2793. p = &line[strlen(line)];
  2794. while (--p >= line && isascii(*p) && isspace(*p))
  2795. *p = '';
  2796. p = strpbrk(line, " t");
  2797. if (p != NULL)
  2798. {
  2799. while (isascii(*p) && isspace(*p))
  2800. *p++ = '';
  2801. }
  2802. else
  2803. p = "";
  2804. if (line[1] == '')
  2805. {
  2806. printf("Usage: /[canon|map|mx|parse|try|tryflags]n");
  2807. return;
  2808. }
  2809. if (strcasecmp(&line[1], "quit") == 0)
  2810. {
  2811. CurEnv->e_id = NULL;
  2812. finis(TRUE, ExitStat);
  2813. }
  2814. if (strcasecmp(&line[1], "mx") == 0)
  2815. {
  2816. #if NAMED_BIND
  2817. /* look up MX records */
  2818. int nmx;
  2819. auto int rcode;
  2820. char *mxhosts[MAXMXHOSTS + 1];
  2822. if (*p == '')
  2823. {
  2824. printf("Usage: /mx addressn");
  2825. return;
  2826. }
  2827. nmx = getmxrr(p, mxhosts, NULL, FALSE, &rcode);
  2828. printf("getmxrr(%s) returns %d value(s):n", p, nmx);
  2829. for (i = 0; i < nmx; i++)
  2830. printf("t%sn", mxhosts[i]);
  2831. #else /* NAMED_BIND */
  2832. printf("No MX code compiled inn");
  2833. #endif /* NAMED_BIND */
  2834. }
  2835. else if (strcasecmp(&line[1], "canon") == 0)
  2836. {
  2837. char host[MAXHOSTNAMELEN];
  2839. if (*p == '')
  2840. {
  2841. printf("Usage: /canon addressn");
  2842. return;
  2843. }
  2844. else if (strlcpy(host, p, sizeof host) >= sizeof host)
  2845. {
  2846. printf("Name too longn");
  2847. return;
  2848. }
  2849. (void) getcanonname(host, sizeof host, HasWildcardMX);
  2850. printf("getcanonname(%s) returns %sn", p, host);
  2851. }
  2852. else if (strcasecmp(&line[1], "map") == 0)
  2853. {
  2854. auto int rcode = EX_OK;
  2855. char *av[2];
  2857. if (*p == '')
  2858. {
  2859. printf("Usage: /map mapname keyn");
  2860. return;
  2861. }
  2862. for (q = p; *q != '' && !(isascii(*q) && isspace(*q)); q++)
  2863. continue;
  2864. if (*q == '')
  2865. {
  2866. printf("No key specifiedn");
  2867. return;
  2868. }
  2869. *q++ = '';
  2870. map = stab(p, ST_MAP, ST_FIND);
  2871. if (map == NULL)
  2872. {
  2873. printf("Map named "%s" not foundn", p);
  2874. return;
  2875. }
  2876. if (!bitset(MF_OPEN, map->s_map.map_mflags) &&
  2877.     !openmap(&(map->s_map)))
  2878. {
  2879. printf("Map named "%s" not openn", p);
  2880. return;
  2881. }
  2882. printf("map_lookup: %s (%s) ", p, q);
  2883. av[0] = q;
  2884. av[1] = NULL;
  2885. p = (*map->s_map.map_class->map_lookup)
  2886. (&map->s_map, q, av, &rcode);
  2887. if (p == NULL)
  2888. printf("no match (%d)n", rcode);
  2889. else
  2890. printf("returns %s (%d)n", p, rcode);
  2891. }
  2892. else if (strcasecmp(&line[1], "try") == 0)
  2893. {
  2894. MAILER *m;
  2895. STAB *st;
  2896. auto int rcode = EX_OK;
  2898. q = strpbrk(p, " t");
  2899. if (q != NULL)
  2900. {
  2901. while (isascii(*q) && isspace(*q))
  2902. *q++ = '';
  2903. }
  2904. if (q == NULL || *q == '')
  2905. {
  2906. printf("Usage: /try mailer addressn");
  2907. return;
  2908. }
  2909. st = stab(p, ST_MAILER, ST_FIND);
  2910. if (st == NULL)
  2911. {
  2912. printf("Unknown mailer %sn", p);
  2913. return;
  2914. }
  2915. m = st->s_mailer;
  2916. printf("Trying %s %s address %s for mailer %sn",
  2917. bitset(RF_HEADERADDR, tryflags) ? "header" : "envelope",
  2918. bitset(RF_SENDERADDR, tryflags) ? "sender" : "recipient",
  2919. q, p);
  2920. p = remotename(q, m, tryflags, &rcode, CurEnv);
  2921. printf("Rcode = %d, addr = %sn",
  2922. rcode, p == NULL ? "<NULL>" : p);
  2923. e->e_to = NULL;
  2924. }
  2925. else if (strcasecmp(&line[1], "tryflags") == 0)
  2926. {
  2927. if (*p == '')
  2928. {
  2929. printf("Usage: /tryflags [Hh|Ee][Ss|Rr]n");
  2930. return;
  2931. }
  2932. for (; *p != ''; p++)
  2933. {
  2934. switch (*p)
  2935. {
  2936.   case 'H':
  2937.   case 'h':
  2938. tryflags |= RF_HEADERADDR;
  2939. break;
  2941.   case 'E':
  2942.   case 'e':
  2943. tryflags &= ~RF_HEADERADDR;
  2944. break;
  2946.   case 'S':
  2947.   case 's':
  2948. tryflags |= RF_SENDERADDR;
  2949. break;
  2951.   case 'R':
  2952.   case 'r':
  2953. tryflags &= ~RF_SENDERADDR;
  2954. break;
  2955. }
  2956. }
  2957. #if _FFR_ADDR_TYPE
  2958. exbuf[0] = bitset(RF_HEADERADDR, tryflags) ? 'h' : 'e';
  2959. exbuf[1] = ' ';
  2960. exbuf[2] = bitset(RF_SENDERADDR, tryflags) ? 's' : 'r';
  2961. exbuf[3] = '';
  2962. define(macid("{addr_type}", NULL), newstr(exbuf), e);
  2963. #endif /* _FFR_ADDR_TYPE */
  2964. }
  2965. else if (strcasecmp(&line[1], "parse") == 0)
  2966. {
  2967. if (*p == '')
  2968. {
  2969. printf("Usage: /parse addressn");
  2970. return;
  2971. }
  2972. q = crackaddr(p);
  2973. printf("Cracked address = ");
  2974. xputs(q);
  2975. printf("nParsing %s %s addressn",
  2976. bitset(RF_HEADERADDR, tryflags) ? "header" : "envelope",
  2977. bitset(RF_SENDERADDR, tryflags) ? "sender" : "recipient");
  2978. if (parseaddr(p, &a, tryflags, '', NULL, e) == NULL)
  2979. printf("Cannot parsen");
  2980. else if (a.q_host != NULL && a.q_host[0] != '')
  2981. printf("mailer %s, host %s, user %sn",
  2982. a.q_mailer->m_name, a.q_host, a.q_user);
  2983. else
  2984. printf("mailer %s, user %sn",
  2985. a.q_mailer->m_name, a.q_user);
  2986. e->e_to = NULL;
  2987. }
  2988. else
  2989. {
  2990. printf("Unknown "/" command %sn", line);
  2991. }
  2992. return;
  2993. }
  2995. for (p = line; isascii(*p) && isspace(*p); p++)
  2996. continue;
  2997. q = p;
  2998. while (*p != '' && !(isascii(*p) && isspace(*p)))
  2999. p++;
  3000. if (*p == '')
  3001. {
  3002. printf("No address!n");
  3003. return;
  3004. }
  3005. *p = '';
  3006. if (invalidaddr(p + 1, NULL))
  3007. return;
  3008. do
  3009. {
  3010. register char **pvp;
  3011. char pvpbuf[PSBUFSIZE];
  3013. pvp = prescan(++p, ',', pvpbuf, sizeof pvpbuf,
  3014.       &delimptr, ConfigLevel >= 9 ? TokTypeNoC : NULL);
  3015. if (pvp == NULL)
  3016. continue;
  3017. p = q;
  3018. while (*p != '')
  3019. {
  3020. int status;
  3022. rs = strtorwset(p, NULL, ST_FIND);
  3023. if (rs < 0)
  3024. {
  3025. printf("Undefined ruleset %sn", p);
  3026. break;
  3027. }
  3028. status = rewrite(pvp, rs, 0, e);
  3029. if (status != EX_OK)
  3030. printf("== Ruleset %s (%d) status %dn",
  3031. p, rs, status);
  3032. while (*p != '' && *p++ != ',')
  3033. continue;
  3034. }
  3035. } while (*(p = delimptr) != '');
  3036. }
  3038. static void
  3039. dump_class(s, id)
  3040. register STAB *s;
  3041. int id;
  3042. {
  3043. if (s->s_type != ST_CLASS)
  3044. return;
  3045. if (bitnset(id & 0xff, s->s_class))
  3046. printf("%sn", s->s_name);
  3047. }