[unix-history] / .ref-5cb41021d721f4e0ac572d592613f963e495d1ff / usr / src / usr.sbin / sendmail / src / conf.c

# include <stdio.h>
# include <pwd.h>
# include "dlvrmail.h"

/*
**  CONF.C -- Delivermail Configuration Tables.
**
**	Defines the configuration of this installation.
**
**	Compilation Flags:
**		HASARPA -- set if this machine has a connection to
**			the Arpanet.
**		HASUUCP -- set if this machine has a connection to
**			the UUCP network.
**		NETV6MAIL -- set if you want to use "v6mail" that
**			comes with the Berkeley network.  Normally
**			/bin/mail will work fine, but around Berkeley
**			we use v6mail because it is a "fixed target".
**		V6 -- running on a version 6 system.  This determines
**			whether to define certain routines between
**			the two systems.  If you are running a funny
**			system, e.g., V6 with long tty names, this
**			should be checked carefully.
**		DUMBMAIL -- set if your /bin/mail doesn't have the
**			-d flag.
**
**	Configuration Variables:
**		ArpaHost -- the arpanet name of the host through
**			which arpanet mail will be sent.
**		MyLocName -- the name of the host on a local network.
**			This is used to disambiguate the contents of
**			ArpaHost among many hosts who may be sharing
**			a gateway.
**		ArpaLocal -- a list of local names for this host on
**			the arpanet.  Only functional if HASARPA set.
**		UucpLocal -- ditto for the Arpanet.
**		BerkLocal -- ditto for the Berknet.
**		Mailer -- a table of mailers known to the system.
**			The fields are:
**			- the pathname of the mailer.
**			- a list of flags describing the properties
**			  of this mailer:
**			   M_FOPT -- if set, the mailer has a picky "-f"
**				option.  In this mode, the mailer will
**				only accept the "-f" option if the
**				sender is actually "root", "network",
**				and possibly (but not necessarily) if
**				the -f argument matches the real sender.
**				The effect is that if the "-f" option
**				is given to delivermail then it will be
**				passed through (as arguments 1 & 2) to
**				the mailer.
**			   M_ROPT -- identical to M_FOPT, except uses
**				-r instead.
**			   M_QUIET -- if set, don't print a message if
**				the mailer returns bad status.
**			   M_RESTR -- if set, this mailer is restricted
**				to use by "daemon"; otherwise, we do a
**				setuid(getuid()) before calling the
**				mailer.
**			   M_HDR -- if set, the mailer wants us to
**				insert a UNIX "From" line before
**				outputing.
**			   M_NOHOST -- if set, this mailer doesn't care
**				about the host part (e.g., the local
**				mailer).
**			   M_STRIPQ -- if set, strip quote (`"')
**				characters out of parameters as you
**				transliterate them into the argument
**				vector.  For example, the local mailer
**				is called directly, so these should be
**				stripped, but the program-mailer (i.e.,
**				csh) should leave them in.
**			- an exit status to use as the code for the
**			  error message print if the mailer returns
**			  something we don't understand.
**			- A list of names that are to be considered
**			  "local" (and hence are stripped off) for
**			  this mailer.
**			- An argument vector to be passed to the
**			  mailer with the following substitutions:
**			   $f - the from person name.
**			   $u - the target user name.
**			   $h - the target user host.
**			   $c - the hop count.
**			>>>>>>>>>> Entry zero must be for the local
**			>> NOTE >> mailer and entry one must be for
**			>>>>>>>>>> the shell.
**		ParseTab -- a table driving the parsing process.  Each
**			entry contains:
**			- a character that will trigger this entry.
**			- an index into the Mailer table.
**			- a word of flags, described in dlvrmail.h.
**			- an argument.  If we have P_MAP, it is the
**			  character to turn the trigger character into.
**			  If we have P_MOVE, it is the site to send it
**			  to, using the mailer specified above.
**			This table will almost certainly have to be
**			changed on your site if you have anything more
**			than the UUCP net.
*/


