/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved  	*/

/*	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T	*/
/*	The copyright notice above does not evidence any   	*/
/*	actual or intended publication of such source code.	*/

#ident	"@(#)res_init.c	1.10	99/03/21 SMI"	/* SVr4.0 1.2 */

/*
 * +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 * 		PROPRIETARY NOTICE (Combined)
 *
 * This source code is unpublished proprietary information
 * constituting, or derived under license from AT&T's UNIX(r) System V.
 * In addition, portions of such source code were derived from Berkeley
 * 4.3 BSD under license from the Regents of the University of
 * California.
 *
 *
 *
 * 		Copyright Notice
 *
 * Notice of copyright on this source code product does not indicate
 * publication.
 *
 *	(c) 1986,1987,1988.1989  Sun Microsystems, Inc
 *	(c) 1983,1984,1985,1986,1987,1988,1989  AT&T.
 *			All rights reserved.
 *
 */

#include "synonyms.h"

#include <sys/types.h>
#include <sys/sockio.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <stdio.h>
#include <arpa/nameser.h>
#include <resolv.h>

#include <netinet/in.h>
#include <net/if.h>
#include <netinet/if_ether.h>
#include <arpa/inet.h>

#define	MAXIFS	256

/*
 * Resolver state default settings
 */

struct state _res = {
	RES_TIMEOUT,		/* retransmition time interval */
	4,				/* number of times to retransmit */
	RES_DEFAULT,		/* options flags */
	1,				/* number of name servers */
};

/*
 * Set up default settings.  If the configuration file exist, the values
 * there will have precedence.  Otherwise, the server address is set to
 * INADDR_LOOPBACK and the default domain name comes from the gethostname().
 * BUT if the NIS/RPC domain name is set, that is used if all else fails.
 *
 * The configuration file should only be used if you want to redefine your
 * domain or run without a server on your machine.
 *
 * Note the user can always override then domain name with the environment
 * variable LOCALDOMAIN which has absolute priority.
 *
 *
 * Return 0 if completes successfully, -1 on error
 */
