[mirror_frr.git] / pimd / pim_oil.c

/*
 * PIM for Quagga
 * Copyright (C) 2008  Everton da Silva Marques
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; see the file COPYING; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
 */

#include <zebra.h>

#include "log.h"
#include "memory.h"
#include "linklist.h"
#include "if.h"
#include "hash.h"
#include "jhash.h"

#include "pimd.h"
#include "pim_oil.h"
#include "pim_str.h"
#include "pim_iface.h"
#include "pim_time.h"
#include "pim_vxlan.h"

static void pim_channel_update_mute(struct channel_oil *c_oil);

char *pim_channel_oil_dump(struct channel_oil *c_oil, char *buf, size_t size)
{
	char *out;
	struct interface *ifp;
	struct prefix_sg sg;
	int i;

	sg.src = c_oil->oil.mfcc_origin;
	sg.grp = c_oil->oil.mfcc_mcastgrp;
	ifp = pim_if_find_by_vif_index(c_oil->pim, c_oil->oil.mfcc_parent);
	snprintf(buf, size, "%s IIF: %s, OIFS: ", pim_str_sg_dump(&sg),
		 ifp ? ifp->name : "(?)");

	out = buf + strlen(buf);
	for (i = 0; i < MAXVIFS; i++) {
		if (c_oil->oil.mfcc_ttls[i] != 0) {
			ifp = pim_if_find_by_vif_index(c_oil->pim, i);
			snprintf(out, buf + size - out, "%s ",
				 ifp ? ifp->name : "(?)");
			out += strlen(out);
		}
	}

	return buf;
}

int pim_channel_oil_compare(const struct channel_oil *c1,
			    const struct channel_oil *c2)
{
	if (ntohl(c1->oil.mfcc_mcastgrp.s_addr)
	    < ntohl(c2->oil.mfcc_mcastgrp.s_addr))
		return -1;

	if (ntohl(c1->oil.mfcc_mcastgrp.s_addr)
	    > ntohl(c2->oil.mfcc_mcastgrp.s_addr))
		return 1;

	if (ntohl(c1->oil.mfcc_origin.s_addr)
	    < ntohl(c2->oil.mfcc_origin.s_addr))
		return -1;

	if (ntohl(c1->oil.mfcc_origin.s_addr)
	    > ntohl(c2->oil.mfcc_origin.s_addr))
		return 1;

	return 0;
}

void pim_oil_init(struct pim_instance *pim)
{
	rb_pim_oil_init(&pim->channel_oil_head);
}

void pim_oil_terminate(struct pim_instance *pim)
{
	struct channel_oil *c_oil;

	while ((c_oil = rb_pim_oil_pop(&pim->channel_oil_head)))
		pim_channel_oil_free(c_oil);

	rb_pim_oil_fini(&pim->channel_oil_head);
}

void pim_channel_oil_free(struct channel_oil *c_oil)
{
	XFREE(MTYPE_PIM_CHANNEL_OIL, c_oil);
}

struct channel_oil *pim_find_channel_oil(struct pim_instance *pim,
					 struct prefix_sg *sg)
{
	struct channel_oil *c_oil = NULL;
	struct channel_oil lookup;

	lookup.oil.mfcc_mcastgrp = sg->grp;
	lookup.oil.mfcc_origin = sg->src;

	c_oil = rb_pim_oil_find(&pim->channel_oil_head, &lookup);

	return c_oil;
}

struct channel_oil *pim_channel_oil_add(struct pim_instance *pim,
					struct prefix_sg *sg,
					const char *name)
{
	struct channel_oil *c_oil;

	c_oil = pim_find_channel_oil(pim, sg);
	if (c_oil) {
		++c_oil->oil_ref_count;

		if (!c_oil->up) {
			/* channel might be present prior to upstream */
			c_oil->up = pim_upstream_find(
					pim, sg);
			/* if the upstream entry is being anchored to an
			 * already existing channel OIL we need to re-evaluate
			 * the "Mute" state on AA OIFs
			 */
			pim_channel_update_mute(c_oil);
		}

		/* check if the IIF has changed
		 * XXX - is this really needed
		 */
		pim_upstream_mroute_iif_update(c_oil, __func__);

		if (PIM_DEBUG_MROUTE)
			zlog_debug(
				"%s(%s): Existing oil for %pSG4 Ref Count: %d (Post Increment)",
				__func__, name, sg, c_oil->oil_ref_count);
		return c_oil;
	}

	c_oil = XCALLOC(MTYPE_PIM_CHANNEL_OIL, sizeof(*c_oil));

	c_oil->oil.mfcc_mcastgrp = sg->grp;
	c_oil->oil.mfcc_origin = sg->src;

	c_oil->oil.mfcc_parent = MAXVIFS;
	c_oil->oil_ref_count = 1;
	c_oil->installed = 0;
	c_oil->up = pim_upstream_find(pim, sg);
	c_oil->pim = pim;

	rb_pim_oil_add(&pim->channel_oil_head, c_oil);

	if (PIM_DEBUG_MROUTE)
		zlog_debug("%s(%s): c_oil %s add",
				__func__, name, pim_str_sg_dump(sg));

	return c_oil;
}

struct channel_oil *pim_channel_oil_del(struct channel_oil *c_oil,
					const char *name)
{
	if (PIM_DEBUG_MROUTE) {
		struct prefix_sg sg = {.src = c_oil->oil.mfcc_mcastgrp,
				       .grp = c_oil->oil.mfcc_origin};

		zlog_debug(
			"%s(%s): Del oil for %pSG4, Ref Count: %d (Predecrement)",
			__func__, name, &sg, c_oil->oil_ref_count);
	}
	--c_oil->oil_ref_count;

	if (c_oil->oil_ref_count < 1) {
		/*
		 * notice that listnode_delete() can't be moved
		 * into pim_channel_oil_free() because the later is
		 * called by list_delete_all_node()
		 */
		c_oil->up = NULL;
		rb_pim_oil_del(&c_oil->pim->channel_oil_head, c_oil);

		pim_channel_oil_free(c_oil);
		return NULL;
	}

	return c_oil;
}

void pim_channel_oil_upstream_deref(struct channel_oil *c_oil)
{
	/* The upstream entry associated with a channel_oil is abt to be
	 * deleted. If the channel_oil is kept around because of other
	 * references we need to remove upstream based states out of it.
	 */
	c_oil = pim_channel_oil_del(c_oil, __func__);
	if (c_oil) {
		/* note: here we assume that c_oil->up has already been
		 * cleared
		 */
		pim_channel_update_mute(c_oil);
	}
}