static char SccsId[] = "@(#)conf.c	2.1	%G%";


bool	UseMsgId = FALSE;	/* don't put message id's in anywhere */

# include <whoami.h>		/* definitions of machine id's at berkeley */

# ifdef BERKELEY
char	*ArpaHost = "Berkeley";	/* host name of gateway on Arpanet */
# else BERKELEY
char	*ArpaHost = "[unknown]";
char	*MyLocName = sysname;
# define HASUUCP		/* default to having UUCP net */
char	*UucpLocal[] = { sysname, NULL };
# endif BERKELEY

# ifdef ING70
static char	*BerkLocal[] = { "i", "ingres", "ing70", NULL };
# define ArpaLocal	NULL
char		*MyLocName = "Ing70";
# define HASARPA
# define V6
# endif ING70

# ifdef INGVAX
static char	*BerkLocal[] = { "j", "ingvax", NULL };
char		*MyLocName = "IngVax";
# endif INGVAX

# ifdef CSVAX
static char	*BerkLocal[] = { "v", "csvax", "vax", NULL };
static char	*UucpLocal[] = { "ucbvax", "ernie", NULL };
char		*MyLocName = "CSVAX";
# define HASUUCP
# define NETV6MAIL
# endif CSVAX

# ifdef CORY
/* untested */
static char	*BerkLocal[] = { "y", "cory", NULL };
char		*MyLocName = "Cory";
# endif CORY

# ifdef IMAGE
/* untested */
static char	*BerkLocal[] = { "m", "image", NULL };
char		*MyLocName = "Image";
# define V6
# endif IMAGE

# ifdef ESVAX
/* untested */
static char	*BerkLocal[] = { "o", "esvax", NULL };
char		*MyLocName = "ESVAX";
# endif ESVAX

# ifdef EECS40
/* untested */
static char	*BerkLocal[] = { "z", "eecs40", NULL };
char		*MyLocName = "EECS40";
# define V6
# endif EECS40


# ifndef HASARPA
# define ArpaLocal	NULL
# endif HASARPA

# ifndef HASUUCP
# define UucpLocal	NULL
# endif HASUUCP


struct mailer Mailer[] =
{
	/* local mail -- must be #0 */
	{
# ifdef NETV6MAIL
		"/usr/net/bin/v6mail",
# else
		"/bin/mail",
# endif
		M_ROPT|M_NOHOST|M_STRIPQ,	EX_NOUSER,	NULL,
		{ "...local%mail", "-d", "$u", NULL }
	},
	/* pipes through programs -- must be #1 */
	{
		"/bin/csh",
		M_HDR|M_NOHOST,			EX_UNAVAILABLE,	NULL,
		{ "...prog%mail", "-fc", "$u", NULL }
	},
	/* local berkeley mail */
	{
		"/usr/net/bin/sendberkmail",
		M_FOPT|M_HDR|M_STRIPQ,		EX_UNAVAILABLE,	BerkLocal,
		{ "...berk%mail", "-m", "$h", "-t", "$u", "-h", "$c", NULL }
	},
	/* arpanet mail */
	{
		"/usr/lib/mailers/arpa",
		M_STRIPQ,			0,		ArpaLocal,
		{ "...arpa%mail", "$f", "$h", "$u", NULL }
	},
	/* uucp mail (cheat & use Bell's v7 mail) */
	{
		"/bin/mail",
		M_ROPT|M_STRIPQ,		EX_NOUSER,	UucpLocal,
# ifdef DUMBMAIL
		{ "...uucp%mail", "$h!$u", NULL }
# else
		{ "...uucp%mail", "-d", "$h!$u", NULL }
# endif DUMBMAIL
	},
};

# define M_LOCAL	0
# define M_BERK		2
# define M_ARPA		3
# define M_UUCP		4


