[unix-history] / usr / src / cmd / mail.c

#include <stdio.h>
#include <pwd.h>
#include <utmp.h>
#include <signal.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <setjmp.h>

/*copylet flags */
	/*remote mail, add rmtmsg */
#define REMOTE	1
	/* zap header and trailing empty line */
#define ZAP	3
#define ORDINARY 2
#define	FORWARD	4
#define	LSIZE	256
#define	MAXLET	300	/* maximum number of letters */
#define	MAILMODE (~0644)		/* mode of created mail */

char	line[LSIZE];
char	resp[LSIZE];
struct let {
	long	adr;
	char	change;
} let[MAXLET];
int	nlet	= 0;
char	lfil[50];
long	iop, time();
char	lettmp[] = "/tmp/maXXXXX";
char	maildir[] = "/usr/spool/mail/";
char	mailfile[] = "/usr/spool/mail/xxxxxxxxxxxxxxxxxxxxxxx";
char	dead[] = "dead.letter";
char	*rmtmsg = " remote from vax135\n";		/*LOCAL*/
char	*thissys = "vax135";		/*LOCAL*/
char	forwmsg[] = " forwarded\n";
char	*curlock;
int	lockerror;
FILE	*tmpf;
FILE	*malf;
char	*my_name;
char	*getlogin();
struct	passwd	*getpwuid();
int	error;
int	locked;
int	changed;
int	forward;
char	from[] = "From ";
long	ftell();
int	delete();
char	*ctime();
int	flgf;
int	flgp;
int	delflg = 1;
jmp_buf	sjbuf;

main(argc, argv)
char **argv;
{
	register i;
	char sobuf[BUFSIZ];

	setbuf(stdout, sobuf);
	mktemp(lettmp);
	unlink(lettmp);
	my_name = getlogin();
	if (my_name == NULL) {
		struct passwd *pwent;
		pwent = getpwuid(getuid());
		if (pwent==NULL)
			my_name = "???";
		else
			my_name = pwent->pw_name;
	}
	if(setjmp(sjbuf)) done();
	for (i=0; i<20; i++)
		setsig(i, delete);
	tmpf = fopen(lettmp, "w");
	if (tmpf == NULL) {
		fprintf(stderr, "mail: cannot open %s for writing\n", lettmp);
		done();
	}
	if (argv[0][0] != 'r' &&	/* no favors for rmail*/
	   (argc == 1 || argv[1][0] == '-'))
		printmail(argc, argv);
	else
		sendmail(argc, argv);
	done();
}

setsig(i, f)
int i;
int (*f)();
{
	if(signal(i, SIG_IGN)!=SIG_IGN)
		signal(i, f);
}

