![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to v6mail.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / old / berknet|
Return to v6mail.c CVS log | Up to [CSRG BSD Unix] / 43BSD / old / berknet |
1.1 root 1: static char sccsid[] = "@(#)v6mail.c 4.4 (Berkeley) 1/9/83";
2:
3: /*
4: * Version 6 Cory mail--
5: * a clean and simple mail program
6: * machine and version independent
7: * Eric Schmidt
8: * must run as setuid root to chown the destination mailbox
9: * if NOTROOT defined, doesn't need to run as root
10: *
11: * DON'T CHANGE THIS CODE
12: * bitch to "csvax:schmidt" instead
13: */
14:
15: /*
16: * mail command usage
17: * mail [-yn]
18: * prints your mail
19: * mail people
20: * sends standard input to people
21: *
22: * mail -r fromaddr people
23: * sends mail from the network
24: *
25: * mail -d people
26: * don't call sendmail, send mail directly
27: * mail msgs
28: * send to "msgs"
29: * mail filename
30: * mail to filename instead of user (must be at least one /)
31: * mail -D
32: * delete the invokers mailbox (more efficient than
33: * mail -n >/dev/null)
34: */
35:
36: /*
37: * bugs:
38: * Ingres 11/70 multiple names/uid?
39: * additions:
40: * Save? type 'x' - doesn't unlink the mail file
41: */
42: /*
43: * BIFF is an immediate notification flag using the IPC stuff
44: */
45: # include "local.h"
46: # include <stdio.h>
47: # include "mach.h"
48:
49: # ifdef RAND
50:
51: /* for all machines at RAND */
52: # define MAILMODE 0644
53:
54: # endif RAND
55:
56: # ifdef NOSC
57:
58: /* for all machines at NOSC */
59: # define MAILMODE 0644
60:
61: # endif NOSC
62:
63: # ifdef BERKELEY
64: /* for Berkeley */
65: /* for each machine */
66: /* lump the CC machines into one */
67: # ifdef CCV7
68: # define MAILMODE 0600
69: # define MSGSCMD "/usr/ucb/bin/msgs"
70: # endif
71:
72: # ifdef CCV6
73: # define MSGSCMD "/usr/bin/eecs/msgs"
74: # define MAILMODE 0600
75: # endif
76:
77: # ifdef ING70
78: # define MAILMODE 0666
79: # define MSGSCMD "/usr/bin/msgs"
80: # define NOTROOT
81: # endif
82:
83: # ifdef INGVAX
84: # define MAILMODE 0644
85: # define MSGSCMD "/usr/ucb/msgs"
86: # endif
87:
88: /*
89: # ifdef VIRUS
90: # define MAILMODE 0644
91: # define MSGSCMD "/usr/bin/msgs"
92: # endif
93: */
94:
95: # ifdef UCBVAX
96: # define MAILMODE 0644
97: # define MSGSCMD "/usr/ucb/msgs"
98: # define BIFF
99: # endif
100:
101: # ifdef IMAGE
102: # define MAILMODE 0644
103: # define MSGSCMD "/usr/bin/msgs"
104: # endif
105:
106: # ifdef KIM
107: # define MAILMODE 0644
108: # define MSGSCMD "/usr/ucb/msgs"
109: # endif
110:
111: # ifdef ESVAX
112: # define MAILMODE 0644
113: # define MSGSCMD "/usr/ucb/msgs"
114: # endif
115:
116: # ifdef Q
117: # define MAILMODE 0600
118: # define MSGSCMD "/usr/bin/eecs/msgs"
119: # endif
120:
121: # ifdef ARPAVAX
122: # define MAILMODE 0644
123: # define MSGSCMD "/usr/ucb/msgs"
124: # define BIFF
125: # endif
126:
127: # ifdef SRC
128: # define MAILMODE 0600
129: # define MSGSCMD "/usr/bin/msgs"
130: # endif
131:
132: # ifdef MATHSTAT
133: # define MAILMODE 0600
134: # define MSGSCMD "/usr/bin/msgs"
135: # endif
136:
137: # ifdef CSVAX
138: # define MAILMODE 0644
139: # define MSGSCMD "/usr/ucb/msgs"
140: # define BIFF
141: # endif
142:
143: # ifdef ONYX
144: # define MAILMODE 0644
145: # define MSGSCMD "/usr/ucb/bin/msgs"
146: # endif
147:
148: # ifdef CORY
149: # define MAILMODE 0600
150: # define MSGSCMD "/usr/bin/eecs/msgs"
151: # endif
152:
153: # ifdef EECS40
154: # define MAILMODE 0644
155: # define MSGSCMD "/usr/bin/msgs"
156: # endif
157: /* end of berkeley defsn */
158:
159: # endif
160: /* end of per-machine ifdefs */
161:
162: # ifdef USRMAIL
163: # define MAILDIR "/usr/mail"
164: # else
165: # define MAILDIR "/usr/spool/mail"
166: # endif
167:
168: char lettmp[] = "/tmp/MaXXXXX"; /* keep letter before sending it */
169: char preptmp[] = "/tmp/mbXXXXX"; /* if prepending msg, use this file */
170: int chew; /* if true, strip extra from lines */
171: int dflag; /* if true, don't call sendmail */
172: char shopcnt[30] = "0"; /* hop count parameter for rmt mail */
173: int errs; /* no of errs in sending */
174: char deleteonly; /* if true, just delete mailbox */
175: char remname[50]; /* if non-empty, from line extra */
176:
177: char _sobuf[BUFSIZ];
178: main(argc, argv)
179: char **argv;
180: {
181: register int myuid;
182: int delexit();
183: char namebuf[128], *sn = NULL, logindir[60];
184: struct passwd *pwd;
185:
186: setbuf(stdout,_sobuf);
187: mktemp(lettmp);
188: mktemp(preptmp);
189: unlink(lettmp);
190: unlink(preptmp);
191: myuid = getuid();
192: logindir[0] = 0;
193: sn = getlogin();
194: if(sn == NULL || *sn == 0 || *sn == ' '){
195: pwd = getpwuid(myuid); /* will read passwd file */
196: if(pwd != NULL){
197: sn = pwd->pw_name;
198: strcpy(logindir,pwd->pw_dir);
199: }
200: if(sn == NULL){
201: fprintf(stderr,"Who are you?\n");
202: delexit(EX_OSFILE);
203: }
204: }
205: strcpy(namebuf,sn);
206: if (argc < 2)
207: goto hitit;
208: for (argc--, argv++; argc > 0 && argv[0][0] == '-'; argc--, argv++)
209: switch(argv[0][1]) {
210: case 'y':
211: case 'n':
212: argc++, argv--;
213: hitit:
214: printmail(argc, argv, namebuf,logindir);
215: delexit(EX_OK);
216:
217: case 'r': /* one-arg -r-- -r addr */
218: if (argc < 2)
219: continue;
220: /* ignore -r if not network or root */
221: if (strcmp("network", namebuf) == 0 || myuid == 0 ||
222: strcmp("uucp", namebuf) == 0 || index(argv[1], '!') != NULL) {
223: strcpy(namebuf,argv[1]);
224: chew++; /* eat From lines */
225: }
226: else strcpy(remname, argv[1]);
227: argc--, argv++;
228: continue;
229: case 'h': /* hop count - used by network */
230: if(argc < 2) continue;
231: strcpy(shopcnt,argv[1]);
232: argc--, argv++;
233: continue;
234: case 'd': /* really deliver this message */
235: dflag++;
236: continue;
237: case 'D': /* only delete the invokers mailbox */
238: deleteonly++;
239: goto hitit; /* delete mail box, thats all */
240: }
241: /* if we are already ignoring signals, catch sigint */
242: if(signal(SIGINT,SIG_IGN) != SIG_IGN)
243: signal(SIGINT, delexit);
244: argc++, argv--;
245: bulkmail(argc, argv, namebuf);
246: delexit(EX_OK);
247: }
248:
249: printmail(argc, argv, name, logindir)
250: char **argv;
251: char *name, *logindir;
252: {
253: register int c;
254: FILE *fdin;
255: char sfnmail[60], mbox[120];
256: struct stat statbuf;
257:
258: # ifdef OLDMAIL
259: if(logindir[0] == 0){
260: pwd = getpwuid(getuid());
261: if(pwd == NULL){
262: fprintf(stderr,"Can't get directory\n");
263: exit(EX_OSFILE);
264: }
265: strcpy(logindir, pwd->pw_dir);
266: }
267: sprintf(sfnmail,"%s/.mail",logindir);
268: # else
269: sprintf(sfnmail,"%s/%s",MAILDIR,name);
270: # endif
271: if(deleteonly){
272: remove(sfnmail);
273: return;
274: }
275: if (stat(sfnmail, &statbuf)>=0 && statbuf.st_nlink==1 &&
276: getsize(&statbuf) > 0L && (fdin = fopen(sfnmail, "r")) != NULL){
277: getput(fdin, stdout);
278: fclose(fdin);
279: fflush(stdout);
280: c = 'y';
281: if (argc<2) {
282: if(isatty(0)){
283: printf("Save(y-n) ?");
284: fflush(stdout);
285: c = getchar();
286: }
287: } else
288: c = argv[1][1];
289: if (!any(c, "xyn"))
290: delexit(EX_OK);
291: if (c == 'y') {
292: sprintf(mbox,"%s/mbox",logindir);
293: if (accesss(mbox)) {
294: printf("Saved mail in 'mbox'\n");
295: if(insert(sfnmail, mbox, getuid(),getgid()))
296: remove(sfnmail);
297: }
298: else printf("In wrong directory\n");
299: }
300: else if(c != 'x') remove(sfnmail);
301: } else
302: printf("No mail.\n");
303: }
304:
305: bulkmail(argc, argv, from)
306: char **argv, *from;
307: {
308: extern int errno;
309: char linebuf[BUFSIZ];
310: char *getdate();
311: FILE *fdout;
312:
313: # ifdef SENDMAIL
314: /*
315: ** Ship off to sendmail if appropriate (and possible)
316: */
317:
318: if (!dflag)
319: {
320: argv[0] = "-sendmail";
321: argv[argc] = 0;
322: execv("/usr/lib/sendmail", argv);
323: /* oops... better just deliver it. */
324: fprintf(stderr, "Not using sendmail\n");
325: errno = 0;
326: argv[argc] = (char *)-1;
327: }
328: # endif
329:
330: fdout = fopen(lettmp, "w");
331: if (fdout == NULL) {
332: perror(lettmp);
333: delexit(EX_OSFILE);
334: }
335: /*
336: * If delivering mail from the network via mail -r,
337: * Strip the leading line and throw it away, as long
338: * as it begins with "From ..." (and preserve the date if poss.)
339: */
340: if (chew) {
341: fgets(linebuf,BUFSIZ,stdin);
342: if(strncmp(linebuf,"From ",5) != 0){
343: fline(fdout,NULL,from);
344: fprintf(fdout,"%s", linebuf);
345: }
346: else fline(fdout,getdate(linebuf),from);
347: }
348: else fline(fdout,NULL,from);
349: if(remname[0]) fprintf(fdout,"(from %s)\n",remname);
350:
351: /* on the image machine, promt with subj */
352: if(getput(stdin,fdout) == 0)
353: delexit(EX_OSERR);
354: putc('\n',fdout);
355: fclose(fdout);
356: while (--argc > 0)
357: sendto(*++argv,from);
358: delexit(errs);
359: }
360: /* print from line, with date date, if date = NULL, compute it */
361: fline(fdout,date,from)
362: FILE *fdout;
363: char *date;
364: char *from;
365: {
366: int tbuf[2];
367:
368: if(date == NULL){
369: time(tbuf);
370: date = ctime(tbuf);
371: }
372: fprintf(fdout,"From %s %s", from, date);
373: }
374: /* look over linebuf and return ptr to date, NULL if error */
375: char *getdate(linebuf)
376: char *linebuf;
377: {
378: register char *s;
379: s = linebuf;
380: while(*s){
381: if(strncmp(s," Sun ",5) == 0
382: || strncmp(s," Mon ",5) == 0
383: || strncmp(s," Tue ",5) == 0
384: || strncmp(s," Wed ",5) == 0
385: || strncmp(s," Thu ",5) == 0
386: || strncmp(s," Fri ",5) == 0
387: || strncmp(s," Sat ",5) == 0)
388: return(++s);
389: s++;
390: }
391: return(NULL);
392: }
393:
394: sendto(person, fromaddr)
395: char *person;
396: char *fromaddr;
397: {
398: static int saved = 0;
399: register int hisuid, hisgid;
400: char sfnmail[60], logindir[60];
401: struct passwd *pwd;
402:
403: stripmach(&person);
404: if(person[0] == ':')person++;
405: /* sendmail provides these services */
406: if(any(':',person)
407: # ifdef MSGSCMD
408: || strcmp(person,"msgs") == 0
409: # endif
410: ){
411: int pid;
412: int pidchild;
413:
414: while((pid = fork()) == -1)sleep(2);
415: if (pid < 0) {
416: perror("fork");
417: goto assback;
418: }
419: if (pid == 0) {
420: fclose(stdin);
421: freopen(lettmp,"r",stdin);
422: setuid(getuid()); /* insure no security hole*/
423: if (strcmp(person,"msgs") != 0) {
424: /*
425: sendberkmail will add the machine, e.g.
426: CSVAX:schmidt, if the -f flag is not set
427: */
428: execl("/usr/net/bin/sendberkmail",
429: "sendberkmail", "-t",person,"-h",shopcnt,
430: chew ? "-f" : 0,fromaddr,0);
431: perror("/usr/net/bin/sendberkmail");
432: }
433: # ifdef MSGSCMD
434: else {
435: execl(MSGSCMD, "msgs", "-s", 0);
436: perror(MSGSCMD);
437: }
438: # endif
439: exit(EX_UNAVAILABLE);
440: }
441: for (;;) {
442: register int rcode = wait(&pidchild);
443: if (rcode == -1)
444: goto assback;
445: if (rcode == pid)
446: break;
447: }
448: if ((pidchild & 0377) != 0 || (pidchild >> 8) != 0)
449: goto assback;
450: return;
451: }
452:
453: if(!any('/',person)){
454: /* if name has no / in it, we assume it is a user's name */
455: # ifdef HPASSWD
456: hisuid = uidfromsn(person);
457: # else
458: pwd = getpwnam(person);
459: if(pwd != NULL){
460: hisuid = guid(pwd->pw_uid,pwd->pw_gid);
461: hisgid = pwd->pw_gid;
462: strcpy(logindir,pwd->pw_dir);
463: }
464: else hisuid = -1;
465: # endif
466: if(hisuid == -1){
467: assback:
468: fflush(stdout);
469: fprintf(stderr,"Can't send to %s.\n", person);
470: errs++;
471: if (isatty(0) && saved==0) {
472: saved++;
473: if (accesss("dead.letter")) {
474: printf("Letter saved in 'dead.letter'\n");
475: insert(lettmp, "dead.letter",
476: getuid(),getgid());
477: } else
478: printf("In wrong directory\n");
479: }
480: return;
481: }
482: # ifdef OLDMAIL
483: sprintf(sfnmail,"%s/.mail",logindir);
484: # else
485: sprintf(sfnmail,"%s/%s",MAILDIR,person);
486: # endif
487: lock(sfnmail);
488: insert(lettmp, sfnmail, hisuid, hisgid);
489: unlock();
490: }
491: else { /* it has / in it, "person" is a file */
492: if(accesss(person)){
493: lock(person);
494: insert(lettmp, person, -1, -1);
495: unlock();
496: }
497: else
498: fprintf(stderr,"Can't access %s\n",person);
499: }
500: }
501:
502: /* return 1 if success, 0 otherwise */
503: insert(from, to, uid, gid)
504: char *from, *to;
505: {
506: # ifdef V6
507: return(prepend(from,to,uid, gid));
508: # else
509: return(append(from,to,uid, gid));
510: # endif
511: }
512:
513: #ifdef BIFF
514: #include <sys/socket.h>
515: #include <netinet/in.h>
516: #include <netdb.h>
517: #endif
518:
519: /* return 1 if success, 0 otherwise */
520: append(from,to,uid, gid)
521: char *from, *to;
522: {
523: register FILE *fdin, *fdout;
524: int ret;
525: struct stat statbuf;
526: #ifdef BIFF
527: char *cp, buf[100], *rindex();
528: int s;
529: struct hostent *hp;
530: struct sockaddr_in sin;
531: struct servent *sp;
532: #endif
533: if (stat(to, &statbuf) >= 0 && (statbuf.st_mode&S_IFDIR) != 0) {
534: fprintf(stderr, "Exotic destination %s\n", to);
535: errs++;
536: return(0);
537: }
538: if ((fdout = fopen(to, "a")) == NULL) {
539: perror(to);
540: errs++;
541: return(0);
542: }
543: # ifndef NOTROOT
544: if(uid != -1)mchown(to, uid, gid);
545: # endif
546: if(uid != -1)chmod(to, MAILMODE);
547: if ((fdin = fopen(from, "r")) == NULL) {
548: perror(from);
549: return(0);
550: }
551: #ifdef BIFF
552: { s = socket(AF_INET, SOCK_STREAM, 0, 0);
553: cp = rindex(to, '/');
554: if (cp)
555: sprintf(buf, "%s@%d\n", cp+1, ftell(fdout));
556: }
557: #endif
558: ret = getput(fdin,fdout);
559: fclose(fdin);
560: fclose(fdout);
561: #ifdef BIFF
562: if (cp && s >= 0) {
563: hp = gethostbyname("localhost");
564: sp = getservent("biff", "udp");
565: if (hp && sp) {
566: bcopy(hp->h_addr, &sin.sin_addr, hp->h_length);
567: sin.sin_family = hp->h_addrtype;
568: sin.sin_port = sp->s_port;
569: (void) sendto(s, buf, strlen(buf) + 1, 0,
570: &sin, sizeof (sin));
571: }
572: close(s);
573: }
574: #endif
575: return(ret);
576: }
577:
578: /* return 1 if success, 0 otherwise */
579: prepend(from, to, uid, gid)
580: char *from, *to;
581: {
582: register int (*sig)();
583: struct stat statbuf;
584: FILE *fdout, *fdin;
585: int ret;
586:
587: if (stat(to, &statbuf) >= 0 && (statbuf.st_mode&S_IFDIR) != 0) {
588: fprintf(stderr, "Exotic destination %s\n", to);
589: goto badexit;
590: }
591: unlink(preptmp);
592: if ((fdout = fopen(preptmp, "w")) == NULL) {
593: perror("mail");
594: goto badexit;
595: }
596: chmod(preptmp, MAILMODE);
597: if ((fdin = fopen(from, "r")) == NULL) {
598: perror("mail");
599: goto badexit;
600: }
601: if(getput(fdin,fdout) == 0){
602: perror("file i/o");
603: goto badexit;
604: }
605: fclose(fdin);
606: fdin = fopen(to, "r");
607: /* ignore error since may not exist */
608: if(fdin != NULL && getput(fdin,fdout) == 0){
609: perror("file i/o");
610: goto badexit;
611: }
612: if(fdin != NULL)fclose(fdin);
613: fclose(fdout);
614: sig = signal(SIGINT, SIG_IGN);
615: remove(to);
616: if ((fdout = fopen(to, "w")) == NULL) {
617: perror(to);
618: unlink(preptmp);
619: signal(SIGINT, sig);
620: goto badexit;
621: }
622: # ifdef NOTROOT
623: if(uid != -1)chmod(to,0666);
624: # else
625: if(uid != -1)mchown(to, uid, gid);
626: # endif
627: if(stat(to, &statbuf) < 0 || statbuf.st_nlink != 1) {
628: fclose(fdout);
629: signal(SIGINT, sig);
630: goto badexit;
631: }
632: if ((fdin = fopen(preptmp, "r")) == NULL) {
633: perror("mail");
634: signal(SIGINT, sig);
635: goto badexit;
636: }
637: ret = getput(fdin,fdout);
638: fclose(fdout);
639: fclose(fdin);
640: signal(SIGINT, sig);
641: return(ret);
642: badexit:
643: unlink(preptmp);
644: errs++;
645: return(0);
646: }
647:
648: delexit(ex)
649: {
650: unlink(lettmp);
651: unlink(preptmp);
652: exit(ex);
653: }
654:
655: /* return 1 if ok, 0 otherwise */
656: getput(fdin, fdout)
657: register FILE *fdin, *fdout;
658: {
659: extern int errno;
660: register int c;
661:
662: while((c = getc(fdin)) != EOF) {
663: errno = 0;
664: putc(c,fdout);
665: if(errno) {
666: perror("mail");
667: return(0);
668: }
669: }
670: return(1);
671: }
672:
673: accesss(s1)
674: register char *s1;
675: {
676: struct stat statbuf;
677: if(stat(s1,&statbuf)<0 || access(s1,2) == 0)
678: return(1);
679: return(0);
680: }
681:
682: any(c, str)
683: register char *str, c;
684: {
685: register char *f;
686:
687: f = str;
688: while (*f)
689: if (c == *f++)
690: return(1);
691: return(0);
692: }
693: char locktmp[30]; /* Usable lock temporary */
694: char curlock[50]; /* Last used name of lock */
695: int locked; /* To note that we locked it */
696:
697: /*
698: * Lock the specified mail file by setting the file mailfile.lock.
699: * We must, of course, be careful to unlink the lock file by a call
700: * to unlock before we stop. The algorithm used here is to see if
701: * the lock exists, and if it does, to check its modify time. If it
702: * is older than 30 seconds, we assume error and set our own file.
703: * Otherwise, we wait for 5 seconds and try again.
704: */
705:
706: lock(file)
707: char *file;
708: {
709: register int f;
710: struct stat statbuf;
711: long curtime;
712: /*
713: if using OLDMAIL, and NOTROOT, cann't lock since can't necessarily
714: write on user's login directory
715: */
716: # ifdef OLDMAIL
717: return;
718: # endif
719:
720: if (file == NULL) {
721: printf("Locked = %d\n", locked);
722: return(0);
723: }
724: if (locked)
725: return(0);
726: sprintf(curlock,"%s%s",file,".lock");
727: sprintf(locktmp,"%s/tmXXXXXX",MAILDIR);
728: mktemp(locktmp);
729: unlink(locktmp);
730: for (;;) {
731: f = lock1(locktmp, curlock);
732: if (f == 0) {
733: locked = 1;
734: return(0);
735: }
736: if (stat(curlock, &statbuf) < 0)
737: return(0);
738: time(&curtime);
739: if (curtime < statbuf.st_mtime + 30) {
740: sleep(5);
741: continue;
742: }
743: unlink(curlock);
744: }
745: }
746:
747: /*
748: * Remove the mail lock, and note that we no longer
749: * have it locked.
750: */
751:
752: unlock()
753: {
754:
755: if (locked)
756: unlink(curlock);
757: locked = 0;
758: }
759:
760: /*
761: * Attempt to set the lock by creating the temporary file,
762: * then doing a link/unlink. If it fails, return -1 else 0
763: */
764:
765: lock1(tempfile, name)
766: char tempfile[], name[];
767: {
768: int fno;
769:
770: fno = creat(tempfile, 0400);
771: if (fno < 0)
772: return(-1);
773: close(fno);
774: if (link(tempfile, name) < 0) {
775: unlink(tempfile);
776: return(-1);
777: }
778: unlink(tempfile);
779: return(0);
780: }
781:
782: /*
783: stripfx(prefix string, pointer to string)
784:
785: takes a ptr to string and compares it to prefix string.
786: may be called multiple times
787: returns ":username"
788: */
789: stripfx(pfx, name)
790: register char *pfx;
791: register char **name;
792: {
793: register char *cp = *name;
794:
795: while (*pfx && (*cp == *pfx || *cp == toupper(*pfx)))
796: cp++, pfx++;
797: if (*cp != ':' || *pfx != 0)
798: return;
799: *name = cp;
800: }
801: stripmach(pperson)
802: register char **pperson;
803: {
804: # ifdef RAND
805: /* for machines at RAND */
806: # ifdef GRAPHICS
807: stripfx("g",pperson);
808: stripfx("graphics",pperson);
809: # endif
810: # ifdef TP
811: stripfx("t",pperson);
812: stripfx("tp",pperson);
813: # endif
814: # ifdef VAX
815: stripfx("v",pperson);
816: stripfx("vax",pperson);
817: # endif
818: /* end of defns for Rand */
819: # endif
820:
821: # ifdef NOSC
822: /* for machines at NOSC */
823: # ifdef ATTS
824: stripfx("a",pperson);
825: stripfx("atts",pperson);
826: # endif
827: # ifdef CCMM
828: stripfx("c",pperson);
829: stripfx("ccmm",pperson);
830: # endif
831: # ifdef MSSF
832: stripfx("m",pperson);
833: stripfx("mssf",pperson);
834: # endif
835: /* end of defns for NOSC */
836: # endif
837:
838: # ifdef BERKELEY
839:
840: /* for Berkeley */
841: # ifdef A
842: stripfx("a",pperson);
843: # endif
844: # ifdef B
845: stripfx("b",pperson);
846: # endif
847: # ifdef C
848: stripfx("c",pperson);
849: # endif
850: # ifdef D
851: stripfx("d",pperson);
852: # endif
853: # ifdef E
854: stripfx("e",pperson);
855: # endif
856: # ifdef ING70
857: stripfx("i",pperson);
858: stripfx("ing70",pperson);
859: stripfx("ingres",pperson);
860: # endif
861: # ifdef INGVAX
862: stripfx("j",pperson);
863: stripfx("ingvax",pperson);
864: # endif
865: # ifdef VIRUS
866: stripfx("k",pperson);
867: stripfx("virus",pperson);
868: # endif
869: # ifdef IMAGE
870: stripfx("m",pperson);
871: stripfx("image",pperson);
872: # endif
873: # ifdef KIM
874: stripfx("n",pperson);
875: stripfx("kim",pperson);
876: # endif
877: # ifdef ESVAX
878: stripfx("o",pperson);
879: stripfx("esvax",pperson);
880: # endif
881: # ifdef Q
882: stripfx("q",pperson);
883: # endif
884: # ifdef ARPAVAX
885: stripfx("r",pperson);
886: stripfx("arpavax",pperson);
887: # endif
888: # ifdef SRC
889: stripfx("s",pperson);
890: stripfx("src",pperson);
891: # endif
892: # ifdef MATHSTAT
893: stripfx("t",pperson);
894: stripfx("mathstat",pperson);
895: # endif
896: # ifdef CSVAX
897: stripfx("v",pperson);
898: stripfx("vax",pperson);
899: stripfx("csvax",pperson);
900: # endif
901: # ifdef CORY
902: stripfx("y",pperson);
903: stripfx("cory",pperson);
904: # endif
905: # ifdef EECS40
906: stripfx("z",pperson);
907: stripfx("eecs40",pperson);
908: # endif
909: /* end of berkeley defns */
910: # endif
911: }
912: /*
913: this removes the mail file sfn by either truncating it, as required
914: on OLDMAIL systems, or unlinking it. If the unlink fails, we truncate it.
915: */
916: remove(sfn)
917: char *sfn;
918: {
919: int i;
920: # ifdef OLDMAIL
921: i = creat(sfn,0666);
922: if(i >= 0)close(i);
923: # else
924: if(unlink(sfn) < 0){
925: i = creat(sfn,MAILMODE);
926: if(i >= 0)close(i);
927: }
928: # endif
929: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.