# ifdef BERKELEY
struct parsetab ParseTab[] =
{
	':',	M_BERK,		P_ONE,				NULL,
# ifdef HASARPA
	'@',	M_ARPA,		P_HLAST|P_USR_UPPER,		NULL,
# else
	'@',	M_BERK,		P_HLAST|P_USR_UPPER|P_MOVE,	"ing70",
# endif HASARPA
	'^',	-1,		P_MAP,				"!",
# ifdef HASUUCP
	'!',	M_UUCP,		0,				NULL,
# else
	'!',	M_BERK,		P_MOVE,				"csvax",
# endif HASUUCP
	'.',	-1,		P_MAP|P_ONE,			":",
	'\0',	M_LOCAL,	P_MOVE,				"",
};
# else BERKELEY
struct parsetab ParseTab[] =
{
# ifdef HASARPA
	'@',	M_ARPA,		P_HLAST|P_USR_UPPER,		NULL,
# endif HASARPA
# ifdef HASUUCP
	'^',	-1,		P_MAP,				"!",
	'!',	M_UUCP,		0,				NULL,
# endif HASUUCP
	'\0',	M_LOCAL,	P_MOVE,				"",
};
# endif BERKELEY
\f/*
**  GETNAME -- Get the current users login name.
**
**	This is in config.c because it is somewhat machine dependent.
**	Examine it carefully for your installation.
**
**	Algorithm:
**		See if the person is logged in.  If so, return
**			the name s/he is logged in as.
**		Look up the user id in /etc/passwd.  If found,
**			return that name.
**		Return NULL.
**
**	Parameters:
**		none
**
**	Returns:
**		The login name of this user.
**		NULL if this person is noone.
**
**	Side Effects:
**		none
**
**	Called By:
**		main
*/

char *
getname()
{
	register char *p;
	register struct passwd *w;
	extern char *getlogin();
	extern struct passwd *getpwuid();
	static char namebuf[9];

	p = getlogin();
	if (p != NULL && p[0] != '\0')
		return (p);
# ifdef V6
	w = getpwuid(getuid() & 0377);
# else
	w = getpwuid(getuid());
# endif V6
	if (w != NULL)
	{
		strcpy(namebuf, w->pw_name);
		return (namebuf);
	}
	return (NULL);
}
\f
# ifdef V6
/*
**  TTYPATH -- Get the path of the user's tty -- Version 6 version.
**
**	Returns the pathname of the user's tty.  Returns NULL if
**	the user is not logged in or if s/he has write permission
**	denied.
**
**	Parameters:
**		none
**
**	Returns:
**		pathname of the user's tty.
**		NULL if not logged in or write permission denied.
**
**	Side Effects:
**		none.
**
**	WARNING:
**		Return value is in a local buffer.
**
**	Called By:
**		savemail
*/

# include <sys/types.h>
# include <sys/stat.h>

char *
ttypath()
{
	struct stat stbuf;
	register int i;
	static char pathn[] = "/dev/ttyx";
	extern int errno;

	/* compute the pathname of the controlling tty */
	if ((i = ttyn(2)) == 'x' && (i = ttyn(1)) == 'x' && (i = ttyn(0)) == 'x')
	{
		errno = 0;
		return (NULL);
	}
	pathn[8] = i;

	/* see if we have write permission */
	if (stat(pathn, &stbuf) < 0 || !flagset(02, stbuf.st_mode))
	{
		errno = 0;
		return (NULL);
	}

	/* see if the user is logged in */
	if (getlogin() == NULL)
		return (NULL);

	/* looks good */
	return (pathn);
}
\f/*
**  FDOPEN -- Open a stdio file given an open file descriptor.
**
**	This is included here because it is standard in v7, but we
**	need it in v6.
**
**	Algorithm:
**		Open /dev/null to create a descriptor.
**		Close that descriptor.
**		Copy the existing fd into the descriptor.
**
**	Parameters:
**		fd -- the open file descriptor.
**		type -- "r", "w", or whatever.
**
**	Returns:
**		The file descriptor it creates.
**
**	Side Effects:
**		none
**
**	Called By:
**		deliver
**
**	Notes:
**		The mode of fd must match "type".
*/