printmail(argc, argv)
char **argv;
{
	int flg, i, j, print;
	char *p, *getarg();

	setuid(getuid());
	cat(mailfile, maildir, my_name);
	for (; argc>1; argv++, argc--) {
		if (argv[1][0]=='-') {
			if (argv[1][1]=='q')
				delflg = 0;
			else if (argv[1][1]=='p') {
				flgp++;
				delflg = 0;
			} else if (argv[1][1]=='f') {
				if (argc>=3) {
					strcpy(mailfile, argv[2]);
					argv++;
					argc--;
				}
			} else if (argv[1][1]=='r') {
				forward = 1;
			} else {
				fprintf(stderr, "mail: unknown option %c\n", argv[1][1]);
				done();
			}
		} else
			break;
	}
	malf = fopen(mailfile, "r");
	if (malf == NULL) {
		fprintf(stdout, "No mail.\n");
		return;
	}
	lock(mailfile);
	copymt(malf, tmpf);
	fclose(malf);
	fclose(tmpf);
	unlock();
	tmpf = fopen(lettmp, "r");

	changed = 0;
	print = 1;
	for (i = 0; i < nlet; ) {
		j = forward ? i : nlet - i - 1;
		if(setjmp(sjbuf)) {
			print=0;
		} else {
			if (print)
				copylet(j, stdout, ORDINARY);
			print = 1;
		}
		if (flgp) {
			i++;
			continue;
		}
		setjmp(sjbuf);
		fprintf(stdout, "? ");
		fflush(stdout);
		if (fgets(resp, LSIZE, stdin) == NULL)
			break;
		switch (resp[0]) {

		default:
			fprintf(stderr, "usage\n");
		case '?':
			print = 0;
			fprintf(stderr, "q\tquit\n");
			fprintf(stderr, "x\texit without changing mail\n");
			fprintf(stderr, "p\tprint\n");
			fprintf(stderr, "s[file]\tsave (default mbox)\n");
			fprintf(stderr, "w[file]\tsame without header\n");
			fprintf(stderr, "-\tprint previous\n");
			fprintf(stderr, "d\tdelete\n");
			fprintf(stderr, "+\tnext (no delete)\n");
			fprintf(stderr, "m user\tmail to user\n");
			fprintf(stderr, "! cmd\texecute cmd\n");
			break;

		case '+':
		case 'n':
		case '\n':
			i++;
			break;
		case 'x':
			changed = 0;
		case 'q':
			goto donep;
		case 'p':
			break;
		case '^':
		case '-':
			if (--i < 0)
				i = 0;
			break;
		case 'y':
		case 'w':
		case 's':
			flg = 0;
			if (resp[1] != '\n' && resp[1] != ' ') {
				printf("illegal\n");
				flg++;
				print = 0;
				continue;
			}
			if (resp[1] == '\n' || resp[1] == '\0')
				cat(resp+1, "mbox", "");
			for (p = resp+1; (p = getarg(lfil, p)) != NULL; ) {
				malf = fopen(lfil, "a");
				if (malf == NULL) {
					fprintf(stdout, "mail: cannot append to %s\n", lfil);
					flg++;
					continue;
				}
				copylet(j, malf, resp[0]=='w'? ZAP: ORDINARY);
				fclose(malf);
			}
			if (flg)
				print = 0;
			else {
				let[j].change = 'd';
				changed++;
				i++;
			}
			break;
		case 'm':
			flg = 0;
			if (resp[1] == '\n' || resp[1] == '\0') {
				i++;
				continue;
			}
			if (resp[1] != ' ') {
				printf("invalid command\n");
				flg++;
				print = 0;
				continue;
			}
			for (p = resp+1; (p = getarg(lfil, p)) != NULL; )
				if (!sendrmt(j, lfil))	/* couldn't send it */
					flg++;
			if (flg)
				print = 0;
			else {
				let[j].change = 'd';
				changed++;
				i++;
			}
			break;
		case '!':
			system(resp+1);
			printf("!\n");
			print = 0;
			break;
		case 'd':
			let[j].change = 'd';
			changed++;
			i++;
			if (resp[1] == 'q')
				goto donep;
			break;
		}
	}
   donep:
	if (changed)
		copyback();
}

copyback()	/* copy temp or whatever back to /usr/spool/mail */
{
	register i, n, c;
	int new = 0;
	struct stat stbuf;

	signal(SIGINT, SIG_IGN);
	signal(SIGHUP, SIG_IGN);
	signal(SIGQUIT, SIG_IGN);
	lock(mailfile);
	stat(mailfile, &stbuf);
	if (stbuf.st_size != let[nlet].adr) {	/* new mail has arrived */
		malf = fopen(mailfile, "r");
		if (malf == NULL) {
			fprintf(stdout, "mail: can't re-read %s\n", mailfile);
			done();
		}
		fseek(malf, let[nlet].adr, 0);
		fclose(tmpf);
		tmpf = fopen(lettmp, "a");
		fseek(tmpf, let[nlet].adr, 0);
		while ((c = fgetc(malf)) != EOF)
			fputc(c, tmpf);
		fclose(malf);
		fclose(tmpf);
		tmpf = fopen(lettmp, "r");
		let[++nlet].adr = stbuf.st_size;
		new = 1;
	}
	malf = fopen(mailfile, "w");
	if (malf == NULL) {
		fprintf(stderr, "mail: can't rewrite %s\n", lfil);
		done();
	}
	n = 0;
	for (i = 0; i < nlet; i++)
		if (let[i].change != 'd') {
			copylet(i, malf, ORDINARY);
			n++;
		}
	fclose(malf);
	if (new)
		fprintf(stdout, "new mail arrived\n");
	unlock();
}

