1 /*
2 * Copyright (c) 1998-2003, 2006 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 */
13
14 #include <sendmail.h>
15
16 SM_RCSID("@(#)$Id: savemail.c,v 8.314 2009/12/18 17:08:01 ca Exp $")
17
18 static bool errbody __P((MCI *, ENVELOPE *, char *));
19 static bool pruneroute __P((char *));
20
21 /*
22 ** SAVEMAIL -- Save mail on error
23 **
24 ** If mailing back errors, mail it back to the originator
25 ** together with an error message; otherwise, just put it in
26 ** dead.letter in the user's home directory (if he exists on
27 ** this machine).
28 **
29 ** Parameters:
30 ** e -- the envelope containing the message in error.
31 ** sendbody -- if true, also send back the body of the
32 ** message; otherwise just send the header.
33 **
34 ** Returns:
35 ** true if savemail panic'ed, (i.e., the data file should
36 ** be preserved by dropenvelope())
37 **
38 ** Side Effects:
39 ** Saves the letter, by writing or mailing it back to the
40 ** sender, or by putting it in dead.letter in her home
41 ** directory.
42 */
43
44 /* defines for state machine */
45 #define ESM_REPORT 0 /* report to sender's terminal */
46 #define ESM_MAIL 1 /* mail back to sender */
47 #define ESM_QUIET 2 /* mail has already been returned */
48 #define ESM_DEADLETTER 3 /* save in ~/dead.letter */
49 #define ESM_POSTMASTER 4 /* return to postmaster */
50 #define ESM_DEADLETTERDROP 5 /* save in DeadLetterDrop */
51 #define ESM_PANIC 6 /* call loseqfile() */
52 #define ESM_DONE 7 /* message is successfully delivered */
53
54 bool
savemail(e,sendbody)55 savemail(e, sendbody)
56 register ENVELOPE *e;
57 bool sendbody;
58 {
59 register SM_FILE_T *fp;
60 bool panic = false;
61 int state;
62 auto ADDRESS *q = NULL;
63 register char *p;
64 MCI mcibuf;
65 int flags;
66 long sff;
67 char buf[MAXLINE + 1];
68 char dlbuf[MAXPATHLEN];
69 SM_MBDB_T user;
70
71
72 if (tTd(6, 1))
73 {
74 sm_dprintf("\nsavemail, errormode = %c, id = %s, ExitStat = %d\n e_from=",
75 e->e_errormode, e->e_id == NULL ? "NONE" : e->e_id,
76 ExitStat);
77 printaddr(sm_debug_file(), &e->e_from, false);
78 }
79
80 if (e->e_id == NULL)
81 {
82 /* can't return a message with no id */
83 return panic;
84 }
85
86 /*
87 ** In the unhappy event we don't know who to return the mail
88 ** to, make someone up.
89 */
90
91 if (e->e_from.q_paddr == NULL)
92 {
93 e->e_sender = "Postmaster";
94 if (parseaddr(e->e_sender, &e->e_from,
95 RF_COPYPARSE|RF_SENDERADDR,
96 '\0', NULL, e, false) == NULL)
97 {
98 syserr("553 5.3.5 Cannot parse Postmaster!");
99 finis(true, true, EX_SOFTWARE);
100 }
101 }
102 e->e_to = NULL;
103
104 /*
105 ** Basic state machine.
106 **
107 ** This machine runs through the following states:
108 **
109 ** ESM_QUIET Errors have already been printed iff the
110 ** sender is local.
111 ** ESM_REPORT Report directly to the sender's terminal.
112 ** ESM_MAIL Mail response to the sender.
113 ** ESM_DEADLETTER Save response in ~/dead.letter.
114 ** ESM_POSTMASTER Mail response to the postmaster.
115 ** ESM_DEADLETTERDROP
116 ** If DeadLetterDrop set, save it there.
117 ** ESM_PANIC Save response anywhere possible.
118 */
119
120 /* determine starting state */
121 switch (e->e_errormode)
122 {
123 case EM_WRITE:
124 state = ESM_REPORT;
125 break;
126
127 case EM_BERKNET:
128 case EM_MAIL:
129 state = ESM_MAIL;
130 break;
131
132 case EM_PRINT:
133 case '\0':
134 state = ESM_QUIET;
135 break;
136
137 case EM_QUIET:
138 /* no need to return anything at all */
139 return panic;
140
141 default:
142 syserr("554 5.3.0 savemail: bogus errormode x%x",
143 e->e_errormode);
144 state = ESM_MAIL;
145 break;
146 }
147
148 /* if this is already an error response, send to postmaster */
149 if (bitset(EF_RESPONSE, e->e_flags))
150 {
151 if (e->e_parent != NULL &&
152 bitset(EF_RESPONSE, e->e_parent->e_flags))
153 {
154 /* got an error sending a response -- can it */
155 return panic;
156 }
157 state = ESM_POSTMASTER;
158 }
159
160 while (state != ESM_DONE)
161 {
162 if (tTd(6, 5))
163 sm_dprintf(" state %d\n", state);
164
165 switch (state)
166 {
167 case ESM_QUIET:
168 if (bitnset(M_LOCALMAILER, e->e_from.q_mailer->m_flags))
169 state = ESM_DEADLETTER;
170 else
171 state = ESM_MAIL;
172 break;
173
174 case ESM_REPORT:
175
176 /*
177 ** If the user is still logged in on the same terminal,
178 ** then write the error messages back to hir (sic).
179 */
180
181 #if USE_TTYPATH
182 p = ttypath();
183 #else /* USE_TTYPATH */
184 p = NULL;
185 #endif /* USE_TTYPATH */
186
187 if (p == NULL || sm_io_reopen(SmFtStdio,
188 SM_TIME_DEFAULT,
189 p, SM_IO_WRONLY, NULL,
190 smioout) == NULL)
191 {
192 state = ESM_MAIL;
193 break;
194 }
195
196 expand("\201n", buf, sizeof(buf), e);
197 (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
198 "\r\nMessage from %s...\r\n", buf);
199 (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
200 "Errors occurred while sending mail.\r\n");
201 if (e->e_xfp != NULL)
202 {
203 (void) bfrewind(e->e_xfp);
204 (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
205 "Transcript follows:\r\n");
206 while (sm_io_fgets(e->e_xfp, SM_TIME_DEFAULT,
207 buf, sizeof(buf)) != NULL &&
208 !sm_io_error(smioout))
209 (void) sm_io_fputs(smioout,
210 SM_TIME_DEFAULT,
211 buf);
212 }
213 else
214 {
215 syserr("Cannot open %s",
216 queuename(e, XSCRPT_LETTER));
217 (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
218 "Transcript of session is unavailable.\r\n");
219 }
220 (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT,
221 "Original message will be saved in dead.letter.\r\n");
222 state = ESM_DEADLETTER;
223 break;
224
225 case ESM_MAIL:
226 /*
227 ** If mailing back, do it.
228 ** Throw away all further output. Don't alias,
229 ** since this could cause loops, e.g., if joe
230 ** mails to joe@x, and for some reason the network
231 ** for @x is down, then the response gets sent to
232 ** joe@x, which gives a response, etc. Also force
233 ** the mail to be delivered even if a version of
234 ** it has already been sent to the sender.
235 **
236 ** If this is a configuration or local software
237 ** error, send to the local postmaster as well,
238 ** since the originator can't do anything
239 ** about it anyway. Note that this is a full
240 ** copy of the message (intentionally) so that
241 ** the Postmaster can forward things along.
242 */
243
244 if (ExitStat == EX_CONFIG || ExitStat == EX_SOFTWARE)
245 {
246 (void) sendtolist("postmaster", NULLADDR,
247 &e->e_errorqueue, 0, e);
248 }
249 if (!emptyaddr(&e->e_from))
250 {
251 char from[TOBUFSIZE];
252
253 if (sm_strlcpy(from, e->e_from.q_paddr,
254 sizeof(from)) >= sizeof(from))
255 {
256 state = ESM_POSTMASTER;
257 break;
258 }
259
260 if (!DontPruneRoutes)
261 (void) pruneroute(from);
262
263 (void) sendtolist(from, NULLADDR,
264 &e->e_errorqueue, 0, e);
265 }
266
267 /*
268 ** Deliver a non-delivery report to the
269 ** Postmaster-designate (not necessarily
270 ** Postmaster). This does not include the
271 ** body of the message, for privacy reasons.
272 ** You really shouldn't need this.
273 */
274
275 e->e_flags |= EF_PM_NOTIFY;
276
277 /* check to see if there are any good addresses */
278 for (q = e->e_errorqueue; q != NULL; q = q->q_next)
279 {
280 if (QS_IS_SENDABLE(q->q_state))
281 break;
282 }
283 if (q == NULL)
284 {
285 /* this is an error-error */
286 state = ESM_POSTMASTER;
287 break;
288 }
289 if (returntosender(e->e_message, e->e_errorqueue,
290 sendbody ? RTSF_SEND_BODY
291 : RTSF_NO_BODY,
292 e) == 0)
293 {
294 state = ESM_DONE;
295 break;
296 }
297
298 /* didn't work -- return to postmaster */
299 state = ESM_POSTMASTER;
300 break;
301
302 case ESM_POSTMASTER:
303 /*
304 ** Similar to previous case, but to system postmaster.
305 */
306
307 q = NULL;
308 expand(DoubleBounceAddr, buf, sizeof(buf), e);
309
310 /*
311 ** Just drop it on the floor if DoubleBounceAddr
312 ** expands to an empty string.
313 */
314
315 if (*buf == '\0')
316 {
317 state = ESM_DONE;
318 break;
319 }
320 if (sendtolist(buf, NULLADDR, &q, 0, e) <= 0)
321 {
322 syserr("553 5.3.0 cannot parse %s!", buf);
323 ExitStat = EX_SOFTWARE;
324 state = ESM_DEADLETTERDROP;
325 break;
326 }
327 flags = RTSF_PM_BOUNCE;
328 if (sendbody)
329 flags |= RTSF_SEND_BODY;
330 if (returntosender(e->e_message, q, flags, e) == 0)
331 {
332 state = ESM_DONE;
333 break;
334 }
335
336 /* didn't work -- last resort */
337 state = ESM_DEADLETTERDROP;
338 break;
339
340 case ESM_DEADLETTER:
341 /*
342 ** Save the message in dead.letter.
343 ** If we weren't mailing back, and the user is
344 ** local, we should save the message in
345 ** ~/dead.letter so that the poor person doesn't
346 ** have to type it over again -- and we all know
347 ** what poor typists UNIX users are.
348 */
349
350 p = NULL;
351 if (bitnset(M_HASPWENT, e->e_from.q_mailer->m_flags))
352 {
353 if (e->e_from.q_home != NULL)
354 p = e->e_from.q_home;
355 else if (sm_mbdb_lookup(e->e_from.q_user, &user)
356 == EX_OK &&
357 *user.mbdb_homedir != '\0')
358 p = user.mbdb_homedir;
359 }
360 if (p == NULL || e->e_dfp == NULL)
361 {
362 /* no local directory or no data file */
363 state = ESM_MAIL;
364 break;
365 }
366
367 /* we have a home directory; write dead.letter */
368 macdefine(&e->e_macro, A_TEMP, 'z', p);
369
370 /* get the sender for the UnixFromLine */
371 p = macvalue('g', e);
372 macdefine(&e->e_macro, A_PERM, 'g', e->e_sender);
373
374 expand("\201z/dead.letter", dlbuf, sizeof(dlbuf), e);
375 sff = SFF_CREAT|SFF_REGONLY|SFF_RUNASREALUID;
376 if (RealUid == 0)
377 sff |= SFF_ROOTOK;
378 e->e_to = dlbuf;
379 if (writable(dlbuf, NULL, sff) &&
380 mailfile(dlbuf, FileMailer, NULL, sff, e) == EX_OK)
381 {
382 int oldverb = Verbose;
383
384 if (OpMode != MD_DAEMON && OpMode != MD_SMTP)
385 Verbose = 1;
386 if (Verbose > 0)
387 message("Saved message in %s", dlbuf);
388 Verbose = oldverb;
389 macdefine(&e->e_macro, A_PERM, 'g', p);
390 state = ESM_DONE;
391 break;
392 }
393 macdefine(&e->e_macro, A_PERM, 'g', p);
394 state = ESM_MAIL;
395 break;
396
397 case ESM_DEADLETTERDROP:
398 /*
399 ** Log the mail in DeadLetterDrop file.
400 */
401
402 if (e->e_class < 0)
403 {
404 state = ESM_DONE;
405 break;
406 }
407
408 if ((SafeFileEnv != NULL && SafeFileEnv[0] != '\0') ||
409 DeadLetterDrop == NULL ||
410 DeadLetterDrop[0] == '\0')
411 {
412 state = ESM_PANIC;
413 break;
414 }
415
416 sff = SFF_CREAT|SFF_REGONLY|SFF_ROOTOK|SFF_OPENASROOT|SFF_MUSTOWN;
417 if (!writable(DeadLetterDrop, NULL, sff) ||
418 (fp = safefopen(DeadLetterDrop, O_WRONLY|O_APPEND,
419 FileMode, sff)) == NULL)
420 {
421 state = ESM_PANIC;
422 break;
423 }
424
425 memset(&mcibuf, '\0', sizeof(mcibuf));
426 mcibuf.mci_out = fp;
427 mcibuf.mci_mailer = FileMailer;
428 if (bitnset(M_7BITS, FileMailer->m_flags))
429 mcibuf.mci_flags |= MCIF_7BIT;
430
431 /* get the sender for the UnixFromLine */
432 p = macvalue('g', e);
433 macdefine(&e->e_macro, A_PERM, 'g', e->e_sender);
434
435 if (!putfromline(&mcibuf, e) ||
436 !(*e->e_puthdr)(&mcibuf, e->e_header, e,
437 M87F_OUTER) ||
438 !(*e->e_putbody)(&mcibuf, e, NULL) ||
439 !putline("\n", &mcibuf) ||
440 sm_io_flush(fp, SM_TIME_DEFAULT) == SM_IO_EOF ||
441 sm_io_error(fp) ||
442 sm_io_close(fp, SM_TIME_DEFAULT) < 0)
443 state = ESM_PANIC;
444 else
445 {
446 int oldverb = Verbose;
447
448 if (OpMode != MD_DAEMON && OpMode != MD_SMTP)
449 Verbose = 1;
450 if (Verbose > 0)
451 message("Saved message in %s",
452 DeadLetterDrop);
453 Verbose = oldverb;
454 if (LogLevel > 3)
455 sm_syslog(LOG_NOTICE, e->e_id,
456 "Saved message in %s",
457 DeadLetterDrop);
458 state = ESM_DONE;
459 }
460 macdefine(&e->e_macro, A_PERM, 'g', p);
461 break;
462
463 default:
464 syserr("554 5.3.5 savemail: unknown state %d", state);
465 /* FALLTHROUGH */
466
467 case ESM_PANIC:
468 /* leave the locked queue & transcript files around */
469 loseqfile(e, "savemail panic");
470 panic = true;
471 errno = 0;
472 syserr("554 savemail: cannot save rejected email anywhere");
473 state = ESM_DONE;
474 break;
475 }
476 }
477 return panic;
478 }
479 /*
480 ** RETURNTOSENDER -- return a message to the sender with an error.
481 **
482 ** Parameters:
483 ** msg -- the explanatory message.
484 ** returnq -- the queue of people to send the message to.
485 ** flags -- flags tweaking the operation:
486 ** RTSF_SENDBODY -- include body of message (otherwise
487 ** just send the header).
488 ** RTSF_PMBOUNCE -- this is a postmaster bounce.
489 ** e -- the current envelope.
490 **
491 ** Returns:
492 ** zero -- if everything went ok.
493 ** else -- some error.
494 **
495 ** Side Effects:
496 ** Returns the current message to the sender via mail.
497 */
498
499 #define MAXRETURNS 6 /* max depth of returning messages */
500 #define ERRORFUDGE 1024 /* nominal size of error message text */
501
502 int
returntosender(msg,returnq,flags,e)503 returntosender(msg, returnq, flags, e)
504 char *msg;
505 ADDRESS *returnq;
506 int flags;
507 register ENVELOPE *e;
508 {
509 register ENVELOPE *ee;
510 ENVELOPE *oldcur = CurEnv;
511 ENVELOPE errenvelope;
512 static int returndepth = 0;
513 register ADDRESS *q;
514 char *p;
515 char buf[MAXNAME + 1];
516
517 if (returnq == NULL)
518 return -1;
519
520 if (msg == NULL)
521 msg = "Unable to deliver mail";
522
523 if (tTd(6, 1))
524 {
525 sm_dprintf("\n*** Return To Sender: msg=\"%s\", depth=%d, e=%p, returnq=",
526 msg, returndepth, e);
527 printaddr(sm_debug_file(), returnq, true);
528 if (tTd(6, 20))
529 {
530 sm_dprintf("Sendq=");
531 printaddr(sm_debug_file(), e->e_sendqueue, true);
532 }
533 }
534
535 if (++returndepth >= MAXRETURNS)
536 {
537 if (returndepth != MAXRETURNS)
538 syserr("554 5.3.0 returntosender: infinite recursion on %s",
539 returnq->q_paddr);
540 /* don't "unrecurse" and fake a clean exit */
541 /* returndepth--; */
542 return 0;
543 }
544
545 macdefine(&e->e_macro, A_PERM, 'g', e->e_sender);
546 macdefine(&e->e_macro, A_PERM, 'u', NULL);
547
548 /* initialize error envelope */
549 ee = newenvelope(&errenvelope, e, sm_rpool_new_x(NULL));
550 macdefine(&ee->e_macro, A_PERM, 'a', "\201b");
551 macdefine(&ee->e_macro, A_PERM, 'r', "");
552 macdefine(&ee->e_macro, A_PERM, 's', "localhost");
553 macdefine(&ee->e_macro, A_PERM, '_', "localhost");
554 clrsessenvelope(ee);
555
556 ee->e_puthdr = putheader;
557 ee->e_putbody = errbody;
558 ee->e_flags |= EF_RESPONSE|EF_METOO;
559 if (!bitset(EF_OLDSTYLE, e->e_flags))
560 ee->e_flags &= ~EF_OLDSTYLE;
561 if (bitset(EF_DONT_MIME, e->e_flags))
562 {
563 ee->e_flags |= EF_DONT_MIME;
564
565 /*
566 ** If we can't convert to MIME and we don't pass
567 ** 8-bit, we can't send the body.
568 */
569
570 if (bitset(EF_HAS8BIT, e->e_flags) &&
571 !bitset(MM_PASS8BIT, MimeMode))
572 flags &= ~RTSF_SEND_BODY;
573 }
574
575 ee->e_sendqueue = returnq;
576 ee->e_msgsize = 0;
577 if (bitset(RTSF_SEND_BODY, flags) &&
578 !bitset(PRIV_NOBODYRETN, PrivacyFlags))
579 ee->e_msgsize = ERRORFUDGE + e->e_msgsize;
580 else
581 ee->e_flags |= EF_NO_BODY_RETN;
582
583 if (!setnewqueue(ee))
584 {
585 syserr("554 5.3.0 returntosender: cannot select queue for %s",
586 returnq->q_paddr);
587 ExitStat = EX_UNAVAILABLE;
588 returndepth--;
589 return -1;
590 }
591 initsys(ee);
592
593 #if NAMED_BIND
594 _res.retry = TimeOuts.res_retry[RES_TO_FIRST];
595 _res.retrans = TimeOuts.res_retrans[RES_TO_FIRST];
596 #endif /* NAMED_BIND */
597 for (q = returnq; q != NULL; q = q->q_next)
598 {
599 if (QS_IS_BADADDR(q->q_state))
600 continue;
601
602 q->q_flags &= ~(QHASNOTIFY|Q_PINGFLAGS);
603 q->q_flags |= QPINGONFAILURE;
604
605 if (!QS_IS_DEAD(q->q_state))
606 ee->e_nrcpts++;
607
608 if (q->q_alias == NULL)
609 addheader("To", q->q_paddr, 0, ee, true);
610 }
611
612 if (LogLevel > 5)
613 {
614 if (bitset(EF_RESPONSE, e->e_flags))
615 p = "return to sender";
616 else if (bitset(EF_WARNING, e->e_flags))
617 p = "sender notify";
618 else if (bitset(RTSF_PM_BOUNCE, flags))
619 p = "postmaster notify";
620 else
621 p = "DSN";
622 sm_syslog(LOG_INFO, e->e_id, "%s: %s: %s",
623 ee->e_id, p, shortenstring(msg, MAXSHORTSTR));
624 }
625
626 if (SendMIMEErrors)
627 {
628 addheader("MIME-Version", "1.0", 0, ee, true);
629 (void) sm_snprintf(buf, sizeof(buf), "%s.%ld/%.100s",
630 ee->e_id, (long)curtime(), MyHostName);
631 ee->e_msgboundary = sm_rpool_strdup_x(ee->e_rpool, buf);
632 (void) sm_snprintf(buf, sizeof(buf),
633 #if DSN
634 "multipart/report; report-type=delivery-status;\n\tboundary=\"%s\"",
635 #else /* DSN */
636 "multipart/mixed; boundary=\"%s\"",
637 #endif /* DSN */
638 ee->e_msgboundary);
639 addheader("Content-Type", buf, 0, ee, true);
640
641 p = hvalue("Content-Transfer-Encoding", e->e_header);
642 if (p != NULL && sm_strcasecmp(p, "binary") != 0)
643 p = NULL;
644 if (p == NULL && bitset(EF_HAS8BIT, e->e_flags))
645 p = "8bit";
646 if (p != NULL)
647 addheader("Content-Transfer-Encoding", p, 0, ee, true);
648 }
649 if (strncmp(msg, "Warning:", 8) == 0)
650 {
651 addheader("Subject", msg, 0, ee, true);
652 p = "warning-timeout";
653 }
654 else if (strncmp(msg, "Postmaster warning:", 19) == 0)
655 {
656 addheader("Subject", msg, 0, ee, true);
657 p = "postmaster-warning";
658 }
659 else if (strcmp(msg, "Return receipt") == 0)
660 {
661 addheader("Subject", msg, 0, ee, true);
662 p = "return-receipt";
663 }
664 else if (bitset(RTSF_PM_BOUNCE, flags))
665 {
666 (void) sm_snprintf(buf, sizeof(buf),
667 "Postmaster notify: see transcript for details");
668 addheader("Subject", buf, 0, ee, true);
669 p = "postmaster-notification";
670 }
671 else
672 {
673 (void) sm_snprintf(buf, sizeof(buf),
674 "Returned mail: see transcript for details");
675 addheader("Subject", buf, 0, ee, true);
676 p = "failure";
677 }
678 (void) sm_snprintf(buf, sizeof(buf), "auto-generated (%s)", p);
679 addheader("Auto-Submitted", buf, 0, ee, true);
680
681 /* fake up an address header for the from person */
682 expand("\201n", buf, sizeof(buf), e);
683 if (parseaddr(buf, &ee->e_from,
684 RF_COPYALL|RF_SENDERADDR, '\0', NULL, e, false) == NULL)
685 {
686 syserr("553 5.3.5 Can't parse myself!");
687 ExitStat = EX_SOFTWARE;
688 returndepth--;
689 return -1;
690 }
691 ee->e_from.q_flags &= ~(QHASNOTIFY|Q_PINGFLAGS);
692 ee->e_from.q_flags |= QPINGONFAILURE;
693 ee->e_sender = ee->e_from.q_paddr;
694
695 /* push state into submessage */
696 CurEnv = ee;
697 macdefine(&ee->e_macro, A_PERM, 'f', "\201n");
698 macdefine(&ee->e_macro, A_PERM, 'x', "Mail Delivery Subsystem");
699 eatheader(ee, true, true);
700
701 /* mark statistics */
702 markstats(ee, NULLADDR, STATS_NORMAL);
703
704 /* actually deliver the error message */
705 sendall(ee, SM_DELIVER);
706
707 /* restore state */
708 (void) dropenvelope(ee, true, false);
709 sm_rpool_free(ee->e_rpool);
710 CurEnv = oldcur;
711 returndepth--;
712
713 /* check for delivery errors */
714 if (ee->e_parent == NULL ||
715 !bitset(EF_RESPONSE, ee->e_parent->e_flags))
716 return 0;
717 for (q = ee->e_sendqueue; q != NULL; q = q->q_next)
718 {
719 if (QS_IS_ATTEMPTED(q->q_state))
720 return 0;
721 }
722 return -1;
723 }
724 /*
725 ** ERRBODY -- output the body of an error message.
726 **
727 ** Typically this is a copy of the transcript plus a copy of the
728 ** original offending message.
729 **
730 ** Parameters:
731 ** mci -- the mailer connection information.
732 ** e -- the envelope we are working in.
733 ** separator -- any possible MIME separator (unused).
734 **
735 ** Returns:
736 ** true iff body was written successfully
737 **
738 ** Side Effects:
739 ** Outputs the body of an error message.
740 */
741
742 /* ARGSUSED2 */
743 static bool
errbody(mci,e,separator)744 errbody(mci, e, separator)
745 register MCI *mci;
746 register ENVELOPE *e;
747 char *separator;
748 {
749 bool printheader;
750 bool sendbody;
751 bool pm_notify;
752 int save_errno;
753 register SM_FILE_T *xfile;
754 char *p;
755 register ADDRESS *q = NULL;
756 char actual[MAXLINE];
757 char buf[MAXLINE];
758
759 if (bitset(MCIF_INHEADER, mci->mci_flags))
760 {
761 if (!putline("", mci))
762 goto writeerr;
763 mci->mci_flags &= ~MCIF_INHEADER;
764 }
765 if (e->e_parent == NULL)
766 {
767 syserr("errbody: null parent");
768 if (!putline(" ----- Original message lost -----\n", mci))
769 goto writeerr;
770 return true;
771 }
772
773 /*
774 ** Output MIME header.
775 */
776
777 if (e->e_msgboundary != NULL)
778 {
779 (void) sm_strlcpyn(buf, sizeof(buf), 2, "--", e->e_msgboundary);
780 if (!putline("This is a MIME-encapsulated message", mci) ||
781 !putline("", mci) ||
782 !putline(buf, mci) ||
783 !putline("", mci))
784 goto writeerr;
785 }
786
787 /*
788 ** Output introductory information.
789 */
790
791 pm_notify = false;
792 p = hvalue("subject", e->e_header);
793 if (p != NULL && strncmp(p, "Postmaster ", 11) == 0)
794 pm_notify = true;
795 else
796 {
797 for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
798 {
799 if (QS_IS_BADADDR(q->q_state))
800 break;
801 }
802 }
803 if (!pm_notify && q == NULL &&
804 !bitset(EF_FATALERRS|EF_SENDRECEIPT, e->e_parent->e_flags))
805 {
806 if (!putline(" **********************************************",
807 mci) ||
808 !putline(" ** THIS IS A WARNING MESSAGE ONLY **",
809 mci) ||
810 !putline(" ** YOU DO NOT NEED TO RESEND YOUR MESSAGE **",
811 mci) ||
812 !putline(" **********************************************",
813 mci) ||
814 !putline("", mci))
815 goto writeerr;
816 }
817 (void) sm_snprintf(buf, sizeof(buf),
818 "The original message was received at %s",
819 arpadate(ctime(&e->e_parent->e_ctime)));
820 if (!putline(buf, mci))
821 goto writeerr;
822 expand("from \201_", buf, sizeof(buf), e->e_parent);
823 if (!putline(buf, mci))
824 goto writeerr;
825
826 /* include id in postmaster copies */
827 if (pm_notify && e->e_parent->e_id != NULL)
828 {
829 (void) sm_strlcpyn(buf, sizeof(buf), 2, "with id ",
830 e->e_parent->e_id);
831 if (!putline(buf, mci))
832 goto writeerr;
833 }
834 if (!putline("", mci))
835 goto writeerr;
836
837 /*
838 ** Output error message header (if specified and available).
839 */
840
841 if (ErrMsgFile != NULL &&
842 !bitset(EF_SENDRECEIPT, e->e_parent->e_flags))
843 {
844 if (*ErrMsgFile == '/')
845 {
846 long sff = SFF_ROOTOK|SFF_REGONLY;
847
848 if (DontLockReadFiles)
849 sff |= SFF_NOLOCK;
850 if (!bitnset(DBS_ERRORHEADERINUNSAFEDIRPATH,
851 DontBlameSendmail))
852 sff |= SFF_SAFEDIRPATH;
853 xfile = safefopen(ErrMsgFile, O_RDONLY, 0444, sff);
854 if (xfile != NULL)
855 {
856 while (sm_io_fgets(xfile, SM_TIME_DEFAULT, buf,
857 sizeof(buf)) != NULL)
858 {
859 int lbs;
860 bool putok;
861 char *lbp;
862
863 lbs = sizeof(buf);
864 lbp = translate_dollars(buf, buf, &lbs);
865 expand(lbp, lbp, lbs, e);
866 putok = putline(lbp, mci);
867 if (lbp != buf)
868 sm_free(lbp);
869 if (!putok)
870 goto writeerr;
871 }
872 (void) sm_io_close(xfile, SM_TIME_DEFAULT);
873 if (!putline("\n", mci))
874 goto writeerr;
875 }
876 }
877 else
878 {
879 expand(ErrMsgFile, buf, sizeof(buf), e);
880 if (!putline(buf, mci) || !putline("", mci))
881 goto writeerr;
882 }
883 }
884
885 /*
886 ** Output message introduction
887 */
888
889 /* permanent fatal errors */
890 printheader = true;
891 for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
892 {
893 if (!QS_IS_BADADDR(q->q_state) ||
894 !bitset(QPINGONFAILURE, q->q_flags))
895 continue;
896
897 if (printheader)
898 {
899 if (!putline(" ----- The following addresses had permanent fatal errors -----",
900 mci))
901 goto writeerr;
902 printheader = false;
903 }
904
905 (void) sm_strlcpy(buf, shortenstring(q->q_paddr, MAXSHORTSTR),
906 sizeof(buf));
907 if (!putline(buf, mci))
908 goto writeerr;
909 if (q->q_rstatus != NULL)
910 {
911 (void) sm_snprintf(buf, sizeof(buf),
912 " (reason: %s)",
913 shortenstring(exitstat(q->q_rstatus),
914 MAXSHORTSTR));
915 if (!putline(buf, mci))
916 goto writeerr;
917 }
918 if (q->q_alias != NULL)
919 {
920 (void) sm_snprintf(buf, sizeof(buf),
921 " (expanded from: %s)",
922 shortenstring(q->q_alias->q_paddr,
923 MAXSHORTSTR));
924 if (!putline(buf, mci))
925 goto writeerr;
926 }
927 }
928 if (!printheader && !putline("", mci))
929 goto writeerr;
930
931 /* transient non-fatal errors */
932 printheader = true;
933 for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
934 {
935 if (QS_IS_BADADDR(q->q_state) ||
936 !bitset(QPRIMARY, q->q_flags) ||
937 !bitset(QBYNDELAY, q->q_flags) ||
938 !bitset(QDELAYED, q->q_flags))
939 continue;
940
941 if (printheader)
942 {
943 if (!putline(" ----- The following addresses had transient non-fatal errors -----",
944 mci))
945 goto writeerr;
946 printheader = false;
947 }
948
949 (void) sm_strlcpy(buf, shortenstring(q->q_paddr, MAXSHORTSTR),
950 sizeof(buf));
951 if (!putline(buf, mci))
952 goto writeerr;
953 if (q->q_alias != NULL)
954 {
955 (void) sm_snprintf(buf, sizeof(buf),
956 " (expanded from: %s)",
957 shortenstring(q->q_alias->q_paddr,
958 MAXSHORTSTR));
959 if (!putline(buf, mci))
960 goto writeerr;
961 }
962 }
963 if (!printheader && !putline("", mci))
964 goto writeerr;
965
966 /* successful delivery notifications */
967 printheader = true;
968 for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
969 {
970 if (QS_IS_BADADDR(q->q_state) ||
971 !bitset(QPRIMARY, q->q_flags) ||
972 bitset(QBYNDELAY, q->q_flags) ||
973 bitset(QDELAYED, q->q_flags))
974 continue;
975 else if (bitset(QBYNRELAY, q->q_flags))
976 p = "Deliver-By notify: relayed";
977 else if (bitset(QBYTRACE, q->q_flags))
978 p = "Deliver-By trace: relayed";
979 else if (!bitset(QPINGONSUCCESS, q->q_flags))
980 continue;
981 else if (bitset(QRELAYED, q->q_flags))
982 p = "relayed to non-DSN-aware mailer";
983 else if (bitset(QDELIVERED, q->q_flags))
984 {
985 if (bitset(QEXPANDED, q->q_flags))
986 p = "successfully delivered to mailing list";
987 else
988 p = "successfully delivered to mailbox";
989 }
990 else if (bitset(QEXPANDED, q->q_flags))
991 p = "expanded by alias";
992 else
993 continue;
994
995 if (printheader)
996 {
997 if (!putline(" ----- The following addresses had successful delivery notifications -----",
998 mci))
999 goto writeerr;
1000 printheader = false;
1001 }
1002
1003 (void) sm_snprintf(buf, sizeof(buf), "%s (%s)",
1004 shortenstring(q->q_paddr, MAXSHORTSTR), p);
1005 if (!putline(buf, mci))
1006 goto writeerr;
1007 if (q->q_alias != NULL)
1008 {
1009 (void) sm_snprintf(buf, sizeof(buf),
1010 " (expanded from: %s)",
1011 shortenstring(q->q_alias->q_paddr,
1012 MAXSHORTSTR));
1013 if (!putline(buf, mci))
1014 goto writeerr;
1015 }
1016 }
1017 if (!printheader && !putline("", mci))
1018 goto writeerr;
1019
1020 /*
1021 ** Output transcript of errors
1022 */
1023
1024 (void) sm_io_flush(smioout, SM_TIME_DEFAULT);
1025 if (e->e_parent->e_xfp == NULL)
1026 {
1027 if (!putline(" ----- Transcript of session is unavailable -----\n",
1028 mci))
1029 goto writeerr;
1030 }
1031 else
1032 {
1033 printheader = true;
1034 (void) bfrewind(e->e_parent->e_xfp);
1035 if (e->e_xfp != NULL)
1036 (void) sm_io_flush(e->e_xfp, SM_TIME_DEFAULT);
1037 while (sm_io_fgets(e->e_parent->e_xfp, SM_TIME_DEFAULT, buf,
1038 sizeof(buf)) != NULL)
1039 {
1040 if (printheader && !putline(" ----- Transcript of session follows -----\n",
1041 mci))
1042 goto writeerr;
1043 printheader = false;
1044 if (!putline(buf, mci))
1045 goto writeerr;
1046 }
1047 }
1048 errno = 0;
1049
1050 #if DSN
1051 /*
1052 ** Output machine-readable version.
1053 */
1054
1055 if (e->e_msgboundary != NULL)
1056 {
1057 (void) sm_strlcpyn(buf, sizeof(buf), 2, "--", e->e_msgboundary);
1058 if (!putline("", mci) ||
1059 !putline(buf, mci) ||
1060 !putline("Content-Type: message/delivery-status", mci) ||
1061 !putline("", mci))
1062 goto writeerr;
1063
1064 /*
1065 ** Output per-message information.
1066 */
1067
1068 /* original envelope id from MAIL FROM: line */
1069 if (e->e_parent->e_envid != NULL)
1070 {
1071 (void) sm_snprintf(buf, sizeof(buf),
1072 "Original-Envelope-Id: %.800s",
1073 xuntextify(e->e_parent->e_envid));
1074 if (!putline(buf, mci))
1075 goto writeerr;
1076 }
1077
1078 /* Reporting-MTA: is us (required) */
1079 (void) sm_snprintf(buf, sizeof(buf),
1080 "Reporting-MTA: dns; %.800s", MyHostName);
1081 if (!putline(buf, mci))
1082 goto writeerr;
1083
1084 /* DSN-Gateway: not relevant since we are not translating */
1085
1086 /* Received-From-MTA: shows where we got this message from */
1087 if (RealHostName != NULL)
1088 {
1089 /* XXX use $s for type? */
1090 if (e->e_parent->e_from.q_mailer == NULL ||
1091 (p = e->e_parent->e_from.q_mailer->m_mtatype) == NULL)
1092 p = "dns";
1093 (void) sm_snprintf(buf, sizeof(buf),
1094 "Received-From-MTA: %s; %.800s",
1095 p, RealHostName);
1096 if (!putline(buf, mci))
1097 goto writeerr;
1098 }
1099
1100 /* Arrival-Date: -- when it arrived here */
1101 (void) sm_strlcpyn(buf, sizeof(buf), 2, "Arrival-Date: ",
1102 arpadate(ctime(&e->e_parent->e_ctime)));
1103 if (!putline(buf, mci))
1104 goto writeerr;
1105
1106 /* Deliver-By-Date: -- when it should have been delivered */
1107 if (IS_DLVR_BY(e->e_parent))
1108 {
1109 time_t dbyd;
1110
1111 dbyd = e->e_parent->e_ctime + e->e_parent->e_deliver_by;
1112 (void) sm_strlcpyn(buf, sizeof(buf), 2,
1113 "Deliver-By-Date: ",
1114 arpadate(ctime(&dbyd)));
1115 if (!putline(buf, mci))
1116 goto writeerr;
1117 }
1118
1119 /*
1120 ** Output per-address information.
1121 */
1122
1123 for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
1124 {
1125 char *action;
1126
1127 if (QS_IS_BADADDR(q->q_state))
1128 {
1129 /* RFC 1891, 6.2.6 (b) */
1130 if (bitset(QHASNOTIFY, q->q_flags) &&
1131 !bitset(QPINGONFAILURE, q->q_flags))
1132 continue;
1133 action = "failed";
1134 }
1135 else if (!bitset(QPRIMARY, q->q_flags))
1136 continue;
1137 else if (bitset(QDELIVERED, q->q_flags))
1138 {
1139 if (bitset(QEXPANDED, q->q_flags))
1140 action = "delivered (to mailing list)";
1141 else
1142 action = "delivered (to mailbox)";
1143 }
1144 else if (bitset(QRELAYED, q->q_flags))
1145 action = "relayed (to non-DSN-aware mailer)";
1146 else if (bitset(QEXPANDED, q->q_flags))
1147 action = "expanded (to multi-recipient alias)";
1148 else if (bitset(QDELAYED, q->q_flags))
1149 action = "delayed";
1150 else if (bitset(QBYTRACE, q->q_flags))
1151 action = "relayed (Deliver-By trace mode)";
1152 else if (bitset(QBYNDELAY, q->q_flags))
1153 action = "delayed (Deliver-By notify mode)";
1154 else if (bitset(QBYNRELAY, q->q_flags))
1155 action = "relayed (Deliver-By notify mode)";
1156 else
1157 continue;
1158
1159 if (!putline("", mci))
1160 goto writeerr;
1161
1162 /* Original-Recipient: -- passed from on high */
1163 if (q->q_orcpt != NULL)
1164 {
1165 (void) sm_snprintf(buf, sizeof(buf),
1166 "Original-Recipient: %.800s",
1167 q->q_orcpt);
1168 if (!putline(buf, mci))
1169 goto writeerr;
1170 }
1171
1172 /* Figure out actual recipient */
1173 actual[0] = '\0';
1174 if (q->q_user[0] != '\0')
1175 {
1176 if (q->q_mailer != NULL &&
1177 q->q_mailer->m_addrtype != NULL)
1178 p = q->q_mailer->m_addrtype;
1179 else
1180 p = "rfc822";
1181
1182 if (sm_strcasecmp(p, "rfc822") == 0 &&
1183 strchr(q->q_user, '@') == NULL)
1184 {
1185 (void) sm_snprintf(actual,
1186 sizeof(actual),
1187 "%s; %.700s@%.100s",
1188 p, q->q_user,
1189 MyHostName);
1190 }
1191 else
1192 {
1193 (void) sm_snprintf(actual,
1194 sizeof(actual),
1195 "%s; %.800s",
1196 p, q->q_user);
1197 }
1198 }
1199
1200 /* Final-Recipient: -- the name from the RCPT command */
1201 if (q->q_finalrcpt == NULL)
1202 {
1203 /* should never happen */
1204 sm_syslog(LOG_ERR, e->e_id,
1205 "returntosender: q_finalrcpt is NULL");
1206
1207 /* try to fall back to the actual recipient */
1208 if (actual[0] != '\0')
1209 q->q_finalrcpt = sm_rpool_strdup_x(e->e_rpool,
1210 actual);
1211 }
1212
1213 if (q->q_finalrcpt != NULL)
1214 {
1215 (void) sm_snprintf(buf, sizeof(buf),
1216 "Final-Recipient: %s",
1217 q->q_finalrcpt);
1218 if (!putline(buf, mci))
1219 goto writeerr;
1220 }
1221
1222 /* X-Actual-Recipient: -- the real problem address */
1223 if (actual[0] != '\0' &&
1224 q->q_finalrcpt != NULL &&
1225 !bitset(PRIV_NOACTUALRECIPIENT, PrivacyFlags) &&
1226 strcmp(actual, q->q_finalrcpt) != 0)
1227 {
1228 (void) sm_snprintf(buf, sizeof(buf),
1229 "X-Actual-Recipient: %s",
1230 actual);
1231 if (!putline(buf, mci))
1232 goto writeerr;
1233 }
1234
1235 /* Action: -- what happened? */
1236 (void) sm_strlcpyn(buf, sizeof(buf), 2, "Action: ",
1237 action);
1238 if (!putline(buf, mci))
1239 goto writeerr;
1240
1241 /* Status: -- what _really_ happened? */
1242 if (q->q_status != NULL)
1243 p = q->q_status;
1244 else if (QS_IS_BADADDR(q->q_state))
1245 p = "5.0.0";
1246 else if (QS_IS_QUEUEUP(q->q_state))
1247 p = "4.0.0";
1248 else
1249 p = "2.0.0";
1250 (void) sm_strlcpyn(buf, sizeof(buf), 2, "Status: ", p);
1251 if (!putline(buf, mci))
1252 goto writeerr;
1253
1254 /* Remote-MTA: -- who was I talking to? */
1255 if (q->q_statmta != NULL)
1256 {
1257 if (q->q_mailer == NULL ||
1258 (p = q->q_mailer->m_mtatype) == NULL)
1259 p = "dns";
1260 (void) sm_snprintf(buf, sizeof(buf),
1261 "Remote-MTA: %s; %.800s",
1262 p, q->q_statmta);
1263 p = &buf[strlen(buf) - 1];
1264 if (*p == '.')
1265 *p = '\0';
1266 if (!putline(buf, mci))
1267 goto writeerr;
1268 }
1269
1270 /* Diagnostic-Code: -- actual result from other end */
1271 if (q->q_rstatus != NULL)
1272 {
1273 if (q->q_mailer == NULL ||
1274 (p = q->q_mailer->m_diagtype) == NULL)
1275 p = "smtp";
1276 (void) sm_snprintf(buf, sizeof(buf),
1277 "Diagnostic-Code: %s; %.800s",
1278 p, q->q_rstatus);
1279 if (!putline(buf, mci))
1280 goto writeerr;
1281 }
1282
1283 /* Last-Attempt-Date: -- fine granularity */
1284 if (q->q_statdate == (time_t) 0L)
1285 q->q_statdate = curtime();
1286 (void) sm_strlcpyn(buf, sizeof(buf), 2,
1287 "Last-Attempt-Date: ",
1288 arpadate(ctime(&q->q_statdate)));
1289 if (!putline(buf, mci))
1290 goto writeerr;
1291
1292 /* Will-Retry-Until: -- for delayed messages only */
1293 if (QS_IS_QUEUEUP(q->q_state))
1294 {
1295 time_t xdate;
1296
1297 xdate = e->e_parent->e_ctime +
1298 TimeOuts.to_q_return[e->e_parent->e_timeoutclass];
1299 (void) sm_strlcpyn(buf, sizeof(buf), 2,
1300 "Will-Retry-Until: ",
1301 arpadate(ctime(&xdate)));
1302 if (!putline(buf, mci))
1303 goto writeerr;
1304 }
1305 }
1306 }
1307 #endif /* DSN */
1308
1309 /*
1310 ** Output text of original message
1311 */
1312
1313 if (!putline("", mci))
1314 goto writeerr;
1315 if (bitset(EF_HAS_DF, e->e_parent->e_flags))
1316 {
1317 sendbody = !bitset(EF_NO_BODY_RETN, e->e_parent->e_flags) &&
1318 !bitset(EF_NO_BODY_RETN, e->e_flags);
1319
1320 if (e->e_msgboundary == NULL)
1321 {
1322 if (!putline(
1323 sendbody
1324 ? " ----- Original message follows -----\n"
1325 : " ----- Message header follows -----\n",
1326 mci))
1327 {
1328 goto writeerr;
1329 }
1330 }
1331 else
1332 {
1333 (void) sm_strlcpyn(buf, sizeof(buf), 2, "--",
1334 e->e_msgboundary);
1335
1336 if (!putline(buf, mci))
1337 goto writeerr;
1338 (void) sm_strlcpyn(buf, sizeof(buf), 2, "Content-Type: ",
1339 sendbody ? "message/rfc822"
1340 : "text/rfc822-headers");
1341 if (!putline(buf, mci))
1342 goto writeerr;
1343
1344 p = hvalue("Content-Transfer-Encoding",
1345 e->e_parent->e_header);
1346 if (p != NULL && sm_strcasecmp(p, "binary") != 0)
1347 p = NULL;
1348 if (p == NULL &&
1349 bitset(EF_HAS8BIT, e->e_parent->e_flags))
1350 p = "8bit";
1351 if (p != NULL)
1352 {
1353 (void) sm_snprintf(buf, sizeof(buf),
1354 "Content-Transfer-Encoding: %s",
1355 p);
1356 if (!putline(buf, mci))
1357 goto writeerr;
1358 }
1359 }
1360 if (!putline("", mci))
1361 goto writeerr;
1362 save_errno = errno;
1363 if (!putheader(mci, e->e_parent->e_header, e->e_parent,
1364 M87F_OUTER))
1365 goto writeerr;
1366 errno = save_errno;
1367 if (sendbody)
1368 {
1369 if (!putbody(mci, e->e_parent, e->e_msgboundary))
1370 goto writeerr;
1371 }
1372 else if (e->e_msgboundary == NULL)
1373 {
1374 if (!putline("", mci) ||
1375 !putline(" ----- Message body suppressed -----",
1376 mci))
1377 {
1378 goto writeerr;
1379 }
1380 }
1381 }
1382 else if (e->e_msgboundary == NULL)
1383 {
1384 if (!putline(" ----- No message was collected -----\n", mci))
1385 goto writeerr;
1386 }
1387
1388 if (e->e_msgboundary != NULL)
1389 {
1390 (void) sm_strlcpyn(buf, sizeof(buf), 3, "--", e->e_msgboundary,
1391 "--");
1392 if (!putline("", mci) || !putline(buf, mci))
1393 goto writeerr;
1394 }
1395 if (!putline("", mci) ||
1396 sm_io_flush(mci->mci_out, SM_TIME_DEFAULT) == SM_IO_EOF)
1397 goto writeerr;
1398
1399 /*
1400 ** Cleanup and exit
1401 */
1402
1403 if (errno != 0)
1404 {
1405 writeerr:
1406 syserr("errbody: I/O error");
1407 return false;
1408 }
1409 return true;
1410 }
1411
1412 /*
1413 ** SMTPTODSN -- convert SMTP to DSN status code
1414 **
1415 ** Parameters:
1416 ** smtpstat -- the smtp status code (e.g., 550).
1417 **
1418 ** Returns:
1419 ** The DSN version of the status code.
1420 **
1421 ** Storage Management:
1422 ** smtptodsn() returns a pointer to a character string literal,
1423 ** which will remain valid forever, and thus does not need to
1424 ** be copied. Current code relies on this property.
1425 */
1426
1427 char *
smtptodsn(smtpstat)1428 smtptodsn(smtpstat)
1429 int smtpstat;
1430 {
1431 if (smtpstat < 0)
1432 return "4.4.2";
1433
1434 switch (smtpstat)
1435 {
1436 case 450: /* Req mail action not taken: mailbox unavailable */
1437 return "4.2.0";
1438
1439 case 451: /* Req action aborted: local error in processing */
1440 return "4.3.0";
1441
1442 case 452: /* Req action not taken: insufficient sys storage */
1443 return "4.3.1";
1444
1445 case 500: /* Syntax error, command unrecognized */
1446 return "5.5.2";
1447
1448 case 501: /* Syntax error in parameters or arguments */
1449 return "5.5.4";
1450
1451 case 502: /* Command not implemented */
1452 return "5.5.1";
1453
1454 case 503: /* Bad sequence of commands */
1455 return "5.5.1";
1456
1457 case 504: /* Command parameter not implemented */
1458 return "5.5.4";
1459
1460 case 550: /* Req mail action not taken: mailbox unavailable */
1461 return "5.2.0";
1462
1463 case 551: /* User not local; please try <...> */
1464 return "5.1.6";
1465
1466 case 552: /* Req mail action aborted: exceeded storage alloc */
1467 return "5.2.2";
1468
1469 case 553: /* Req action not taken: mailbox name not allowed */
1470 return "5.1.0";
1471
1472 case 554: /* Transaction failed */
1473 return "5.0.0";
1474 }
1475
1476 if (REPLYTYPE(smtpstat) == 2)
1477 return "2.0.0";
1478 if (REPLYTYPE(smtpstat) == 4)
1479 return "4.0.0";
1480 return "5.0.0";
1481 }
1482 /*
1483 ** XTEXTIFY -- take regular text and turn it into DSN-style xtext
1484 **
1485 ** Parameters:
1486 ** t -- the text to convert.
1487 ** taboo -- additional characters that must be encoded.
1488 **
1489 ** Returns:
1490 ** The xtext-ified version of the same string.
1491 */
1492
1493 char *
xtextify(t,taboo)1494 xtextify(t, taboo)
1495 register char *t;
1496 char *taboo;
1497 {
1498 register char *p;
1499 int l;
1500 int nbogus;
1501 static char *bp = NULL;
1502 static int bplen = 0;
1503
1504 if (taboo == NULL)
1505 taboo = "";
1506
1507 /* figure out how long this xtext will have to be */
1508 nbogus = l = 0;
1509 for (p = t; *p != '\0'; p++)
1510 {
1511 register int c = (*p & 0xff);
1512
1513 /* ASCII dependence here -- this is the way the spec words it */
1514 if (c < '!' || c > '~' || c == '+' || c == '\\' || c == '(' ||
1515 strchr(taboo, c) != NULL)
1516 nbogus++;
1517 l++;
1518 }
1519 if (nbogus < 0)
1520 {
1521 /* since nbogus is ssize_t and wrapped, 2 * size_t would wrap */
1522 syserr("!xtextify string too long");
1523 }
1524 if (nbogus == 0)
1525 return t;
1526 l += nbogus * 2 + 1;
1527
1528 /* now allocate space if necessary for the new string */
1529 if (l > bplen)
1530 {
1531 if (bp != NULL)
1532 sm_free(bp); /* XXX */
1533 bp = sm_pmalloc_x(l);
1534 bplen = l;
1535 }
1536
1537 /* ok, copy the text with byte expansion */
1538 for (p = bp; *t != '\0'; )
1539 {
1540 register int c = (*t++ & 0xff);
1541
1542 /* ASCII dependence here -- this is the way the spec words it */
1543 if (c < '!' || c > '~' || c == '+' || c == '\\' || c == '(' ||
1544 strchr(taboo, c) != NULL)
1545 {
1546 *p++ = '+';
1547 *p++ = "0123456789ABCDEF"[c >> 4];
1548 *p++ = "0123456789ABCDEF"[c & 0xf];
1549 }
1550 else
1551 *p++ = c;
1552 }
1553 *p = '\0';
1554 return bp;
1555 }
1556 /*
1557 ** XUNTEXTIFY -- take xtext and turn it into plain text
1558 **
1559 ** Parameters:
1560 ** t -- the xtextified text.
1561 **
1562 ** Returns:
1563 ** The decoded text. No attempt is made to deal with
1564 ** null strings in the resulting text.
1565 */
1566
1567 char *
xuntextify(t)1568 xuntextify(t)
1569 register char *t;
1570 {
1571 register char *p;
1572 int l;
1573 static char *bp = NULL;
1574 static int bplen = 0;
1575
1576 /* heuristic -- if no plus sign, just return the input */
1577 if (strchr(t, '+') == NULL)
1578 return t;
1579
1580 /* xtext is always longer than decoded text */
1581 l = strlen(t);
1582 if (l > bplen)
1583 {
1584 if (bp != NULL)
1585 sm_free(bp); /* XXX */
1586 bp = xalloc(l);
1587 bplen = l;
1588 }
1589
1590 /* ok, copy the text with byte compression */
1591 for (p = bp; *t != '\0'; t++)
1592 {
1593 register int c = *t & 0xff;
1594
1595 if (c != '+')
1596 {
1597 *p++ = c;
1598 continue;
1599 }
1600
1601 c = *++t & 0xff;
1602 if (!isascii(c) || !isxdigit(c))
1603 {
1604 /* error -- first digit is not hex */
1605 usrerr("bogus xtext: +%c", c);
1606 t--;
1607 continue;
1608 }
1609 if (isdigit(c))
1610 c -= '0';
1611 else if (isupper(c))
1612 c -= 'A' - 10;
1613 else
1614 c -= 'a' - 10;
1615 *p = c << 4;
1616
1617 c = *++t & 0xff;
1618 if (!isascii(c) || !isxdigit(c))
1619 {
1620 /* error -- second digit is not hex */
1621 usrerr("bogus xtext: +%x%c", *p >> 4, c);
1622 t--;
1623 continue;
1624 }
1625 if (isdigit(c))
1626 c -= '0';
1627 else if (isupper(c))
1628 c -= 'A' - 10;
1629 else
1630 c -= 'a' - 10;
1631 *p++ |= c;
1632 }
1633 *p = '\0';
1634 return bp;
1635 }
1636 /*
1637 ** XTEXTOK -- check if a string is legal xtext
1638 **
1639 ** Xtext is used in Delivery Status Notifications. The spec was
1640 ** taken from RFC 1891, ``SMTP Service Extension for Delivery
1641 ** Status Notifications''.
1642 **
1643 ** Parameters:
1644 ** s -- the string to check.
1645 **
1646 ** Returns:
1647 ** true -- if 's' is legal xtext.
1648 ** false -- if it has any illegal characters in it.
1649 */
1650
1651 bool
xtextok(s)1652 xtextok(s)
1653 char *s;
1654 {
1655 int c;
1656
1657 while ((c = *s++) != '\0')
1658 {
1659 if (c == '+')
1660 {
1661 c = *s++;
1662 if (!isascii(c) || !isxdigit(c))
1663 return false;
1664 c = *s++;
1665 if (!isascii(c) || !isxdigit(c))
1666 return false;
1667 }
1668 else if (c < '!' || c > '~' || c == '=')
1669 return false;
1670 }
1671 return true;
1672 }
1673 /*
1674 ** PRUNEROUTE -- prune an RFC-822 source route
1675 **
1676 ** Trims down a source route to the last internet-registered hop.
1677 ** This is encouraged by RFC 1123 section 5.3.3.
1678 **
1679 ** Parameters:
1680 ** addr -- the address
1681 **
1682 ** Returns:
1683 ** true -- address was modified
1684 ** false -- address could not be pruned
1685 **
1686 ** Side Effects:
1687 ** modifies addr in-place
1688 */
1689
1690 static bool
pruneroute(addr)1691 pruneroute(addr)
1692 char *addr;
1693 {
1694 #if NAMED_BIND
1695 char *start, *at, *comma;
1696 char c;
1697 int braclev;
1698 int rcode;
1699 int i;
1700 char hostbuf[BUFSIZ];
1701 char *mxhosts[MAXMXHOSTS + 1];
1702
1703 /* check to see if this is really a route-addr */
1704 if (*addr != '<' || addr[1] != '@' || addr[strlen(addr) - 1] != '>')
1705 return false;
1706
1707 /*
1708 ** Can't simply find the first ':' is the address might be in the
1709 ** form: "<@[IPv6:::1]:user@host>" and the first ':' in inside
1710 ** the IPv6 address.
1711 */
1712
1713 start = addr;
1714 braclev = 0;
1715 while (*start != '\0')
1716 {
1717 if (*start == ':' && braclev <= 0)
1718 break;
1719 else if (*start == '[')
1720 braclev++;
1721 else if (*start == ']' && braclev > 0)
1722 braclev--;
1723 start++;
1724 }
1725 if (braclev > 0 || *start != ':')
1726 return false;
1727
1728 at = strrchr(addr, '@');
1729 if (at == NULL || at < start)
1730 return false;
1731
1732 /* slice off the angle brackets */
1733 i = strlen(at + 1);
1734 if (i >= sizeof(hostbuf))
1735 return false;
1736 (void) sm_strlcpy(hostbuf, at + 1, sizeof(hostbuf));
1737 hostbuf[i - 1] = '\0';
1738
1739 while (start != NULL)
1740 {
1741 if (getmxrr(hostbuf, mxhosts, NULL, false,
1742 &rcode, true, NULL) > 0)
1743 {
1744 (void) sm_strlcpy(addr + 1, start + 1,
1745 strlen(addr) - 1);
1746 return true;
1747 }
1748 c = *start;
1749 *start = '\0';
1750 comma = strrchr(addr, ',');
1751 if (comma != NULL && comma[1] == '@' &&
1752 strlen(comma + 2) < sizeof(hostbuf))
1753 (void) sm_strlcpy(hostbuf, comma + 2, sizeof(hostbuf));
1754 else
1755 comma = NULL;
1756 *start = c;
1757 start = comma;
1758 }
1759 #endif /* NAMED_BIND */
1760 return false;
1761 }
1762