/* Copyright (c) 1979 Regents of the University of California */ # /* * Mail -- a mail program * * Unix version 6.0 */ #include "rcv.h" /* * Locate the user's mailbox file (ie, the place where new, unread * mail is queued). In Version 6, it is in ~/.mail */ findmail() { register char *cp; cp = copy(homedir, mailname); copy("/.mail", cp); } /* * Get rid of the queued mail. */ demail() { close(creat(mailname, 0666)); alter(mailname); } /* * Get an environment variable. At present, we only support * "SHELL" and "HOME". This routine makes use of the getpw * routine in the neighboring getname.c stuff. */ char * getenv(name) char name[]; { char pwline[LINESIZE]; static char val[30]; register char *cp, *dp; register int cc; if (equal(name, "SHELL")) cc = 6; else if (equal(name, "HOME")) cc = 5; else return(NOSTR); if (getpw(uid, pwline) < 0) return(NOSTR); for (cp = pwline; *cp && cc > 0;) if (*cp++ == ':') cc--; dp = cp; while (*cp != ':' && *cp != '\0') cp++; *cp = '\0'; if (*dp == '\0') return(NOSTR); copy(dp, val); return(val); } /* * Lock and unlock retrofits which are only * significant in version 7. */ lock(name) char *name; { return(0); } unlock() { return(0); }