int pim_channel_del_oif(struct channel_oil *channel_oil, struct interface *oif,
			uint32_t proto_mask, const char *caller)
{
	struct pim_interface *pim_ifp;

	assert(channel_oil);
	assert(oif);

	pim_ifp = oif->info;

	/*
	 * Don't do anything if we've been asked to remove a source
	 * that is not actually on it.
	 */
	if (!(channel_oil->oif_flags[pim_ifp->mroute_vif_index] & proto_mask)) {
		if (PIM_DEBUG_MROUTE) {
			char group_str[INET_ADDRSTRLEN];
			char source_str[INET_ADDRSTRLEN];
			pim_inet4_dump("<group?>",
				       channel_oil->oil.mfcc_mcastgrp,
				       group_str, sizeof(group_str));
			pim_inet4_dump("<source?>",
				       channel_oil->oil.mfcc_origin, source_str,
				       sizeof(source_str));
			zlog_debug(
				"%s %s: no existing protocol mask %u(%u) for requested OIF %s (vif_index=%d, min_ttl=%d) for channel (S,G)=(%s,%s)",
				__FILE__, __func__, proto_mask,
				channel_oil
					->oif_flags[pim_ifp->mroute_vif_index],
				oif->name, pim_ifp->mroute_vif_index,
				channel_oil->oil
					.mfcc_ttls[pim_ifp->mroute_vif_index],
				source_str, group_str);
		}
		return 0;
	}

	channel_oil->oif_flags[pim_ifp->mroute_vif_index] &= ~proto_mask;

	if (channel_oil->oif_flags[pim_ifp->mroute_vif_index] &
			PIM_OIF_FLAG_PROTO_ANY) {
		if (PIM_DEBUG_MROUTE) {
			char group_str[INET_ADDRSTRLEN];
			char source_str[INET_ADDRSTRLEN];
			pim_inet4_dump("<group?>",
				       channel_oil->oil.mfcc_mcastgrp,
				       group_str, sizeof(group_str));
			pim_inet4_dump("<source?>",
				       channel_oil->oil.mfcc_origin, source_str,
				       sizeof(source_str));
			zlog_debug(
				"%s %s: other protocol masks remain for requested OIF %s (vif_index=%d, min_ttl=%d) for channel (S,G)=(%s,%s)",
				__FILE__, __func__, oif->name,
				pim_ifp->mroute_vif_index,
				channel_oil->oil
					.mfcc_ttls[pim_ifp->mroute_vif_index],
				source_str, group_str);
		}
		return 0;
	}

	channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index] = 0;
	/* clear mute; will be re-evaluated when the OIF becomes valid again */
	channel_oil->oif_flags[pim_ifp->mroute_vif_index] &= ~PIM_OIF_FLAG_MUTE;

	if (pim_upstream_mroute_add(channel_oil, __func__)) {
		if (PIM_DEBUG_MROUTE) {
			char group_str[INET_ADDRSTRLEN];
			char source_str[INET_ADDRSTRLEN];
			pim_inet4_dump("<group?>",
				       channel_oil->oil.mfcc_mcastgrp,
				       group_str, sizeof(group_str));
			pim_inet4_dump("<source?>",
				       channel_oil->oil.mfcc_origin, source_str,
				       sizeof(source_str));
			zlog_debug(
				"%s %s: could not remove output interface %s (vif_index=%d) for channel (S,G)=(%s,%s)",
				__FILE__, __func__, oif->name,
				pim_ifp->mroute_vif_index, source_str,
				group_str);
		}
		return -1;
	}

	--channel_oil->oil_size;

	if (PIM_DEBUG_MROUTE) {
		char group_str[INET_ADDRSTRLEN];
		char source_str[INET_ADDRSTRLEN];
		pim_inet4_dump("<group?>", channel_oil->oil.mfcc_mcastgrp,
			       group_str, sizeof(group_str));
		pim_inet4_dump("<source?>", channel_oil->oil.mfcc_origin,
			       source_str, sizeof(source_str));
		zlog_debug(
			"%s(%s): (S,G)=(%s,%s): proto_mask=%u IIF:%d OIF=%s vif_index=%d",
			__func__, caller, source_str, group_str, proto_mask,
			channel_oil->oil.mfcc_parent, oif->name,
			pim_ifp->mroute_vif_index);
	}

	return 0;
}

void pim_channel_del_inherited_oif(struct channel_oil *c_oil,
		struct interface *oif, const char *caller)
{
	struct pim_upstream *up = c_oil->up;

	pim_channel_del_oif(c_oil, oif, PIM_OIF_FLAG_PROTO_STAR,
			caller);

	/* if an inherited OIF is being removed join-desired can change
	 * if the inherited OIL is now empty and KAT is running
	 */
	if (up && up->sg.src.s_addr != INADDR_ANY &&
			pim_upstream_empty_inherited_olist(up))
		pim_upstream_update_join_desired(up->pim, up);
}

static bool pim_channel_eval_oif_mute(struct channel_oil *c_oil,
		struct pim_interface *pim_ifp)
{
	struct pim_interface *pim_reg_ifp;
	struct pim_interface *vxlan_ifp;
	bool do_mute = false;
	struct pim_instance *pim = c_oil->pim;

	if (!c_oil->up)
		return do_mute;

	pim_reg_ifp = pim->regiface->info;
	if (pim_ifp == pim_reg_ifp) {
		/* suppress pimreg in the OIL if the mroute is not supposed to
		 * trigger register encapsulated data
		 */
		if (PIM_UPSTREAM_FLAG_TEST_NO_PIMREG_DATA(c_oil->up->flags))
			do_mute = true;

		return do_mute;
	}

	vxlan_ifp = pim_vxlan_get_term_ifp(pim);
	if (pim_ifp == vxlan_ifp) {
		/* 1. vxlan termination device must never be added to the
		 * origination mroute (and that can actually happen because
		 * of XG inheritance from the termination mroute) otherwise
		 * traffic will end up looping.
		 * PS: This check has also been extended to non-orig mroutes
		 * that have a local SIP as such mroutes can move back and
		 * forth between orig<=>non-orig type.
		 * 2. vxlan termination device should be removed from the non-DF
		 * to prevent duplicates to the overlay rxer
		 */
		if (PIM_UPSTREAM_FLAG_TEST_SRC_VXLAN_ORIG(c_oil->up->flags) ||
			PIM_UPSTREAM_FLAG_TEST_MLAG_NON_DF(c_oil->up->flags) ||
			pim_vxlan_is_local_sip(c_oil->up))
			do_mute = true;

		return do_mute;
	}