FILE *
fdopen(fd, type)
	int fd;
	char *type;
{
	register FILE *f;

	f = fopen("/dev/null", type);
	close(fileno(f));
	fileno(f) = fd;
	return (f);
}
\f/*
**  INDEX -- Return pointer to character in string
**
**	For V7 compatibility.
**
**	Parameters:
**		s -- a string to scan.
**		c -- a character to look for.
**
**	Returns:
**		If c is in s, returns the address of the first
**			instance of c in s.
**		NULL if c is not in s.
**
**	Side Effects:
**		none.
*/

index(s, c)
	register char *s;
	register char c;
{
	while (*s != '\0')
	{
		if (*s++ == c)
			return (--s);
	}
	return (NULL);
}
# endif V6
\f
# ifndef V6
/*
**  TTYPATH -- Get the path of the user's tty -- Version 7 version.
**
**	Returns the pathname of the user's tty.  Returns NULL if
**	the user is not logged in or if s/he has write permission
**	denied.
**
**	Parameters:
**		none
**
**	Returns:
**		pathname of the user's tty.
**		NULL if not logged in or write permission denied.
**
**	Side Effects:
**		none.
**
**	WARNING:
**		Return value is in a local buffer.
**
**	Called By:
**		savemail
*/

# include <sys/types.h>
# include <sys/stat.h>

char *
ttypath()
{
	struct stat stbuf;
	register char *pathn;
	extern int errno;
	extern char *ttyname();

	/* compute the pathname of the controlling tty */
	if ((pathn = ttyname(2)) == NULL && (pathn = ttyname(1)) == NULL && (pathn = ttyname(0)) == NULL)
	{
		errno = 0;
		return (NULL);
	}

	/* see if we have write permission */
	if (stat(pathn, &stbuf) < 0 || !flagset(02, stbuf.st_mode))
	{
		errno = 0;
		return (NULL);
	}

	/* see if the user is logged in */
	if (getlogin() == NULL)
		return (NULL);

	/* looks good */
	return (pathn);
}
# endif V6
Commit	Line	Data
b3cbe40f EA	1	# include <stdio.h>
	2	# include <pwd.h>
	3	# include "dlvrmail.h"
