1 # 2 3 /* 4 * Mail -- a mail program 5 * 6 * Version 7 7 * 8 * Local routines that are installation dependent. 9 */ 10 11 #include "rcv.h" 12 13 static char *SccsId = "@(#)v7.local.c 1.1 10/08/80"; 14 15 /* 16 * Locate the user's mailbox file (ie, the place where new, unread 17 * mail is queued). In Version 7, it is in /usr/spool/mail/name. 18 */ 19 20 findmail() 21 { 22 register char *cp; 23 24 cp = copy("/usr/spool/mail/", mailname); 25 copy(myname, cp); 26 if (isdir(mailname)) { 27 stradd(mailname, '/'); 28 strcat(mailname, myname); 29 } 30 } 31 32 /* 33 * Get rid of the queued mail. 34 */ 35 36 demail() 37 { 38 39 remove(mailname); 40 } 41 42 /* 43 * Discover user login name. 44 */ 45 46 username(uid, namebuf) 47 char namebuf[]; 48 { 49 register char *np; 50 51 if (uid == getuid() && (np = getenv("USER")) != NOSTR) { 52 strncpy(namebuf, np, 9); 53 return(0); 54 } 55 return(getname(uid, namebuf)); 56 } 57