	if (PIM_I_am_DualActive(pim_ifp)) {
		struct pim_upstream *starup = c_oil->up->parent;
		if (PIM_UPSTREAM_FLAG_TEST_MLAG_INTERFACE(c_oil->up->flags)
		    && (PIM_UPSTREAM_FLAG_TEST_MLAG_NON_DF(c_oil->up->flags)))
			do_mute = true;

		/* In case entry is (S,G), Negotiation happens at (*.G) */
		if (starup

		    && PIM_UPSTREAM_FLAG_TEST_MLAG_INTERFACE(starup->flags)
		    && (PIM_UPSTREAM_FLAG_TEST_MLAG_NON_DF(starup->flags)))
			do_mute = true;
		return do_mute;
	}
	return do_mute;
}

void pim_channel_update_oif_mute(struct channel_oil *c_oil,
		struct pim_interface *pim_ifp)
{
	bool old_mute;
	bool new_mute;

	/* If pim_ifp is not a part of the OIL there is nothing to do */
	if (!c_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index])
		return;

	old_mute = !!(c_oil->oif_flags[pim_ifp->mroute_vif_index] &
			PIM_OIF_FLAG_MUTE);
	new_mute = pim_channel_eval_oif_mute(c_oil, pim_ifp);
	if (old_mute == new_mute)
		return;

	if (new_mute)
		c_oil->oif_flags[pim_ifp->mroute_vif_index] |=
			PIM_OIF_FLAG_MUTE;
	else
		c_oil->oif_flags[pim_ifp->mroute_vif_index] &=
			~PIM_OIF_FLAG_MUTE;

	pim_upstream_mroute_add(c_oil, __func__);
}

/* pim_upstream has been set or cleared on the c_oil. re-eval mute state
 * on all existing OIFs
 */
static void pim_channel_update_mute(struct channel_oil *c_oil)
{
	struct pim_interface *pim_reg_ifp;
	struct pim_interface *vxlan_ifp;

	pim_reg_ifp = c_oil->pim->regiface->info;
	if (pim_reg_ifp)
		pim_channel_update_oif_mute(c_oil, pim_reg_ifp);
	vxlan_ifp = pim_vxlan_get_term_ifp(c_oil->pim);
	if (vxlan_ifp)
		pim_channel_update_oif_mute(c_oil, vxlan_ifp);
}

int pim_channel_add_oif(struct channel_oil *channel_oil, struct interface *oif,
			uint32_t proto_mask, const char *caller)
{
	struct pim_interface *pim_ifp;
	int old_ttl;

	/*
	 * If we've gotten here we've gone bad, but let's
	 * not take down pim
	 */
	if (!channel_oil) {
		zlog_warn("Attempt to Add OIF for non-existent channel oil");
		return -1;
	}

	pim_ifp = oif->info;

	/* Prevent single protocol from subscribing same interface to
	   channel (S,G) multiple times */
	if (channel_oil->oif_flags[pim_ifp->mroute_vif_index] & proto_mask) {
		if (PIM_DEBUG_MROUTE) {
			char group_str[INET_ADDRSTRLEN];
			char source_str[INET_ADDRSTRLEN];
			pim_inet4_dump("<group?>",
				       channel_oil->oil.mfcc_mcastgrp,
				       group_str, sizeof(group_str));
			pim_inet4_dump("<source?>",
				       channel_oil->oil.mfcc_origin, source_str,
				       sizeof(source_str));
			zlog_debug(
				"%s %s: existing protocol mask %u requested OIF %s (vif_index=%d, min_ttl=%d) for channel (S,G)=(%s,%s)",
				__FILE__, __func__, proto_mask, oif->name,
				pim_ifp->mroute_vif_index,
				channel_oil->oil
					.mfcc_ttls[pim_ifp->mroute_vif_index],
				source_str, group_str);
		}
		return -3;
	}

	/* Allow other protocol to request subscription of same interface to
	 * channel (S,G), we need to note this information
	 */
	if (channel_oil->oif_flags[pim_ifp->mroute_vif_index]
	    & PIM_OIF_FLAG_PROTO_ANY) {

		/* Updating time here is not required as this time has to
		 * indicate when the interface is added
		 */

		channel_oil->oif_flags[pim_ifp->mroute_vif_index] |= proto_mask;
		/* Check the OIF really exists before returning, and only log
		   warning otherwise */
		if (channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index] < 1) {
			{
				char group_str[INET_ADDRSTRLEN];
				char source_str[INET_ADDRSTRLEN];
				pim_inet4_dump("<group?>",
					       channel_oil->oil.mfcc_mcastgrp,
					       group_str, sizeof(group_str));
				pim_inet4_dump("<source?>",
					       channel_oil->oil.mfcc_origin,
					       source_str, sizeof(source_str));
				zlog_warn(
					"%s %s: new protocol mask %u requested nonexistent OIF %s (vif_index=%d, min_ttl=%d) for channel (S,G)=(%s,%s)",
					__FILE__, __func__, proto_mask,
					oif->name, pim_ifp->mroute_vif_index,
					channel_oil->oil.mfcc_ttls
						[pim_ifp->mroute_vif_index],
					source_str, group_str);
			}
		}

		if (PIM_DEBUG_MROUTE) {
			char group_str[INET_ADDRSTRLEN];
			char source_str[INET_ADDRSTRLEN];
			pim_inet4_dump("<group?>",
				       channel_oil->oil.mfcc_mcastgrp,
				       group_str, sizeof(group_str));
			pim_inet4_dump("<source?>",
				       channel_oil->oil.mfcc_origin, source_str,
				       sizeof(source_str));
			zlog_debug(
				"%s(%s): (S,G)=(%s,%s): proto_mask=%u OIF=%s vif_index=%d added to 0x%x",
				__func__, caller, source_str, group_str,
				proto_mask, oif->name,
				pim_ifp->mroute_vif_index,
				channel_oil
					->oif_flags[pim_ifp->mroute_vif_index]);
		}
		return 0;
	}

	old_ttl = channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index];

	if (old_ttl > 0) {
		if (PIM_DEBUG_MROUTE) {
			char group_str[INET_ADDRSTRLEN];
			char source_str[INET_ADDRSTRLEN];
			pim_inet4_dump("<group?>",
				       channel_oil->oil.mfcc_mcastgrp,
				       group_str, sizeof(group_str));
			pim_inet4_dump("<source?>",
				       channel_oil->oil.mfcc_origin, source_str,
				       sizeof(source_str));
			zlog_debug(
				"%s %s: interface %s (vif_index=%d) is existing output for channel (S,G)=(%s,%s)",
				__FILE__, __func__, oif->name,
				pim_ifp->mroute_vif_index, source_str,
				group_str);
		}
		return -4;
	}

	channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index] =
		PIM_MROUTE_MIN_TTL;

	/* Some OIFs are held in a muted state i.e. the PIM state machine
	 * decided to include the OIF but additional status check such as
	 * MLAG DF role prevent it from being activated for traffic
	 * forwarding.
	 */
	if (pim_channel_eval_oif_mute(channel_oil, pim_ifp))
		channel_oil->oif_flags[pim_ifp->mroute_vif_index] |=
			PIM_OIF_FLAG_MUTE;
	else
		channel_oil->oif_flags[pim_ifp->mroute_vif_index] &=
			~PIM_OIF_FLAG_MUTE;

	/* channel_oil->oil.mfcc_parent != MAXVIFS indicate this entry is not
	 * valid to get installed in kernel.
	 */
	if (channel_oil->oil.mfcc_parent != MAXVIFS) {
		if (pim_upstream_mroute_add(channel_oil, __func__)) {
			if (PIM_DEBUG_MROUTE) {
				char group_str[INET_ADDRSTRLEN];
				char source_str[INET_ADDRSTRLEN];
				pim_inet4_dump("<group?>",
				      channel_oil->oil.mfcc_mcastgrp,
				      group_str, sizeof(group_str));
				pim_inet4_dump("<source?>",
				      channel_oil->oil.mfcc_origin, source_str,
				      sizeof(source_str));
				zlog_debug(
					"%s %s: could not add output interface %s (vif_index=%d) for channel (S,G)=(%s,%s)",
					__FILE__, __func__, oif->name,
					pim_ifp->mroute_vif_index, source_str,
					group_str);
			}

			channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index]
				= old_ttl;
			return -5;
		}
	}

	channel_oil->oif_creation[pim_ifp->mroute_vif_index] =
		pim_time_monotonic_sec();
	++channel_oil->oil_size;
	channel_oil->oif_flags[pim_ifp->mroute_vif_index] |= proto_mask;

	if (PIM_DEBUG_MROUTE) {
		char group_str[INET_ADDRSTRLEN];
		char source_str[INET_ADDRSTRLEN];
		pim_inet4_dump("<group?>", channel_oil->oil.mfcc_mcastgrp,
			       group_str, sizeof(group_str));
		pim_inet4_dump("<source?>", channel_oil->oil.mfcc_origin,
			       source_str, sizeof(source_str));
		zlog_debug(
			"%s(%s): (S,G)=(%s,%s): proto_mask=%u OIF=%s vif_index=%d: DONE",
			__func__, caller, source_str, group_str, proto_mask,
			oif->name, pim_ifp->mroute_vif_index);
	}

	return 0;
}