916b3375	4
b3cbe40f EA	5	/*
	6	** CONF.C -- Delivermail Configuration Tables.
	7	**
	8	** Defines the configuration of this installation.
	9	**
cb590f52 EA	10	** Compilation Flags:
	11	** HASARPA -- set if this machine has a connection to
	12	** the Arpanet.
	13	** HASUUCP -- set if this machine has a connection to
	14	** the UUCP network.
	15	** NETV6MAIL -- set if you want to use "v6mail" that
	16	** comes with the Berkeley network. Normally
	17	** /bin/mail will work fine, but around Berkeley
	18	** we use v6mail because it is a "fixed target".
	19	** V6 -- running on a version 6 system. This determines
	20	** whether to define certain routines between
	21	** the two systems. If you are running a funny
	22	** system, e.g., V6 with long tty names, this
	23	** should be checked carefully.
849eaf63 EA	24	** DUMBMAIL -- set if your /bin/mail doesn't have the
849eaf63 EA	25	** -d flag.
b3cbe40f	26	**
cb590f52	27	** Configuration Variables:
849eaf63 EA	28	** ArpaHost -- the arpanet name of the host through
849eaf63 EA	29	** which arpanet mail will be sent.
cb590f52 EA	30	** MyLocName -- the name of the host on a local network.
	31	** This is used to disambiguate the contents of
	32	** ArpaHost among many hosts who may be sharing
	33	** a gateway.
849eaf63 EA	34	** ArpaLocal -- a list of local names for this host on
	35	** the arpanet. Only functional if HASARPA set.
	36	** UucpLocal -- ditto for the Arpanet.
	37	** BerkLocal -- ditto for the Berknet.
cb590f52 EA	38	** Mailer -- a table of mailers known to the system.
	39	** The fields are:
	40	** - the pathname of the mailer.
	41	** - a list of flags describing the properties
	42	** of this mailer:
	43	** M_FOPT -- if set, the mailer has a picky "-f"
	44	** option. In this mode, the mailer will
	45	** only accept the "-f" option if the
	46	** sender is actually "root", "network",
	47	** and possibly (but not necessarily) if
	48	** the -f argument matches the real sender.
	49	** The effect is that if the "-f" option
	50	** is given to delivermail then it will be
	51	** passed through (as arguments 1 & 2) to
	52	** the mailer.
	53	** M_ROPT -- identical to M_FOPT, except uses
	54	** -r instead.
	55	** M_QUIET -- if set, don't print a message if
	56	** the mailer returns bad status.
	57	** M_RESTR -- if set, this mailer is restricted
	58	** to use by "daemon"; otherwise, we do a
	59	** setuid(getuid()) before calling the
	60	** mailer.
	61	** M_HDR -- if set, the mailer wants us to
	62	** insert a UNIX "From" line before
	63	** outputing.
	64	** M_NOHOST -- if set, this mailer doesn't care
	65	** about the host part (e.g., the local
	66	** mailer).
	67	** M_STRIPQ -- if set, strip quote (`"')
	68	** characters out of parameters as you
	69	** transliterate them into the argument
	70	** vector. For example, the local mailer
	71	** is called directly, so these should be
	72	** stripped, but the program-mailer (i.e.,
	73	** csh) should leave them in.
	74	** - an exit status to use as the code for the
	75	** error message print if the mailer returns
	76	** something we don't understand.
	77	** - A list of names that are to be considered
	78	** "local" (and hence are stripped off) for
	79	** this mailer.
	80	** - An argument vector to be passed to the
	81	** mailer with the following substitutions:
	82	** $f - the from person name.
	83	** $u - the target user name.
	84	** $h - the target user host.
	85	** $c - the hop count.
	86	** >>>>>>>>>> Entry zero must be for the local
	87	** >> NOTE >> mailer and entry one must be for
	88	** >>>>>>>>>> the shell.
	89	** ParseTab -- a table driving the parsing process. Each
	90	** entry contains:
	91	** - a character that will trigger this entry.
	92	** - an index into the Mailer table.
	93	** - a word of flags, described in dlvrmail.h.
	94	** - an argument. If we have P_MAP, it is the
	95	** character to turn the trigger character into.
	96	** If we have P_MOVE, it is the site to send it
	97	** to, using the mailer specified above.
849eaf63 EA	98	** This table will almost certainly have to be
	99	** changed on your site if you have anything more
	100	** than the UUCP net.
b3cbe40f EA	101	*/
	102
	103
	104
	105
1faf68d2	106	static char SccsId[] = "@(#)conf.c 2.1 %G%";
cb590f52 EA	107
cb590f52 EA	108
cb590f52 EA	109	bool UseMsgId = FALSE; /* don't put message id's in anywhere */
	110
	111	# include <whoami.h> /* definitions of machine id's at berkeley */
b3cbe40f	112
849eaf63 EA	113	# ifdef BERKELEY
	114	char ArpaHost = "Berkeley"; / host name of gateway on Arpanet */
	115	# else BERKELEY
	116	char *ArpaHost = "[unknown]";
	117	char *MyLocName = sysname;
	118	# define HASUUCP /* default to having UUCP net */
	119	char *UucpLocal[] = { sysname, NULL };
	120	# endif BERKELEY
	121
b3cbe40f EA	122	# ifdef ING70
b3cbe40f EA	123	static char *BerkLocal[] = { "i", "ingres", "ing70", NULL };
50e67097	124	# define ArpaLocal NULL
970cbdf3	125	char *MyLocName = "Ing70";
b3cbe40f EA	126	# define HASARPA
	127	# define V6
	128	# endif ING70
	129
	130	# ifdef INGVAX
b3cbe40f	131	static char *BerkLocal[] = { "j", "ingvax", NULL };
970cbdf3	132	char *MyLocName = "IngVax";
b3cbe40f EA	133	# endif INGVAX
	134
	135	# ifdef CSVAX
