![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to send.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / upas / send|
Return to send.c CVS log | Up to [Research Unix] / researchv8dc / cmd / upas / send |
1.1 root 1: #include <stdio.h>
2: #include <sys/types.h>
3: #include <signal.h>
4: #include <pwd.h>
5: #include <sys/stat.h>
6: #include <time.h>
7: #include <sys/timeb.h>
8: #include "letter.h"
9: #include "mail.h"
10: #include "string.h"
11:
12:
13: /* configuration */
14: #define DEAD "dead.letter"
15: #define MAILMODE (~0644) /* mode of created mail */
16: #define MAXFORWARD 32
17: #define MAXHOP 5
18:
19: /* imports */
20: extern char *basename();
21: extern int (*signal())();
22: extern char *getsysname();
23: extern char *stringin();
24: extern char *getarg();
25: extern char *getenv();
26: extern char *mailpath();
27: extern char *upaspath();
28: extern void lock();
29: extern void unlock();
30: extern int rewrite();
31: extern int getrules();
32: extern long getunix();
33: extern void putunix();
34: extern void putrfunix();
35: extern FILE *popen();
36: extern char *getlogin();
37: extern char *asctime();
38: extern struct tm *localtime();
39: extern char *timezone();
40:
41: /* exported */
42: char *thissys; /* name of this system */
43: char *network = "uucp"; /* name of network mail is coming from */
44: int onatty;
45: int rmail; /* true if not executed as 'mail' */
46:
47: /* global to this module */
48: #define LETTERNAME 0
49: #define DEVTTY NOFILE-1
50: static int error;
51: static char *myname; /* name of this program */
52:
53: /* predeclared */
54: static void saveletter();
55: static int saveonint(), done();
56: static int send();
57: static int append_to_file();
58: static int pipe_to_cmd();
59: static long getfrom();
60:
61: extern void
62: sendmail(ac, av)
63: int ac;
64: char *av[];
65: {
66: int chkfl; /* check forward list */
67: int ind=1;
68: int (*rc)();
69: char sender[ADDRSIZE];
70: char date[DATESIZE];
71: long bodyoffset;
72: letter *lp;
73:
74: /* avoid hanging dk lines (HACK!!!!!!!!) */
75: close(DEVTTY);
76:
77: myname = basename(av[0]);
78: rmail = chkfl = strcmp(myname, "mail") != 0;
79: onatty = isatty(0);
80: thissys = getsysname();
81:
82: /* make temporary */
83: rc = signal(SIGINT, done);
84: inittmp();
85:
86: /* get network (default uucp) */
87: if (av[1][0] == '-' && av[1][1] == 'N') {
88: if (av[1][2] == '\0') {
89: network = av[2];
90: ind++;
91: } else {
92: network = &(av[1][2]);
93: }
94: ind++;
95: }
96:
97: /* read letter */
98: (void)signal(SIGINT, saveonint);
99: lp = lopen(LETTERNAME, "w");
100: copyto(stdin, lp, onatty, 1);
101: if (ltell(lp) == 0L)
102: done();
103:
104: /* send */
105: if (!error) {
106: (void)getrules();
107: lp = lopen(LETTERNAME, "r");
108: bodyoffset = getfrom(lp, sender, date);
109: (void)signal(SIGINT, rc);
110: for (; ind<ac; ind++) {
111: letseek(lp, bodyoffset);
112: error += send(lp, sender, date, av[ind], chkfl, 0);
113: }
114: }
115: if (error && onatty)
116: saveletter(lp);
117: (void)done();
118: }
119:
120: /* come here on interrupt while reading in letter */
121: static int
122: saveonint() {
123: (void)signal(SIGINT, saveonint);
124: error++;
125: }
126:
127: /* come here to finish up */
128: static int
129: done() {
130: unlock();
131: releasetmp();
132: exit(error);
133: }
134:
135: /* save the letter in dead.letter */
136: static void
137: saveletter(lp)
138: letter *lp;
139: {
140: FILE *malf;
141: char where[PATHSIZE];
142: char *home = getenv("HOME");
143:
144: (void)setgid(getgid());
145: (void)setuid(getuid());
146: if (home != NULL) {
147: strcpy(where, home);
148: strcat(where, "/");
149: } else
150: *where = '\0';
151: strcat(where, DEAD);
152: malf = fopen(where, "w");
153: if (malf == NULL) {
154: fprintf(stderr, "mail: cannot open %s\n", where);
155: return;
156: }
157: letseek(lp, (long)0);
158: copyfrom(lp, malf);
159: fclose(malf);
160: printf("Mail saved in %s\n", where);
161: }
162:
163: /*
164: * Send a letter. Return 0 if all went well.
165: */
166: static int
167: send(lp, sender, date, rcvr, chkfl, hop)
168: letter *lp;
169: char *sender, *date, *rcvr;
170: int chkfl;
171: int hop;
172: {
173: int rv, notinfl;
174: char dest[ADDRSIZE], rest[ADDRSIZE], cmd[CMDSIZE], format[32], sysname[64];
175:
176: if ((notinfl = rewrite(rcvr, sender, chkfl, cmd)) < 0) {
177: fprintf(stderr, "mail: can't understand address %s\n", dest);
178: return 1;
179: }
180: if (cmd[0]=='\0')
181: rv = append_to_file(lp, sender, date, rcvr, chkfl, hop);
182: else
183: rv = pipe_to_cmd(lp, sender, date, rcvr, cmd,
184: chkfl && notinfl);
185: return rv;
186: }
187:
188: /*
189: * Put mail into a mail file in the standard place.
190: */
191: static int
192: append_to_file(lp, sender, date, rcvr, chkfl, hop)
193: letter *lp;
194: char *sender, *date, *rcvr;
195: int hop;
196: {
197: register mask;
198: struct passwd *pw, *getpwnam();
199: struct stat stbuf;
200: char file[PATHSIZE];
201: char sendto[CMDSIZE];
202: int exists;
203: FILE *malf;
204: char *p;
205: int i;
206:
207: if (strcmp(rcvr, "-") == 0)
208: return(1);
209: if (strchr(rcvr, '/') != NULL) {
210: fprintf(stderr, "mail: illegal name %s\n", rcvr);
211: return(0);
212: }
213: strcpy(file, mailpath(rcvr));
214: switch (delivery_status(file, sendto) & MFTYPE) {
215: case MF_NORMAL:
216: /* normal message */
217: break;
218: case MF_FORWARD:
219: /* look for possible forwarding loop */
220: for (i = 0, p = sender-1; p != NULL; p = strchr(p+1, '!'))
221: if (strncmp(thissys, p+1, strlen(thissys))==0)
222: i++;
223: if (i > MAXHOP) {
224: logsend(rcvr, sender, date, "remote-mail-loop-err");
225: fprintf(stderr, "mail: remote mail loop\n");
226: break;
227: }
228:
229: /* forward message */
230: return forward_to(lp, rcvr, sender, date, sendto, hop);
231: case MF_PIPE:
232: /* pipe to a command */
233: (void)stat(file, &stbuf);
234: return pipe_to(lp, rcvr, sender, date, sendto, stbuf.st_uid,
235: stbuf.st_gid);
236: }
237: exists = stat(file, &stbuf);
238: if ((pw = getpwnam(rcvr)) == NULL) {
239: if (exists < 0) {
240: if (chkfl) {
241: refuse(lp,sender, date, rcvr, "addressee unknown.");
242: return(0);
243: }
244: fprintf(stderr, "mail: can't send to %s\n", rcvr);
245: return 1;
246: }
247: } else {
248: stbuf.st_uid = pw->pw_uid;
249: stbuf.st_gid = pw->pw_gid;
250: }
251: mask = umask(MAILMODE);
252: lock(file);
253: malf = fopen(file, "a");
254: umask(mask);
255: if (malf == NULL) {
256: fprintf(stderr, "mail: cannot append to %s\n", file);
257: logsend(rcvr, sender, date, "append-err");
258: return 1;
259: }
260: if (exists < 0)
261: chown(file, stbuf.st_uid, stbuf.st_gid);
262: fprintf(malf, "%s%s %s\n", FROM, sender, date);
263: copyfrom(lp, malf);
264: fputs("\n", malf);
265: fclose(malf);
266: unlock();
267: logsend(rcvr, sender, date, "delivered");
268: notify(rcvr, sender); /* let him know it right away! */
269: return 0;
270: }
271:
272: /*
273: * Pipe the mail into a command. This is either for remote
274: * mail or specially handled mail. Remote mail is distinguished
275: * by a non-null string as the destination.
276: */
277: static int
278: pipe_to_cmd(lp, sender, date, rcvr, cmd, chkfl)
279: letter *lp;
280: char *sender, *date, *rcvr, *cmd;
281: int chkfl;
282: {
283: FILE *fp;
284: char errbuf[CMDSIZE];
285: char reason[2*CMDSIZE];
286: long pos, status;
287:
288: /* check forwarding (what anti-social crap!) */
289: if (chkfl) {
290: if (rewrite(sender, "", chkfl, (char *)NULL) != 0) {
291: refuse(lp, sender, date, rcvr,
292: "forwarding to this system disallowed.");
293: return(0);
294: }
295: }
296:
297: /* do it */
298: if ((fp=popen(cmd, getuid(), getgid())) == NULL) {
299: fprintf(stderr, "mail: can't pipe to network mailer\n");
300: exit(1);
301: }
302: pos = ltell(lp);
303: putrfunix(sender, date, thissys, fp);
304: copyfrom(lp, fp);
305: status = pclose(fp, errbuf, CMDSIZE);
306: if (status==0) {
307: logsend(rcvr, sender, date, "remote");
308: return 0;
309: } else {
310: logsend(rcvr, sender, date, "remote-err");
311: logsend("", cmd, "", "remote-err");
312: sprintf(reason, "\"%s\"\nwas unable to send your mail. It returned the status 0x%x.\nStderr was:\n%s",
313: cmd, status, errbuf);
314: (void)letseek(lp, pos);
315: refuse(lp, sender, date, rcvr, reason);
316: return 0;
317: }
318: }
319:
320:
321: /* return to sender, address unknown, no such number, no such phone... */
322: refuse(lp, sender, date, rcvr, reason)
323: letter *lp;
324: char *sender, *date, *rcvr, *reason;
325: {
326: FILE *pf;
327: char cbuf[CMDSIZE];
328:
329: sprintf(cbuf, "PATH=/bin:/usr/bin mail %s", sender);
330: if ((pf = popen(cbuf, getuid(), getgid())) == NULL)
331: return;
332: fprintf(pf, "Mail to %s failed. %s\nMessage was:\n", rcvr, reason);
333: fprintf(pf, "%s%s %s\n", FROM, sender, date);
334: copyfrom(lp, pf);
335: pclose(pf, 0, 0);
336: logsend(rcvr, sender, date, "refused");
337: }
338:
339: /* forward mail to a list of people */
340: forward_to(lp, rcvr, sender, date, list, hop)
341: letter *lp;
342: char *rcvr, *sender, *date, *list;
343: int hop;
344: {
345: char dest[ADDRSIZE];
346: char *p;
347: int rv=0;
348:
349: if (hop > MAXFORWARD) {
350: fprintf(stderr, "mail: forwarding loop!!\n");
351: logsend(rcvr, sender, date, "forward-loop-err");
352: return 1;
353: }
354: for (p = list; (p = getarg(dest, p)) != NULL; ) {
355: (void)letseek(lp, (long)0);
356: rv += send(lp, sender, date, dest, 0, ++hop);
357: }
358: return rv;
359: }
360:
361: #define SU 0 /* super-duper user uid */
362:
363: /* change uid to the receiver and perform the command */
364: pipe_to(lp, rcvr, sender, date, cmd, uid, gid)
365: letter *lp;
366: char *rcvr, *sender, *date, *cmd;
367: {
368: FILE *fp;
369: int i;
370:
371: /* do it */
372: if ((fp=popen(cmd, uid, gid)) == NULL) {
373: fprintf(stderr, "mail: can't pipe to network mailer\n");
374: return 1;
375: }
376: putunix(sender, date, fp);
377: copyfrom(lp, fp);
378: if ((i=pclose(fp, 0, 0))==0) {
379: logsend(rcvr, sender, date, "pipe_to");
380: return 0;
381: } else {
382: logsend(rcvr, sender, date, "pipe_to_err");
383: logsend("", cmd, "", "pipe_to_err");
384: fprintf(stderr, "mail: Pipe to \"%s\" returns error status %d\n",
385: cmd, i);
386: return 1;
387: }
388: }
389:
390: /* default sender */
391: static void
392: defaultsender(sender, date)
393: char *sender; /* filled by defaultsender */
394: char *date; /* filled by defaultsender */
395: {
396: char *tp, *dp;
397: struct timeb timbuf;
398: struct tm *bp;
399: long thetime;
400:
401: (void)strcpy(sender, getlogin());
402: ftime(&timbuf);
403: thetime = timbuf.time;
404: bp = localtime(&thetime);
405: dp = asctime(bp);
406: tp = timezone(timbuf.timezone, bp->tm_isdst);
407: sprintf(date, "%.16s %.3s %.4s", dp, tp, dp+20);
408: }
409:
410: /* Get/parse a unix header. */
411: static long
412: getfrom(lp, sender, date)
413: letter *lp;
414: char *sender, *date;
415: {
416: char line[FROMLINESIZE];
417: long n=0;
418:
419: defaultsender(sender, date);
420: initgetunix();
421: while (lgets(line, sizeof(line), lp) != NULL) {
422: if (getunix(line, sender, date) == 0)
423: break;
424: n = ltell(lp);
425: }
426:
427: return n;
428: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.