copymt(f1, f2)	/* copy mail (f1) to temp (f2) */
FILE *f1, *f2;
{
	long nextadr;

	nlet = nextadr = 0;
	let[0].adr = 0;
	while (fgets(line, LSIZE, f1) != NULL) {
		if (isfrom(line))
			let[nlet++].adr = nextadr;
		nextadr += strlen(line);
		fputs(line, f2);
	}
	let[nlet].adr = nextadr;	/* last plus 1 */
}

copylet(n, f, type) FILE *f;
{	int ch, k;
	fseek(tmpf, let[n].adr, 0);
	k = let[n+1].adr - let[n].adr;
	while(k-- > 1 && (ch=fgetc(tmpf))!='\n')
		if(type!=ZAP) fputc(ch,f);
	if(type==REMOTE)
		fprintf(f, rmtmsg);
	else if (type==FORWARD)
		fprintf(f, forwmsg);
	else if(type==ORDINARY)
		fputc(ch,f);
	while(k-->1)
		fputc(ch=fgetc(tmpf), f);
	if(type!=ZAP || ch!= '\n')
		fputc(fgetc(tmpf), f);
}

isfrom(lp)
register char *lp;
{
	register char *p;

	for (p = from; *p; )
		if (*lp++ != *p++)
			return(0);
	return(1);
}

sendmail(argc, argv)
char **argv;
{

	time(&iop);
	fprintf(tmpf, "%s%s %s", from, my_name, ctime(&iop));
	iop = ftell(tmpf);
	flgf = 1;
	while (fgets(line, LSIZE, stdin) != NULL) {
		if (line[0] == '.' && line[1] == '\n')
			break;
		if (isfrom(line))
			fputs(">", tmpf);
		fputs(line, tmpf);
		flgf = 0;
	}
	fputs("\n", tmpf);
	nlet = 1;
	let[0].adr = 0;
	let[1].adr = ftell(tmpf);
	fclose(tmpf);
	if (flgf)
		return;
	tmpf = fopen(lettmp, "r");
	if (tmpf == NULL) {
		fprintf(stderr, "mail: cannot reopen %s for reading\n", lettmp);
		return;
	}
	while (--argc > 0)
		if (!send(0, *++argv))	/* couldn't send to him */
			error++;
	if (error) {
		setuid(getuid());
		malf = fopen(dead, "w");
		if (malf == NULL) {
			fprintf(stdout, "mail: cannot open %s\n", dead);
			fclose(tmpf);
			return;
		}
		copylet(0, malf, ZAP);
		fclose(malf);
		fprintf(stdout, "Mail saved in %s\n", dead);
	}
	fclose(tmpf);
}

sendrmt(n, name)
char *name;
{
	FILE *rmf, *popen();
	register char *p;
	char rsys[64], cmd[64];
	register local, pid;
	int sts;

	local = 0;
	if (*name=='!')
		name++;
	for(p=rsys; *name!='!'; *p++ = *name++)
		if (*name=='\0') {
			local++;
			break;
		}
	*p = '\0';
	if ((!local && *name=='\0') || (local && *rsys=='\0')) {
		fprintf(stdout, "null name\n");
		return(0);
	}
	if ((pid = fork()) == -1) {
		fprintf(stderr, "mail: can't create proc for remote\n");
		return(0);
	}
	if (pid) {
		while (wait(&sts) != pid) {
			if (wait(&sts)==-1)
				return(0);
		}
		return(!sts);
	}
	setuid(getuid());
	if (local)
		sprintf(cmd, "mail %s", rsys);
	else {
		if (index(name+1, '!'))
			sprintf(cmd, "uux - %s!rmail \\(%s\\)", rsys, name+1);
		else
			sprintf(cmd, "uux - %s!rmail %s", rsys, name+1);
	}
	if ((rmf=popen(cmd, "w")) == NULL)
		exit(1);
	copylet(n, rmf, local? FORWARD: REMOTE);
	pclose(rmf);
	exit(0);
}