int pim_channel_oil_empty(struct channel_oil *c_oil)
{
	static struct mfcctl null_oil;

	if (!c_oil)
		return 1;

	/* exclude pimreg from the OIL when checking if the inherited_oil is
	 * non-NULL.
	 * pimreg device (in all vrfs) uses a vifi of
	 * 0 (PIM_OIF_PIM_REGISTER_VIF) so we simply mfcc_ttls[0] */
	return !memcmp(&c_oil->oil.mfcc_ttls[1], &null_oil.mfcc_ttls[1],
		sizeof(null_oil.mfcc_ttls) - sizeof(null_oil.mfcc_ttls[0]));
}
Commit	Line	Data
12e41d03	1	/*
896014f4 DL	2	* PIM for Quagga
	3	* Copyright (C) 2008 Everton da Silva Marques
	4	*
	5	* This program is free software; you can redistribute it and/or modify
	6	* it under the terms of the GNU General Public License as published by
	7	* the Free Software Foundation; either version 2 of the License, or
	8	* (at your option) any later version.
	9	*
	10	* This program is distributed in the hope that it will be useful, but
	11	* WITHOUT ANY WARRANTY; without even the implied warranty of
	12	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	13	* General Public License for more details.
	14	*
	15	* You should have received a copy of the GNU General Public License along
	16	* with this program; see the file COPYING; if not, write to the Free Software
	17	* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
	18	*/
12e41d03 DL	19
	20	#include <zebra.h>
	21
	22	#include "log.h"
	23	#include "memory.h"
	24	#include "linklist.h"
744d91b3	25	#include "if.h"
040d86ad DS	26	#include "hash.h"
040d86ad DS	27	#include "jhash.h"
12e41d03 DL	28
	29	#include "pimd.h"
	30	#include "pim_oil.h"
	31	#include "pim_str.h"
	32	#include "pim_iface.h"
