1N/A/*
1N/A * Copyright (c) 1998-2003, 2006 Sendmail, Inc. and its suppliers.
1N/A * All rights reserved.
1N/A * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved.
1N/A * Copyright (c) 1988, 1993
1N/A * The Regents of the University of California. All rights reserved.
1N/A *
1N/A * By using this file, you agree to the terms and conditions set
1N/A * forth in the LICENSE file which can be found at the top level of
1N/A * the sendmail distribution.
1N/A *
1N/A */
1N/A
1N/A#include <sendmail.h>
1N/A
1N/ASM_RCSID("@(#)$Id: savemail.c,v 8.314 2009/12/18 17:08:01 ca Exp $")
1N/A
1N/Astatic bool errbody __P((MCI *, ENVELOPE *, char *));
1N/Astatic bool pruneroute __P((char *));
1N/A
1N/A/*
1N/A** SAVEMAIL -- Save mail on error
1N/A**
1N/A** If mailing back errors, mail it back to the originator
1N/A** together with an error message; otherwise, just put it in
1N/A** dead.letter in the user's home directory (if he exists on
1N/A** this machine).
1N/A**
1N/A** Parameters:
1N/A** e -- the envelope containing the message in error.
1N/A** sendbody -- if true, also send back the body of the
1N/A** message; otherwise just send the header.
1N/A**
1N/A** Returns:
1N/A** true if savemail panic'ed, (i.e., the data file should
1N/A** be preserved by dropenvelope())
1N/A**
1N/A** Side Effects:
1N/A** Saves the letter, by writing or mailing it back to the
1N/A** sender, or by putting it in dead.letter in her home
1N/A** directory.
1N/A*/
1N/A
1N/A/* defines for state machine */
1N/A#define ESM_REPORT 0 /* report to sender's terminal */
1N/A#define ESM_MAIL 1 /* mail back to sender */
1N/A#define ESM_QUIET 2 /* mail has already been returned */
1N/A#define ESM_DEADLETTER 3 /* save in ~/dead.letter */
1N/A#define ESM_POSTMASTER 4 /* return to postmaster */
1N/A#define ESM_DEADLETTERDROP 5 /* save in DeadLetterDrop */
1N/A#define ESM_PANIC 6 /* call loseqfile() */
1N/A#define ESM_DONE 7 /* message is successfully delivered */
1N/A
1N/Abool
1N/Asavemail(e, sendbody)
1N/A register ENVELOPE *e;
1N/A bool sendbody;
1N/A{
1N/A register SM_FILE_T *fp;
1N/A bool panic = false;
1N/A int state;
1N/A auto ADDRESS *q = NULL;
1N/A register char *p;
1N/A MCI mcibuf;
1N/A int flags;
1N/A long sff;
1N/A char buf[MAXLINE + 1];
1N/A char dlbuf[MAXPATHLEN];
1N/A SM_MBDB_T user;
1N/A
1N/A
1N/A if (tTd(6, 1))
1N/A {
1N/A sm_dprintf("\nsavemail, errormode = %c, id = %s, ExitStat = %d\n e_from=",
1N/A e->e_errormode, e->e_id == NULL ? "NONE" : e->e_id,
1N/A ExitStat);
1N/A printaddr(sm_debug_file(), &e->e_from, false);
1N/A }
1N/A
1N/A if (e->e_id == NULL)
1N/A {
1N/A /* can't return a message with no id */
1N/A return panic;
1N/A }
1N/A
1N/A /*
1N/A ** In the unhappy event we don't know who to return the mail
1N/A ** to, make someone up.
1N/A */
1N/A
1N/A if (e->e_from.q_paddr == NULL)
1N/A {
1N/A e->e_sender = "Postmaster";
1N/A if (parseaddr(e->e_sender, &e->e_from,
1N/A RF_COPYPARSE|RF_SENDERADDR,
1N/A '\0', NULL, e, false) == NULL)
1N/A {
1N/A syserr("553 5.3.5 Cannot parse Postmaster!");
1N/A finis(true, true, EX_SOFTWARE);
1N/A }
1N/A }
1N/A e->e_to = NULL;
1N/A
1N/A /*
1N/A ** Basic state machine.
1N/A **
1N/A ** This machine runs through the following states:
1N/A **
1N/A ** ESM_QUIET Errors have already been printed iff the
1N/A ** sender is local.
1N/A ** ESM_REPORT Report directly to the sender's terminal.
1N/A ** ESM_MAIL Mail response to the sender.
1N/A ** ESM_DEADLETTER Save response in ~/dead.letter.
1N/A ** ESM_POSTMASTER Mail response to the postmaster.
1N/A ** ESM_DEADLETTERDROP
1N/A ** If DeadLetterDrop set, save it there.
1N/A ** ESM_PANIC Save response anywhere possible.
1N/A */
1N/A
1N/A /* determine starting state */
1N/A switch (e->e_errormode)
1N/A {
1N/A case EM_WRITE:
1N/A state = ESM_REPORT;
1N/A break;
1N/A
1N/A case EM_BERKNET:
1N/A case EM_MAIL:
1N/A state = ESM_MAIL;
1N/A break;
1N/A
1N/A case EM_PRINT:
1N/A case '\0':
1N/A state = ESM_QUIET;
1N/A break;
1N/A
1N/A case EM_QUIET:
1N/A /* no need to return anything at all */
1N/A return panic;
1N/A
1N/A default:
1N/A syserr("554 5.3.0 savemail: bogus errormode x%x",
1N/A e->e_errormode);
1N/A state = ESM_MAIL;
1N/A break;
1N/A }
1N/A
1N/A /* if this is already an error response, send to postmaster */
1N/A if (bitset(EF_RESPONSE, e->e_flags))
1N/A {
1N/A if (e->e_parent != NULL &&
1N/A bitset(EF_RESPONSE, e->e_parent->e_flags))
1N/A {
1N/A /* got an error sending a response -- can it */
1N/A return panic;
1N/A }
1N/A state = ESM_POSTMASTER;
1N/A }
1N/A
1N/A while (state != ESM_DONE)
1N/A {
1N/A if (tTd(6, 5))
1N/A sm_dprintf(" state %d\n", state);
1N/A
1N/A switch (state)
1N/A {
1N/A case ESM_QUIET:
1N/A if (bitnset(M_LOCALMAILER, e->e_from.q_mailer->m_flags))
1N/A state = ESM_DEADLETTER;
1N/A else
1N/A state = ESM_MAIL;
1N/A break;
1N/A
1N/A case ESM_REPORT:
1N/A
1N/A /*
1N/A ** If the user is still logged in on the same terminal,
1N/A ** then write the error messages back to hir (sic).
1N/A */
1N/A
1N/A#if USE_TTYPATH
1N/A p = ttypath();
1N/A#else /* USE_TTYPATH */
1N/A p = NULL;
1N/A#endif /* USE_TTYPATH */
1N/A
1N/A if (p == NULL || sm_io_reopen(SmFtStdio,
1N/A SM_TIME_DEFAULT,
1N/A p, SM_IO_WRONLY, NULL,
1N/A smioout) == NULL)
1N/A {
1N/A state = ESM_MAIL;
1N/A break;
1N/A }
1N/A
1N/A expand("\201n", buf, sizeof(buf), e);
1N/A (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
1N/A "\r\nMessage from %s...\r\n", buf);
1N/A (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
1N/A "Errors occurred while sending mail.\r\n");
1N/A if (e->e_xfp != NULL)
1N/A {
1N/A (void) bfrewind(e->e_xfp);
1N/A (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
1N/A "Transcript follows:\r\n");
1N/A while (sm_io_fgets(e->e_xfp, SM_TIME_DEFAULT,
1N/A buf, sizeof(buf)) != NULL &&
1N/A !sm_io_error(smioout))
1N/A (void) sm_io_fputs(smioout,
1N/A SM_TIME_DEFAULT,
1N/A buf);
1N/A }
1N/A else
1N/A {
1N/A syserr("Cannot open %s",
1N/A queuename(e, XSCRPT_LETTER));
1N/A (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
1N/A "Transcript of session is unavailable.\r\n");
1N/A }
1N/A (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
1N/A "Original message will be saved in dead.letter.\r\n");
1N/A state = ESM_DEADLETTER;
1N/A break;
1N/A
1N/A case ESM_MAIL:
1N/A /*
1N/A ** If mailing back, do it.
1N/A ** Throw away all further output. Don't alias,
1N/A ** since this could cause loops, e.g., if joe
1N/A ** mails to joe@x, and for some reason the network
1N/A ** for @x is down, then the response gets sent to
1N/A ** joe@x, which gives a response, etc. Also force
1N/A ** the mail to be delivered even if a version of
1N/A ** it has already been sent to the sender.
1N/A **
1N/A ** If this is a configuration or local software
1N/A ** error, send to the local postmaster as well,
1N/A ** since the originator can't do anything
1N/A ** about it anyway. Note that this is a full
1N/A ** copy of the message (intentionally) so that
1N/A ** the Postmaster can forward things along.
1N/A */
1N/A
1N/A if (ExitStat == EX_CONFIG || ExitStat == EX_SOFTWARE)
1N/A {
1N/A (void) sendtolist("postmaster", NULLADDR,
1N/A &e->e_errorqueue, 0, e);
1N/A }
1N/A if (!emptyaddr(&e->e_from))
1N/A {
1N/A char from[TOBUFSIZE];
1N/A
1N/A if (sm_strlcpy(from, e->e_from.q_paddr,
1N/A sizeof(from)) >= sizeof(from))
1N/A {
1N/A state = ESM_POSTMASTER;
1N/A break;
1N/A }
1N/A
1N/A if (!DontPruneRoutes)
1N/A (void) pruneroute(from);
1N/A
1N/A (void) sendtolist(from, NULLADDR,
1N/A &e->e_errorqueue, 0, e);
1N/A }
1N/A
1N/A /*
1N/A ** Deliver a non-delivery report to the
1N/A ** Postmaster-designate (not necessarily
1N/A ** Postmaster). This does not include the
1N/A ** body of the message, for privacy reasons.
1N/A ** You really shouldn't need this.
1N/A */
1N/A
1N/A e->e_flags |= EF_PM_NOTIFY;
1N/A
1N/A /* check to see if there are any good addresses */
1N/A for (q = e->e_errorqueue; q != NULL; q = q->q_next)
1N/A {
1N/A if (QS_IS_SENDABLE(q->q_state))
1N/A break;
1N/A }
1N/A if (q == NULL)
1N/A {
1N/A /* this is an error-error */
1N/A state = ESM_POSTMASTER;
1N/A break;
1N/A }
1N/A if (returntosender(e->e_message, e->e_errorqueue,
1N/A sendbody ? RTSF_SEND_BODY
1N/A : RTSF_NO_BODY,
1N/A e) == 0)
1N/A {
1N/A state = ESM_DONE;
1N/A break;
1N/A }
1N/A
1N/A /* didn't work -- return to postmaster */
1N/A state = ESM_POSTMASTER;
1N/A break;
1N/A
1N/A case ESM_POSTMASTER:
1N/A /*
1N/A ** Similar to previous case, but to system postmaster.
1N/A */
1N/A
1N/A q = NULL;
1N/A expand(DoubleBounceAddr, buf, sizeof(buf), e);
1N/A
1N/A /*
1N/A ** Just drop it on the floor if DoubleBounceAddr
1N/A ** expands to an empty string.
1N/A */
1N/A
1N/A if (*buf == '\0')
1N/A {
1N/A state = ESM_DONE;
1N/A break;
1N/A }
1N/A if (sendtolist(buf, NULLADDR, &q, 0, e) <= 0)
1N/A {
1N/A syserr("553 5.3.0 cannot parse %s!", buf);
1N/A ExitStat = EX_SOFTWARE;
1N/A state = ESM_DEADLETTERDROP;
1N/A break;
1N/A }
1N/A flags = RTSF_PM_BOUNCE;
1N/A if (sendbody)
1N/A flags |= RTSF_SEND_BODY;
1N/A if (returntosender(e->e_message, q, flags, e) == 0)
1N/A {
1N/A state = ESM_DONE;
1N/A break;
1N/A }
1N/A
1N/A /* didn't work -- last resort */
1N/A state = ESM_DEADLETTERDROP;
1N/A break;
1N/A
1N/A case ESM_DEADLETTER:
1N/A /*
1N/A ** Save the message in dead.letter.
1N/A ** If we weren't mailing back, and the user is
1N/A ** local, we should save the message in
1N/A ** ~/dead.letter so that the poor person doesn't
1N/A ** have to type it over again -- and we all know
1N/A ** what poor typists UNIX users are.
1N/A */
1N/A
1N/A p = NULL;
1N/A if (bitnset(M_HASPWENT, e->e_from.q_mailer->m_flags))
1N/A {
1N/A if (e->e_from.q_home != NULL)
1N/A p = e->e_from.q_home;
1N/A else if (sm_mbdb_lookup(e->e_from.q_user, &user)
1N/A == EX_OK &&
1N/A *user.mbdb_homedir != '\0')
1N/A p = user.mbdb_homedir;
1N/A }
1N/A if (p == NULL || e->e_dfp == NULL)
1N/A {
1N/A /* no local directory or no data file */
1N/A state = ESM_MAIL;
1N/A break;
1N/A }
1N/A
1N/A /* we have a home directory; write dead.letter */
1N/A macdefine(&e->e_macro, A_TEMP, 'z', p);
1N/A
1N/A /* get the sender for the UnixFromLine */
1N/A p = macvalue('g', e);
1N/A macdefine(&e->e_macro, A_PERM, 'g', e->e_sender);
1N/A
1N/A expand("\201z/dead.letter", dlbuf, sizeof(dlbuf), e);
1N/A sff = SFF_CREAT|SFF_REGONLY|SFF_RUNASREALUID;
1N/A if (RealUid == 0)
1N/A sff |= SFF_ROOTOK;
1N/A e->e_to = dlbuf;
1N/A if (writable(dlbuf, NULL, sff) &&
1N/A mailfile(dlbuf, FileMailer, NULL, sff, e) == EX_OK)
1N/A {
1N/A int oldverb = Verbose;
1N/A
1N/A if (OpMode != MD_DAEMON && OpMode != MD_SMTP)
1N/A Verbose = 1;
1N/A if (Verbose > 0)
1N/A message("Saved message in %s", dlbuf);
1N/A Verbose = oldverb;
1N/A macdefine(&e->e_macro, A_PERM, 'g', p);
1N/A state = ESM_DONE;
1N/A break;
1N/A }
1N/A macdefine(&e->e_macro, A_PERM, 'g', p);
1N/A state = ESM_MAIL;
1N/A break;
1N/A
1N/A case ESM_DEADLETTERDROP:
1N/A /*
1N/A ** Log the mail in DeadLetterDrop file.
1N/A */
1N/A
1N/A if (e->e_class < 0)
1N/A {
1N/A state = ESM_DONE;
1N/A break;
1N/A }
1N/A
1N/A if ((SafeFileEnv != NULL && SafeFileEnv[0] != '\0') ||
1N/A DeadLetterDrop == NULL ||
1N/A DeadLetterDrop[0] == '\0')
1N/A {
1N/A state = ESM_PANIC;
1N/A break;
1N/A }
1N/A
1N/A sff = SFF_CREAT|SFF_REGONLY|SFF_ROOTOK|SFF_OPENASROOT|SFF_MUSTOWN;
1N/A if (!writable(DeadLetterDrop, NULL, sff) ||
1N/A (fp = safefopen(DeadLetterDrop, O_WRONLY|O_APPEND,
1N/A FileMode, sff)) == NULL)
1N/A {
1N/A state = ESM_PANIC;
1N/A break;
1N/A }
1N/A
1N/A memset(&mcibuf, '\0', sizeof(mcibuf));
1N/A mcibuf.mci_out = fp;
1N/A mcibuf.mci_mailer = FileMailer;
1N/A if (bitnset(M_7BITS, FileMailer->m_flags))
1N/A mcibuf.mci_flags |= MCIF_7BIT;
1N/A
1N/A /* get the sender for the UnixFromLine */
1N/A p = macvalue('g', e);
1N/A macdefine(&e->e_macro, A_PERM, 'g', e->e_sender);
1N/A
1N/A if (!putfromline(&mcibuf, e) ||
1N/A !(*e->e_puthdr)(&mcibuf, e->e_header, e,
1N/A M87F_OUTER) ||
1N/A !(*e->e_putbody)(&mcibuf, e, NULL) ||
1N/A !putline("\n", &mcibuf) ||
1N/A sm_io_flush(fp, SM_TIME_DEFAULT) == SM_IO_EOF ||
1N/A sm_io_error(fp) ||
1N/A sm_io_close(fp, SM_TIME_DEFAULT) < 0)
1N/A state = ESM_PANIC;
1N/A else
1N/A {
1N/A int oldverb = Verbose;
1N/A
1N/A if (OpMode != MD_DAEMON && OpMode != MD_SMTP)
1N/A Verbose = 1;
1N/A if (Verbose > 0)
1N/A message("Saved message in %s",
1N/A DeadLetterDrop);
1N/A Verbose = oldverb;
1N/A if (LogLevel > 3)
1N/A sm_syslog(LOG_NOTICE, e->e_id,
1N/A "Saved message in %s",
1N/A DeadLetterDrop);
1N/A state = ESM_DONE;
1N/A }
1N/A macdefine(&e->e_macro, A_PERM, 'g', p);
1N/A break;
1N/A
1N/A default:
1N/A syserr("554 5.3.5 savemail: unknown state %d", state);
1N/A /* FALLTHROUGH */
1N/A
1N/A case ESM_PANIC:
1N/A /* leave the locked queue & transcript files around */
1N/A loseqfile(e, "savemail panic");
1N/A panic = true;
1N/A errno = 0;
1N/A syserr("554 savemail: cannot save rejected email anywhere");
1N/A state = ESM_DONE;
1N/A break;
1N/A }
1N/A }
1N/A return panic;
1N/A}
1N/A/*
1N/A** RETURNTOSENDER -- return a message to the sender with an error.
1N/A**
1N/A** Parameters:
1N/A** msg -- the explanatory message.
1N/A** returnq -- the queue of people to send the message to.
1N/A** flags -- flags tweaking the operation:
1N/A** RTSF_SENDBODY -- include body of message (otherwise
1N/A** just send the header).
1N/A** RTSF_PMBOUNCE -- this is a postmaster bounce.
1N/A** e -- the current envelope.
1N/A**
1N/A** Returns:
1N/A** zero -- if everything went ok.
1N/A** else -- some error.
1N/A**
1N/A** Side Effects:
1N/A** Returns the current message to the sender via mail.
1N/A*/
1N/A
1N/A#define MAXRETURNS 6 /* max depth of returning messages */
1N/A#define ERRORFUDGE 1024 /* nominal size of error message text */
1N/A
1N/Aint
1N/Areturntosender(msg, returnq, flags, e)
1N/A char *msg;
1N/A ADDRESS *returnq;
1N/A int flags;
1N/A register ENVELOPE *e;
1N/A{
1N/A register ENVELOPE *ee;
1N/A ENVELOPE *oldcur = CurEnv;
1N/A ENVELOPE errenvelope;
1N/A static int returndepth = 0;
1N/A register ADDRESS *q;
1N/A char *p;
1N/A char buf[MAXNAME + 1];
1N/A
1N/A if (returnq == NULL)
1N/A return -1;
1N/A
1N/A if (msg == NULL)
1N/A msg = "Unable to deliver mail";
1N/A
1N/A if (tTd(6, 1))
1N/A {
1N/A sm_dprintf("\n*** Return To Sender: msg=\"%s\", depth=%d, e=%p, returnq=",
1N/A msg, returndepth, e);
1N/A printaddr(sm_debug_file(), returnq, true);
1N/A if (tTd(6, 20))
1N/A {
1N/A sm_dprintf("Sendq=");
1N/A printaddr(sm_debug_file(), e->e_sendqueue, true);
1N/A }
1N/A }
1N/A
1N/A if (++returndepth >= MAXRETURNS)
1N/A {
1N/A if (returndepth != MAXRETURNS)
1N/A syserr("554 5.3.0 returntosender: infinite recursion on %s",
1N/A returnq->q_paddr);
1N/A /* don't "unrecurse" and fake a clean exit */
1N/A /* returndepth--; */
1N/A return 0;
1N/A }
1N/A
1N/A macdefine(&e->e_macro, A_PERM, 'g', e->e_sender);
1N/A macdefine(&e->e_macro, A_PERM, 'u', NULL);
1N/A
1N/A /* initialize error envelope */
1N/A ee = newenvelope(&errenvelope, e, sm_rpool_new_x(NULL));
1N/A macdefine(&ee->e_macro, A_PERM, 'a', "\201b");
1N/A macdefine(&ee->e_macro, A_PERM, 'r', "");
1N/A macdefine(&ee->e_macro, A_PERM, 's', "localhost");
1N/A macdefine(&ee->e_macro, A_PERM, '_', "localhost");
1N/A clrsessenvelope(ee);
1N/A
1N/A ee->e_puthdr = putheader;
1N/A ee->e_putbody = errbody;
1N/A ee->e_flags |= EF_RESPONSE|EF_METOO;
1N/A if (!bitset(EF_OLDSTYLE, e->e_flags))
1N/A ee->e_flags &= ~EF_OLDSTYLE;
1N/A if (bitset(EF_DONT_MIME, e->e_flags))
1N/A {
1N/A ee->e_flags |= EF_DONT_MIME;
1N/A
1N/A /*
1N/A ** If we can't convert to MIME and we don't pass
1N/A ** 8-bit, we can't send the body.
1N/A */
1N/A
1N/A if (bitset(EF_HAS8BIT, e->e_flags) &&
1N/A !bitset(MM_PASS8BIT, MimeMode))
1N/A flags &= ~RTSF_SEND_BODY;
1N/A }
1N/A
1N/A ee->e_sendqueue = returnq;
1N/A ee->e_msgsize = 0;
1N/A if (bitset(RTSF_SEND_BODY, flags) &&
1N/A !bitset(PRIV_NOBODYRETN, PrivacyFlags))
1N/A ee->e_msgsize = ERRORFUDGE + e->e_msgsize;
1N/A else
1N/A ee->e_flags |= EF_NO_BODY_RETN;
1N/A
1N/A if (!setnewqueue(ee))
1N/A {
1N/A syserr("554 5.3.0 returntosender: cannot select queue for %s",
1N/A returnq->q_paddr);
1N/A ExitStat = EX_UNAVAILABLE;
1N/A returndepth--;
1N/A return -1;
1N/A }
1N/A initsys(ee);
1N/A
1N/A#if NAMED_BIND
1N/A _res.retry = TimeOuts.res_retry[RES_TO_FIRST];
1N/A _res.retrans = TimeOuts.res_retrans[RES_TO_FIRST];
1N/A#endif /* NAMED_BIND */
1N/A for (q = returnq; q != NULL; q = q->q_next)
1N/A {
1N/A if (QS_IS_BADADDR(q->q_state))
1N/A continue;
1N/A
1N/A q->q_flags &= ~(QHASNOTIFY|Q_PINGFLAGS);
1N/A q->q_flags |= QPINGONFAILURE;
1N/A
1N/A if (!QS_IS_DEAD(q->q_state))
1N/A ee->e_nrcpts++;
1N/A
1N/A if (q->q_alias == NULL)
1N/A addheader("To", q->q_paddr, 0, ee, true);
1N/A }
1N/A
1N/A if (LogLevel > 5)
1N/A {
1N/A if (bitset(EF_RESPONSE, e->e_flags))
1N/A p = "return to sender";
1N/A else if (bitset(EF_WARNING, e->e_flags))
1N/A p = "sender notify";
1N/A else if (bitset(RTSF_PM_BOUNCE, flags))
1N/A p = "postmaster notify";
1N/A else
1N/A p = "DSN";
1N/A sm_syslog(LOG_INFO, e->e_id, "%s: %s: %s",
1N/A ee->e_id, p, shortenstring(msg, MAXSHORTSTR));
1N/A }
1N/A
1N/A if (SendMIMEErrors)
1N/A {
1N/A addheader("MIME-Version", "1.0", 0, ee, true);
1N/A (void) sm_snprintf(buf, sizeof(buf), "%s.%ld/%.100s",
1N/A ee->e_id, (long)curtime(), MyHostName);
1N/A ee->e_msgboundary = sm_rpool_strdup_x(ee->e_rpool, buf);
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A#if DSN
1N/A "multipart/report; report-type=delivery-status;\n\tboundary=\"%s\"",
1N/A#else /* DSN */
1N/A "multipart/mixed; boundary=\"%s\"",
1N/A#endif /* DSN */
1N/A ee->e_msgboundary);
1N/A addheader("Content-Type", buf, 0, ee, true);
1N/A
1N/A p = hvalue("Content-Transfer-Encoding", e->e_header);
1N/A if (p != NULL && sm_strcasecmp(p, "binary") != 0)
1N/A p = NULL;
1N/A if (p == NULL && bitset(EF_HAS8BIT, e->e_flags))
1N/A p = "8bit";
1N/A if (p != NULL)
1N/A addheader("Content-Transfer-Encoding", p, 0, ee, true);
1N/A }
1N/A if (strncmp(msg, "Warning:", 8) == 0)
1N/A {
1N/A addheader("Subject", msg, 0, ee, true);
1N/A p = "warning-timeout";
1N/A }
1N/A else if (strncmp(msg, "Postmaster warning:", 19) == 0)
1N/A {
1N/A addheader("Subject", msg, 0, ee, true);
1N/A p = "postmaster-warning";
1N/A }
1N/A else if (strcmp(msg, "Return receipt") == 0)
1N/A {
1N/A addheader("Subject", msg, 0, ee, true);
1N/A p = "return-receipt";
1N/A }
1N/A else if (bitset(RTSF_PM_BOUNCE, flags))
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Postmaster notify: see transcript for details");
1N/A addheader("Subject", buf, 0, ee, true);
1N/A p = "postmaster-notification";
1N/A }
1N/A else
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Returned mail: see transcript for details");
1N/A addheader("Subject", buf, 0, ee, true);
1N/A p = "failure";
1N/A }
1N/A (void) sm_snprintf(buf, sizeof(buf), "auto-generated (%s)", p);
1N/A addheader("Auto-Submitted", buf, 0, ee, true);
1N/A
1N/A /* fake up an address header for the from person */
1N/A expand("\201n", buf, sizeof(buf), e);
1N/A if (parseaddr(buf, &ee->e_from,
1N/A RF_COPYALL|RF_SENDERADDR, '\0', NULL, e, false) == NULL)
1N/A {
1N/A syserr("553 5.3.5 Can't parse myself!");
1N/A ExitStat = EX_SOFTWARE;
1N/A returndepth--;
1N/A return -1;
1N/A }
1N/A ee->e_from.q_flags &= ~(QHASNOTIFY|Q_PINGFLAGS);
1N/A ee->e_from.q_flags |= QPINGONFAILURE;
1N/A ee->e_sender = ee->e_from.q_paddr;
1N/A
1N/A /* push state into submessage */
1N/A CurEnv = ee;
1N/A macdefine(&ee->e_macro, A_PERM, 'f', "\201n");
1N/A macdefine(&ee->e_macro, A_PERM, 'x', "Mail Delivery Subsystem");
1N/A eatheader(ee, true, true);
1N/A
1N/A /* mark statistics */
1N/A markstats(ee, NULLADDR, STATS_NORMAL);
1N/A
1N/A /* actually deliver the error message */
1N/A sendall(ee, SM_DELIVER);
1N/A
1N/A /* restore state */
1N/A (void) dropenvelope(ee, true, false);
1N/A sm_rpool_free(ee->e_rpool);
1N/A CurEnv = oldcur;
1N/A returndepth--;
1N/A
1N/A /* check for delivery errors */
1N/A if (ee->e_parent == NULL ||
1N/A !bitset(EF_RESPONSE, ee->e_parent->e_flags))
1N/A return 0;
1N/A for (q = ee->e_sendqueue; q != NULL; q = q->q_next)
1N/A {
1N/A if (QS_IS_ATTEMPTED(q->q_state))
1N/A return 0;
1N/A }
1N/A return -1;
1N/A}
1N/A/*
1N/A** ERRBODY -- output the body of an error message.
1N/A**
1N/A** Typically this is a copy of the transcript plus a copy of the
1N/A** original offending message.
1N/A**
1N/A** Parameters:
1N/A** mci -- the mailer connection information.
1N/A** e -- the envelope we are working in.
1N/A** separator -- any possible MIME separator (unused).
1N/A**
1N/A** Returns:
1N/A** true iff body was written successfully
1N/A**
1N/A** Side Effects:
1N/A** Outputs the body of an error message.
1N/A*/
1N/A
1N/A/* ARGSUSED2 */
1N/Astatic bool
1N/Aerrbody(mci, e, separator)
1N/A register MCI *mci;
1N/A register ENVELOPE *e;
1N/A char *separator;
1N/A{
1N/A bool printheader;
1N/A bool sendbody;
1N/A bool pm_notify;
1N/A int save_errno;
1N/A register SM_FILE_T *xfile;
1N/A char *p;
1N/A register ADDRESS *q = NULL;
1N/A char actual[MAXLINE];
1N/A char buf[MAXLINE];
1N/A
1N/A if (bitset(MCIF_INHEADER, mci->mci_flags))
1N/A {
1N/A if (!putline("", mci))
1N/A goto writeerr;
1N/A mci->mci_flags &= ~MCIF_INHEADER;
1N/A }
1N/A if (e->e_parent == NULL)
1N/A {
1N/A syserr("errbody: null parent");
1N/A if (!putline(" ----- Original message lost -----\n", mci))
1N/A goto writeerr;
1N/A return true;
1N/A }
1N/A
1N/A /*
1N/A ** Output MIME header.
1N/A */
1N/A
1N/A if (e->e_msgboundary != NULL)
1N/A {
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2, "--", e->e_msgboundary);
1N/A if (!putline("This is a MIME-encapsulated message", mci) ||
1N/A !putline("", mci) ||
1N/A !putline(buf, mci) ||
1N/A !putline("", mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A /*
1N/A ** Output introductory information.
1N/A */
1N/A
1N/A pm_notify = false;
1N/A p = hvalue("subject", e->e_header);
1N/A if (p != NULL && strncmp(p, "Postmaster ", 11) == 0)
1N/A pm_notify = true;
1N/A else
1N/A {
1N/A for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
1N/A {
1N/A if (QS_IS_BADADDR(q->q_state))
1N/A break;
1N/A }
1N/A }
1N/A if (!pm_notify && q == NULL &&
1N/A !bitset(EF_FATALERRS|EF_SENDRECEIPT, e->e_parent->e_flags))
1N/A {
1N/A if (!putline(" **********************************************",
1N/A mci) ||
1N/A !putline(" ** THIS IS A WARNING MESSAGE ONLY **",
1N/A mci) ||
1N/A !putline(" ** YOU DO NOT NEED TO RESEND YOUR MESSAGE **",
1N/A mci) ||
1N/A !putline(" **********************************************",
1N/A mci) ||
1N/A !putline("", mci))
1N/A goto writeerr;
1N/A }
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "The original message was received at %s",
1N/A arpadate(ctime(&e->e_parent->e_ctime)));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A expand("from \201_", buf, sizeof(buf), e->e_parent);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A
1N/A /* include id in postmaster copies */
1N/A if (pm_notify && e->e_parent->e_id != NULL)
1N/A {
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2, "with id ",
1N/A e->e_parent->e_id);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A if (!putline("", mci))
1N/A goto writeerr;
1N/A
1N/A /*
1N/A ** Output error message header (if specified and available).
1N/A */
1N/A
1N/A if (ErrMsgFile != NULL &&
1N/A !bitset(EF_SENDRECEIPT, e->e_parent->e_flags))
1N/A {
1N/A if (*ErrMsgFile == '/')
1N/A {
1N/A long sff = SFF_ROOTOK|SFF_REGONLY;
1N/A
1N/A if (DontLockReadFiles)
1N/A sff |= SFF_NOLOCK;
1N/A if (!bitnset(DBS_ERRORHEADERINUNSAFEDIRPATH,
1N/A DontBlameSendmail))
1N/A sff |= SFF_SAFEDIRPATH;
1N/A xfile = safefopen(ErrMsgFile, O_RDONLY, 0444, sff);
1N/A if (xfile != NULL)
1N/A {
1N/A while (sm_io_fgets(xfile, SM_TIME_DEFAULT, buf,
1N/A sizeof(buf)) != NULL)
1N/A {
1N/A int lbs;
1N/A bool putok;
1N/A char *lbp;
1N/A
1N/A lbs = sizeof(buf);
1N/A lbp = translate_dollars(buf, buf, &lbs);
1N/A expand(lbp, lbp, lbs, e);
1N/A putok = putline(lbp, mci);
1N/A if (lbp != buf)
1N/A sm_free(lbp);
1N/A if (!putok)
1N/A goto writeerr;
1N/A }
1N/A (void) sm_io_close(xfile, SM_TIME_DEFAULT);
1N/A if (!putline("\n", mci))
1N/A goto writeerr;
1N/A }
1N/A }
1N/A else
1N/A {
1N/A expand(ErrMsgFile, buf, sizeof(buf), e);
1N/A if (!putline(buf, mci) || !putline("", mci))
1N/A goto writeerr;
1N/A }
1N/A }
1N/A
1N/A /*
1N/A ** Output message introduction
1N/A */
1N/A
1N/A /* permanent fatal errors */
1N/A printheader = true;
1N/A for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
1N/A {
1N/A if (!QS_IS_BADADDR(q->q_state) ||
1N/A !bitset(QPINGONFAILURE, q->q_flags))
1N/A continue;
1N/A
1N/A if (printheader)
1N/A {
1N/A if (!putline(" ----- The following addresses had permanent fatal errors -----",
1N/A mci))
1N/A goto writeerr;
1N/A printheader = false;
1N/A }
1N/A
1N/A (void) sm_strlcpy(buf, shortenstring(q->q_paddr, MAXSHORTSTR),
1N/A sizeof(buf));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A if (q->q_rstatus != NULL)
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A " (reason: %s)",
1N/A shortenstring(exitstat(q->q_rstatus),
1N/A MAXSHORTSTR));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A if (q->q_alias != NULL)
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A " (expanded from: %s)",
1N/A shortenstring(q->q_alias->q_paddr,
1N/A MAXSHORTSTR));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A }
1N/A if (!printheader && !putline("", mci))
1N/A goto writeerr;
1N/A
1N/A /* transient non-fatal errors */
1N/A printheader = true;
1N/A for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
1N/A {
1N/A if (QS_IS_BADADDR(q->q_state) ||
1N/A !bitset(QPRIMARY, q->q_flags) ||
1N/A !bitset(QBYNDELAY, q->q_flags) ||
1N/A !bitset(QDELAYED, q->q_flags))
1N/A continue;
1N/A
1N/A if (printheader)
1N/A {
1N/A if (!putline(" ----- The following addresses had transient non-fatal errors -----",
1N/A mci))
1N/A goto writeerr;
1N/A printheader = false;
1N/A }
1N/A
1N/A (void) sm_strlcpy(buf, shortenstring(q->q_paddr, MAXSHORTSTR),
1N/A sizeof(buf));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A if (q->q_alias != NULL)
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A " (expanded from: %s)",
1N/A shortenstring(q->q_alias->q_paddr,
1N/A MAXSHORTSTR));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A }
1N/A if (!printheader && !putline("", mci))
1N/A goto writeerr;
1N/A
1N/A /* successful delivery notifications */
1N/A printheader = true;
1N/A for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
1N/A {
1N/A if (QS_IS_BADADDR(q->q_state) ||
1N/A !bitset(QPRIMARY, q->q_flags) ||
1N/A bitset(QBYNDELAY, q->q_flags) ||
1N/A bitset(QDELAYED, q->q_flags))
1N/A continue;
1N/A else if (bitset(QBYNRELAY, q->q_flags))
1N/A p = "Deliver-By notify: relayed";
1N/A else if (bitset(QBYTRACE, q->q_flags))
1N/A p = "Deliver-By trace: relayed";
1N/A else if (!bitset(QPINGONSUCCESS, q->q_flags))
1N/A continue;
1N/A else if (bitset(QRELAYED, q->q_flags))
1N/A p = "relayed to non-DSN-aware mailer";
1N/A else if (bitset(QDELIVERED, q->q_flags))
1N/A {
1N/A if (bitset(QEXPANDED, q->q_flags))
1N/A p = "successfully delivered to mailing list";
1N/A else
1N/A p = "successfully delivered to mailbox";
1N/A }
1N/A else if (bitset(QEXPANDED, q->q_flags))
1N/A p = "expanded by alias";
1N/A else
1N/A continue;
1N/A
1N/A if (printheader)
1N/A {
1N/A if (!putline(" ----- The following addresses had successful delivery notifications -----",
1N/A mci))
1N/A goto writeerr;
1N/A printheader = false;
1N/A }
1N/A
1N/A (void) sm_snprintf(buf, sizeof(buf), "%s (%s)",
1N/A shortenstring(q->q_paddr, MAXSHORTSTR), p);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A if (q->q_alias != NULL)
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A " (expanded from: %s)",
1N/A shortenstring(q->q_alias->q_paddr,
1N/A MAXSHORTSTR));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A }
1N/A if (!printheader && !putline("", mci))
1N/A goto writeerr;
1N/A
1N/A /*
1N/A ** Output transcript of errors
1N/A */
1N/A
1N/A (void) sm_io_flush(smioout, SM_TIME_DEFAULT);
1N/A if (e->e_parent->e_xfp == NULL)
1N/A {
1N/A if (!putline(" ----- Transcript of session is unavailable -----\n",
1N/A mci))
1N/A goto writeerr;
1N/A }
1N/A else
1N/A {
1N/A printheader = true;
1N/A (void) bfrewind(e->e_parent->e_xfp);
1N/A if (e->e_xfp != NULL)
1N/A (void) sm_io_flush(e->e_xfp, SM_TIME_DEFAULT);
1N/A while (sm_io_fgets(e->e_parent->e_xfp, SM_TIME_DEFAULT, buf,
1N/A sizeof(buf)) != NULL)
1N/A {
1N/A if (printheader && !putline(" ----- Transcript of session follows -----\n",
1N/A mci))
1N/A goto writeerr;
1N/A printheader = false;
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A }
1N/A errno = 0;
1N/A
1N/A#if DSN
1N/A /*
1N/A ** Output machine-readable version.
1N/A */
1N/A
1N/A if (e->e_msgboundary != NULL)
1N/A {
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2, "--", e->e_msgboundary);
1N/A if (!putline("", mci) ||
1N/A !putline(buf, mci) ||
1N/A !putline("Content-Type: message/delivery-status", mci) ||
1N/A !putline("", mci))
1N/A goto writeerr;
1N/A
1N/A /*
1N/A ** Output per-message information.
1N/A */
1N/A
1N/A /* original envelope id from MAIL FROM: line */
1N/A if (e->e_parent->e_envid != NULL)
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Original-Envelope-Id: %.800s",
1N/A xuntextify(e->e_parent->e_envid));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A /* Reporting-MTA: is us (required) */
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Reporting-MTA: dns; %.800s", MyHostName);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A
1N/A /* DSN-Gateway: not relevant since we are not translating */
1N/A
1N/A /* Received-From-MTA: shows where we got this message from */
1N/A if (RealHostName != NULL)
1N/A {
1N/A /* XXX use $s for type? */
1N/A if (e->e_parent->e_from.q_mailer == NULL ||
1N/A (p = e->e_parent->e_from.q_mailer->m_mtatype) == NULL)
1N/A p = "dns";
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Received-From-MTA: %s; %.800s",
1N/A p, RealHostName);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A /* Arrival-Date: -- when it arrived here */
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2, "Arrival-Date: ",
1N/A arpadate(ctime(&e->e_parent->e_ctime)));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A
1N/A /* Deliver-By-Date: -- when it should have been delivered */
1N/A if (IS_DLVR_BY(e->e_parent))
1N/A {
1N/A time_t dbyd;
1N/A
1N/A dbyd = e->e_parent->e_ctime + e->e_parent->e_deliver_by;
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2,
1N/A "Deliver-By-Date: ",
1N/A arpadate(ctime(&dbyd)));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A /*
1N/A ** Output per-address information.
1N/A */
1N/A
1N/A for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
1N/A {
1N/A char *action;
1N/A
1N/A if (QS_IS_BADADDR(q->q_state))
1N/A {
1N/A /* RFC 1891, 6.2.6 (b) */
1N/A if (bitset(QHASNOTIFY, q->q_flags) &&
1N/A !bitset(QPINGONFAILURE, q->q_flags))
1N/A continue;
1N/A action = "failed";
1N/A }
1N/A else if (!bitset(QPRIMARY, q->q_flags))
1N/A continue;
1N/A else if (bitset(QDELIVERED, q->q_flags))
1N/A {
1N/A if (bitset(QEXPANDED, q->q_flags))
1N/A action = "delivered (to mailing list)";
1N/A else
1N/A action = "delivered (to mailbox)";
1N/A }
1N/A else if (bitset(QRELAYED, q->q_flags))
1N/A action = "relayed (to non-DSN-aware mailer)";
1N/A else if (bitset(QEXPANDED, q->q_flags))
1N/A action = "expanded (to multi-recipient alias)";
1N/A else if (bitset(QDELAYED, q->q_flags))
1N/A action = "delayed";
1N/A else if (bitset(QBYTRACE, q->q_flags))
1N/A action = "relayed (Deliver-By trace mode)";
1N/A else if (bitset(QBYNDELAY, q->q_flags))
1N/A action = "delayed (Deliver-By notify mode)";
1N/A else if (bitset(QBYNRELAY, q->q_flags))
1N/A action = "relayed (Deliver-By notify mode)";
1N/A else
1N/A continue;
1N/A
1N/A if (!putline("", mci))
1N/A goto writeerr;
1N/A
1N/A /* Original-Recipient: -- passed from on high */
1N/A if (q->q_orcpt != NULL)
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Original-Recipient: %.800s",
1N/A q->q_orcpt);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A /* Figure out actual recipient */
1N/A actual[0] = '\0';
1N/A if (q->q_user[0] != '\0')
1N/A {
1N/A if (q->q_mailer != NULL &&
1N/A q->q_mailer->m_addrtype != NULL)
1N/A p = q->q_mailer->m_addrtype;
1N/A else
1N/A p = "rfc822";
1N/A
1N/A if (sm_strcasecmp(p, "rfc822") == 0 &&
1N/A strchr(q->q_user, '@') == NULL)
1N/A {
1N/A (void) sm_snprintf(actual,
1N/A sizeof(actual),
1N/A "%s; %.700s@%.100s",
1N/A p, q->q_user,
1N/A MyHostName);
1N/A }
1N/A else
1N/A {
1N/A (void) sm_snprintf(actual,
1N/A sizeof(actual),
1N/A "%s; %.800s",
1N/A p, q->q_user);
1N/A }
1N/A }
1N/A
1N/A /* Final-Recipient: -- the name from the RCPT command */
1N/A if (q->q_finalrcpt == NULL)
1N/A {
1N/A /* should never happen */
1N/A sm_syslog(LOG_ERR, e->e_id,
1N/A "returntosender: q_finalrcpt is NULL");
1N/A
1N/A /* try to fall back to the actual recipient */
1N/A if (actual[0] != '\0')
1N/A q->q_finalrcpt = sm_rpool_strdup_x(e->e_rpool,
1N/A actual);
1N/A }
1N/A
1N/A if (q->q_finalrcpt != NULL)
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Final-Recipient: %s",
1N/A q->q_finalrcpt);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A /* X-Actual-Recipient: -- the real problem address */
1N/A if (actual[0] != '\0' &&
1N/A q->q_finalrcpt != NULL &&
1N/A !bitset(PRIV_NOACTUALRECIPIENT, PrivacyFlags) &&
1N/A strcmp(actual, q->q_finalrcpt) != 0)
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "X-Actual-Recipient: %s",
1N/A actual);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A /* Action: -- what happened? */
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2, "Action: ",
1N/A action);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A
1N/A /* Status: -- what _really_ happened? */
1N/A if (q->q_status != NULL)
1N/A p = q->q_status;
1N/A else if (QS_IS_BADADDR(q->q_state))
1N/A p = "5.0.0";
1N/A else if (QS_IS_QUEUEUP(q->q_state))
1N/A p = "4.0.0";
1N/A else
1N/A p = "2.0.0";
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2, "Status: ", p);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A
1N/A /* Remote-MTA: -- who was I talking to? */
1N/A if (q->q_statmta != NULL)
1N/A {
1N/A if (q->q_mailer == NULL ||
1N/A (p = q->q_mailer->m_mtatype) == NULL)
1N/A p = "dns";
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Remote-MTA: %s; %.800s",
1N/A p, q->q_statmta);
1N/A p = &buf[strlen(buf) - 1];
1N/A if (*p == '.')
1N/A *p = '\0';
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A /* Diagnostic-Code: -- actual result from other end */
1N/A if (q->q_rstatus != NULL)
1N/A {
1N/A if (q->q_mailer == NULL ||
1N/A (p = q->q_mailer->m_diagtype) == NULL)
1N/A p = "smtp";
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Diagnostic-Code: %s; %.800s",
1N/A p, q->q_rstatus);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A /* Last-Attempt-Date: -- fine granularity */
1N/A if (q->q_statdate == (time_t) 0L)
1N/A q->q_statdate = curtime();
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2,
1N/A "Last-Attempt-Date: ",
1N/A arpadate(ctime(&q->q_statdate)));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A
1N/A /* Will-Retry-Until: -- for delayed messages only */
1N/A if (QS_IS_QUEUEUP(q->q_state))
1N/A {
1N/A time_t xdate;
1N/A
1N/A xdate = e->e_parent->e_ctime +
1N/A TimeOuts.to_q_return[e->e_parent->e_timeoutclass];
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2,
1N/A "Will-Retry-Until: ",
1N/A arpadate(ctime(&xdate)));
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A }
1N/A }
1N/A#endif /* DSN */
1N/A
1N/A /*
1N/A ** Output text of original message
1N/A */
1N/A
1N/A if (!putline("", mci))
1N/A goto writeerr;
1N/A if (bitset(EF_HAS_DF, e->e_parent->e_flags))
1N/A {
1N/A sendbody = !bitset(EF_NO_BODY_RETN, e->e_parent->e_flags) &&
1N/A !bitset(EF_NO_BODY_RETN, e->e_flags);
1N/A
1N/A if (e->e_msgboundary == NULL)
1N/A {
1N/A if (!putline(
1N/A sendbody
1N/A ? " ----- Original message follows -----\n"
1N/A : " ----- Message header follows -----\n",
1N/A mci))
1N/A {
1N/A goto writeerr;
1N/A }
1N/A }
1N/A else
1N/A {
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2, "--",
1N/A e->e_msgboundary);
1N/A
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 2, "Content-Type: ",
1N/A sendbody ? "message/rfc822"
1N/A : "text/rfc822-headers");
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A
1N/A p = hvalue("Content-Transfer-Encoding",
1N/A e->e_parent->e_header);
1N/A if (p != NULL && sm_strcasecmp(p, "binary") != 0)
1N/A p = NULL;
1N/A if (p == NULL &&
1N/A bitset(EF_HAS8BIT, e->e_parent->e_flags))
1N/A p = "8bit";
1N/A if (p != NULL)
1N/A {
1N/A (void) sm_snprintf(buf, sizeof(buf),
1N/A "Content-Transfer-Encoding: %s",
1N/A p);
1N/A if (!putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A }
1N/A if (!putline("", mci))
1N/A goto writeerr;
1N/A save_errno = errno;
1N/A if (!putheader(mci, e->e_parent->e_header, e->e_parent,
1N/A M87F_OUTER))
1N/A goto writeerr;
1N/A errno = save_errno;
1N/A if (sendbody)
1N/A {
1N/A if (!putbody(mci, e->e_parent, e->e_msgboundary))
1N/A goto writeerr;
1N/A }
1N/A else if (e->e_msgboundary == NULL)
1N/A {
1N/A if (!putline("", mci) ||
1N/A !putline(" ----- Message body suppressed -----",
1N/A mci))
1N/A {
1N/A goto writeerr;
1N/A }
1N/A }
1N/A }
1N/A else if (e->e_msgboundary == NULL)
1N/A {
1N/A if (!putline(" ----- No message was collected -----\n", mci))
1N/A goto writeerr;
1N/A }
1N/A
1N/A if (e->e_msgboundary != NULL)
1N/A {
1N/A (void) sm_strlcpyn(buf, sizeof(buf), 3, "--", e->e_msgboundary,
1N/A "--");
1N/A if (!putline("", mci) || !putline(buf, mci))
1N/A goto writeerr;
1N/A }
1N/A if (!putline("", mci) ||
1N/A sm_io_flush(mci->mci_out, SM_TIME_DEFAULT) == SM_IO_EOF)
1N/A goto writeerr;
1N/A
1N/A /*
1N/A ** Cleanup and exit
1N/A */
1N/A
1N/A if (errno != 0)
1N/A {
1N/A writeerr:
1N/A syserr("errbody: I/O error");
1N/A return false;
1N/A }
1N/A return true;
1N/A}
1N/A
1N/A/*
1N/A** SMTPTODSN -- convert SMTP to DSN status code
1N/A**
1N/A** Parameters:
1N/A** smtpstat -- the smtp status code (e.g., 550).
1N/A**
1N/A** Returns:
1N/A** The DSN version of the status code.
1N/A**
1N/A** Storage Management:
1N/A** smtptodsn() returns a pointer to a character string literal,
1N/A** which will remain valid forever, and thus does not need to
1N/A** be copied. Current code relies on this property.
1N/A*/
1N/A
1N/Achar *
1N/Asmtptodsn(smtpstat)
1N/A int smtpstat;
1N/A{
1N/A if (smtpstat < 0)
1N/A return "4.4.2";
1N/A
1N/A switch (smtpstat)
1N/A {
1N/A case 450: /* Req mail action not taken: mailbox unavailable */
1N/A return "4.2.0";
1N/A
1N/A case 451: /* Req action aborted: local error in processing */
1N/A return "4.3.0";
1N/A
1N/A case 452: /* Req action not taken: insufficient sys storage */
1N/A return "4.3.1";
1N/A
1N/A case 500: /* Syntax error, command unrecognized */
1N/A return "5.5.2";
1N/A
1N/A case 501: /* Syntax error in parameters or arguments */
1N/A return "5.5.4";
1N/A
1N/A case 502: /* Command not implemented */
1N/A return "5.5.1";
1N/A
1N/A case 503: /* Bad sequence of commands */
1N/A return "5.5.1";
1N/A
1N/A case 504: /* Command parameter not implemented */
1N/A return "5.5.4";
1N/A
1N/A case 550: /* Req mail action not taken: mailbox unavailable */
1N/A return "5.2.0";
1N/A
1N/A case 551: /* User not local; please try <...> */
1N/A return "5.1.6";
1N/A
1N/A case 552: /* Req mail action aborted: exceeded storage alloc */
1N/A return "5.2.2";
1N/A
1N/A case 553: /* Req action not taken: mailbox name not allowed */
1N/A return "5.1.0";
1N/A
1N/A case 554: /* Transaction failed */
1N/A return "5.0.0";
1N/A }
1N/A
1N/A if (REPLYTYPE(smtpstat) == 2)
1N/A return "2.0.0";
1N/A if (REPLYTYPE(smtpstat) == 4)
1N/A return "4.0.0";
1N/A return "5.0.0";
1N/A}
1N/A/*
1N/A** XTEXTIFY -- take regular text and turn it into DSN-style xtext
1N/A**
1N/A** Parameters:
1N/A** t -- the text to convert.
1N/A** taboo -- additional characters that must be encoded.
1N/A**
1N/A** Returns:
1N/A** The xtext-ified version of the same string.
1N/A*/
1N/A
1N/Achar *
1N/Axtextify(t, taboo)
1N/A register char *t;
1N/A char *taboo;
1N/A{
1N/A register char *p;
1N/A int l;
1N/A int nbogus;
1N/A static char *bp = NULL;
1N/A static int bplen = 0;
1N/A
1N/A if (taboo == NULL)
1N/A taboo = "";
1N/A
1N/A /* figure out how long this xtext will have to be */
1N/A nbogus = l = 0;
1N/A for (p = t; *p != '\0'; p++)
1N/A {
1N/A register int c = (*p & 0xff);
1N/A
1N/A /* ASCII dependence here -- this is the way the spec words it */
1N/A if (c < '!' || c > '~' || c == '+' || c == '\\' || c == '(' ||
1N/A strchr(taboo, c) != NULL)
1N/A nbogus++;
1N/A l++;
1N/A }
1N/A if (nbogus < 0)
1N/A {
1N/A /* since nbogus is ssize_t and wrapped, 2 * size_t would wrap */
1N/A syserr("!xtextify string too long");
1N/A }
1N/A if (nbogus == 0)
1N/A return t;
1N/A l += nbogus * 2 + 1;
1N/A
1N/A /* now allocate space if necessary for the new string */
1N/A if (l > bplen)
1N/A {
1N/A if (bp != NULL)
1N/A sm_free(bp); /* XXX */
1N/A bp = sm_pmalloc_x(l);
1N/A bplen = l;
1N/A }
1N/A
1N/A /* ok, copy the text with byte expansion */
1N/A for (p = bp; *t != '\0'; )
1N/A {
1N/A register int c = (*t++ & 0xff);
1N/A
1N/A /* ASCII dependence here -- this is the way the spec words it */
1N/A if (c < '!' || c > '~' || c == '+' || c == '\\' || c == '(' ||
1N/A strchr(taboo, c) != NULL)
1N/A {
1N/A *p++ = '+';
1N/A *p++ = "0123456789ABCDEF"[c >> 4];
1N/A *p++ = "0123456789ABCDEF"[c & 0xf];
1N/A }
1N/A else
1N/A *p++ = c;
1N/A }
1N/A *p = '\0';
1N/A return bp;
1N/A}
1N/A/*
1N/A** XUNTEXTIFY -- take xtext and turn it into plain text
1N/A**
1N/A** Parameters:
1N/A** t -- the xtextified text.
1N/A**
1N/A** Returns:
1N/A** The decoded text. No attempt is made to deal with
1N/A** null strings in the resulting text.
1N/A*/
1N/A
1N/Achar *
1N/Axuntextify(t)
1N/A register char *t;
1N/A{
1N/A register char *p;
1N/A int l;
1N/A static char *bp = NULL;
1N/A static int bplen = 0;
1N/A
1N/A /* heuristic -- if no plus sign, just return the input */
1N/A if (strchr(t, '+') == NULL)
1N/A return t;
1N/A
1N/A /* xtext is always longer than decoded text */
1N/A l = strlen(t);
1N/A if (l > bplen)
1N/A {
1N/A if (bp != NULL)
1N/A sm_free(bp); /* XXX */
1N/A bp = xalloc(l);
1N/A bplen = l;
1N/A }
1N/A
1N/A /* ok, copy the text with byte compression */
1N/A for (p = bp; *t != '\0'; t++)
1N/A {
1N/A register int c = *t & 0xff;
1N/A
1N/A if (c != '+')
1N/A {
1N/A *p++ = c;
1N/A continue;
1N/A }
1N/A
1N/A c = *++t & 0xff;
1N/A if (!isascii(c) || !isxdigit(c))
1N/A {
1N/A /* error -- first digit is not hex */
1N/A usrerr("bogus xtext: +%c", c);
1N/A t--;
1N/A continue;
1N/A }
1N/A if (isdigit(c))
1N/A c -= '0';
1N/A else if (isupper(c))
1N/A c -= 'A' - 10;
1N/A else
1N/A c -= 'a' - 10;
1N/A *p = c << 4;
1N/A
1N/A c = *++t & 0xff;
1N/A if (!isascii(c) || !isxdigit(c))
1N/A {
1N/A /* error -- second digit is not hex */
1N/A usrerr("bogus xtext: +%x%c", *p >> 4, c);
1N/A t--;
1N/A continue;
1N/A }
1N/A if (isdigit(c))
1N/A c -= '0';
1N/A else if (isupper(c))
1N/A c -= 'A' - 10;
1N/A else
1N/A c -= 'a' - 10;
1N/A *p++ |= c;
1N/A }
1N/A *p = '\0';
1N/A return bp;
1N/A}
1N/A/*
1N/A** XTEXTOK -- check if a string is legal xtext
1N/A**
1N/A** Xtext is used in Delivery Status Notifications. The spec was
1N/A** taken from RFC 1891, ``SMTP Service Extension for Delivery
1N/A** Status Notifications''.
1N/A**
1N/A** Parameters:
1N/A** s -- the string to check.
1N/A**
1N/A** Returns:
1N/A** true -- if 's' is legal xtext.
1N/A** false -- if it has any illegal characters in it.
1N/A*/
1N/A
1N/Abool
1N/Axtextok(s)
1N/A char *s;
1N/A{
1N/A int c;
1N/A
1N/A while ((c = *s++) != '\0')
1N/A {
1N/A if (c == '+')
1N/A {
1N/A c = *s++;
1N/A if (!isascii(c) || !isxdigit(c))
1N/A return false;
1N/A c = *s++;
1N/A if (!isascii(c) || !isxdigit(c))
1N/A return false;
1N/A }
1N/A else if (c < '!' || c > '~' || c == '=')
1N/A return false;
1N/A }
1N/A return true;
1N/A}
1N/A/*
1N/A** PRUNEROUTE -- prune an RFC-822 source route
1N/A**
1N/A** Trims down a source route to the last internet-registered hop.
1N/A** This is encouraged by RFC 1123 section 5.3.3.
1N/A**
1N/A** Parameters:
1N/A** addr -- the address
1N/A**
1N/A** Returns:
1N/A** true -- address was modified
1N/A** false -- address could not be pruned
1N/A**
1N/A** Side Effects:
1N/A** modifies addr in-place
1N/A*/
1N/A
1N/Astatic bool
1N/Apruneroute(addr)
1N/A char *addr;
1N/A{
1N/A#if NAMED_BIND
1N/A char *start, *at, *comma;
1N/A char c;
1N/A int braclev;
1N/A int rcode;
1N/A int i;
1N/A char hostbuf[BUFSIZ];
1N/A char *mxhosts[MAXMXHOSTS + 1];
1N/A
1N/A /* check to see if this is really a route-addr */
1N/A if (*addr != '<' || addr[1] != '@' || addr[strlen(addr) - 1] != '>')
1N/A return false;
1N/A
1N/A /*
1N/A ** Can't simply find the first ':' is the address might be in the
1N/A ** form: "<@[IPv6:::1]:user@host>" and the first ':' in inside
1N/A ** the IPv6 address.
1N/A */
1N/A
1N/A start = addr;
1N/A braclev = 0;
1N/A while (*start != '\0')
1N/A {
1N/A if (*start == ':' && braclev <= 0)
1N/A break;
1N/A else if (*start == '[')
1N/A braclev++;
1N/A else if (*start == ']' && braclev > 0)
1N/A braclev--;
1N/A start++;
1N/A }
1N/A if (braclev > 0 || *start != ':')
1N/A return false;
1N/A
1N/A at = strrchr(addr, '@');
1N/A if (at == NULL || at < start)
1N/A return false;
1N/A
1N/A /* slice off the angle brackets */
1N/A i = strlen(at + 1);
1N/A if (i >= sizeof(hostbuf))
1N/A return false;
1N/A (void) sm_strlcpy(hostbuf, at + 1, sizeof(hostbuf));
1N/A hostbuf[i - 1] = '\0';
1N/A
1N/A while (start != NULL)
1N/A {
1N/A if (getmxrr(hostbuf, mxhosts, NULL, false,
1N/A &rcode, true, NULL) > 0)
1N/A {
1N/A (void) sm_strlcpy(addr + 1, start + 1,
1N/A strlen(addr) - 1);
1N/A return true;
1N/A }
1N/A c = *start;
1N/A *start = '\0';
1N/A comma = strrchr(addr, ',');
1N/A if (comma != NULL && comma[1] == '@' &&
1N/A strlen(comma + 2) < sizeof(hostbuf))
1N/A (void) sm_strlcpy(hostbuf, comma + 2, sizeof(hostbuf));
1N/A else
1N/A comma = NULL;
1N/A *start = c;
1N/A start = comma;
1N/A }
1N/A#endif /* NAMED_BIND */
1N/A return false;
1N/A}