Start development on BSD 4

[unix-history] / .ref-5cb41021d721f4e0ac572d592613f963e495d1ff / .ref-BSD-3 / usr / src / cmd / ucbmail / c.local.c

#

/*
* Mail -- a mail program
*
* EECS Cory 11/70 Version 6.9.
*
* Local routines that are installation dependent.
* All fiddlers please note:  if you make careful note of
* what you change here, I will incorporate your changes and
* you won't have to remake them each release.
*/

#include "rcv.h"

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

findmail()
{
       register char *cp;

       cp = copy("/usr/mail/", mailname);
       copy(myname, cp);
}

/*
* Get rid of the queued mail.
* This is essential "mail -n > /dev/null &"
*/

demail()
{
       register int p;

       if (uid == 0) {
               remove(mailname);
               return;
       }
       if ((p = fork()) != 0)
               return;
       for (p = 0; p < 15; p++)
                close(p);
       open("/dev/null", 2);
       dup(0);
       dup(0);
       for (p = SIGHUP; p <= SIGQUIT; p++)
               signal(p, SIG_IGN);
       execl(MAIL, "mail", "-n", 0);
       perror(MAIL);
       exit(1);
}

/*
* Get the value of an environment variable.
*/

char *
getenv(name)
       char name[];
{
       register int t;
       static char val[30];

       t = ttyn(2);
       hget(t);
       if (equal(name, "SHELL"))
               return("/bin/csh");
       if (!equal(name, "HOME"))
               return(NOSTR);
       copy(hgethome(), val);
       return(val);
}

/*
* Mail file lock / unlock.
* Insignificant in version 6.
*/

lock(name)
       char *name;
{

       return(0);
}

unlock()
{

       return(0);
}

/*
* Discover user login name.
*/

username(uid, namebuf)
       char namebuf[];
{

       return(getname(uid, namebuf));
}

/*
* Unix routine to do an "fopen" on file descriptor
* The mode has to be repeated because you can't query its
* status
*/

FILE *
fdopen(fd, mode)
register char *mode;
{
       extern int errno;
       register FILE *iop;
       extern FILE *_lastbuf;

       for (iop = _iob; iop->_flag&(_IOREAD|_IOWRT); iop++)
               if (iop >= _lastbuf)
                       return(NULL);
       iop->_cnt = 0;
       iop->_file = fd;
       if (*mode != 'r') {
               iop->_flag |= _IOWRT;
               if (*mode == 'a')
                       lseek(fd, 0L, 2);
       } else
               iop->_flag |= _IOREAD;
       return(iop);
}