send(n, name)	/* send letter n to name */
int n;
char *name;
{
	char file[50];
	register char *p;
	register mask;
	struct passwd *pw, *getpwnam();

	for(p=name; *p!='!' &&*p!='\0'; p++)
		;
	if (*p == '!')
		return(sendrmt(n, name));
	if ((pw = getpwnam(name)) == NULL) {
		fprintf(stdout, "mail: can't send to %s\n", name);
		return(0);
	}
	cat(file, maildir, name);
	mask = umask(MAILMODE);
	malf = fopen(file, "a");
	umask(mask);
	if (malf == NULL) {
		fprintf(stdout, "mail: cannot append to %s\n", file);
		return(0);
	}
	lock(file);
	chown(file, pw->pw_uid, pw->pw_gid);
	copylet(n, malf, ORDINARY);
	fclose(malf);
	unlock();
	return(1);
}

delete(i)
{
	setsig(i, delete);
	fprintf(stderr, "\n");
	if(delflg)
		longjmp(sjbuf, 1);
	done();
}

done()
{
	if(!lockerror)
		unlock();
	unlink(lettmp);
	exit(error+lockerror);
}

lock(file)
char *file;
{
	struct stat stbuf;

	if (locked || flgf)
		return;
	if (stat(file, &stbuf)<0)
		return;
	if (stbuf.st_mode&01) { 	/* user x bit is the lock */
		if (stbuf.st_ctime+60 >= time((long *)0)) {
			fprintf(stderr, "%s busy; try again in a minute\n", file);
			lockerror++;
			done();
		}
	}
	locked = stbuf.st_mode & ~01;
	curlock = file;
	chmod(file, stbuf.st_mode|01);
}

unlock()
{
	if (locked)
		chmod(curlock, locked);
	locked = 0;
}

cat(to, from1, from2)
char *to, *from1, *from2;
{
	int i, j;

	j = 0;
	for (i=0; from1[i]; i++)
		to[j++] = from1[i];
	for (i=0; from2[i]; i++)
		to[j++] = from2[i];
	to[j] = 0;
}