37653d4f	33	#include "pim_time.h"
5923b739	34	#include "pim_vxlan.h"
12e41d03	35
a155fed5 AK	36	static void pim_channel_update_mute(struct channel_oil *c_oil);
a155fed5 AK	37
d62a17ae	38	char pim_channel_oil_dump(struct channel_oil c_oil, char *buf, size_t size)
781a1745	39	{
a2dc7057	40	char *out;
9bf5f19c	41	struct interface *ifp;
d62a17ae	42	struct prefix_sg sg;
	43	int i;
	44
d62a17ae	45	sg.src = c_oil->oil.mfcc_origin;
d62a17ae	46	sg.grp = c_oil->oil.mfcc_mcastgrp;
9bf5f19c DS	47	ifp = pim_if_find_by_vif_index(c_oil->pim, c_oil->oil.mfcc_parent);
	48	snprintf(buf, size, "%s IIF: %s, OIFS: ", pim_str_sg_dump(&sg),
	49	ifp ? ifp->name : "(?)");
d62a17ae	50
a2dc7057	51	out = buf + strlen(buf);
d62a17ae	52	for (i = 0; i < MAXVIFS; i++) {
d62a17ae	53	if (c_oil->oil.mfcc_ttls[i] != 0) {
9bf5f19c DS	54	ifp = pim_if_find_by_vif_index(c_oil->pim, i);
	55	snprintf(out, buf + size - out, "%s ",
	56	ifp ? ifp->name : "(?)");
a2dc7057	57	out += strlen(out);
d62a17ae	58	}
	59	}
	60
	61	return buf;
781a1745 DS	62	}
781a1745 DS	63
7315ecda DS	64	int pim_channel_oil_compare(const struct channel_oil *c1,
7315ecda DS	65	const struct channel_oil *c2)
040d86ad	66	{
d62a17ae	67	if (ntohl(c1->oil.mfcc_mcastgrp.s_addr)
	68	< ntohl(c2->oil.mfcc_mcastgrp.s_addr))
	69	return -1;
040d86ad	70
d62a17ae	71	if (ntohl(c1->oil.mfcc_mcastgrp.s_addr)
	72	> ntohl(c2->oil.mfcc_mcastgrp.s_addr))
	73	return 1;
040d86ad	74
d62a17ae	75	if (ntohl(c1->oil.mfcc_origin.s_addr)
	76	< ntohl(c2->oil.mfcc_origin.s_addr))
	77	return -1;
040d86ad	78
d62a17ae	79	if (ntohl(c1->oil.mfcc_origin.s_addr)
	80	> ntohl(c2->oil.mfcc_origin.s_addr))
	81	return 1;
040d86ad	82
d62a17ae	83	return 0;
040d86ad DS	84	}
040d86ad DS	85
611925dc	86	void pim_oil_init(struct pim_instance *pim)
040d86ad	87	{
7315ecda	88	rb_pim_oil_init(&pim->channel_oil_head);
040d86ad DS	89	}
040d86ad DS	90
611925dc	91	void pim_oil_terminate(struct pim_instance *pim)
040d86ad	92	{
7315ecda DS	93	struct channel_oil *c_oil;
	94
	95	while ((c_oil = rb_pim_oil_pop(&pim->channel_oil_head)))
	96	pim_channel_oil_free(c_oil);
040d86ad	97
7315ecda	98	rb_pim_oil_fini(&pim->channel_oil_head);
040d86ad DS	99	}
040d86ad DS	100
12e41d03 DL	101	void pim_channel_oil_free(struct channel_oil *c_oil)
12e41d03 DL	102	{
d62a17ae	103	XFREE(MTYPE_PIM_CHANNEL_OIL, c_oil);
12e41d03 DL	104	}
12e41d03 DL	105
4d9ad5dc MS	106	struct channel_oil pim_find_channel_oil(struct pim_instance pim,
4d9ad5dc MS	107	struct prefix_sg *sg)
12e41d03	108	{
d62a17ae	109	struct channel_oil *c_oil = NULL;
d62a17ae	110	struct channel_oil lookup;
d270b216	111
d62a17ae	112	lookup.oil.mfcc_mcastgrp = sg->grp;
d62a17ae	113	lookup.oil.mfcc_origin = sg->src;
d270b216	114
7315ecda	115	c_oil = rb_pim_oil_find(&pim->channel_oil_head, &lookup);
d270b216	116
d62a17ae	117	return c_oil;
12e41d03 DL	118	}
12e41d03 DL	119
611925dc DS	120	struct channel_oil pim_channel_oil_add(struct pim_instance pim,
611925dc DS	121	struct prefix_sg *sg,
7984af18	122	const char *name)
12e41d03	123	{
d62a17ae	124	struct channel_oil *c_oil;
d62a17ae	125
611925dc	126	c_oil = pim_find_channel_oil(pim, sg);
d62a17ae	127	if (c_oil) {
d62a17ae	128	++c_oil->oil_ref_count;
a155fed5 AK	129
	130	if (!c_oil->up) {
	131	/* channel might be present prior to upstream */
	132	c_oil->up = pim_upstream_find(
	133	pim, sg);
	134	/* if the upstream entry is being anchored to an
	135	* already existing channel OIL we need to re-evaluate
	136	* the "Mute" state on AA OIFs
	137	*/
	138	pim_channel_update_mute(c_oil);
	139	}
8a3e7e9e	140
7984af18 AK	141	/* check if the IIF has changed
	142	* XXX - is this really needed
	143	*/
	144	pim_upstream_mroute_iif_update(c_oil, __func__);
	145
8a3e7e9e DS	146	if (PIM_DEBUG_MROUTE)
	147	zlog_debug(
	148	"%s(%s): Existing oil for %pSG4 Ref Count: %d (Post Increment)",
15569c58	149	__func__, name, sg, c_oil->oil_ref_count);
d62a17ae	150	return c_oil;
	151	}
	152
d62a17ae	153	c_oil = XCALLOC(MTYPE_PIM_CHANNEL_OIL, sizeof(*c_oil));
d62a17ae	154
	155	c_oil->oil.mfcc_mcastgrp = sg->grp;
	156	c_oil->oil.mfcc_origin = sg->src;
d62a17ae	157
7984af18	158	c_oil->oil.mfcc_parent = MAXVIFS;
d62a17ae	159	c_oil->oil_ref_count = 1;
d62a17ae	160	c_oil->installed = 0;
611925dc DS	161	c_oil->up = pim_upstream_find(pim, sg);
611925dc DS	162	c_oil->pim = pim;
d62a17ae	163
7315ecda	164	rb_pim_oil_add(&pim->channel_oil_head, c_oil);
d62a17ae	165
8a3e7e9e	166	if (PIM_DEBUG_MROUTE)
7984af18 AK	167	zlog_debug("%s(%s): c_oil %s add",
	168	__func__, name, pim_str_sg_dump(sg));
	169
d62a17ae	170	return c_oil;
12e41d03 DL	171	}
12e41d03 DL	172
a155fed5	173	struct channel_oil pim_channel_oil_del(struct channel_oil c_oil,
17823cdd	174	const char *name)
12e41d03	175	{
8a3e7e9e DS	176	if (PIM_DEBUG_MROUTE) {
	177	struct prefix_sg sg = {.src = c_oil->oil.mfcc_mcastgrp,
	178	.grp = c_oil->oil.mfcc_origin};
	179
	180	zlog_debug(
	181	"%s(%s): Del oil for %pSG4, Ref Count: %d (Predecrement)",
15569c58	182	__func__, name, &sg, c_oil->oil_ref_count);
8a3e7e9e	183	}
d62a17ae	184	--c_oil->oil_ref_count;
	185
	186	if (c_oil->oil_ref_count < 1) {
	187	/*
	188	* notice that listnode_delete() can't be moved
	189	* into pim_channel_oil_free() because the later is
	190	* called by list_delete_all_node()
	191	*/
	192	c_oil->up = NULL;
7315ecda	193	rb_pim_oil_del(&c_oil->pim->channel_oil_head, c_oil);
d62a17ae	194
d62a17ae	195	pim_channel_oil_free(c_oil);
a155fed5 AK	196	return NULL;
	197	}
	198
	199	return c_oil;
	200	}
	201
	202	void pim_channel_oil_upstream_deref(struct channel_oil *c_oil)
	203	{
	204	/* The upstream entry associated with a channel_oil is abt to be
	205	* deleted. If the channel_oil is kept around because of other
	206	* references we need to remove upstream based states out of it.
	207	*/
	208	c_oil = pim_channel_oil_del(c_oil, __func__);
	209	if (c_oil) {
	210	/* note: here we assume that c_oil->up has already been
	211	* cleared
	212	*/
	213	pim_channel_update_mute(c_oil);
d62a17ae	214	}
12e41d03	215	}
1865a44a	216
d62a17ae	217	int pim_channel_del_oif(struct channel_oil channel_oil, struct interface oif,
1b249e70	218	uint32_t proto_mask, const char *caller)
887fa014	219	{
d62a17ae	220	struct pim_interface *pim_ifp;
d62a17ae	221
df5dfb77 DL	222	assert(channel_oil);
df5dfb77 DL	223	assert(oif);
d62a17ae	224
	225	pim_ifp = oif->info;
	226
	227	/*
	228	* Don't do anything if we've been asked to remove a source
	229	* that is not actually on it.
	230	*/
	231	if (!(channel_oil->oif_flags[pim_ifp->mroute_vif_index] & proto_mask)) {
	232	if (PIM_DEBUG_MROUTE) {
	233	char group_str[INET_ADDRSTRLEN];
	234	char source_str[INET_ADDRSTRLEN];
	235	pim_inet4_dump("<group?>",
	236	channel_oil->oil.mfcc_mcastgrp,
	237	group_str, sizeof(group_str));
	238	pim_inet4_dump("<source?>",
	239	channel_oil->oil.mfcc_origin, source_str,
	240	sizeof(source_str));
	241	zlog_debug(
	242	"%s %s: no existing protocol mask %u(%u) for requested OIF %s (vif_index=%d, min_ttl=%d) for channel (S,G)=(%s,%s)",
15569c58	243	__FILE__, __func__, proto_mask,
d62a17ae	244	channel_oil
	245	->oif_flags[pim_ifp->mroute_vif_index],
	246	oif->name, pim_ifp->mroute_vif_index,
	247	channel_oil->oil
	248	.mfcc_ttls[pim_ifp->mroute_vif_index],
	249	source_str, group_str);
	250	}
	251	return 0;
	252	}
	253
	254	channel_oil->oif_flags[pim_ifp->mroute_vif_index] &= ~proto_mask;
	255
5923b739 AK	256	if (channel_oil->oif_flags[pim_ifp->mroute_vif_index] &
5923b739 AK	257	PIM_OIF_FLAG_PROTO_ANY) {
d62a17ae	258	if (PIM_DEBUG_MROUTE) {
	259	char group_str[INET_ADDRSTRLEN];
	260	char source_str[INET_ADDRSTRLEN];
	261	pim_inet4_dump("<group?>",
	262	channel_oil->oil.mfcc_mcastgrp,
	263	group_str, sizeof(group_str));
	264	pim_inet4_dump("<source?>",
	265	channel_oil->oil.mfcc_origin, source_str,
	266	sizeof(source_str));
	267	zlog_debug(
	268	"%s %s: other protocol masks remain for requested OIF %s (vif_index=%d, min_ttl=%d) for channel (S,G)=(%s,%s)",
15569c58	269	__FILE__, __func__, oif->name,
d62a17ae	270	pim_ifp->mroute_vif_index,
	271	channel_oil->oil
	272	.mfcc_ttls[pim_ifp->mroute_vif_index],
	273	source_str, group_str);
	274	}
	275	return 0;
	276	}
	277
	278	channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index] = 0;
