]> git.proxmox.com Git - mirror_frr.git/blob - bgpd/bgp_routemap.c
projects / mirror_frr.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Merge pull request #4874 from manuhalo/fix_isis_mtu
[mirror_frr.git] / bgpd / bgp_routemap.c
1 /* Route map function of bgpd.
2 * Copyright (C) 1998, 1999 Kunihiro Ishiguro
3 *
4 * This file is part of GNU Zebra.
5 *
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
9 * later version.
10 *
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.
15 *
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
19 */
20
21 #include <zebra.h>
22
23 #include "prefix.h"
24 #include "filter.h"
25 #include "routemap.h"
26 #include "command.h"
27 #include "linklist.h"
28 #include "plist.h"
29 #include "memory.h"
30 #include "log.h"
31 #include "frrlua.h"
32 #ifdef HAVE_LIBPCREPOSIX
33 #include <pcreposix.h>
34 #else
35 #include <regex.h>
36 #endif /* HAVE_LIBPCREPOSIX */
37 #include "buffer.h"
38 #include "sockunion.h"
39 #include "hash.h"
40 #include "queue.h"
41 #include "frrstr.h"
42
43 #include "bgpd/bgpd.h"
44 #include "bgpd/bgp_table.h"
45 #include "bgpd/bgp_attr.h"
46 #include "bgpd/bgp_aspath.h"
47 #include "bgpd/bgp_packet.h"
48 #include "bgpd/bgp_route.h"
49 #include "bgpd/bgp_zebra.h"
50 #include "bgpd/bgp_regex.h"
51 #include "bgpd/bgp_community.h"
52 #include "bgpd/bgp_clist.h"
53 #include "bgpd/bgp_filter.h"
54 #include "bgpd/bgp_mplsvpn.h"
55 #include "bgpd/bgp_ecommunity.h"
56 #include "bgpd/bgp_lcommunity.h"
57 #include "bgpd/bgp_vty.h"
58 #include "bgpd/bgp_debug.h"
59 #include "bgpd/bgp_evpn.h"
60 #include "bgpd/bgp_evpn_private.h"
61 #include "bgpd/bgp_evpn_vty.h"
62 #include "bgpd/bgp_mplsvpn.h"
63 #include "bgpd/bgp_pbr.h"
64 #include "bgpd/bgp_flowspec_util.h"
65 #include "bgpd/bgp_encap_types.h"
66
67 #if ENABLE_BGP_VNC
68 #include "bgpd/rfapi/bgp_rfapi_cfg.h"
69 #endif
70
71 #ifndef VTYSH_EXTRACT_PL
72 #include "bgpd/bgp_routemap_clippy.c"
73 #endif
74
75 /* Memo of route-map commands.
76
77 o Cisco route-map
78
79 match as-path : Done
80 community : Done
81 interface : Done
82 ip address : Done
83 ip next-hop : Done
84 ip route-source : Done
85 ip prefix-list : Done
86 ipv6 address : Done
87 ipv6 next-hop : Done
88 ipv6 route-source: (This will not be implemented by bgpd)
89 ipv6 prefix-list : Done
90 length : (This will not be implemented by bgpd)
91 metric : Done
92 route-type : (This will not be implemented by bgpd)
93 tag : Done
94 local-preference : Done
95
96 set as-path prepend : Done
97 as-path tag : Not yet
98 automatic-tag : (This will not be implemented by bgpd)
99 community : Done
100 large-community : Done
101 large-comm-list : Done
102 comm-list : Not yet
103 dampning : Not yet
104 default : (This will not be implemented by bgpd)
105 interface : (This will not be implemented by bgpd)
106 ip default : (This will not be implemented by bgpd)
107 ip next-hop : Done
108 ip precedence : (This will not be implemented by bgpd)
109 ip tos : (This will not be implemented by bgpd)
110 level : (This will not be implemented by bgpd)
111 local-preference : Done
112 metric : Done
113 metric-type : Not yet
114 origin : Done
115 tag : Done
116 weight : Done
117
118 o Local extensions
119
120 set ipv6 next-hop global: Done
121 set ipv6 next-hop prefer-global: Done
122 set ipv6 next-hop local : Done
123 set as-path exclude : Done
124
125 */
126
127 /* generic value manipulation to be shared in multiple rules */
128
129 #define RMAP_VALUE_SET 0
130 #define RMAP_VALUE_ADD 1
131 #define RMAP_VALUE_SUB 2
132
133 struct rmap_value {
134 uint8_t action;
135 uint8_t variable;
136 uint32_t value;
137 };
138
139 static int route_value_match(struct rmap_value *rv, uint32_t value)
140 {
141 if (rv->variable == 0 && value == rv->value)
142 return RMAP_MATCH;
143
144 return RMAP_NOMATCH;
145 }
146
147 static uint32_t route_value_adjust(struct rmap_value *rv, uint32_t current,
148 struct peer *peer)
149 {
150 uint32_t value;
151
152 switch (rv->variable) {
153 case 1:
154 value = peer->rtt;
155 break;
156 default:
157 value = rv->value;
158 break;
159 }
160
161 switch (rv->action) {
162 case RMAP_VALUE_ADD:
163 if (current > UINT32_MAX - value)
164 return UINT32_MAX;
165 return current + value;
166 case RMAP_VALUE_SUB:
167 if (current <= value)
168 return 0;
169 return current - value;
170 default:
171 return value;
172 }
173 }
174
175 static void *route_value_compile(const char *arg)
176 {
177 uint8_t action = RMAP_VALUE_SET, var = 0;
178 unsigned long larg = 0;
179 char *endptr = NULL;
180 struct rmap_value *rv;
181
182 if (arg[0] == '+') {
183 action = RMAP_VALUE_ADD;
184 arg++;
185 } else if (arg[0] == '-') {
186 action = RMAP_VALUE_SUB;
187 arg++;
188 }
189
190 if (all_digit(arg)) {
191 errno = 0;
192 larg = strtoul(arg, &endptr, 10);
193 if (*arg == 0 || *endptr != 0 || errno || larg > UINT32_MAX)
194 return NULL;
195 } else {
196 if (strcmp(arg, "rtt") == 0)
197 var = 1;
198 else
199 return NULL;
200 }
201
202 rv = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct rmap_value));
203
204 rv->action = action;
205 rv->variable = var;
206 rv->value = larg;
207 return rv;
208 }
209
210 static void route_value_free(void *rule)
211 {
212 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
213 }
214
215 /* generic as path object to be shared in multiple rules */
216
217 static void *route_aspath_compile(const char *arg)
218 {
219 struct aspath *aspath;
220
221 aspath = aspath_str2aspath(arg);
222 if (!aspath)
223 return NULL;
224 return aspath;
225 }
226
227 static void route_aspath_free(void *rule)
228 {
229 struct aspath *aspath = rule;
230 aspath_free(aspath);
231 }
232
233 struct bgp_match_peer_compiled {
234 char *interface;
235 union sockunion su;
236 };
237
238 /* 'match peer (A.B.C.D|X:X::X:X|WORD)' */
239
240 /* Compares the peer specified in the 'match peer' clause with the peer
241 received in bgp_path_info->peer. If it is the same, or if the peer structure
242 received is a peer_group containing it, returns RMAP_MATCH. */
243 static enum route_map_cmd_result_t
244 route_match_peer(void *rule, const struct prefix *prefix,
245 route_map_object_t type, void *object)
246 {
247 struct bgp_match_peer_compiled *pc;
248 union sockunion *su;
249 union sockunion su_def = {
250 .sin = {.sin_family = AF_INET, .sin_addr.s_addr = INADDR_ANY}};
251 struct peer_group *group;
252 struct peer *peer;
253 struct listnode *node, *nnode;
254
255 if (type == RMAP_BGP) {
256 pc = rule;
257 su = &pc->su;
258 peer = ((struct bgp_path_info *)object)->peer;
259
260 if (pc->interface) {
261 if (!peer->conf_if)
262 return RMAP_NOMATCH;
263
264 if (strcmp(peer->conf_if, pc->interface) == 0)
265 return RMAP_MATCH;
266
267 return RMAP_NOMATCH;
268 }
269
270 /* If su='0.0.0.0' (command 'match peer local'), and it's a
271 NETWORK,
272 REDISTRIBUTE or DEFAULT_GENERATED route => return RMAP_MATCH
273 */
274 if (sockunion_same(su, &su_def)) {
275 int ret;
276 if (CHECK_FLAG(peer->rmap_type, PEER_RMAP_TYPE_NETWORK)
277 || CHECK_FLAG(peer->rmap_type,
278 PEER_RMAP_TYPE_REDISTRIBUTE)
279 || CHECK_FLAG(peer->rmap_type,
280 PEER_RMAP_TYPE_DEFAULT))
281 ret = RMAP_MATCH;
282 else
283 ret = RMAP_NOMATCH;
284 return ret;
285 }
286
287 if (!CHECK_FLAG(peer->sflags, PEER_STATUS_GROUP)) {
288 if (sockunion_same(su, &peer->su))
289 return RMAP_MATCH;
290
291 return RMAP_NOMATCH;
292 } else {
293 group = peer->group;
294 for (ALL_LIST_ELEMENTS(group->peer, node, nnode,
295 peer)) {
296 if (sockunion_same(su, &peer->su))
297 return RMAP_MATCH;
298 }
299 return RMAP_NOMATCH;
300 }
301 }
302 return RMAP_NOMATCH;
303 }
304
305 static void *route_match_peer_compile(const char *arg)
306 {
307 struct bgp_match_peer_compiled *pc;
308 int ret;
309
310 pc = XCALLOC(MTYPE_ROUTE_MAP_COMPILED,
311 sizeof(struct bgp_match_peer_compiled));
312
313 ret = str2sockunion(strcmp(arg, "local") ? arg : "0.0.0.0", &pc->su);
314 if (ret < 0) {
315 pc->interface = XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
316 return pc;
317 }
318
319 return pc;
320 }
321
322 /* Free route map's compiled `ip address' value. */
323 static void route_match_peer_free(void *rule)
324 {
325 struct bgp_match_peer_compiled *pc = rule;
326
327 XFREE(MTYPE_ROUTE_MAP_COMPILED, pc->interface);
328
329 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
330 }
331
332 /* Route map commands for ip address matching. */
333 struct route_map_rule_cmd route_match_peer_cmd = {"peer", route_match_peer,
334 route_match_peer_compile,
335 route_match_peer_free};
336
337 #if defined(HAVE_LUA)
338 static enum route_map_cmd_result_t
339 route_match_command(void *rule, const struct prefix *prefix,
340 route_map_object_t type, void *object)
341 {
342 int status = RMAP_NOMATCH;
343 u_int32_t locpref = 0;
344 u_int32_t newlocpref = 0;
345 enum lua_rm_status lrm_status;
346 struct bgp_path_info *path = (struct bgp_path_info *)object;
347 lua_State *L = lua_initialize("/etc/frr/lua.scr");
348
349 if (L == NULL)
350 return status;
351
352 /*
353 * Setup the prefix information to pass in
354 */
355 lua_setup_prefix_table(L, prefix);
356
357 zlog_debug("Set up prefix table");
358 /*
359 * Setup the bgp_path_info information
360 */
361 lua_newtable(L);
362 lua_pushinteger(L, path->attr->med);
363 lua_setfield(L, -2, "metric");
364 lua_pushinteger(L, path->attr->nh_ifindex);
365 lua_setfield(L, -2, "ifindex");
366 lua_pushstring(L, path->attr->aspath->str);
367 lua_setfield(L, -2, "aspath");
368 lua_pushinteger(L, path->attr->local_pref);
369 lua_setfield(L, -2, "localpref");
370 zlog_debug("%s %d", path->attr->aspath->str, path->attr->nh_ifindex);
371 lua_setglobal(L, "nexthop");
372
373 zlog_debug("Set up nexthop information");
374 /*
375 * Run the rule
376 */
377 lrm_status = lua_run_rm_rule(L, rule);
378 switch (lrm_status) {
379 case LUA_RM_FAILURE:
380 zlog_debug("RM_FAILURE");
381 break;
382 case LUA_RM_NOMATCH:
383 zlog_debug("RM_NOMATCH");
384 break;
385 case LUA_RM_MATCH_AND_CHANGE:
386 zlog_debug("MATCH AND CHANGE");
387 lua_getglobal(L, "nexthop");
388 path->attr->med = get_integer(L, "metric");
389 /*
390 * This needs to be abstraced with the set function
391 */
392 if (path->attr->flag & ATTR_FLAG_BIT(BGP_ATTR_LOCAL_PREF))
393 locpref = path->attr->local_pref;
394 newlocpref = get_integer(L, "localpref");
395 if (newlocpref != locpref) {
396 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_LOCAL_PREF);
397 path->attr->local_pref = newlocpref;
398 }
399 status = RMAP_MATCH;
400 break;
401 case LUA_RM_MATCH:
402 zlog_debug("MATCH ONLY");
403 status = RMAP_MATCH;
404 break;
405 }
406 lua_close(L);
407 return status;
408 }
409
410 static void *route_match_command_compile(const char *arg)
411 {
412 char *command;
413
414 command = XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
415 return command;
416 }
417
418 static void
419 route_match_command_free(void *rule)
420 {
421 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
422 }
423
424 struct route_map_rule_cmd route_match_command_cmd = {
425 "command",
426 route_match_command,
427 route_match_command_compile,
428 route_match_command_free
429 };
430 #endif
431
432 /* `match ip address IP_ACCESS_LIST' */
433
434 /* Match function should return 1 if match is success else return
435 zero. */
436 static enum route_map_cmd_result_t
437 route_match_ip_address(void *rule, const struct prefix *prefix,
438 route_map_object_t type, void *object)
439 {
440 struct access_list *alist;
441
442 if (type == RMAP_BGP && prefix->family == AF_INET) {
443 alist = access_list_lookup(AFI_IP, (char *)rule);
444 if (alist == NULL)
445 return RMAP_NOMATCH;
446
447 return (access_list_apply(alist, prefix) == FILTER_DENY
448 ? RMAP_NOMATCH
449 : RMAP_MATCH);
450 }
451 return RMAP_NOMATCH;
452 }
453
454 /* Route map `ip address' match statement. `arg' should be
455 access-list name. */
456 static void *route_match_ip_address_compile(const char *arg)
457 {
458 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
459 }
460
461 /* Free route map's compiled `ip address' value. */
462 static void route_match_ip_address_free(void *rule)
463 {
464 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
465 }
466
467 /* Route map commands for ip address matching. */
468 struct route_map_rule_cmd route_match_ip_address_cmd = {
469 "ip address", route_match_ip_address, route_match_ip_address_compile,
470 route_match_ip_address_free};
471
472 /* `match ip next-hop IP_ADDRESS' */
473
474 /* Match function return 1 if match is success else return zero. */
475 static enum route_map_cmd_result_t
476 route_match_ip_next_hop(void *rule, const struct prefix *prefix,
477 route_map_object_t type, void *object)
478 {
479 struct access_list *alist;
480 struct bgp_path_info *path;
481 struct prefix_ipv4 p;
482
483 if (type == RMAP_BGP && prefix->family == AF_INET) {
484 path = object;
485 p.family = AF_INET;
486 p.prefix = path->attr->nexthop;
487 p.prefixlen = IPV4_MAX_BITLEN;
488
489 alist = access_list_lookup(AFI_IP, (char *)rule);
490 if (alist == NULL)
491 return RMAP_NOMATCH;
492
493 return (access_list_apply(alist, &p) == FILTER_DENY
494 ? RMAP_NOMATCH
495 : RMAP_MATCH);
496 }
497 return RMAP_NOMATCH;
498 }
499
500 /* Route map `ip next-hop' match statement. `arg' is
501 access-list name. */
502 static void *route_match_ip_next_hop_compile(const char *arg)
503 {
504 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
505 }
506
507 /* Free route map's compiled `ip address' value. */
508 static void route_match_ip_next_hop_free(void *rule)
509 {
510 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
511 }
512
513 /* Route map commands for ip next-hop matching. */
514 struct route_map_rule_cmd route_match_ip_next_hop_cmd = {
515 "ip next-hop", route_match_ip_next_hop, route_match_ip_next_hop_compile,
516 route_match_ip_next_hop_free};
517
518 /* `match ip route-source ACCESS-LIST' */
519
520 /* Match function return 1 if match is success else return zero. */
521 static enum route_map_cmd_result_t
522 route_match_ip_route_source(void *rule, const struct prefix *pfx,
523 route_map_object_t type, void *object)
524 {
525 struct access_list *alist;
526 struct bgp_path_info *path;
527 struct peer *peer;
528 struct prefix_ipv4 p;
529
530 if (type == RMAP_BGP && pfx->family == AF_INET) {
531 path = object;
532 peer = path->peer;
533
534 if (!peer || sockunion_family(&peer->su) != AF_INET)
535 return RMAP_NOMATCH;
536
537 p.family = AF_INET;
538 p.prefix = peer->su.sin.sin_addr;
539 p.prefixlen = IPV4_MAX_BITLEN;
540
541 alist = access_list_lookup(AFI_IP, (char *)rule);
542 if (alist == NULL)
543 return RMAP_NOMATCH;
544
545 return (access_list_apply(alist, &p) == FILTER_DENY
546 ? RMAP_NOMATCH
547 : RMAP_MATCH);
548 }
549 return RMAP_NOMATCH;
550 }
551
552 /* Route map `ip route-source' match statement. `arg' is
553 access-list name. */
554 static void *route_match_ip_route_source_compile(const char *arg)
555 {
556 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
557 }
558
559 /* Free route map's compiled `ip address' value. */
560 static void route_match_ip_route_source_free(void *rule)
561 {
562 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
563 }
564
565 /* Route map commands for ip route-source matching. */
566 struct route_map_rule_cmd route_match_ip_route_source_cmd = {
567 "ip route-source", route_match_ip_route_source,
568 route_match_ip_route_source_compile, route_match_ip_route_source_free};
569
570 static enum route_map_cmd_result_t
571 route_match_prefix_list_flowspec(afi_t afi, struct prefix_list *plist,
572 const struct prefix *p)
573 {
574 int ret;
575 struct bgp_pbr_entry_main api;
576
577 memset(&api, 0, sizeof(api));
578
579 /* extract match from flowspec entries */
580 ret = bgp_flowspec_match_rules_fill(
581 (uint8_t *)p->u.prefix_flowspec.ptr,
582 p->u.prefix_flowspec.prefixlen, &api);
583 if (ret < 0)
584 return RMAP_NOMATCH;
585 if (api.match_bitmask & PREFIX_DST_PRESENT ||
586 api.match_bitmask_iprule & PREFIX_DST_PRESENT) {
587 if (family2afi((&api.dst_prefix)->family) != afi)
588 return RMAP_NOMATCH;
589 return prefix_list_apply(plist, &api.dst_prefix) == PREFIX_DENY
590 ? RMAP_NOMATCH
591 : RMAP_MATCH;
592 } else if (api.match_bitmask & PREFIX_SRC_PRESENT ||
593 api.match_bitmask_iprule & PREFIX_SRC_PRESENT) {
594 if (family2afi((&api.src_prefix)->family) != afi)
595 return RMAP_NOMATCH;
596 return (prefix_list_apply(plist, &api.src_prefix) == PREFIX_DENY
597 ? RMAP_NOMATCH
598 : RMAP_MATCH);
599 }
600 return RMAP_NOMATCH;
601 }
602
603 static enum route_map_cmd_result_t
604 route_match_address_prefix_list(void *rule, afi_t afi,
605 const struct prefix *prefix,
606 route_map_object_t type, void *object)
607 {
608 struct prefix_list *plist;
609
610 if (type != RMAP_BGP)
611 return RMAP_NOMATCH;
612
613 plist = prefix_list_lookup(afi, (char *)rule);
614 if (plist == NULL)
615 return RMAP_NOMATCH;
616
617 if (prefix->family == AF_FLOWSPEC)
618 return route_match_prefix_list_flowspec(afi, plist,
619 prefix);
620 return (prefix_list_apply(plist, prefix) == PREFIX_DENY ? RMAP_NOMATCH
621 : RMAP_MATCH);
622 }
623
624 static enum route_map_cmd_result_t
625 route_match_ip_address_prefix_list(void *rule, const struct prefix *prefix,
626 route_map_object_t type, void *object)
627 {
628 return route_match_address_prefix_list(rule, AFI_IP, prefix, type,
629 object);
630 }
631
632 static void *route_match_ip_address_prefix_list_compile(const char *arg)
633 {
634 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
635 }
636
637 static void route_match_ip_address_prefix_list_free(void *rule)
638 {
639 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
640 }
641
642 struct route_map_rule_cmd route_match_ip_address_prefix_list_cmd = {
643 "ip address prefix-list", route_match_ip_address_prefix_list,
644 route_match_ip_address_prefix_list_compile,
645 route_match_ip_address_prefix_list_free};
646
647 /* `match ip next-hop prefix-list PREFIX_LIST' */
648
649 static enum route_map_cmd_result_t
650 route_match_ip_next_hop_prefix_list(void *rule, const struct prefix *prefix,
651 route_map_object_t type, void *object)
652 {
653 struct prefix_list *plist;
654 struct bgp_path_info *path;
655 struct prefix_ipv4 p;
656
657 if (type == RMAP_BGP && prefix->family == AF_INET) {
658 path = object;
659 p.family = AF_INET;
660 p.prefix = path->attr->nexthop;
661 p.prefixlen = IPV4_MAX_BITLEN;
662
663 plist = prefix_list_lookup(AFI_IP, (char *)rule);
664 if (plist == NULL)
665 return RMAP_NOMATCH;
666
667 return (prefix_list_apply(plist, &p) == PREFIX_DENY
668 ? RMAP_NOMATCH
669 : RMAP_MATCH);
670 }
671 return RMAP_NOMATCH;
672 }
673
674 static void *route_match_ip_next_hop_prefix_list_compile(const char *arg)
675 {
676 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
677 }
678
679 static void route_match_ip_next_hop_prefix_list_free(void *rule)
680 {
681 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
682 }
683
684 struct route_map_rule_cmd route_match_ip_next_hop_prefix_list_cmd = {
685 "ip next-hop prefix-list", route_match_ip_next_hop_prefix_list,
686 route_match_ip_next_hop_prefix_list_compile,
687 route_match_ip_next_hop_prefix_list_free};
688
689 /* `match ip next-hop type <blackhole>' */
690
691 static enum route_map_cmd_result_t
692 route_match_ip_next_hop_type(void *rule, const struct prefix *prefix,
693 route_map_object_t type, void *object)
694 {
695 struct bgp_path_info *path;
696
697 if (type == RMAP_BGP && prefix->family == AF_INET) {
698 path = (struct bgp_path_info *)object;
699 if (!path || !path->attr)
700 return RMAP_NOMATCH;
701
702 /* If nexthop interface's index can't be resolved and nexthop is
703 set to any address then mark it as type `blackhole`.
704 This logic works for matching kernel/static routes like:
705 `ip route add blackhole 10.0.0.1`. */
706 if (path->attr->nexthop.s_addr == INADDR_ANY
707 && !path->attr->nh_ifindex)
708 return RMAP_MATCH;
709 }
710 return RMAP_NOMATCH;
711 }
712
713 static void *route_match_ip_next_hop_type_compile(const char *arg)
714 {
715 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
716 }
717
718 static void route_match_ip_next_hop_type_free(void *rule)
719 {
720 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
721 }
722
723 static struct route_map_rule_cmd route_match_ip_next_hop_type_cmd = {
724 "ip next-hop type", route_match_ip_next_hop_type,
725 route_match_ip_next_hop_type_compile,
726 route_match_ip_next_hop_type_free};
727
728 /* `match ip route-source prefix-list PREFIX_LIST' */
729
730 static enum route_map_cmd_result_t
731 route_match_ip_route_source_prefix_list(void *rule,
732 const struct prefix *prefix,
733 route_map_object_t type, void *object)
734 {
735 struct prefix_list *plist;
736 struct bgp_path_info *path;
737 struct peer *peer;
738 struct prefix_ipv4 p;
739
740 if (type == RMAP_BGP && prefix->family == AF_INET) {
741 path = object;
742 peer = path->peer;
743
744 if (!peer || sockunion_family(&peer->su) != AF_INET)
745 return RMAP_NOMATCH;
746
747 p.family = AF_INET;
748 p.prefix = peer->su.sin.sin_addr;
749 p.prefixlen = IPV4_MAX_BITLEN;
750
751 plist = prefix_list_lookup(AFI_IP, (char *)rule);
752 if (plist == NULL)
753 return RMAP_NOMATCH;
754
755 return (prefix_list_apply(plist, &p) == PREFIX_DENY
756 ? RMAP_NOMATCH
757 : RMAP_MATCH);
758 }
759 return RMAP_NOMATCH;
760 }
761
762 static void *route_match_ip_route_source_prefix_list_compile(const char *arg)
763 {
764 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
765 }
766
767 static void route_match_ip_route_source_prefix_list_free(void *rule)
768 {
769 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
770 }
771
772 struct route_map_rule_cmd route_match_ip_route_source_prefix_list_cmd = {
773 "ip route-source prefix-list", route_match_ip_route_source_prefix_list,
774 route_match_ip_route_source_prefix_list_compile,
775 route_match_ip_route_source_prefix_list_free};
776
777 /* `match evpn default-route' */
778
779 /* Match function should return 1 if match is success else 0 */
780 static enum route_map_cmd_result_t
781 route_match_evpn_default_route(void *rule, const struct prefix *p,
782 route_map_object_t type, void *object)
783 {
784 if (type == RMAP_BGP && is_evpn_prefix_default(p))
785 return RMAP_MATCH;
786
787 return RMAP_NOMATCH;
788 }
789
790 /* Route map commands for default-route matching. */
791 struct route_map_rule_cmd route_match_evpn_default_route_cmd = {
792 "evpn default-route", route_match_evpn_default_route, NULL, NULL};
793
794 /* `match mac address MAC_ACCESS_LIST' */
795
796 /* Match function should return 1 if match is success else return
797 zero. */
798 static enum route_map_cmd_result_t
799 route_match_mac_address(void *rule, const struct prefix *prefix,
800 route_map_object_t type, void *object)
801 {
802 struct access_list *alist;
803 struct prefix p;
804
805 if (type == RMAP_BGP) {
806 alist = access_list_lookup(AFI_L2VPN, (char *)rule);
807 if (alist == NULL)
808 return RMAP_NOMATCH;
809
810 if (prefix->u.prefix_evpn.route_type != BGP_EVPN_MAC_IP_ROUTE)
811 return RMAP_NOMATCH;
812
813 p.family = AF_ETHERNET;
814 p.prefixlen = ETH_ALEN * 8;
815 p.u.prefix_eth = prefix->u.prefix_evpn.macip_addr.mac;
816
817 return (access_list_apply(alist, &p) == FILTER_DENY
818 ? RMAP_NOMATCH
819 : RMAP_MATCH);
820 }
821
822 return RMAP_NOMATCH;
823 }
824
825 /* Route map `mac address' match statement. `arg' should be
826 access-list name. */
827 static void *route_match_mac_address_compile(const char *arg)
828 {
829 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
830 }
831
832 /* Free route map's compiled `ip address' value. */
833 static void route_match_mac_address_free(void *rule)
834 {
835 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
836 }
837
838 /* Route map commands for mac address matching. */
839 struct route_map_rule_cmd route_match_mac_address_cmd = {
840 "mac address", route_match_mac_address, route_match_mac_address_compile,
841 route_match_mac_address_free};
842
843 /*
844 * Match function returns:
845 * ...RMAP_MATCH if match is found.
846 * ...RMAP_NOMATCH if match is not found.
847 * ...RMAP_NOOP to ignore this match check.
848 */
849 static enum route_map_cmd_result_t
850 route_match_vni(void *rule, const struct prefix *prefix,
851 route_map_object_t type, void *object)
852 {
853 vni_t vni = 0;
854 unsigned int label_cnt = 0;
855 struct bgp_path_info *path = NULL;
856 struct prefix_evpn *evp = (struct prefix_evpn *) prefix;
857
858 if (type == RMAP_BGP) {
859 vni = *((vni_t *)rule);
860 path = (struct bgp_path_info *)object;
861
862 /*
863 * This rmap filter is valid for vxlan tunnel type only.
864 * For any other tunnel type, return noop to ignore
865 * this check.
866 */
867 if (path->attr && path->attr->encap_tunneltype !=
868 BGP_ENCAP_TYPE_VXLAN)
869 return RMAP_NOOP;
870
871 /*
872 * Apply filter to type 1, 2, 5 routes only.
873 * Other route types do not have vni label.
874 */
875 if (evp && (evp->prefix.route_type != BGP_EVPN_AD_ROUTE &&
876 evp->prefix.route_type != BGP_EVPN_MAC_IP_ROUTE &&
877 evp->prefix.route_type != BGP_EVPN_IP_PREFIX_ROUTE))
878 return RMAP_NOOP;
879
880 if (path->extra == NULL)
881 return RMAP_NOMATCH;
882
883 for ( ; label_cnt < BGP_MAX_LABELS &&
884 label_cnt < path->extra->num_labels; label_cnt++) {
885 if (vni == label2vni(&path->extra->label[label_cnt]))
886 return RMAP_MATCH;
887 }
888 }
889
890 return RMAP_NOMATCH;
891 }
892
893 /* Route map `vni' match statement. */
894 static void *route_match_vni_compile(const char *arg)
895 {
896 vni_t *vni = NULL;
897 char *end = NULL;
898
899 vni = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(vni_t));
900
901 *vni = strtoul(arg, &end, 10);
902 if (*end != '\0') {
903 XFREE(MTYPE_ROUTE_MAP_COMPILED, vni);
904 return NULL;
905 }
906
907 return vni;
908 }
909
910 /* Free route map's compiled `vni' value. */
911 static void route_match_vni_free(void *rule)
912 {
913 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
914 }
915
916 /* Route map commands for vni matching. */
917 struct route_map_rule_cmd route_match_evpn_vni_cmd = {
918 "evpn vni", route_match_vni, route_match_vni_compile,
919 route_match_vni_free};
920
921 /* `match evpn route-type' */
922
923 /* Match function should return 1 if match is success else return
924 zero. */
925 static enum route_map_cmd_result_t
926 route_match_evpn_route_type(void *rule, const struct prefix *pfx,
927 route_map_object_t type, void *object)
928 {
929 uint8_t route_type = 0;
930
931 if (type == RMAP_BGP) {
932 route_type = *((uint8_t *)rule);
933
934 if (route_type == pfx->u.prefix_evpn.route_type)
935 return RMAP_MATCH;
936 }
937
938 return RMAP_NOMATCH;
939 }
940
941 /* Route map `route-type' match statement. */
942 static void *route_match_evpn_route_type_compile(const char *arg)
943 {
944 uint8_t *route_type = NULL;
945
946 route_type = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(uint8_t));
947
948 if (strncmp(arg, "ma", 2) == 0)
949 *route_type = BGP_EVPN_MAC_IP_ROUTE;
950 else if (strncmp(arg, "mu", 2) == 0)
951 *route_type = BGP_EVPN_IMET_ROUTE;
952 else
953 *route_type = BGP_EVPN_IP_PREFIX_ROUTE;
954
955 return route_type;
956 }
957
958 /* Free route map's compiled `route-type' value. */
959 static void route_match_evpn_route_type_free(void *rule)
960 {
961 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
962 }
963
964 /* Route map commands for evpn route-type matching. */
965 struct route_map_rule_cmd route_match_evpn_route_type_cmd = {
966 "evpn route-type", route_match_evpn_route_type,
967 route_match_evpn_route_type_compile, route_match_evpn_route_type_free};
968
969 /* Route map commands for VRF route leak with source vrf matching */
970 static enum route_map_cmd_result_t
971 route_match_vrl_source_vrf(void *rule, const struct prefix *prefix,
972 route_map_object_t type, void *object)
973 {
974 struct bgp_path_info *path;
975 char *vrf_name;
976
977 if (type == RMAP_BGP) {
978 vrf_name = rule;
979 path = (struct bgp_path_info *)object;
980
981 if (strncmp(vrf_name, "n/a", VRF_NAMSIZ) == 0)
982 return RMAP_NOMATCH;
983
984 if (path->extra == NULL)
985 return RMAP_NOMATCH;
986
987 if (strncmp(vrf_name, vrf_id_to_name(
988 path->extra->bgp_orig->vrf_id), VRF_NAMSIZ)
989 == 0)
990 return RMAP_MATCH;
991 }
992
993 return RMAP_NOMATCH;
994 }
995
996 static void *route_match_vrl_source_vrf_compile(const char *arg)
997 {
998 uint8_t *vrf_name = NULL;
999
1000 vrf_name = XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
1001
1002 return vrf_name;
1003 }
1004
1005 /* Free route map's compiled `route-type' value. */
1006 static void route_match_vrl_source_vrf_free(void *rule)
1007 {
1008 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
1009 }
1010
1011 struct route_map_rule_cmd route_match_vrl_source_vrf_cmd = {
1012 "source-vrf", route_match_vrl_source_vrf,
1013 route_match_vrl_source_vrf_compile,
1014 route_match_vrl_source_vrf_free};
1015
1016 /* `match local-preference LOCAL-PREF' */
1017
1018 /* Match function return 1 if match is success else return zero. */
1019 static enum route_map_cmd_result_t
1020 route_match_local_pref(void *rule, const struct prefix *prefix,
1021 route_map_object_t type, void *object)
1022 {
1023 uint32_t *local_pref;
1024 struct bgp_path_info *path;
1025
1026 if (type == RMAP_BGP) {
1027 local_pref = rule;
1028 path = object;
1029
1030 if (path->attr->local_pref == *local_pref)
1031 return RMAP_MATCH;
1032 else
1033 return RMAP_NOMATCH;
1034 }
1035 return RMAP_NOMATCH;
1036 }
1037
1038 /* Route map `match local-preference' match statement.
1039 `arg' is local-pref value */
1040 static void *route_match_local_pref_compile(const char *arg)
1041 {
1042 uint32_t *local_pref;
1043 char *endptr = NULL;
1044 unsigned long tmpval;
1045
1046 /* Locpref value shoud be integer. */
1047 if (!all_digit(arg))
1048 return NULL;
1049
1050 errno = 0;
1051 tmpval = strtoul(arg, &endptr, 10);
1052 if (*endptr != '\0' || errno || tmpval > UINT32_MAX)
1053 return NULL;
1054
1055 local_pref = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(uint32_t));
1056
1057 *local_pref = tmpval;
1058 return local_pref;
1059 }
1060
1061 /* Free route map's compiled `match local-preference' value. */
1062 static void route_match_local_pref_free(void *rule)
1063 {
1064 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
1065 }
1066
1067 /* Route map commands for metric matching. */
1068 struct route_map_rule_cmd route_match_local_pref_cmd = {
1069 "local-preference", route_match_local_pref,
1070 route_match_local_pref_compile, route_match_local_pref_free};
1071
1072 /* `match metric METRIC' */
1073
1074 /* Match function return 1 if match is success else return zero. */
1075 static enum route_map_cmd_result_t
1076 route_match_metric(void *rule, const struct prefix *prefix,
1077 route_map_object_t type, void *object)
1078 {
1079 struct rmap_value *rv;
1080 struct bgp_path_info *path;
1081
1082 if (type == RMAP_BGP) {
1083 rv = rule;
1084 path = object;
1085 return route_value_match(rv, path->attr->med);
1086 }
1087 return RMAP_NOMATCH;
1088 }
1089
1090 /* Route map commands for metric matching. */
1091 struct route_map_rule_cmd route_match_metric_cmd = {
1092 "metric", route_match_metric, route_value_compile, route_value_free,
1093 };
1094
1095 /* `match as-path ASPATH' */
1096
1097 /* Match function for as-path match. I assume given object is */
1098 static enum route_map_cmd_result_t
1099 route_match_aspath(void *rule, const struct prefix *prefix,
1100 route_map_object_t type, void *object)
1101 {
1102
1103 struct as_list *as_list;
1104 struct bgp_path_info *path;
1105
1106 if (type == RMAP_BGP) {
1107 as_list = as_list_lookup((char *)rule);
1108 if (as_list == NULL)
1109 return RMAP_NOMATCH;
1110
1111 path = object;
1112
1113 /* Perform match. */
1114 return ((as_list_apply(as_list, path->attr->aspath)
1115 == AS_FILTER_DENY)
1116 ? RMAP_NOMATCH
1117 : RMAP_MATCH);
1118 }
1119 return RMAP_NOMATCH;
1120 }
1121
1122 /* Compile function for as-path match. */
1123 static void *route_match_aspath_compile(const char *arg)
1124 {
1125 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
1126 }
1127
1128 /* Compile function for as-path match. */
1129 static void route_match_aspath_free(void *rule)
1130 {
1131 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
1132 }
1133
1134 /* Route map commands for aspath matching. */
1135 struct route_map_rule_cmd route_match_aspath_cmd = {
1136 "as-path", route_match_aspath, route_match_aspath_compile,
1137 route_match_aspath_free};
1138
1139 /* `match community COMMUNIY' */
1140 struct rmap_community {
1141 char *name;
1142 uint32_t name_hash;
1143 int exact;
1144 };
1145
1146 /* Match function for community match. */
1147 static enum route_map_cmd_result_t
1148 route_match_community(void *rule, const struct prefix *prefix,
1149 route_map_object_t type, void *object)
1150 {
1151 struct community_list *list;
1152 struct bgp_path_info *path;
1153 struct rmap_community *rcom = rule;
1154
1155 if (type == RMAP_BGP) {
1156 path = object;
1157 rcom = rule;
1158
1159 list = community_list_lookup(bgp_clist, rcom->name,
1160 rcom->name_hash,
1161 COMMUNITY_LIST_MASTER);
1162 if (!list)
1163 return RMAP_NOMATCH;
1164
1165 if (rcom->exact) {
1166 if (community_list_exact_match(path->attr->community,
1167 list))
1168 return RMAP_MATCH;
1169 } else {
1170 if (community_list_match(path->attr->community, list))
1171 return RMAP_MATCH;
1172 }
1173 }
1174 return RMAP_NOMATCH;
1175 }
1176
1177 /* Compile function for community match. */
1178 static void *route_match_community_compile(const char *arg)
1179 {
1180 struct rmap_community *rcom;
1181 int len;
1182 char *p;
1183
1184 rcom = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct rmap_community));
1185
1186 p = strchr(arg, ' ');
1187 if (p) {
1188 len = p - arg;
1189 rcom->name = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, len + 1);
1190 memcpy(rcom->name, arg, len);
1191 rcom->exact = 1;
1192 } else {
1193 rcom->name = XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
1194 rcom->exact = 0;
1195 }
1196
1197 rcom->name_hash = bgp_clist_hash_key(rcom->name);
1198 return rcom;
1199 }
1200
1201 /* Compile function for community match. */
1202 static void route_match_community_free(void *rule)
1203 {
1204 struct rmap_community *rcom = rule;
1205
1206 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom->name);
1207 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom);
1208 }
1209
1210 /* Route map commands for community matching. */
1211 struct route_map_rule_cmd route_match_community_cmd = {
1212 "community", route_match_community, route_match_community_compile,
1213 route_match_community_free};
1214
1215 /* Match function for lcommunity match. */
1216 static enum route_map_cmd_result_t
1217 route_match_lcommunity(void *rule, const struct prefix *prefix,
1218 route_map_object_t type, void *object)
1219 {
1220 struct community_list *list;
1221 struct bgp_path_info *path;
1222 struct rmap_community *rcom = rule;
1223
1224 if (type == RMAP_BGP) {
1225 path = object;
1226
1227 list = community_list_lookup(bgp_clist, rcom->name,
1228 rcom->name_hash,
1229 LARGE_COMMUNITY_LIST_MASTER);
1230 if (!list)
1231 return RMAP_NOMATCH;
1232
1233 if (rcom->exact) {
1234 if (lcommunity_list_exact_match(
1235 path->attr->lcommunity,
1236 list))
1237 return RMAP_MATCH;
1238 } else {
1239 if (lcommunity_list_match(
1240 path->attr->lcommunity,
1241 list))
1242 return RMAP_MATCH;
1243 }
1244 }
1245 return RMAP_NOMATCH;
1246 }
1247
1248 /* Compile function for community match. */
1249 static void *route_match_lcommunity_compile(const char *arg)
1250 {
1251 struct rmap_community *rcom;
1252 int len;
1253 char *p;
1254
1255 rcom = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct rmap_community));
1256
1257 p = strchr(arg, ' ');
1258 if (p) {
1259 len = p - arg;
1260 rcom->name = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, len + 1);
1261 memcpy(rcom->name, arg, len);
1262 rcom->exact = 1;
1263 } else {
1264 rcom->name = XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
1265 rcom->exact = 0;
1266 }
1267
1268 rcom->name_hash = bgp_clist_hash_key(rcom->name);
1269 return rcom;
1270 }
1271
1272 /* Compile function for community match. */
1273 static void route_match_lcommunity_free(void *rule)
1274 {
1275 struct rmap_community *rcom = rule;
1276
1277 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom->name);
1278 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom);
1279 }
1280
1281 /* Route map commands for community matching. */
1282 struct route_map_rule_cmd route_match_lcommunity_cmd = {
1283 "large-community", route_match_lcommunity,
1284 route_match_lcommunity_compile, route_match_lcommunity_free};
1285
1286
1287 /* Match function for extcommunity match. */
1288 static enum route_map_cmd_result_t
1289 route_match_ecommunity(void *rule, const struct prefix *prefix,
1290 route_map_object_t type, void *object)
1291 {
1292 struct community_list *list;
1293 struct bgp_path_info *path;
1294 struct rmap_community *rcom = rule;
1295
1296 if (type == RMAP_BGP) {
1297 path = object;
1298
1299 list = community_list_lookup(bgp_clist, rcom->name,
1300 rcom->name_hash,
1301 EXTCOMMUNITY_LIST_MASTER);
1302 if (!list)
1303 return RMAP_NOMATCH;
1304
1305 if (ecommunity_list_match(path->attr->ecommunity, list))
1306 return RMAP_MATCH;
1307 }
1308 return RMAP_NOMATCH;
1309 }
1310
1311 /* Compile function for extcommunity match. */
1312 static void *route_match_ecommunity_compile(const char *arg)
1313 {
1314 struct rmap_community *rcom;
1315
1316 rcom = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct rmap_community));
1317 rcom->name = XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
1318 rcom->name_hash = bgp_clist_hash_key(rcom->name);
1319
1320 return rcom;
1321 }
1322
1323 /* Compile function for extcommunity match. */
1324 static void route_match_ecommunity_free(void *rule)
1325 {
1326 struct rmap_community *rcom = rule;
1327
1328 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom->name);
1329 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom);
1330 }
1331
1332 /* Route map commands for community matching. */
1333 struct route_map_rule_cmd route_match_ecommunity_cmd = {
1334 "extcommunity", route_match_ecommunity, route_match_ecommunity_compile,
1335 route_match_ecommunity_free};
1336
1337 /* `match nlri` and `set nlri` are replaced by `address-family ipv4`
1338 and `address-family vpnv4'. */
1339
1340 /* `match origin' */
1341 static enum route_map_cmd_result_t
1342 route_match_origin(void *rule, const struct prefix *prefix,
1343 route_map_object_t type, void *object)
1344 {
1345 uint8_t *origin;
1346 struct bgp_path_info *path;
1347
1348 if (type == RMAP_BGP) {
1349 origin = rule;
1350 path = object;
1351
1352 if (path->attr->origin == *origin)
1353 return RMAP_MATCH;
1354 }
1355
1356 return RMAP_NOMATCH;
1357 }
1358
1359 static void *route_match_origin_compile(const char *arg)
1360 {
1361 uint8_t *origin;
1362
1363 origin = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(uint8_t));
1364
1365 if (strcmp(arg, "igp") == 0)
1366 *origin = 0;
1367 else if (strcmp(arg, "egp") == 0)
1368 *origin = 1;
1369 else
1370 *origin = 2;
1371
1372 return origin;
1373 }
1374
1375 /* Free route map's compiled `ip address' value. */
1376 static void route_match_origin_free(void *rule)
1377 {
1378 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
1379 }
1380
1381 /* Route map commands for origin matching. */
1382 struct route_map_rule_cmd route_match_origin_cmd = {
1383 "origin", route_match_origin, route_match_origin_compile,
1384 route_match_origin_free};
1385
1386 /* match probability { */
1387
1388 static enum route_map_cmd_result_t
1389 route_match_probability(void *rule, const struct prefix *prefix,
1390 route_map_object_t type, void *object)
1391 {
1392 long r = random();
1393
1394 switch (*(long *)rule) {
1395 case 0:
1396 break;
1397 case RAND_MAX:
1398 return RMAP_MATCH;
1399 default:
1400 if (r < *(long *)rule) {
1401 return RMAP_MATCH;
1402 }
1403 }
1404
1405 return RMAP_NOMATCH;
1406 }
1407
1408 static void *route_match_probability_compile(const char *arg)
1409 {
1410 long *lobule;
1411 unsigned perc;
1412
1413 perc = atoi(arg);
1414 lobule = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(long));
1415
1416 switch (perc) {
1417 case 0:
1418 *lobule = 0;
1419 break;
1420 case 100:
1421 *lobule = RAND_MAX;
1422 break;
1423 default:
1424 *lobule = RAND_MAX / 100 * perc;
1425 }
1426
1427 return lobule;
1428 }
1429
1430 static void route_match_probability_free(void *rule)
1431 {
1432 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
1433 }
1434
1435 struct route_map_rule_cmd route_match_probability_cmd = {
1436 "probability", route_match_probability, route_match_probability_compile,
1437 route_match_probability_free};
1438
1439 /* `match interface IFNAME' */
1440 /* Match function should return 1 if match is success else return
1441 zero. */
1442 static enum route_map_cmd_result_t
1443 route_match_interface(void *rule, const struct prefix *prefix,
1444 route_map_object_t type, void *object)
1445 {
1446 struct interface *ifp;
1447 struct bgp_path_info *path;
1448
1449 if (type == RMAP_BGP) {
1450 path = object;
1451
1452 if (!path || !path->attr)
1453 return RMAP_NOMATCH;
1454
1455 ifp = if_lookup_by_name_all_vrf((char *)rule);
1456
1457 if (ifp == NULL || ifp->ifindex != path->attr->nh_ifindex)
1458 return RMAP_NOMATCH;
1459
1460 return RMAP_MATCH;
1461 }
1462 return RMAP_NOMATCH;
1463 }
1464
1465 /* Route map `interface' match statement. `arg' should be
1466 interface name. */
1467 static void *route_match_interface_compile(const char *arg)
1468 {
1469 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
1470 }
1471
1472 /* Free route map's compiled `interface' value. */
1473 static void route_match_interface_free(void *rule)
1474 {
1475 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
1476 }
1477
1478 /* Route map commands for ip address matching. */
1479 struct route_map_rule_cmd route_match_interface_cmd = {
1480 "interface", route_match_interface, route_match_interface_compile,
1481 route_match_interface_free};
1482
1483 /* } */
1484
1485 /* `set ip next-hop IP_ADDRESS' */
1486
1487 /* Match function return 1 if match is success else return zero. */
1488 static enum route_map_cmd_result_t
1489 route_match_tag(void *rule, const struct prefix *prefix,
1490 route_map_object_t type, void *object)
1491 {
1492 route_tag_t *tag;
1493 struct bgp_path_info *path;
1494
1495 if (type == RMAP_BGP) {
1496 tag = rule;
1497 path = object;
1498
1499 return ((path->attr->tag == *tag) ? RMAP_MATCH : RMAP_NOMATCH);
1500 }
1501
1502 return RMAP_NOMATCH;
1503 }
1504
1505
1506 /* Route map commands for tag matching. */
1507 static struct route_map_rule_cmd route_match_tag_cmd = {
1508 "tag", route_match_tag, route_map_rule_tag_compile,
1509 route_map_rule_tag_free,
1510 };
1511
1512
1513 /* Set nexthop to object. ojbect must be pointer to struct attr. */
1514 struct rmap_ip_nexthop_set {
1515 struct in_addr *address;
1516 int peer_address;
1517 int unchanged;
1518 };
1519
1520 static enum route_map_cmd_result_t
1521 route_set_ip_nexthop(void *rule, const struct prefix *prefix,
1522 route_map_object_t type, void *object)
1523 {
1524 struct rmap_ip_nexthop_set *rins = rule;
1525 struct bgp_path_info *path;
1526 struct peer *peer;
1527
1528 if (type != RMAP_BGP)
1529 return RMAP_OKAY;
1530
1531 if (prefix->family == AF_INET6)
1532 return RMAP_OKAY;
1533
1534 path = object;
1535 peer = path->peer;
1536
1537 if (rins->unchanged) {
1538 SET_FLAG(path->attr->rmap_change_flags,
1539 BATTR_RMAP_NEXTHOP_UNCHANGED);
1540 } else if (rins->peer_address) {
1541 if ((CHECK_FLAG(peer->rmap_type, PEER_RMAP_TYPE_IN)
1542 || CHECK_FLAG(peer->rmap_type, PEER_RMAP_TYPE_IMPORT))
1543 && peer->su_remote
1544 && sockunion_family(peer->su_remote) == AF_INET) {
1545 path->attr->nexthop.s_addr =
1546 sockunion2ip(peer->su_remote);
1547 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_NEXT_HOP);
1548 } else if (CHECK_FLAG(peer->rmap_type, PEER_RMAP_TYPE_OUT)) {
1549 /* The next hop value will be set as part of
1550 * packet rewrite. Set the flags here to indicate
1551 * that rewrite needs to be done.
1552 * Also, clear the value.
1553 */
1554 SET_FLAG(path->attr->rmap_change_flags,
1555 BATTR_RMAP_NEXTHOP_PEER_ADDRESS);
1556 path->attr->nexthop.s_addr = 0;
1557 }
1558 } else {
1559 /* Set next hop value. */
1560 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_NEXT_HOP);
1561 path->attr->nexthop = *rins->address;
1562 SET_FLAG(path->attr->rmap_change_flags,
1563 BATTR_RMAP_IPV4_NHOP_CHANGED);
1564 /* case for MP-BGP : MPLS VPN */
1565 path->attr->mp_nexthop_global_in = *rins->address;
1566 path->attr->mp_nexthop_len = sizeof(*rins->address);
1567 }
1568
1569 return RMAP_OKAY;
1570 }
1571
1572 /* Route map `ip nexthop' compile function. Given string is converted
1573 to struct in_addr structure. */
1574 static void *route_set_ip_nexthop_compile(const char *arg)
1575 {
1576 struct rmap_ip_nexthop_set *rins;
1577 struct in_addr *address = NULL;
1578 int peer_address = 0;
1579 int unchanged = 0;
1580 int ret;
1581
1582 if (strcmp(arg, "peer-address") == 0)
1583 peer_address = 1;
1584 else if (strcmp(arg, "unchanged") == 0)
1585 unchanged = 1;
1586 else {
1587 address = XMALLOC(MTYPE_ROUTE_MAP_COMPILED,
1588 sizeof(struct in_addr));
1589 ret = inet_aton(arg, address);
1590
1591 if (ret == 0) {
1592 XFREE(MTYPE_ROUTE_MAP_COMPILED, address);
1593 return NULL;
1594 }
1595 }
1596
1597 rins = XCALLOC(MTYPE_ROUTE_MAP_COMPILED,
1598 sizeof(struct rmap_ip_nexthop_set));
1599
1600 rins->address = address;
1601 rins->peer_address = peer_address;
1602 rins->unchanged = unchanged;
1603
1604 return rins;
1605 }
1606
1607 /* Free route map's compiled `ip nexthop' value. */
1608 static void route_set_ip_nexthop_free(void *rule)
1609 {
1610 struct rmap_ip_nexthop_set *rins = rule;
1611
1612 XFREE(MTYPE_ROUTE_MAP_COMPILED, rins->address);
1613
1614 XFREE(MTYPE_ROUTE_MAP_COMPILED, rins);
1615 }
1616
1617 /* Route map commands for ip nexthop set. */
1618 struct route_map_rule_cmd route_set_ip_nexthop_cmd = {
1619 "ip next-hop", route_set_ip_nexthop, route_set_ip_nexthop_compile,
1620 route_set_ip_nexthop_free};
1621
1622 /* `set local-preference LOCAL_PREF' */
1623
1624 /* Set local preference. */
1625 static enum route_map_cmd_result_t
1626 route_set_local_pref(void *rule, const struct prefix *prefix,
1627 route_map_object_t type, void *object)
1628 {
1629 struct rmap_value *rv;
1630 struct bgp_path_info *path;
1631 uint32_t locpref = 0;
1632
1633 if (type == RMAP_BGP) {
1634 /* Fetch routemap's rule information. */
1635 rv = rule;
1636 path = object;
1637
1638 /* Set local preference value. */
1639 if (path->attr->flag & ATTR_FLAG_BIT(BGP_ATTR_LOCAL_PREF))
1640 locpref = path->attr->local_pref;
1641
1642 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_LOCAL_PREF);
1643 path->attr->local_pref =
1644 route_value_adjust(rv, locpref, path->peer);
1645 }
1646
1647 return RMAP_OKAY;
1648 }
1649
1650 /* Set local preference rule structure. */
1651 struct route_map_rule_cmd route_set_local_pref_cmd = {
1652 "local-preference", route_set_local_pref, route_value_compile,
1653 route_value_free,
1654 };
1655
1656 /* `set weight WEIGHT' */
1657
1658 /* Set weight. */
1659 static enum route_map_cmd_result_t
1660 route_set_weight(void *rule, const struct prefix *prefix,
1661 route_map_object_t type, void *object)
1662 {
1663 struct rmap_value *rv;
1664 struct bgp_path_info *path;
1665
1666 if (type == RMAP_BGP) {
1667 /* Fetch routemap's rule information. */
1668 rv = rule;
1669 path = object;
1670
1671 /* Set weight value. */
1672 path->attr->weight = route_value_adjust(rv, 0, path->peer);
1673 }
1674
1675 return RMAP_OKAY;
1676 }
1677
1678 /* Set local preference rule structure. */
1679 struct route_map_rule_cmd route_set_weight_cmd = {
1680 "weight", route_set_weight, route_value_compile, route_value_free,
1681 };
1682
1683 /* `set metric METRIC' */
1684
1685 /* Set metric to attribute. */
1686 static enum route_map_cmd_result_t
1687 route_set_metric(void *rule, const struct prefix *prefix,
1688 route_map_object_t type, void *object)
1689 {
1690 struct rmap_value *rv;
1691 struct bgp_path_info *path;
1692 uint32_t med = 0;
1693
1694 if (type == RMAP_BGP) {
1695 /* Fetch routemap's rule information. */
1696 rv = rule;
1697 path = object;
1698
1699 if (path->attr->flag & ATTR_FLAG_BIT(BGP_ATTR_MULTI_EXIT_DISC))
1700 med = path->attr->med;
1701
1702 path->attr->med = route_value_adjust(rv, med, path->peer);
1703 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_MULTI_EXIT_DISC);
1704 }
1705 return RMAP_OKAY;
1706 }
1707
1708 /* Set metric rule structure. */
1709 struct route_map_rule_cmd route_set_metric_cmd = {
1710 "metric", route_set_metric, route_value_compile, route_value_free,
1711 };
1712
1713 /* `set as-path prepend ASPATH' */
1714
1715 /* For AS path prepend mechanism. */
1716 static enum route_map_cmd_result_t
1717 route_set_aspath_prepend(void *rule, const struct prefix *prefix,
1718 route_map_object_t type, void *object)
1719 {
1720 struct aspath *aspath;
1721 struct aspath *new;
1722 struct bgp_path_info *path;
1723
1724 if (type == RMAP_BGP) {
1725 path = object;
1726
1727 if (path->attr->aspath->refcnt)
1728 new = aspath_dup(path->attr->aspath);
1729 else
1730 new = path->attr->aspath;
1731
1732 if ((uintptr_t)rule > 10) {
1733 aspath = rule;
1734 aspath_prepend(aspath, new);
1735 } else {
1736 as_t as = aspath_leftmost(new);
1737 if (!as)
1738 as = path->peer->as;
1739 new = aspath_add_seq_n(new, as, (uintptr_t)rule);
1740 }
1741
1742 path->attr->aspath = new;
1743 }
1744
1745 return RMAP_OKAY;
1746 }
1747
1748 static void *route_set_aspath_prepend_compile(const char *arg)
1749 {
1750 unsigned int num;
1751
1752 if (sscanf(arg, "last-as %u", &num) == 1 && num > 0 && num <= 10)
1753 return (void *)(uintptr_t)num;
1754
1755 return route_aspath_compile(arg);
1756 }
1757
1758 static void route_set_aspath_prepend_free(void *rule)
1759 {
1760 if ((uintptr_t)rule > 10)
1761 route_aspath_free(rule);
1762 }
1763
1764
1765 /* Set as-path prepend rule structure. */
1766 struct route_map_rule_cmd route_set_aspath_prepend_cmd = {
1767 "as-path prepend", route_set_aspath_prepend,
1768 route_set_aspath_prepend_compile, route_set_aspath_prepend_free,
1769 };
1770
1771 /* `set as-path exclude ASn' */
1772
1773 /* For ASN exclude mechanism.
1774 * Iterate over ASns requested and filter them from the given AS_PATH one by
1775 * one.
1776 * Make a deep copy of existing AS_PATH, but for the first ASn only.
1777 */
1778 static enum route_map_cmd_result_t
1779 route_set_aspath_exclude(void *rule, const struct prefix *dummy,
1780 route_map_object_t type, void *object)
1781 {
1782 struct aspath *new_path, *exclude_path;
1783 struct bgp_path_info *path;
1784
1785 if (type == RMAP_BGP) {
1786 exclude_path = rule;
1787 path = object;
1788 if (path->attr->aspath->refcnt)
1789 new_path = aspath_dup(path->attr->aspath);
1790 else
1791 new_path = path->attr->aspath;
1792 path->attr->aspath =
1793 aspath_filter_exclude(new_path, exclude_path);
1794 }
1795 return RMAP_OKAY;
1796 }
1797
1798 /* Set ASn exlude rule structure. */
1799 struct route_map_rule_cmd route_set_aspath_exclude_cmd = {
1800 "as-path exclude", route_set_aspath_exclude, route_aspath_compile,
1801 route_aspath_free,
1802 };
1803
1804 /* `set community COMMUNITY' */
1805 struct rmap_com_set {
1806 struct community *com;
1807 int additive;
1808 int none;
1809 };
1810
1811 /* For community set mechanism. */
1812 static enum route_map_cmd_result_t
1813 route_set_community(void *rule, const struct prefix *prefix,
1814 route_map_object_t type, void *object)
1815 {
1816 struct rmap_com_set *rcs;
1817 struct bgp_path_info *path;
1818 struct attr *attr;
1819 struct community *new = NULL;
1820 struct community *old;
1821 struct community *merge;
1822
1823 if (type == RMAP_BGP) {
1824 rcs = rule;
1825 path = object;
1826 attr = path->attr;
1827 old = attr->community;
1828
1829 /* "none" case. */
1830 if (rcs->none) {
1831 attr->flag &= ~(ATTR_FLAG_BIT(BGP_ATTR_COMMUNITIES));
1832 attr->community = NULL;
1833 /* See the longer comment down below. */
1834 if (old && old->refcnt == 0)
1835 community_free(&old);
1836 return RMAP_OKAY;
1837 }
1838
1839 /* "additive" case. */
1840 if (rcs->additive && old) {
1841 merge = community_merge(community_dup(old), rcs->com);
1842
1843 new = community_uniq_sort(merge);
1844 community_free(&merge);
1845 } else
1846 new = community_dup(rcs->com);
1847
1848 /* HACK: if the old community is not intern'd,
1849 * we should free it here, or all reference to it may be
1850 * lost.
1851 * Really need to cleanup attribute caching sometime.
1852 */
1853 if (old && old->refcnt == 0)
1854 community_free(&old);
1855
1856 /* will be interned by caller if required */
1857 attr->community = new;
1858
1859 attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_COMMUNITIES);
1860 }
1861
1862 return RMAP_OKAY;
1863 }
1864
1865 /* Compile function for set community. */
1866 static void *route_set_community_compile(const char *arg)
1867 {
1868 struct rmap_com_set *rcs;
1869 struct community *com = NULL;
1870 char *sp;
1871 int additive = 0;
1872 int none = 0;
1873
1874 if (strcmp(arg, "none") == 0)
1875 none = 1;
1876 else {
1877 sp = strstr(arg, "additive");
1878
1879 if (sp && sp > arg) {
1880 /* "additive" keyword is included. */
1881 additive = 1;
1882 *(sp - 1) = '\0';
1883 }
1884
1885 com = community_str2com(arg);
1886
1887 if (additive)
1888 *(sp - 1) = ' ';
1889
1890 if (!com)
1891 return NULL;
1892 }
1893
1894 rcs = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct rmap_com_set));
1895 rcs->com = com;
1896 rcs->additive = additive;
1897 rcs->none = none;
1898
1899 return rcs;
1900 }
1901
1902 /* Free function for set community. */
1903 static void route_set_community_free(void *rule)
1904 {
1905 struct rmap_com_set *rcs = rule;
1906
1907 if (rcs->com)
1908 community_free(&rcs->com);
1909 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcs);
1910 }
1911
1912 /* Set community rule structure. */
1913 struct route_map_rule_cmd route_set_community_cmd = {
1914 "community", route_set_community, route_set_community_compile,
1915 route_set_community_free,
1916 };
1917
1918 /* `set community COMMUNITY' */
1919 struct rmap_lcom_set {
1920 struct lcommunity *lcom;
1921 int additive;
1922 int none;
1923 };
1924
1925
1926 /* For lcommunity set mechanism. */
1927 static enum route_map_cmd_result_t
1928 route_set_lcommunity(void *rule, const struct prefix *prefix,
1929 route_map_object_t type, void *object)
1930 {
1931 struct rmap_lcom_set *rcs;
1932 struct bgp_path_info *path;
1933 struct attr *attr;
1934 struct lcommunity *new = NULL;
1935 struct lcommunity *old;
1936 struct lcommunity *merge;
1937
1938 if (type == RMAP_BGP) {
1939 rcs = rule;
1940 path = object;
1941 attr = path->attr;
1942 old = attr->lcommunity;
1943
1944 /* "none" case. */
1945 if (rcs->none) {
1946 attr->flag &=
1947 ~(ATTR_FLAG_BIT(BGP_ATTR_LARGE_COMMUNITIES));
1948 attr->lcommunity = NULL;
1949
1950 /* See the longer comment down below. */
1951 if (old && old->refcnt == 0)
1952 lcommunity_free(&old);
1953 return RMAP_OKAY;
1954 }
1955
1956 if (rcs->additive && old) {
1957 merge = lcommunity_merge(lcommunity_dup(old),
1958 rcs->lcom);
1959
1960 new = lcommunity_uniq_sort(merge);
1961 lcommunity_free(&merge);
1962 } else
1963 new = lcommunity_dup(rcs->lcom);
1964
1965 /* HACK: if the old large-community is not intern'd,
1966 * we should free it here, or all reference to it may be
1967 * lost.
1968 * Really need to cleanup attribute caching sometime.
1969 */
1970 if (old && old->refcnt == 0)
1971 lcommunity_free(&old);
1972
1973 /* will be intern()'d or attr_flush()'d by bgp_update_main() */
1974 attr->lcommunity = new;
1975
1976 attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_LARGE_COMMUNITIES);
1977 }
1978
1979 return RMAP_OKAY;
1980 }
1981
1982 /* Compile function for set community. */
1983 static void *route_set_lcommunity_compile(const char *arg)
1984 {
1985 struct rmap_lcom_set *rcs;
1986 struct lcommunity *lcom = NULL;
1987 char *sp;
1988 int additive = 0;
1989 int none = 0;
1990
1991 if (strcmp(arg, "none") == 0)
1992 none = 1;
1993 else {
1994 sp = strstr(arg, "additive");
1995
1996 if (sp && sp > arg) {
1997 /* "additive" keyworkd is included. */
1998 additive = 1;
1999 *(sp - 1) = '\0';
2000 }
2001
2002 lcom = lcommunity_str2com(arg);
2003
2004 if (additive)
2005 *(sp - 1) = ' ';
2006
2007 if (!lcom)
2008 return NULL;
2009 }
2010
2011 rcs = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct rmap_com_set));
2012 rcs->lcom = lcom;
2013 rcs->additive = additive;
2014 rcs->none = none;
2015
2016 return rcs;
2017 }
2018
2019 /* Free function for set lcommunity. */
2020 static void route_set_lcommunity_free(void *rule)
2021 {
2022 struct rmap_lcom_set *rcs = rule;
2023
2024 if (rcs->lcom) {
2025 lcommunity_free(&rcs->lcom);
2026 }
2027 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcs);
2028 }
2029
2030 /* Set community rule structure. */
2031 struct route_map_rule_cmd route_set_lcommunity_cmd = {
2032 "large-community", route_set_lcommunity, route_set_lcommunity_compile,
2033 route_set_lcommunity_free,
2034 };
2035
2036 /* `set large-comm-list (<1-99>|<100-500>|WORD) delete' */
2037
2038 /* For large community set mechanism. */
2039 static enum route_map_cmd_result_t
2040 route_set_lcommunity_delete(void *rule, const struct prefix *pfx,
2041 route_map_object_t type, void *object)
2042 {
2043 struct community_list *list;
2044 struct lcommunity *merge;
2045 struct lcommunity *new;
2046 struct lcommunity *old;
2047 struct bgp_path_info *path;
2048 struct rmap_community *rcom = rule;
2049
2050 if (type == RMAP_BGP) {
2051 if (!rcom)
2052 return RMAP_OKAY;
2053
2054 path = object;
2055 list = community_list_lookup(bgp_clist, rcom->name,
2056 rcom->name_hash,
2057 LARGE_COMMUNITY_LIST_MASTER);
2058 old = path->attr->lcommunity;
2059
2060 if (list && old) {
2061 merge = lcommunity_list_match_delete(
2062 lcommunity_dup(old), list);
2063 new = lcommunity_uniq_sort(merge);
2064 lcommunity_free(&merge);
2065
2066 /* HACK: if the old community is not intern'd,
2067 * we should free it here, or all reference to it may be
2068 * lost.
2069 * Really need to cleanup attribute caching sometime.
2070 */
2071 if (old->refcnt == 0)
2072 lcommunity_free(&old);
2073
2074 if (new->size == 0) {
2075 path->attr->lcommunity = NULL;
2076 path->attr->flag &= ~ATTR_FLAG_BIT(
2077 BGP_ATTR_LARGE_COMMUNITIES);
2078 lcommunity_free(&new);
2079 } else {
2080 path->attr->lcommunity = new;
2081 path->attr->flag |= ATTR_FLAG_BIT(
2082 BGP_ATTR_LARGE_COMMUNITIES);
2083 }
2084 }
2085 }
2086
2087 return RMAP_OKAY;
2088 }
2089
2090 /* Compile function for set lcommunity. */
2091 static void *route_set_lcommunity_delete_compile(const char *arg)
2092 {
2093 struct rmap_community *rcom;
2094 char **splits;
2095 int num;
2096
2097 frrstr_split(arg, " ", &splits, &num);
2098
2099 rcom = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct rmap_community));
2100 rcom->name = XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, splits[0]);
2101 rcom->name_hash = bgp_clist_hash_key(rcom->name);
2102
2103 for (int i = 0; i < num; i++)
2104 XFREE(MTYPE_TMP, splits[i]);
2105 XFREE(MTYPE_TMP, splits);
2106
2107 return rcom;
2108 }
2109
2110 /* Free function for set lcommunity. */
2111 static void route_set_lcommunity_delete_free(void *rule)
2112 {
2113 struct rmap_community *rcom = rule;
2114
2115 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom->name);
2116 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom);
2117 }
2118
2119 /* Set lcommunity rule structure. */
2120 struct route_map_rule_cmd route_set_lcommunity_delete_cmd = {
2121 "large-comm-list", route_set_lcommunity_delete,
2122 route_set_lcommunity_delete_compile, route_set_lcommunity_delete_free,
2123 };
2124
2125
2126 /* `set comm-list (<1-99>|<100-500>|WORD) delete' */
2127
2128 /* For community set mechanism. */
2129 static enum route_map_cmd_result_t
2130 route_set_community_delete(void *rule, const struct prefix *prefix,
2131 route_map_object_t type, void *object)
2132 {
2133 struct community_list *list;
2134 struct community *merge;
2135 struct community *new;
2136 struct community *old;
2137 struct bgp_path_info *path;
2138 struct rmap_community *rcom = rule;
2139
2140 if (type == RMAP_BGP) {
2141 if (!rcom)
2142 return RMAP_OKAY;
2143
2144 path = object;
2145 list = community_list_lookup(bgp_clist, rcom->name,
2146 rcom->name_hash,
2147 COMMUNITY_LIST_MASTER);
2148 old = path->attr->community;
2149
2150 if (list && old) {
2151 merge = community_list_match_delete(community_dup(old),
2152 list);
2153 new = community_uniq_sort(merge);
2154 community_free(&merge);
2155
2156 /* HACK: if the old community is not intern'd,
2157 * we should free it here, or all reference to it may be
2158 * lost.
2159 * Really need to cleanup attribute caching sometime.
2160 */
2161 if (old->refcnt == 0)
2162 community_free(&old);
2163
2164 if (new->size == 0) {
2165 path->attr->community = NULL;
2166 path->attr->flag &=
2167 ~ATTR_FLAG_BIT(BGP_ATTR_COMMUNITIES);
2168 community_free(&new);
2169 } else {
2170 path->attr->community = new;
2171 path->attr->flag |=
2172 ATTR_FLAG_BIT(BGP_ATTR_COMMUNITIES);
2173 }
2174 }
2175 }
2176
2177 return RMAP_OKAY;
2178 }
2179
2180 /* Compile function for set community. */
2181 static void *route_set_community_delete_compile(const char *arg)
2182 {
2183 struct rmap_community *rcom;
2184 char **splits;
2185 int num;
2186
2187 frrstr_split(arg, " ", &splits, &num);
2188
2189 rcom = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct rmap_community));
2190 rcom->name = XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, splits[0]);
2191 rcom->name_hash = bgp_clist_hash_key(rcom->name);
2192
2193 for (int i = 0; i < num; i++)
2194 XFREE(MTYPE_TMP, splits[i]);
2195 XFREE(MTYPE_TMP, splits);
2196
2197 return rcom;
2198 }
2199
2200 /* Free function for set community. */
2201 static void route_set_community_delete_free(void *rule)
2202 {
2203 struct rmap_community *rcom = rule;
2204
2205 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom->name);
2206 XFREE(MTYPE_ROUTE_MAP_COMPILED, rcom);
2207 }
2208
2209 /* Set community rule structure. */
2210 struct route_map_rule_cmd route_set_community_delete_cmd = {
2211 "comm-list", route_set_community_delete,
2212 route_set_community_delete_compile, route_set_community_delete_free,
2213 };
2214
2215 /* `set extcommunity rt COMMUNITY' */
2216
2217 /* For community set mechanism. Used by _rt and _soo. */
2218 static enum route_map_cmd_result_t
2219 route_set_ecommunity(void *rule, const struct prefix *prefix,
2220 route_map_object_t type, void *object)
2221 {
2222 struct ecommunity *ecom;
2223 struct ecommunity *new_ecom;
2224 struct ecommunity *old_ecom;
2225 struct bgp_path_info *path;
2226
2227 if (type == RMAP_BGP) {
2228 ecom = rule;
2229 path = object;
2230
2231 if (!ecom)
2232 return RMAP_OKAY;
2233
2234 /* We assume additive for Extended Community. */
2235 old_ecom = path->attr->ecommunity;
2236
2237 if (old_ecom) {
2238 new_ecom = ecommunity_merge(ecommunity_dup(old_ecom),
2239 ecom);
2240
2241 /* old_ecom->refcnt = 1 => owned elsewhere, e.g.
2242 * bgp_update_receive()
2243 * ->refcnt = 0 => set by a previous route-map
2244 * statement */
2245 if (!old_ecom->refcnt)
2246 ecommunity_free(&old_ecom);
2247 } else
2248 new_ecom = ecommunity_dup(ecom);
2249
2250 /* will be intern()'d or attr_flush()'d by bgp_update_main() */
2251 path->attr->ecommunity = new_ecom;
2252
2253 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_EXT_COMMUNITIES);
2254 }
2255 return RMAP_OKAY;
2256 }
2257
2258 /* Compile function for set community. */
2259 static void *route_set_ecommunity_rt_compile(const char *arg)
2260 {
2261 struct ecommunity *ecom;
2262
2263 ecom = ecommunity_str2com(arg, ECOMMUNITY_ROUTE_TARGET, 0);
2264 if (!ecom)
2265 return NULL;
2266 return ecommunity_intern(ecom);
2267 }
2268
2269 /* Free function for set community. Used by _rt and _soo */
2270 static void route_set_ecommunity_free(void *rule)
2271 {
2272 struct ecommunity *ecom = rule;
2273 ecommunity_unintern(&ecom);
2274 }
2275
2276 /* Set community rule structure. */
2277 struct route_map_rule_cmd route_set_ecommunity_rt_cmd = {
2278 "extcommunity rt", route_set_ecommunity,
2279 route_set_ecommunity_rt_compile, route_set_ecommunity_free,
2280 };
2281
2282 /* `set extcommunity soo COMMUNITY' */
2283
2284 /* Compile function for set community. */
2285 static void *route_set_ecommunity_soo_compile(const char *arg)
2286 {
2287 struct ecommunity *ecom;
2288
2289 ecom = ecommunity_str2com(arg, ECOMMUNITY_SITE_ORIGIN, 0);
2290 if (!ecom)
2291 return NULL;
2292
2293 return ecommunity_intern(ecom);
2294 }
2295
2296 /* Set community rule structure. */
2297 struct route_map_rule_cmd route_set_ecommunity_soo_cmd = {
2298 "extcommunity soo", route_set_ecommunity,
2299 route_set_ecommunity_soo_compile, route_set_ecommunity_free,
2300 };
2301
2302 /* `set origin ORIGIN' */
2303
2304 /* For origin set. */
2305 static enum route_map_cmd_result_t
2306 route_set_origin(void *rule, const struct prefix *prefix,
2307 route_map_object_t type, void *object)
2308 {
2309 uint8_t *origin;
2310 struct bgp_path_info *path;
2311
2312 if (type == RMAP_BGP) {
2313 origin = rule;
2314 path = object;
2315
2316 path->attr->origin = *origin;
2317 }
2318
2319 return RMAP_OKAY;
2320 }
2321
2322 /* Compile function for origin set. */
2323 static void *route_set_origin_compile(const char *arg)
2324 {
2325 uint8_t *origin;
2326
2327 origin = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(uint8_t));
2328
2329 if (strcmp(arg, "igp") == 0)
2330 *origin = 0;
2331 else if (strcmp(arg, "egp") == 0)
2332 *origin = 1;
2333 else
2334 *origin = 2;
2335
2336 return origin;
2337 }
2338
2339 /* Compile function for origin set. */
2340 static void route_set_origin_free(void *rule)
2341 {
2342 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2343 }
2344
2345 /* Set origin rule structure. */
2346 struct route_map_rule_cmd route_set_origin_cmd = {
2347 "origin", route_set_origin, route_set_origin_compile,
2348 route_set_origin_free,
2349 };
2350
2351 /* `set atomic-aggregate' */
2352
2353 /* For atomic aggregate set. */
2354 static enum route_map_cmd_result_t
2355 route_set_atomic_aggregate(void *rule, const struct prefix *pfx,
2356 route_map_object_t type, void *object)
2357 {
2358 struct bgp_path_info *path;
2359
2360 if (type == RMAP_BGP) {
2361 path = object;
2362 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_ATOMIC_AGGREGATE);
2363 }
2364
2365 return RMAP_OKAY;
2366 }
2367
2368 /* Compile function for atomic aggregate. */
2369 static void *route_set_atomic_aggregate_compile(const char *arg)
2370 {
2371 return (void *)1;
2372 }
2373
2374 /* Compile function for atomic aggregate. */
2375 static void route_set_atomic_aggregate_free(void *rule)
2376 {
2377 return;
2378 }
2379
2380 /* Set atomic aggregate rule structure. */
2381 struct route_map_rule_cmd route_set_atomic_aggregate_cmd = {
2382 "atomic-aggregate", route_set_atomic_aggregate,
2383 route_set_atomic_aggregate_compile, route_set_atomic_aggregate_free,
2384 };
2385
2386 /* `set aggregator as AS A.B.C.D' */
2387 struct aggregator {
2388 as_t as;
2389 struct in_addr address;
2390 };
2391
2392 static enum route_map_cmd_result_t
2393 route_set_aggregator_as(void *rule, const struct prefix *prefix,
2394 route_map_object_t type, void *object)
2395 {
2396 struct bgp_path_info *path;
2397 struct aggregator *aggregator;
2398
2399 if (type == RMAP_BGP) {
2400 path = object;
2401 aggregator = rule;
2402
2403 path->attr->aggregator_as = aggregator->as;
2404 path->attr->aggregator_addr = aggregator->address;
2405 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_AGGREGATOR);
2406 }
2407
2408 return RMAP_OKAY;
2409 }
2410
2411 static void *route_set_aggregator_as_compile(const char *arg)
2412 {
2413 struct aggregator *aggregator;
2414 char as[10];
2415 char address[20];
2416 int ret;
2417
2418 aggregator =
2419 XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct aggregator));
2420 if (sscanf(arg, "%s %s", as, address) != 2) {
2421 XFREE(MTYPE_ROUTE_MAP_COMPILED, aggregator);
2422 return NULL;
2423 }
2424
2425 aggregator->as = strtoul(as, NULL, 10);
2426 ret = inet_aton(address, &aggregator->address);
2427 if (ret == 0) {
2428 XFREE(MTYPE_ROUTE_MAP_COMPILED, aggregator);
2429 return NULL;
2430 }
2431 return aggregator;
2432 }
2433
2434 static void route_set_aggregator_as_free(void *rule)
2435 {
2436 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2437 }
2438
2439 struct route_map_rule_cmd route_set_aggregator_as_cmd = {
2440 "aggregator as", route_set_aggregator_as,
2441 route_set_aggregator_as_compile, route_set_aggregator_as_free,
2442 };
2443
2444 /* Set tag to object. object must be pointer to struct bgp_path_info */
2445 static enum route_map_cmd_result_t
2446 route_set_tag(void *rule, const struct prefix *prefix,
2447 route_map_object_t type, void *object)
2448 {
2449 route_tag_t *tag;
2450 struct bgp_path_info *path;
2451
2452 if (type == RMAP_BGP) {
2453 tag = rule;
2454 path = object;
2455
2456 /* Set tag value */
2457 path->attr->tag = *tag;
2458 }
2459
2460 return RMAP_OKAY;
2461 }
2462
2463 /* Route map commands for tag set. */
2464 static struct route_map_rule_cmd route_set_tag_cmd = {
2465 "tag", route_set_tag, route_map_rule_tag_compile,
2466 route_map_rule_tag_free,
2467 };
2468
2469 /* Set label-index to object. object must be pointer to struct bgp_path_info */
2470 static enum route_map_cmd_result_t
2471 route_set_label_index(void *rule, const struct prefix *prefix,
2472 route_map_object_t type, void *object)
2473 {
2474 struct rmap_value *rv;
2475 struct bgp_path_info *path;
2476 uint32_t label_index;
2477
2478 if (type == RMAP_BGP) {
2479 /* Fetch routemap's rule information. */
2480 rv = rule;
2481 path = object;
2482
2483 /* Set label-index value. */
2484 label_index = rv->value;
2485 if (label_index) {
2486 path->attr->label_index = label_index;
2487 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_PREFIX_SID);
2488 }
2489 }
2490
2491 return RMAP_OKAY;
2492 }
2493
2494 /* Route map commands for label-index set. */
2495 static struct route_map_rule_cmd route_set_label_index_cmd = {
2496 "label-index", route_set_label_index, route_value_compile,
2497 route_value_free,
2498 };
2499
2500 /* `match ipv6 address IP_ACCESS_LIST' */
2501
2502 static enum route_map_cmd_result_t
2503 route_match_ipv6_address(void *rule, const struct prefix *prefix,
2504 route_map_object_t type, void *object)
2505 {
2506 struct access_list *alist;
2507
2508 if (type == RMAP_BGP && prefix->family == AF_INET6) {
2509 alist = access_list_lookup(AFI_IP6, (char *)rule);
2510 if (alist == NULL)
2511 return RMAP_NOMATCH;
2512
2513 return (access_list_apply(alist, prefix) == FILTER_DENY
2514 ? RMAP_NOMATCH
2515 : RMAP_MATCH);
2516 }
2517 return RMAP_NOMATCH;
2518 }
2519
2520 static void *route_match_ipv6_address_compile(const char *arg)
2521 {
2522 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
2523 }
2524
2525 static void route_match_ipv6_address_free(void *rule)
2526 {
2527 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2528 }
2529
2530 /* Route map commands for ip address matching. */
2531 struct route_map_rule_cmd route_match_ipv6_address_cmd = {
2532 "ipv6 address", route_match_ipv6_address,
2533 route_match_ipv6_address_compile, route_match_ipv6_address_free};
2534
2535 /* `match ipv6 next-hop IP_ADDRESS' */
2536
2537 static enum route_map_cmd_result_t
2538 route_match_ipv6_next_hop(void *rule, const struct prefix *prefix,
2539 route_map_object_t type, void *object)
2540 {
2541 struct in6_addr *addr = rule;
2542 struct bgp_path_info *path;
2543
2544 if (type == RMAP_BGP) {
2545 path = object;
2546
2547 if (IPV6_ADDR_SAME(&path->attr->mp_nexthop_global, addr))
2548 return RMAP_MATCH;
2549
2550 if (path->attr->mp_nexthop_len
2551 == BGP_ATTR_NHLEN_IPV6_GLOBAL_AND_LL
2552 && IPV6_ADDR_SAME(&path->attr->mp_nexthop_local, rule))
2553 return RMAP_MATCH;
2554
2555 return RMAP_NOMATCH;
2556 }
2557
2558 return RMAP_NOMATCH;
2559 }
2560
2561 static void *route_match_ipv6_next_hop_compile(const char *arg)
2562 {
2563 struct in6_addr *address;
2564 int ret;
2565
2566 address = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct in6_addr));
2567
2568 ret = inet_pton(AF_INET6, arg, address);
2569 if (!ret) {
2570 XFREE(MTYPE_ROUTE_MAP_COMPILED, address);
2571 return NULL;
2572 }
2573
2574 return address;
2575 }
2576
2577 static void route_match_ipv6_next_hop_free(void *rule)
2578 {
2579 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2580 }
2581
2582 struct route_map_rule_cmd route_match_ipv6_next_hop_cmd = {
2583 "ipv6 next-hop", route_match_ipv6_next_hop,
2584 route_match_ipv6_next_hop_compile, route_match_ipv6_next_hop_free};
2585
2586 /* `match ipv6 address prefix-list PREFIX_LIST' */
2587
2588 static enum route_map_cmd_result_t
2589 route_match_ipv6_address_prefix_list(void *rule, const struct prefix *prefix,
2590 route_map_object_t type, void *object)
2591 {
2592 return route_match_address_prefix_list(rule, AFI_IP6, prefix, type,
2593 object);
2594 }
2595
2596 static void *route_match_ipv6_address_prefix_list_compile(const char *arg)
2597 {
2598 return XSTRDUP(MTYPE_ROUTE_MAP_COMPILED, arg);
2599 }
2600
2601 static void route_match_ipv6_address_prefix_list_free(void *rule)
2602 {
2603 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2604 }
2605
2606 struct route_map_rule_cmd route_match_ipv6_address_prefix_list_cmd = {
2607 "ipv6 address prefix-list", route_match_ipv6_address_prefix_list,
2608 route_match_ipv6_address_prefix_list_compile,
2609 route_match_ipv6_address_prefix_list_free};
2610
2611 /* `match ipv6 next-hop type <TYPE>' */
2612
2613 static enum route_map_cmd_result_t
2614 route_match_ipv6_next_hop_type(void *rule, const struct prefix *prefix,
2615 route_map_object_t type, void *object)
2616 {
2617 struct bgp_path_info *path;
2618 struct in6_addr *addr = rule;
2619
2620 if (type == RMAP_BGP && prefix->family == AF_INET6) {
2621 path = (struct bgp_path_info *)object;
2622 if (!path || !path->attr)
2623 return RMAP_NOMATCH;
2624
2625 if (IPV6_ADDR_SAME(&path->attr->mp_nexthop_global, addr)
2626 && !path->attr->nh_ifindex)
2627 return RMAP_MATCH;
2628 }
2629 return RMAP_NOMATCH;
2630 }
2631
2632 static void *route_match_ipv6_next_hop_type_compile(const char *arg)
2633 {
2634 struct in6_addr *address;
2635 int ret;
2636
2637 address = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct in6_addr));
2638
2639 ret = inet_pton(AF_INET6, "::0", address);
2640 if (!ret) {
2641 XFREE(MTYPE_ROUTE_MAP_COMPILED, address);
2642 return NULL;
2643 }
2644
2645 return address;
2646 }
2647
2648 static void route_match_ipv6_next_hop_type_free(void *rule)
2649 {
2650 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2651 }
2652
2653 struct route_map_rule_cmd route_match_ipv6_next_hop_type_cmd = {
2654 "ipv6 next-hop type", route_match_ipv6_next_hop_type,
2655 route_match_ipv6_next_hop_type_compile,
2656 route_match_ipv6_next_hop_type_free};
2657
2658 /* `set ipv6 nexthop global IP_ADDRESS' */
2659
2660 /* Set nexthop to object. ojbect must be pointer to struct attr. */
2661 static enum route_map_cmd_result_t
2662 route_set_ipv6_nexthop_global(void *rule, const struct prefix *p,
2663 route_map_object_t type, void *object)
2664 {
2665 struct in6_addr *address;
2666 struct bgp_path_info *path;
2667
2668 if (type == RMAP_BGP) {
2669 /* Fetch routemap's rule information. */
2670 address = rule;
2671 path = object;
2672
2673 /* Set next hop value. */
2674 path->attr->mp_nexthop_global = *address;
2675
2676 /* Set nexthop length. */
2677 if (path->attr->mp_nexthop_len == 0)
2678 path->attr->mp_nexthop_len = BGP_ATTR_NHLEN_IPV6_GLOBAL;
2679
2680 SET_FLAG(path->attr->rmap_change_flags,
2681 BATTR_RMAP_IPV6_GLOBAL_NHOP_CHANGED);
2682 }
2683
2684 return RMAP_OKAY;
2685 }
2686
2687 /* Route map `ip next-hop' compile function. Given string is converted
2688 to struct in_addr structure. */
2689 static void *route_set_ipv6_nexthop_global_compile(const char *arg)
2690 {
2691 int ret;
2692 struct in6_addr *address;
2693
2694 address = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct in6_addr));
2695
2696 ret = inet_pton(AF_INET6, arg, address);
2697
2698 if (ret == 0) {
2699 XFREE(MTYPE_ROUTE_MAP_COMPILED, address);
2700 return NULL;
2701 }
2702
2703 return address;
2704 }
2705
2706 /* Free route map's compiled `ip next-hop' value. */
2707 static void route_set_ipv6_nexthop_global_free(void *rule)
2708 {
2709 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2710 }
2711
2712 /* Route map commands for ip nexthop set. */
2713 struct route_map_rule_cmd route_set_ipv6_nexthop_global_cmd = {
2714 "ipv6 next-hop global", route_set_ipv6_nexthop_global,
2715 route_set_ipv6_nexthop_global_compile,
2716 route_set_ipv6_nexthop_global_free};
2717
2718 /* Set next-hop preference value. */
2719 static enum route_map_cmd_result_t
2720 route_set_ipv6_nexthop_prefer_global(void *rule, const struct prefix *prefix,
2721 route_map_object_t type, void *object)
2722 {
2723 struct bgp_path_info *path;
2724 struct peer *peer;
2725
2726 if (type == RMAP_BGP) {
2727 /* Fetch routemap's rule information. */
2728 path = object;
2729 peer = path->peer;
2730
2731 if ((CHECK_FLAG(peer->rmap_type, PEER_RMAP_TYPE_IN)
2732 || CHECK_FLAG(peer->rmap_type, PEER_RMAP_TYPE_IMPORT))
2733 && peer->su_remote
2734 && sockunion_family(peer->su_remote) == AF_INET6) {
2735 /* Set next hop preference to global */
2736 path->attr->mp_nexthop_prefer_global = true;
2737 SET_FLAG(path->attr->rmap_change_flags,
2738 BATTR_RMAP_IPV6_PREFER_GLOBAL_CHANGED);
2739 } else {
2740 path->attr->mp_nexthop_prefer_global = false;
2741 SET_FLAG(path->attr->rmap_change_flags,
2742 BATTR_RMAP_IPV6_PREFER_GLOBAL_CHANGED);
2743 }
2744 }
2745 return RMAP_OKAY;
2746 }
2747
2748 static void *route_set_ipv6_nexthop_prefer_global_compile(const char *arg)
2749 {
2750 int *rins = NULL;
2751
2752 rins = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(int));
2753 *rins = 1;
2754
2755 return rins;
2756 }
2757
2758 /* Free route map's compiled `ip next-hop' value. */
2759 static void route_set_ipv6_nexthop_prefer_global_free(void *rule)
2760 {
2761 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2762 }
2763
2764 /* Route map commands for ip nexthop set preferred. */
2765 struct route_map_rule_cmd route_set_ipv6_nexthop_prefer_global_cmd = {
2766 "ipv6 next-hop prefer-global", route_set_ipv6_nexthop_prefer_global,
2767 route_set_ipv6_nexthop_prefer_global_compile,
2768 route_set_ipv6_nexthop_prefer_global_free};
2769
2770 /* `set ipv6 nexthop local IP_ADDRESS' */
2771
2772 /* Set nexthop to object. ojbect must be pointer to struct attr. */
2773 static enum route_map_cmd_result_t
2774 route_set_ipv6_nexthop_local(void *rule, const struct prefix *p,
2775 route_map_object_t type, void *object)
2776 {
2777 struct in6_addr *address;
2778 struct bgp_path_info *path;
2779
2780 if (type == RMAP_BGP) {
2781 /* Fetch routemap's rule information. */
2782 address = rule;
2783 path = object;
2784
2785 /* Set next hop value. */
2786 path->attr->mp_nexthop_local = *address;
2787
2788 /* Set nexthop length. */
2789 if (path->attr->mp_nexthop_len
2790 != BGP_ATTR_NHLEN_IPV6_GLOBAL_AND_LL)
2791 path->attr->mp_nexthop_len =
2792 BGP_ATTR_NHLEN_IPV6_GLOBAL_AND_LL;
2793
2794 SET_FLAG(path->attr->rmap_change_flags,
2795 BATTR_RMAP_IPV6_LL_NHOP_CHANGED);
2796 }
2797
2798 return RMAP_OKAY;
2799 }
2800
2801 /* Route map `ip nexthop' compile function. Given string is converted
2802 to struct in_addr structure. */
2803 static void *route_set_ipv6_nexthop_local_compile(const char *arg)
2804 {
2805 int ret;
2806 struct in6_addr *address;
2807
2808 address = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct in6_addr));
2809
2810 ret = inet_pton(AF_INET6, arg, address);
2811
2812 if (ret == 0) {
2813 XFREE(MTYPE_ROUTE_MAP_COMPILED, address);
2814 return NULL;
2815 }
2816
2817 return address;
2818 }
2819
2820 /* Free route map's compiled `ip nexthop' value. */
2821 static void route_set_ipv6_nexthop_local_free(void *rule)
2822 {
2823 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2824 }
2825
2826 /* Route map commands for ip nexthop set. */
2827 struct route_map_rule_cmd route_set_ipv6_nexthop_local_cmd = {
2828 "ipv6 next-hop local", route_set_ipv6_nexthop_local,
2829 route_set_ipv6_nexthop_local_compile,
2830 route_set_ipv6_nexthop_local_free};
2831
2832 /* `set ipv6 nexthop peer-address' */
2833
2834 /* Set nexthop to object. ojbect must be pointer to struct attr. */
2835 static enum route_map_cmd_result_t
2836 route_set_ipv6_nexthop_peer(void *rule, const struct prefix *pfx,
2837 route_map_object_t type, void *object)
2838 {
2839 struct in6_addr peer_address;
2840 struct bgp_path_info *path;
2841 struct peer *peer;
2842
2843 if (type == RMAP_BGP) {
2844 /* Fetch routemap's rule information. */
2845 path = object;
2846 peer = path->peer;
2847
2848 if ((CHECK_FLAG(peer->rmap_type, PEER_RMAP_TYPE_IN)
2849 || CHECK_FLAG(peer->rmap_type, PEER_RMAP_TYPE_IMPORT))
2850 && peer->su_remote
2851 && sockunion_family(peer->su_remote) == AF_INET6) {
2852 peer_address = peer->su_remote->sin6.sin6_addr;
2853 /* Set next hop value and length in attribute. */
2854 if (IN6_IS_ADDR_LINKLOCAL(&peer_address)) {
2855 path->attr->mp_nexthop_local = peer_address;
2856 if (path->attr->mp_nexthop_len != 32)
2857 path->attr->mp_nexthop_len = 32;
2858 } else {
2859 path->attr->mp_nexthop_global = peer_address;
2860 if (path->attr->mp_nexthop_len == 0)
2861 path->attr->mp_nexthop_len = 16;
2862 }
2863
2864 } else if (CHECK_FLAG(peer->rmap_type, PEER_RMAP_TYPE_OUT)) {
2865 /* The next hop value will be set as part of packet
2866 * rewrite.
2867 * Set the flags here to indicate that rewrite needs to
2868 * be done.
2869 * Also, clear the value - we clear both global and
2870 * link-local
2871 * nexthops, whether we send one or both is determined
2872 * elsewhere.
2873 */
2874 SET_FLAG(path->attr->rmap_change_flags,
2875 BATTR_RMAP_NEXTHOP_PEER_ADDRESS);
2876 /* clear next hop value. */
2877 memset(&(path->attr->mp_nexthop_global), 0,
2878 sizeof(struct in6_addr));
2879 memset(&(path->attr->mp_nexthop_local), 0,
2880 sizeof(struct in6_addr));
2881 }
2882 }
2883
2884 return RMAP_OKAY;
2885 }
2886
2887 /* Route map `ip next-hop' compile function. Given string is converted
2888 to struct in_addr structure. */
2889 static void *route_set_ipv6_nexthop_peer_compile(const char *arg)
2890 {
2891 int *rins = NULL;
2892
2893 rins = XCALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(int));
2894 *rins = 1;
2895
2896 return rins;
2897 }
2898
2899 /* Free route map's compiled `ip next-hop' value. */
2900 static void route_set_ipv6_nexthop_peer_free(void *rule)
2901 {
2902 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2903 }
2904
2905 /* Route map commands for ip nexthop set. */
2906 struct route_map_rule_cmd route_set_ipv6_nexthop_peer_cmd = {
2907 "ipv6 next-hop peer-address", route_set_ipv6_nexthop_peer,
2908 route_set_ipv6_nexthop_peer_compile, route_set_ipv6_nexthop_peer_free};
2909
2910 /* `set ipv4 vpn next-hop A.B.C.D' */
2911
2912 static enum route_map_cmd_result_t
2913 route_set_vpnv4_nexthop(void *rule, const struct prefix *prefix,
2914 route_map_object_t type, void *object)
2915 {
2916 struct in_addr *address;
2917 struct bgp_path_info *path;
2918
2919 if (type == RMAP_BGP) {
2920 /* Fetch routemap's rule information. */
2921 address = rule;
2922 path = object;
2923
2924 /* Set next hop value. */
2925 path->attr->mp_nexthop_global_in = *address;
2926 path->attr->mp_nexthop_len = 4;
2927 }
2928
2929 return RMAP_OKAY;
2930 }
2931
2932 static void *route_set_vpnv4_nexthop_compile(const char *arg)
2933 {
2934 int ret;
2935 struct in_addr *address;
2936
2937 address = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct in_addr));
2938
2939 ret = inet_aton(arg, address);
2940
2941 if (ret == 0) {
2942 XFREE(MTYPE_ROUTE_MAP_COMPILED, address);
2943 return NULL;
2944 }
2945
2946 return address;
2947 }
2948
2949 /* `set ipv6 vpn next-hop A.B.C.D' */
2950
2951 static enum route_map_cmd_result_t
2952 route_set_vpnv6_nexthop(void *rule, const struct prefix *prefix,
2953 route_map_object_t type, void *object)
2954 {
2955 struct in6_addr *address;
2956 struct bgp_path_info *path;
2957
2958 if (type == RMAP_BGP) {
2959 /* Fetch routemap's rule information. */
2960 address = rule;
2961 path = object;
2962
2963 /* Set next hop value. */
2964 memcpy(&path->attr->mp_nexthop_global, address,
2965 sizeof(struct in6_addr));
2966 path->attr->mp_nexthop_len = BGP_ATTR_NHLEN_VPNV6_GLOBAL;
2967 }
2968
2969 return RMAP_OKAY;
2970 }
2971
2972 static void *route_set_vpnv6_nexthop_compile(const char *arg)
2973 {
2974 int ret;
2975 struct in6_addr *address;
2976
2977 address = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct in6_addr));
2978 ret = inet_pton(AF_INET6, arg, address);
2979
2980 if (ret == 0) {
2981 XFREE(MTYPE_ROUTE_MAP_COMPILED, address);
2982 return NULL;
2983 }
2984
2985 return address;
2986 }
2987
2988 static void route_set_vpn_nexthop_free(void *rule)
2989 {
2990 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
2991 }
2992
2993 /* Route map commands for ipv4 next-hop set. */
2994 struct route_map_rule_cmd route_set_vpnv4_nexthop_cmd = {
2995 "ipv4 vpn next-hop", route_set_vpnv4_nexthop,
2996 route_set_vpnv4_nexthop_compile, route_set_vpn_nexthop_free};
2997
2998 /* Route map commands for ipv6 next-hop set. */
2999 struct route_map_rule_cmd route_set_vpnv6_nexthop_cmd = {
3000 "ipv6 vpn next-hop", route_set_vpnv6_nexthop,
3001 route_set_vpnv6_nexthop_compile, route_set_vpn_nexthop_free};
3002
3003 /* `set originator-id' */
3004
3005 /* For origin set. */
3006 static enum route_map_cmd_result_t
3007 route_set_originator_id(void *rule, const struct prefix *prefix,
3008 route_map_object_t type, void *object)
3009 {
3010 struct in_addr *address;
3011 struct bgp_path_info *path;
3012
3013 if (type == RMAP_BGP) {
3014 address = rule;
3015 path = object;
3016
3017 path->attr->flag |= ATTR_FLAG_BIT(BGP_ATTR_ORIGINATOR_ID);
3018 path->attr->originator_id = *address;
3019 }
3020
3021 return RMAP_OKAY;
3022 }
3023
3024 /* Compile function for originator-id set. */
3025 static void *route_set_originator_id_compile(const char *arg)
3026 {
3027 int ret;
3028 struct in_addr *address;
3029
3030 address = XMALLOC(MTYPE_ROUTE_MAP_COMPILED, sizeof(struct in_addr));
3031
3032 ret = inet_aton(arg, address);
3033
3034 if (ret == 0) {
3035 XFREE(MTYPE_ROUTE_MAP_COMPILED, address);
3036 return NULL;
3037 }
3038
3039 return address;
3040 }
3041
3042 /* Compile function for originator_id set. */
3043 static void route_set_originator_id_free(void *rule)
3044 {
3045 XFREE(MTYPE_ROUTE_MAP_COMPILED, rule);
3046 }
3047
3048 /* Set originator-id rule structure. */
3049 struct route_map_rule_cmd route_set_originator_id_cmd = {
3050 "originator-id", route_set_originator_id,
3051 route_set_originator_id_compile, route_set_originator_id_free,
3052 };
3053
3054 /* Add bgp route map rule. */
3055 static int bgp_route_match_add(struct vty *vty, const char *command,
3056 const char *arg, route_map_event_t type)
3057 {
3058 VTY_DECLVAR_CONTEXT(route_map_index, index);
3059 int retval = CMD_SUCCESS;
3060 enum rmap_compile_rets ret;
3061
3062 ret = route_map_add_match(index, command, arg, type);
3063 switch (ret) {
3064 case RMAP_RULE_MISSING:
3065 vty_out(vty, "%% BGP Can't find rule.\n");
3066 retval = CMD_WARNING_CONFIG_FAILED;
3067 break;
3068 case RMAP_COMPILE_ERROR:
3069 vty_out(vty, "%% BGP Argument is malformed.\n");
3070 retval = CMD_WARNING_CONFIG_FAILED;
3071 break;
3072 case RMAP_COMPILE_SUCCESS:
3073 if (type != RMAP_EVENT_MATCH_ADDED) {
3074 route_map_upd8_dependency(type, arg, index->map->name);
3075 }
3076 break;
3077 case RMAP_DUPLICATE_RULE:
3078 /*
3079 * Intentionally doing nothing here.
3080 */
3081 break;
3082 }
3083
3084 return retval;
3085 }
3086
3087 /* Delete bgp route map rule. */
3088 static int bgp_route_match_delete(struct vty *vty, const char *command,
3089 const char *arg, route_map_event_t type)
3090 {
3091 VTY_DECLVAR_CONTEXT(route_map_index, index);
3092 enum rmap_compile_rets ret;
3093 int retval = CMD_SUCCESS;
3094 char *dep_name = NULL;
3095 const char *tmpstr;
3096 char *rmap_name = NULL;
3097
3098 if (type != RMAP_EVENT_MATCH_DELETED) {
3099 /* ignore the mundane, the types without any dependency */
3100 if (arg == NULL) {
3101 if ((tmpstr = route_map_get_match_arg(index, command))
3102 != NULL)
3103 dep_name =
3104 XSTRDUP(MTYPE_ROUTE_MAP_RULE, tmpstr);
3105 } else {
3106 dep_name = XSTRDUP(MTYPE_ROUTE_MAP_RULE, arg);
3107 }
3108 rmap_name = XSTRDUP(MTYPE_ROUTE_MAP_NAME, index->map->name);
3109 }
3110
3111 ret = route_map_delete_match(index, command, dep_name);
3112 switch (ret) {
3113 case RMAP_RULE_MISSING:
3114 vty_out(vty, "%% BGP Can't find rule.\n");
3115 retval = CMD_WARNING_CONFIG_FAILED;
3116 break;
3117 case RMAP_COMPILE_ERROR:
3118 vty_out(vty, "%% BGP Argument is malformed.\n");
3119 retval = CMD_WARNING_CONFIG_FAILED;
3120 break;
3121 case RMAP_COMPILE_SUCCESS:
3122 if (type != RMAP_EVENT_MATCH_DELETED && dep_name)
3123 route_map_upd8_dependency(type, dep_name, rmap_name);
3124 break;
3125 case RMAP_DUPLICATE_RULE:
3126 /*
3127 * Nothing to do here
3128 */
3129 break;
3130 }
3131
3132 XFREE(MTYPE_ROUTE_MAP_RULE, dep_name);
3133 XFREE(MTYPE_ROUTE_MAP_NAME, rmap_name);
3134
3135 return retval;
3136 }
3137
3138 /*
3139 * This is the workhorse routine for processing in/out routemap
3140 * modifications.
3141 */
3142 static void bgp_route_map_process_peer(const char *rmap_name,
3143 struct route_map *map, struct peer *peer,
3144 int afi, int safi, int route_update)
3145 {
3146 struct bgp_filter *filter;
3147
3148 if (!peer || !rmap_name)
3149 return;
3150
3151 filter = &peer->filter[afi][safi];
3152 /*
3153 * in is for non-route-server clients,
3154 * out is for all peers
3155 */
3156 if (filter->map[RMAP_IN].name
3157 && (strcmp(rmap_name, filter->map[RMAP_IN].name) == 0)) {
3158 filter->map[RMAP_IN].map = map;
3159
3160 if (route_update && peer->status == Established) {
3161 if (CHECK_FLAG(peer->af_flags[afi][safi],
3162 PEER_FLAG_SOFT_RECONFIG)) {
3163 if (bgp_debug_update(peer, NULL, NULL, 1))
3164 zlog_debug(
3165 "Processing route_map %s update on peer %s (inbound, soft-reconfig)",
3166 rmap_name, peer->host);
3167
3168 bgp_soft_reconfig_in(peer, afi, safi);
3169 } else if (CHECK_FLAG(peer->cap,
3170 PEER_CAP_REFRESH_OLD_RCV)
3171 || CHECK_FLAG(peer->cap,
3172 PEER_CAP_REFRESH_NEW_RCV)) {
3173 if (bgp_debug_update(peer, NULL, NULL, 1))
3174 zlog_debug(
3175 "Processing route_map %s update on peer %s (inbound, route-refresh)",
3176 rmap_name, peer->host);
3177 bgp_route_refresh_send(peer, afi, safi, 0, 0,
3178 0);
3179 }
3180 }
3181 }
3182
3183 /*
3184 * For outbound, unsuppress and default-originate map change (content or
3185 * map created), merely update the "config" here, the actual route
3186 * announcement happens at the group level.
3187 */
3188 if (filter->map[RMAP_OUT].name
3189 && (strcmp(rmap_name, filter->map[RMAP_OUT].name) == 0))
3190 filter->map[RMAP_OUT].map = map;
3191
3192 if (filter->usmap.name && (strcmp(rmap_name, filter->usmap.name) == 0))
3193 filter->usmap.map = map;
3194
3195 if (peer->default_rmap[afi][safi].name
3196 && (strcmp(rmap_name, peer->default_rmap[afi][safi].name) == 0))
3197 peer->default_rmap[afi][safi].map = map;
3198 }
3199
3200 static void bgp_route_map_update_peer_group(const char *rmap_name,
3201 struct route_map *map,
3202 struct bgp *bgp)
3203 {
3204 struct peer_group *group;
3205 struct listnode *node, *nnode;
3206 struct bgp_filter *filter;
3207 int afi, safi;
3208 int direct;
3209
3210 if (!bgp)
3211 return;
3212
3213 /* All the peers have been updated correctly already. This is
3214 * just updating the placeholder data. No real update required.
3215 */
3216 for (ALL_LIST_ELEMENTS(bgp->group, node, nnode, group)) {
3217 FOREACH_AFI_SAFI (afi, safi) {
3218 filter = &group->conf->filter[afi][safi];
3219
3220 for (direct = RMAP_IN; direct < RMAP_MAX; direct++) {
3221 if ((filter->map[direct].name)
3222 && (strcmp(rmap_name,
3223 filter->map[direct].name)
3224 == 0))
3225 filter->map[direct].map = map;
3226 }
3227
3228 if (filter->usmap.name
3229 && (strcmp(rmap_name, filter->usmap.name) == 0))
3230 filter->usmap.map = map;
3231 }
3232 }
3233 }
3234
3235 /*
3236 * Note that if an extreme number (tens of thousands) of route-maps are in use
3237 * and if bgp has an extreme number of peers, network statements, etc then this
3238 * function can consume a lot of cycles. This is due to this function being
3239 * called for each route-map and within this function we walk the list of peers,
3240 * network statements, etc looking to see if they use this route-map.
3241 */
3242 static void bgp_route_map_process_update(struct bgp *bgp, const char *rmap_name,
3243 int route_update)
3244 {
3245 int i;
3246 afi_t afi;
3247 safi_t safi;
3248 struct peer *peer;
3249 struct bgp_node *bn;
3250 struct bgp_static *bgp_static;
3251 struct listnode *node, *nnode;
3252 struct route_map *map;
3253 char buf[INET6_ADDRSTRLEN];
3254
3255 map = route_map_lookup_by_name(rmap_name);
3256
3257 for (ALL_LIST_ELEMENTS(bgp->peer, node, nnode, peer)) {
3258
3259 /* Ignore dummy peer-group structure */
3260 if (CHECK_FLAG(peer->sflags, PEER_STATUS_GROUP))
3261 continue;
3262
3263 FOREACH_AFI_SAFI (afi, safi) {
3264 /* process in/out/import/export/default-orig
3265 * route-maps */
3266 bgp_route_map_process_peer(rmap_name, map, peer, afi,
3267 safi, route_update);
3268 }
3269 }
3270
3271 /* for outbound/default-orig route-maps, process for groups */
3272 update_group_policy_update(bgp, BGP_POLICY_ROUTE_MAP, rmap_name,
3273 route_update, 0);
3274
3275 /* update peer-group config (template) */
3276 bgp_route_map_update_peer_group(rmap_name, map, bgp);
3277
3278 FOREACH_AFI_SAFI (afi, safi) {
3279 /* For table route-map updates. */
3280 if (!bgp_fibupd_safi(safi))
3281 continue;
3282
3283 if (bgp->table_map[afi][safi].name
3284 && (strcmp(rmap_name, bgp->table_map[afi][safi].name)
3285 == 0)) {
3286
3287 /* bgp->table_map[afi][safi].map is NULL.
3288 * i.e Route map creation event.
3289 * So update applied_counter.
3290 * If it is not NULL, i.e It may be routemap updation or
3291 * deletion. so no need to update the counter.
3292 */
3293 if (!bgp->table_map[afi][safi].map)
3294 route_map_counter_increment(map);
3295 bgp->table_map[afi][safi].map = map;
3296
3297 if (BGP_DEBUG(zebra, ZEBRA))
3298 zlog_debug(
3299 "Processing route_map %s update on "
3300 "table map",
3301 rmap_name);
3302 if (route_update)
3303 bgp_zebra_announce_table(bgp, afi, safi);
3304 }
3305
3306 /* For network route-map updates. */
3307 for (bn = bgp_table_top(bgp->route[afi][safi]); bn;
3308 bn = bgp_route_next(bn)) {
3309 bgp_static = bgp_node_get_bgp_static_info(bn);
3310 if (!bgp_static)
3311 continue;
3312
3313 if (!bgp_static->rmap.name
3314 || (strcmp(rmap_name, bgp_static->rmap.name) != 0))
3315 continue;
3316
3317 if (!bgp_static->rmap.map)
3318 route_map_counter_increment(map);
3319
3320 bgp_static->rmap.map = map;
3321
3322 if (route_update && !bgp_static->backdoor) {
3323 if (bgp_debug_zebra(&bn->p))
3324 zlog_debug(
3325 "Processing route_map %s update on static route %s",
3326 rmap_name,
3327 inet_ntop(bn->p.family,
3328 &bn->p.u.prefix, buf,
3329 INET6_ADDRSTRLEN));
3330 bgp_static_update(bgp, &bn->p, bgp_static, afi,
3331 safi);
3332 }
3333 }
3334 }
3335
3336 /* For redistribute route-map updates. */
3337 for (afi = AFI_IP; afi < AFI_MAX; afi++)
3338 for (i = 0; i < ZEBRA_ROUTE_MAX; i++) {
3339 struct list *red_list;
3340 struct bgp_redist *red;
3341
3342 red_list = bgp->redist[afi][i];
3343 if (!red_list)
3344 continue;
3345
3346 for (ALL_LIST_ELEMENTS_RO(red_list, node, red)) {
3347 if (!red->rmap.name
3348 || (strcmp(rmap_name, red->rmap.name) != 0))
3349 continue;
3350
3351 if (!red->rmap.map)
3352 route_map_counter_increment(map);
3353
3354 red->rmap.map = map;
3355
3356 if (!route_update)
3357 continue;
3358
3359 if (BGP_DEBUG(zebra, ZEBRA))
3360 zlog_debug(
3361 "Processing route_map %s update on redistributed routes",
3362 rmap_name);
3363
3364 bgp_redistribute_resend(bgp, afi, i,
3365 red->instance);
3366 }
3367 }
3368
3369 /* for type5 command route-maps */
3370 FOREACH_AFI_SAFI (afi, safi) {
3371 if (!bgp->adv_cmd_rmap[afi][safi].name
3372 || strcmp(rmap_name, bgp->adv_cmd_rmap[afi][safi].name)
3373 != 0)
3374 continue;
3375
3376 /* Make sure the route-map is populated here if not already done */
3377 bgp->adv_cmd_rmap[afi][safi].map = map;
3378
3379 if (BGP_DEBUG(zebra, ZEBRA))
3380 zlog_debug(
3381 "Processing route_map %s update on advertise type5 route command",
3382 rmap_name);
3383
3384 if (route_update && advertise_type5_routes(bgp, afi)) {
3385 bgp_evpn_withdraw_type5_routes(bgp, afi, safi);
3386 bgp_evpn_advertise_type5_routes(bgp, afi, safi);
3387 }
3388 }
3389 }
3390
3391 static void bgp_route_map_process_update_cb(char *rmap_name)
3392 {
3393 struct listnode *node, *nnode;
3394 struct bgp *bgp;
3395
3396 for (ALL_LIST_ELEMENTS(bm->bgp, node, nnode, bgp)) {
3397 bgp_route_map_process_update(bgp, rmap_name, 1);
3398
3399 #if ENABLE_BGP_VNC
3400 /* zlog_debug("%s: calling vnc_routemap_update", __func__); */
3401 vnc_routemap_update(bgp, __func__);
3402 #endif
3403 }
3404
3405 vpn_policy_routemap_event(rmap_name);
3406 }
3407
3408 int bgp_route_map_update_timer(struct thread *thread)
3409 {
3410 bm->t_rmap_update = NULL;
3411
3412 route_map_walk_update_list(bgp_route_map_process_update_cb);
3413
3414 return (0);
3415 }
3416
3417 static void bgp_route_map_mark_update(const char *rmap_name)
3418 {
3419 struct listnode *node, *nnode;
3420 struct bgp *bgp;
3421
3422 /* If new update is received before the current timer timed out,
3423 * turn it off and start a new timer.
3424 */
3425 if (bm->t_rmap_update != NULL)
3426 THREAD_OFF(bm->t_rmap_update);
3427
3428 /* rmap_update_timer of 0 means don't do route updates */
3429 if (bm->rmap_update_timer) {
3430 thread_add_timer(bm->master, bgp_route_map_update_timer,
3431 NULL, bm->rmap_update_timer,
3432 &bm->t_rmap_update);
3433
3434 /* Signal the groups that a route-map update event has
3435 * started */
3436 for (ALL_LIST_ELEMENTS(bm->bgp, node, nnode, bgp))
3437 update_group_policy_update(bgp,
3438 BGP_POLICY_ROUTE_MAP,
3439 rmap_name, 1, 1);
3440 } else {
3441 for (ALL_LIST_ELEMENTS(bm->bgp, node, nnode, bgp))
3442 bgp_route_map_process_update(bgp, rmap_name, 0);
3443 #if ENABLE_BGP_VNC
3444 zlog_debug("%s: calling vnc_routemap_update", __func__);
3445 vnc_routemap_update(bgp, __func__);
3446 #endif
3447 }
3448 }
3449
3450 static void bgp_route_map_add(const char *rmap_name)
3451 {
3452 if (route_map_mark_updated(rmap_name) == 0)
3453 bgp_route_map_mark_update(rmap_name);
3454
3455 route_map_notify_dependencies(rmap_name, RMAP_EVENT_MATCH_ADDED);
3456 }
3457
3458 static void bgp_route_map_delete(const char *rmap_name)
3459 {
3460 if (route_map_mark_updated(rmap_name) == 0)
3461 bgp_route_map_mark_update(rmap_name);
3462
3463 route_map_notify_dependencies(rmap_name, RMAP_EVENT_MATCH_DELETED);
3464 }
3465
3466 static void bgp_route_map_event(const char *rmap_name)
3467 {
3468 if (route_map_mark_updated(rmap_name) == 0)
3469 bgp_route_map_mark_update(rmap_name);
3470
3471 route_map_notify_dependencies(rmap_name, RMAP_EVENT_MATCH_ADDED);
3472 }
3473
3474 DEFUN (match_mac_address,
3475 match_mac_address_cmd,
3476 "match mac address WORD",
3477 MATCH_STR
3478 "mac address\n"
3479 "Match address of route\n"
3480 "MAC Access-list name\n")
3481 {
3482 return bgp_route_match_add(vty, "mac address", argv[3]->arg,
3483 RMAP_EVENT_FILTER_ADDED);
3484 }
3485
3486 DEFUN (no_match_mac_address,
3487 no_match_mac_address_cmd,
3488 "no match mac address WORD",
3489 NO_STR
3490 MATCH_STR
3491 "mac\n"
3492 "Match address of route\n"
3493 "MAC acess-list name\n")
3494 {
3495 return bgp_route_match_delete(vty, "mac address", argv[4]->arg,
3496 RMAP_EVENT_FILTER_DELETED);
3497 }
3498
3499 DEFUN (match_evpn_route_type,
3500 match_evpn_route_type_cmd,
3501 "match evpn route-type <macip | multicast | prefix>",
3502 MATCH_STR
3503 EVPN_HELP_STR
3504 "Match route-type\n"
3505 "mac-ip route\n"
3506 "IMET route\n"
3507 "prefix route\n")
3508 {
3509 return bgp_route_match_add(vty, "evpn route-type", argv[3]->arg,
3510 RMAP_EVENT_MATCH_ADDED);
3511 }
3512
3513 DEFUN (no_match_evpn_route_type,
3514 no_match_evpn_route_type_cmd,
3515 "no match evpn route-type <macip | multicast | prefix>",
3516 NO_STR
3517 MATCH_STR
3518 EVPN_HELP_STR
3519 "Match route-type\n"
3520 "mac-ip route\n"
3521 "IMET route\n"
3522 "prefix route\n")
3523 {
3524 return bgp_route_match_delete(vty, "evpn route-type", argv[4]->arg,
3525 RMAP_EVENT_MATCH_DELETED);
3526 }
3527
3528
3529 DEFUN (match_evpn_vni,
3530 match_evpn_vni_cmd,
3531 "match evpn vni " CMD_VNI_RANGE,
3532 MATCH_STR
3533 EVPN_HELP_STR
3534 "Match VNI\n"
3535 "VNI ID\n")
3536 {
3537 return bgp_route_match_add(vty, "evpn vni", argv[3]->arg,
3538 RMAP_EVENT_MATCH_ADDED);
3539 }
3540
3541 DEFUN (no_match_evpn_vni,
3542 no_match_evpn_vni_cmd,
3543 "no match evpn vni " CMD_VNI_RANGE,
3544 NO_STR
3545 MATCH_STR
3546 EVPN_HELP_STR
3547 "Match VNI\n"
3548 "VNI ID\n")
3549 {
3550 return bgp_route_match_delete(vty, "evpn vni", argv[4]->arg,
3551 RMAP_EVENT_MATCH_DELETED);
3552 }
3553
3554 DEFUN (match_evpn_default_route,
3555 match_evpn_default_route_cmd,
3556 "match evpn default-route",
3557 MATCH_STR
3558 EVPN_HELP_STR
3559 "default EVPN type-5 route\n")
3560 {
3561 return bgp_route_match_add(vty, "evpn default-route", NULL,
3562 RMAP_EVENT_MATCH_ADDED);
3563 }
3564
3565 DEFUN (no_match_evpn_default_route,
3566 no_match_evpn_default_route_cmd,
3567 "no match evpn default-route",
3568 NO_STR
3569 MATCH_STR
3570 EVPN_HELP_STR
3571 "default EVPN type-5 route\n")
3572 {
3573 return bgp_route_match_delete(vty, "evpn default-route", NULL,
3574 RMAP_EVENT_MATCH_DELETED);
3575 }
3576
3577 DEFPY(match_vrl_source_vrf,
3578 match_vrl_source_vrf_cmd,
3579 "match source-vrf NAME$vrf_name",
3580 MATCH_STR
3581 "source vrf\n"
3582 "The VRF name\n")
3583 {
3584 return bgp_route_match_add(vty, "source-vrf", vrf_name,
3585 RMAP_EVENT_MATCH_ADDED);
3586 }
3587
3588 DEFPY(no_match_vrl_source_vrf,
3589 no_match_vrl_source_vrf_cmd,
3590 "no match source-vrf NAME$vrf_name",
3591 NO_STR
3592 MATCH_STR
3593 "source vrf\n"
3594 "The VRF name\n")
3595 {
3596 return bgp_route_match_delete(vty, "source-vrf", vrf_name,
3597 RMAP_EVENT_MATCH_DELETED);
3598 }
3599
3600 DEFUN (match_peer,
3601 match_peer_cmd,
3602 "match peer <A.B.C.D|X:X::X:X|WORD>",
3603 MATCH_STR
3604 "Match peer address\n"
3605 "IP address of peer\n"
3606 "IPv6 address of peer\n"
3607 "Interface name of peer\n")
3608 {
3609 int idx_ip = 2;
3610 return bgp_route_match_add(vty, "peer", argv[idx_ip]->arg,
3611 RMAP_EVENT_MATCH_ADDED);
3612 }
3613
3614 DEFUN (match_peer_local,
3615 match_peer_local_cmd,
3616 "match peer local",
3617 MATCH_STR
3618 "Match peer address\n"
3619 "Static or Redistributed routes\n")
3620 {
3621 return bgp_route_match_add(vty, "peer", "local",
3622 RMAP_EVENT_MATCH_DELETED);
3623 }
3624
3625 DEFUN (no_match_peer,
3626 no_match_peer_cmd,
3627 "no match peer [<local|A.B.C.D|X:X::X:X|WORD>]",
3628 NO_STR
3629 MATCH_STR
3630 "Match peer address\n"
3631 "Static or Redistributed routes\n"
3632 "IP address of peer\n"
3633 "IPv6 address of peer\n"
3634 "Interface name of peer\n")
3635 {
3636 int idx_peer = 3;
3637
3638 if (argc <= idx_peer)
3639 return bgp_route_match_delete(vty, "peer", NULL,
3640 RMAP_EVENT_MATCH_DELETED);
3641 return bgp_route_match_delete(vty, "peer", argv[idx_peer]->arg,
3642 RMAP_EVENT_MATCH_DELETED);
3643 }
3644
3645 #if defined(HAVE_LUA)
3646 DEFUN (match_command,
3647 match_command_cmd,
3648 "match command WORD",
3649 MATCH_STR
3650 "Run a command to match\n"
3651 "The command to run\n")
3652 {
3653 return bgp_route_match_add(vty, "command", argv[2]->arg,
3654 RMAP_EVENT_FILTER_ADDED);
3655 }
3656
3657 DEFUN (no_match_command,
3658 no_match_command_cmd,
3659 "no match command WORD",
3660 NO_STR
3661 MATCH_STR
3662 "Run a command to match\n"
3663 "The command to run\n")
3664 {
3665 return bgp_route_match_delete(vty, "command", argv[3]->arg,
3666 RMAP_EVENT_FILTER_DELETED);
3667 }
3668 #endif
3669
3670 /* match probability */
3671 DEFUN (match_probability,
3672 match_probability_cmd,
3673 "match probability (0-100)",
3674 MATCH_STR
3675 "Match portion of routes defined by percentage value\n"
3676 "Percentage of routes\n")
3677 {
3678 int idx_number = 2;
3679 return bgp_route_match_add(vty, "probability", argv[idx_number]->arg,
3680 RMAP_EVENT_MATCH_ADDED);
3681 }
3682
3683
3684 DEFUN (no_match_probability,
3685 no_match_probability_cmd,
3686 "no match probability [(1-99)]",
3687 NO_STR
3688 MATCH_STR
3689 "Match portion of routes defined by percentage value\n"
3690 "Percentage of routes\n")
3691 {
3692 int idx_number = 3;
3693 if (argc <= idx_number)
3694 return bgp_route_match_delete(vty, "probability", NULL,
3695 RMAP_EVENT_MATCH_DELETED);
3696 return bgp_route_match_delete(vty, "probability", argv[idx_number]->arg,
3697 RMAP_EVENT_MATCH_DELETED);
3698 }
3699
3700
3701 DEFUN (match_ip_route_source,
3702 match_ip_route_source_cmd,
3703 "match ip route-source <(1-199)|(1300-2699)|WORD>",
3704 MATCH_STR
3705 IP_STR
3706 "Match advertising source address of route\n"
3707 "IP access-list number\n"
3708 "IP access-list number (expanded range)\n"
3709 "IP standard access-list name\n")
3710 {
3711 int idx_acl = 3;
3712 return bgp_route_match_add(vty, "ip route-source", argv[idx_acl]->arg,
3713 RMAP_EVENT_FILTER_ADDED);
3714 }
3715
3716
3717 DEFUN (no_match_ip_route_source,
3718 no_match_ip_route_source_cmd,
3719 "no match ip route-source [<(1-199)|(1300-2699)|WORD>]",
3720 NO_STR
3721 MATCH_STR
3722 IP_STR
3723 "Match advertising source address of route\n"
3724 "IP access-list number\n"
3725 "IP access-list number (expanded range)\n"
3726 "IP standard access-list name\n")
3727 {
3728 int idx_number = 4;
3729 if (argc <= idx_number)
3730 return bgp_route_match_delete(vty, "ip route-source", NULL,
3731 RMAP_EVENT_FILTER_DELETED);
3732 return bgp_route_match_delete(vty, "ip route-source",
3733 argv[idx_number]->arg,
3734 RMAP_EVENT_FILTER_DELETED);
3735 }
3736
3737
3738 DEFUN (match_ip_route_source_prefix_list,
3739 match_ip_route_source_prefix_list_cmd,
3740 "match ip route-source prefix-list WORD",
3741 MATCH_STR
3742 IP_STR
3743 "Match advertising source address of route\n"
3744 "Match entries of prefix-lists\n"
3745 "IP prefix-list name\n")
3746 {
3747 int idx_word = 4;
3748 return bgp_route_match_add(vty, "ip route-source prefix-list",
3749 argv[idx_word]->arg, RMAP_EVENT_PLIST_ADDED);
3750 }
3751
3752
3753 DEFUN (no_match_ip_route_source_prefix_list,
3754 no_match_ip_route_source_prefix_list_cmd,
3755 "no match ip route-source prefix-list [WORD]",
3756 NO_STR
3757 MATCH_STR
3758 IP_STR
3759 "Match advertising source address of route\n"
3760 "Match entries of prefix-lists\n"
3761 "IP prefix-list name\n")
3762 {
3763 int idx_word = 5;
3764 if (argc <= idx_word)
3765 return bgp_route_match_delete(vty,
3766 "ip route-source prefix-list",
3767 NULL, RMAP_EVENT_PLIST_DELETED);
3768 return bgp_route_match_delete(vty, "ip route-source prefix-list",
3769 argv[idx_word]->arg,
3770 RMAP_EVENT_PLIST_DELETED);
3771 }
3772
3773
3774 DEFUN (match_local_pref,
3775 match_local_pref_cmd,
3776 "match local-preference (0-4294967295)",
3777 MATCH_STR
3778 "Match local-preference of route\n"
3779 "Metric value\n")
3780 {
3781 int idx_number = 2;
3782 return bgp_route_match_add(vty, "local-preference",
3783 argv[idx_number]->arg,
3784 RMAP_EVENT_MATCH_ADDED);
3785 }
3786
3787
3788 DEFUN (no_match_local_pref,
3789 no_match_local_pref_cmd,
3790 "no match local-preference [(0-4294967295)]",
3791 NO_STR
3792 MATCH_STR
3793 "Match local preference of route\n"
3794 "Local preference value\n")
3795 {
3796 int idx_localpref = 3;
3797 if (argc <= idx_localpref)
3798 return bgp_route_match_delete(vty, "local-preference", NULL,
3799 RMAP_EVENT_MATCH_DELETED);
3800 return bgp_route_match_delete(vty, "local-preference",
3801 argv[idx_localpref]->arg,
3802 RMAP_EVENT_MATCH_DELETED);
3803 }
3804
3805
3806 DEFUN (match_community,
3807 match_community_cmd,
3808 "match community <(1-99)|(100-500)|WORD> [exact-match]",
3809 MATCH_STR
3810 "Match BGP community list\n"
3811 "Community-list number (standard)\n"
3812 "Community-list number (expanded)\n"
3813 "Community-list name\n"
3814 "Do exact matching of communities\n")
3815 {
3816 int idx_comm_list = 2;
3817 int ret;
3818 char *argstr;
3819
3820 if (argc == 4) {
3821 argstr = XMALLOC(MTYPE_ROUTE_MAP_COMPILED,
3822 strlen(argv[idx_comm_list]->arg)
3823 + strlen("exact-match") + 2);
3824
3825 sprintf(argstr, "%s exact-match", argv[idx_comm_list]->arg);
3826 } else
3827 argstr = argv[idx_comm_list]->arg;
3828
3829 ret = bgp_route_match_add(vty, "community", argstr,
3830 RMAP_EVENT_CLIST_ADDED);
3831
3832 if (argstr != argv[idx_comm_list]->arg)
3833 XFREE(MTYPE_ROUTE_MAP_COMPILED, argstr);
3834
3835 return ret;
3836 }
3837
3838 DEFUN (no_match_community,
3839 no_match_community_cmd,
3840 "no match community [<(1-99)|(100-500)|WORD> [exact-match]]",
3841 NO_STR
3842 MATCH_STR
3843 "Match BGP community list\n"
3844 "Community-list number (standard)\n"
3845 "Community-list number (expanded)\n"
3846 "Community-list name\n"
3847 "Do exact matching of communities\n")
3848 {
3849 return bgp_route_match_delete(vty, "community", NULL,
3850 RMAP_EVENT_CLIST_DELETED);
3851 }
3852
3853 DEFUN (match_lcommunity,
3854 match_lcommunity_cmd,
3855 "match large-community <(1-99)|(100-500)|WORD> [exact-match]",
3856 MATCH_STR
3857 "Match BGP large community list\n"
3858 "Large Community-list number (standard)\n"
3859 "Large Community-list number (expanded)\n"
3860 "Large Community-list name\n"
3861 "Do exact matching of communities\n")
3862 {
3863 int idx_lcomm_list = 2;
3864 int ret;
3865 char *argstr;
3866
3867 if (argc == 4) {
3868 argstr = XMALLOC(MTYPE_ROUTE_MAP_COMPILED,
3869 strlen(argv[idx_lcomm_list]->arg)
3870 + strlen("exact-match") + 2);
3871
3872 sprintf(argstr, "%s exact-match", argv[idx_lcomm_list]->arg);
3873 } else
3874 argstr = argv[idx_lcomm_list]->arg;
3875
3876 ret = bgp_route_match_add(vty, "large-community", argstr,
3877 RMAP_EVENT_LLIST_ADDED);
3878 if (argstr != argv[idx_lcomm_list]->arg)
3879 XFREE(MTYPE_ROUTE_MAP_COMPILED, argstr);
3880
3881 return ret;
3882 }
3883
3884 DEFUN (no_match_lcommunity,
3885 no_match_lcommunity_cmd,
3886 "no match large-community [<(1-99)|(100-500)|WORD> [exact-match]]",
3887 NO_STR
3888 MATCH_STR
3889 "Match BGP large community list\n"
3890 "Large Community-list number (standard)\n"
3891 "Large Community-list number (expanded)\n"
3892 "Large Community-list name\n"
3893 "Do exact matching of communities\n")
3894 {
3895 return bgp_route_match_delete(vty, "large-community", NULL,
3896 RMAP_EVENT_LLIST_DELETED);
3897 }
3898
3899 DEFUN (match_ecommunity,
3900 match_ecommunity_cmd,
3901 "match extcommunity <(1-99)|(100-500)|WORD>",
3902 MATCH_STR
3903 "Match BGP/VPN extended community list\n"
3904 "Extended community-list number (standard)\n"
3905 "Extended community-list number (expanded)\n"
3906 "Extended community-list name\n")
3907 {
3908 int idx_comm_list = 2;
3909 return bgp_route_match_add(vty, "extcommunity",
3910 argv[idx_comm_list]->arg,
3911 RMAP_EVENT_ECLIST_ADDED);
3912 }
3913
3914
3915 DEFUN (no_match_ecommunity,
3916 no_match_ecommunity_cmd,
3917 "no match extcommunity [<(1-99)|(100-500)|WORD>]",
3918 NO_STR
3919 MATCH_STR
3920 "Match BGP/VPN extended community list\n"
3921 "Extended community-list number (standard)\n"
3922 "Extended community-list number (expanded)\n"
3923 "Extended community-list name\n")
3924 {
3925 return bgp_route_match_delete(vty, "extcommunity", NULL,
3926 RMAP_EVENT_ECLIST_DELETED);
3927 }
3928
3929
3930 DEFUN (match_aspath,
3931 match_aspath_cmd,
3932 "match as-path WORD",
3933 MATCH_STR
3934 "Match BGP AS path list\n"
3935 "AS path access-list name\n")
3936 {
3937 int idx_word = 2;
3938 return bgp_route_match_add(vty, "as-path", argv[idx_word]->arg,
3939 RMAP_EVENT_ASLIST_ADDED);
3940 }
3941
3942
3943 DEFUN (no_match_aspath,
3944 no_match_aspath_cmd,
3945 "no match as-path [WORD]",
3946 NO_STR
3947 MATCH_STR
3948 "Match BGP AS path list\n"
3949 "AS path access-list name\n")
3950 {
3951 return bgp_route_match_delete(vty, "as-path", NULL,
3952 RMAP_EVENT_ASLIST_DELETED);
3953 }
3954
3955
3956 DEFUN (match_origin,
3957 match_origin_cmd,
3958 "match origin <egp|igp|incomplete>",
3959 MATCH_STR
3960 "BGP origin code\n"
3961 "remote EGP\n"
3962 "local IGP\n"
3963 "unknown heritage\n")
3964 {
3965 int idx_origin = 2;
3966 if (strncmp(argv[idx_origin]->arg, "igp", 2) == 0)
3967 return bgp_route_match_add(vty, "origin", "igp",
3968 RMAP_EVENT_MATCH_ADDED);
3969 if (strncmp(argv[idx_origin]->arg, "egp", 1) == 0)
3970 return bgp_route_match_add(vty, "origin", "egp",
3971 RMAP_EVENT_MATCH_ADDED);
3972 if (strncmp(argv[idx_origin]->arg, "incomplete", 2) == 0)
3973 return bgp_route_match_add(vty, "origin", "incomplete",
3974 RMAP_EVENT_MATCH_ADDED);
3975
3976 vty_out(vty, "%% Invalid match origin type\n");
3977 return CMD_WARNING_CONFIG_FAILED;
3978 }
3979
3980
3981 DEFUN (no_match_origin,
3982 no_match_origin_cmd,
3983 "no match origin [<egp|igp|incomplete>]",
3984 NO_STR
3985 MATCH_STR
3986 "BGP origin code\n"
3987 "remote EGP\n"
3988 "local IGP\n"
3989 "unknown heritage\n")
3990 {
3991 return bgp_route_match_delete(vty, "origin", NULL,
3992 RMAP_EVENT_MATCH_DELETED);
3993 }
3994
3995 DEFUN (set_ip_nexthop_peer,
3996 set_ip_nexthop_peer_cmd,
3997 "[no] set ip next-hop peer-address",
3998 NO_STR
3999 SET_STR
4000 IP_STR
4001 "Next hop address\n"
4002 "Use peer address (for BGP only)\n")
4003 {
4004 int (*func)(struct vty *, struct route_map_index *, const char *,
4005 const char *) = strmatch(argv[0]->text, "no")
4006 ? generic_set_delete
4007 : generic_set_add;
4008
4009 return func(vty, VTY_GET_CONTEXT(route_map_index), "ip next-hop",
4010 "peer-address");
4011 }
4012
4013 DEFUN (set_ip_nexthop_unchanged,
4014 set_ip_nexthop_unchanged_cmd,
4015 "[no] set ip next-hop unchanged",
4016 NO_STR
4017 SET_STR
4018 IP_STR
4019 "Next hop address\n"
4020 "Don't modify existing Next hop address\n")
4021 {
4022 int (*func)(struct vty *, struct route_map_index *, const char *,
4023 const char *) = strmatch(argv[0]->text, "no")
4024 ? generic_set_delete
4025 : generic_set_add;
4026
4027 return func(vty, VTY_GET_CONTEXT(route_map_index), "ip next-hop",
4028 "unchanged");
4029 }
4030
4031
4032 DEFUN (set_local_pref,
4033 set_local_pref_cmd,
4034 "set local-preference (0-4294967295)",
4035 SET_STR
4036 "BGP local preference path attribute\n"
4037 "Preference value\n")
4038 {
4039 int idx_number = 2;
4040 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4041 "local-preference", argv[idx_number]->arg);
4042 }
4043
4044
4045 DEFUN (no_set_local_pref,
4046 no_set_local_pref_cmd,
4047 "no set local-preference [(0-4294967295)]",
4048 NO_STR
4049 SET_STR
4050 "BGP local preference path attribute\n"
4051 "Preference value\n")
4052 {
4053 int idx_localpref = 3;
4054 if (argc <= idx_localpref)
4055 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4056 "local-preference", NULL);
4057 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4058 "local-preference", argv[idx_localpref]->arg);
4059 }
4060
4061
4062 DEFUN (set_weight,
4063 set_weight_cmd,
4064 "set weight (0-4294967295)",
4065 SET_STR
4066 "BGP weight for routing table\n"
4067 "Weight value\n")
4068 {
4069 int idx_number = 2;
4070 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index), "weight",
4071 argv[idx_number]->arg);
4072 }
4073
4074
4075 DEFUN (no_set_weight,
4076 no_set_weight_cmd,
4077 "no set weight [(0-4294967295)]",
4078 NO_STR
4079 SET_STR
4080 "BGP weight for routing table\n"
4081 "Weight value\n")
4082 {
4083 int idx_weight = 3;
4084 if (argc <= idx_weight)
4085 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4086 "weight", NULL);
4087 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4088 "weight", argv[idx_weight]->arg);
4089 }
4090
4091 DEFUN (set_label_index,
4092 set_label_index_cmd,
4093 "set label-index (0-1048560)",
4094 SET_STR
4095 "Label index to associate with the prefix\n"
4096 "Label index value\n")
4097 {
4098 int idx_number = 2;
4099 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4100 "label-index", argv[idx_number]->arg);
4101 }
4102
4103 DEFUN (no_set_label_index,
4104 no_set_label_index_cmd,
4105 "no set label-index [(0-1048560)]",
4106 NO_STR
4107 SET_STR
4108 "Label index to associate with the prefix\n"
4109 "Label index value\n")
4110 {
4111 int idx_label_index = 3;
4112 if (argc <= idx_label_index)
4113 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4114 "label-index", NULL);
4115 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4116 "label-index", argv[idx_label_index]->arg);
4117 }
4118
4119 DEFUN (set_aspath_prepend_asn,
4120 set_aspath_prepend_asn_cmd,
4121 "set as-path prepend (1-4294967295)...",
4122 SET_STR
4123 "Transform BGP AS_PATH attribute\n"
4124 "Prepend to the as-path\n"
4125 "AS number\n")
4126 {
4127 int idx_asn = 3;
4128 int ret;
4129 char *str;
4130
4131 str = argv_concat(argv, argc, idx_asn);
4132 ret = generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4133 "as-path prepend", str);
4134 XFREE(MTYPE_TMP, str);
4135
4136 return ret;
4137 }
4138
4139 DEFUN (set_aspath_prepend_lastas,
4140 set_aspath_prepend_lastas_cmd,
4141 "set as-path prepend last-as (1-10)",
4142 SET_STR
4143 "Transform BGP AS_PATH attribute\n"
4144 "Prepend to the as-path\n"
4145 "Use the peer's AS-number\n"
4146 "Number of times to insert\n")
4147 {
4148 return set_aspath_prepend_asn(self, vty, argc, argv);
4149 }
4150
4151 DEFUN (no_set_aspath_prepend,
4152 no_set_aspath_prepend_cmd,
4153 "no set as-path prepend [(1-4294967295)]",
4154 NO_STR
4155 SET_STR
4156 "Transform BGP AS_PATH attribute\n"
4157 "Prepend to the as-path\n"
4158 "AS number\n")
4159 {
4160 int idx_asn = 4;
4161 int ret;
4162 char *str;
4163
4164 str = argv_concat(argv, argc, idx_asn);
4165 ret = generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4166 "as-path prepend", str);
4167 XFREE(MTYPE_TMP, str);
4168 return ret;
4169 }
4170
4171 DEFUN (no_set_aspath_prepend_lastas,
4172 no_set_aspath_prepend_lastas_cmd,
4173 "no set as-path prepend last-as [(1-10)]",
4174 NO_STR
4175 SET_STR
4176 "Transform BGP AS_PATH attribute\n"
4177 "Prepend to the as-path\n"
4178 "Use the peers AS-number\n"
4179 "Number of times to insert\n")
4180 {
4181 return no_set_aspath_prepend(self, vty, argc, argv);
4182 }
4183
4184 DEFUN (set_aspath_exclude,
4185 set_aspath_exclude_cmd,
4186 "set as-path exclude (1-4294967295)...",
4187 SET_STR
4188 "Transform BGP AS-path attribute\n"
4189 "Exclude from the as-path\n"
4190 "AS number\n")
4191 {
4192 int idx_asn = 3;
4193 int ret;
4194 char *str;
4195
4196 str = argv_concat(argv, argc, idx_asn);
4197 ret = generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4198 "as-path exclude", str);
4199 XFREE(MTYPE_TMP, str);
4200 return ret;
4201 }
4202
4203 DEFUN (no_set_aspath_exclude,
4204 no_set_aspath_exclude_cmd,
4205 "no set as-path exclude (1-4294967295)...",
4206 NO_STR
4207 SET_STR
4208 "Transform BGP AS_PATH attribute\n"
4209 "Exclude from the as-path\n"
4210 "AS number\n")
4211 {
4212 int idx_asn = 4;
4213 int ret;
4214 char *str;
4215
4216 str = argv_concat(argv, argc, idx_asn);
4217 ret = generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4218 "as-path exclude", str);
4219 XFREE(MTYPE_TMP, str);
4220 return ret;
4221 }
4222
4223 ALIAS(no_set_aspath_exclude, no_set_aspath_exclude_all_cmd,
4224 "no set as-path exclude",
4225 NO_STR SET_STR
4226 "Transform BGP AS_PATH attribute\n"
4227 "Exclude from the as-path\n")
4228
4229 DEFUN (set_community,
4230 set_community_cmd,
4231 "set community AA:NN...",
4232 SET_STR
4233 "BGP community attribute\n"
4234 COMMUNITY_VAL_STR)
4235 {
4236 int idx_aa_nn = 2;
4237 int i;
4238 int first = 0;
4239 int additive = 0;
4240 struct buffer *b;
4241 struct community *com = NULL;
4242 char *str;
4243 char *argstr;
4244 int ret;
4245
4246 b = buffer_new(1024);
4247
4248 for (i = idx_aa_nn; i < argc; i++) {
4249 if (strncmp(argv[i]->arg, "additive", strlen(argv[i]->arg))
4250 == 0) {
4251 additive = 1;
4252 continue;
4253 }
4254
4255 if (first)
4256 buffer_putc(b, ' ');
4257 else
4258 first = 1;
4259
4260 if (strncmp(argv[i]->arg, "internet", strlen(argv[i]->arg))
4261 == 0) {
4262 buffer_putstr(b, "internet");
4263 continue;
4264 }
4265 if (strncmp(argv[i]->arg, "local-AS", strlen(argv[i]->arg))
4266 == 0) {
4267 buffer_putstr(b, "local-AS");
4268 continue;
4269 }
4270 if (strncmp(argv[i]->arg, "no-a", strlen("no-a")) == 0
4271 && strncmp(argv[i]->arg, "no-advertise",
4272 strlen(argv[i]->arg))
4273 == 0) {
4274 buffer_putstr(b, "no-advertise");
4275 continue;
4276 }
4277 if (strncmp(argv[i]->arg, "no-e", strlen("no-e")) == 0
4278 && strncmp(argv[i]->arg, "no-export", strlen(argv[i]->arg))
4279 == 0) {
4280 buffer_putstr(b, "no-export");
4281 continue;
4282 }
4283 if (strncmp(argv[i]->arg, "graceful-shutdown",
4284 strlen(argv[i]->arg))
4285 == 0) {
4286 buffer_putstr(b, "graceful-shutdown");
4287 continue;
4288 }
4289 buffer_putstr(b, argv[i]->arg);
4290 }
4291 buffer_putc(b, '\0');
4292
4293 /* Fetch result string then compile it to communities attribute. */
4294 str = buffer_getstr(b);
4295 buffer_free(b);
4296
4297 if (str) {
4298 com = community_str2com(str);
4299 XFREE(MTYPE_TMP, str);
4300 }
4301
4302 /* Can't compile user input into communities attribute. */
4303 if (!com) {
4304 vty_out(vty, "%% Malformed communities attribute\n");
4305 return CMD_WARNING_CONFIG_FAILED;
4306 }
4307
4308 /* Set communites attribute string. */
4309 str = community_str(com, false);
4310
4311 if (additive) {
4312 size_t argstr_sz = strlen(str) + strlen(" additive") + 1;
4313 argstr = XCALLOC(MTYPE_TMP, argstr_sz);
4314 strlcpy(argstr, str, argstr_sz);
4315 strlcat(argstr, " additive", argstr_sz);
4316 ret = generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4317 "community", argstr);
4318 XFREE(MTYPE_TMP, argstr);
4319 } else
4320 ret = generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4321 "community", str);
4322
4323 community_free(&com);
4324
4325 return ret;
4326 }
4327
4328 DEFUN (set_community_none,
4329 set_community_none_cmd,
4330 "set community none",
4331 SET_STR
4332 "BGP community attribute\n"
4333 "No community attribute\n")
4334 {
4335 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4336 "community", "none");
4337 }
4338
4339 DEFUN (no_set_community,
4340 no_set_community_cmd,
4341 "no set community AA:NN...",
4342 NO_STR
4343 SET_STR
4344 "BGP community attribute\n"
4345 COMMUNITY_VAL_STR)
4346 {
4347 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4348 "community", NULL);
4349 }
4350
4351 ALIAS (no_set_community,
4352 no_set_community_short_cmd,
4353 "no set community",
4354 NO_STR
4355 SET_STR
4356 "BGP community attribute\n")
4357
4358
4359 DEFUN (set_community_delete,
4360 set_community_delete_cmd,
4361 "set comm-list <(1-99)|(100-500)|WORD> delete",
4362 SET_STR
4363 "set BGP community list (for deletion)\n"
4364 "Community-list number (standard)\n"
4365 "Community-list number (expanded)\n"
4366 "Community-list name\n"
4367 "Delete matching communities\n")
4368 {
4369 int idx_comm_list = 2;
4370 char *args;
4371
4372 args = argv_concat(argv, argc, idx_comm_list);
4373 generic_set_add(vty, VTY_GET_CONTEXT(route_map_index), "comm-list",
4374 args);
4375 XFREE(MTYPE_TMP, args);
4376
4377 return CMD_SUCCESS;
4378 }
4379
4380 DEFUN (no_set_community_delete,
4381 no_set_community_delete_cmd,
4382 "no set comm-list [<(1-99)|(100-500)|WORD> delete]",
4383 NO_STR
4384 SET_STR
4385 "set BGP community list (for deletion)\n"
4386 "Community-list number (standard)\n"
4387 "Community-list number (expanded)\n"
4388 "Community-list name\n"
4389 "Delete matching communities\n")
4390 {
4391 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4392 "comm-list", NULL);
4393 }
4394
4395 DEFUN (set_lcommunity,
4396 set_lcommunity_cmd,
4397 "set large-community AA:BB:CC...",
4398 SET_STR
4399 "BGP large community attribute\n"
4400 "Large Community number in aa:bb:cc format or additive\n")
4401 {
4402 int ret;
4403 char *str;
4404
4405 str = argv_concat(argv, argc, 2);
4406 ret = generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4407 "large-community", str);
4408 XFREE(MTYPE_TMP, str);
4409
4410 return ret;
4411 }
4412
4413 DEFUN (set_lcommunity_none,
4414 set_lcommunity_none_cmd,
4415 "set large-community none",
4416 SET_STR
4417 "BGP large community attribute\n"
4418 "No large community attribute\n")
4419 {
4420 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4421 "large-community", "none");
4422 }
4423
4424 DEFUN (no_set_lcommunity,
4425 no_set_lcommunity_cmd,
4426 "no set large-community none",
4427 NO_STR
4428 SET_STR
4429 "BGP large community attribute\n"
4430 "No community attribute\n")
4431 {
4432 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4433 "large-community", NULL);
4434 }
4435
4436 DEFUN (no_set_lcommunity1,
4437 no_set_lcommunity1_cmd,
4438 "no set large-community AA:BB:CC...",
4439 NO_STR
4440 SET_STR
4441 "BGP large community attribute\n"
4442 "Large community in AA:BB:CC... format or additive\n")
4443 {
4444 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4445 "large-community", NULL);
4446 }
4447
4448 ALIAS (no_set_lcommunity1,
4449 no_set_lcommunity1_short_cmd,
4450 "no set large-community",
4451 NO_STR
4452 SET_STR
4453 "BGP large community attribute\n")
4454
4455 DEFUN (set_lcommunity_delete,
4456 set_lcommunity_delete_cmd,
4457 "set large-comm-list <(1-99)|(100-500)|WORD> delete",
4458 SET_STR
4459 "set BGP large community list (for deletion)\n"
4460 "Large Community-list number (standard)\n"
4461 "Large Communitly-list number (expanded)\n"
4462 "Large Community-list name\n"
4463 "Delete matching large communities\n")
4464 {
4465 int idx_lcomm_list = 2;
4466 char *args;
4467
4468 args = argv_concat(argv, argc, idx_lcomm_list);
4469 generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4470 "large-comm-list", args);
4471 XFREE(MTYPE_TMP, args);
4472
4473 return CMD_SUCCESS;
4474 }
4475
4476 DEFUN (no_set_lcommunity_delete,
4477 no_set_lcommunity_delete_cmd,
4478 "no set large-comm-list <(1-99)|(100-500)|WORD> [delete]",
4479 NO_STR
4480 SET_STR
4481 "set BGP large community list (for deletion)\n"
4482 "Large Community-list number (standard)\n"
4483 "Large Communitly-list number (expanded)\n"
4484 "Large Community-list name\n"
4485 "Delete matching large communities\n")
4486 {
4487 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4488 "large-comm-list", NULL);
4489 }
4490
4491 ALIAS (no_set_lcommunity_delete,
4492 no_set_lcommunity_delete_short_cmd,
4493 "no set large-comm-list",
4494 NO_STR
4495 SET_STR
4496 "set BGP large community list (for deletion)\n")
4497
4498 DEFUN (set_ecommunity_rt,
4499 set_ecommunity_rt_cmd,
4500 "set extcommunity rt ASN:NN_OR_IP-ADDRESS:NN...",
4501 SET_STR
4502 "BGP extended community attribute\n"
4503 "Route Target extended community\n"
4504 "VPN extended community\n")
4505 {
4506 int idx_asn_nn = 3;
4507 int ret;
4508 char *str;
4509
4510 str = argv_concat(argv, argc, idx_asn_nn);
4511 ret = generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4512 "extcommunity rt", str);
4513 XFREE(MTYPE_TMP, str);
4514
4515 return ret;
4516 }
4517
4518 DEFUN (no_set_ecommunity_rt,
4519 no_set_ecommunity_rt_cmd,
4520 "no set extcommunity rt ASN:NN_OR_IP-ADDRESS:NN...",
4521 NO_STR
4522 SET_STR
4523 "BGP extended community attribute\n"
4524 "Route Target extended community\n"
4525 "VPN extended community\n")
4526 {
4527 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4528 "extcommunity rt", NULL);
4529 }
4530
4531 ALIAS (no_set_ecommunity_rt,
4532 no_set_ecommunity_rt_short_cmd,
4533 "no set extcommunity rt",
4534 NO_STR
4535 SET_STR
4536 "BGP extended community attribute\n"
4537 "Route Target extended community\n")
4538
4539 DEFUN (set_ecommunity_soo,
4540 set_ecommunity_soo_cmd,
4541 "set extcommunity soo ASN:NN_OR_IP-ADDRESS:NN...",
4542 SET_STR
4543 "BGP extended community attribute\n"
4544 "Site-of-Origin extended community\n"
4545 "VPN extended community\n")
4546 {
4547 int idx_asn_nn = 3;
4548 int ret;
4549 char *str;
4550
4551 str = argv_concat(argv, argc, idx_asn_nn);
4552 ret = generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4553 "extcommunity soo", str);
4554 XFREE(MTYPE_TMP, str);
4555 return ret;
4556 }
4557
4558
4559 DEFUN (no_set_ecommunity_soo,
4560 no_set_ecommunity_soo_cmd,
4561 "no set extcommunity soo ASN:NN_OR_IP-ADDRESS:NN...",
4562 NO_STR
4563 SET_STR
4564 "BGP extended community attribute\n"
4565 "Site-of-Origin extended community\n"
4566 "VPN extended community\n")
4567 {
4568 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4569 "extcommunity soo", NULL);
4570 }
4571
4572 ALIAS (no_set_ecommunity_soo,
4573 no_set_ecommunity_soo_short_cmd,
4574 "no set extcommunity soo",
4575 NO_STR
4576 SET_STR
4577 "GP extended community attribute\n"
4578 "Site-of-Origin extended community\n")
4579
4580 DEFUN (set_origin,
4581 set_origin_cmd,
4582 "set origin <egp|igp|incomplete>",
4583 SET_STR
4584 "BGP origin code\n"
4585 "remote EGP\n"
4586 "local IGP\n"
4587 "unknown heritage\n")
4588 {
4589 int idx_origin = 2;
4590 if (strncmp(argv[idx_origin]->arg, "igp", 2) == 0)
4591 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4592 "origin", "igp");
4593 if (strncmp(argv[idx_origin]->arg, "egp", 1) == 0)
4594 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4595 "origin", "egp");
4596 if (strncmp(argv[idx_origin]->arg, "incomplete", 2) == 0)
4597 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4598 "origin", "incomplete");
4599
4600 vty_out(vty, "%% Invalid set origin type\n");
4601 return CMD_WARNING_CONFIG_FAILED;
4602 }
4603
4604
4605 DEFUN (no_set_origin,
4606 no_set_origin_cmd,
4607 "no set origin [<egp|igp|incomplete>]",
4608 NO_STR
4609 SET_STR
4610 "BGP origin code\n"
4611 "remote EGP\n"
4612 "local IGP\n"
4613 "unknown heritage\n")
4614 {
4615 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4616 "origin", NULL);
4617 }
4618
4619
4620 DEFUN (set_atomic_aggregate,
4621 set_atomic_aggregate_cmd,
4622 "set atomic-aggregate",
4623 SET_STR
4624 "BGP atomic aggregate attribute\n" )
4625 {
4626 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4627 "atomic-aggregate", NULL);
4628 }
4629
4630 DEFUN (no_set_atomic_aggregate,
4631 no_set_atomic_aggregate_cmd,
4632 "no set atomic-aggregate",
4633 NO_STR
4634 SET_STR
4635 "BGP atomic aggregate attribute\n" )
4636 {
4637 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4638 "atomic-aggregate", NULL);
4639 }
4640
4641 DEFUN (set_aggregator_as,
4642 set_aggregator_as_cmd,
4643 "set aggregator as (1-4294967295) A.B.C.D",
4644 SET_STR
4645 "BGP aggregator attribute\n"
4646 "AS number of aggregator\n"
4647 "AS number\n"
4648 "IP address of aggregator\n")
4649 {
4650 int idx_number = 3;
4651 int idx_ipv4 = 4;
4652 int ret;
4653 struct in_addr address;
4654 char *argstr;
4655
4656 ret = inet_aton(argv[idx_ipv4]->arg, &address);
4657 if (ret == 0) {
4658 vty_out(vty, "Aggregator IP address is invalid\n");
4659 return CMD_WARNING_CONFIG_FAILED;
4660 }
4661
4662 argstr = XMALLOC(MTYPE_ROUTE_MAP_COMPILED,
4663 strlen(argv[idx_number]->arg)
4664 + strlen(argv[idx_ipv4]->arg) + 2);
4665
4666 sprintf(argstr, "%s %s", argv[idx_number]->arg, argv[idx_ipv4]->arg);
4667
4668 ret = generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4669 "aggregator as", argstr);
4670
4671 XFREE(MTYPE_ROUTE_MAP_COMPILED, argstr);
4672
4673 return ret;
4674 }
4675
4676
4677 DEFUN (no_set_aggregator_as,
4678 no_set_aggregator_as_cmd,
4679 "no set aggregator as [(1-4294967295) A.B.C.D]",
4680 NO_STR
4681 SET_STR
4682 "BGP aggregator attribute\n"
4683 "AS number of aggregator\n"
4684 "AS number\n"
4685 "IP address of aggregator\n")
4686 {
4687 int idx_asn = 4;
4688 int idx_ip = 5;
4689 int ret;
4690 struct in_addr address;
4691 char *argstr;
4692
4693 if (argc <= idx_asn)
4694 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4695 "aggregator as", NULL);
4696
4697 ret = inet_aton(argv[idx_ip]->arg, &address);
4698 if (ret == 0) {
4699 vty_out(vty, "Aggregator IP address is invalid\n");
4700 return CMD_WARNING_CONFIG_FAILED;
4701 }
4702
4703 argstr = XMALLOC(MTYPE_ROUTE_MAP_COMPILED,
4704 strlen(argv[idx_asn]->arg) + strlen(argv[idx_ip]->arg)
4705 + 2);
4706
4707 sprintf(argstr, "%s %s", argv[idx_asn]->arg, argv[idx_ip]->arg);
4708
4709 ret = generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4710 "aggregator as", argstr);
4711
4712 XFREE(MTYPE_ROUTE_MAP_COMPILED, argstr);
4713
4714 return ret;
4715 }
4716
4717 DEFUN (match_ipv6_next_hop,
4718 match_ipv6_next_hop_cmd,
4719 "match ipv6 next-hop X:X::X:X",
4720 MATCH_STR
4721 IPV6_STR
4722 "Match IPv6 next-hop address of route\n"
4723 "IPv6 address of next hop\n")
4724 {
4725 int idx_ipv6 = 3;
4726 return bgp_route_match_add(vty, "ipv6 next-hop", argv[idx_ipv6]->arg,
4727 RMAP_EVENT_MATCH_ADDED);
4728 }
4729
4730 DEFUN (no_match_ipv6_next_hop,
4731 no_match_ipv6_next_hop_cmd,
4732 "no match ipv6 next-hop X:X::X:X",
4733 NO_STR
4734 MATCH_STR
4735 IPV6_STR
4736 "Match IPv6 next-hop address of route\n"
4737 "IPv6 address of next hop\n")
4738 {
4739 int idx_ipv6 = 4;
4740 return bgp_route_match_delete(vty, "ipv6 next-hop", argv[idx_ipv6]->arg,
4741 RMAP_EVENT_MATCH_DELETED);
4742 }
4743
4744
4745 DEFUN (set_ipv6_nexthop_peer,
4746 set_ipv6_nexthop_peer_cmd,
4747 "set ipv6 next-hop peer-address",
4748 SET_STR
4749 IPV6_STR
4750 "Next hop address\n"
4751 "Use peer address (for BGP only)\n")
4752 {
4753 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4754 "ipv6 next-hop peer-address", NULL);
4755 }
4756
4757 DEFUN (no_set_ipv6_nexthop_peer,
4758 no_set_ipv6_nexthop_peer_cmd,
4759 "no set ipv6 next-hop peer-address",
4760 NO_STR
4761 SET_STR
4762 IPV6_STR
4763 "IPv6 next-hop address\n"
4764 "Use peer address (for BGP only)\n")
4765 {
4766 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4767 "ipv6 next-hop peer-address", NULL);
4768 }
4769
4770 DEFUN (set_ipv6_nexthop_prefer_global,
4771 set_ipv6_nexthop_prefer_global_cmd,
4772 "set ipv6 next-hop prefer-global",
4773 SET_STR
4774 IPV6_STR
4775 "IPv6 next-hop address\n"
4776 "Prefer global over link-local if both exist\n")
4777 {
4778 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4779 "ipv6 next-hop prefer-global", NULL);
4780 ;
4781 }
4782
4783 DEFUN (no_set_ipv6_nexthop_prefer_global,
4784 no_set_ipv6_nexthop_prefer_global_cmd,
4785 "no set ipv6 next-hop prefer-global",
4786 NO_STR
4787 SET_STR
4788 IPV6_STR
4789 "IPv6 next-hop address\n"
4790 "Prefer global over link-local if both exist\n")
4791 {
4792 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4793 "ipv6 next-hop prefer-global", NULL);
4794 }
4795
4796 DEFUN (set_ipv6_nexthop_global,
4797 set_ipv6_nexthop_global_cmd,
4798 "set ipv6 next-hop global X:X::X:X",
4799 SET_STR
4800 IPV6_STR
4801 "IPv6 next-hop address\n"
4802 "IPv6 global address\n"
4803 "IPv6 address of next hop\n")
4804 {
4805 int idx_ipv6 = 4;
4806 struct in6_addr addr;
4807 int ret;
4808
4809 ret = inet_pton(AF_INET6, argv[idx_ipv6]->arg, &addr);
4810 if (!ret) {
4811 vty_out(vty, "%% Malformed nexthop address\n");
4812 return CMD_WARNING_CONFIG_FAILED;
4813 }
4814 if (IN6_IS_ADDR_UNSPECIFIED(&addr) || IN6_IS_ADDR_LOOPBACK(&addr)
4815 || IN6_IS_ADDR_MULTICAST(&addr) || IN6_IS_ADDR_LINKLOCAL(&addr)) {
4816 vty_out(vty, "%% Invalid global nexthop address\n");
4817 return CMD_WARNING_CONFIG_FAILED;
4818 }
4819
4820 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4821 "ipv6 next-hop global", argv[idx_ipv6]->arg);
4822 }
4823
4824
4825 DEFUN (no_set_ipv6_nexthop_global,
4826 no_set_ipv6_nexthop_global_cmd,
4827 "no set ipv6 next-hop global X:X::X:X",
4828 NO_STR
4829 SET_STR
4830 IPV6_STR
4831 "IPv6 next-hop address\n"
4832 "IPv6 global address\n"
4833 "IPv6 address of next hop\n")
4834 {
4835 int idx_ipv6 = 5;
4836 if (argc <= idx_ipv6)
4837 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4838 "ipv6 next-hop global", NULL);
4839 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4840 "ipv6 next-hop global", argv[idx_ipv6]->arg);
4841 }
4842
4843 #ifdef KEEP_OLD_VPN_COMMANDS
4844 DEFUN (set_vpn_nexthop,
4845 set_vpn_nexthop_cmd,
4846 "set <vpnv4 next-hop A.B.C.D|vpnv6 next-hop X:X::X:X>",
4847 SET_STR
4848 "VPNv4 information\n"
4849 "VPN next-hop address\n"
4850 "IP address of next hop\n"
4851 "VPNv6 information\n"
4852 "VPN next-hop address\n"
4853 "IPv6 address of next hop\n")
4854 {
4855 int idx_ip = 3;
4856 afi_t afi;
4857 int idx = 0;
4858
4859 if (argv_find_and_parse_vpnvx(argv, argc, &idx, &afi)) {
4860 if (afi == AFI_IP)
4861 return generic_set_add(
4862 vty, VTY_GET_CONTEXT(route_map_index),
4863 "ipv4 vpn next-hop", argv[idx_ip]->arg);
4864 else
4865 return generic_set_add(
4866 vty, VTY_GET_CONTEXT(route_map_index),
4867 "ipv6 vpn next-hop", argv[idx_ip]->arg);
4868 }
4869 return CMD_SUCCESS;
4870 }
4871
4872 DEFUN (no_set_vpn_nexthop,
4873 no_set_vpn_nexthop_cmd,
4874 "no set <vpnv4 next-hop A.B.C.D|vpnv6 next-hop X:X::X:X>",
4875 NO_STR
4876 SET_STR
4877 "VPNv4 information\n"
4878 "VPN next-hop address\n"
4879 "IP address of next hop\n"
4880 "VPNv6 information\n"
4881 "VPN next-hop address\n"
4882 "IPv6 address of next hop\n")
4883 {
4884 int idx_ip = 4;
4885 char *arg;
4886 afi_t afi;
4887 int idx = 0;
4888
4889 if (argc <= idx_ip)
4890 arg = NULL;
4891 else
4892 arg = argv[idx_ip]->arg;
4893 if (argv_find_and_parse_vpnvx(argv, argc, &idx, &afi)) {
4894 if (afi == AFI_IP)
4895 return generic_set_delete(
4896 vty, VTY_GET_CONTEXT(route_map_index),
4897 "ipv4 vpn next-hop", arg);
4898 else
4899 return generic_set_delete(
4900 vty, VTY_GET_CONTEXT(route_map_index),
4901 "ipv6 vpn next-hop", argv[idx_ip]->arg);
4902 }
4903 return CMD_SUCCESS;
4904 }
4905 #endif /* KEEP_OLD_VPN_COMMANDS */
4906
4907 DEFUN (set_ipx_vpn_nexthop,
4908 set_ipx_vpn_nexthop_cmd,
4909 "set <ipv4|ipv6> vpn next-hop <A.B.C.D|X:X::X:X>",
4910 SET_STR
4911 "IPv4 information\n"
4912 "IPv6 information\n"
4913 "VPN information\n"
4914 "VPN next-hop address\n"
4915 "IP address of next hop\n"
4916 "IPv6 address of next hop\n")
4917 {
4918 int idx_ip = 4;
4919 afi_t afi;
4920 int idx = 0;
4921
4922 if (argv_find_and_parse_afi(argv, argc, &idx, &afi)) {
4923 if (afi == AFI_IP)
4924 return generic_set_add(
4925 vty, VTY_GET_CONTEXT(route_map_index),
4926 "ipv4 vpn next-hop", argv[idx_ip]->arg);
4927 else
4928 return generic_set_add(
4929 vty, VTY_GET_CONTEXT(route_map_index),
4930 "ipv6 vpn next-hop", argv[idx_ip]->arg);
4931 }
4932 return CMD_SUCCESS;
4933 }
4934
4935 DEFUN (no_set_ipx_vpn_nexthop,
4936 no_set_ipx_vpn_nexthop_cmd,
4937 "no set <ipv4|ipv6> vpn next-hop [<A.B.C.D|X:X::X:X>]",
4938 NO_STR
4939 SET_STR
4940 "IPv4 information\n"
4941 "IPv6 information\n"
4942 "VPN information\n"
4943 "VPN next-hop address\n"
4944 "IP address of next hop\n"
4945 "IPv6 address of next hop\n")
4946 {
4947 int idx_ip = 5;
4948 char *arg;
4949 afi_t afi;
4950 int idx = 0;
4951
4952 if (argc <= idx_ip)
4953 arg = NULL;
4954 else
4955 arg = argv[idx_ip]->arg;
4956 if (argv_find_and_parse_afi(argv, argc, &idx, &afi)) {
4957 if (afi == AFI_IP)
4958 return generic_set_delete(
4959 vty, VTY_GET_CONTEXT(route_map_index),
4960 "ipv4 vpn next-hop", arg);
4961 else
4962 return generic_set_delete(
4963 vty, VTY_GET_CONTEXT(route_map_index),
4964 "ipv6 vpn next-hop", arg);
4965 }
4966 return CMD_SUCCESS;
4967 }
4968
4969 DEFUN (set_originator_id,
4970 set_originator_id_cmd,
4971 "set originator-id A.B.C.D",
4972 SET_STR
4973 "BGP originator ID attribute\n"
4974 "IP address of originator\n")
4975 {
4976 int idx_ipv4 = 2;
4977 return generic_set_add(vty, VTY_GET_CONTEXT(route_map_index),
4978 "originator-id", argv[idx_ipv4]->arg);
4979 }
4980
4981
4982 DEFUN (no_set_originator_id,
4983 no_set_originator_id_cmd,
4984 "no set originator-id [A.B.C.D]",
4985 NO_STR
4986 SET_STR
4987 "BGP originator ID attribute\n"
4988 "IP address of originator\n")
4989 {
4990 int idx = 0;
4991 char *arg =
4992 argv_find(argv, argc, "A.B.C.D", &idx) ? argv[idx]->arg : NULL;
4993
4994 return generic_set_delete(vty, VTY_GET_CONTEXT(route_map_index),
4995 "originator-id", arg);
4996 }
4997
4998
4999 /* Initialization of route map. */
5000 void bgp_route_map_init(void)
5001 {
5002 route_map_init();
5003
5004 route_map_add_hook(bgp_route_map_add);
5005 route_map_delete_hook(bgp_route_map_delete);
5006 route_map_event_hook(bgp_route_map_event);
5007
5008 route_map_match_interface_hook(generic_match_add);
5009 route_map_no_match_interface_hook(generic_match_delete);
5010
5011 route_map_match_ip_address_hook(generic_match_add);
5012 route_map_no_match_ip_address_hook(generic_match_delete);
5013
5014 route_map_match_ip_address_prefix_list_hook(generic_match_add);
5015 route_map_no_match_ip_address_prefix_list_hook(generic_match_delete);
5016
5017 route_map_match_ip_next_hop_hook(generic_match_add);
5018 route_map_no_match_ip_next_hop_hook(generic_match_delete);
5019
5020 route_map_match_ip_next_hop_prefix_list_hook(generic_match_add);
5021 route_map_no_match_ip_next_hop_prefix_list_hook(generic_match_delete);
5022
5023 route_map_match_ip_next_hop_type_hook(generic_match_add);
5024 route_map_no_match_ip_next_hop_type_hook(generic_match_delete);
5025
5026 route_map_match_ipv6_address_hook(generic_match_add);
5027 route_map_no_match_ipv6_address_hook(generic_match_delete);
5028
5029 route_map_match_ipv6_address_prefix_list_hook(generic_match_add);
5030 route_map_no_match_ipv6_address_prefix_list_hook(generic_match_delete);
5031
5032 route_map_match_ipv6_next_hop_type_hook(generic_match_add);
5033 route_map_no_match_ipv6_next_hop_type_hook(generic_match_delete);
5034
5035 route_map_match_metric_hook(generic_match_add);
5036 route_map_no_match_metric_hook(generic_match_delete);
5037
5038 route_map_match_tag_hook(generic_match_add);
5039 route_map_no_match_tag_hook(generic_match_delete);
5040
5041 route_map_set_ip_nexthop_hook(generic_set_add);
5042 route_map_no_set_ip_nexthop_hook(generic_set_delete);
5043
5044 route_map_set_ipv6_nexthop_local_hook(generic_set_add);
5045 route_map_no_set_ipv6_nexthop_local_hook(generic_set_delete);
5046
5047 route_map_set_metric_hook(generic_set_add);
5048 route_map_no_set_metric_hook(generic_set_delete);
5049
5050 route_map_set_tag_hook(generic_set_add);
5051 route_map_no_set_tag_hook(generic_set_delete);
5052
5053 route_map_install_match(&route_match_peer_cmd);
5054 route_map_install_match(&route_match_local_pref_cmd);
5055 #if defined(HAVE_LUA)
5056 route_map_install_match(&route_match_command_cmd);
5057 #endif
5058 route_map_install_match(&route_match_ip_address_cmd);
5059 route_map_install_match(&route_match_ip_next_hop_cmd);
5060 route_map_install_match(&route_match_ip_route_source_cmd);
5061 route_map_install_match(&route_match_ip_address_prefix_list_cmd);
5062 route_map_install_match(&route_match_ip_next_hop_prefix_list_cmd);
5063 route_map_install_match(&route_match_ip_next_hop_type_cmd);
5064 route_map_install_match(&route_match_ip_route_source_prefix_list_cmd);
5065 route_map_install_match(&route_match_aspath_cmd);
5066 route_map_install_match(&route_match_community_cmd);
5067 route_map_install_match(&route_match_lcommunity_cmd);
5068 route_map_install_match(&route_match_ecommunity_cmd);
5069 route_map_install_match(&route_match_local_pref_cmd);
5070 route_map_install_match(&route_match_metric_cmd);
5071 route_map_install_match(&route_match_origin_cmd);
5072 route_map_install_match(&route_match_probability_cmd);
5073 route_map_install_match(&route_match_interface_cmd);
5074 route_map_install_match(&route_match_tag_cmd);
5075 route_map_install_match(&route_match_mac_address_cmd);
5076 route_map_install_match(&route_match_evpn_vni_cmd);
5077 route_map_install_match(&route_match_evpn_route_type_cmd);
5078 route_map_install_match(&route_match_evpn_default_route_cmd);
5079 route_map_install_match(&route_match_vrl_source_vrf_cmd);
5080
5081 route_map_install_set(&route_set_ip_nexthop_cmd);
5082 route_map_install_set(&route_set_local_pref_cmd);
5083 route_map_install_set(&route_set_weight_cmd);
5084 route_map_install_set(&route_set_label_index_cmd);
5085 route_map_install_set(&route_set_metric_cmd);
5086 route_map_install_set(&route_set_aspath_prepend_cmd);
5087 route_map_install_set(&route_set_aspath_exclude_cmd);
5088 route_map_install_set(&route_set_origin_cmd);
5089 route_map_install_set(&route_set_atomic_aggregate_cmd);
5090 route_map_install_set(&route_set_aggregator_as_cmd);
5091 route_map_install_set(&route_set_community_cmd);
5092 route_map_install_set(&route_set_community_delete_cmd);
5093 route_map_install_set(&route_set_lcommunity_cmd);
5094 route_map_install_set(&route_set_lcommunity_delete_cmd);
5095 route_map_install_set(&route_set_vpnv4_nexthop_cmd);
5096 route_map_install_set(&route_set_vpnv6_nexthop_cmd);
5097 route_map_install_set(&route_set_originator_id_cmd);
5098 route_map_install_set(&route_set_ecommunity_rt_cmd);
5099 route_map_install_set(&route_set_ecommunity_soo_cmd);
5100 route_map_install_set(&route_set_tag_cmd);
5101 route_map_install_set(&route_set_label_index_cmd);
5102
5103 install_element(RMAP_NODE, &match_peer_cmd);
5104 install_element(RMAP_NODE, &match_peer_local_cmd);
5105 install_element(RMAP_NODE, &no_match_peer_cmd);
5106 install_element(RMAP_NODE, &match_ip_route_source_cmd);
5107 install_element(RMAP_NODE, &no_match_ip_route_source_cmd);
5108 install_element(RMAP_NODE, &match_ip_route_source_prefix_list_cmd);
5109 install_element(RMAP_NODE, &no_match_ip_route_source_prefix_list_cmd);
5110 install_element(RMAP_NODE, &match_mac_address_cmd);
5111 install_element(RMAP_NODE, &no_match_mac_address_cmd);
5112 install_element(RMAP_NODE, &match_evpn_vni_cmd);
5113 install_element(RMAP_NODE, &no_match_evpn_vni_cmd);
5114 install_element(RMAP_NODE, &match_evpn_route_type_cmd);
5115 install_element(RMAP_NODE, &no_match_evpn_route_type_cmd);
5116 install_element(RMAP_NODE, &match_evpn_default_route_cmd);
5117 install_element(RMAP_NODE, &no_match_evpn_default_route_cmd);
5118 install_element(RMAP_NODE, &match_vrl_source_vrf_cmd);
5119 install_element(RMAP_NODE, &no_match_vrl_source_vrf_cmd);
5120
5121 install_element(RMAP_NODE, &match_aspath_cmd);
5122 install_element(RMAP_NODE, &no_match_aspath_cmd);
5123 install_element(RMAP_NODE, &match_local_pref_cmd);
5124 install_element(RMAP_NODE, &no_match_local_pref_cmd);
5125 install_element(RMAP_NODE, &match_community_cmd);
5126 install_element(RMAP_NODE, &no_match_community_cmd);
5127 install_element(RMAP_NODE, &match_lcommunity_cmd);
5128 install_element(RMAP_NODE, &no_match_lcommunity_cmd);
5129 install_element(RMAP_NODE, &match_ecommunity_cmd);
5130 install_element(RMAP_NODE, &no_match_ecommunity_cmd);
5131 install_element(RMAP_NODE, &match_origin_cmd);
5132 install_element(RMAP_NODE, &no_match_origin_cmd);
5133 install_element(RMAP_NODE, &match_probability_cmd);
5134 install_element(RMAP_NODE, &no_match_probability_cmd);
5135
5136 install_element(RMAP_NODE, &set_ip_nexthop_peer_cmd);
5137 install_element(RMAP_NODE, &set_ip_nexthop_unchanged_cmd);
5138 install_element(RMAP_NODE, &set_local_pref_cmd);
5139 install_element(RMAP_NODE, &no_set_local_pref_cmd);
5140 install_element(RMAP_NODE, &set_weight_cmd);
5141 install_element(RMAP_NODE, &set_label_index_cmd);
5142 install_element(RMAP_NODE, &no_set_weight_cmd);
5143 install_element(RMAP_NODE, &no_set_label_index_cmd);
5144 install_element(RMAP_NODE, &set_aspath_prepend_asn_cmd);
5145 install_element(RMAP_NODE, &set_aspath_prepend_lastas_cmd);
5146 install_element(RMAP_NODE, &set_aspath_exclude_cmd);
5147 install_element(RMAP_NODE, &no_set_aspath_prepend_cmd);
5148 install_element(RMAP_NODE, &no_set_aspath_prepend_lastas_cmd);
5149 install_element(RMAP_NODE, &no_set_aspath_exclude_cmd);
5150 install_element(RMAP_NODE, &no_set_aspath_exclude_all_cmd);
5151 install_element(RMAP_NODE, &set_origin_cmd);
5152 install_element(RMAP_NODE, &no_set_origin_cmd);
5153 install_element(RMAP_NODE, &set_atomic_aggregate_cmd);
5154 install_element(RMAP_NODE, &no_set_atomic_aggregate_cmd);
5155 install_element(RMAP_NODE, &set_aggregator_as_cmd);
5156 install_element(RMAP_NODE, &no_set_aggregator_as_cmd);
5157 install_element(RMAP_NODE, &set_community_cmd);
5158 install_element(RMAP_NODE, &set_community_none_cmd);
5159 install_element(RMAP_NODE, &no_set_community_cmd);
5160 install_element(RMAP_NODE, &no_set_community_short_cmd);
5161 install_element(RMAP_NODE, &set_community_delete_cmd);
5162 install_element(RMAP_NODE, &no_set_community_delete_cmd);
5163 install_element(RMAP_NODE, &set_lcommunity_cmd);
5164 install_element(RMAP_NODE, &set_lcommunity_none_cmd);
5165 install_element(RMAP_NODE, &no_set_lcommunity_cmd);
5166 install_element(RMAP_NODE, &no_set_lcommunity1_cmd);
5167 install_element(RMAP_NODE, &no_set_lcommunity1_short_cmd);
5168 install_element(RMAP_NODE, &set_lcommunity_delete_cmd);
5169 install_element(RMAP_NODE, &no_set_lcommunity_delete_cmd);
5170 install_element(RMAP_NODE, &no_set_lcommunity_delete_short_cmd);
5171 install_element(RMAP_NODE, &set_ecommunity_rt_cmd);
5172 install_element(RMAP_NODE, &no_set_ecommunity_rt_cmd);
5173 install_element(RMAP_NODE, &no_set_ecommunity_rt_short_cmd);
5174 install_element(RMAP_NODE, &set_ecommunity_soo_cmd);
5175 install_element(RMAP_NODE, &no_set_ecommunity_soo_cmd);
5176 install_element(RMAP_NODE, &no_set_ecommunity_soo_short_cmd);
5177 #ifdef KEEP_OLD_VPN_COMMANDS
5178 install_element(RMAP_NODE, &set_vpn_nexthop_cmd);
5179 install_element(RMAP_NODE, &no_set_vpn_nexthop_cmd);
5180 #endif /* KEEP_OLD_VPN_COMMANDS */
5181 install_element(RMAP_NODE, &set_ipx_vpn_nexthop_cmd);
5182 install_element(RMAP_NODE, &no_set_ipx_vpn_nexthop_cmd);
5183 install_element(RMAP_NODE, &set_originator_id_cmd);
5184 install_element(RMAP_NODE, &no_set_originator_id_cmd);
5185
5186 route_map_install_match(&route_match_ipv6_address_cmd);
5187 route_map_install_match(&route_match_ipv6_next_hop_cmd);
5188 route_map_install_match(&route_match_ipv6_address_prefix_list_cmd);
5189 route_map_install_match(&route_match_ipv6_next_hop_type_cmd);
5190 route_map_install_set(&route_set_ipv6_nexthop_global_cmd);
5191 route_map_install_set(&route_set_ipv6_nexthop_prefer_global_cmd);
5192 route_map_install_set(&route_set_ipv6_nexthop_local_cmd);
5193 route_map_install_set(&route_set_ipv6_nexthop_peer_cmd);
5194
5195 install_element(RMAP_NODE, &match_ipv6_next_hop_cmd);
5196 install_element(RMAP_NODE, &no_match_ipv6_next_hop_cmd);
5197 install_element(RMAP_NODE, &set_ipv6_nexthop_global_cmd);
5198 install_element(RMAP_NODE, &no_set_ipv6_nexthop_global_cmd);
5199 install_element(RMAP_NODE, &set_ipv6_nexthop_prefer_global_cmd);
5200 install_element(RMAP_NODE, &no_set_ipv6_nexthop_prefer_global_cmd);
5201 install_element(RMAP_NODE, &set_ipv6_nexthop_peer_cmd);
5202 install_element(RMAP_NODE, &no_set_ipv6_nexthop_peer_cmd);
5203 #if defined(HAVE_LUA)
5204 install_element(RMAP_NODE, &match_command_cmd);
5205 install_element(RMAP_NODE, &no_match_command_cmd);
5206 #endif
5207 }
5208
5209 void bgp_route_map_terminate(void)
5210 {
5211 /* ToDo: Cleanup all the used memory */
5212 route_map_finish();
5213 }
FRRouting mirror