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 2.2 07/28/82"; 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 if (value("keep") != NOSTR) 40 close(creat(mailname, 0666)); 41 else { 42 if (remove(mailname) < 0) 43 close(creat(mailname, 0666)); 44 } 45 } 46 47 /* 48 * Discover user login name. 49 */ 50 51 username(uid, namebuf) 52 char namebuf[]; 53 { 54 register char *np; 55 56 if (uid == getuid() && (np = getenv("USER")) != NOSTR) { 57 strncpy(namebuf, np, PATHSIZE); 58 return(0); 59 } 60 return(getname(uid, namebuf)); 61 } 62