3 * Copyright (C) Cumulus Networks, Inc.
6 * This file is part of FRR.
8 * FRR is free software; you can redistribute it and/or modify it
9 * under the terms of the GNU General Public License as published by the
10 * Free Software Foundation; either version 2, or (at your option) any
13 * FRR is distributed in the hope that it will be useful, but
14 * WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * General Public License for more details.
18 * You should have received a copy of the GNU General Public License along
19 * with this program; see the file COPYING; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
31 #include "nexthop_group.h"
33 #include "link_state.h"
36 #include "sharpd/sharp_globals.h"
37 #include "sharpd/sharp_zebra.h"
38 #include "sharpd/sharp_nht.h"
39 #include "sharpd/sharp_vty.h"
40 #ifndef VTYSH_EXTRACT_PL
41 #include "sharpd/sharp_vty_clippy.c"
44 DEFINE_MTYPE_STATIC(SHARPD
, SRV6_LOCATOR
, "SRv6 Locator");
46 DEFPY(watch_redistribute
, watch_redistribute_cmd
,
47 "sharp watch [vrf NAME$vrf_name] redistribute " FRR_REDIST_STR_SHARPD
,
48 "Sharp routing Protocol\n"
50 "The vrf we would like to watch if non-default\n"
51 "The NAME of the vrf\n"
52 "Redistribute into Sharp\n"
53 FRR_REDIST_HELP_STR_SHARPD
)
59 vrf_name
= VRF_DEFAULT_NAME
;
60 vrf
= vrf_lookup_by_name(vrf_name
);
62 vty_out(vty
, "The vrf NAME specified: %s does not exist\n",
67 source
= proto_redistnum(AFI_IP
, argv
[argc
-1]->text
);
68 sharp_redistribute_vrf(vrf
, source
);
73 DEFPY(watch_nexthop_v6
, watch_nexthop_v6_cmd
,
74 "sharp watch [vrf NAME$vrf_name] <nexthop$n X:X::X:X$nhop|import$import X:X::X:X/M$inhop> [connected$connected]",
75 "Sharp routing Protocol\n"
77 "The vrf we would like to watch if non-default\n"
78 "The NAME of the vrf\n"
79 "Watch for nexthop changes\n"
80 "The v6 nexthop to signal for watching\n"
81 "Watch for import check changes\n"
82 "The v6 prefix to signal for watching\n"
83 "Should the route be connected\n")
90 vrf_name
= VRF_DEFAULT_NAME
;
91 vrf
= vrf_lookup_by_name(vrf_name
);
93 vty_out(vty
, "The vrf NAME specified: %s does not exist\n",
98 memset(&p
, 0, sizeof(p
));
102 p
.prefixlen
= IPV6_MAX_BITLEN
;
103 memcpy(&p
.u
.prefix6
, &nhop
, IPV6_MAX_BYTELEN
);
107 prefix_copy(&p
, inhop
);
110 sharp_nh_tracker_get(&p
);
111 sharp_zebra_nexthop_watch(&p
, vrf
->vrf_id
, type_import
,
117 DEFPY(watch_nexthop_v4
, watch_nexthop_v4_cmd
,
118 "sharp watch [vrf NAME$vrf_name] <nexthop$n A.B.C.D$nhop|import$import A.B.C.D/M$inhop> [connected$connected]",
119 "Sharp routing Protocol\n"
120 "Watch for changes\n"
121 "The vrf we would like to watch if non-default\n"
122 "The NAME of the vrf\n"
123 "Watch for nexthop changes\n"
124 "The v4 address to signal for watching\n"
125 "Watch for import check changes\n"
126 "The v4 prefix for import check to watch\n"
127 "Should the route be connected\n")
134 vrf_name
= VRF_DEFAULT_NAME
;
135 vrf
= vrf_lookup_by_name(vrf_name
);
137 vty_out(vty
, "The vrf NAME specified: %s does not exist\n",
142 memset(&p
, 0, sizeof(p
));
146 p
.prefixlen
= IPV4_MAX_BITLEN
;
152 prefix_copy(&p
, inhop
);
155 sharp_nh_tracker_get(&p
);
156 sharp_zebra_nexthop_watch(&p
, vrf
->vrf_id
, type_import
,
162 DEFPY(sharp_nht_data_dump
,
163 sharp_nht_data_dump_cmd
,
164 "sharp data nexthop",
165 "Sharp routing Protocol\n"
166 "Data about what is going on\n"
167 "Nexthop information\n")
169 sharp_nh_tracker_dump(vty
);
174 DEFPY (install_routes_data_dump
,
175 install_routes_data_dump_cmd
,
177 "Sharp routing Protocol\n"
178 "Data about what is going on\n"
179 "Route Install/Removal Information\n")
183 timersub(&sg
.r
.t_end
, &sg
.r
.t_start
, &r
);
184 vty_out(vty
, "Prefix: %pFX Total: %u %u %u Time: %jd.%ld\n",
185 &sg
.r
.orig_prefix
, sg
.r
.total_routes
, sg
.r
.installed_routes
,
186 sg
.r
.removed_routes
, (intmax_t)r
.tv_sec
, (long)r
.tv_usec
);
191 DEFPY (install_routes
,
193 "sharp install routes [vrf NAME$vrf_name]\
194 <A.B.C.D$start4|X:X::X:X$start6>\
195 <nexthop <A.B.C.D$nexthop4|X:X::X:X$nexthop6>|\
196 nexthop-group NHGNAME$nexthop_group>\
197 [backup$backup <A.B.C.D$backup_nexthop4|X:X::X:X$backup_nexthop6>] \
198 (1-1000000)$routes [instance (0-255)$instance] [repeat (2-1000)$rpt] [opaque WORD]",
199 "Sharp routing Protocol\n"
200 "install some routes\n"
201 "Routes to install\n"
202 "The vrf we would like to install into if non-default\n"
203 "The NAME of the vrf\n"
204 "v4 Address to start /32 generation at\n"
205 "v6 Address to start /32 generation at\n"
206 "Nexthop to use(Can be an IPv4 or IPv6 address)\n"
207 "V4 Nexthop address to use\n"
208 "V6 Nexthop address to use\n"
209 "Nexthop-Group to use\n"
210 "The Name of the nexthop-group\n"
211 "Backup nexthop to use(Can be an IPv4 or IPv6 address)\n"
212 "Backup V4 Nexthop address to use\n"
213 "Backup V6 Nexthop address to use\n"
214 "How many to create\n"
217 "Should we repeat this command\n"
218 "How many times to repeat this command\n"
219 "What opaque data to send down\n"
223 struct prefix prefix
;
227 sg
.r
.total_routes
= routes
;
228 sg
.r
.installed_routes
= 0;
231 sg
.r
.repeat
= rpt
* 2;
235 memset(&prefix
, 0, sizeof(prefix
));
236 memset(&sg
.r
.orig_prefix
, 0, sizeof(sg
.r
.orig_prefix
));
237 nexthop_del_srv6_seg6local(&sg
.r
.nhop
);
238 nexthop_del_srv6_seg6(&sg
.r
.nhop
);
239 memset(&sg
.r
.nhop
, 0, sizeof(sg
.r
.nhop
));
240 memset(&sg
.r
.nhop_group
, 0, sizeof(sg
.r
.nhop_group
));
241 memset(&sg
.r
.backup_nhop
, 0, sizeof(sg
.r
.nhop
));
242 memset(&sg
.r
.backup_nhop_group
, 0, sizeof(sg
.r
.nhop_group
));
244 if (start4
.s_addr
!= INADDR_ANY
) {
245 prefix
.family
= AF_INET
;
246 prefix
.prefixlen
= IPV4_MAX_BITLEN
;
247 prefix
.u
.prefix4
= start4
;
249 prefix
.family
= AF_INET6
;
250 prefix
.prefixlen
= IPV6_MAX_BITLEN
;
251 prefix
.u
.prefix6
= start6
;
253 sg
.r
.orig_prefix
= prefix
;
256 vrf_name
= VRF_DEFAULT_NAME
;
258 vrf
= vrf_lookup_by_name(vrf_name
);
260 vty_out(vty
, "The vrf NAME specified: %s does not exist\n",
265 /* Explicit backup not available with named nexthop-group */
266 if (backup
&& nexthop_group
) {
267 vty_out(vty
, "%% Invalid: cannot specify both nexthop-group and backup\n");
272 struct nexthop_group_cmd
*nhgc
= nhgc_find(nexthop_group
);
275 "Specified Nexthop Group: %s does not exist\n",
280 nhgid
= sharp_nhgroup_get_id(nexthop_group
);
282 sg
.r
.nhop_group
.nexthop
= nhgc
->nhg
.nexthop
;
284 /* Use group's backup nexthop info if present */
285 if (nhgc
->backup_list_name
[0]) {
286 struct nexthop_group_cmd
*bnhgc
=
287 nhgc_find(nhgc
->backup_list_name
);
290 vty_out(vty
, "%% Backup group %s not found for group %s\n",
291 nhgc
->backup_list_name
,
296 sg
.r
.backup_nhop
.vrf_id
= vrf
->vrf_id
;
297 sg
.r
.backup_nhop_group
.nexthop
= bnhgc
->nhg
.nexthop
;
300 if (nexthop4
.s_addr
!= INADDR_ANY
) {
301 sg
.r
.nhop
.gate
.ipv4
= nexthop4
;
302 sg
.r
.nhop
.type
= NEXTHOP_TYPE_IPV4
;
304 sg
.r
.nhop
.gate
.ipv6
= nexthop6
;
305 sg
.r
.nhop
.type
= NEXTHOP_TYPE_IPV6
;
308 sg
.r
.nhop
.vrf_id
= vrf
->vrf_id
;
309 sg
.r
.nhop_group
.nexthop
= &sg
.r
.nhop
;
312 /* Use single backup nexthop if specified */
314 /* Set flag and index in primary nexthop */
315 SET_FLAG(sg
.r
.nhop
.flags
, NEXTHOP_FLAG_HAS_BACKUP
);
316 sg
.r
.nhop
.backup_num
= 1;
317 sg
.r
.nhop
.backup_idx
[0] = 0;
319 if (backup_nexthop4
.s_addr
!= INADDR_ANY
) {
320 sg
.r
.backup_nhop
.gate
.ipv4
= backup_nexthop4
;
321 sg
.r
.backup_nhop
.type
= NEXTHOP_TYPE_IPV4
;
323 sg
.r
.backup_nhop
.gate
.ipv6
= backup_nexthop6
;
324 sg
.r
.backup_nhop
.type
= NEXTHOP_TYPE_IPV6
;
327 sg
.r
.backup_nhop
.vrf_id
= vrf
->vrf_id
;
328 sg
.r
.backup_nhop_group
.nexthop
= &sg
.r
.backup_nhop
;
332 strlcpy(sg
.r
.opaque
, opaque
, ZAPI_MESSAGE_OPAQUE_LENGTH
);
334 sg
.r
.opaque
[0] = '\0';
336 sg
.r
.inst
= instance
;
337 sg
.r
.vrf_id
= vrf
->vrf_id
;
339 sharp_install_routes_helper(&prefix
, sg
.r
.vrf_id
, sg
.r
.inst
, nhgid
,
340 &sg
.r
.nhop_group
, &sg
.r
.backup_nhop_group
,
341 rts
, 0, sg
.r
.opaque
);
346 DEFPY (install_seg6_routes
,
347 install_seg6_routes_cmd
,
348 "sharp install seg6-routes [vrf NAME$vrf_name]\
349 <A.B.C.D$start4|X:X::X:X$start6>\
350 nexthop-seg6 X:X::X:X$seg6_nh6 encap X:X::X:X$seg6_seg\
351 (1-1000000)$routes [repeat (2-1000)$rpt]",
352 "Sharp routing Protocol\n"
353 "install some routes\n"
354 "Routes to install\n"
355 "The vrf we would like to install into if non-default\n"
356 "The NAME of the vrf\n"
357 "v4 Address to start /32 generation at\n"
358 "v6 Address to start /32 generation at\n"
359 "Nexthop-seg6 to use\n"
360 "V6 Nexthop address to use\n"
362 "Segment List to use\n"
363 "How many to create\n"
364 "Should we repeat this command\n"
365 "How many times to repeat this command\n")
368 struct prefix prefix
;
369 uint32_t route_flags
= 0;
371 sg
.r
.total_routes
= routes
;
372 sg
.r
.installed_routes
= 0;
375 sg
.r
.repeat
= rpt
* 2;
379 memset(&prefix
, 0, sizeof(prefix
));
380 memset(&sg
.r
.orig_prefix
, 0, sizeof(sg
.r
.orig_prefix
));
381 nexthop_del_srv6_seg6local(&sg
.r
.nhop
);
382 nexthop_del_srv6_seg6(&sg
.r
.nhop
);
383 memset(&sg
.r
.nhop
, 0, sizeof(sg
.r
.nhop
));
384 memset(&sg
.r
.nhop_group
, 0, sizeof(sg
.r
.nhop_group
));
385 memset(&sg
.r
.backup_nhop
, 0, sizeof(sg
.r
.nhop
));
386 memset(&sg
.r
.backup_nhop_group
, 0, sizeof(sg
.r
.nhop_group
));
387 sg
.r
.opaque
[0] = '\0';
390 if (start4
.s_addr
!= INADDR_ANY
) {
391 prefix
.family
= AF_INET
;
392 prefix
.prefixlen
= IPV4_MAX_BITLEN
;
393 prefix
.u
.prefix4
= start4
;
395 prefix
.family
= AF_INET6
;
396 prefix
.prefixlen
= IPV6_MAX_BITLEN
;
397 prefix
.u
.prefix6
= start6
;
399 sg
.r
.orig_prefix
= prefix
;
402 vrf_name
= VRF_DEFAULT_NAME
;
404 vrf
= vrf_lookup_by_name(vrf_name
);
406 vty_out(vty
, "The vrf NAME specified: %s does not exist\n",
411 sg
.r
.nhop
.type
= NEXTHOP_TYPE_IPV6
;
412 sg
.r
.nhop
.gate
.ipv6
= seg6_nh6
;
413 sg
.r
.nhop
.vrf_id
= vrf
->vrf_id
;
414 sg
.r
.nhop_group
.nexthop
= &sg
.r
.nhop
;
415 nexthop_add_srv6_seg6(&sg
.r
.nhop
, &seg6_seg
);
417 sg
.r
.vrf_id
= vrf
->vrf_id
;
418 sharp_install_routes_helper(&prefix
, sg
.r
.vrf_id
, sg
.r
.inst
, 0,
419 &sg
.r
.nhop_group
, &sg
.r
.backup_nhop_group
,
420 routes
, route_flags
, sg
.r
.opaque
);
425 DEFPY (install_seg6local_routes
,
426 install_seg6local_routes_cmd
,
427 "sharp install seg6local-routes [vrf NAME$vrf_name]\
429 nexthop-seg6local NAME$seg6l_oif\
431 End_X$seg6l_endx X:X::X:X$seg6l_endx_nh6|\
432 End_T$seg6l_endt (1-4294967295)$seg6l_endt_table|\
433 End_DX4$seg6l_enddx4 A.B.C.D$seg6l_enddx4_nh4|\
434 End_DT6$seg6l_enddt6 (1-4294967295)$seg6l_enddt6_table|\
435 End_DT4$seg6l_enddt4 (1-4294967295)$seg6l_enddt4_table|\
436 End_DT46$seg6l_enddt46 (1-4294967295)$seg6l_enddt46_table>\
437 (1-1000000)$routes [repeat (2-1000)$rpt]",
438 "Sharp routing Protocol\n"
439 "install some routes\n"
440 "Routes to install\n"
441 "The vrf we would like to install into if non-default\n"
442 "The NAME of the vrf\n"
443 "v6 Address to start /32 generation at\n"
444 "Nexthop-seg6local to use\n"
445 "Output device to use\n"
446 "SRv6 End function to use\n"
447 "SRv6 End.X function to use\n"
448 "V6 Nexthop address to use\n"
449 "SRv6 End.T function to use\n"
450 "Redirect table id to use\n"
451 "SRv6 End.DX4 function to use\n"
452 "V4 Nexthop address to use\n"
453 "SRv6 End.DT6 function to use\n"
454 "Redirect table id to use\n"
455 "SRv6 End.DT4 function to use\n"
456 "Redirect table id to use\n"
457 "SRv6 End.DT46 function to use\n"
458 "Redirect table id to use\n"
459 "How many to create\n"
460 "Should we repeat this command\n"
461 "How many times to repeat this command\n")
464 uint32_t route_flags
= 0;
465 struct seg6local_context ctx
= {};
466 enum seg6local_action_t action
;
468 sg
.r
.total_routes
= routes
;
469 sg
.r
.installed_routes
= 0;
472 sg
.r
.repeat
= rpt
* 2;
476 memset(&sg
.r
.orig_prefix
, 0, sizeof(sg
.r
.orig_prefix
));
477 nexthop_del_srv6_seg6local(&sg
.r
.nhop
);
478 nexthop_del_srv6_seg6(&sg
.r
.nhop
);
479 memset(&sg
.r
.nhop
, 0, sizeof(sg
.r
.nhop
));
480 memset(&sg
.r
.nhop_group
, 0, sizeof(sg
.r
.nhop_group
));
481 memset(&sg
.r
.backup_nhop
, 0, sizeof(sg
.r
.nhop
));
482 memset(&sg
.r
.backup_nhop_group
, 0, sizeof(sg
.r
.nhop_group
));
483 sg
.r
.opaque
[0] = '\0';
485 sg
.r
.orig_prefix
.family
= AF_INET6
;
486 sg
.r
.orig_prefix
.prefixlen
= 128;
487 sg
.r
.orig_prefix
.u
.prefix6
= start6
;
490 vrf_name
= VRF_DEFAULT_NAME
;
492 vrf
= vrf_lookup_by_name(vrf_name
);
494 vty_out(vty
, "The vrf NAME specified: %s does not exist\n",
500 action
= ZEBRA_SEG6_LOCAL_ACTION_END_DX4
;
501 ctx
.nh4
= seg6l_enddx4_nh4
;
502 } else if (seg6l_endx
) {
503 action
= ZEBRA_SEG6_LOCAL_ACTION_END_X
;
504 ctx
.nh6
= seg6l_endx_nh6
;
505 } else if (seg6l_endt
) {
506 action
= ZEBRA_SEG6_LOCAL_ACTION_END_T
;
507 ctx
.table
= seg6l_endt_table
;
508 } else if (seg6l_enddt6
) {
509 action
= ZEBRA_SEG6_LOCAL_ACTION_END_DT6
;
510 ctx
.table
= seg6l_enddt6_table
;
511 } else if (seg6l_enddt4
) {
512 action
= ZEBRA_SEG6_LOCAL_ACTION_END_DT4
;
513 ctx
.table
= seg6l_enddt4_table
;
514 } else if (seg6l_enddt46
) {
515 action
= ZEBRA_SEG6_LOCAL_ACTION_END_DT46
;
516 ctx
.table
= seg6l_enddt46_table
;
518 action
= ZEBRA_SEG6_LOCAL_ACTION_END
;
521 sg
.r
.nhop
.type
= NEXTHOP_TYPE_IFINDEX
;
522 sg
.r
.nhop
.ifindex
= ifname2ifindex(seg6l_oif
, vrf
->vrf_id
);
523 sg
.r
.nhop
.vrf_id
= vrf
->vrf_id
;
524 sg
.r
.nhop_group
.nexthop
= &sg
.r
.nhop
;
525 nexthop_add_srv6_seg6local(&sg
.r
.nhop
, action
, &ctx
);
527 sg
.r
.vrf_id
= vrf
->vrf_id
;
528 sharp_install_routes_helper(&sg
.r
.orig_prefix
, sg
.r
.vrf_id
, sg
.r
.inst
,
530 &sg
.r
.backup_nhop_group
, routes
,
531 route_flags
, sg
.r
.opaque
);
536 DEFPY(vrf_label
, vrf_label_cmd
,
537 "sharp label <ip$ipv4|ipv6$ipv6> vrf NAME$vrf_name label (0-100000)$label",
538 "Sharp Routing Protocol\n"
539 "Give a vrf a label\n"
540 "Pop and forward for IPv4\n"
541 "Pop and forward for IPv6\n"
543 "The label to use, 0 specifies remove the label installed from previous\n"
544 "Specified range to use\n")
547 afi_t afi
= (ipv4
) ? AFI_IP
: AFI_IP6
;
549 if (strcmp(vrf_name
, "default") == 0)
550 vrf
= vrf_lookup_by_id(VRF_DEFAULT
);
552 vrf
= vrf_lookup_by_name(vrf_name
);
555 vty_out(vty
, "Unable to find vrf you silly head\n");
556 return CMD_WARNING_CONFIG_FAILED
;
560 label
= MPLS_LABEL_NONE
;
562 vrf_label_add(vrf
->vrf_id
, afi
, label
);
566 DEFPY (remove_routes
,
568 "sharp remove routes [vrf NAME$vrf_name] <A.B.C.D$start4|X:X::X:X$start6> (1-1000000)$routes [instance (0-255)$instance]",
569 "Sharp Routing Protocol\n"
570 "Remove some routes\n"
572 "The vrf we would like to remove from if non-default\n"
573 "The NAME of the vrf\n"
576 "Routes to uninstall\n"
578 "Value of instance\n")
581 struct prefix prefix
;
583 sg
.r
.total_routes
= routes
;
584 sg
.r
.removed_routes
= 0;
587 memset(&prefix
, 0, sizeof(prefix
));
589 if (start4
.s_addr
!= INADDR_ANY
) {
590 prefix
.family
= AF_INET
;
591 prefix
.prefixlen
= IPV4_MAX_BITLEN
;
592 prefix
.u
.prefix4
= start4
;
594 prefix
.family
= AF_INET6
;
595 prefix
.prefixlen
= IPV6_MAX_BITLEN
;
596 prefix
.u
.prefix6
= start6
;
599 vrf
= vrf_lookup_by_name(vrf_name
? vrf_name
: VRF_DEFAULT_NAME
);
601 vty_out(vty
, "The vrf NAME specified: %s does not exist\n",
602 vrf_name
? vrf_name
: VRF_DEFAULT_NAME
);
606 sg
.r
.inst
= instance
;
607 sg
.r
.vrf_id
= vrf
->vrf_id
;
609 sharp_remove_routes_helper(&prefix
, sg
.r
.vrf_id
,
615 DEFUN_NOSH (show_debugging_sharpd
,
616 show_debugging_sharpd_cmd
,
617 "show debugging [sharp]",
620 "Sharp Information\n")
622 vty_out(vty
, "Sharp debugging status:\n");
624 cmd_show_lib_debugs(vty
);
629 DEFPY (sharp_lsp_prefix_v4
, sharp_lsp_prefix_v4_cmd
,
630 "sharp lsp [update]$update (0-100000)$inlabel\
631 nexthop-group NHGNAME$nhgname\
632 [prefix A.B.C.D/M$pfx\
633 " FRR_IP_REDIST_STR_ZEBRA
"$type_str [instance (0-255)$instance]]",
634 "Sharp Routing Protocol\n"
637 "The ingress label to use\n"
638 "Use nexthops from a nexthop-group\n"
639 "The nexthop-group name\n"
641 "The v4 prefix to label\n"
642 FRR_IP_REDIST_HELP_STR_ZEBRA
646 struct nexthop_group_cmd
*nhgc
= NULL
;
647 struct nexthop_group_cmd
*backup_nhgc
= NULL
;
648 struct nexthop_group
*backup_nhg
= NULL
;
649 struct prefix p
= {};
653 update_p
= (update
!= NULL
);
655 /* We're offered a v4 prefix */
656 if (pfx
->family
> 0 && type_str
) {
657 p
.family
= pfx
->family
;
658 p
.prefixlen
= pfx
->prefixlen
;
659 p
.u
.prefix4
= pfx
->prefix
;
661 type
= proto_redistnum(AFI_IP
, type_str
);
663 vty_out(vty
, "%% Unknown route type '%s'\n", type_str
);
666 } else if (pfx
->family
> 0 || type_str
) {
667 vty_out(vty
, "%% Must supply both prefix and type\n");
671 nhgc
= nhgc_find(nhgname
);
673 vty_out(vty
, "%% Nexthop-group '%s' does not exist\n",
678 if (nhgc
->nhg
.nexthop
== NULL
) {
679 vty_out(vty
, "%% Nexthop-group '%s' is empty\n", nhgname
);
683 /* Use group's backup nexthop info if present */
684 if (nhgc
->backup_list_name
[0]) {
685 backup_nhgc
= nhgc_find(nhgc
->backup_list_name
);
689 "%% Backup group %s not found for group %s\n",
690 nhgc
->backup_list_name
,
694 backup_nhg
= &(backup_nhgc
->nhg
);
697 if (sharp_install_lsps_helper(true /*install*/, update_p
,
698 pfx
->family
> 0 ? &p
: NULL
,
699 type
, instance
, inlabel
,
700 &(nhgc
->nhg
), backup_nhg
) == 0)
703 vty_out(vty
, "%% LSP install failed!\n");
708 DEFPY(sharp_remove_lsp_prefix_v4
, sharp_remove_lsp_prefix_v4_cmd
,
711 [nexthop-group NHGNAME$nhgname] \
712 [prefix A.B.C.D/M$pfx\
713 " FRR_IP_REDIST_STR_ZEBRA
"$type_str [instance (0-255)$instance]]",
714 "Sharp Routing Protocol\n"
717 "The ingress label\n"
718 "Use nexthops from a nexthop-group\n"
719 "The nexthop-group name\n"
720 "Specify a v4 prefix\n"
721 "The v4 prefix to label\n"
722 FRR_IP_REDIST_HELP_STR_ZEBRA
726 struct nexthop_group_cmd
*nhgc
= NULL
;
727 struct prefix p
= {};
729 struct nexthop_group
*nhg
= NULL
;
731 /* We're offered a v4 prefix */
732 if (pfx
->family
> 0 && type_str
) {
733 p
.family
= pfx
->family
;
734 p
.prefixlen
= pfx
->prefixlen
;
735 p
.u
.prefix4
= pfx
->prefix
;
737 type
= proto_redistnum(AFI_IP
, type_str
);
739 vty_out(vty
, "%% Unknown route type '%s'\n", type_str
);
742 } else if (pfx
->family
> 0 || type_str
) {
743 vty_out(vty
, "%% Must supply both prefix and type\n");
748 nhgc
= nhgc_find(nhgname
);
750 vty_out(vty
, "%% Nexthop-group '%s' does not exist\n",
755 if (nhgc
->nhg
.nexthop
== NULL
) {
756 vty_out(vty
, "%% Nexthop-group '%s' is empty\n",
763 if (sharp_install_lsps_helper(false /*!install*/, false,
764 pfx
->family
> 0 ? &p
: NULL
,
765 type
, instance
, inlabel
, nhg
, NULL
) == 0)
768 vty_out(vty
, "%% LSP remove failed!\n");
775 "sharp logpump duration (1-60) frequency (1-1000000) burst (1-1000)",
776 "Sharp Routing Protocol\n"
777 "Generate bulk log messages for testing\n"
778 "Duration of run (s)\n"
779 "Duration of run (s)\n"
780 "Frequency of bursts (s^-1)\n"
781 "Frequency of bursts (s^-1)\n"
782 "Number of log messages per each burst\n"
783 "Number of log messages per each burst\n")
785 sharp_logpump_run(vty
, duration
, frequency
, burst
);
789 DEFPY (create_session
,
791 "sharp create session (1-1024)",
792 "Sharp Routing Protocol\n"
794 "Create a test session\n"
797 if (sharp_zclient_create(session
) != 0) {
798 vty_out(vty
, "%% Client session error\n");
805 DEFPY (remove_session
,
807 "sharp remove session (1-1024)",
808 "Sharp Routing Protocol\n"
810 "Remove a test session\n"
813 sharp_zclient_delete(session
);
819 "sharp send opaque type (1-255) (1-1000)$count",
821 "Send messages for testing\n"
822 "Send opaque messages\n"
823 "Type code to send\n"
824 "Type code to send\n"
825 "Number of messages to send\n")
827 sharp_opaque_send(type
, 0, 0, 0, count
);
831 DEFPY (send_opaque_unicast
,
832 send_opaque_unicast_cmd
,
833 "sharp send opaque unicast type (1-255) \
834 " FRR_IP_REDIST_STR_ZEBRA
"$proto_str \
835 [{instance (0-1000) | session (1-1000)}] (1-1000)$count",
837 "Send messages for testing\n"
838 "Send opaque messages\n"
839 "Send unicast messages\n"
840 "Type code to send\n"
841 "Type code to send\n"
842 FRR_IP_REDIST_HELP_STR_ZEBRA
847 "Number of messages to send\n")
851 proto
= proto_redistnum(AFI_IP
, proto_str
);
853 sharp_opaque_send(type
, proto
, instance
, session
, count
);
858 DEFPY (send_opaque_reg
,
860 "sharp send opaque <reg$reg | unreg> \
861 " FRR_IP_REDIST_STR_ZEBRA
"$proto_str \
862 [{instance (0-1000) | session (1-1000)}] type (1-1000)",
864 "Send messages for testing\n"
865 "Send opaque messages\n"
866 "Send opaque registration\n"
867 "Send opaque unregistration\n"
868 FRR_IP_REDIST_HELP_STR_ZEBRA
873 "Opaque sub-type code\n"
874 "Opaque sub-type code\n")
878 proto
= proto_redistnum(AFI_IP
, proto_str
);
880 sharp_opaque_reg_send((reg
!= NULL
), proto
, instance
, session
, type
);
884 DEFPY (neigh_discover
,
886 "sharp neigh discover [vrf NAME$vrf_name] <A.B.C.D$dst4|X:X::X:X$dst6> IFNAME$ifname",
888 "Discover neighbours\n"
889 "Send an ARP/NDP request\n"
891 "v4 Destination address\n"
892 "v6 Destination address\n"
896 struct interface
*ifp
;
897 struct prefix prefix
;
899 memset(&prefix
, 0, sizeof(prefix
));
901 if (dst4
.s_addr
!= INADDR_ANY
) {
902 prefix
.family
= AF_INET
;
903 prefix
.prefixlen
= IPV4_MAX_BITLEN
;
904 prefix
.u
.prefix4
= dst4
;
906 prefix
.family
= AF_INET6
;
907 prefix
.prefixlen
= 128;
908 prefix
.u
.prefix6
= dst6
;
911 vrf
= vrf_lookup_by_name(vrf_name
? vrf_name
: VRF_DEFAULT_NAME
);
913 vty_out(vty
, "The vrf NAME specified: %s does not exist\n",
914 vrf_name
? vrf_name
: VRF_DEFAULT_NAME
);
918 ifp
= if_lookup_by_name_vrf(ifname
, vrf
);
920 vty_out(vty
, "%% Can't find interface %s\n", ifname
);
924 sharp_zebra_send_arp(ifp
, &prefix
);
933 "Import Traffic Engineering\n")
935 sg
.ted
= ls_ted_new(1, "Sharp", 0);
936 sharp_zebra_register_te();
941 static void sharp_srv6_locator_chunk_free(struct prefix_ipv6
*chunk
)
943 prefix_ipv6_free((struct prefix_ipv6
**)&chunk
);
946 DEFPY (sharp_srv6_manager_get_locator_chunk
,
947 sharp_srv6_manager_get_locator_chunk_cmd
,
948 "sharp srv6-manager get-locator-chunk NAME$locator_name",
950 "Segment-Routing IPv6\n"
951 "Get SRv6 locator-chunk\n"
952 "SRv6 Locator name\n")
955 struct listnode
*node
;
956 struct sharp_srv6_locator
*loc
;
957 struct sharp_srv6_locator
*loc_found
= NULL
;
959 for (ALL_LIST_ELEMENTS_RO(sg
.srv6_locators
, node
, loc
)) {
960 if (strcmp(loc
->name
, locator_name
))
966 loc
= XCALLOC(MTYPE_SRV6_LOCATOR
,
967 sizeof(struct sharp_srv6_locator
));
968 loc
->chunks
= list_new();
970 (void (*)(void *))sharp_srv6_locator_chunk_free
;
971 snprintf(loc
->name
, SRV6_LOCNAME_SIZE
, "%s", locator_name
);
972 listnode_add(sg
.srv6_locators
, loc
);
975 ret
= sharp_zebra_srv6_manager_get_locator_chunk(locator_name
);
977 return CMD_WARNING_CONFIG_FAILED
;
982 DEFUN (show_sharp_ted
,
984 "show sharp ted [<vertex [A.B.C.D]|edge [A.B.C.D]|subnet [A.B.C.D/M]>] [verbose|json]",
987 "Traffic Engineering Database\n"
989 "MPLS-TE router ID (as an IP address)\n"
991 "MPLS-TE Edge ID (as an IP address)\n"
993 "MPLS-TE Subnet ID (as an IP prefix)\n"
998 struct in_addr ip_addr
;
1000 struct ls_vertex
*vertex
;
1001 struct ls_edge
*edge
;
1002 struct ls_subnet
*subnet
;
1004 bool verbose
= false;
1005 bool uj
= use_json(argc
, argv
);
1006 json_object
*json
= NULL
;
1008 if (sg
.ted
== NULL
) {
1009 vty_out(vty
, "MPLS-TE import is not enabled\n");
1014 json
= json_object_new_object();
1016 if (argv
[argc
- 1]->arg
&& strmatch(argv
[argc
- 1]->text
, "verbose"))
1019 if (argv_find(argv
, argc
, "vertex", &idx
)) {
1021 if (argv_find(argv
, argc
, "A.B.C.D", &idx
)) {
1022 if (!inet_aton(argv
[idx
+ 1]->arg
, &ip_addr
)) {
1024 "Specified Router ID %s is invalid\n",
1025 argv
[idx
+ 1]->arg
);
1026 return CMD_WARNING_CONFIG_FAILED
;
1028 /* Get the Vertex from the Link State Database */
1029 key
= ((uint64_t)ip_addr
.s_addr
) & 0xffffffff;
1030 vertex
= ls_find_vertex_by_key(sg
.ted
, key
);
1032 vty_out(vty
, "No vertex found for ID %pI4\n",
1040 ls_show_vertex(vertex
, vty
, json
, verbose
);
1042 ls_show_vertices(sg
.ted
, vty
, json
, verbose
);
1044 } else if (argv_find(argv
, argc
, "edge", &idx
)) {
1046 if (argv_find(argv
, argc
, "A.B.C.D", &idx
)) {
1047 if (!inet_aton(argv
[idx
]->arg
, &ip_addr
)) {
1049 "Specified Edge ID %s is invalid\n",
1051 return CMD_WARNING_CONFIG_FAILED
;
1053 /* Get the Edge from the Link State Database */
1054 key
= ((uint64_t)ip_addr
.s_addr
) & 0xffffffff;
1055 edge
= ls_find_edge_by_key(sg
.ted
, key
);
1057 vty_out(vty
, "No edge found for ID %pI4\n",
1065 ls_show_edge(edge
, vty
, json
, verbose
);
1067 ls_show_edges(sg
.ted
, vty
, json
, verbose
);
1069 } else if (argv_find(argv
, argc
, "subnet", &idx
)) {
1071 if (argv_find(argv
, argc
, "A.B.C.D/M", &idx
)) {
1072 if (!str2prefix(argv
[idx
]->arg
, &pref
)) {
1073 vty_out(vty
, "Invalid prefix format %s\n",
1075 return CMD_WARNING_CONFIG_FAILED
;
1077 /* Get the Subnet from the Link State Database */
1078 subnet
= ls_find_subnet(sg
.ted
, pref
);
1080 vty_out(vty
, "No subnet found for ID %pFX\n",
1088 ls_show_subnet(subnet
, vty
, json
, verbose
);
1090 ls_show_subnets(sg
.ted
, vty
, json
, verbose
);
1093 /* Show the complete TED */
1094 ls_show_ted(sg
.ted
, vty
, json
, verbose
);
1098 vty_json(vty
, json
);
1103 DEFPY (sharp_srv6_manager_release_locator_chunk
,
1104 sharp_srv6_manager_release_locator_chunk_cmd
,
1105 "sharp srv6-manager release-locator-chunk NAME$locator_name",
1107 "Segment-Routing IPv6\n"
1108 "Release SRv6 locator-chunk\n"
1109 "SRv6 Locator name\n")
1112 struct listnode
*loc_node
;
1113 struct sharp_srv6_locator
*loc
;
1115 for (ALL_LIST_ELEMENTS_RO(sg
.srv6_locators
, loc_node
, loc
)) {
1116 if (!strcmp(loc
->name
, locator_name
)) {
1117 list_delete_all_node(loc
->chunks
);
1118 list_delete(&loc
->chunks
);
1119 listnode_delete(sg
.srv6_locators
, loc
);
1120 XFREE(MTYPE_SRV6_LOCATOR
, loc
);
1125 ret
= sharp_zebra_srv6_manager_release_locator_chunk(locator_name
);
1127 return CMD_WARNING_CONFIG_FAILED
;
1132 DEFPY (show_sharp_segment_routing_srv6
,
1133 show_sharp_segment_routing_srv6_cmd
,
1134 "show sharp segment-routing srv6 [json]",
1138 "Segment-Routing IPv6\n"
1142 struct listnode
*loc_node
;
1143 struct listnode
*chunk_node
;
1144 struct sharp_srv6_locator
*loc
;
1145 struct prefix_ipv6
*chunk
;
1146 bool uj
= use_json(argc
, argv
);
1147 json_object
*jo_locs
= NULL
;
1148 json_object
*jo_loc
= NULL
;
1149 json_object
*jo_chunks
= NULL
;
1152 jo_locs
= json_object_new_array();
1153 for (ALL_LIST_ELEMENTS_RO(sg
.srv6_locators
, loc_node
, loc
)) {
1154 jo_loc
= json_object_new_object();
1155 json_object_array_add(jo_locs
, jo_loc
);
1156 json_object_string_add(jo_loc
, "name", loc
->name
);
1157 jo_chunks
= json_object_new_array();
1158 json_object_object_add(jo_loc
, "chunks", jo_chunks
);
1159 for (ALL_LIST_ELEMENTS_RO(loc
->chunks
, chunk_node
,
1161 prefix2str(chunk
, str
, sizeof(str
));
1162 json_array_string_add(jo_chunks
, str
);
1166 vty_json(vty
, jo_locs
);
1168 for (ALL_LIST_ELEMENTS_RO(sg
.srv6_locators
, loc_node
, loc
)) {
1169 vty_out(vty
, "Locator %s has %d prefix chunks\n",
1170 loc
->name
, listcount(loc
->chunks
));
1171 for (ALL_LIST_ELEMENTS_RO(loc
->chunks
, chunk_node
,
1173 prefix2str(chunk
, str
, sizeof(str
));
1174 vty_out(vty
, " %s\n", str
);
1183 DEFPY (show_sharp_cspf
,
1184 show_sharp_cspf_cmd
,
1185 "show sharp cspf source <A.B.C.D$src4|X:X::X:X$src6> \
1186 destination <A.B.C.D$dst4|X:X::X:X$dst6> \
1187 <metric|te-metric|delay> (0-16777215)$cost \
1188 [rsv-bw (0-7)$cos BANDWIDTH$bw]",
1191 "Constraint Shortest Path First path computation\n"
1192 "Source of the path\n"
1193 "IPv4 Source address in dot decimal A.B.C.D\n"
1194 "IPv6 Source address as X:X:X:X\n"
1195 "Destination of the path\n"
1196 "IPv4 Destination address in dot decimal A.B.C.D\n"
1197 "IPv6 Destination address as X:X:X:X\n"
1199 "Maximum TE Metric\n"
1201 "Value of Maximum cost\n"
1202 "Reserved Bandwidth of this path\n"
1203 "Class of Service or Priority level\n"
1204 "Bytes/second (IEEE floating point format)\n")
1208 struct constraints csts
;
1209 struct c_path
*path
;
1210 struct listnode
*node
;
1211 struct ls_edge
*edge
;
1214 if (sg
.ted
== NULL
) {
1215 vty_out(vty
, "MPLS-TE import is not enabled\n");
1219 if ((src4
.s_addr
!= INADDR_ANY
&& dst4
.s_addr
== INADDR_ANY
) ||
1220 (src4
.s_addr
== INADDR_ANY
&& dst4
.s_addr
!= INADDR_ANY
)) {
1221 vty_out(vty
, "Don't mix IPv4 and IPv6 addresses\n");
1226 memset(&csts
, 0, sizeof(struct constraints
));
1227 if (argv_find(argv
, argc
, "metric", &idx
)) {
1228 csts
.ctype
= CSPF_METRIC
;
1232 if (argv_find(argv
, argc
, "te-metric", &idx
)) {
1233 csts
.ctype
= CSPF_TE_METRIC
;
1237 if (argv_find(argv
, argc
, "delay", &idx
)) {
1238 csts
.ctype
= CSPF_DELAY
;
1242 if (sscanf(bw
, "%g", &csts
.bw
) != 1) {
1243 vty_out(vty
, "Bandwidth constraints: fscanf: %s\n",
1244 safe_strerror(errno
));
1245 return CMD_WARNING_CONFIG_FAILED
;
1250 /* Initialize and call point-to-point Path computation */
1251 if (src4
.s_addr
!= INADDR_ANY
)
1252 algo
= cspf_init_v4(NULL
, sg
.ted
, src4
, dst4
, &csts
);
1254 algo
= cspf_init_v6(NULL
, sg
.ted
, src6
, dst6
, &csts
);
1255 path
= compute_p2p_path(algo
, sg
.ted
);
1259 vty_out(vty
, "Path computation failed without error\n");
1262 if (path
->status
!= SUCCESS
) {
1263 vty_out(vty
, "Path computation failed: %d\n", path
->status
);
1267 vty_out(vty
, "Path computation success\n");
1268 vty_out(vty
, "\tCost: %d\n", path
->weight
);
1269 vty_out(vty
, "\tEdges:");
1270 for (ALL_LIST_ELEMENTS_RO(path
->edges
, node
, edge
)) {
1271 if (src4
.s_addr
!= INADDR_ANY
)
1272 vty_out(vty
, " %pI4",
1273 &edge
->attributes
->standard
.remote
);
1275 vty_out(vty
, " %pI6",
1276 &edge
->attributes
->standard
.remote6
);
1283 static struct interface
*if_lookup_vrf_all(const char *ifname
)
1285 struct interface
*ifp
;
1288 RB_FOREACH(vrf
, vrf_name_head
, &vrfs_by_name
) {
1289 ifp
= if_lookup_by_name(ifname
, vrf
->vrf_id
);
1297 DEFPY (sharp_interface_protodown
,
1298 sharp_interface_protodown_cmd
,
1299 "sharp interface IFNAME$ifname protodown",
1303 "Set interface protodown\n")
1305 struct interface
*ifp
;
1307 ifp
= if_lookup_vrf_all(ifname
);
1310 vty_out(vty
, "%% Can't find interface %s\n", ifname
);
1314 if (sharp_zebra_send_interface_protodown(ifp
, true) != 0)
1320 DEFPY (no_sharp_interface_protodown
,
1321 no_sharp_interface_protodown_cmd
,
1322 "no sharp interface IFNAME$ifname protodown",
1327 "Set interface protodown\n")
1329 struct interface
*ifp
;
1331 ifp
= if_lookup_vrf_all(ifname
);
1334 vty_out(vty
, "%% Can't find interface %s\n", ifname
);
1338 if (sharp_zebra_send_interface_protodown(ifp
, false) != 0)
1344 void sharp_vty_init(void)
1346 install_element(ENABLE_NODE
, &install_routes_data_dump_cmd
);
1347 install_element(ENABLE_NODE
, &install_routes_cmd
);
1348 install_element(ENABLE_NODE
, &install_seg6_routes_cmd
);
1349 install_element(ENABLE_NODE
, &install_seg6local_routes_cmd
);
1350 install_element(ENABLE_NODE
, &remove_routes_cmd
);
1351 install_element(ENABLE_NODE
, &vrf_label_cmd
);
1352 install_element(ENABLE_NODE
, &sharp_nht_data_dump_cmd
);
1353 install_element(ENABLE_NODE
, &watch_redistribute_cmd
);
1354 install_element(ENABLE_NODE
, &watch_nexthop_v6_cmd
);
1355 install_element(ENABLE_NODE
, &watch_nexthop_v4_cmd
);
1356 install_element(ENABLE_NODE
, &sharp_lsp_prefix_v4_cmd
);
1357 install_element(ENABLE_NODE
, &sharp_remove_lsp_prefix_v4_cmd
);
1358 install_element(ENABLE_NODE
, &logpump_cmd
);
1359 install_element(ENABLE_NODE
, &create_session_cmd
);
1360 install_element(ENABLE_NODE
, &remove_session_cmd
);
1361 install_element(ENABLE_NODE
, &send_opaque_cmd
);
1362 install_element(ENABLE_NODE
, &send_opaque_unicast_cmd
);
1363 install_element(ENABLE_NODE
, &send_opaque_reg_cmd
);
1364 install_element(ENABLE_NODE
, &neigh_discover_cmd
);
1365 install_element(ENABLE_NODE
, &import_te_cmd
);
1367 install_element(ENABLE_NODE
, &show_debugging_sharpd_cmd
);
1368 install_element(ENABLE_NODE
, &show_sharp_ted_cmd
);
1369 install_element(ENABLE_NODE
, &show_sharp_cspf_cmd
);
1371 install_element(ENABLE_NODE
, &sharp_srv6_manager_get_locator_chunk_cmd
);
1372 install_element(ENABLE_NODE
,
1373 &sharp_srv6_manager_release_locator_chunk_cmd
);
1374 install_element(ENABLE_NODE
, &show_sharp_segment_routing_srv6_cmd
);
1376 install_element(ENABLE_NODE
, &sharp_interface_protodown_cmd
);
1377 install_element(ENABLE_NODE
, &no_sharp_interface_protodown_cmd
);