2 * Copyright (C) 2000 Kunihiro Ishiguro <kunihiro@zebra.org>
4 * This file is part of GNU Zebra.
6 * GNU Zebra is free software; you can redistribute it and/or modify it
7 * under the terms of the GNU General Public License as published by the
8 * Free Software Foundation; either version 2, or (at your option) any
11 * GNU Zebra is distributed in the hope that it will be useful, but
12 * WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * General Public License for more details.
16 * You should have received a copy of the GNU General Public License along
17 * with this program; see the file COPYING; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
34 #include "bgpd/bgpd.h"
35 #include "bgpd/bgp_debug.h"
36 #include "bgpd/bgp_table.h"
37 #include "bgpd/bgp_route.h"
38 #include "bgpd/bgp_attr.h"
39 #include "bgpd/bgp_label.h"
40 #include "bgpd/bgp_mplsvpn.h"
41 #include "bgpd/bgp_packet.h"
42 #include "bgpd/bgp_vty.h"
43 #include "bgpd/bgp_vpn.h"
44 #include "bgpd/bgp_ecommunity.h"
45 #include "bgpd/bgp_zebra.h"
46 #include "bgpd/bgp_nexthop.h"
47 #include "bgpd/bgp_nht.h"
50 #include "bgpd/rfapi/rfapi_backend.h"
54 * Definitions and external declarations.
56 extern struct zclient
*zclient
;
58 extern int argv_find_and_parse_vpnvx(struct cmd_token
**argv
, int argc
,
59 int *index
, afi_t
*afi
)
62 if (argv_find(argv
, argc
, "vpnv4", index
)) {
66 } else if (argv_find(argv
, argc
, "vpnv6", index
)) {
74 uint32_t decode_label(mpls_label_t
*label_pnt
)
77 uint8_t *pnt
= (uint8_t *)label_pnt
;
79 l
= ((uint32_t)*pnt
++ << 12);
80 l
|= (uint32_t)*pnt
++ << 4;
81 l
|= (uint32_t)((*pnt
& 0xf0) >> 4);
85 void encode_label(mpls_label_t label
, mpls_label_t
*label_pnt
)
87 uint8_t *pnt
= (uint8_t *)label_pnt
;
90 *pnt
++ = (label
>> 12) & 0xff;
91 *pnt
++ = (label
>> 4) & 0xff;
92 *pnt
++ = ((label
<< 4) + 1) & 0xff; /* S=1 */
95 int bgp_nlri_parse_vpn(struct peer
*peer
, struct attr
*attr
,
96 struct bgp_nlri
*packet
)
106 struct prefix_rd prd
;
107 mpls_label_t label
= {0};
114 prd
.family
= AF_UNSPEC
;
118 lim
= pnt
+ packet
->length
;
124 (CHECK_FLAG(peer
->af_cap
[afi
][safi
], PEER_CAP_ADDPATH_AF_RX_ADV
)
125 && CHECK_FLAG(peer
->af_cap
[afi
][safi
],
126 PEER_CAP_ADDPATH_AF_TX_RCV
));
128 #define VPN_PREFIXLEN_MIN_BYTES (3 + 8) /* label + RD */
129 for (; pnt
< lim
; pnt
+= psize
) {
130 /* Clear prefix structure. */
131 memset(&p
, 0, sizeof(struct prefix
));
133 if (addpath_encoded
) {
135 /* When packet overflow occurs return immediately. */
136 if (pnt
+ BGP_ADDPATH_ID_LEN
> lim
)
139 addpath_id
= ntohl(*((uint32_t *)pnt
));
140 pnt
+= BGP_ADDPATH_ID_LEN
;
143 /* Fetch prefix length. */
145 p
.family
= afi2family(packet
->afi
);
146 psize
= PSIZE(prefixlen
);
148 if (prefixlen
< VPN_PREFIXLEN_MIN_BYTES
* 8) {
150 "%s [Error] Update packet error / VPN (prefix length %d less than VPN min length)",
151 peer
->host
, prefixlen
);
155 /* sanity check against packet data */
156 if ((pnt
+ psize
) > lim
) {
158 "%s [Error] Update packet error / VPN (prefix length %d exceeds packet size %u)",
159 peer
->host
, prefixlen
, (uint
)(lim
- pnt
));
163 /* sanity check against storage for the IP address portion */
164 if ((psize
- VPN_PREFIXLEN_MIN_BYTES
) > (ssize_t
)sizeof(p
.u
)) {
166 "%s [Error] Update packet error / VPN (psize %d exceeds storage size %zu)",
168 prefixlen
- VPN_PREFIXLEN_MIN_BYTES
* 8,
173 /* Sanity check against max bitlen of the address family */
174 if ((psize
- VPN_PREFIXLEN_MIN_BYTES
) > prefix_blen(&p
)) {
176 "%s [Error] Update packet error / VPN (psize %d exceeds family (%u) max byte len %u)",
178 prefixlen
- VPN_PREFIXLEN_MIN_BYTES
* 8,
179 p
.family
, prefix_blen(&p
));
183 /* Copy label to prefix. */
184 memcpy(&label
, pnt
, BGP_LABEL_BYTES
);
185 bgp_set_valid_label(&label
);
187 /* Copy routing distinguisher to rd. */
188 memcpy(&prd
.val
, pnt
+ BGP_LABEL_BYTES
, 8);
190 /* Decode RD type. */
191 type
= decode_rd_type(pnt
+ BGP_LABEL_BYTES
);
195 decode_rd_as(pnt
+ 5, &rd_as
);
199 decode_rd_as4(pnt
+ 5, &rd_as
);
203 decode_rd_ip(pnt
+ 5, &rd_ip
);
207 case RD_TYPE_VNC_ETH
:
212 zlog_err("Unknown RD type %d", type
);
213 break; /* just report */
218 - VPN_PREFIXLEN_MIN_BYTES
* 8; /* exclude label & RD */
219 memcpy(&p
.u
.prefix
, pnt
+ VPN_PREFIXLEN_MIN_BYTES
,
220 psize
- VPN_PREFIXLEN_MIN_BYTES
);
223 bgp_update(peer
, &p
, addpath_id
, attr
, packet
->afi
,
224 SAFI_MPLS_VPN
, ZEBRA_ROUTE_BGP
,
225 BGP_ROUTE_NORMAL
, &prd
, &label
, 1, 0, NULL
);
227 bgp_withdraw(peer
, &p
, addpath_id
, attr
, packet
->afi
,
228 SAFI_MPLS_VPN
, ZEBRA_ROUTE_BGP
,
229 BGP_ROUTE_NORMAL
, &prd
, &label
, 1, NULL
);
232 /* Packet length consistency check. */
235 "%s [Error] Update packet error / VPN (%zu data remaining after parsing)",
236 peer
->host
, lim
- pnt
);
241 #undef VPN_PREFIXLEN_MIN_BYTES
245 * This function informs zebra of the label this vrf sets on routes
246 * leaked to VPN. Zebra should install this label in the kernel with
247 * an action of "pop label and then use this vrf's IP FIB to route the PDU."
249 * Sending this vrf-label association is qualified by a) whether vrf->vpn
250 * exporting is active ("export vpn" is enabled, vpn-policy RD and RT list
251 * are set) and b) whether vpn-policy label is set.
253 * If any of these conditions do not hold, then we send MPLS_LABEL_NONE
254 * for this vrf, which zebra interprets to mean "delete this vrf-label
257 void vpn_leak_zebra_vrf_label_update(struct bgp
*bgp
, afi_t afi
)
259 mpls_label_t label
= MPLS_LABEL_NONE
;
260 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_LABEL
);
262 if (bgp
->vrf_id
== VRF_UNKNOWN
) {
265 "%s: vrf %s: afi %s: vrf_id not set, "
266 "can't set zebra vrf label",
267 __func__
, bgp
->name_pretty
, afi2str(afi
));
272 if (vpn_leak_to_vpn_active(bgp
, afi
, NULL
)) {
273 label
= bgp
->vpn_policy
[afi
].tovpn_label
;
277 zlog_debug("%s: vrf %s: afi %s: setting label %d for vrf id %d",
278 __func__
, bgp
->name_pretty
, afi2str(afi
), label
,
282 zclient_send_vrf_label(zclient
, bgp
->vrf_id
, afi
, label
, ZEBRA_LSP_BGP
);
283 bgp
->vpn_policy
[afi
].tovpn_zebra_vrf_label_last_sent
= label
;
287 * If zebra tells us vrf has become unconfigured, tell zebra not to
288 * use this label to forward to the vrf anymore
290 void vpn_leak_zebra_vrf_label_withdraw(struct bgp
*bgp
, afi_t afi
)
292 mpls_label_t label
= MPLS_LABEL_NONE
;
293 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_LABEL
);
295 if (bgp
->vrf_id
== VRF_UNKNOWN
) {
298 "%s: vrf_id not set, can't delete zebra vrf label",
305 zlog_debug("%s: deleting label for vrf %s (id=%d)", __func__
,
306 bgp
->name_pretty
, bgp
->vrf_id
);
309 zclient_send_vrf_label(zclient
, bgp
->vrf_id
, afi
, label
, ZEBRA_LSP_BGP
);
310 bgp
->vpn_policy
[afi
].tovpn_zebra_vrf_label_last_sent
= label
;
313 int vpn_leak_label_callback(
318 struct vpn_policy
*vp
= (struct vpn_policy
*)labelid
;
319 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_LABEL
);
322 zlog_debug("%s: label=%u, allocated=%d",
323 __func__
, label
, allocated
);
327 * previously-allocated label is now invalid
329 if (CHECK_FLAG(vp
->flags
, BGP_VPN_POLICY_TOVPN_LABEL_AUTO
) &&
330 (vp
->tovpn_label
!= MPLS_LABEL_NONE
)) {
332 vpn_leak_prechange(BGP_VPN_POLICY_DIR_TOVPN
,
333 vp
->afi
, bgp_get_default(), vp
->bgp
);
334 vp
->tovpn_label
= MPLS_LABEL_NONE
;
335 vpn_leak_postchange(BGP_VPN_POLICY_DIR_TOVPN
,
336 vp
->afi
, bgp_get_default(), vp
->bgp
);
342 * New label allocation
344 if (!CHECK_FLAG(vp
->flags
, BGP_VPN_POLICY_TOVPN_LABEL_AUTO
)) {
347 * not currently configured for auto label, reject allocation
352 if (vp
->tovpn_label
!= MPLS_LABEL_NONE
) {
353 if (label
== vp
->tovpn_label
) {
354 /* already have same label, accept but do nothing */
357 /* Shouldn't happen: different label allocation */
358 zlog_err("%s: %s had label %u but got new assignment %u",
359 __func__
, vp
->bgp
->name_pretty
, vp
->tovpn_label
, label
);
363 vpn_leak_prechange(BGP_VPN_POLICY_DIR_TOVPN
,
364 vp
->afi
, bgp_get_default(), vp
->bgp
);
365 vp
->tovpn_label
= label
;
366 vpn_leak_postchange(BGP_VPN_POLICY_DIR_TOVPN
,
367 vp
->afi
, bgp_get_default(), vp
->bgp
);
372 static int ecom_intersect(struct ecommunity
*e1
, struct ecommunity
*e2
)
380 for (i
= 0; i
< e1
->size
; ++i
) {
381 for (j
= 0; j
< e2
->size
; ++j
) {
382 if (!memcmp(e1
->val
+ (i
* ECOMMUNITY_SIZE
),
383 e2
->val
+ (j
* ECOMMUNITY_SIZE
),
393 static bool labels_same(struct bgp_info
*bi
, mpls_label_t
*label
, uint32_t n
)
404 if (n
!= bi
->extra
->num_labels
)
407 for (i
= 0; i
< n
; ++i
) {
408 if (label
[i
] != bi
->extra
->label
[i
])
415 * make encoded route labels match specified encoded label set
417 static void setlabels(
419 mpls_label_t
*label
, /* array of labels */
424 assert(num_labels
<= BGP_MAX_LABELS
);
428 bi
->extra
->num_labels
= 0;
432 struct bgp_info_extra
*extra
= bgp_info_extra_get(bi
);
435 for (i
= 0; i
< num_labels
; ++i
) {
436 extra
->label
[i
] = label
[i
];
437 if (!bgp_is_valid_label(&label
[i
])) {
438 bgp_set_valid_label(&extra
->label
[i
]);
441 extra
->num_labels
= num_labels
;
445 * returns pointer to new bgp_info upon success
447 static struct bgp_info
*
449 struct bgp
*bgp
, /* destination bgp instance */
451 struct attr
*new_attr
, /* already interned */
454 struct bgp_info
*source_bi
,
458 struct bgp
*bgp_orig
,
459 struct prefix
*nexthop_orig
,
460 int nexthop_self_flag
,
463 struct prefix
*p
= &bn
->p
;
465 struct bgp_info
*new;
466 char buf_prefix
[PREFIX_STRLEN
];
469 prefix2str(&bn
->p
, buf_prefix
, sizeof(buf_prefix
));
470 zlog_debug("%s: entry: leak-to=%s, p=%s, type=%d, sub_type=%d",
471 __func__
, bgp
->name_pretty
, buf_prefix
,
472 source_bi
->type
, source_bi
->sub_type
);
478 for (bi
= bn
->info
; bi
; bi
= bi
->next
) {
479 if (bi
->extra
&& bi
->extra
->parent
== parent
)
484 bool labelssame
= labels_same(bi
, label
, num_labels
);
486 if (attrhash_cmp(bi
->attr
, new_attr
)
488 && !CHECK_FLAG(bi
->flags
, BGP_INFO_REMOVED
)) {
490 bgp_attr_unintern(&new_attr
);
493 "%s: ->%s: %s: Found route, no change",
494 __func__
, bgp
->name_pretty
,
499 /* attr is changed */
500 bgp_info_set_flag(bn
, bi
, BGP_INFO_ATTR_CHANGED
);
502 /* Rewrite BGP route information. */
503 if (CHECK_FLAG(bi
->flags
, BGP_INFO_REMOVED
))
504 bgp_info_restore(bn
, bi
);
506 bgp_aggregate_decrement(bgp
, p
, bi
, afi
, safi
);
507 bgp_attr_unintern(&bi
->attr
);
509 bi
->uptime
= bgp_clock();
515 setlabels(bi
, label
, num_labels
);
517 if (nexthop_self_flag
)
518 bgp_info_set_flag(bn
, bi
, BGP_INFO_ANNC_NH_SELF
);
520 struct bgp
*bgp_nexthop
= bgp
;
523 if (bi
->extra
&& bi
->extra
->bgp_orig
)
524 bgp_nexthop
= bi
->extra
->bgp_orig
;
526 /* No nexthop tracking for redistributed routes */
527 if (source_bi
->sub_type
== BGP_ROUTE_REDISTRIBUTE
)
531 * TBD do we need to do anything about the
532 * 'connected' parameter?
534 nh_valid
= bgp_find_or_add_nexthop(
539 zlog_debug("%s: nexthop is %svalid (in vrf %s)",
540 __func__
, (nh_valid
? "" : "not "),
541 bgp_nexthop
->name_pretty
);
544 bgp_info_set_flag(bn
, bi
, BGP_INFO_VALID
);
546 /* Process change. */
547 bgp_aggregate_increment(bgp
, p
, bi
, afi
, safi
);
548 bgp_process(bgp
, bn
, afi
, safi
);
552 zlog_debug("%s: ->%s: %s Found route, changed attr",
553 __func__
, bgp
->name_pretty
, buf_prefix
);
558 new = info_make(ZEBRA_ROUTE_BGP
, BGP_ROUTE_IMPORTED
, 0,
559 bgp
->peer_self
, new_attr
, bn
);
561 if (nexthop_self_flag
)
562 bgp_info_set_flag(bn
, new, BGP_INFO_ANNC_NH_SELF
);
565 setlabels(new, label
, num_labels
);
567 bgp_info_extra_get(new);
568 new->extra
->parent
= parent
;
571 new->extra
->bgp_orig
= bgp_orig
;
573 new->extra
->nexthop_orig
= *nexthop_orig
;
576 * nexthop tracking for unicast routes
578 struct bgp
*bgp_nexthop
= bgp
;
581 if (new->extra
&& new->extra
->bgp_orig
)
582 bgp_nexthop
= new->extra
->bgp_orig
;
585 * No nexthop tracking for redistributed routes because
586 * their originating protocols will do the tracking and
587 * withdraw those routes if the nexthops become unreachable
589 if (source_bi
->sub_type
== BGP_ROUTE_REDISTRIBUTE
)
593 * TBD do we need to do anything about the
594 * 'connected' parameter?
596 nh_valid
= bgp_find_or_add_nexthop(bgp
, bgp_nexthop
,
600 zlog_debug("%s: nexthop is %svalid (in vrf %s)",
601 __func__
, (nh_valid
? "" : "not "),
602 bgp_nexthop
->name_pretty
);
604 bgp_info_set_flag(bn
, new, BGP_INFO_VALID
);
606 bgp_aggregate_increment(bgp
, p
, new, afi
, safi
);
607 bgp_info_add(bn
, new);
610 bgp_process(bgp
, bn
, afi
, safi
);
613 zlog_debug("%s: ->%s: %s: Added new route", __func__
,
614 bgp
->name_pretty
, buf_prefix
);
619 /* cf vnc_import_bgp_add_route_mode_nvegroup() and add_vnc_route() */
620 void vpn_leak_from_vrf_update(struct bgp
*bgp_vpn
, /* to */
621 struct bgp
*bgp_vrf
, /* from */
622 struct bgp_info
*info_vrf
) /* route */
624 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_FROM_VRF
);
625 struct prefix
*p
= &info_vrf
->net
->p
;
626 afi_t afi
= family2afi(p
->family
);
627 struct attr static_attr
= {0};
628 struct attr
*new_attr
= NULL
;
629 safi_t safi
= SAFI_MPLS_VPN
;
630 mpls_label_t label_val
;
633 const char *debugmsg
;
634 int nexthop_self_flag
= 0;
637 zlog_debug("%s: from vrf %s", __func__
, bgp_vrf
->name_pretty
);
639 if (debug
&& info_vrf
->attr
->ecommunity
) {
640 char *s
= ecommunity_ecom2str(info_vrf
->attr
->ecommunity
,
641 ECOMMUNITY_FORMAT_ROUTE_MAP
, 0);
643 zlog_debug("%s: %s info_vrf->type=%d, EC{%s}", __func__
,
644 bgp_vrf
->name
, info_vrf
->type
, s
);
645 XFREE(MTYPE_ECOMMUNITY_STR
, s
);
653 zlog_debug("%s: can't get afi of prefix", __func__
);
658 if (info_vrf
->extra
&& info_vrf
->extra
->bgp_orig
== bgp_vpn
)
662 if (!vpn_leak_to_vpn_active(bgp_vrf
, afi
, &debugmsg
)) {
664 zlog_debug("%s: %s skipping: %s", __func__
,
665 bgp_vrf
->name
, debugmsg
);
669 bgp_attr_dup(&static_attr
, info_vrf
->attr
); /* shallow copy */
674 if (bgp_vrf
->vpn_policy
[afi
].rmap
[BGP_VPN_POLICY_DIR_TOVPN
]) {
675 struct bgp_info info
;
676 route_map_result_t ret
;
678 memset(&info
, 0, sizeof(info
));
679 info
.peer
= bgp_vpn
->peer_self
;
680 info
.attr
= &static_attr
;
681 ret
= route_map_apply(
682 bgp_vrf
->vpn_policy
[afi
].rmap
[BGP_VPN_POLICY_DIR_TOVPN
],
684 if (RMAP_DENYMATCH
== ret
) {
685 bgp_attr_flush(&static_attr
); /* free any added parts */
688 "%s: vrf %s route map \"%s\" says DENY, returning",
689 __func__
, bgp_vrf
->name_pretty
,
690 bgp_vrf
->vpn_policy
[afi
]
691 .rmap
[BGP_VPN_POLICY_DIR_TOVPN
]
697 if (debug
&& static_attr
.ecommunity
) {
698 char *s
= ecommunity_ecom2str(static_attr
.ecommunity
,
699 ECOMMUNITY_FORMAT_ROUTE_MAP
, 0);
701 zlog_debug("%s: post route map static_attr.ecommunity{%s}",
703 XFREE(MTYPE_ECOMMUNITY_STR
, s
);
707 * Add the vpn-policy rt-list
709 struct ecommunity
*old_ecom
;
710 struct ecommunity
*new_ecom
;
712 old_ecom
= static_attr
.ecommunity
;
714 new_ecom
= ecommunity_merge(
715 ecommunity_dup(old_ecom
),
716 bgp_vrf
->vpn_policy
[afi
]
717 .rtlist
[BGP_VPN_POLICY_DIR_TOVPN
]);
718 if (!old_ecom
->refcnt
)
719 ecommunity_free(&old_ecom
);
721 new_ecom
= ecommunity_dup(
722 bgp_vrf
->vpn_policy
[afi
]
723 .rtlist
[BGP_VPN_POLICY_DIR_TOVPN
]);
725 static_attr
.ecommunity
= new_ecom
;
726 SET_FLAG(static_attr
.flag
, ATTR_FLAG_BIT(BGP_ATTR_EXT_COMMUNITIES
));
728 if (debug
&& static_attr
.ecommunity
) {
729 char *s
= ecommunity_ecom2str(static_attr
.ecommunity
,
730 ECOMMUNITY_FORMAT_ROUTE_MAP
, 0);
732 zlog_debug("%s: post merge static_attr.ecommunity{%s}",
734 XFREE(MTYPE_ECOMMUNITY_STR
, s
);
738 /* if policy nexthop not set, use 0 */
739 if (CHECK_FLAG(bgp_vrf
->vpn_policy
[afi
].flags
,
740 BGP_VPN_POLICY_TOVPN_NEXTHOP_SET
)) {
741 struct prefix
*nexthop
=
742 &bgp_vrf
->vpn_policy
[afi
].tovpn_nexthop
;
744 switch (nexthop
->family
) {
746 /* prevent mp_nexthop_global_in <- self in bgp_route.c
748 static_attr
.nexthop
.s_addr
= nexthop
->u
.prefix4
.s_addr
;
750 static_attr
.mp_nexthop_global_in
= nexthop
->u
.prefix4
;
751 static_attr
.mp_nexthop_len
= 4;
755 static_attr
.mp_nexthop_global
= nexthop
->u
.prefix6
;
756 static_attr
.mp_nexthop_len
= 16;
763 if (!CHECK_FLAG(bgp_vrf
->af_flags
[afi
][SAFI_UNICAST
],
764 BGP_CONFIG_VRF_TO_VRF_EXPORT
)) {
766 /* For ipv4, copy to multiprotocol nexthop field */
767 static_attr
.mp_nexthop_global_in
= static_attr
.nexthop
;
768 static_attr
.mp_nexthop_len
= 4;
769 /* XXX Leave static_attr.nexthop intact for NHT */
770 static_attr
.flag
&= ~ATTR_FLAG_BIT(BGP_ATTR_NEXT_HOP
);
775 static_attr
.mp_nexthop_global_in
.s_addr
=
776 static_attr
.nexthop
.s_addr
;
777 static_attr
.mp_nexthop_len
= 4;
779 ATTR_FLAG_BIT(BGP_ATTR_NEXT_HOP
);
785 assert(!"Unexpected AFI to process");
789 nexthop_self_flag
= 1;
792 label_val
= bgp_vrf
->vpn_policy
[afi
].tovpn_label
;
793 if (label_val
== MPLS_LABEL_NONE
) {
794 encode_label(MPLS_LABEL_IMPLICIT_NULL
, &label
);
796 encode_label(label_val
, &label
);
799 /* Set originator ID to "me" */
800 SET_FLAG(static_attr
.flag
, ATTR_FLAG_BIT(BGP_ATTR_ORIGINATOR_ID
));
801 static_attr
.originator_id
= bgp_vpn
->router_id
;
804 new_attr
= bgp_attr_intern(
805 &static_attr
); /* hashed refcounted everything */
806 bgp_attr_flush(&static_attr
); /* free locally-allocated parts */
808 if (debug
&& new_attr
->ecommunity
) {
809 char *s
= ecommunity_ecom2str(new_attr
->ecommunity
,
810 ECOMMUNITY_FORMAT_ROUTE_MAP
, 0);
812 zlog_debug("%s: new_attr->ecommunity{%s}", __func__
, s
);
813 XFREE(MTYPE_ECOMMUNITY_STR
, s
);
816 /* Now new_attr is an allocated interned attr */
818 bn
= bgp_afi_node_get(bgp_vpn
->rib
[afi
][safi
], afi
, safi
, p
,
819 &(bgp_vrf
->vpn_policy
[afi
].tovpn_rd
));
821 struct bgp_info
*new_info
;
823 new_info
= leak_update(bgp_vpn
, bn
, new_attr
, afi
, safi
, info_vrf
,
824 &label
, 1, info_vrf
, bgp_vrf
, NULL
,
825 nexthop_self_flag
, debug
);
828 * Routes actually installed in the vpn RIB must also be
829 * offered to all vrfs (because now they originate from
832 * Acceptance into other vrfs depends on rt-lists.
833 * Originating vrf will not accept the looped back route
834 * because of loop checking.
837 vpn_leak_to_vrf_update(bgp_vrf
, new_info
);
840 void vpn_leak_from_vrf_withdraw(struct bgp
*bgp_vpn
, /* to */
841 struct bgp
*bgp_vrf
, /* from */
842 struct bgp_info
*info_vrf
) /* route */
844 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_FROM_VRF
);
845 struct prefix
*p
= &info_vrf
->net
->p
;
846 afi_t afi
= family2afi(p
->family
);
847 safi_t safi
= SAFI_MPLS_VPN
;
850 const char *debugmsg
;
851 char buf_prefix
[PREFIX_STRLEN
];
854 prefix2str(p
, buf_prefix
, sizeof(buf_prefix
));
856 "%s: entry: leak-from=%s, p=%s, type=%d, sub_type=%d",
857 __func__
, bgp_vrf
->name_pretty
, buf_prefix
,
858 info_vrf
->type
, info_vrf
->sub_type
);
861 if (info_vrf
->type
!= ZEBRA_ROUTE_BGP
) {
863 zlog_debug("%s: wrong type %d", __func__
,
867 if (info_vrf
->sub_type
!= BGP_ROUTE_NORMAL
868 && info_vrf
->sub_type
!= BGP_ROUTE_STATIC
) {
871 zlog_debug("%s: wrong sub_type %d", __func__
,
880 zlog_debug("%s: can't get afi of prefix", __func__
);
884 if (!vpn_leak_to_vpn_active(bgp_vrf
, afi
, &debugmsg
)) {
886 zlog_debug("%s: skipping: %s", __func__
, debugmsg
);
891 zlog_debug("%s: withdrawing (info_vrf=%p)", __func__
, info_vrf
);
893 bn
= bgp_afi_node_get(bgp_vpn
->rib
[afi
][safi
], afi
, safi
, p
,
894 &(bgp_vrf
->vpn_policy
[afi
].tovpn_rd
));
898 * match original bi imported from
900 for (bi
= (bn
? bn
->info
: NULL
); bi
; bi
= bi
->next
) {
901 if (bi
->extra
&& bi
->extra
->parent
== info_vrf
) {
907 /* withdraw from looped vrfs as well */
908 vpn_leak_to_vrf_withdraw(bgp_vpn
, bi
);
910 bgp_aggregate_decrement(bgp_vpn
, p
, bi
, afi
, safi
);
911 bgp_info_delete(bn
, bi
);
912 bgp_process(bgp_vpn
, bn
, afi
, safi
);
917 void vpn_leak_from_vrf_withdraw_all(struct bgp
*bgp_vpn
, /* to */
918 struct bgp
*bgp_vrf
, /* from */
921 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_FROM_VRF
);
922 struct bgp_node
*prn
;
923 safi_t safi
= SAFI_MPLS_VPN
;
926 * Walk vpn table, delete bi with bgp_orig == bgp_vrf
928 for (prn
= bgp_table_top(bgp_vpn
->rib
[afi
][safi
]); prn
;
929 prn
= bgp_route_next(prn
)) {
931 struct bgp_table
*table
;
935 /* This is the per-RD table of prefixes */
941 for (bn
= bgp_table_top(table
); bn
; bn
= bgp_route_next(bn
)) {
943 char buf
[PREFIX2STR_BUFFER
];
945 if (debug
&& bn
->info
) {
947 "%s: looking at prefix %s", __func__
,
948 prefix2str(&bn
->p
, buf
, sizeof(buf
)));
951 for (bi
= bn
->info
; bi
; bi
= bi
->next
) {
953 zlog_debug("%s: type %d, sub_type %d",
956 if (bi
->sub_type
!= BGP_ROUTE_IMPORTED
)
960 if ((struct bgp
*)bi
->extra
->bgp_orig
964 zlog_debug("%s: deleting it\n",
966 bgp_aggregate_decrement(bgp_vpn
, &bn
->p
,
968 bgp_info_delete(bn
, bi
);
969 bgp_process(bgp_vpn
, bn
, afi
, safi
);
976 void vpn_leak_from_vrf_update_all(struct bgp
*bgp_vpn
, /* to */
977 struct bgp
*bgp_vrf
, /* from */
982 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_FROM_VRF
);
985 zlog_debug("%s: entry, afi=%d, vrf=%s", __func__
, afi
,
986 bgp_vrf
->name_pretty
);
988 for (bn
= bgp_table_top(bgp_vrf
->rib
[afi
][SAFI_UNICAST
]); bn
;
989 bn
= bgp_route_next(bn
)) {
992 zlog_debug("%s: node=%p", __func__
, bn
);
994 for (bi
= bn
->info
; bi
; bi
= bi
->next
) {
997 "%s: calling vpn_leak_from_vrf_update",
999 vpn_leak_from_vrf_update(bgp_vpn
, bgp_vrf
, bi
);
1004 static void vpn_leak_to_vrf_update_onevrf(struct bgp
*bgp_vrf
, /* to */
1005 struct bgp
*bgp_vpn
, /* from */
1006 struct bgp_info
*info_vpn
) /* route */
1008 struct prefix
*p
= &info_vpn
->net
->p
;
1009 afi_t afi
= family2afi(p
->family
);
1011 struct attr static_attr
= {0};
1012 struct attr
*new_attr
= NULL
;
1013 struct bgp_node
*bn
;
1014 safi_t safi
= SAFI_UNICAST
;
1015 const char *debugmsg
;
1016 struct prefix nexthop_orig
;
1017 mpls_label_t
*pLabels
= NULL
;
1018 uint32_t num_labels
= 0;
1019 int nexthop_self_flag
= 1;
1020 struct bgp_info
*bi_ultimate
= NULL
;
1021 int origin_local
= 0;
1022 struct bgp
*src_vrf
;
1024 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_TO_VRF
);
1026 if (!vpn_leak_from_vpn_active(bgp_vrf
, afi
, &debugmsg
)) {
1028 zlog_debug("%s: skipping: %s", __func__
, debugmsg
);
1032 /* Check for intersection of route targets */
1033 if (!ecom_intersect(
1034 bgp_vrf
->vpn_policy
[afi
].rtlist
[BGP_VPN_POLICY_DIR_FROMVPN
],
1035 info_vpn
->attr
->ecommunity
)) {
1041 zlog_debug("%s: updating to vrf %s", __func__
,
1042 bgp_vrf
->name_pretty
);
1044 bgp_attr_dup(&static_attr
, info_vpn
->attr
); /* shallow copy */
1047 * Nexthop: stash and clear
1049 * Nexthop is valid in context of VPN core, but not in destination vrf.
1050 * Stash it for later label resolution by vrf ingress path and then
1051 * overwrite with 0, i.e., "me", for the sake of vrf advertisement.
1053 uint8_t nhfamily
= NEXTHOP_FAMILY(info_vpn
->attr
->mp_nexthop_len
);
1055 memset(&nexthop_orig
, 0, sizeof(nexthop_orig
));
1056 nexthop_orig
.family
= nhfamily
;
1061 nexthop_orig
.u
.prefix4
= info_vpn
->attr
->mp_nexthop_global_in
;
1062 nexthop_orig
.prefixlen
= 32;
1064 if (CHECK_FLAG(bgp_vrf
->af_flags
[afi
][safi
],
1065 BGP_CONFIG_VRF_TO_VRF_IMPORT
)) {
1066 static_attr
.nexthop
.s_addr
=
1067 nexthop_orig
.u
.prefix4
.s_addr
;
1069 static_attr
.mp_nexthop_global_in
=
1070 info_vpn
->attr
->mp_nexthop_global_in
;
1071 static_attr
.mp_nexthop_len
=
1072 info_vpn
->attr
->mp_nexthop_len
;
1074 static_attr
.flag
|= ATTR_FLAG_BIT(BGP_ATTR_NEXT_HOP
);
1078 nexthop_orig
.u
.prefix6
= info_vpn
->attr
->mp_nexthop_global
;
1079 nexthop_orig
.prefixlen
= 128;
1081 if (CHECK_FLAG(bgp_vrf
->af_flags
[afi
][safi
],
1082 BGP_CONFIG_VRF_TO_VRF_IMPORT
)) {
1083 static_attr
.mp_nexthop_global
= nexthop_orig
.u
.prefix6
;
1084 static_attr
.mp_nexthop_len
= 16;
1090 * route map handling
1092 if (bgp_vrf
->vpn_policy
[afi
].rmap
[BGP_VPN_POLICY_DIR_FROMVPN
]) {
1093 struct bgp_info info
;
1094 route_map_result_t ret
;
1096 memset(&info
, 0, sizeof(info
));
1097 info
.peer
= bgp_vrf
->peer_self
;
1098 info
.attr
= &static_attr
;
1099 ret
= route_map_apply(bgp_vrf
->vpn_policy
[afi
]
1100 .rmap
[BGP_VPN_POLICY_DIR_FROMVPN
],
1101 p
, RMAP_BGP
, &info
);
1102 if (RMAP_DENYMATCH
== ret
) {
1103 bgp_attr_flush(&static_attr
); /* free any added parts */
1106 "%s: vrf %s vpn-policy route map \"%s\" says DENY, returning",
1107 __func__
, bgp_vrf
->name_pretty
,
1108 bgp_vrf
->vpn_policy
[afi
]
1109 .rmap
[BGP_VPN_POLICY_DIR_FROMVPN
]
1114 * if route-map changed nexthop, don't nexthop-self on output
1116 if (!CHECK_FLAG(static_attr
.rmap_change_flags
,
1117 BATTR_RMAP_NEXTHOP_UNCHANGED
))
1118 nexthop_self_flag
= 0;
1121 new_attr
= bgp_attr_intern(&static_attr
);
1122 bgp_attr_flush(&static_attr
);
1124 bn
= bgp_afi_node_get(bgp_vrf
->rib
[afi
][safi
], afi
, safi
, p
, NULL
);
1127 * ensure labels are copied
1129 * However, there is a special case: if the route originated in
1130 * another local VRF (as opposed to arriving via VPN), then the
1131 * nexthop is reached by hairpinning through this router (me)
1132 * using IP forwarding only (no LSP). Therefore, the route
1133 * imported to the VRF should not have labels attached. Note
1134 * that nexthop tracking is also involved: eliminating the
1135 * labels for these routes enables the non-labeled nexthops
1136 * from the originating VRF to be considered valid for this route.
1138 if (!CHECK_FLAG(bgp_vrf
->af_flags
[afi
][safi
],
1139 BGP_CONFIG_VRF_TO_VRF_IMPORT
)) {
1140 /* work back to original route */
1141 for (bi_ultimate
= info_vpn
;
1142 bi_ultimate
->extra
&& bi_ultimate
->extra
->parent
;
1143 bi_ultimate
= bi_ultimate
->extra
->parent
)
1147 * if original route was unicast,
1148 * then it did not arrive over vpn
1150 if (bi_ultimate
->net
) {
1151 struct bgp_table
*table
;
1153 table
= bgp_node_table(bi_ultimate
->net
);
1154 if (table
&& (table
->safi
== SAFI_UNICAST
))
1159 if (!origin_local
&&
1160 info_vpn
->extra
&& info_vpn
->extra
->num_labels
) {
1161 num_labels
= info_vpn
->extra
->num_labels
;
1162 if (num_labels
> BGP_MAX_LABELS
)
1163 num_labels
= BGP_MAX_LABELS
;
1164 pLabels
= info_vpn
->extra
->label
;
1169 char buf_prefix
[PREFIX_STRLEN
];
1170 prefix2str(p
, buf_prefix
, sizeof(buf_prefix
));
1171 zlog_debug("%s: pfx %s: num_labels %d", __func__
, buf_prefix
,
1175 if (info_vpn
->extra
&& info_vpn
->extra
->bgp_orig
)
1176 src_vrf
= info_vpn
->extra
->bgp_orig
;
1180 leak_update(bgp_vrf
, bn
, new_attr
, afi
, safi
, info_vpn
,
1181 pLabels
, num_labels
,
1182 info_vpn
, /* parent */
1183 src_vrf
, &nexthop_orig
, nexthop_self_flag
, debug
);
1186 void vpn_leak_to_vrf_update(struct bgp
*bgp_vpn
, /* from */
1187 struct bgp_info
*info_vpn
) /* route */
1189 struct listnode
*mnode
, *mnnode
;
1192 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_TO_VRF
);
1195 zlog_debug("%s: start (info_vpn=%p)", __func__
, info_vpn
);
1197 /* Loop over VRFs */
1198 for (ALL_LIST_ELEMENTS(bm
->bgp
, mnode
, mnnode
, bgp
)) {
1200 if (!info_vpn
->extra
1201 || info_vpn
->extra
->bgp_orig
!= bgp
) { /* no loop */
1202 vpn_leak_to_vrf_update_onevrf(bgp
, bgp_vpn
, info_vpn
);
1207 void vpn_leak_to_vrf_withdraw(struct bgp
*bgp_vpn
, /* from */
1208 struct bgp_info
*info_vpn
) /* route */
1212 safi_t safi
= SAFI_UNICAST
;
1214 struct listnode
*mnode
, *mnnode
;
1215 struct bgp_node
*bn
;
1216 struct bgp_info
*bi
;
1217 const char *debugmsg
;
1218 char buf_prefix
[PREFIX_STRLEN
];
1220 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_TO_VRF
);
1223 prefix2str(&info_vpn
->net
->p
, buf_prefix
, sizeof(buf_prefix
));
1224 zlog_debug("%s: entry: p=%s, type=%d, sub_type=%d",
1225 __func__
, buf_prefix
,
1226 info_vpn
->type
, info_vpn
->sub_type
);
1230 zlog_debug("%s: start (info_vpn=%p)", __func__
, info_vpn
);
1232 if (!info_vpn
->net
) {
1234 /* BGP_ROUTE_RFP routes do not have info_vpn->net set (yet) */
1235 if (info_vpn
->type
== ZEBRA_ROUTE_BGP
&&
1236 info_vpn
->sub_type
== BGP_ROUTE_RFP
) {
1242 zlog_debug("%s: info_vpn->net unexpectedly NULL, no prefix, bailing",
1247 p
= &info_vpn
->net
->p
;
1248 afi
= family2afi(p
->family
);
1250 /* Loop over VRFs */
1251 for (ALL_LIST_ELEMENTS(bm
->bgp
, mnode
, mnnode
, bgp
)) {
1252 if (!vpn_leak_from_vpn_active(bgp
, afi
, &debugmsg
)) {
1254 zlog_debug("%s: skipping: %s", __func__
,
1259 /* Check for intersection of route targets */
1260 if (!ecom_intersect(bgp
->vpn_policy
[afi
]
1261 .rtlist
[BGP_VPN_POLICY_DIR_FROMVPN
],
1262 info_vpn
->attr
->ecommunity
)) {
1268 zlog_debug("%s: withdrawing from vrf %s", __func__
,
1271 bn
= bgp_afi_node_get(bgp
->rib
[afi
][safi
], afi
, safi
, p
, NULL
);
1272 for (bi
= (bn
? bn
->info
: NULL
); bi
; bi
= bi
->next
) {
1274 && (struct bgp_info
*)bi
->extra
->parent
1282 zlog_debug("%s: deleting bi %p", __func__
, bi
);
1283 bgp_aggregate_decrement(bgp
, p
, bi
, afi
, safi
);
1284 bgp_info_delete(bn
, bi
);
1285 bgp_process(bgp
, bn
, afi
, safi
);
1287 bgp_unlock_node(bn
);
1291 void vpn_leak_to_vrf_withdraw_all(struct bgp
*bgp_vrf
, /* to */
1294 struct bgp_node
*bn
;
1295 struct bgp_info
*bi
;
1296 safi_t safi
= SAFI_UNICAST
;
1297 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_TO_VRF
);
1298 struct bgp
*bgp_vpn
= bgp_get_default();
1301 zlog_debug("%s: entry", __func__
);
1303 * Walk vrf table, delete bi with bgp_orig == bgp_vpn
1305 for (bn
= bgp_table_top(bgp_vrf
->rib
[afi
][safi
]); bn
;
1306 bn
= bgp_route_next(bn
)) {
1308 for (bi
= bn
->info
; bi
; bi
= bi
->next
) {
1309 if (bi
->extra
&& bi
->extra
->bgp_orig
== bgp_vpn
) {
1312 bgp_aggregate_decrement(bgp_vrf
, &bn
->p
, bi
,
1314 bgp_info_delete(bn
, bi
);
1315 bgp_process(bgp_vrf
, bn
, afi
, safi
);
1321 void vpn_leak_to_vrf_update_all(struct bgp
*bgp_vrf
, /* to */
1322 struct bgp
*bgp_vpn
, /* from */
1325 struct prefix_rd prd
;
1326 struct bgp_node
*prn
;
1327 safi_t safi
= SAFI_MPLS_VPN
;
1332 for (prn
= bgp_table_top(bgp_vpn
->rib
[afi
][safi
]); prn
;
1333 prn
= bgp_route_next(prn
)) {
1335 struct bgp_table
*table
;
1336 struct bgp_node
*bn
;
1337 struct bgp_info
*bi
;
1339 memset(&prd
, 0, sizeof(prd
));
1340 prd
.family
= AF_UNSPEC
;
1342 memcpy(prd
.val
, prn
->p
.u
.val
, 8);
1344 /* This is the per-RD table of prefixes */
1350 for (bn
= bgp_table_top(table
); bn
; bn
= bgp_route_next(bn
)) {
1352 for (bi
= bn
->info
; bi
; bi
= bi
->next
) {
1354 if (bi
->extra
&& bi
->extra
->bgp_orig
== bgp_vrf
)
1357 vpn_leak_to_vrf_update_onevrf(bgp_vrf
, bgp_vpn
,
1365 * This function is called for definition/deletion/change to a route-map
1367 static void vpn_policy_routemap_update(struct bgp
*bgp
, const char *rmap_name
)
1369 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_RMAP_EVENT
);
1371 struct route_map
*rmap
;
1373 if (bgp
->inst_type
!= BGP_INSTANCE_TYPE_DEFAULT
1374 && bgp
->inst_type
!= BGP_INSTANCE_TYPE_VRF
) {
1379 rmap
= route_map_lookup_by_name(rmap_name
); /* NULL if deleted */
1381 for (afi
= 0; afi
< AFI_MAX
; ++afi
) {
1383 if (bgp
->vpn_policy
[afi
].rmap_name
[BGP_VPN_POLICY_DIR_TOVPN
]
1384 && !strcmp(rmap_name
,
1385 bgp
->vpn_policy
[afi
]
1386 .rmap_name
[BGP_VPN_POLICY_DIR_TOVPN
])) {
1390 "%s: rmap \"%s\" matches vrf-policy tovpn for as %d afi %s",
1391 __func__
, rmap_name
, bgp
->as
,
1394 vpn_leak_prechange(BGP_VPN_POLICY_DIR_TOVPN
, afi
,
1395 bgp_get_default(), bgp
);
1397 zlog_debug("%s: after vpn_leak_prechange",
1400 /* in case of definition/deletion */
1401 bgp
->vpn_policy
[afi
].rmap
[BGP_VPN_POLICY_DIR_TOVPN
] =
1404 vpn_leak_postchange(BGP_VPN_POLICY_DIR_TOVPN
, afi
,
1405 bgp_get_default(), bgp
);
1408 zlog_debug("%s: after vpn_leak_postchange",
1412 if (bgp
->vpn_policy
[afi
].rmap_name
[BGP_VPN_POLICY_DIR_FROMVPN
]
1413 && !strcmp(rmap_name
,
1414 bgp
->vpn_policy
[afi
]
1415 .rmap_name
[BGP_VPN_POLICY_DIR_FROMVPN
])) {
1418 zlog_debug("%s: rmap \"%s\" matches vrf-policy fromvpn for as %d afi %s",
1419 __func__
, rmap_name
, bgp
->as
,
1423 vpn_leak_prechange(BGP_VPN_POLICY_DIR_FROMVPN
, afi
,
1424 bgp_get_default(), bgp
);
1426 /* in case of definition/deletion */
1427 bgp
->vpn_policy
[afi
].rmap
[BGP_VPN_POLICY_DIR_FROMVPN
] =
1430 vpn_leak_postchange(BGP_VPN_POLICY_DIR_FROMVPN
, afi
,
1431 bgp_get_default(), bgp
);
1436 void vpn_policy_routemap_event(const char *rmap_name
)
1438 int debug
= BGP_DEBUG(vpn
, VPN_LEAK_RMAP_EVENT
);
1439 struct listnode
*mnode
, *mnnode
;
1443 zlog_debug("%s: entry", __func__
);
1445 if (bm
->bgp
== NULL
) /* may be called during cleanup */
1448 for (ALL_LIST_ELEMENTS(bm
->bgp
, mnode
, mnnode
, bgp
))
1449 vpn_policy_routemap_update(bgp
, rmap_name
);
1452 /* For testing purpose, static route of MPLS-VPN. */
1453 DEFUN (vpnv4_network
,
1455 "network A.B.C.D/M rd ASN:NN_OR_IP-ADDRESS:NN <tag|label> (0-1048575)",
1456 "Specify a network to announce via BGP\n"
1458 "Specify Route Distinguisher\n"
1459 "VPN Route Distinguisher\n"
1460 "VPN NLRI label (tag)\n"
1461 "VPN NLRI label (tag)\n"
1464 int idx_ipv4_prefixlen
= 1;
1465 int idx_ext_community
= 3;
1467 return bgp_static_set_safi(
1468 AFI_IP
, SAFI_MPLS_VPN
, vty
, argv
[idx_ipv4_prefixlen
]->arg
,
1469 argv
[idx_ext_community
]->arg
, argv
[idx_label
]->arg
, NULL
, 0,
1470 NULL
, NULL
, NULL
, NULL
);
1473 DEFUN (vpnv4_network_route_map
,
1474 vpnv4_network_route_map_cmd
,
1475 "network A.B.C.D/M rd ASN:NN_OR_IP-ADDRESS:NN <tag|label> (0-1048575) route-map WORD",
1476 "Specify a network to announce via BGP\n"
1478 "Specify Route Distinguisher\n"
1479 "VPN Route Distinguisher\n"
1480 "VPN NLRI label (tag)\n"
1481 "VPN NLRI label (tag)\n"
1486 int idx_ipv4_prefixlen
= 1;
1487 int idx_ext_community
= 3;
1490 return bgp_static_set_safi(
1491 AFI_IP
, SAFI_MPLS_VPN
, vty
, argv
[idx_ipv4_prefixlen
]->arg
,
1492 argv
[idx_ext_community
]->arg
, argv
[idx_label
]->arg
,
1493 argv
[idx_word_2
]->arg
, 0, NULL
, NULL
, NULL
, NULL
);
1496 /* For testing purpose, static route of MPLS-VPN. */
1497 DEFUN (no_vpnv4_network
,
1498 no_vpnv4_network_cmd
,
1499 "no network A.B.C.D/M rd ASN:NN_OR_IP-ADDRESS:NN <tag|label> (0-1048575)",
1501 "Specify a network to announce via BGP\n"
1503 "Specify Route Distinguisher\n"
1504 "VPN Route Distinguisher\n"
1505 "VPN NLRI label (tag)\n"
1506 "VPN NLRI label (tag)\n"
1509 int idx_ipv4_prefixlen
= 2;
1510 int idx_ext_community
= 4;
1512 return bgp_static_unset_safi(AFI_IP
, SAFI_MPLS_VPN
, vty
,
1513 argv
[idx_ipv4_prefixlen
]->arg
,
1514 argv
[idx_ext_community
]->arg
,
1515 argv
[idx_label
]->arg
, 0, NULL
, NULL
, NULL
);
1518 DEFUN (vpnv6_network
,
1520 "network X:X::X:X/M rd ASN:NN_OR_IP-ADDRESS:NN <tag|label> (0-1048575) [route-map WORD]",
1521 "Specify a network to announce via BGP\n"
1522 "IPv6 prefix <network>/<length>, e.g., 3ffe::/16\n"
1523 "Specify Route Distinguisher\n"
1524 "VPN Route Distinguisher\n"
1525 "VPN NLRI label (tag)\n"
1526 "VPN NLRI label (tag)\n"
1531 int idx_ipv6_prefix
= 1;
1532 int idx_ext_community
= 3;
1536 return bgp_static_set_safi(
1537 AFI_IP6
, SAFI_MPLS_VPN
, vty
, argv
[idx_ipv6_prefix
]->arg
,
1538 argv
[idx_ext_community
]->arg
, argv
[idx_label
]->arg
,
1539 argv
[idx_word_2
]->arg
, 0, NULL
, NULL
, NULL
, NULL
);
1541 return bgp_static_set_safi(
1542 AFI_IP6
, SAFI_MPLS_VPN
, vty
, argv
[idx_ipv6_prefix
]->arg
,
1543 argv
[idx_ext_community
]->arg
, argv
[idx_label
]->arg
,
1544 NULL
, 0, NULL
, NULL
, NULL
, NULL
);
1547 /* For testing purpose, static route of MPLS-VPN. */
1548 DEFUN (no_vpnv6_network
,
1549 no_vpnv6_network_cmd
,
1550 "no network X:X::X:X/M rd ASN:NN_OR_IP-ADDRESS:NN <tag|label> (0-1048575)",
1552 "Specify a network to announce via BGP\n"
1553 "IPv6 prefix <network>/<length>, e.g., 3ffe::/16\n"
1554 "Specify Route Distinguisher\n"
1555 "VPN Route Distinguisher\n"
1556 "VPN NLRI label (tag)\n"
1557 "VPN NLRI label (tag)\n"
1560 int idx_ipv6_prefix
= 2;
1561 int idx_ext_community
= 4;
1563 return bgp_static_unset_safi(AFI_IP6
, SAFI_MPLS_VPN
, vty
,
1564 argv
[idx_ipv6_prefix
]->arg
,
1565 argv
[idx_ext_community
]->arg
,
1566 argv
[idx_label
]->arg
, 0, NULL
, NULL
, NULL
);
1569 int bgp_show_mpls_vpn(struct vty
*vty
, afi_t afi
, struct prefix_rd
*prd
,
1570 enum bgp_show_type type
, void *output_arg
, int tags
,
1574 struct bgp_table
*table
;
1576 bgp
= bgp_get_default();
1579 vty_out(vty
, "No BGP process is configured\n");
1581 vty_out(vty
, "{}\n");
1584 table
= bgp
->rib
[afi
][SAFI_MPLS_VPN
];
1585 return bgp_show_table_rd(vty
, bgp
, SAFI_MPLS_VPN
, table
, prd
, type
,
1586 output_arg
, use_json
);
1589 DEFUN (show_bgp_ip_vpn_all_rd
,
1590 show_bgp_ip_vpn_all_rd_cmd
,
1591 "show bgp "BGP_AFI_CMD_STR
" vpn all [rd ASN:NN_OR_IP-ADDRESS:NN] [json]",
1595 "Display VPN NLRI specific information\n"
1596 "Display VPN NLRI specific information\n"
1597 "Display information for a route distinguisher\n"
1598 "VPN Route Distinguisher\n"
1602 struct prefix_rd prd
;
1606 if (argv_find_and_parse_afi(argv
, argc
, &idx
, &afi
)) {
1607 if (argv_find(argv
, argc
, "rd", &idx
)) {
1608 ret
= str2prefix_rd(argv
[idx
+ 1]->arg
, &prd
);
1611 "%% Malformed Route Distinguisher\n");
1614 return bgp_show_mpls_vpn(vty
, afi
, &prd
,
1615 bgp_show_type_normal
, NULL
, 0,
1616 use_json(argc
, argv
));
1618 return bgp_show_mpls_vpn(vty
, afi
, NULL
,
1619 bgp_show_type_normal
, NULL
, 0,
1620 use_json(argc
, argv
));
1626 ALIAS(show_bgp_ip_vpn_all_rd
,
1627 show_bgp_ip_vpn_rd_cmd
,
1628 "show bgp "BGP_AFI_CMD_STR
" vpn rd ASN:NN_OR_IP-ADDRESS:NN [json]",
1632 "Display VPN NLRI specific information\n"
1633 "Display information for a route distinguisher\n"
1634 "VPN Route Distinguisher\n"
1637 #ifdef KEEP_OLD_VPN_COMMANDS
1638 DEFUN (show_ip_bgp_vpn_rd
,
1639 show_ip_bgp_vpn_rd_cmd
,
1640 "show ip bgp "BGP_AFI_CMD_STR
" vpn rd ASN:NN_OR_IP-ADDRESS:NN",
1645 "Address Family modifier\n"
1646 "Display information for a route distinguisher\n"
1647 "VPN Route Distinguisher\n")
1649 int idx_ext_community
= argc
- 1;
1651 struct prefix_rd prd
;
1655 if (argv_find_and_parse_vpnvx(argv
, argc
, &idx
, &afi
)) {
1656 ret
= str2prefix_rd(argv
[idx_ext_community
]->arg
, &prd
);
1658 vty_out(vty
, "%% Malformed Route Distinguisher\n");
1661 return bgp_show_mpls_vpn(vty
, afi
, &prd
, bgp_show_type_normal
,
1667 DEFUN (show_ip_bgp_vpn_all
,
1668 show_ip_bgp_vpn_all_cmd
,
1669 "show [ip] bgp <vpnv4|vpnv6>",
1678 if (argv_find_and_parse_vpnvx(argv
, argc
, &idx
, &afi
))
1679 return bgp_show_mpls_vpn(vty
, afi
, NULL
, bgp_show_type_normal
,
1684 DEFUN (show_ip_bgp_vpn_all_tags
,
1685 show_ip_bgp_vpn_all_tags_cmd
,
1686 "show [ip] bgp <vpnv4|vpnv6> all tags",
1691 "Display information about all VPNv4/VPNV6 NLRIs\n"
1692 "Display BGP tags for prefixes\n")
1697 if (argv_find_and_parse_vpnvx(argv
, argc
, &idx
, &afi
))
1698 return bgp_show_mpls_vpn(vty
, afi
, NULL
, bgp_show_type_normal
,
1703 DEFUN (show_ip_bgp_vpn_rd_tags
,
1704 show_ip_bgp_vpn_rd_tags_cmd
,
1705 "show [ip] bgp <vpnv4|vpnv6> rd ASN:NN_OR_IP-ADDRESS:NN tags",
1710 "Display information for a route distinguisher\n"
1711 "VPN Route Distinguisher\n"
1712 "Display BGP tags for prefixes\n")
1714 int idx_ext_community
= 5;
1716 struct prefix_rd prd
;
1720 if (argv_find_and_parse_vpnvx(argv
, argc
, &idx
, &afi
)) {
1721 ret
= str2prefix_rd(argv
[idx_ext_community
]->arg
, &prd
);
1723 vty_out(vty
, "%% Malformed Route Distinguisher\n");
1726 return bgp_show_mpls_vpn(vty
, afi
, &prd
, bgp_show_type_normal
,
1732 DEFUN (show_ip_bgp_vpn_all_neighbor_routes
,
1733 show_ip_bgp_vpn_all_neighbor_routes_cmd
,
1734 "show [ip] bgp <vpnv4|vpnv6> all neighbors A.B.C.D routes [json]",
1739 "Display information about all VPNv4/VPNv6 NLRIs\n"
1740 "Detailed information on TCP and BGP neighbor connections\n"
1741 "Neighbor to display information about\n"
1742 "Display routes learned from neighbor\n"
1749 uint8_t uj
= use_json(argc
, argv
);
1753 if (argv_find_and_parse_vpnvx(argv
, argc
, &idx
, &afi
)) {
1754 ret
= str2sockunion(argv
[idx_ipv4
]->arg
, &su
);
1757 json_object
*json_no
= NULL
;
1758 json_no
= json_object_new_object();
1759 json_object_string_add(json_no
, "warning",
1760 "Malformed address");
1761 vty_out(vty
, "%s\n",
1762 json_object_to_json_string(json_no
));
1763 json_object_free(json_no
);
1765 vty_out(vty
, "Malformed address: %s\n",
1766 argv
[idx_ipv4
]->arg
);
1770 peer
= peer_lookup(NULL
, &su
);
1771 if (!peer
|| !peer
->afc
[afi
][SAFI_MPLS_VPN
]) {
1773 json_object
*json_no
= NULL
;
1774 json_no
= json_object_new_object();
1775 json_object_string_add(
1777 "No such neighbor or address family");
1778 vty_out(vty
, "%s\n",
1779 json_object_to_json_string(json_no
));
1780 json_object_free(json_no
);
1783 "%% No such neighbor or address family\n");
1787 return bgp_show_mpls_vpn(vty
, afi
, NULL
, bgp_show_type_neighbor
,
1793 DEFUN (show_ip_bgp_vpn_rd_neighbor_routes
,
1794 show_ip_bgp_vpn_rd_neighbor_routes_cmd
,
1795 "show [ip] bgp <vpnv4|vpnv6> rd ASN:NN_OR_IP-ADDRESS:NN neighbors A.B.C.D routes [json]",
1800 "Display information for a route distinguisher\n"
1801 "VPN Route Distinguisher\n"
1802 "Detailed information on TCP and BGP neighbor connections\n"
1803 "Neighbor to display information about\n"
1804 "Display routes learned from neighbor\n"
1807 int idx_ext_community
= 5;
1812 struct prefix_rd prd
;
1813 uint8_t uj
= use_json(argc
, argv
);
1817 if (argv_find_and_parse_vpnvx(argv
, argc
, &idx
, &afi
)) {
1818 ret
= str2prefix_rd(argv
[idx_ext_community
]->arg
, &prd
);
1821 json_object
*json_no
= NULL
;
1822 json_no
= json_object_new_object();
1823 json_object_string_add(
1825 "Malformed Route Distinguisher");
1826 vty_out(vty
, "%s\n",
1827 json_object_to_json_string(json_no
));
1828 json_object_free(json_no
);
1831 "%% Malformed Route Distinguisher\n");
1835 ret
= str2sockunion(argv
[idx_ipv4
]->arg
, &su
);
1838 json_object
*json_no
= NULL
;
1839 json_no
= json_object_new_object();
1840 json_object_string_add(json_no
, "warning",
1841 "Malformed address");
1842 vty_out(vty
, "%s\n",
1843 json_object_to_json_string(json_no
));
1844 json_object_free(json_no
);
1846 vty_out(vty
, "Malformed address: %s\n",
1847 argv
[idx_ext_community
]->arg
);
1851 peer
= peer_lookup(NULL
, &su
);
1852 if (!peer
|| !peer
->afc
[afi
][SAFI_MPLS_VPN
]) {
1854 json_object
*json_no
= NULL
;
1855 json_no
= json_object_new_object();
1856 json_object_string_add(
1858 "No such neighbor or address family");
1859 vty_out(vty
, "%s\n",
1860 json_object_to_json_string(json_no
));
1861 json_object_free(json_no
);
1864 "%% No such neighbor or address family\n");
1868 return bgp_show_mpls_vpn(vty
, afi
, &prd
, bgp_show_type_neighbor
,
1874 DEFUN (show_ip_bgp_vpn_all_neighbor_advertised_routes
,
1875 show_ip_bgp_vpn_all_neighbor_advertised_routes_cmd
,
1876 "show [ip] bgp <vpnv4|vpnv6> all neighbors A.B.C.D advertised-routes [json]",
1881 "Display information about all VPNv4/VPNv6 NLRIs\n"
1882 "Detailed information on TCP and BGP neighbor connections\n"
1883 "Neighbor to display information about\n"
1884 "Display the routes advertised to a BGP neighbor\n"
1891 uint8_t uj
= use_json(argc
, argv
);
1895 if (argv_find_and_parse_vpnvx(argv
, argc
, &idx
, &afi
)) {
1896 ret
= str2sockunion(argv
[idx_ipv4
]->arg
, &su
);
1899 json_object
*json_no
= NULL
;
1900 json_no
= json_object_new_object();
1901 json_object_string_add(json_no
, "warning",
1902 "Malformed address");
1903 vty_out(vty
, "%s\n",
1904 json_object_to_json_string(json_no
));
1905 json_object_free(json_no
);
1907 vty_out(vty
, "Malformed address: %s\n",
1908 argv
[idx_ipv4
]->arg
);
1911 peer
= peer_lookup(NULL
, &su
);
1912 if (!peer
|| !peer
->afc
[afi
][SAFI_MPLS_VPN
]) {
1914 json_object
*json_no
= NULL
;
1915 json_no
= json_object_new_object();
1916 json_object_string_add(
1918 "No such neighbor or address family");
1919 vty_out(vty
, "%s\n",
1920 json_object_to_json_string(json_no
));
1921 json_object_free(json_no
);
1924 "%% No such neighbor or address family\n");
1927 return show_adj_route_vpn(vty
, peer
, NULL
, AFI_IP
,
1933 DEFUN (show_ip_bgp_vpn_rd_neighbor_advertised_routes
,
1934 show_ip_bgp_vpn_rd_neighbor_advertised_routes_cmd
,
1935 "show [ip] bgp <vpnv4|vpnv6> rd ASN:NN_OR_IP-ADDRESS:NN neighbors A.B.C.D advertised-routes [json]",
1940 "Display information for a route distinguisher\n"
1941 "VPN Route Distinguisher\n"
1942 "Detailed information on TCP and BGP neighbor connections\n"
1943 "Neighbor to display information about\n"
1944 "Display the routes advertised to a BGP neighbor\n"
1947 int idx_ext_community
= 5;
1951 struct prefix_rd prd
;
1953 uint8_t uj
= use_json(argc
, argv
);
1957 if (argv_find_and_parse_vpnvx(argv
, argc
, &idx
, &afi
)) {
1958 ret
= str2sockunion(argv
[idx_ipv4
]->arg
, &su
);
1961 json_object
*json_no
= NULL
;
1962 json_no
= json_object_new_object();
1963 json_object_string_add(json_no
, "warning",
1964 "Malformed address");
1965 vty_out(vty
, "%s\n",
1966 json_object_to_json_string(json_no
));
1967 json_object_free(json_no
);
1969 vty_out(vty
, "Malformed address: %s\n",
1970 argv
[idx_ext_community
]->arg
);
1973 peer
= peer_lookup(NULL
, &su
);
1974 if (!peer
|| !peer
->afc
[afi
][SAFI_MPLS_VPN
]) {
1976 json_object
*json_no
= NULL
;
1977 json_no
= json_object_new_object();
1978 json_object_string_add(
1980 "No such neighbor or address family");
1981 vty_out(vty
, "%s\n",
1982 json_object_to_json_string(json_no
));
1983 json_object_free(json_no
);
1986 "%% No such neighbor or address family\n");
1990 ret
= str2prefix_rd(argv
[idx_ext_community
]->arg
, &prd
);
1993 json_object
*json_no
= NULL
;
1994 json_no
= json_object_new_object();
1995 json_object_string_add(
1997 "Malformed Route Distinguisher");
1998 vty_out(vty
, "%s\n",
1999 json_object_to_json_string(json_no
));
2000 json_object_free(json_no
);
2003 "%% Malformed Route Distinguisher\n");
2007 return show_adj_route_vpn(vty
, peer
, &prd
, AFI_IP
,
2012 #endif /* KEEP_OLD_VPN_COMMANDS */
2014 void bgp_mplsvpn_init(void)
2016 install_element(BGP_VPNV4_NODE
, &vpnv4_network_cmd
);
2017 install_element(BGP_VPNV4_NODE
, &vpnv4_network_route_map_cmd
);
2018 install_element(BGP_VPNV4_NODE
, &no_vpnv4_network_cmd
);
2020 install_element(BGP_VPNV6_NODE
, &vpnv6_network_cmd
);
2021 install_element(BGP_VPNV6_NODE
, &no_vpnv6_network_cmd
);
2023 install_element(VIEW_NODE
, &show_bgp_ip_vpn_all_rd_cmd
);
2024 install_element(VIEW_NODE
, &show_bgp_ip_vpn_rd_cmd
);
2025 #ifdef KEEP_OLD_VPN_COMMANDS
2026 install_element(VIEW_NODE
, &show_ip_bgp_vpn_rd_cmd
);
2027 install_element(VIEW_NODE
, &show_ip_bgp_vpn_all_cmd
);
2028 install_element(VIEW_NODE
, &show_ip_bgp_vpn_all_tags_cmd
);
2029 install_element(VIEW_NODE
, &show_ip_bgp_vpn_rd_tags_cmd
);
2030 install_element(VIEW_NODE
, &show_ip_bgp_vpn_all_neighbor_routes_cmd
);
2031 install_element(VIEW_NODE
, &show_ip_bgp_vpn_rd_neighbor_routes_cmd
);
2032 install_element(VIEW_NODE
,
2033 &show_ip_bgp_vpn_all_neighbor_advertised_routes_cmd
);
2034 install_element(VIEW_NODE
,
2035 &show_ip_bgp_vpn_rd_neighbor_advertised_routes_cmd
);
2036 #endif /* KEEP_OLD_VPN_COMMANDS */
2039 vrf_id_t
get_first_vrf_for_redirect_with_rt(struct ecommunity
*eckey
)
2041 struct listnode
*mnode
, *mnnode
;
2044 for (ALL_LIST_ELEMENTS(bm
->bgp
, mnode
, mnnode
, bgp
)) {
2045 struct ecommunity
*ec
;
2047 if (bgp
->inst_type
!= BGP_INSTANCE_TYPE_VRF
)
2050 ec
= bgp
->vpn_policy
[AFI_IP
].import_redirect_rtlist
;
2052 if (ecom_intersect(ec
, eckey
))