b3cbe40f	136	static char *BerkLocal[] = { "v", "csvax", "vax", NULL };
50e67097	137	static char *UucpLocal[] = { "ucbvax", "ernie", NULL };
970cbdf3	138	char *MyLocName = "CSVAX";
b3cbe40f EA	139	# define HASUUCP
	140	# define NETV6MAIL
	141	# endif CSVAX
	142
	143	# ifdef CORY
	144	/* untested */
	145	static char *BerkLocal[] = { "y", "cory", NULL };
970cbdf3	146	char *MyLocName = "Cory";
b3cbe40f EA	147	# endif CORY
	148
	149	# ifdef IMAGE
	150	/* untested */
	151	static char *BerkLocal[] = { "m", "image", NULL };
970cbdf3	152	char *MyLocName = "Image";
b3cbe40f EA	153	# define V6
	154	# endif IMAGE
	155
	156	# ifdef ESVAX
	157	/* untested */
	158	static char *BerkLocal[] = { "o", "esvax", NULL };
970cbdf3	159	char *MyLocName = "ESVAX";
b3cbe40f EA	160	# endif ESVAX
	161
	162	# ifdef EECS40
	163	/* untested */
	164	static char *BerkLocal[] = { "z", "eecs40", NULL };
970cbdf3	165	char *MyLocName = "EECS40";
b3cbe40f EA	166	# define V6
	167	# endif EECS40
	168
50e67097 EA	169
	170	# ifndef HASARPA
	171	# define ArpaLocal NULL
	172	# endif HASARPA
	173
	174	# ifndef HASUUCP
	175	# define UucpLocal NULL
	176	# endif HASUUCP
	177
	178
b3cbe40f EA	179	struct mailer Mailer[] =
	180	{
	181	/* local mail -- must be #0 */
	182	{
	183	# ifdef NETV6MAIL
	184	"/usr/net/bin/v6mail",
	185	# else
	186	"/bin/mail",
	187	# endif
	188	M_ROPT\|M_NOHOST\|M_STRIPQ, EX_NOUSER, NULL,
	189	{ "...local%mail", "-d", "$u", NULL }
	190	},
	191	/* pipes through programs -- must be #1 */
	192	{
	193	"/bin/csh",
21ec078e	194	M_HDR\|M_NOHOST, EX_UNAVAILABLE, NULL,
b3cbe40f EA	195	{ "...prog%mail", "-fc", "$u", NULL }
	196	},
	197	/* local berkeley mail */
	198	{
	199	"/usr/net/bin/sendberkmail",
21ec078e	200	M_FOPT\|M_HDR\|M_STRIPQ, EX_UNAVAILABLE, BerkLocal,
b3cbe40f EA	201	{ "...berk%mail", "-m", "$h", "-t", "$u", "-h", "$c", NULL }
	202	},
	203	/* arpanet mail */
	204	{
	205	"/usr/lib/mailers/arpa",
50e67097	206	M_STRIPQ, 0, ArpaLocal,
b3cbe40f EA	207	{ "...arpa%mail", "$f", "$h", "$u", NULL }
	208	},
	209	/* uucp mail (cheat & use Bell's v7 mail) */
	210	{
b3cbe40f	211	"/bin/mail",
df2fb49b	212	M_ROPT\|M_STRIPQ, EX_NOUSER, UucpLocal,
b3cbe40f EA	213	# ifdef DUMBMAIL
	214	{ "...uucp%mail", "$h!$u", NULL }
	215	# else
	216	{ "...uucp%mail", "-d", "$h!$u", NULL }
	217	# endif DUMBMAIL
	218	},
	219	};
	220
	221	# define M_LOCAL 0
	222	# define M_BERK 2
	223	# define M_ARPA 3
	224	# define M_UUCP 4
	225
	226
	227