char *getarg(s, p)	/* copy p... into s, update p */
register char *s, *p;
{
	while (*p == ' ' || *p == '\t')
		p++;
	if (*p == '\n' || *p == '\0')
		return(NULL);
	while (*p != ' ' && *p != '\t' && *p != '\n' && *p != '\0')
		*s++ = *p++;
	*s = '\0';
	return(p);
}
Commit	Line	Data
999bd51d TL	1	#include <stdio.h>
	2	#include <pwd.h>
	3	#include <utmp.h>
	4	#include <signal.h>
	5	#include <sys/types.h>
	6	#include <sys/stat.h>
	7	#include <setjmp.h>
	8
	9	/copylet flags /
	10	/remote mail, add rmtmsg /
	11	#define REMOTE 1
	12	/* zap header and trailing empty line */
	13	#define ZAP 3
	14	#define ORDINARY 2
	15	#define FORWARD 4
	16	#define LSIZE 256
	17	#define MAXLET 300 /* maximum number of letters */
	18	#define MAILMODE (~0644) /* mode of created mail */
	19
	20	char line[LSIZE];
	21	char resp[LSIZE];
	22	struct let {
	23	long adr;
	24	char change;
	25	} let[MAXLET];
	26	int nlet = 0;
	27	char lfil[50];
	28	long iop, time();
	29	char lettmp[] = "/tmp/maXXXXX";
	30	char maildir[] = "/usr/spool/mail/";
	31	char mailfile[] = "/usr/spool/mail/xxxxxxxxxxxxxxxxxxxxxxx";
	32	char dead[] = "dead.letter";
	33	char rmtmsg = " remote from vax135\n"; /LOCAL*/
	34	char thissys = "vax135"; /LOCAL*/
	35	char forwmsg[] = " forwarded\n";
	36	char *curlock;
	37	int lockerror;
	38	FILE *tmpf;
	39	FILE *malf;
	40	char *my_name;
	41	char *getlogin();
	42	struct passwd *getpwuid();
	43	int error;
	44	int locked;
	45	int changed;
	46	int forward;
	47	char from[] = "From ";
	48	long ftell();
	49	int delete();
	50	char *ctime();
	51	int flgf;
	52	int flgp;
	53	int delflg = 1;
	54	jmp_buf sjbuf;
	55
	56	main(argc, argv)
	57	char **argv;
	58	{
	59	register i;
	60	char sobuf[BUFSIZ];
	61
	62	setbuf(stdout, sobuf);
	63	mktemp(lettmp);
	64	unlink(lettmp);
65	my_name = getlogin();
66	if (my_name == NULL) {
67	struct passwd *pwent;
68	pwent = getpwuid(getuid());
69	if (pwent==NULL)
70	my_name = "???";
71	else
72	my_name = pwent->pw_name;
73	}
74	if(setjmp(sjbuf)) done();
75	for (i=0; i<20; i++)
76	setsig(i, delete);
77	tmpf = fopen(lettmp, "w");
78	if (tmpf == NULL) {
79	fprintf(stderr, "mail: cannot open %s for writing\n", lettmp);
80	done();
81	}
82	if (argv[0][0] != 'r' && /* no favors for rmail*/
83	(argc == 1 \|\| argv[1][0] == '-'))
84	printmail(argc, argv);
85	else
86	sendmail(argc, argv);
87	done();
88	}
89
90	setsig(i, f)
91	int i;
92	int (*f)();
93	{
94	if(signal(i, SIG_IGN)!=SIG_IGN)
95	signal(i, f);
96	}
97
98	printmail(argc, argv)
99	char **argv;
100	{
101	int flg, i, j, print;
102	char p, getarg();
103
104	setuid(getuid());
105	cat(mailfile, maildir, my_name);
106	for (; argc>1; argv++, argc--) {
107	if (argv[1][0]=='-') {
108	if (argv[1][1]=='q')
109	delflg = 0;
110	else if (argv[1][1]=='p') {
111	flgp++;
112	delflg = 0;
113	} else if (argv[1][1]=='f') {
114	if (argc>=3) {
115	strcpy(mailfile, argv[2]);
116	argv++;
117	argc--;
118	}
119	} else if (argv[1][1]=='r') {
120	forward = 1;
121	} else {
122	fprintf(stderr, "mail: unknown option %c\n", argv[1][1]);
123	done();
124	}
125	} else
126	break;
127	}
128	malf = fopen(mailfile, "r");
129	if (malf == NULL) {
130	fprintf(stdout, "No mail.\n");
131	return;
132	}
133	lock(mailfile);
134	copymt(malf, tmpf);
135	fclose(malf);
136	fclose(tmpf);
137	unlock();
138	tmpf = fopen(lettmp, "r");
139
140	changed = 0;
141	print = 1;
142	for (i = 0; i < nlet; ) {
143	j = forward ? i : nlet - i - 1;
144	if(setjmp(sjbuf)) {
145	print=0;
146	} else {
147	if (print)
148	copylet(j, stdout, ORDINARY);
149	print = 1;
150	}
151	if (flgp) {
152	i++;
153	continue;
154	}
155	setjmp(sjbuf);
156	fprintf(stdout, "? ");
157	fflush(stdout);
158	if (fgets(resp, LSIZE, stdin) == NULL)
159	break;
160	switch (resp[0]) {
161
162	default:
163	fprintf(stderr, "usage\n");
164	case '?':
165	print = 0;
166	fprintf(stderr, "q\tquit\n");
167	fprintf(stderr, "x\texit without changing mail\n");
168	fprintf(stderr, "p\tprint\n");
169	fprintf(stderr, "s[file]\tsave (default mbox)\n");
170	fprintf(stderr, "w[file]\tsame without header\n");
171	fprintf(stderr, "-\tprint previous\n");
172	fprintf(stderr, "d\tdelete\n");
173	fprintf(stderr, "+\tnext (no delete)\n");
174	fprintf(stderr, "m user\tmail to user\n");
175	fprintf(stderr, "! cmd\texecute cmd\n");
176	break;
177
178	case '+':
179	case 'n':
180	case '\n':
181	i++;
182	break;
183	case 'x':
184	changed = 0;
185	case 'q':
186	goto donep;
187	case 'p':
188	break;
189	case '^':
190	case '-':
191	if (--i < 0)
192	i = 0;
193	break;
194	case 'y':
195	case 'w':
196	case 's':
197	flg = 0;
198	if (resp[1] != '\n' && resp[1] != ' ') {
199	printf("illegal\n");
200	flg++;
201	print = 0;
202	continue;
203	}
204	if (resp[1] == '\n' \|\| resp[1] == '\0')
205	cat(resp+1, "mbox", "");
206	for (p = resp+1; (p = getarg(lfil, p)) != NULL; ) {
207	malf = fopen(lfil, "a");
208	if (malf == NULL) {
209	fprintf(stdout, "mail: cannot append to %s\n", lfil);
210	flg++;
211	continue;
212	}
213	copylet(j, malf, resp[0]=='w'? ZAP: ORDINARY);
214	fclose(malf);
215	}
216	if (flg)
217	print = 0;
218	else {
219	let[j].change = 'd';
220	changed++;
221	i++;
222	}
223	break;
224	case 'm':
225	flg = 0;
226	if (resp[1] == '\n' \|\| resp[1] == '\0') {
227	i++;
228	continue;
229	}
230	if (resp[1] != ' ') {
231	printf("invalid command\n");
232	flg++;
233	print = 0;
234	continue;
235	}
236	for (p = resp+1; (p = getarg(lfil, p)) != NULL; )
237	if (!sendrmt(j, lfil)) /* couldn't send it */
238	flg++;
239	if (flg)
240	print = 0;
241	else {
242	let[j].change = 'd';
243	changed++;
244	i++;
245	}
246	break;
247	case '!':
248	system(resp+1);
249	printf("!\n");
250	print = 0;
251	break;
252	case 'd':
253	let[j].change = 'd';
254	changed++;
255	i++;
256	if (resp[1] == 'q')
257	goto donep;
258	break;
259	}
260	}
261	donep:
262	if (changed)
263	copyback();
264	}
265
266	copyback() /* copy temp or whatever back to /usr/spool/mail */
267	{
268	register i, n, c;
269	int new = 0;
270	struct stat stbuf;
271
272	signal(SIGINT, SIG_IGN);
273	signal(SIGHUP, SIG_IGN);
274	signal(SIGQUIT, SIG_IGN);
275	lock(mailfile);
276	stat(mailfile, &stbuf);
277	if (stbuf.st_size != let[nlet].adr) { /* new mail has arrived */
278	malf = fopen(mailfile, "r");
279	if (malf == NULL) {
280	fprintf(stdout, "mail: can't re-read %s\n", mailfile);
281	done();
282	}
283	fseek(malf, let[nlet].adr, 0);
284	fclose(tmpf);
285	tmpf = fopen(lettmp, "a");
286	fseek(tmpf, let[nlet].adr, 0);
287	while ((c = fgetc(malf)) != EOF)
288	fputc(c, tmpf);
289	fclose(malf);
290	fclose(tmpf);
291	tmpf = fopen(lettmp, "r");
292	let[++nlet].adr = stbuf.st_size;
293	new = 1;
294	}
295	malf = fopen(mailfile, "w");
296	if (malf == NULL) {
297	fprintf(stderr, "mail: can't rewrite %s\n", lfil);
298	done();
299	}
300	n = 0;
301	for (i = 0; i < nlet; i++)
302	if (let[i].change != 'd') {
303	copylet(i, malf, ORDINARY);
304	n++;
305	}
306	fclose(malf);
307	if (new)
308	fprintf(stdout, "new mail arrived\n");
309	unlock();
310	}
311
312	copymt(f1, f2) /* copy mail (f1) to temp (f2) */
313	FILE f1, f2;
314	{
315	long nextadr;
316
317	nlet = nextadr = 0;
318	let[0].adr = 0;
319	while (fgets(line, LSIZE, f1) != NULL) {
320	if (isfrom(line))
321	let[nlet++].adr = nextadr;
322	nextadr += strlen(line);
323	fputs(line, f2);
324	}
325	let[nlet].adr = nextadr; /* last plus 1 */
326	}
327
328	copylet(n, f, type) FILE *f;
329	{ int ch, k;
330	fseek(tmpf, let[n].adr, 0);
331	k = let[n+1].adr - let[n].adr;
332	while(k-- > 1 && (ch=fgetc(tmpf))!='\n')
333	if(type!=ZAP) fputc(ch,f);
334	if(type==REMOTE)
335	fprintf(f, rmtmsg);
336	else if (type==FORWARD)
337	fprintf(f, forwmsg);
338	else if(type==ORDINARY)
339	fputc(ch,f);
340	while(k-->1)
341	fputc(ch=fgetc(tmpf), f);
342	if(type!=ZAP \|\| ch!= '\n')
343	fputc(fgetc(tmpf), f);
344	}
345
346	isfrom(lp)
347	register char *lp;
348	{
349	register char *p;
350
351	for (p = from; *p; )
352	if (lp++ != p++)
353	return(0);
354	return(1);
355	}
356
357	sendmail(argc, argv)
358	char **argv;
359	{
360
361	time(&iop);
362	fprintf(tmpf, "%s%s %s", from, my_name, ctime(&iop));
363	iop = ftell(tmpf);
364	flgf = 1;
365	while (fgets(line, LSIZE, stdin) != NULL) {
366	if (line[0] == '.' && line[1] == '\n')
367	break;
368	if (isfrom(line))
369	fputs(">", tmpf);
370	fputs(line, tmpf);
371	flgf = 0;
372	}
373	fputs("\n", tmpf);
374	nlet = 1;
375	let[0].adr = 0;
376	let[1].adr = ftell(tmpf);
377	fclose(tmpf);
378	if (flgf)
379	return;
380	tmpf = fopen(lettmp, "r");
381	if (tmpf == NULL) {
382	fprintf(stderr, "mail: cannot reopen %s for reading\n", lettmp);
383	return;
384	}
385	while (--argc > 0)
386	if (!send(0, ++argv)) / couldn't send to him */
387	error++;
388	if (error) {
389	setuid(getuid());
390	malf = fopen(dead, "w");
391	if (malf == NULL) {
392	fprintf(stdout, "mail: cannot open %s\n", dead);
393	fclose(tmpf);
394	return;
395	}
396	copylet(0, malf, ZAP);
397	fclose(malf);
398	fprintf(stdout, "Mail saved in %s\n", dead);
399	}
400	fclose(tmpf);
401	}
402
403	sendrmt(n, name)
404	char *name;
405	{
406	FILE rmf, popen();
407	register char *p;
408	char rsys[64], cmd[64];
409	register local, pid;
410	int sts;
411
412	local = 0;
413	if (*name=='!')
414	name++;
415	for(p=rsys; name!='!'; p++ = *name++)
416	if (*name=='\0') {
417	local++;
418	break;
419	}
420	*p = '\0';
421	if ((!local && name=='\0') \|\| (local && rsys=='\0')) {
422	fprintf(stdout, "null name\n");
423	return(0);
424	}
425	if ((pid = fork()) == -1) {
426	fprintf(stderr, "mail: can't create proc for remote\n");
427	return(0);
428	}
429	if (pid) {
430	while (wait(&sts) != pid) {
431	if (wait(&sts)==-1)
432	return(0);
433	}
434	return(!sts);
435	}
436	setuid(getuid());
437	if (local)
438	sprintf(cmd, "mail %s", rsys);
439	else {
440	if (index(name+1, '!'))
441	sprintf(cmd, "uux - %s!rmail \\(%s\\)", rsys, name+1);
442	else
443	sprintf(cmd, "uux - %s!rmail %s", rsys, name+1);
444	}
445	if ((rmf=popen(cmd, "w")) == NULL)
446	exit(1);
447	copylet(n, rmf, local? FORWARD: REMOTE);
448	pclose(rmf);
449	exit(0);
450	}
451
452	send(n, name) /* send letter n to name */
453	int n;
454	char *name;
455	{
456	char file[50];
457	register char *p;
458	register mask;
459	struct passwd pw, getpwnam();
460
461	for(p=name; p!='!' &&p!='\0'; p++)
462	;
463	if (*p == '!')
464	return(sendrmt(n, name));
465	if ((pw = getpwnam(name)) == NULL) {
466	fprintf(stdout, "mail: can't send to %s\n", name);
467	return(0);
468	}
469	cat(file, maildir, name);
470	mask = umask(MAILMODE);
471	malf = fopen(file, "a");
472	umask(mask);
473	if (malf == NULL) {
474	fprintf(stdout, "mail: cannot append to %s\n", file);
475	return(0);
476	}
477	lock(file);
478	chown(file, pw->pw_uid, pw->pw_gid);
479	copylet(n, malf, ORDINARY);
480	fclose(malf);
481	unlock();
482	return(1);
483	}
484
485	delete(i)
486	{
487	setsig(i, delete);
488	fprintf(stderr, "\n");
489	if(delflg)
490	longjmp(sjbuf, 1);
491	done();
492	}
493
494	done()
495	{
496	if(!lockerror)
497	unlock();
498	unlink(lettmp);
499	exit(error+lockerror);
500	}
501
502	lock(file)
503	char *file;
504	{
505	struct stat stbuf;
506
507	if (locked \|\| flgf)
508	return;
509	if (stat(file, &stbuf)<0)
510	return;
511	if (stbuf.st_mode&01) { /* user x bit is the lock */
512	if (stbuf.st_ctime+60 >= time((long *)0)) {
513	fprintf(stderr, "%s busy; try again in a minute\n", file);
514	lockerror++;
515	done();
516	}
517	}
518	locked = stbuf.st_mode & ~01;
519	curlock = file;
520	chmod(file, stbuf.st_mode\|01);
521	}
522
523	unlock()
524	{
525	if (locked)
526	chmod(curlock, locked);
527	locked = 0;
528	}
529
530	cat(to, from1, from2)
531	char to, from1, *from2;
532	{
533	int i, j;
534
535	j = 0;
536	for (i=0; from1[i]; i++)
537	to[j++] = from1[i];
538	for (i=0; from2[i]; i++)
539	to[j++] = from2[i];
540	to[j] = 0;
541	}
542
543	char getarg(s, p) / copy p... into s, update p */
544	register char s, p;
545	{
546	while (p == ' ' \|\| p == '\t')
547	p++;
548	if (p == '\n' \|\| p == '\0')
549	return(NULL);
550	while (p != ' ' && p != '\t' && p != '\n' && p != '\0')
551	s++ = p++;
552	*s = '\0';
553	return(p);
554	}