date and time created 80/10/08 09:52:17 by kas

[unix-history] / usr / src / usr.bin / mail / v7.local.c

#

/*
* Mail -- a mail program
*
* Version 7
*
* Local routines that are installation dependent.
*/

#include "rcv.h"

static char *SccsId = "@(#)v7.local.c   1.1 %G%";

/*
* Locate the user's mailbox file (ie, the place where new, unread
* mail is queued).  In Version 7, it is in /usr/spool/mail/name.
*/

findmail()
{
       register char *cp;

       cp = copy("/usr/spool/mail/", mailname);
       copy(myname, cp);
       if (isdir(mailname)) {
               stradd(mailname, '/');
               strcat(mailname, myname);
       }
}

/*
* Get rid of the queued mail.
*/

demail()
{

       remove(mailname);
}

/*
* Discover user login name.
*/

username(uid, namebuf)
       char namebuf[];
{
       register char *np;

       if (uid == getuid() && (np = getenv("USER")) != NOSTR) {
               strncpy(namebuf, np, 9);
               return(0);
       }
       return(getname(uid, namebuf));
}