-
- 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);