res_init()
{
	register FILE *fp;
	register char *cp, **pp;
	register int n;
	char buf[BUFSIZ];
#ifdef SYSV
	extern char *strchr();
#else
	extern char *index();
#endif
	extern char *strcpy(), *strncpy();
	extern char *getenv();
	int nserv = 0;    /* number of nameserver records read from file */
	int haveenv = 0;
	int havesearch = 0;

	_res.nsaddr.sin_addr.s_addr =  htonl(INADDR_LOOPBACK); /* INADDR_ANY */
	_res.nsaddr.sin_family = AF_INET;
	_res.nsaddr.sin_port = htons(NAMESERVER_PORT);
	_res.nscount = 1;

#ifdef SIOCGIFNUM
	{	int numifs, s, n, int_up;
		struct ifconf ifc;
		register struct ifreq *ifrp;
		struct ifreq ifr;
		unsigned bufsize;
		unsigned int flags;
		char *buf;
		extern void *malloc();

		if ((s = socket(AF_INET, SOCK_DGRAM, 0)) < 0) {
			perror("socket");
			return (-1);
		}
		if (ioctl(s, SIOCGIFNUM, (char *)&numifs) < 0) {
			numifs = MAXIFS;
		}
		bufsize = numifs * sizeof (struct ifreq);
		buf = (char *)malloc(bufsize);
		if (buf == NULL) {
			perror("out of memory");
			close(s);
			return (-1);
		}
		ifc.ifc_len = bufsize;
		ifc.ifc_buf = buf;
		if (ioctl(s, SIOCGIFCONF, (char *)&ifc) < 0) {
			perror("ifconfig: SIOCGIFCONF");
			close(s);
			free(buf);
			return (-1);
		}

		int_up = 0;
		ifrp = ifc.ifc_req;
		for (n = ifc.ifc_len / sizeof (struct ifreq); n > 0;
								n--, ifrp++) {
			memset((void *) &ifr, 0, sizeof (ifr));
			strncpy(ifr.ifr_name, ifrp->ifr_name,
							sizeof (ifr.ifr_name));
			if (ioctl(s, SIOCGIFFLAGS, (char *)&ifr) < 0) {
				perror("SIOCGIFFLAGS");
				close(s);
				free(buf);
				return (-1);
			}
			flags = ifr.ifr_flags;
			/* we are looking for a non-loopback interface */
			if ((flags & IFF_UP) && ((flags & IFF_LOOPBACK) == 0))
				int_up = 1;
		}
		close(s);
		free(buf);
		if (int_up == 0) /* all the non-LOOPBACK interfaces are DOWN */
			return (-1);
	}
#endif /* SIOCGIFNUM */


	/*
	 * for the benefit of hidden NIS domains, we use the same procedure
	 * as sendmail: convert leading + to dot, then drop to first dot
	 */
	getdomainname(buf, BUFSIZ);
	if (buf[0] == '+')
	buf[0] = '.';
#ifdef SYSV
	cp = strchr(buf, (int)'.');
#else
	cp = index(buf, '.');
#endif
	if (cp == NULL)
		strcpy(_res.defdname, buf);
	else
		strcpy(_res.defdname, cp+1);

	/* Allow user to override the local domain definition */
	if ((cp = getenv("LOCALDOMAIN")) != NULL) {
	(void) strncpy(_res.defdname, cp, sizeof (_res.defdname));
	haveenv++;
	}

	if ((fp = fopen(_PATH_RESCONF, "r")) != NULL) {
	/* read the config file */
	while (fgets(buf, sizeof (buf), fp) != NULL) {
	    /* read default domain name */
	    if (!strncmp(buf, "domain", sizeof ("domain") - 1)) {
		if (haveenv)	/* skip if have from environ */
			    continue;
		cp = buf + sizeof ("domain") - 1;
		while (*cp == ' ' || *cp == '\t')
		    cp++;
		if ((*cp == '\0') || (*cp == '\n'))
		    continue;
		(void) strncpy(_res.defdname, cp, sizeof (_res.defdname) - 1);
#ifdef SYSV
		if ((cp = strchr(_res.defdname, (int)'\n')) != NULL)
#else
		if ((cp = index(_res.defdname, '\n')) != NULL)
#endif
		    *cp = '\0';
		havesearch = 0;
		continue;
	    }
	    /* set search list */
	    if (!strncmp(buf, "search", sizeof ("search") - 1)) {
		if (haveenv)	/* skip if have from environ */
		    continue;
		cp = buf + sizeof ("search") - 1;
		while (*cp == ' ' || *cp == '\t')
		    cp++;
		if ((*cp == '\0') || (*cp == '\n'))
		    continue;
		(void) strncpy(_res.defdname, cp, sizeof (_res.defdname) - 1);
#ifdef SYSV
		if ((cp = strchr(_res.defdname, (int)'\n')) != NULL)
#else
		if ((cp = index(_res.defdname, '\n')) != NULL)
#endif
		    *cp = '\0';
		/*
		 * Set search list to be blank-separated strings
		 * on rest of line.
		 */
		cp = _res.defdname;
		pp = _res.dnsrch;
		*pp++ = cp;
		for (n = 0; *cp && pp < _res.dnsrch + MAXDNSRCH; cp++) {
		    if (*cp == ' ' || *cp == '\t') {
			*cp = 0;
			n = 1;
		    } else if (n) {
			*pp++ = cp;
			n = 0;
		    }
		}
		/* null terminate last domain if there are excess */
		while (*cp != '\0' && *cp != ' ' && *cp != '\t')
		    cp++;
		*cp = '\0';
		*pp++ = 0;
		havesearch = 1;
		continue;
	    }
	    /* read nameservers to query */
	    if (!strncmp(buf, "nameserver", sizeof ("nameserver") - 1) &&
		(nserv < MAXNS)) {
		cp = buf + sizeof ("nameserver") - 1;
		while (*cp == ' ' || *cp == '\t')
		    cp++;
		if ((*cp == '\0') || (*cp == '\n'))
		    continue;
		if ((_res.nsaddr_list[nserv].sin_addr.s_addr =
				inet_addr(cp)) == (unsigned) -1) {
		    _res.nsaddr_list[n].sin_addr.s_addr = INADDR_ANY;
		    continue;
		}
		_res.nsaddr_list[nserv].sin_family = AF_INET;
		_res.nsaddr_list[nserv].sin_port = htons(NAMESERVER_PORT);
		nserv++;
		continue;
	    }
	}
	if (nserv > 1)
	    _res.nscount = nserv;
	(void) fclose(fp);
	}
	if (_res.defdname[0] == 0) {
	if (gethostname(buf, sizeof (_res.defdname)) == 0 &&
#ifdef SYSV
	    (cp = strchr(buf, (int)'.')))
#else
	    (cp = index(buf, '.')))
#endif
		(void) strcpy(_res.defdname, cp + 1);
	}

	/* find components of local domain that might be searched */
	if (havesearch == 0) {
	pp = _res.dnsrch;
	*pp++ = _res.defdname;
	for (cp = _res.defdname, n = 0; *cp; cp++)
	    if (*cp == '.')
		n++;
	cp = _res.defdname;
	for (; n >= LOCALDOMAINPARTS && pp < _res.dnsrch + MAXDFLSRCH; n--) {
#ifdef SYSV
	    cp = strchr(cp, (int)'.');
#else
	    cp = index(cp, '.');
#endif
	    *pp++ = ++cp;
	}
	*pp++ = 0;
	}
	_res.options |= RES_INIT;
	return (0);
}