5923b739 AK	279	/* clear mute; will be re-evaluated when the OIF becomes valid again */
5923b739 AK	280	channel_oil->oif_flags[pim_ifp->mroute_vif_index] &= ~PIM_OIF_FLAG_MUTE;
d62a17ae	281
15569c58	282	if (pim_upstream_mroute_add(channel_oil, __func__)) {
d62a17ae	283	if (PIM_DEBUG_MROUTE) {
	284	char group_str[INET_ADDRSTRLEN];
	285	char source_str[INET_ADDRSTRLEN];
	286	pim_inet4_dump("<group?>",
	287	channel_oil->oil.mfcc_mcastgrp,
	288	group_str, sizeof(group_str));
	289	pim_inet4_dump("<source?>",
	290	channel_oil->oil.mfcc_origin, source_str,
	291	sizeof(source_str));
	292	zlog_debug(
	293	"%s %s: could not remove output interface %s (vif_index=%d) for channel (S,G)=(%s,%s)",
15569c58	294	__FILE__, __func__, oif->name,
d62a17ae	295	pim_ifp->mroute_vif_index, source_str,
	296	group_str);
	297	}
	298	return -1;
887fa014	299	}
d62a17ae	300
	301	--channel_oil->oil_size;
	302
	303	if (PIM_DEBUG_MROUTE) {
	304	char group_str[INET_ADDRSTRLEN];
	305	char source_str[INET_ADDRSTRLEN];
	306	pim_inet4_dump("<group?>", channel_oil->oil.mfcc_mcastgrp,
	307	group_str, sizeof(group_str));
	308	pim_inet4_dump("<source?>", channel_oil->oil.mfcc_origin,
	309	source_str, sizeof(source_str));
	310	zlog_debug(
1b249e70	311	"%s(%s): (S,G)=(%s,%s): proto_mask=%u IIF:%d OIF=%s vif_index=%d",
15569c58 DA	312	__func__, caller, source_str, group_str, proto_mask,
15569c58 DA	313	channel_oil->oil.mfcc_parent, oif->name,
d62a17ae	314	pim_ifp->mroute_vif_index);
887fa014	315	}
d62a17ae	316
d62a17ae	317	return 0;
887fa014 DS	318	}
887fa014 DS	319
1537a668 AK	320	void pim_channel_del_inherited_oif(struct channel_oil *c_oil,
	321	struct interface oif, const char caller)
	322	{
	323	struct pim_upstream *up = c_oil->up;
	324
	325	pim_channel_del_oif(c_oil, oif, PIM_OIF_FLAG_PROTO_STAR,
	326	caller);
	327
	328	/* if an inherited OIF is being removed join-desired can change
	329	* if the inherited OIL is now empty and KAT is running
	330	*/
	331	if (up && up->sg.src.s_addr != INADDR_ANY &&
	332	pim_upstream_empty_inherited_olist(up))
	333	pim_upstream_update_join_desired(up->pim, up);
	334	}
