|
|
1.1 ! root 1: /* ! 2: * Copyright (c) 1980 Regents of the University of California. ! 3: * All rights reserved. ! 4: * ! 5: * Redistribution and use in source and binary forms are permitted provided ! 6: * that: (1) source distributions retain this entire copyright notice and ! 7: * comment, and (2) distributions including binaries display the following ! 8: * acknowledgement: ``This product includes software developed by the ! 9: * University of California, Berkeley and its contributors'' in the ! 10: * documentation or other materials provided with the distribution and in ! 11: * all advertising materials mentioning features or use of this software. ! 12: * Neither the name of the University nor the names of its contributors may ! 13: * be used to endorse or promote products derived from this software without ! 14: * specific prior written permission. ! 15: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED ! 16: * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF ! 17: * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 18: */ ! 19: ! 20: #ifndef lint ! 21: static char sccsid[] = "@(#)v7.local.c 5.11 (Berkeley) 6/24/90"; ! 22: #endif /* not lint */ ! 23: ! 24: /* ! 25: * Mail -- a mail program ! 26: * ! 27: * Version 7 ! 28: * ! 29: * Local routines that are installation dependent. ! 30: */ ! 31: ! 32: #include "rcv.h" ! 33: ! 34: /* ! 35: * Locate the user's mailbox file (ie, the place where new, unread ! 36: * mail is queued). ! 37: */ ! 38: findmail(user, buf) ! 39: char *user, *buf; ! 40: { ! 41: (void)sprintf(buf, "%s/%s", _PATH_MAILDIR, user); ! 42: } ! 43: ! 44: /* ! 45: * Get rid of the queued mail. ! 46: */ ! 47: demail() ! 48: { ! 49: ! 50: if (value("keep") != NOSTR || remove(mailname) < 0) ! 51: close(creat(mailname, 0600)); ! 52: } ! 53: ! 54: /* ! 55: * Discover user login name. ! 56: */ ! 57: char* ! 58: username() ! 59: { ! 60: char *np; ! 61: ! 62: if ((np = getenv("USER")) != NOSTR) ! 63: return np; ! 64: return getname(getuid()); ! 65: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.