* Ingres 11/70. Unix version 6.0
* 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.
static char *SccsId
= "@(#)40.local.c 2.1 %G%";
* Locate the user's mailbox file (ie, the place where new, unread
* mail is queued). On the 11/40, it is in /usr/mail/name
cp
= copy("/usr/mail/", mailname
);
* Get rid of the queued mail.
close(creat(mailname
, 0644));
* 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.
if (equal(name
, "SHELL"))
else if (equal(name
, "HOME"))
if (getpw(uid
, pwline
) < 0)
for (cp
= pwline
; *cp
&& cc
> 0;)
while (*cp
!= ':' && *cp
!= '\0')
* Lock and unlock retrofits which are only
* significant in version 7.
* discover user's login name.
return(getname(uid
, namebuf
));