/*
 * Copyright (C) 1999, 2000  Internet Software Consortium.
 * 
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS
 * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
 * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
 * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */

/* $Id: conflsn.c,v 1.16 2000/06/06 14:20:01 brister Exp $ */

#include <config.h>

#include <isc/mem.h>
#include <isc/util.h>

#include <dns/conflsn.h>
#include <dns/log.h>

#include "confpvt.h"

isc_result_t
dns_c_lstnon_new(isc_mem_t *mem, dns_c_lstnon_t **listen) {
	dns_c_lstnon_t *ll;
	isc_result_t result;

	REQUIRE(listen != NULL);

	*listen = NULL;
	
	ll = isc_mem_get(mem, sizeof *ll);
	ll->mem = mem;
	ll->port = 0;
	ll->magic = DNS_C_LISTEN_MAGIC;

	result = dns_c_ipmatchlist_new(mem, &ll->iml);
	if (result != ISC_R_SUCCESS) {
		isc_mem_put(mem, ll, sizeof *ll);
		return (result);
	}
	
	ISC_LINK_INIT(ll, next);

	*listen = ll;
		
	return (ISC_R_SUCCESS);
}

isc_result_t
dns_c_lstnon_delete(dns_c_lstnon_t **listen) {
	dns_c_lstnon_t *lo;
	isc_result_t r;

	REQUIRE(listen != NULL);
	REQUIRE(DNS_C_LISTEN_VALID(*listen));

	lo = *listen;

	if (lo->iml != NULL) {
		r = dns_c_ipmatchlist_detach(&lo->iml);
	} else {
		r = ISC_R_SUCCESS;
	}

	lo->magic = 0;
	isc_mem_put(lo->mem, lo, sizeof *lo);

	*listen = NULL;
	
	return (r);
}

isc_result_t
dns_c_lstnon_setiml(dns_c_lstnon_t *listen,
		    dns_c_ipmatchlist_t *iml, isc_boolean_t deepcopy)
{
	isc_result_t result;

	REQUIRE(DNS_C_LISTEN_VALID(listen));
	REQUIRE(DNS_C_IPMLIST_VALID(iml));

	if (listen->iml != NULL) {
		result = dns_c_ipmatchlist_detach(&listen->iml);
		if (result != ISC_R_SUCCESS) {
			return (result);
		}
	} else {
		result = ISC_R_SUCCESS;
	}
	

	if (deepcopy) {
		result = dns_c_ipmatchlist_copy(listen->mem,
						&listen->iml, iml);
	} else {
		listen->iml = iml;
	}

	return (result);
}

isc_result_t
dns_c_lstnlist_new(isc_mem_t *mem, dns_c_lstnlist_t **llist) {
	dns_c_lstnlist_t *ll;

	REQUIRE(llist != NULL);

	*llist = NULL;
	
	ll = isc_mem_get(mem, sizeof *ll);
	if (ll == NULL) {
		/* XXXJAB logwrite */
		return	(ISC_R_NOMEMORY);
	}

	ll->mem = mem;
	ll->magic = DNS_C_LLIST_MAGIC;
	ISC_LIST_INIT(ll->elements);

	*llist = ll;
	
	return (ISC_R_SUCCESS);
}

isc_result_t
dns_c_lstnlist_delete(dns_c_lstnlist_t **llist) {
	dns_c_lstnlist_t *ll;
	dns_c_lstnon_t *lo, *lotmp;
	isc_result_t r;

	REQUIRE(llist != NULL);
	REQUIRE(DNS_C_LISTENLIST_VALID(*llist));

	ll = *llist;

	lo = ISC_LIST_HEAD(ll->elements);
	while (lo != NULL) {
		lotmp = ISC_LIST_NEXT(lo, next);
		ISC_LIST_UNLINK(ll->elements, lo, next);
		r = dns_c_lstnon_delete(&lo);
		if (r != ISC_R_SUCCESS) {
			return (r);
		}

		lo = lotmp;
	}

	ll->magic = 0;
	isc_mem_put(ll->mem, ll, sizeof *ll);

	*llist = NULL;
	
	return (ISC_R_SUCCESS);
}

isc_result_t
dns_c_lstnlist_print(FILE *fp, int indent, dns_c_lstnlist_t *ll,
		     in_port_t default_port)
{
	dns_c_lstnon_t *lo;

	REQUIRE(DNS_C_LISTENLIST_VALID(ll));

	lo = ISC_LIST_HEAD(ll->elements);
	while (lo != NULL) {
		dns_c_printtabs(fp, indent);
		dns_c_lstnon_print(fp, indent, lo, default_port);
		lo = ISC_LIST_NEXT(lo, next);
		fprintf(fp, "\n");
	}

	return (ISC_R_SUCCESS);
}

isc_result_t
dns_c_lstnlistv6_print(FILE *fp, int indent, dns_c_lstnlist_t *ll,
		     in_port_t default_port)
{
	dns_c_lstnon_t *lo;

	REQUIRE(DNS_C_LISTENLIST_VALID(ll));

	lo = ISC_LIST_HEAD(ll->elements);
	while (lo != NULL) {
		dns_c_printtabs(fp, indent);
		dns_c_lstnonv6_print(fp, indent, lo, default_port);
		lo = ISC_LIST_NEXT(lo, next);
		fprintf(fp, "\n");
	}

	return (ISC_R_SUCCESS);
}