887fa014	335
5923b739 AK	336	static bool pim_channel_eval_oif_mute(struct channel_oil *c_oil,
	337	struct pim_interface *pim_ifp)
	338	{
	339	struct pim_interface *pim_reg_ifp;
	340	struct pim_interface *vxlan_ifp;
	341	bool do_mute = false;
	342	struct pim_instance *pim = c_oil->pim;
	343
	344	if (!c_oil->up)
	345	return do_mute;
	346
	347	pim_reg_ifp = pim->regiface->info;
	348	if (pim_ifp == pim_reg_ifp) {
	349	/* suppress pimreg in the OIL if the mroute is not supposed to
	350	* trigger register encapsulated data
	351	*/
	352	if (PIM_UPSTREAM_FLAG_TEST_NO_PIMREG_DATA(c_oil->up->flags))
	353	do_mute = true;
	354
	355	return do_mute;
	356	}
	357
	358	vxlan_ifp = pim_vxlan_get_term_ifp(pim);
	359	if (pim_ifp == vxlan_ifp) {
	360	/* 1. vxlan termination device must never be added to the
	361	* origination mroute (and that can actually happen because
	362	* of XG inheritance from the termination mroute) otherwise
	363	* traffic will end up looping.
	364	* PS: This check has also been extended to non-orig mroutes
	365	* that have a local SIP as such mroutes can move back and
	366	* forth between orig<=>non-orig type.
	367	* 2. vxlan termination device should be removed from the non-DF
	368	* to prevent duplicates to the overlay rxer
	369	*/
	370	if (PIM_UPSTREAM_FLAG_TEST_SRC_VXLAN_ORIG(c_oil->up->flags) \|\|
	371	PIM_UPSTREAM_FLAG_TEST_MLAG_NON_DF(c_oil->up->flags) \|\|
	372	pim_vxlan_is_local_sip(c_oil->up))
	373	do_mute = true;
	374
	375	return do_mute;
	376	}
	377
df94b33a DS	378	if (PIM_I_am_DualActive(pim_ifp)) {
	379	struct pim_upstream *starup = c_oil->up->parent;
	380	if (PIM_UPSTREAM_FLAG_TEST_MLAG_INTERFACE(c_oil->up->flags)
	381	&& (PIM_UPSTREAM_FLAG_TEST_MLAG_NON_DF(c_oil->up->flags)))
	382	do_mute = true;
	383
	384	/* In case entry is (S,G), Negotiation happens at (.G) /
	385	if (starup
	386
	387	&& PIM_UPSTREAM_FLAG_TEST_MLAG_INTERFACE(starup->flags)
	388	&& (PIM_UPSTREAM_FLAG_TEST_MLAG_NON_DF(starup->flags)))
	389	do_mute = true;
	390	return do_mute;
	391	}
5923b739 AK	392	return do_mute;
	393	}
	394
	395	void pim_channel_update_oif_mute(struct channel_oil *c_oil,
	396	struct pim_interface *pim_ifp)
	397	{
	398	bool old_mute;
	399	bool new_mute;
	400
	401	/* If pim_ifp is not a part of the OIL there is nothing to do */
	402	if (!c_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index])
	403	return;
	404
	405	old_mute = !!(c_oil->oif_flags[pim_ifp->mroute_vif_index] &
	406	PIM_OIF_FLAG_MUTE);
	407	new_mute = pim_channel_eval_oif_mute(c_oil, pim_ifp);
	408	if (old_mute == new_mute)
	409	return;
	410
	411	if (new_mute)
	412	c_oil->oif_flags[pim_ifp->mroute_vif_index] \|=
	413	PIM_OIF_FLAG_MUTE;
	414	else
	415	c_oil->oif_flags[pim_ifp->mroute_vif_index] &=
	416	~PIM_OIF_FLAG_MUTE;
	417
15569c58	418	pim_upstream_mroute_add(c_oil, __func__);
5923b739 AK	419	}
5923b739 AK	420
a155fed5 AK	421	/* pim_upstream has been set or cleared on the c_oil. re-eval mute state
	422	* on all existing OIFs
	423	*/
	424	static void pim_channel_update_mute(struct channel_oil *c_oil)
	425	{
	426	struct pim_interface *pim_reg_ifp;
	427	struct pim_interface *vxlan_ifp;
	428
	429	pim_reg_ifp = c_oil->pim->regiface->info;
	430	if (pim_reg_ifp)
	431	pim_channel_update_oif_mute(c_oil, pim_reg_ifp);
	432	vxlan_ifp = pim_vxlan_get_term_ifp(c_oil->pim);
	433	if (vxlan_ifp)
	434	pim_channel_update_oif_mute(c_oil, vxlan_ifp);
	435	}
	436
d62a17ae	437	int pim_channel_add_oif(struct channel_oil channel_oil, struct interface oif,
1b249e70	438	uint32_t proto_mask, const char *caller)
1865a44a	439	{
d62a17ae	440	struct pim_interface *pim_ifp;
	441	int old_ttl;
	442
	443	/*
	444	* If we've gotten here we've gone bad, but let's
	445	* not take down pim
	446	*/
	447	if (!channel_oil) {
	448	zlog_warn("Attempt to Add OIF for non-existent channel oil");
	449	return -1;
	450	}
1865a44a	451
d62a17ae	452	pim_ifp = oif->info;
1865a44a	453
d62a17ae	454	/* Prevent single protocol from subscribing same interface to
	455	channel (S,G) multiple times */
	456	if (channel_oil->oif_flags[pim_ifp->mroute_vif_index] & proto_mask) {
	457	if (PIM_DEBUG_MROUTE) {
	458	char group_str[INET_ADDRSTRLEN];
	459	char source_str[INET_ADDRSTRLEN];
	460	pim_inet4_dump("<group?>",
	461	channel_oil->oil.mfcc_mcastgrp,
	462	group_str, sizeof(group_str));
	463	pim_inet4_dump("<source?>",
	464	channel_oil->oil.mfcc_origin, source_str,
	465	sizeof(source_str));
	466	zlog_debug(
	467	"%s %s: existing protocol mask %u requested OIF %s (vif_index=%d, min_ttl=%d) for channel (S,G)=(%s,%s)",
15569c58 DA	468	__FILE__, __func__, proto_mask, oif->name,
15569c58 DA	469	pim_ifp->mroute_vif_index,
d62a17ae	470	channel_oil->oil
	471	.mfcc_ttls[pim_ifp->mroute_vif_index],
	472	source_str, group_str);
	473	}
	474	return -3;
	475	}
	476
	477	/* Allow other protocol to request subscription of same interface to
	478	* channel (S,G), we need to note this information
	479	*/
	480	if (channel_oil->oif_flags[pim_ifp->mroute_vif_index]
	481	& PIM_OIF_FLAG_PROTO_ANY) {
	482
d23756e9 SP	483	/* Updating time here is not required as this time has to
	484	* indicate when the interface is added
	485	*/
	486
d62a17ae	487	channel_oil->oif_flags[pim_ifp->mroute_vif_index] \|= proto_mask;
	488	/* Check the OIF really exists before returning, and only log
	489	warning otherwise */
	490	if (channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index] < 1) {
	491	{
	492	char group_str[INET_ADDRSTRLEN];
	493	char source_str[INET_ADDRSTRLEN];
	494	pim_inet4_dump("<group?>",
	495	channel_oil->oil.mfcc_mcastgrp,
	496	group_str, sizeof(group_str));
	497	pim_inet4_dump("<source?>",
	498	channel_oil->oil.mfcc_origin,
	499	source_str, sizeof(source_str));
	500	zlog_warn(
	501	"%s %s: new protocol mask %u requested nonexistent OIF %s (vif_index=%d, min_ttl=%d) for channel (S,G)=(%s,%s)",
15569c58 DA	502	__FILE__, __func__, proto_mask,
15569c58 DA	503	oif->name, pim_ifp->mroute_vif_index,
d62a17ae	504	channel_oil->oil.mfcc_ttls
	505	[pim_ifp->mroute_vif_index],
	506	source_str, group_str);
	507	}
	508	}
	509
b900ad16 AK	510	if (PIM_DEBUG_MROUTE) {
	511	char group_str[INET_ADDRSTRLEN];
	512	char source_str[INET_ADDRSTRLEN];
	513	pim_inet4_dump("<group?>",
	514	channel_oil->oil.mfcc_mcastgrp,
	515	group_str, sizeof(group_str));
	516	pim_inet4_dump("<source?>",
	517	channel_oil->oil.mfcc_origin, source_str,
	518	sizeof(source_str));
	519	zlog_debug(
	520	"%s(%s): (S,G)=(%s,%s): proto_mask=%u OIF=%s vif_index=%d added to 0x%x",
	521	__func__, caller, source_str, group_str,
	522	proto_mask, oif->name,
	523	pim_ifp->mroute_vif_index,
	524	channel_oil
	525	->oif_flags[pim_ifp->mroute_vif_index]);
	526	}
d62a17ae	527	return 0;
	528	}
	529
	530	old_ttl = channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index];
	531
	532	if (old_ttl > 0) {
	533	if (PIM_DEBUG_MROUTE) {
	534	char group_str[INET_ADDRSTRLEN];
	535	char source_str[INET_ADDRSTRLEN];
	536	pim_inet4_dump("<group?>",
	537	channel_oil->oil.mfcc_mcastgrp,
	538	group_str, sizeof(group_str));
	539	pim_inet4_dump("<source?>",
	540	channel_oil->oil.mfcc_origin, source_str,
	541	sizeof(source_str));
	542	zlog_debug(
	543	"%s %s: interface %s (vif_index=%d) is existing output for channel (S,G)=(%s,%s)",
15569c58	544	__FILE__, __func__, oif->name,
d62a17ae	545	pim_ifp->mroute_vif_index, source_str,
	546	group_str);
	547	}
	548	return -4;
	549	}
	550
	551	channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index] =
	552	PIM_MROUTE_MIN_TTL;
	553
