![[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 [MW Coherent from dump] / coherent / d / bin / mail|
Return to send.c CVS log | Up to [MW Coherent from dump] / coherent / d / bin / mail |
1.1 root 1: #include <stdio.h>
2: #include <sys/types.h>
3: #include <sys/mdata.h>
4: #include <time.h>
5: #include <pwd.h>
6: #include <utmp.h>
7: #include <sys/stat.h>
8: #include "mail.h"
9:
10: #define SITENAMELEN 32 /* max length of sitename */
11: #define NODENAME "/etc/uucpname"
12: #define DOMAINNAME "/etc/domain"
13: #define ALIAS "/usr/lib/mail/aliases"
14: char domain [64];
15:
16: extern char *strtok();
17: FILE *aliasfp;
18: char aliasbuf [BUFSIZ];
19: char *findalias();
20: static **gusers;
21: char mysite[SITENAMELEN]; /* this host's uucpname */
22:
23: extern char *temp;
24: extern int myuid; /* User-id of mail user */
25: extern int mygid; /* Group-id of mail user */
26: extern char cmdname[]; /* Command for x{en,de}code filter */
27: /* and for tail recursion to uumail */
28: /* and for editor recursion */
29: extern char *editname; /* name of editor */
30: extern char *askcc; /* Ask for CC: list? (YES/NO) */
31: extern int callmexmail; /* Xmail modifier present */
32: extern char wrerr[];
33: extern char myname[]; /* User name */
34: extern char myfullname[]; /* full user name */
35: extern int mflag; /* `You have mail.' message to recipient */
36: extern int verbflag; /* verbose flag */
37: extern char templ[]; /* Temp file name template */
38: extern char mydead[]; /* $HOME/dead.letter */
39: extern char mysig[];
40: extern char nosave[];
41: extern int callmermail;
42:
43: static int eflag; /* Edit this mail */
44: static int senderr;
45: struct tm *tp;
46: char toerr[] = "Cannot create temporary file\n";
47: char header[BUFSIZ]; /* Message header */
48: char boxname[256]; /* Destination mailbox */
49: char aftralias [BUFSIZ]; /* name after alias processing */
50: char remotefrom [32]; /* "remote from uucp" */
51:
52: char nosend[] = "Can't send mail to '%s'\n";
53: char nopubk[] = "Can't send xmail to '%s'\n";
54: static int fromtty;
55:
56: /*
57: * Send the message found on
58: * the file pointer to the list
59: * of people (argv style) with
60: * a NULL pointer at the end.
61: * The message is copied to a temp-file
62: * from position `start' to `end' (or EOF).
63: */
64: send2(fp, users, start, end, asksubj)
65: FILE *fp;
66: register char **users;
67: fsize_t start, end;
68: int asksubj;
69: {
70: char **getcc();
71: FILE *xfp, *tfp, *sigfp;
72: time_t curtime;
73:
74: uucpname();
75: domainname();
76: senderr = 0;
77: temp = templ;
78: /*fprintf(stderr, "send2(fp, users, %ld, %ld, %d)\n", start, end, asksubj);*/
79: fromtty = isatty(fileno(fp));
80: if ((tfp = fopen(temp, "w")) != NULL) {
81: fclose(tfp);
82: if ((tfp = fopen(temp, "r+w")) == NULL)
83: merr(toerr);
84: } else
85: merr(toerr);
86: chown(temp, myuid, mygid);
87: unlink(temp);
88: temp = NULL;
89: fseek(fp, start, 0);
90: end -= start;
91:
92: eflag = 0;
93: if (fromtty && asksubj && !callmermail) {
94: fprintf(stdout, "Subject: ");
95: fflush(stdout);
96: if (fgets(msgline, NLINE, fp) != NULL) {
97: if (strlen(msgline) > 1)
98: fprintf(tfp, "Subject: %s", msgline);
99: }
100: }
101: for (;;) {
102: if (fgets(msgline, NLINE, fp) == NULL)
103: break;
104: if (fp == stdin)
105: if ((strcmp(".\n", msgline)==0))
106: break;
107: else if ((strcmp("?\n", msgline)==0)) {
108: eflag = 1;
109: break;
110: }
111: /* fprintf(stderr, ":%s:", msgline); */
112: fputs(msgline, tfp);
113: end -= strlen(msgline); /* compiler bug */
114: if (end <= 0) {
115: break;
116: }
117: }
118: if (!callmermail && (sigfp = fopen(mysig, "r")) != NULL) {
119: fputs("\n", tfp);
120: while (fgets(msgline, NLINE, sigfp) != NULL) {
121: fputs(msgline, tfp);
122: }
123: fclose(sigfp);
124: }
125: /*
126: * If interrupted, bug out.
127: */
128: if (intcheck()) {
129: fclose(tfp);
130: return;
131: }
132: /*
133: * Now, see if user wants to edit the message
134: */
135: if (eflag) {
136: xfp = tfp;
137: temp = templ;
138: if ((tfp = fopen(temp, "wr")) == NULL)
139: merr(toerr);
140: chown(temp, myuid, mygid);
141: mcopy(xfp, tfp, (fsize_t)0, (fsize_t)MAXLONG, 0);
142: fclose(xfp);
143: sprintf(cmdname, "%s %s", editname, templ);
144: system(cmdname);
145: unlink(temp);
146: temp = NULL;
147: }
148: /*
149: * Otherwise if empty message, bug out.
150: */
151: else if (ftell(tfp) == 0) {
152: fclose(tfp);
153: return;
154: }
155: /*
156: * Now see if a copy list is requested.
157: */
158: if (askcc)
159: users = getcc(users);
160: gusers = users;
161: /*
162: * Now send the message.
163: */
164: time(&curtime);
165: tp = localtime(&curtime);
166: if (callmexmail)
167: xsend(users, tfp);
168: else
169: usend(users, tfp);
170: }
171:
172: usend(users, tfp)
173: char **users;
174: FILE *tfp;
175: {
176: FILE *xfp;
177: char *cp, *ap;
178: char **ulist;
179: register struct passwd *pwp;
180:
181: for (ulist = users; *ulist != NULL; ulist++) {
182: rewind(tfp);
183: strcpy(aftralias, *ulist);
184: if (index(*ulist, '!') == 0) {
185: ap = findalias(*ulist);
186: if (ap != NULL) {
187: strcpy(aftralias, ap);
188: if (verbflag && strcmp(aftralias, ap))
189: fprintf(stderr,
190: "name %s aliased to %s\n",
191: *ulist, aftralias);
192: }
193: }
194: if ((cp = index(aftralias, '!')) != NULL) {
195: *cp++ = '\0';
196: if (rsend(aftralias, cp, tfp) != 0)
197: senderr = 1;
198: continue;
199: }
200: sprintf(boxname, "%s%s", SPOOLDIR, aftralias);
201: if ((pwp = getpwnam(aftralias)) == NULL) {
202: mmsg(nosend, aftralias);
203: senderr = 1;
204: continue;
205: }
206: mlock(pwp->pw_uid);
207: if ((xfp = fopen(boxname, "a")) == NULL) {
208: mmsg(nosend, aftralias);
209: senderr = 1;
210: munlock();
211: continue;
212: }
213: chown(boxname, pwp->pw_uid, pwp->pw_gid);
214: if (build_header(aftralias, NULL, tfp, xfp) != 1
215: || mcopy(tfp, xfp, ftell(tfp), (fsize_t)MAXLONG, 0)) {
216: merr(wrerr, boxname);
217: senderr = 1;
218: } else
219: fprintf(xfp, "\1\1\n");
220: fflush(xfp);
221: munlock();
222: advise(aftralias);
223: }
224: if (senderr && fromtty && ! callmexmail) {
225: if (maccess(mydead) < 0
226: || (xfp = fopen(mydead, "a")) == NULL
227: || mcopy(tfp, xfp, (fsize_t)0, (fsize_t)MAXLONG, 0))
228: mmsg(nosave, mydead);
229: else
230: mmsg("Letter saved in %s\n", mydead);
231: if (xfp != NULL) {
232: chown(mydead, myuid, mygid);
233: fclose(xfp);
234: }
235: }
236: fclose(tfp);
237: }
238:
239: rsend(system, user, tfp)
240: char *user;
241: char *system;
242: FILE *tfp;
243: {
244: FILE *xfp;
245: int i;
246:
247: sprintf(cmdname, "uux -r - %s!rmail '(%s)'", system, user);
248: if (verbflag)
249: fprintf(stderr, "Queueing remote mail to %s!%s\n",
250: system, user);
251: if ((xfp = popen(cmdname, "w")) == NULL) {
252: mmsg("Can't pipe to %s\n", cmdname);
253: return 1;
254: }
255: if (build_header(user, mysite, tfp, xfp) != 1
256: || mcopy(tfp, xfp, ftell(tfp), (fsize_t)MAXLONG, 0)) {
257: merr(wrerr, cmdname);
258: return 1;
259: }
260: if (i = (pclose(xfp) != 0)) {
261: mmsg("uux has failed, status %d\n", i);
262: return 1;
263: }
264: return 0;
265: }
266:
267: xsend(users, tfp) char **users; FILE *tfp;
268: {
269: register char **ulist;
270: register char *cp;
271: register struct passwd *pwp;
272: FILE *xfp;
273:
274: for (ulist = users; *ulist!=NULL; ulist++) {
275: rewind(tfp);
276: sprintf(boxname, "%s%s", SPOOLDIR, *ulist);
277: sprintf(cmdname, "xencode %s >> %s", *ulist, boxname);
278: if (index(*ulist, '!') != NULL
279: || (pwp = getpwnam(*ulist)) == NULL) {
280: mmsg(nosend, *ulist);
281: continue;
282: }
283: if (xaccess(*ulist) == 0) {
284: mmsg(nopubk, *ulist);
285: continue;
286: }
287: mlock(pwp->pw_uid);
288: if ((xfp = fopen(boxname, "a")) == NULL) {
289: mmsg(nosend, *ulist);
290: munlock();
291: continue;
292: }
293: chown(boxname, pwp->pw_uid, pwp->pw_gid);
294: fprintf(xfp, "From xmail %s %s\n", cp,
295: tzname[tp->tm_isdst ? 1 : 0]);
296: fclose(xfp);
297: if ((xfp = popen(cmdname, "w")) == NULL) {
298: mmsg("Can't pipe to xencode\n");
299: continue;
300: }
301: if (fwrite(header, strlen(header), 1, xfp) != 1
302: || mcopy(tfp, xfp, (fsize_t)0, (fsize_t)MAXLONG, 0)) {
303: merr(wrerr, cmdname);
304: }
305: pclose(xfp);
306: munlock();
307: }
308: fclose(tfp);
309: }
310:
311: /*
312: * If the `-m' option is specified, advise
313: * the recipient of the presence of mail.
314: */
315: advise(recipient)
316: char *recipient;
317: {
318: register FILE *fp;
319: register FILE *tfp;
320: struct utmp ut;
321: char tty[30];
322: struct stat sb;
323:
324: if (!mflag)
325: return;
326: if ((fp = fopen("/etc/utmp", "r")) == NULL)
327: return;
328: while (fread(&ut, sizeof ut, 1, fp) == 1)
329: if (strncmp(ut.ut_name, recipient, DIRSIZ) == 0) {
330: sprintf(tty, "/dev/%s", ut.ut_line);
331: if (stat(tty, &sb)<0 || (sb.st_mode&S_IEXEC)==0)
332: continue;
333: if ((tfp = fopen(tty, "w")) != NULL) {
334: fprintf(tfp, "\7%s: you have mail.\n", myname);
335: fclose(tfp);
336: }
337: }
338: fclose(fp);
339: }
340:
341: uucpname()
342: {
343: FILE *uufile;
344:
345: if (NULL == (uufile = fopen(NODENAME, "r"))) {
346: strcpy(mysite, "<unknown>");
347: return;
348: }
349: fgets(mysite, sizeof mysite, uufile);
350: mysite[strlen(mysite) - 1] = '\0'; /* remove '\n' */
351: fclose(uufile);
352: return;
353: }
354:
355: domainname()
356: {
357: FILE *domfile;
358: if((domfile = fopen(DOMAINNAME, "r")) == NULL) {
359: strcpy(domain, ".UNKNOWN");
360: return;
361: }
362: fgets(domain, sizeof domain, domfile);
363: domain [strlen(domain) - 1] = '\0';
364: fclose (domfile);
365: return;
366: }
367:
368: char *
369: findalias(who)
370: {
371: char *name, *newname;
372: static whobuf [64];
373: int recurcount;
374: int hit;
375:
376: if (aliasfp == NULL) {
377: if ((aliasfp = fopen(ALIAS, "r")) == NULL) {
378: mmsg("Cannot open alias file\n");
379: return who;
380: }
381: }
382: recurcount = 0;
383: strcpy(whobuf, who);
384: for (; ; ) {
385: fseek(aliasfp, 0L, 0);
386: hit = 0;
387: while (fgets(aliasbuf, BUFSIZ, aliasfp) != NULL) {
388: name = strtok(aliasbuf," #:\t");
389: newname = strtok(NULL, "#(), \t\n");
390: if (strcmp(name, whobuf) == 0) {
391: strcpy(whobuf, newname);
392: if (recurcount++ > 4) {
393: sprintf(whobuf,
394: "Too many alias recursions for %s\n",
395: who);
396: mmsg(whobuf);
397: return who;
398: }
399: hit = 1;
400: break;
401: }
402: }
403: if (hit == 0)
404: return whobuf;
405: }
406: return whobuf;
407: }
408:
409: char *
410: arpadate(tp)
411: struct tm *tp;
412: {
413: static char arpabuf [64];
414: static char months[] = "JanFebMarAprMayJunJulAugSepOctNovDec";
415: sprintf(arpabuf, "%d %c%c%c %d %02d:%02d:%02d",
416: tp->tm_mday,
417: months[tp->tm_mon * 3],
418: months[tp->tm_mon * 3 + 1],
419: months[tp->tm_mon * 3 + 2],
420: tp->tm_year,
421: tp->tm_hour, tp->tm_min, tp->tm_sec);
422: return arpabuf;
423: }
424:
425: char *
426: msgid(tp)
427: struct tm *tp;
428: {
429: static char msgidbuf [32];
430: sprintf(msgidbuf, "%02d%02d%02d%02d%02d",
431: tp->tm_year, tp->tm_mon + 1, tp->tm_mday, tp->tm_hour, tp->tm_min);
432: return msgidbuf;
433: }
434:
435: build_header(user, site, tfp, xfp)
436: char *user;
437: char *site;
438: FILE *tfp;
439: FILE *xfp;
440: {
441: char *cp;
442: char **ulist;
443: long pos;
444: int processid;
445:
446: cp = asctime(tp);
447: cp[strlen(cp)-1] = 0;
448: /* if (!callmermail) { */
449: sprintf(header, "From %s %s %s", myname, cp,
450: tzname[tp->tm_isdst ? 1 : 0]);
451: if (site != NULL) {
452: strcat(header, " remote from ");
453: strcat(header, site);
454: }
455: strcat(header, "\n");
456: /* } */
457: if (fwrite(header, strlen(header), 1, xfp) != 1)
458: return 0;
459: pos = ftell(tfp);
460: /* scan to end of From_ lines */
461: while (fgets(header, NLINE, tfp) != NULL) {
462: if ((strncmp (header, "From ", 5) != 0) &&
463: (strncmp (header, ">From ", 6) != 0)) {
464: break;
465: }
466: if (fwrite(header, strlen(header), 1, xfp) != 1)
467: return 0;
468: pos = ftell(tfp);
469: }
470: fseek(tfp, pos, 0);
471: processid = getpid();
472: if (callmermail) {
473: sprintf(header,
474: "Received: by %s (mail v %s)\n\tid AA%d; %s\n",
475: mysite, revnop(), processid, arpadate(tp));
476: if (fwrite(header, strlen(header), 1, xfp) != 1)
477: return 0;
478: } else {
479: sprintf(header, "Message-Id: <%s.AA%d.V%s.%s@%s>\n",
480: msgid(tp), processid, revnop(), mysite, domain);
481: if (fwrite(header, strlen(header), 1, xfp) != 1)
482: return 0;
483: sprintf(header, "Date: %s\nFrom: %s!%s (%s)\n",
484: arpadate(tp), mysite, myname, myfullname);
485: if (fwrite(header, strlen(header), 1, xfp) != 1)
486: return 0;
487: sprintf(header, "To: %s\n", user);
488: if (fwrite(header, strlen(header), 1, xfp) != 1)
489: return 0;
490: if (gusers[0] != NULL && gusers[1] != NULL) {
491: strcpy(header, "cc:");
492: for (ulist = gusers; *ulist != NULL; ulist++) {
493: strcat(header, " ");
494: strcat(header, *ulist);
495: }
496: strcat(header, "\n");
497: if (fwrite(header, strlen(header), 1, xfp) != 1)
498: return 0;
499: }
500: }
501: return 1;
502: }
503:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.