isc_result_t
dns_c_lstnon_print(FILE *fp, int indent, dns_c_lstnon_t *lo,
		   in_port_t default_port) {
	REQUIRE(lo != NULL);
	REQUIRE(DNS_C_LISTEN_VALID(lo));
	
	fprintf(fp, "listen-on ");
	if (lo->port != default_port) {
		fprintf(fp, "port %d ", lo->port);
	}

	dns_c_ipmatchlist_print(fp, indent + 1, lo->iml);
	fprintf(fp, ";\n");

	return (ISC_R_SUCCESS);
}


isc_result_t
dns_c_lstnonv6_print(FILE *fp, int indent, dns_c_lstnon_t *lo,
		   in_port_t default_port) {
	REQUIRE(lo != NULL);
	REQUIRE(DNS_C_LISTEN_VALID(lo));
	
	fprintf(fp, "listen-on-v6 ");
	if (lo->port != default_port) {
		fprintf(fp, "port %d ", lo->port);
	}

	dns_c_ipmatchlist_print(fp, indent + 1, lo->iml);
	fprintf(fp, ";\n");

	return (ISC_R_SUCCESS);
}


#if 0

static isc_boolean_t
checklisten_element(dns_c_ipmatchelement_t *element)
{
	int pf;
	isc_boolean_t ok = ISC_FALSE;

	switch (element->type) {
	case dns_c_ipmatch_pattern:
		pf = isc_sockaddr_pf(&element->u.direct.address);
		ok = ISC_TF(pf == AF_INET);
		break;

	case dns_c_ipmatch_key:
	case dns_c_ipmatch_localhost:
	case dns_c_ipmatch_localnets:
		ok = ISC_FALSE;
		break;
		
	case dns_c_ipmatch_any:
	case dns_c_ipmatch_none:
		ok = ISC_TRUE;
		break;

	case dns_c_ipmatch_indirect:
		/* XXX shouldn't be reached */
		break;
		
	case dns_c_ipmatch_acl:
		/* XXX handle this. */
		break;
	}

	return (ok);
}

static isc_boolean_t
checkv6listen_element(dns_c_ipmatchelement_t *element)
{
	int pf;
	isc_boolean_t ok = ISC_FALSE;
	
	switch (element->type) {
	case dns_c_ipmatch_pattern:
		pf = isc_sockaddr_pf(&element->u.direct.address);
		
		ok = ISC_TF(pf == AF_INET6);
		break;

	case dns_c_ipmatch_key:
	case dns_c_ipmatch_localhost:
	case dns_c_ipmatch_localnets:
		ok = ISC_FALSE;
		break;
		
	case dns_c_ipmatch_any:
	case dns_c_ipmatch_none:
		ok = ISC_TRUE;
		break;

	case dns_c_ipmatch_indirect:
		/* XXX shouldn't be reached */
		break;
		
	case dns_c_ipmatch_acl:
		/* XXX handle this. */
		break;
	}

	return (ok);
}

#endif

/*
 * Post confirguation load validation of list-on lists.
 */
isc_result_t
dns_c_lstnlist_validate(dns_c_lstnlist_t *ll)
{
#if 0
	
	dns_c_lstnon_t *lo;
	isc_boolean_t checkval;

	REQUIRE(DNS_C_LISTENLIST_VALID(ll));

	lo = ISC_LIST_HEAD(ll->elements);
	while (lo != NULL) {
		checkval = dns_c_ipmatchlist_walk(lo->iml,
						  checklisten_element);
		if (!checkval) {
			isc_log_write(dns_lctx,DNS_LOGCATEGORY_CONFIG,
				      DNS_LOGMODULE_CONFIG, ISC_LOG_ERROR,
				      "listen-on must have IPv4 "
				      "addresses only.");
			return (ISC_R_FAILURE);
		}
		
		lo = ISC_LIST_NEXT(lo, next);
	}

	return (ISC_R_SUCCESS);

#else	

	UNUSED(ll);
	return (ISC_R_SUCCESS);

#endif	
}


isc_result_t
dns_c_lstnlistv6_validate(dns_c_lstnlist_t *ll)
{
#if 0

	dns_c_lstnon_t *lo;
	isc_boolean_t checkval;

	REQUIRE(DNS_C_LISTENLIST_VALID(ll));

	lo = ISC_LIST_HEAD(ll->elements);
	while (lo != NULL) {
		checkval = dns_c_ipmatchlist_walk(lo->iml,
						  checkv6listen_element);
		if (!checkval) {
			isc_log_write(dns_lctx,DNS_LOGCATEGORY_CONFIG,
				      DNS_LOGMODULE_CONFIG, ISC_LOG_ERROR,
				      "listen-on-v6 must have IPv6 "
				      "addresses only.");
			return (ISC_R_FAILURE);
		}
		
		lo = ISC_LIST_NEXT(lo, next);
	}

	return (ISC_R_SUCCESS);

#else
	
	UNUSED(ll);
	return (ISC_R_SUCCESS);
	
#endif	
}