5923b739 AK	554	/* Some OIFs are held in a muted state i.e. the PIM state machine
	555	* decided to include the OIF but additional status check such as
	556	* MLAG DF role prevent it from being activated for traffic
	557	* forwarding.
	558	*/
	559	if (pim_channel_eval_oif_mute(channel_oil, pim_ifp))
	560	channel_oil->oif_flags[pim_ifp->mroute_vif_index] \|=
	561	PIM_OIF_FLAG_MUTE;
	562	else
	563	channel_oil->oif_flags[pim_ifp->mroute_vif_index] &=
	564	~PIM_OIF_FLAG_MUTE;
	565
47e3ce59 SP	566	/* channel_oil->oil.mfcc_parent != MAXVIFS indicate this entry is not
47e3ce59 SP	567	* valid to get installed in kernel.
c3156184	568	*/
47e3ce59	569	if (channel_oil->oil.mfcc_parent != MAXVIFS) {
15569c58	570	if (pim_upstream_mroute_add(channel_oil, __func__)) {
c3156184 SP	571	if (PIM_DEBUG_MROUTE) {
	572	char group_str[INET_ADDRSTRLEN];
	573	char source_str[INET_ADDRSTRLEN];
	574	pim_inet4_dump("<group?>",
	575	channel_oil->oil.mfcc_mcastgrp,
	576	group_str, sizeof(group_str));
	577	pim_inet4_dump("<source?>",
	578	channel_oil->oil.mfcc_origin, source_str,
	579	sizeof(source_str));
	580	zlog_debug(
15569c58 DA	581	"%s %s: could not add output interface %s (vif_index=%d) for channel (S,G)=(%s,%s)",
	582	__FILE__, __func__, oif->name,
	583	pim_ifp->mroute_vif_index, source_str,
	584	group_str);
c3156184	585	}
d62a17ae	586
c3156184 SP	587	channel_oil->oil.mfcc_ttls[pim_ifp->mroute_vif_index]
	588	= old_ttl;
	589	return -5;
	590	}
d62a17ae	591	}
	592
	593	channel_oil->oif_creation[pim_ifp->mroute_vif_index] =
	594	pim_time_monotonic_sec();
	595	++channel_oil->oil_size;
	596	channel_oil->oif_flags[pim_ifp->mroute_vif_index] \|= proto_mask;
	597
	598	if (PIM_DEBUG_MROUTE) {
	599	char group_str[INET_ADDRSTRLEN];
	600	char source_str[INET_ADDRSTRLEN];
	601	pim_inet4_dump("<group?>", channel_oil->oil.mfcc_mcastgrp,
	602	group_str, sizeof(group_str));
	603	pim_inet4_dump("<source?>", channel_oil->oil.mfcc_origin,
	604	source_str, sizeof(source_str));
	605	zlog_debug(
1b249e70	606	"%s(%s): (S,G)=(%s,%s): proto_mask=%u OIF=%s vif_index=%d: DONE",
15569c58 DA	607	__func__, caller, source_str, group_str, proto_mask,
15569c58 DA	608	oif->name, pim_ifp->mroute_vif_index);
d62a17ae	609	}
	610
	611	return 0;
1865a44a	612	}
ce0ddb4e	613
d62a17ae	614	int pim_channel_oil_empty(struct channel_oil *c_oil)
ce0ddb4e	615	{
d86632fb	616	static struct mfcctl null_oil;
d62a17ae	617
	618	if (!c_oil)
	619	return 1;
d62a17ae	620
9e558d9a AK	621	/* exclude pimreg from the OIL when checking if the inherited_oil is
	622	* non-NULL.
	623	* pimreg device (in all vrfs) uses a vifi of
	624	* 0 (PIM_OIF_PIM_REGISTER_VIF) so we simply mfcc_ttls[0] */
	625	return !memcmp(&c_oil->oil.mfcc_ttls[1], &null_oil.mfcc_ttls[1],
	626	sizeof(null_oil.mfcc_ttls) - sizeof(null_oil.mfcc_ttls[0]));
ce0ddb4e	627	}