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