849eaf63	228	# ifdef BERKELEY
b3cbe40f EA	229	struct parsetab ParseTab[] =
	230	{
	231	':', M_BERK, P_ONE, NULL,
	232	# ifdef HASARPA
	233	'@', M_ARPA, P_HLAST\|P_USR_UPPER, NULL,
	234	# else
	235	'@', M_BERK, P_HLAST\|P_USR_UPPER\|P_MOVE, "ing70",
	236	# endif HASARPA
	237	'^', -1, P_MAP, "!",
	238	# ifdef HASUUCP
	239	'!', M_UUCP, 0, NULL,
	240	# else
	241	'!', M_BERK, P_MOVE, "csvax",
	242	# endif HASUUCP
	243	'.', -1, P_MAP\|P_ONE, ":",
	244	'\0', M_LOCAL, P_MOVE, "",
	245	};
849eaf63 EA	246	# else BERKELEY
	247	struct parsetab ParseTab[] =
	248	{
	249	# ifdef HASARPA
	250	'@', M_ARPA, P_HLAST\|P_USR_UPPER, NULL,
	251	# endif HASARPA
	252	# ifdef HASUUCP
	253	'^', -1, P_MAP, "!",
	254	'!', M_UUCP, 0, NULL,
	255	# endif HASUUCP
	256	'\0', M_LOCAL, P_MOVE, "",
	257	};
	258	# endif BERKELEY
