1 static char sccsid[] = "@(#)v6mail.c 4.4 (Berkeley) 01/09/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];
main(argc,argv)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
printmail(argc,argv,name,logindir)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
bulkmail(argc,argv,from)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 */
fline(fdout,date,from)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 */
getdate(linebuf)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
sendto(person,fromaddr)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 */
insert(from,to,uid,gid)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 */
append(from,to,uid,gid)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 */
prepend(from,to,uid,gid)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
delexit(ex)648 delexit(ex)
649 {
650 unlink(lettmp);
651 unlink(preptmp);
652 exit(ex);
653 }
654
655 /* return 1 if ok, 0 otherwise */
getput(fdin,fdout)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
accesss(s1)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
any(c,str)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
lock(file)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
unlock()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
lock1(tempfile,name)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 */
stripfx(pfx,name)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 }
stripmach(pperson)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 */
remove(sfn)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 }
930