1 # include <pwd.h>
2 # include "sendmail.h"
3 
4 static char	SccsId[] = "@(#)savemail.c	3.17	09/06/81";
5 
6 /*
7 **  SAVEMAIL -- Save mail on error
8 **
9 **	If the MailBack flag is set, mail it back to the originator
10 **	together with an error message; otherwise, just put it in
11 **	dead.letter in the user's home directory (if he exists on
12 **	this machine).
13 **
14 **	Parameters:
15 **		none
16 **
17 **	Returns:
18 **		none
19 **
20 **	Side Effects:
21 **		Saves the letter, by writing or mailing it back to the
22 **		sender, or by putting it in dead.letter in her home
23 **		directory.
24 */
25 
26 savemail()
27 {
28 	register struct passwd *pw;
29 	register FILE *xfile;
30 	char buf[MAXLINE+1];
31 	extern errhdr();
32 	auto ADDRESS to_addr;
33 	extern struct passwd *getpwnam();
34 	register char *p;
35 	register int i;
36 	extern char *ttypath();
37 	static int exclusive;
38 
39 	if (exclusive++)
40 		return;
41 
42 	/*
43 	**  In the unhappy event we don't know who to return the mail
44 	**  to, make someone up.
45 	*/
46 
47 	if (From.q_paddr == NULL)
48 	{
49 		if (parse("root", &From, 0) == NULL)
50 		{
51 			syserr("Cannot parse root!");
52 			ExitStat = EX_SOFTWARE;
53 			finis();
54 		}
55 	}
56 	To = NULL;
57 
58 	/*
59 	**  If called from Eric Schmidt's network, do special mailback.
60 	**	Fundamentally, this is the mailback case except that
61 	**	it returns an OK exit status (assuming the return
62 	**	worked).
63 	*/
64 
65 	if (BerkNet)
66 	{
67 		ExitStat = EX_OK;
68 		MailBack++;
69 	}
70 
71 	/*
72 	**  If writing back, do it.
73 	**	If the user is still logged in on the same terminal,
74 	**	then write the error messages back to hir (sic).
75 	**	If not, set the MailBack flag so that it will get
76 	**	mailed back instead.
77 	*/
78 
79 	if (WriteBack)
80 	{
81 		p = ttypath();
82 		if (p == NULL || freopen(p, "w", stdout) == NULL)
83 		{
84 			MailBack++;
85 			errno = 0;
86 		}
87 		else
88 		{
89 			xfile = fopen(Transcript, "r");
90 			if (xfile == NULL)
91 				syserr("Cannot open %s", Transcript);
92 			(void) expand("$n", buf, &buf[sizeof buf - 1]);
93 			printf("\r\nMessage from %s...\r\n", buf);
94 			printf("Errors occurred while sending mail; transcript follows:\r\n");
95 			while (fgets(buf, sizeof buf, xfile) != NULL && !ferror(stdout))
96 				fputs(buf, stdout);
97 			if (ferror(stdout))
98 				(void) syserr("savemail: stdout: write err");
99 			(void) fclose(xfile);
100 		}
101 	}
102 
103 	/*
104 	**  If mailing back, do it.
105 	**	Throw away all further output.  Don't do aliases, since
106 	**	this could cause loops, e.g., if joe mails to x:joe,
107 	**	and for some reason the network for x: is down, then
108 	**	the response gets sent to x:joe, which gives a
109 	**	response, etc.  Also force the mail to be delivered
110 	**	even if a version of it has already been sent to the
111 	**	sender.
112 	*/
113 
114 	if (MailBack)
115 	{
116 		(void) freopen("/dev/null", "w", stdout);
117 		NoAlias++;
118 		ForceMail++;
119 
120 		/* fake up an address header for the from person */
121 		bmove((char *) &From, (char *) &to_addr, sizeof to_addr);
122 		(void) expand("$n", buf, &buf[sizeof buf - 1]);
123 		if (parse(buf, &From, -1) == NULL)
124 		{
125 			syserr("Can't parse myself!");
126 			ExitStat = EX_SOFTWARE;
127 			finis();
128 		}
129 		to_addr.q_next = NULL;
130 		i = deliver(&to_addr, errhdr);
131 		bmove((char *) &to_addr, (char *) &From, sizeof From);
132 		if (i != 0)
133 			syserr("Can't return mail to %s", p);
134 		else
135 			return;
136 	}
137 
138 	/*
139 	**  Save the message in dead.letter.
140 	**	If we weren't mailing back, and the user is local, we
141 	**	should save the message in dead.letter so that the
142 	**	poor person doesn't have to type it over again --
143 	**	and we all know what poor typists programmers are.
144 	*/
145 
146 	if (ArpaMode != ARPA_NONE)
147 		return;
148 	p = NULL;
149 	if (From.q_mailer == MN_LOCAL)
150 	{
151 		if (From.q_home != NULL)
152 			p = From.q_home;
153 		else if ((pw = getpwnam(From.q_user)) != NULL)
154 			p = pw->pw_dir;
155 	}
156 	if (p == NULL)
157 	{
158 		syserr("Can't return mail to %s", From.q_paddr);
159 # ifdef DEBUG
160 		p = "/usr/tmp";
161 # else
162 		p = NULL;
163 # endif
164 	}
165 	if (p != NULL && TempFile != NULL)
166 	{
167 		/* we have a home directory; open dead.letter */
168 		message(Arpa_Info, "Saving message in dead.letter");
169 		define('z', p);
170 		(void) expand("$z/dead.letter", buf, &buf[sizeof buf - 1]);
171 		To = buf;
172 		i = mailfile(buf);
173 		giveresponse(i, TRUE, Mailer[MN_LOCAL]);
174 	}
175 
176 	/* add terminator to writeback message */
177 	if (WriteBack)
178 		printf("-----\r\n");
179 }
180 /*
181 **  ERRHDR -- Output the header for error mail.
182 **
183 **	This is the edit filter to error mailbacks.
184 **
185 **	Algorithm:
186 **		Output fixed header.
187 **		Output the transcript part.
188 **		Output the original message.
189 **
190 **	Parameters:
191 **		xfile -- the transcript file.
192 **		fp -- the output file.
193 **
194 **	Returns:
195 **		none
196 **
197 **	Side Effects:
198 **		input from xfile
199 **		output to fp
200 **
201 **	Called By:
202 **		deliver
203 */
204 
205 
206 errhdr(fp, m)
207 	register FILE *fp;
208 	register struct mailer *m;
209 {
210 	char buf[MAXLINE];
211 	register FILE *xfile;
212 
213 	(void) fflush(stdout);
214 	if ((xfile = fopen(Transcript, "r")) == NULL)
215 		syserr("Cannot open %s", Transcript);
216 	errno = 0;
217 
218 	/*
219 	**  Output header of error message.
220 	*/
221 
222 	if (bitset(M_NEEDDATE, m->m_flags))
223 	{
224 		(void) expand("$b", buf, &buf[sizeof buf - 1]);
225 		fprintf(fp, "Date: %s\n", buf);
226 	}
227 	if (bitset(M_NEEDFROM, m->m_flags))
228 	{
229 		(void) expand("$g", buf, &buf[sizeof buf - 1]);
230 		fprintf(fp, "From: %s (Mail Delivery Subsystem)\n", buf);
231 	}
232 	fprintf(fp, "To: %s\n", To);
233 	fprintf(fp, "Subject: Unable to deliver mail\n");
234 
235 	/*
236 	**  Output transcript of errors
237 	*/
238 
239 	fprintf(fp, "\n   ----- Transcript of session follows -----\n");
240 	while (fgets(buf, sizeof buf, xfile) != NULL)
241 		fputs(buf, fp);
242 
243 	/*
244 	**  Output text of original message
245 	*/
246 
247 	if (NoReturn)
248 		fprintf(fp, "\n   ----- Return message suppressed -----\n\n");
249 	else if (TempFile != NULL)
250 	{
251 		fprintf(fp, "\n   ----- Unsent message follows -----\n");
252 		(void) fflush(fp);
253 		putmessage(fp, Mailer[1]);
254 	}
255 	else
256 		fprintf(fp, "\n  ----- No message was collected -----\n\n");
257 
258 	/*
259 	**  Cleanup and exit
260 	*/
261 
262 	(void) fclose(xfile);
263 	if (errno != 0)
264 		syserr("errhdr: I/O error");
265 }
266