b3cbe40f EA	259	\f/*
	260	** GETNAME -- Get the current users login name.
	261	**
	262	** This is in config.c because it is somewhat machine dependent.
	263	** Examine it carefully for your installation.
	264	**
	265	** Algorithm:
	266	** See if the person is logged in. If so, return
	267	** the name s/he is logged in as.
	268	** Look up the user id in /etc/passwd. If found,
	269	** return that name.
	270	** Return NULL.
	271	**
	272	** Parameters:
	273	** none
	274	**
	275	** Returns:
	276	** The login name of this user.
	277	** NULL if this person is noone.
	278	**
	279	** Side Effects:
	280	** none
	281	**
b3cbe40f EA	282	** Called By:
b3cbe40f EA	283	** main
b3cbe40f EA	284	*/
	285
	286	char *
	287	getname()
	288	{
	289	register char *p;
	290	register struct passwd *w;
	291	extern char *getlogin();
	292	extern struct passwd *getpwuid();
	293	static char namebuf[9];
	294
	295	p = getlogin();
	296	if (p != NULL && p[0] != '\0')
	297	return (p);
	298	# ifdef V6
	299	w = getpwuid(getuid() & 0377);
	300	# else
	301	w = getpwuid(getuid());
	302	# endif V6
	303	if (w != NULL)
	304	{
	305	strcpy(namebuf, w->pw_name);
	306	return (namebuf);
	307	}
	308	return (NULL);
	309	}
	310	\f
	311	# ifdef V6
	312	/*
	313	** TTYPATH -- Get the path of the user's tty -- Version 6 version.
	314	**
	315	** Returns the pathname of the user's tty. Returns NULL if
	316	** the user is not logged in or if s/he has write permission
	317	** denied.
	318	**
	319	** Parameters:
	320	** none
	321	**
	322	** Returns:
	323	** pathname of the user's tty.
	324	** NULL if not logged in or write permission denied.
	325	**
	326	** Side Effects:
	327	** none.
	328	**
	329	** WARNING:
	330	** Return value is in a local buffer.
	331	**
b3cbe40f EA	332	** Called By:
b3cbe40f EA	333	** savemail
b3cbe40f EA	334	*/
	335
	336	# include <sys/types.h>
	337	# include <sys/stat.h>
	338
	339	char *
	340	ttypath()
	341	{
	342	struct stat stbuf;
	343	register int i;
	344	static char pathn[] = "/dev/ttyx";
	345	extern int errno;
	346
	347	/* compute the pathname of the controlling tty */
	348	if ((i = ttyn(2)) == 'x' && (i = ttyn(1)) == 'x' && (i = ttyn(0)) == 'x')
	349	{
	350	errno = 0;
	351	return (NULL);
	352	}
	353	pathn[8] = i;
	354
	355	/* see if we have write permission */
	356	if (stat(pathn, &stbuf) < 0 \|\| !flagset(02, stbuf.st_mode))
	357	{
	358	errno = 0;
	359	return (NULL);
	360	}
	361
	362	/* see if the user is logged in */
	363	if (getlogin() == NULL)
	364	return (NULL);
	365
	366	/* looks good */
	367	return (pathn);
	368	}
	369	\f/*
	370	** FDOPEN -- Open a stdio file given an open file descriptor.
	371	**
	372	** This is included here because it is standard in v7, but we
	373	** need it in v6.
	374	**
	375	** Algorithm:
	376	** Open /dev/null to create a descriptor.
	377	** Close that descriptor.
	378	** Copy the existing fd into the descriptor.
	379	**
	380	** Parameters:
	381	** fd -- the open file descriptor.
	382	** type -- "r", "w", or whatever.
	383	**
	384	** Returns:
	385	** The file descriptor it creates.
	386	**
	387	** Side Effects:
	388	** none
	389	**
b3cbe40f EA	390	** Called By:
	391	** deliver
	392	**
	393	** Notes:
	394	** The mode of fd must match "type".
	395	*/
	396
	397	FILE *
	398	fdopen(fd, type)
	399	int fd;
	400	char *type;
	401	{
	402	register FILE *f;
	403
	404	f = fopen("/dev/null", type);
	405	close(fileno(f));
	406	fileno(f) = fd;
	407	return (f);
	408	}
	409	\f/*
	410	** INDEX -- Return pointer to character in string
	411	**
	412	** For V7 compatibility.
	413	**
	414	** Parameters:
	415	** s -- a string to scan.
	416	** c -- a character to look for.
	417	**
	418	** Returns:
	419	** If c is in s, returns the address of the first
	420	** instance of c in s.
	421	** NULL if c is not in s.
	422	**
	423	** Side Effects:
	424	** none.
b3cbe40f EA	425	*/
	426
	427	index(s, c)
	428	register char *s;
	429	register char c;
	430	{
	431	while (*s != '\0')
	432	{
	433	if (*s++ == c)
	434	return (--s);
	435	}
	436	return (NULL);
	437	}
	438	# endif V6
	439	\f
	440	# ifndef V6
	441	/*
	442	** TTYPATH -- Get the path of the user's tty -- Version 7 version.
	443	**
	444	** Returns the pathname of the user's tty. Returns NULL if
	445	** the user is not logged in or if s/he has write permission
	446	** denied.
	447	**
	448	** Parameters:
	449	** none
	450	**
	451	** Returns:
	452	** pathname of the user's tty.
	453	** NULL if not logged in or write permission denied.
	454	**
	455	** Side Effects:
	456	** none.
	457	**
	458	** WARNING:
	459	** Return value is in a local buffer.
	460	**
b3cbe40f EA	461	** Called By:
b3cbe40f EA	462	** savemail
b3cbe40f EA	463	*/
	464
	465	# include <sys/types.h>
	466	# include <sys/stat.h>
	467
	468	char *
	469	ttypath()
	470	{
	471	struct stat stbuf;
	472	register char *pathn;
	473	extern int errno;
	474	extern char *ttyname();
	475
	476	/* compute the pathname of the controlling tty */
	477	if ((pathn = ttyname(2)) == NULL && (pathn = ttyname(1)) == NULL && (pathn = ttyname(0)) == NULL)
	478	{
	479	errno = 0;
	480	return (NULL);
	481	}
	482
	483	/* see if we have write permission */
	484	if (stat(pathn, &stbuf) < 0 \|\| !flagset(02, stbuf.st_mode))
	485	{
	486	errno = 0;
	487	return (NULL);
	488	}
	489
	490	/* see if the user is logged in */
	491	if (getlogin() == NULL)
	492	return (NULL);
	493
	494	/* looks good */
	495	return (pathn);
	496	}
	497	# endif V6