/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 1999 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

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

/*
 * Portions of this source code were derived from Berkeley 4.3 BSD
 * under license from the Regents of the University of California.
 */

#ident	"@(#)output.c	1.5	05/06/08 SMI"	/* SVr4.0 1.1	*/

/*
 * Routing Table Management Daemon
 */
#include "defs.h"

/*
 * Apply the function "supply" to all active
 * interfaces with a link-local address.
 */
void
supplyall(struct sockaddr_in6 *sin6, int rtstate, struct interface *skipif,
    boolean_t splith)
{
	struct interface *ifp;

	for (ifp = ifnet; ifp != NULL; ifp = ifp->int_next) {
		if ((ifp->int_flags & RIP6_IFF_UP) == 0)
			continue;
		if (ifp->int_flags & RIP6_IFF_NORTEXCH) {
			if (tracing & OUTPUT_BIT) {
				(void) fprintf(ftrace,
				    "Suppress sending RIPng response packet "
				    "on %s (no route exchange on interface)\n",
				    ifp->int_name);
				(void) fflush(ftrace);
			}
			continue;
		}
		if (ifp->int_sock == -1)
			continue;
		if (ifp == skipif)
			continue;
		if (!IN6_IS_ADDR_LINKLOCAL(&ifp->int_addr))
			continue;
		supply(sin6, ifp, rtstate, splith);
	}
}

static void
solicit(struct sockaddr_in6 *sin6, struct interface *ifp)
{
	msg->rip6_cmd = RIPCMD6_REQUEST;
	msg->rip6_vers = RIPVERSION6;
	msg->rip6_nets[0].rip6_prefix = in6addr_any;
	msg->rip6_nets[0].rip6_prefix_length = 0;
	msg->rip6_nets[0].rip6_metric = HOPCNT_INFINITY;
	sendpacket(sin6, ifp, sizeof (struct rip6), 0);
}

void
solicitall(struct sockaddr_in6 *sin6)
{
	struct interface *ifp;

	for (ifp = ifnet; ifp != NULL; ifp = ifp->int_next) {
		if ((ifp->int_flags & RIP6_IFF_UP) == 0)
			continue;
		if (ifp->int_flags & RIP6_IFF_NORTEXCH) {
			if (tracing & OUTPUT_BIT) {
				(void) fprintf(ftrace,
				    "Suppress sending RIPng request packet "
				    "on %s (no route exchange on interface)\n",
				    ifp->int_name);
				(void) fflush(ftrace);
			}
			continue;
		}
		if (ifp->int_sock == -1)
			continue;
		solicit(sin6, ifp);
	}
}


/*
 * Output a preformed packet.
 */
/*ARGSUSED*/
void
sendpacket(struct sockaddr_in6 *sin6, struct interface *ifp, int size,
    int flags)
{
	if (sendto(ifp->int_sock, packet, size, flags,
	    (struct sockaddr *)sin6, sizeof (*sin6)) < 0) {
		syslog(LOG_ERR, "sendpacket: sendto: %m");
		return;
	}
	TRACE_OUTPUT(ifp, sin6, sizeof (struct rip6));
	ifp->int_opackets++;
}

/*
 * Supply dst with the contents of the routing tables.
 * If this won't fit in one packet, chop it up into several.
 */
void
supply(struct sockaddr_in6 *sin6, struct interface *ifp, int rtstate,
    boolean_t splith)
{
	struct rt_entry *rt;
	struct netinfo6 *n = msg->rip6_nets;
	struct rthash *rh;
	int size, i, maxsize;
	uint8_t rtmetric;

	msg->rip6_cmd = RIPCMD6_RESPONSE;
	msg->rip6_vers = RIPVERSION6;

	/*
	 * Initialize maxsize to the size of the largest RIPng packet supported
	 * on the outgoing interface.
	 */
	maxsize = ifp->int_mtu - sizeof (ip6_t) - sizeof (struct udphdr);

	for (i = IPV6_ABITS; i >= 0; i--) {
		if (net_hashes[i] == NULL)
			continue;

		for (rh = net_hashes[i]; rh < &net_hashes[i][ROUTEHASHSIZ];
		    rh++) {
			for (rt = rh->rt_forw; rt != (struct rt_entry *)rh;
			    rt = rt->rt_forw) {

				if (IN6_IS_ADDR_LINKLOCAL(&rt->rt_dst))
					continue;
				if (IN6_IS_ADDR_UNSPECIFIED(&rt->rt_dst))
					continue;

				/* do not send if private */
				if (rt->rt_state & RTS_PRIVATE)
					continue;

				/*
				 * Don't resend the information
				 * on the network from which it was received.
				 */
				if (splith && rt->rt_ifp != NULL &&
				    strcmp(ifp->int_ifbase,
					rt->rt_ifp->int_ifbase) == 0) {
					if (dopoison)
						rtmetric = HOPCNT_INFINITY;
					else
						continue;
				} else {
					rtmetric = rt->rt_metric;
				}

				/*
				 * For dynamic updates, limit update to routes
				 * with the specified state.
				 */
				if (rtstate != 0 &&
				    (rt->rt_state & rtstate) == 0)
					continue;

				/*
				 * Check if there is space for another RTE.  If
				 * not, send the packet built up and reset n for
				 * the remaining RTEs.
				 */
				size = (char *)n - packet;
				if (size > maxsize - sizeof (struct netinfo6)) {
					sendpacket(sin6, ifp, size, 0);
					TRACE_OUTPUT(ifp, sin6, size);
					n = msg->rip6_nets;
				}
				n->rip6_prefix = rt->rt_dst;
				n->rip6_route_tag = rt->rt_tag;
				n->rip6_prefix_length = rt->rt_prefix_length;
				n->rip6_metric = min(rtmetric, HOPCNT_INFINITY);
				n++;
			} /* end of hash chain */
		} /* end of particular prefix length */
	} /* end of all prefix lengths */
	if (n != msg->rip6_nets) {
		size = (char *)n - packet;
		sendpacket(sin6, ifp, size, 0);
		TRACE_OUTPUT(ifp, sin6, size);
	}
}