]> git.proxmox.com Git - mirror_frr.git/blob - ospf6d/ospf6_intra.c
projects / mirror_frr.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Merge pull request #2038 from qlyoung/graph-find-node
[mirror_frr.git] / ospf6d / ospf6_intra.c
1 /*
2 * Copyright (C) 2003 Yasuhiro Ohara
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 "log.h"
24 #include "linklist.h"
25 #include "thread.h"
26 #include "memory.h"
27 #include "if.h"
28 #include "prefix.h"
29 #include "table.h"
30 #include "vty.h"
31 #include "command.h"
32 #include "vrf.h"
33
34 #include "ospf6_proto.h"
35 #include "ospf6_message.h"
36 #include "ospf6_route.h"
37 #include "ospf6_lsa.h"
38 #include "ospf6_lsdb.h"
39
40 #include "ospf6_top.h"
41 #include "ospf6_area.h"
42 #include "ospf6_interface.h"
43 #include "ospf6_neighbor.h"
44 #include "ospf6_intra.h"
45 #include "ospf6_asbr.h"
46 #include "ospf6_abr.h"
47 #include "ospf6_flood.h"
48 #include "ospf6d.h"
49 #include "ospf6_spf.h"
50
51 unsigned char conf_debug_ospf6_brouter = 0;
52 uint32_t conf_debug_ospf6_brouter_specific_router_id;
53 uint32_t conf_debug_ospf6_brouter_specific_area_id;
54
55 #define MAX_LSA_PAYLOAD (1024 + 256)
56 /******************************/
57 /* RFC2740 3.4.3.1 Router-LSA */
58 /******************************/
59
60 static char *ospf6_router_lsa_get_nbr_id(struct ospf6_lsa *lsa, char *buf,
61 int buflen, int pos)
62 {
63 struct ospf6_router_lsa *router_lsa;
64 struct ospf6_router_lsdesc *lsdesc;
65 char *start, *end;
66 char buf1[INET_ADDRSTRLEN], buf2[INET_ADDRSTRLEN];
67
68 if (lsa) {
69 router_lsa = (struct ospf6_router_lsa
70 *)((char *)lsa->header
71 + sizeof(struct ospf6_lsa_header));
72 start = (char *)router_lsa + sizeof(struct ospf6_router_lsa);
73 end = (char *)lsa->header + ntohs(lsa->header->length);
74
75 lsdesc = (struct ospf6_router_lsdesc
76 *)(start
77 + pos * (sizeof(struct
78 ospf6_router_lsdesc)));
79 if ((char *)lsdesc < end) {
80 if (buf && (buflen > INET_ADDRSTRLEN * 2)) {
81 inet_ntop(AF_INET,
82 &lsdesc->neighbor_interface_id, buf1,
83 sizeof(buf1));
84 inet_ntop(AF_INET, &lsdesc->neighbor_router_id,
85 buf2, sizeof(buf2));
86 sprintf(buf, "%s/%s", buf2, buf1);
87 }
88 } else
89 return NULL;
90 }
91
92 return buf;
93 }
94
95 static int ospf6_router_lsa_show(struct vty *vty, struct ospf6_lsa *lsa)
96 {
97 char *start, *end, *current;
98 char buf[32], name[32], bits[16], options[32];
99 struct ospf6_router_lsa *router_lsa;
100 struct ospf6_router_lsdesc *lsdesc;
101
102 router_lsa =
103 (struct ospf6_router_lsa *)((char *)lsa->header
104 + sizeof(struct ospf6_lsa_header));
105
106 ospf6_capability_printbuf(router_lsa->bits, bits, sizeof(bits));
107 ospf6_options_printbuf(router_lsa->options, options, sizeof(options));
108 vty_out(vty, " Bits: %s Options: %s\n", bits, options);
109
110 start = (char *)router_lsa + sizeof(struct ospf6_router_lsa);
111 end = (char *)lsa->header + ntohs(lsa->header->length);
112 for (current = start;
113 current + sizeof(struct ospf6_router_lsdesc) <= end;
114 current += sizeof(struct ospf6_router_lsdesc)) {
115 lsdesc = (struct ospf6_router_lsdesc *)current;
116
117 if (lsdesc->type == OSPF6_ROUTER_LSDESC_POINTTOPOINT)
118 snprintf(name, sizeof(name), "Point-To-Point");
119 else if (lsdesc->type == OSPF6_ROUTER_LSDESC_TRANSIT_NETWORK)
120 snprintf(name, sizeof(name), "Transit-Network");
121 else if (lsdesc->type == OSPF6_ROUTER_LSDESC_STUB_NETWORK)
122 snprintf(name, sizeof(name), "Stub-Network");
123 else if (lsdesc->type == OSPF6_ROUTER_LSDESC_VIRTUAL_LINK)
124 snprintf(name, sizeof(name), "Virtual-Link");
125 else
126 snprintf(name, sizeof(name), "Unknown (%#x)",
127 lsdesc->type);
128
129 vty_out(vty, " Type: %s Metric: %d\n", name,
130 ntohs(lsdesc->metric));
131 vty_out(vty, " Interface ID: %s\n",
132 inet_ntop(AF_INET, &lsdesc->interface_id, buf,
133 sizeof(buf)));
134 vty_out(vty, " Neighbor Interface ID: %s\n",
135 inet_ntop(AF_INET, &lsdesc->neighbor_interface_id, buf,
136 sizeof(buf)));
137 vty_out(vty, " Neighbor Router ID: %s\n",
138 inet_ntop(AF_INET, &lsdesc->neighbor_router_id, buf,
139 sizeof(buf)));
140 }
141 return 0;
142 }
143
144 static void ospf6_router_lsa_options_set(struct ospf6_area *oa,
145 struct ospf6_router_lsa *router_lsa)
146 {
147 OSPF6_OPT_CLEAR_ALL(router_lsa->options);
148 memcpy(router_lsa->options, oa->options, 3);
149
150 if (ospf6_is_router_abr(ospf6))
151 SET_FLAG(router_lsa->bits, OSPF6_ROUTER_BIT_B);
152 else
153 UNSET_FLAG(router_lsa->bits, OSPF6_ROUTER_BIT_B);
154
155 if (!IS_AREA_STUB(oa) && ospf6_asbr_is_asbr(oa->ospf6)) {
156 SET_FLAG(router_lsa->bits, OSPF6_ROUTER_BIT_E);
157 } else {
158 UNSET_FLAG(router_lsa->bits, OSPF6_ROUTER_BIT_E);
159 }
160
161 UNSET_FLAG(router_lsa->bits, OSPF6_ROUTER_BIT_V);
162 UNSET_FLAG(router_lsa->bits, OSPF6_ROUTER_BIT_W);
163 }
164
165 int ospf6_router_is_stub_router(struct ospf6_lsa *lsa)
166 {
167 struct ospf6_router_lsa *rtr_lsa;
168
169 if (lsa != NULL && OSPF6_LSA_IS_TYPE(ROUTER, lsa)) {
170 rtr_lsa = (struct ospf6_router_lsa
171 *)((caddr_t)lsa->header
172 + sizeof(struct ospf6_lsa_header));
173
174 if (!OSPF6_OPT_ISSET(rtr_lsa->options, OSPF6_OPT_R)) {
175 return (OSPF6_IS_STUB_ROUTER);
176 } else if (!OSPF6_OPT_ISSET(rtr_lsa->options, OSPF6_OPT_V6)) {
177 return (OSPF6_IS_STUB_ROUTER_V6);
178 }
179 }
180
181 return (OSPF6_NOT_STUB_ROUTER);
182 }
183
184 int ospf6_router_lsa_originate(struct thread *thread)
185 {
186 struct ospf6_area *oa;
187
188 char buffer[OSPF6_MAX_LSASIZE];
189 struct ospf6_lsa_header *lsa_header;
190 struct ospf6_lsa *lsa;
191
192 uint32_t link_state_id = 0;
193 struct listnode *node, *nnode;
194 struct listnode *j;
195 struct ospf6_interface *oi;
196 struct ospf6_neighbor *on, *drouter = NULL;
197 struct ospf6_router_lsa *router_lsa;
198 struct ospf6_router_lsdesc *lsdesc;
199 uint16_t type;
200 uint32_t router;
201 int count;
202
203 oa = (struct ospf6_area *)THREAD_ARG(thread);
204 oa->thread_router_lsa = NULL;
205
206 if (IS_OSPF6_DEBUG_ORIGINATE(ROUTER))
207 zlog_debug("Originate Router-LSA for Area %s", oa->name);
208
209 memset(buffer, 0, sizeof(buffer));
210 lsa_header = (struct ospf6_lsa_header *)buffer;
211 router_lsa =
212 (struct ospf6_router_lsa *)((caddr_t)lsa_header
213 + sizeof(struct ospf6_lsa_header));
214
215 ospf6_router_lsa_options_set(oa, router_lsa);
216
217 /* describe links for each interfaces */
218 lsdesc = (struct ospf6_router_lsdesc
219 *)((caddr_t)router_lsa
220 + sizeof(struct ospf6_router_lsa));
221
222 for (ALL_LIST_ELEMENTS(oa->if_list, node, nnode, oi)) {
223 /* Interfaces in state Down or Loopback are not described */
224 if (oi->state == OSPF6_INTERFACE_DOWN
225 || oi->state == OSPF6_INTERFACE_LOOPBACK)
226 continue;
227
228 /* Nor are interfaces without any full adjacencies described */
229 count = 0;
230 for (ALL_LIST_ELEMENTS_RO(oi->neighbor_list, j, on))
231 if (on->state == OSPF6_NEIGHBOR_FULL)
232 count++;
233
234 if (count == 0)
235 continue;
236
237 /* Multiple Router-LSA instance according to size limit setting
238 */
239 if ((oa->router_lsa_size_limit != 0)
240 && ((size_t)((char *)lsdesc - buffer)
241 + sizeof(struct ospf6_router_lsdesc)
242 > oa->router_lsa_size_limit)) {
243 if ((caddr_t)lsdesc
244 == (caddr_t)router_lsa
245 + sizeof(struct ospf6_router_lsa)) {
246 if (IS_OSPF6_DEBUG_ORIGINATE(ROUTER))
247 zlog_debug(
248 "Size limit setting for Router-LSA too short");
249 return 0;
250 }
251
252 /* Fill LSA Header */
253 lsa_header->age = 0;
254 lsa_header->type = htons(OSPF6_LSTYPE_ROUTER);
255 lsa_header->id = htonl(link_state_id);
256 lsa_header->adv_router = oa->ospf6->router_id;
257 lsa_header->seqnum = ospf6_new_ls_seqnum(
258 lsa_header->type, lsa_header->id,
259 lsa_header->adv_router, oa->lsdb);
260 lsa_header->length =
261 htons((caddr_t)lsdesc - (caddr_t)buffer);
262
263 /* LSA checksum */
264 ospf6_lsa_checksum(lsa_header);
265
266 /* create LSA */
267 lsa = ospf6_lsa_create(lsa_header);
268
269 /* Originate */
270 ospf6_lsa_originate_area(lsa, oa);
271
272 /* Reset Buffer to fill next Router LSA */
273 memset(buffer, 0, sizeof(buffer));
274 lsa_header = (struct ospf6_lsa_header *)buffer;
275 router_lsa =
276 (struct ospf6_router_lsa
277 *)((caddr_t)lsa_header
278 + sizeof(struct ospf6_lsa_header));
279
280 ospf6_router_lsa_options_set(oa, router_lsa);
281
282 /* describe links for each interfaces */
283 lsdesc = (struct ospf6_router_lsdesc
284 *)((caddr_t)router_lsa
285 + sizeof(struct ospf6_router_lsa));
286
287 link_state_id++;
288 }
289
290 /* Point-to-Point interfaces */
291 if (oi->type == OSPF_IFTYPE_POINTOPOINT) {
292 for (ALL_LIST_ELEMENTS_RO(oi->neighbor_list, j, on)) {
293 if (on->state != OSPF6_NEIGHBOR_FULL)
294 continue;
295
296 lsdesc->type = OSPF6_ROUTER_LSDESC_POINTTOPOINT;
297 lsdesc->metric = htons(oi->cost);
298 lsdesc->interface_id =
299 htonl(oi->interface->ifindex);
300 lsdesc->neighbor_interface_id =
301 htonl(on->ifindex);
302 lsdesc->neighbor_router_id = on->router_id;
303
304 lsdesc++;
305 }
306 }
307
308 /* Broadcast and NBMA interfaces */
309 else if (oi->type == OSPF_IFTYPE_BROADCAST) {
310 /* If this router is not DR,
311 and If this router not fully adjacent with DR,
312 this interface is not transit yet: ignore. */
313 if (oi->state != OSPF6_INTERFACE_DR) {
314 drouter =
315 ospf6_neighbor_lookup(oi->drouter, oi);
316 if (drouter == NULL
317 || drouter->state != OSPF6_NEIGHBOR_FULL)
318 continue;
319 }
320
321 lsdesc->type = OSPF6_ROUTER_LSDESC_TRANSIT_NETWORK;
322 lsdesc->metric = htons(oi->cost);
323 lsdesc->interface_id = htonl(oi->interface->ifindex);
324 if (oi->state != OSPF6_INTERFACE_DR) {
325 lsdesc->neighbor_interface_id =
326 htonl(drouter->ifindex);
327 lsdesc->neighbor_router_id = drouter->router_id;
328 } else {
329 lsdesc->neighbor_interface_id =
330 htonl(oi->interface->ifindex);
331 lsdesc->neighbor_router_id =
332 oi->area->ospf6->router_id;
333 }
334
335 lsdesc++;
336 } else {
337 assert(0); /* Unknown interface type */
338 }
339
340 /* Virtual links */
341 /* xxx */
342 /* Point-to-Multipoint interfaces */
343 /* xxx */
344 }
345
346 /* Fill LSA Header */
347 lsa_header->age = 0;
348 lsa_header->type = htons(OSPF6_LSTYPE_ROUTER);
349 lsa_header->id = htonl(link_state_id);
350 lsa_header->adv_router = oa->ospf6->router_id;
351 lsa_header->seqnum =
352 ospf6_new_ls_seqnum(lsa_header->type, lsa_header->id,
353 lsa_header->adv_router, oa->lsdb);
354 lsa_header->length = htons((caddr_t)lsdesc - (caddr_t)buffer);
355
356 /* LSA checksum */
357 ospf6_lsa_checksum(lsa_header);
358
359 /* create LSA */
360 lsa = ospf6_lsa_create(lsa_header);
361
362 /* Originate */
363 ospf6_lsa_originate_area(lsa, oa);
364
365 link_state_id++;
366
367 /* Do premature-aging of rest, undesired Router-LSAs */
368 type = ntohs(OSPF6_LSTYPE_ROUTER);
369 router = oa->ospf6->router_id;
370 count = 0;
371 for (ALL_LSDB_TYPED_ADVRTR(oa->lsdb, type, router, lsa)) {
372 if (ntohl(lsa->header->id) < link_state_id)
373 continue;
374 ospf6_lsa_purge(lsa);
375 count++;
376 }
377
378 /*
379 * Waiting till the LSA is actually removed from the database to trigger
380 * SPF delays network convergence. Unlike IPv4, for an ABR, when all
381 * interfaces associated with an area are gone, triggering an SPF right
382 * away
383 * helps convergence with inter-area routes.
384 */
385 if (count && !link_state_id)
386 ospf6_spf_schedule(oa->ospf6,
387 OSPF6_SPF_FLAGS_ROUTER_LSA_ORIGINATED);
388
389 return 0;
390 }
391
392 /*******************************/
393 /* RFC2740 3.4.3.2 Network-LSA */
394 /*******************************/
395
396 static char *ospf6_network_lsa_get_ar_id(struct ospf6_lsa *lsa, char *buf,
397 int buflen, int pos)
398 {
399 char *start, *end, *current;
400 struct ospf6_network_lsa *network_lsa;
401 struct ospf6_network_lsdesc *lsdesc;
402
403 if (lsa) {
404 network_lsa = (struct ospf6_network_lsa
405 *)((caddr_t)lsa->header
406 + sizeof(struct ospf6_lsa_header));
407
408 start = (char *)network_lsa + sizeof(struct ospf6_network_lsa);
409 end = (char *)lsa->header + ntohs(lsa->header->length);
410 current = start + pos * (sizeof(struct ospf6_network_lsdesc));
411
412 if ((current + sizeof(struct ospf6_network_lsdesc)) <= end) {
413 lsdesc = (struct ospf6_network_lsdesc *)current;
414 if (buf)
415 inet_ntop(AF_INET, &lsdesc->router_id, buf,
416 buflen);
417 } else
418 return NULL;
419 }
420
421 return (buf);
422 }
423
424 static int ospf6_network_lsa_show(struct vty *vty, struct ospf6_lsa *lsa)
425 {
426 char *start, *end, *current;
427 struct ospf6_network_lsa *network_lsa;
428 struct ospf6_network_lsdesc *lsdesc;
429 char buf[128], options[32];
430
431 network_lsa =
432 (struct ospf6_network_lsa *)((caddr_t)lsa->header
433 + sizeof(struct ospf6_lsa_header));
434
435 ospf6_options_printbuf(network_lsa->options, options, sizeof(options));
436 vty_out(vty, " Options: %s\n", options);
437
438 start = (char *)network_lsa + sizeof(struct ospf6_network_lsa);
439 end = (char *)lsa->header + ntohs(lsa->header->length);
440 for (current = start;
441 current + sizeof(struct ospf6_network_lsdesc) <= end;
442 current += sizeof(struct ospf6_network_lsdesc)) {
443 lsdesc = (struct ospf6_network_lsdesc *)current;
444 inet_ntop(AF_INET, &lsdesc->router_id, buf, sizeof(buf));
445 vty_out(vty, " Attached Router: %s\n", buf);
446 }
447 return 0;
448 }
449
450 int ospf6_network_lsa_originate(struct thread *thread)
451 {
452 struct ospf6_interface *oi;
453
454 char buffer[OSPF6_MAX_LSASIZE];
455 struct ospf6_lsa_header *lsa_header;
456
457 int count;
458 struct ospf6_lsa *old, *lsa;
459 struct ospf6_network_lsa *network_lsa;
460 struct ospf6_network_lsdesc *lsdesc;
461 struct ospf6_neighbor *on;
462 struct ospf6_link_lsa *link_lsa;
463 struct listnode *i;
464 uint16_t type;
465
466 oi = (struct ospf6_interface *)THREAD_ARG(thread);
467 oi->thread_network_lsa = NULL;
468
469 /* The interface must be enabled until here. A Network-LSA of a
470 disabled interface (but was once enabled) should be flushed
471 by ospf6_lsa_refresh (), and does not come here. */
472 assert(oi->area);
473
474 old = ospf6_lsdb_lookup(htons(OSPF6_LSTYPE_NETWORK),
475 htonl(oi->interface->ifindex),
476 oi->area->ospf6->router_id, oi->area->lsdb);
477
478 /* Do not originate Network-LSA if not DR */
479 if (oi->state != OSPF6_INTERFACE_DR) {
480 if (old) {
481 ospf6_lsa_purge(old);
482 /*
483 * Waiting till the LSA is actually removed from the
484 * database to
485 * trigger SPF delays network convergence.
486 */
487 ospf6_spf_schedule(
488 oi->area->ospf6,
489 OSPF6_SPF_FLAGS_NETWORK_LSA_ORIGINATED);
490 }
491 return 0;
492 }
493
494 if (IS_OSPF6_DEBUG_ORIGINATE(NETWORK))
495 zlog_debug("Originate Network-LSA for Interface %s",
496 oi->interface->name);
497
498 /* If none of neighbor is adjacent to us */
499 count = 0;
500
501 for (ALL_LIST_ELEMENTS_RO(oi->neighbor_list, i, on))
502 if (on->state == OSPF6_NEIGHBOR_FULL)
503 count++;
504
505 if (count == 0) {
506 if (IS_OSPF6_DEBUG_ORIGINATE(NETWORK))
507 zlog_debug("Interface stub, ignore");
508 if (old)
509 ospf6_lsa_purge(old);
510 return 0;
511 }
512
513 /* prepare buffer */
514 memset(buffer, 0, sizeof(buffer));
515 lsa_header = (struct ospf6_lsa_header *)buffer;
516 network_lsa =
517 (struct ospf6_network_lsa *)((caddr_t)lsa_header
518 + sizeof(struct ospf6_lsa_header));
519
520 /* Collect the interface's Link-LSAs to describe
521 network's optional capabilities */
522 type = htons(OSPF6_LSTYPE_LINK);
523 for (ALL_LSDB_TYPED(oi->lsdb, type, lsa)) {
524 link_lsa = (struct ospf6_link_lsa
525 *)((caddr_t)lsa->header
526 + sizeof(struct ospf6_lsa_header));
527 network_lsa->options[0] |= link_lsa->options[0];
528 network_lsa->options[1] |= link_lsa->options[1];
529 network_lsa->options[2] |= link_lsa->options[2];
530 }
531
532 lsdesc = (struct ospf6_network_lsdesc
533 *)((caddr_t)network_lsa
534 + sizeof(struct ospf6_network_lsa));
535
536 /* set Link Description to the router itself */
537 lsdesc->router_id = oi->area->ospf6->router_id;
538 lsdesc++;
539
540 /* Walk through the neighbors */
541 for (ALL_LIST_ELEMENTS_RO(oi->neighbor_list, i, on)) {
542 if (on->state != OSPF6_NEIGHBOR_FULL)
543 continue;
544
545 /* set this neighbor's Router-ID to LSA */
546 lsdesc->router_id = on->router_id;
547 lsdesc++;
548 }
549
550 /* Fill LSA Header */
551 lsa_header->age = 0;
552 lsa_header->type = htons(OSPF6_LSTYPE_NETWORK);
553 lsa_header->id = htonl(oi->interface->ifindex);
554 lsa_header->adv_router = oi->area->ospf6->router_id;
555 lsa_header->seqnum =
556 ospf6_new_ls_seqnum(lsa_header->type, lsa_header->id,
557 lsa_header->adv_router, oi->area->lsdb);
558 lsa_header->length = htons((caddr_t)lsdesc - (caddr_t)buffer);
559
560 /* LSA checksum */
561 ospf6_lsa_checksum(lsa_header);
562
563 /* create LSA */
564 lsa = ospf6_lsa_create(lsa_header);
565
566 /* Originate */
567 ospf6_lsa_originate_area(lsa, oi->area);
568
569 return 0;
570 }
571
572
573 /****************************/
574 /* RFC2740 3.4.3.6 Link-LSA */
575 /****************************/
576
577 static char *ospf6_link_lsa_get_prefix_str(struct ospf6_lsa *lsa, char *buf,
578 int buflen, int pos)
579 {
580 char *start, *end, *current;
581 struct ospf6_link_lsa *link_lsa;
582 struct in6_addr in6;
583 struct ospf6_prefix *prefix;
584 int cnt = 0, prefixnum;
585
586 if (lsa) {
587 link_lsa = (struct ospf6_link_lsa
588 *)((caddr_t)lsa->header
589 + sizeof(struct ospf6_lsa_header));
590
591 if (pos == 0) {
592 inet_ntop(AF_INET6, &link_lsa->linklocal_addr, buf,
593 buflen);
594 return (buf);
595 }
596
597 prefixnum = ntohl(link_lsa->prefix_num);
598 if (pos > prefixnum)
599 return (NULL);
600
601 start = (char *)link_lsa + sizeof(struct ospf6_link_lsa);
602 end = (char *)lsa->header + ntohs(lsa->header->length);
603 current = start;
604
605 do {
606 prefix = (struct ospf6_prefix *)current;
607 if (prefix->prefix_length == 0
608 || current + OSPF6_PREFIX_SIZE(prefix) > end) {
609 return (NULL);
610 }
611
612 if (cnt < pos) {
613 current =
614 start + pos * OSPF6_PREFIX_SIZE(prefix);
615 cnt++;
616 } else {
617 memset(&in6, 0, sizeof(in6));
618 memcpy(&in6, OSPF6_PREFIX_BODY(prefix),
619 OSPF6_PREFIX_SPACE(
620 prefix->prefix_length));
621 inet_ntop(AF_INET6, &in6, buf, buflen);
622 return (buf);
623 }
624 } while (current <= end);
625 }
626 return (NULL);
627 }
628
629 static int ospf6_link_lsa_show(struct vty *vty, struct ospf6_lsa *lsa)
630 {
631 char *start, *end, *current;
632 struct ospf6_link_lsa *link_lsa;
633 int prefixnum;
634 char buf[128], options[32];
635 struct ospf6_prefix *prefix;
636 const char *p, *mc, *la, *nu;
637 struct in6_addr in6;
638
639 link_lsa = (struct ospf6_link_lsa *)((caddr_t)lsa->header
640 + sizeof(struct ospf6_lsa_header));
641
642 ospf6_options_printbuf(link_lsa->options, options, sizeof(options));
643 inet_ntop(AF_INET6, &link_lsa->linklocal_addr, buf, sizeof(buf));
644 prefixnum = ntohl(link_lsa->prefix_num);
645
646 vty_out(vty, " Priority: %d Options: %s\n", link_lsa->priority,
647 options);
648 vty_out(vty, " LinkLocal Address: %s\n", buf);
649 vty_out(vty, " Number of Prefix: %d\n", prefixnum);
650
651 start = (char *)link_lsa + sizeof(struct ospf6_link_lsa);
652 end = (char *)lsa->header + ntohs(lsa->header->length);
653 for (current = start; current < end;
654 current += OSPF6_PREFIX_SIZE(prefix)) {
655 prefix = (struct ospf6_prefix *)current;
656 if (prefix->prefix_length == 0
657 || current + OSPF6_PREFIX_SIZE(prefix) > end)
658 break;
659
660 p = (CHECK_FLAG(prefix->prefix_options, OSPF6_PREFIX_OPTION_P)
661 ? "P"
662 : "--");
663 mc = (CHECK_FLAG(prefix->prefix_options, OSPF6_PREFIX_OPTION_MC)
664 ? "MC"
665 : "--");
666 la = (CHECK_FLAG(prefix->prefix_options, OSPF6_PREFIX_OPTION_LA)
667 ? "LA"
668 : "--");
669 nu = (CHECK_FLAG(prefix->prefix_options, OSPF6_PREFIX_OPTION_NU)
670 ? "NU"
671 : "--");
672 vty_out(vty, " Prefix Options: %s|%s|%s|%s\n", p, mc, la,
673 nu);
674
675 memset(&in6, 0, sizeof(in6));
676 memcpy(&in6, OSPF6_PREFIX_BODY(prefix),
677 OSPF6_PREFIX_SPACE(prefix->prefix_length));
678 inet_ntop(AF_INET6, &in6, buf, sizeof(buf));
679 vty_out(vty, " Prefix: %s/%d\n", buf,
680 prefix->prefix_length);
681 }
682
683 return 0;
684 }
685
686 int ospf6_link_lsa_originate(struct thread *thread)
687 {
688 struct ospf6_interface *oi;
689
690 char buffer[OSPF6_MAX_LSASIZE];
691 struct ospf6_lsa_header *lsa_header;
692 struct ospf6_lsa *old, *lsa;
693
694 struct ospf6_link_lsa *link_lsa;
695 struct ospf6_route *route;
696 struct ospf6_prefix *op;
697
698 oi = (struct ospf6_interface *)THREAD_ARG(thread);
699 oi->thread_link_lsa = NULL;
700
701 assert(oi->area);
702
703 /* find previous LSA */
704 old = ospf6_lsdb_lookup(htons(OSPF6_LSTYPE_LINK),
705 htonl(oi->interface->ifindex),
706 oi->area->ospf6->router_id, oi->lsdb);
707
708 if (CHECK_FLAG(oi->flag, OSPF6_INTERFACE_DISABLE)) {
709 if (old)
710 ospf6_lsa_purge(old);
711 return 0;
712 }
713
714 if (IS_OSPF6_DEBUG_ORIGINATE(LINK))
715 zlog_debug("Originate Link-LSA for Interface %s",
716 oi->interface->name);
717
718 /* can't make Link-LSA if linklocal address not set */
719 if (oi->linklocal_addr == NULL) {
720 if (IS_OSPF6_DEBUG_ORIGINATE(LINK))
721 zlog_debug(
722 "No Linklocal address on %s, defer originating",
723 oi->interface->name);
724 if (old)
725 ospf6_lsa_purge(old);
726 return 0;
727 }
728
729 /* prepare buffer */
730 memset(buffer, 0, sizeof(buffer));
731 lsa_header = (struct ospf6_lsa_header *)buffer;
732 link_lsa = (struct ospf6_link_lsa *)((caddr_t)lsa_header
733 + sizeof(struct ospf6_lsa_header));
734
735 /* Fill Link-LSA */
736 link_lsa->priority = oi->priority;
737 memcpy(link_lsa->options, oi->area->options, 3);
738 memcpy(&link_lsa->linklocal_addr, oi->linklocal_addr,
739 sizeof(struct in6_addr));
740 link_lsa->prefix_num = htonl(oi->route_connected->count);
741
742 op = (struct ospf6_prefix *)((caddr_t)link_lsa
743 + sizeof(struct ospf6_link_lsa));
744
745 /* connected prefix to advertise */
746 for (route = ospf6_route_head(oi->route_connected); route;
747 route = ospf6_route_next(route)) {
748 op->prefix_length = route->prefix.prefixlen;
749 op->prefix_options = route->path.prefix_options;
750 op->prefix_metric = htons(0);
751 memcpy(OSPF6_PREFIX_BODY(op), &route->prefix.u.prefix6,
752 OSPF6_PREFIX_SPACE(op->prefix_length));
753 op = OSPF6_PREFIX_NEXT(op);
754 }
755
756 /* Fill LSA Header */
757 lsa_header->age = 0;
758 lsa_header->type = htons(OSPF6_LSTYPE_LINK);
759 lsa_header->id = htonl(oi->interface->ifindex);
760 lsa_header->adv_router = oi->area->ospf6->router_id;
761 lsa_header->seqnum =
762 ospf6_new_ls_seqnum(lsa_header->type, lsa_header->id,
763 lsa_header->adv_router, oi->lsdb);
764 lsa_header->length = htons((caddr_t)op - (caddr_t)buffer);
765
766 /* LSA checksum */
767 ospf6_lsa_checksum(lsa_header);
768
769 /* create LSA */
770 lsa = ospf6_lsa_create(lsa_header);
771
772 /* Originate */
773 ospf6_lsa_originate_interface(lsa, oi);
774
775 return 0;
776 }
777
778
779 /*****************************************/
780 /* RFC2740 3.4.3.7 Intra-Area-Prefix-LSA */
781 /*****************************************/
782 static char *ospf6_intra_prefix_lsa_get_prefix_str(struct ospf6_lsa *lsa,
783 char *buf, int buflen,
784 int pos)
785 {
786 char *start, *end, *current;
787 struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
788 struct in6_addr in6;
789 int prefixnum, cnt = 0;
790 struct ospf6_prefix *prefix;
791
792 if (lsa) {
793 intra_prefix_lsa =
794 (struct ospf6_intra_prefix_lsa
795 *)((caddr_t)lsa->header
796 + sizeof(struct ospf6_lsa_header));
797
798 prefixnum = ntohs(intra_prefix_lsa->prefix_num);
799 if (pos > prefixnum)
800 return (NULL);
801
802 start = (char *)intra_prefix_lsa
803 + sizeof(struct ospf6_intra_prefix_lsa);
804 end = (char *)lsa->header + ntohs(lsa->header->length);
805 current = start;
806
807 do {
808 prefix = (struct ospf6_prefix *)current;
809 if (prefix->prefix_length == 0
810 || current + OSPF6_PREFIX_SIZE(prefix) > end) {
811 return NULL;
812 }
813
814 if (cnt < pos) {
815 current =
816 start + pos * OSPF6_PREFIX_SIZE(prefix);
817 cnt++;
818 } else {
819 memset(&in6, 0, sizeof(in6));
820 memcpy(&in6, OSPF6_PREFIX_BODY(prefix),
821 OSPF6_PREFIX_SPACE(
822 prefix->prefix_length));
823 inet_ntop(AF_INET6, &in6, buf, buflen);
824 sprintf(&buf[strlen(buf)], "/%d",
825 prefix->prefix_length);
826 return (buf);
827 }
828 } while (current <= end);
829 }
830 return (buf);
831 }
832
833 static int ospf6_intra_prefix_lsa_show(struct vty *vty, struct ospf6_lsa *lsa)
834 {
835 char *start, *end, *current;
836 struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
837 int prefixnum;
838 char buf[128];
839 struct ospf6_prefix *prefix;
840 char id[16], adv_router[16];
841 const char *p, *mc, *la, *nu;
842 struct in6_addr in6;
843
844 intra_prefix_lsa = (struct ospf6_intra_prefix_lsa
845 *)((caddr_t)lsa->header
846 + sizeof(struct ospf6_lsa_header));
847
848 prefixnum = ntohs(intra_prefix_lsa->prefix_num);
849
850 vty_out(vty, " Number of Prefix: %d\n", prefixnum);
851
852 inet_ntop(AF_INET, &intra_prefix_lsa->ref_id, id, sizeof(id));
853 inet_ntop(AF_INET, &intra_prefix_lsa->ref_adv_router, adv_router,
854 sizeof(adv_router));
855 vty_out(vty, " Reference: %s Id: %s Adv: %s\n",
856 ospf6_lstype_name(intra_prefix_lsa->ref_type), id, adv_router);
857
858 start = (char *)intra_prefix_lsa
859 + sizeof(struct ospf6_intra_prefix_lsa);
860 end = (char *)lsa->header + ntohs(lsa->header->length);
861 for (current = start; current < end;
862 current += OSPF6_PREFIX_SIZE(prefix)) {
863 prefix = (struct ospf6_prefix *)current;
864 if (prefix->prefix_length == 0
865 || current + OSPF6_PREFIX_SIZE(prefix) > end)
866 break;
867
868 p = (CHECK_FLAG(prefix->prefix_options, OSPF6_PREFIX_OPTION_P)
869 ? "P"
870 : "--");
871 mc = (CHECK_FLAG(prefix->prefix_options, OSPF6_PREFIX_OPTION_MC)
872 ? "MC"
873 : "--");
874 la = (CHECK_FLAG(prefix->prefix_options, OSPF6_PREFIX_OPTION_LA)
875 ? "LA"
876 : "--");
877 nu = (CHECK_FLAG(prefix->prefix_options, OSPF6_PREFIX_OPTION_NU)
878 ? "NU"
879 : "--");
880 vty_out(vty, " Prefix Options: %s|%s|%s|%s\n", p, mc, la,
881 nu);
882
883 memset(&in6, 0, sizeof(in6));
884 memcpy(&in6, OSPF6_PREFIX_BODY(prefix),
885 OSPF6_PREFIX_SPACE(prefix->prefix_length));
886 inet_ntop(AF_INET6, &in6, buf, sizeof(buf));
887 vty_out(vty, " Prefix: %s/%d\n", buf,
888 prefix->prefix_length);
889 }
890
891 return 0;
892 }
893
894 int ospf6_intra_prefix_lsa_originate_stub(struct thread *thread)
895 {
896 struct ospf6_area *oa;
897
898 char buffer[OSPF6_MAX_LSASIZE];
899 struct ospf6_lsa_header *lsa_header;
900 struct ospf6_lsa *old, *lsa, *old_next = NULL;
901
902 struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
903 struct ospf6_interface *oi;
904 struct ospf6_neighbor *on;
905 struct ospf6_route *route;
906 struct ospf6_prefix *op;
907 struct listnode *i, *j;
908 int full_count = 0;
909 unsigned short prefix_num = 0;
910 char buf[PREFIX2STR_BUFFER];
911 struct ospf6_route_table *route_advertise;
912 int ls_id = 0;
913
914 oa = (struct ospf6_area *)THREAD_ARG(thread);
915 oa->thread_intra_prefix_lsa = NULL;
916
917 /* find previous LSA */
918 old = ospf6_lsdb_lookup(htons(OSPF6_LSTYPE_INTRA_PREFIX), htonl(0),
919 oa->ospf6->router_id, oa->lsdb);
920
921 if (!IS_AREA_ENABLED(oa)) {
922 if (old) {
923 ospf6_lsa_purge(old);
924 /* find previous LSA */
925 old_next = ospf6_lsdb_lookup(
926 htons(OSPF6_LSTYPE_INTRA_PREFIX),
927 htonl(++ls_id), oa->ospf6->router_id, oa->lsdb);
928
929 while (old_next) {
930 ospf6_lsa_purge(old_next);
931 old_next = ospf6_lsdb_lookup(
932 htons(OSPF6_LSTYPE_INTRA_PREFIX),
933 htonl(++ls_id), oa->ospf6->router_id,
934 oa->lsdb);
935 }
936 }
937 return 0;
938 }
939
940 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
941 zlog_debug(
942 "Originate Intra-Area-Prefix-LSA for area %s's stub prefix",
943 oa->name);
944
945 /* prepare buffer */
946 memset(buffer, 0, sizeof(buffer));
947 lsa_header = (struct ospf6_lsa_header *)buffer;
948 intra_prefix_lsa = (struct ospf6_intra_prefix_lsa
949 *)((caddr_t)lsa_header
950 + sizeof(struct ospf6_lsa_header));
951
952 /* Fill Intra-Area-Prefix-LSA */
953 intra_prefix_lsa->ref_type = htons(OSPF6_LSTYPE_ROUTER);
954 intra_prefix_lsa->ref_id = htonl(0);
955 intra_prefix_lsa->ref_adv_router = oa->ospf6->router_id;
956
957 route_advertise = ospf6_route_table_create(0, 0);
958
959 for (ALL_LIST_ELEMENTS_RO(oa->if_list, i, oi)) {
960 if (oi->state == OSPF6_INTERFACE_DOWN) {
961 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
962 zlog_debug(" Interface %s is down, ignore",
963 oi->interface->name);
964 continue;
965 }
966
967 full_count = 0;
968
969 for (ALL_LIST_ELEMENTS_RO(oi->neighbor_list, j, on))
970 if (on->state == OSPF6_NEIGHBOR_FULL)
971 full_count++;
972
973 if (oi->state != OSPF6_INTERFACE_LOOPBACK
974 && oi->state != OSPF6_INTERFACE_POINTTOPOINT
975 && full_count != 0) {
976 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
977 zlog_debug(" Interface %s is not stub, ignore",
978 oi->interface->name);
979 continue;
980 }
981
982 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
983 zlog_debug(" Interface %s:", oi->interface->name);
984
985 /* connected prefix to advertise */
986 for (route = ospf6_route_head(oi->route_connected); route;
987 route = ospf6_route_best_next(route)) {
988 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX)) {
989 prefix2str(&route->prefix, buf, sizeof(buf));
990 zlog_debug(" include %s", buf);
991 }
992 ospf6_route_add(ospf6_route_copy(route),
993 route_advertise);
994 }
995 }
996
997 if (route_advertise->count == 0) {
998 if (old) {
999 ls_id = 0;
1000 ospf6_lsa_purge(old);
1001 /* find previous LSA */
1002 old_next = ospf6_lsdb_lookup(
1003 htons(OSPF6_LSTYPE_INTRA_PREFIX),
1004 htonl(++ls_id), oa->ospf6->router_id, oa->lsdb);
1005
1006 while (old_next) {
1007 ospf6_lsa_purge(old_next);
1008 old_next = ospf6_lsdb_lookup(
1009 htons(OSPF6_LSTYPE_INTRA_PREFIX),
1010 htonl(++ls_id), oa->ospf6->router_id,
1011 oa->lsdb);
1012 }
1013 }
1014 ospf6_route_table_delete(route_advertise);
1015 return 0;
1016 }
1017
1018 /* Neighbor change to FULL, if INTRA-AREA-PREFIX LSA
1019 * has not change, Flush old LSA and Re-Originate INP,
1020 * as ospf6_flood() checks if LSA is same as DB,
1021 * it won't be updated to neighbor's DB.
1022 */
1023 if (oa->intra_prefix_originate) {
1024 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
1025 zlog_debug("%s: Re-originate intra prefix LSA, Current full nbrs %u",
1026 __PRETTY_FUNCTION__, oa->full_nbrs);
1027 if (old)
1028 ospf6_lsa_purge_multi_ls_id(oa, old);
1029 oa->intra_prefix_originate = 0;
1030 }
1031
1032 /* put prefixes to advertise */
1033 prefix_num = 0;
1034 op = (struct ospf6_prefix *)((caddr_t)intra_prefix_lsa
1035 + sizeof(struct ospf6_intra_prefix_lsa));
1036 for (route = ospf6_route_head(route_advertise); route;
1037 route = ospf6_route_best_next(route)) {
1038 if (((caddr_t)op - (caddr_t)lsa_header) > MAX_LSA_PAYLOAD) {
1039
1040 intra_prefix_lsa->prefix_num = htons(prefix_num);
1041
1042 /* Fill LSA Header */
1043 lsa_header->age = 0;
1044 lsa_header->type = htons(OSPF6_LSTYPE_INTRA_PREFIX);
1045 lsa_header->id = htonl(ls_id++);
1046 lsa_header->adv_router = oa->ospf6->router_id;
1047 lsa_header->seqnum = ospf6_new_ls_seqnum(
1048 lsa_header->type, lsa_header->id,
1049 lsa_header->adv_router, oa->lsdb);
1050 lsa_header->length =
1051 htons((caddr_t)op - (caddr_t)lsa_header);
1052
1053 /* LSA checksum */
1054 ospf6_lsa_checksum(lsa_header);
1055
1056 /* Create LSA */
1057 lsa = ospf6_lsa_create(lsa_header);
1058
1059 /* Originate */
1060 ospf6_lsa_originate_area(lsa, oa);
1061
1062 /* Prepare next buffer */
1063 memset(buffer, 0, sizeof(buffer));
1064 lsa_header = (struct ospf6_lsa_header *)buffer;
1065 intra_prefix_lsa =
1066 (struct ospf6_intra_prefix_lsa
1067 *)((caddr_t)lsa_header
1068 + sizeof(struct ospf6_lsa_header));
1069
1070 /* Fill Intra-Area-Prefix-LSA */
1071 intra_prefix_lsa->ref_type = htons(OSPF6_LSTYPE_ROUTER);
1072 intra_prefix_lsa->ref_id = htonl(0);
1073 intra_prefix_lsa->ref_adv_router = oa->ospf6->router_id;
1074
1075 /* Put next set of prefixes to advertise */
1076 prefix_num = 0;
1077 op = (struct ospf6_prefix
1078 *)((caddr_t)intra_prefix_lsa
1079 + sizeof(struct
1080 ospf6_intra_prefix_lsa));
1081 }
1082
1083 op->prefix_length = route->prefix.prefixlen;
1084 op->prefix_options = route->path.prefix_options;
1085 op->prefix_metric = htons(route->path.cost);
1086 memcpy(OSPF6_PREFIX_BODY(op), &route->prefix.u.prefix6,
1087 OSPF6_PREFIX_SPACE(op->prefix_length));
1088 prefix_num++;
1089
1090 op = OSPF6_PREFIX_NEXT(op);
1091 }
1092
1093 ospf6_route_table_delete(route_advertise);
1094
1095 if (prefix_num == 0) {
1096 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
1097 zlog_debug(
1098 "Quit to Advertise Intra-Prefix: no route to advertise");
1099 return 0;
1100 }
1101
1102 intra_prefix_lsa->prefix_num = htons(prefix_num);
1103
1104 /* Fill LSA Header */
1105 lsa_header->age = 0;
1106 lsa_header->type = htons(OSPF6_LSTYPE_INTRA_PREFIX);
1107 lsa_header->id = htonl(ls_id++);
1108 lsa_header->adv_router = oa->ospf6->router_id;
1109 lsa_header->seqnum =
1110 ospf6_new_ls_seqnum(lsa_header->type, lsa_header->id,
1111 lsa_header->adv_router, oa->lsdb);
1112 lsa_header->length = htons((caddr_t)op - (caddr_t)lsa_header);
1113
1114 /* LSA checksum */
1115 ospf6_lsa_checksum(lsa_header);
1116
1117 /* create LSA */
1118 lsa = ospf6_lsa_create(lsa_header);
1119
1120 /* Originate */
1121 ospf6_lsa_originate_area(lsa, oa);
1122
1123 return 0;
1124 }
1125
1126
1127 int ospf6_intra_prefix_lsa_originate_transit(struct thread *thread)
1128 {
1129 struct ospf6_interface *oi;
1130
1131 char buffer[OSPF6_MAX_LSASIZE];
1132 struct ospf6_lsa_header *lsa_header;
1133 struct ospf6_lsa *old, *lsa;
1134
1135 struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
1136 struct ospf6_neighbor *on;
1137 struct ospf6_route *route;
1138 struct ospf6_prefix *op;
1139 struct listnode *i;
1140 int full_count = 0;
1141 unsigned short prefix_num = 0;
1142 struct ospf6_route_table *route_advertise;
1143 struct ospf6_link_lsa *link_lsa;
1144 char *start, *end, *current;
1145 uint16_t type;
1146 char buf[PREFIX2STR_BUFFER];
1147
1148 oi = (struct ospf6_interface *)THREAD_ARG(thread);
1149 oi->thread_intra_prefix_lsa = NULL;
1150
1151 assert(oi->area);
1152
1153 /* find previous LSA */
1154 old = ospf6_lsdb_lookup(htons(OSPF6_LSTYPE_INTRA_PREFIX),
1155 htonl(oi->interface->ifindex),
1156 oi->area->ospf6->router_id, oi->area->lsdb);
1157
1158 if (CHECK_FLAG(oi->flag, OSPF6_INTERFACE_DISABLE)) {
1159 if (old)
1160 ospf6_lsa_purge(old);
1161 return 0;
1162 }
1163
1164 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
1165 zlog_debug(
1166 "Originate Intra-Area-Prefix-LSA for interface %s's prefix",
1167 oi->interface->name);
1168
1169 /* prepare buffer */
1170 memset(buffer, 0, sizeof(buffer));
1171 lsa_header = (struct ospf6_lsa_header *)buffer;
1172 intra_prefix_lsa = (struct ospf6_intra_prefix_lsa
1173 *)((caddr_t)lsa_header
1174 + sizeof(struct ospf6_lsa_header));
1175
1176 /* Fill Intra-Area-Prefix-LSA */
1177 intra_prefix_lsa->ref_type = htons(OSPF6_LSTYPE_NETWORK);
1178 intra_prefix_lsa->ref_id = htonl(oi->interface->ifindex);
1179 intra_prefix_lsa->ref_adv_router = oi->area->ospf6->router_id;
1180
1181 if (oi->state != OSPF6_INTERFACE_DR) {
1182 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
1183 zlog_debug(" Interface is not DR");
1184 if (old)
1185 ospf6_lsa_purge(old);
1186 return 0;
1187 }
1188
1189 full_count = 0;
1190 for (ALL_LIST_ELEMENTS_RO(oi->neighbor_list, i, on))
1191 if (on->state == OSPF6_NEIGHBOR_FULL)
1192 full_count++;
1193
1194 if (full_count == 0) {
1195 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
1196 zlog_debug(" Interface is stub");
1197 if (old)
1198 ospf6_lsa_purge(old);
1199 return 0;
1200 }
1201
1202 /* connected prefix to advertise */
1203 route_advertise = ospf6_route_table_create(0, 0);
1204
1205 type = ntohs(OSPF6_LSTYPE_LINK);
1206 for (ALL_LSDB_TYPED(oi->lsdb, type, lsa)) {
1207 if (OSPF6_LSA_IS_MAXAGE(lsa))
1208 continue;
1209
1210 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
1211 zlog_debug(" include prefix from %s", lsa->name);
1212
1213 if (lsa->header->adv_router != oi->area->ospf6->router_id) {
1214 on = ospf6_neighbor_lookup(lsa->header->adv_router, oi);
1215 if (on == NULL || on->state != OSPF6_NEIGHBOR_FULL) {
1216 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
1217 zlog_debug(
1218 " Neighbor not found or not Full, ignore");
1219 continue;
1220 }
1221 }
1222
1223 link_lsa = (struct ospf6_link_lsa
1224 *)((caddr_t)lsa->header
1225 + sizeof(struct ospf6_lsa_header));
1226
1227 prefix_num = (unsigned short)ntohl(link_lsa->prefix_num);
1228 start = (char *)link_lsa + sizeof(struct ospf6_link_lsa);
1229 end = (char *)lsa->header + ntohs(lsa->header->length);
1230 for (current = start; current < end && prefix_num;
1231 current += OSPF6_PREFIX_SIZE(op)) {
1232 op = (struct ospf6_prefix *)current;
1233 if (op->prefix_length == 0
1234 || current + OSPF6_PREFIX_SIZE(op) > end)
1235 break;
1236
1237 route = ospf6_route_create();
1238
1239 route->type = OSPF6_DEST_TYPE_NETWORK;
1240 route->prefix.family = AF_INET6;
1241 route->prefix.prefixlen = op->prefix_length;
1242 memset(&route->prefix.u.prefix6, 0,
1243 sizeof(struct in6_addr));
1244 memcpy(&route->prefix.u.prefix6, OSPF6_PREFIX_BODY(op),
1245 OSPF6_PREFIX_SPACE(op->prefix_length));
1246
1247 route->path.origin.type = lsa->header->type;
1248 route->path.origin.id = lsa->header->id;
1249 route->path.origin.adv_router = lsa->header->adv_router;
1250 route->path.options[0] = link_lsa->options[0];
1251 route->path.options[1] = link_lsa->options[1];
1252 route->path.options[2] = link_lsa->options[2];
1253 route->path.prefix_options = op->prefix_options;
1254 route->path.area_id = oi->area->area_id;
1255 route->path.type = OSPF6_PATH_TYPE_INTRA;
1256
1257 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX)) {
1258 prefix2str(&route->prefix, buf, sizeof(buf));
1259 zlog_debug(" include %s", buf);
1260 }
1261
1262 ospf6_route_add(route, route_advertise);
1263 prefix_num--;
1264 }
1265 if (current != end && IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
1266 zlog_debug("Trailing garbage in %s", lsa->name);
1267 }
1268
1269 op = (struct ospf6_prefix *)((caddr_t)intra_prefix_lsa
1270 + sizeof(struct ospf6_intra_prefix_lsa));
1271
1272 prefix_num = 0;
1273 for (route = ospf6_route_head(route_advertise); route;
1274 route = ospf6_route_best_next(route)) {
1275 op->prefix_length = route->prefix.prefixlen;
1276 op->prefix_options = route->path.prefix_options;
1277 op->prefix_metric = htons(0);
1278 memcpy(OSPF6_PREFIX_BODY(op), &route->prefix.u.prefix6,
1279 OSPF6_PREFIX_SPACE(op->prefix_length));
1280 op = OSPF6_PREFIX_NEXT(op);
1281 prefix_num++;
1282 }
1283
1284 ospf6_route_table_delete(route_advertise);
1285
1286 if (prefix_num == 0) {
1287 if (IS_OSPF6_DEBUG_ORIGINATE(INTRA_PREFIX))
1288 zlog_debug(
1289 "Quit to Advertise Intra-Prefix: no route to advertise");
1290 return 0;
1291 }
1292
1293 intra_prefix_lsa->prefix_num = htons(prefix_num);
1294
1295 /* Fill LSA Header */
1296 lsa_header->age = 0;
1297 lsa_header->type = htons(OSPF6_LSTYPE_INTRA_PREFIX);
1298 lsa_header->id = htonl(oi->interface->ifindex);
1299 lsa_header->adv_router = oi->area->ospf6->router_id;
1300 lsa_header->seqnum =
1301 ospf6_new_ls_seqnum(lsa_header->type, lsa_header->id,
1302 lsa_header->adv_router, oi->area->lsdb);
1303 lsa_header->length = htons((caddr_t)op - (caddr_t)lsa_header);
1304
1305 /* LSA checksum */
1306 ospf6_lsa_checksum(lsa_header);
1307
1308 /* create LSA */
1309 lsa = ospf6_lsa_create(lsa_header);
1310
1311 /* Originate */
1312 ospf6_lsa_originate_area(lsa, oi->area);
1313
1314 return 0;
1315 }
1316
1317 void ospf6_intra_prefix_route_ecmp_path(struct ospf6_area *oa,
1318 struct ospf6_route *old,
1319 struct ospf6_route *route)
1320 {
1321 struct ospf6_route *old_route;
1322 struct ospf6_path *ecmp_path, *o_path = NULL;
1323 struct listnode *anode, *anext;
1324 struct listnode *nnode, *rnode, *rnext;
1325 struct ospf6_nexthop *nh, *rnh;
1326 char buf[PREFIX2STR_BUFFER];
1327 bool route_found = false;
1328
1329 /* check for old entry match with new route origin,
1330 * delete old entry.
1331 */
1332 for (old_route = old; old_route; old_route = old_route->next) {
1333 bool route_updated = false;
1334
1335 if (!ospf6_route_is_same(old_route, route) ||
1336 (old_route->path.type != route->path.type))
1337 continue;
1338
1339 /* Current and New route has same origin,
1340 * delete old entry.
1341 */
1342 for (ALL_LIST_ELEMENTS(old_route->paths, anode, anext,
1343 o_path)) {
1344 /* Check old route path and route has same
1345 * origin.
1346 */
1347 if (o_path->area_id != route->path.area_id ||
1348 (memcmp(&(o_path)->origin, &(route)->path.origin,
1349 sizeof(struct ospf6_ls_origin)) != 0))
1350 continue;
1351
1352 /* Cost is not same then delete current path */
1353 if (o_path->cost == route->path.cost)
1354 continue;
1355
1356 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX)) {
1357 prefix2str(&old_route->prefix, buf,
1358 sizeof(buf));
1359 zlog_debug("%s: route %s cost old %u new %u is not same, replace route",
1360 __PRETTY_FUNCTION__, buf,
1361 o_path->cost, route->path.cost);
1362 }
1363
1364 /* Remove selected current rout path's nh from
1365 * effective nh list.
1366 */
1367 for (ALL_LIST_ELEMENTS_RO(o_path->nh_list, nnode, nh)) {
1368 for (ALL_LIST_ELEMENTS(old_route->nh_list,
1369 rnode, rnext, rnh)) {
1370 if (!ospf6_nexthop_is_same(rnh, nh))
1371 continue;
1372 listnode_delete(old_route->nh_list,
1373 rnh);
1374 ospf6_nexthop_delete(rnh);
1375 route_updated = true;
1376 }
1377 }
1378
1379 listnode_delete(old_route->paths, o_path);
1380 ospf6_path_free(o_path);
1381
1382 /* Current route's path (adv_router info) is similar
1383 * to route being added.
1384 * Replace current route's path with paths list head.
1385 * Update FIB with effective NHs.
1386 */
1387 if (listcount(old_route->paths)) {
1388 if (old_route->path.origin.id ==
1389 route->path.origin.id &&
1390 old_route->path.origin.adv_router ==
1391 route->path.origin.adv_router) {
1392 struct ospf6_path *h_path;
1393
1394 h_path = (struct ospf6_path *)
1395 listgetdata(listhead(old_route->paths));
1396 old_route->path.origin.type =
1397 h_path->origin.type;
1398 old_route->path.origin.id =
1399 h_path->origin.id;
1400 old_route->path.origin.adv_router =
1401 h_path->origin.adv_router;
1402 }
1403
1404 if (route_updated) {
1405 for (ALL_LIST_ELEMENTS(old_route->paths,
1406 anode, anext, o_path)) {
1407 ospf6_merge_nexthops(
1408 old_route->nh_list,
1409 o_path->nh_list);
1410 }
1411 /* Update ospf6 route table and
1412 * RIB/FIB with effective
1413 * nh_list
1414 */
1415 if (oa->route_table->hook_add)
1416 (*oa->route_table->hook_add)
1417 (old_route);
1418 break;
1419 }
1420 } else {
1421 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX)) {
1422 prefix2str(&old_route->prefix, buf,
1423 sizeof(buf));
1424 zlog_debug("%s: route %s old cost %u new cost %u, delete old entry.",
1425 __PRETTY_FUNCTION__, buf,
1426 old_route->path.cost,
1427 route->path.cost);
1428 }
1429 ospf6_route_remove(old_route,
1430 oa->route_table);
1431 break;
1432 }
1433 }
1434 if (route_updated)
1435 break;
1436 }
1437
1438 for (old_route = old; old_route; old_route = old_route->next) {
1439
1440 if (!ospf6_route_is_same(old_route, route) ||
1441 (old_route->path.type != route->path.type))
1442 continue;
1443
1444 /* Old Route and New Route have Equal Cost, Merge NHs */
1445 if (old_route->path.cost == route->path.cost) {
1446 route_found = true;
1447
1448 /* check if this path exists already in
1449 * route->paths list, if so, replace nh_list.
1450 */
1451 for (ALL_LIST_ELEMENTS_RO(old_route->paths, anode,
1452 o_path)) {
1453 if (o_path->area_id == route->path.area_id &&
1454 (memcmp(&(o_path)->origin,
1455 &(route)->path.origin,
1456 sizeof(struct ospf6_ls_origin)) == 0))
1457 break;
1458 }
1459 /* If path is not found in old_route paths's list,
1460 * add a new path to route paths list and merge
1461 * nexthops in route->path->nh_list.
1462 * Otherwise replace existing path's nh_list.
1463 */
1464 if (o_path == NULL) {
1465 ecmp_path = ospf6_path_dup(&route->path);
1466
1467 /* Add a nh_list to new ecmp path */
1468 ospf6_copy_nexthops(ecmp_path->nh_list,
1469 route->nh_list);
1470 /* Merge nexthop to existing route's nh_list */
1471 ospf6_route_merge_nexthops(old_route, route);
1472 /* Add the new path to route's path list */
1473 listnode_add_sort(old_route->paths, ecmp_path);
1474
1475 UNSET_FLAG(old_route->flag, OSPF6_ROUTE_REMOVE);
1476 SET_FLAG(old_route->flag, OSPF6_ROUTE_CHANGE);
1477 /* Update RIB/FIB */
1478 if (oa->route_table->hook_add)
1479 (*oa->route_table->hook_add)
1480 (old_route);
1481 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX)) {
1482 prefix2str(&route->prefix, buf,
1483 sizeof(buf));
1484 zlog_debug("%s: route %s %p another path added with nh %u, effective paths %u nh %u",
1485 __PRETTY_FUNCTION__, buf,
1486 (void *)old_route,
1487 listcount(ecmp_path->nh_list),
1488 old_route->paths ?
1489 listcount(old_route->paths)
1490 : 0,
1491 listcount(old_route->nh_list));
1492 }
1493 } else {
1494 for (ALL_LIST_ELEMENTS_RO(o_path->nh_list,
1495 nnode, nh)) {
1496 for (ALL_LIST_ELEMENTS(
1497 old_route->nh_list,
1498 rnode, rnext, rnh)) {
1499 if (!ospf6_nexthop_is_same(rnh,
1500 nh))
1501 continue;
1502
1503 listnode_delete(
1504 old_route->nh_list,
1505 rnh);
1506 ospf6_nexthop_delete(rnh);
1507 }
1508 }
1509 list_delete_all_node(o_path->nh_list);
1510 ospf6_copy_nexthops(o_path->nh_list,
1511 route->nh_list);
1512
1513 /* Merge nexthop to existing route's nh_list */
1514 ospf6_route_merge_nexthops(old_route,
1515 route);
1516
1517 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX)) {
1518 prefix2str(&route->prefix,
1519 buf, sizeof(buf));
1520 zlog_debug("%s: existing route %s %p with effective paths %u nh count %u",
1521 __PRETTY_FUNCTION__, buf,
1522 (void *)old_route,
1523 listcount(old_route->paths),
1524 old_route->nh_list ?
1525 listcount(old_route->nh_list)
1526 : 0);
1527 }
1528
1529 UNSET_FLAG(old_route->flag, OSPF6_ROUTE_REMOVE);
1530 SET_FLAG(old_route->flag, OSPF6_ROUTE_CHANGE);
1531 /* Update ospf6 route table and RIB/FIB */
1532 if (oa->route_table->hook_add)
1533 (*oa->route_table->hook_add)
1534 (old_route);
1535 }
1536 /* Delete the new route its info added to existing
1537 * route.
1538 */
1539 ospf6_route_delete(route);
1540
1541 break;
1542 }
1543 }
1544
1545 if (!route_found) {
1546 /* Add new route to existing node in ospf6 route table. */
1547 ospf6_route_add(route, oa->route_table);
1548 }
1549 }
1550
1551 void ospf6_intra_prefix_lsa_add(struct ospf6_lsa *lsa)
1552 {
1553 struct ospf6_area *oa;
1554 struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
1555 struct prefix ls_prefix;
1556 struct ospf6_route *route, *ls_entry, *old;
1557 int prefix_num;
1558 struct ospf6_prefix *op;
1559 char *start, *current, *end;
1560 char buf[PREFIX2STR_BUFFER];
1561 struct interface *ifp;
1562 int direct_connect = 0;
1563 struct ospf6_path *path;
1564
1565 if (OSPF6_LSA_IS_MAXAGE(lsa))
1566 return;
1567
1568 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX))
1569 zlog_debug("%s: LSA %s found", __PRETTY_FUNCTION__, lsa->name);
1570
1571 oa = OSPF6_AREA(lsa->lsdb->data);
1572
1573 intra_prefix_lsa =
1574 (struct ospf6_intra_prefix_lsa *)OSPF6_LSA_HEADER_END(
1575 lsa->header);
1576 if (intra_prefix_lsa->ref_type == htons(OSPF6_LSTYPE_ROUTER))
1577 ospf6_linkstate_prefix(intra_prefix_lsa->ref_adv_router,
1578 intra_prefix_lsa->ref_id, &ls_prefix);
1579 else if (intra_prefix_lsa->ref_type == htons(OSPF6_LSTYPE_NETWORK))
1580 ospf6_linkstate_prefix(intra_prefix_lsa->ref_adv_router,
1581 intra_prefix_lsa->ref_id, &ls_prefix);
1582 else {
1583 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX))
1584 zlog_debug("Unknown reference LS-type: %#hx",
1585 ntohs(intra_prefix_lsa->ref_type));
1586 return;
1587 }
1588
1589 ls_entry = ospf6_route_lookup(&ls_prefix, oa->spf_table);
1590 if (ls_entry == NULL) {
1591 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX)) {
1592 ospf6_linkstate_prefix2str(&ls_prefix, buf,
1593 sizeof(buf));
1594 zlog_debug("LS entry does not exist: %s", buf);
1595 }
1596 return;
1597 }
1598
1599 if (intra_prefix_lsa->ref_adv_router == oa->ospf6->router_id) {
1600 /* the intra-prefix are directly connected */
1601 direct_connect = 1;
1602 }
1603
1604 prefix_num = ntohs(intra_prefix_lsa->prefix_num);
1605 start = (caddr_t)intra_prefix_lsa
1606 + sizeof(struct ospf6_intra_prefix_lsa);
1607 end = OSPF6_LSA_END(lsa->header);
1608 for (current = start; current < end; current += OSPF6_PREFIX_SIZE(op)) {
1609 op = (struct ospf6_prefix *)current;
1610 if (prefix_num == 0)
1611 break;
1612 if (end < current + OSPF6_PREFIX_SIZE(op))
1613 break;
1614
1615 /* Appendix A.4.1.1 */
1616 if (CHECK_FLAG(op->prefix_options, OSPF6_PREFIX_OPTION_NU)) {
1617 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX)) {
1618 ospf6_linkstate_prefix2str(
1619 (struct prefix *)OSPF6_PREFIX_BODY(op),
1620 buf, sizeof(buf));
1621 zlog_debug(
1622 "%s: Skipping Prefix %s has NU option set",
1623 __func__, buf);
1624 }
1625 continue;
1626 }
1627
1628 route = ospf6_route_create();
1629
1630 memset(&route->prefix, 0, sizeof(struct prefix));
1631 route->prefix.family = AF_INET6;
1632 route->prefix.prefixlen = op->prefix_length;
1633 ospf6_prefix_in6_addr(&route->prefix.u.prefix6, op);
1634
1635 route->type = OSPF6_DEST_TYPE_NETWORK;
1636 route->path.origin.type = lsa->header->type;
1637 route->path.origin.id = lsa->header->id;
1638 route->path.origin.adv_router = lsa->header->adv_router;
1639 route->path.prefix_options = op->prefix_options;
1640 route->path.area_id = oa->area_id;
1641 route->path.type = OSPF6_PATH_TYPE_INTRA;
1642 route->path.metric_type = 1;
1643 route->path.cost =
1644 ls_entry->path.cost + ntohs(op->prefix_metric);
1645
1646 if (direct_connect) {
1647 ifp = if_lookup_prefix(&route->prefix, VRF_DEFAULT);
1648 if (ifp)
1649 ospf6_route_add_nexthop(route, ifp->ifindex,
1650 NULL);
1651 } else {
1652 ospf6_route_copy_nexthops(route, ls_entry);
1653 }
1654
1655 path = ospf6_path_dup(&route->path);
1656 ospf6_copy_nexthops(path->nh_list, route->path.nh_list);
1657 listnode_add_sort(route->paths, path);
1658
1659 old = ospf6_route_lookup(&route->prefix, oa->route_table);
1660 if (old && (ospf6_route_cmp(route, old) == 0)) {
1661 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX)) {
1662 prefix2str(&route->prefix, buf, sizeof(buf));
1663 zlog_debug(" Update route: %s old cost %u new cost %u nh count %u paths %u",
1664 buf,
1665 old->path.cost, route->path.cost,
1666 listcount(route->nh_list),
1667 listcount(route->paths));
1668 }
1669 ospf6_intra_prefix_route_ecmp_path(oa, old, route);
1670 } else {
1671 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX)) {
1672 prefix2str(&route->prefix, buf, sizeof(buf));
1673 zlog_debug(" route %s add with cost %u nh %u paths %u",
1674 buf, route->path.cost,
1675 listcount(route->nh_list),
1676 listcount(route->paths));
1677 }
1678 ospf6_route_add(route, oa->route_table);
1679 }
1680 prefix_num--;
1681 }
1682
1683 if (current != end && IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX))
1684 zlog_debug("Trailing garbage ignored");
1685 }
1686
1687 void ospf6_intra_prefix_lsa_remove(struct ospf6_lsa *lsa)
1688 {
1689 struct ospf6_area *oa;
1690 struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
1691 struct prefix prefix;
1692 struct ospf6_route *route, *nroute, *route_to_del;
1693 int prefix_num;
1694 struct ospf6_prefix *op;
1695 char *start, *current, *end;
1696 char buf[PREFIX2STR_BUFFER];
1697
1698 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX))
1699 zlog_debug("%s: %s disappearing", __PRETTY_FUNCTION__,
1700 lsa->name);
1701
1702 oa = OSPF6_AREA(lsa->lsdb->data);
1703
1704 intra_prefix_lsa =
1705 (struct ospf6_intra_prefix_lsa *)OSPF6_LSA_HEADER_END(
1706 lsa->header);
1707
1708 prefix_num = ntohs(intra_prefix_lsa->prefix_num);
1709 start = (caddr_t)intra_prefix_lsa
1710 + sizeof(struct ospf6_intra_prefix_lsa);
1711 end = OSPF6_LSA_END(lsa->header);
1712 for (current = start; current < end; current += OSPF6_PREFIX_SIZE(op)) {
1713 op = (struct ospf6_prefix *)current;
1714 if (prefix_num == 0)
1715 break;
1716 if (end < current + OSPF6_PREFIX_SIZE(op))
1717 break;
1718 prefix_num--;
1719
1720 route_to_del = ospf6_route_create();
1721
1722 memset(&route_to_del->prefix, 0, sizeof(struct prefix));
1723 route_to_del->prefix.family = AF_INET6;
1724 route_to_del->prefix.prefixlen = op->prefix_length;
1725 ospf6_prefix_in6_addr(&route_to_del->prefix.u.prefix6, op);
1726
1727 route_to_del->type = OSPF6_DEST_TYPE_NETWORK;
1728 route_to_del->path.origin.type = lsa->header->type;
1729 route_to_del->path.origin.id = lsa->header->id;
1730 route_to_del->path.origin.adv_router = lsa->header->adv_router;
1731 route_to_del->path.prefix_options = op->prefix_options;
1732 route_to_del->path.area_id = oa->area_id;
1733 route_to_del->path.type = OSPF6_PATH_TYPE_INTRA;
1734 route_to_del->path.metric_type = 1;
1735
1736 memset(&prefix, 0, sizeof(struct prefix));
1737 prefix.family = AF_INET6;
1738 prefix.prefixlen = op->prefix_length;
1739 ospf6_prefix_in6_addr(&prefix.u.prefix6, op);
1740
1741 route = ospf6_route_lookup(&prefix, oa->route_table);
1742 if (route == NULL)
1743 continue;
1744
1745 for (ospf6_route_lock(route);
1746 route && ospf6_route_is_prefix(&prefix, route);
1747 route = nroute) {
1748 nroute = ospf6_route_next(route);
1749 if (route->type != OSPF6_DEST_TYPE_NETWORK)
1750 continue;
1751 if (route->path.area_id != oa->area_id)
1752 continue;
1753 if (route->path.type != OSPF6_PATH_TYPE_INTRA)
1754 continue;
1755 /* Route has multiple ECMP paths, remove matching
1756 * path. Update current route's effective nh list
1757 * after removal of one of the path.
1758 */
1759 if (listcount(route->paths) > 1) {
1760 struct listnode *anode, *anext;
1761 struct listnode *nnode, *rnode, *rnext;
1762 struct ospf6_nexthop *nh, *rnh;
1763 struct ospf6_path *o_path;
1764 bool nh_updated = false;
1765
1766 /* Iterate all paths of route to find maching
1767 * with LSA remove info.
1768 * If route->path is same, replace
1769 * from paths list.
1770 */
1771 for (ALL_LIST_ELEMENTS(route->paths, anode,
1772 anext, o_path)) {
1773 if ((o_path->origin.type !=
1774 lsa->header->type) ||
1775 (o_path->origin.adv_router !=
1776 lsa->header->adv_router) ||
1777 (o_path->origin.id !=
1778 lsa->header->id))
1779 continue;
1780
1781 if (IS_OSPF6_DEBUG_EXAMIN
1782 (INTRA_PREFIX)) {
1783 prefix2str(&prefix, buf,
1784 sizeof(buf));
1785 zlog_debug(
1786 "%s: route %s path found with cost %u nh %u to remove.",
1787 __PRETTY_FUNCTION__,
1788 buf, o_path->cost,
1789 listcount(
1790 o_path->nh_list));
1791 }
1792 /* Remove old route from global
1793 * ospf6 route table.
1794 * nh_update section will add
1795 * back with effective nh.
1796 */
1797 if (oa->route_table->hook_remove)
1798 (*oa->route_table->hook_remove)
1799 (route);
1800 /* Remove found path's nh_list from
1801 * the route's nh_list.
1802 */
1803 for (ALL_LIST_ELEMENTS_RO(
1804 o_path->nh_list,
1805 nnode, nh)) {
1806 for (ALL_LIST_ELEMENTS(
1807 route->nh_list,
1808 rnode, rnext, rnh)) {
1809 if (
1810 !ospf6_nexthop_is_same(
1811 rnh, nh))
1812 continue;
1813 listnode_delete(
1814 route->nh_list,
1815 rnh);
1816 ospf6_nexthop_delete(
1817 rnh);
1818 }
1819 }
1820 /* Delete the path from route's
1821 * path list
1822 */
1823 listnode_delete(route->paths, o_path);
1824 ospf6_path_free(o_path);
1825 nh_updated = true;
1826 break;
1827 }
1828
1829 if (nh_updated) {
1830
1831 /* Iterate all paths and merge nexthop,
1832 * unlesss any of the nexthop similar to
1833 * ones deleted as part of path
1834 * deletion.
1835 */
1836 for (ALL_LIST_ELEMENTS(route->paths,
1837 anode, anext, o_path)) {
1838 ospf6_merge_nexthops(
1839 route->nh_list,
1840 o_path->nh_list);
1841 }
1842
1843 if (IS_OSPF6_DEBUG_EXAMIN(
1844 INTRA_PREFIX)) {
1845 prefix2str(&route->prefix, buf,
1846 sizeof(buf));
1847 zlog_debug("%s: route %s update paths %u nh %u"
1848 , __PRETTY_FUNCTION__,
1849 buf,
1850 listcount(route->paths),
1851 listcount(
1852 route->nh_list));
1853 }
1854
1855 /* route's primary path is similar
1856 * to LSA, replace route's primary
1857 * path with route's paths list
1858 * head.
1859 */
1860 if ((route->path.origin.id ==
1861 lsa->header->id) &&
1862 (route->path.origin.adv_router
1863 == lsa->header->adv_router)) {
1864 struct ospf6_path *h_path;
1865
1866 h_path = (struct ospf6_path *)
1867 listgetdata(listhead(
1868 route->paths));
1869 route->path.origin.type =
1870 h_path->origin.type;
1871 route->path.origin.id =
1872 h_path->origin.id;
1873 route->path.origin.adv_router =
1874 h_path->origin.adv_router;
1875 }
1876
1877 /* Update Global Route table and
1878 * RIB/FIB with effective
1879 * nh_list
1880 */
1881 if (oa->route_table->hook_add)
1882 (*oa->route_table->hook_add)
1883 (route);
1884 }
1885 continue;
1886
1887 } else {
1888
1889 if (route->path.origin.type != lsa->header->type
1890 || route->path.origin.id != lsa->header->id
1891 || route->path.origin.adv_router
1892 != lsa->header->adv_router)
1893 continue;
1894
1895 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX)) {
1896 prefix2str(&route->prefix, buf,
1897 sizeof(buf));
1898 zlog_debug("route remove %s with path %u cost %u nh %u",
1899 buf, route->path.type,
1900 route->path.cost,
1901 listcount(route->nh_list));
1902 }
1903 ospf6_route_remove(route, oa->route_table);
1904 }
1905 }
1906 if (route)
1907 ospf6_route_unlock(route);
1908
1909 ospf6_route_delete(route_to_del);
1910 }
1911
1912 if (current != end && IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX))
1913 zlog_debug("Trailing garbage ignored");
1914 }
1915
1916 void ospf6_intra_route_calculation(struct ospf6_area *oa)
1917 {
1918 struct ospf6_route *route, *nroute;
1919 uint16_t type;
1920 struct ospf6_lsa *lsa;
1921 void (*hook_add)(struct ospf6_route *) = NULL;
1922 void (*hook_remove)(struct ospf6_route *) = NULL;
1923
1924 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX))
1925 zlog_debug("Re-examin intra-routes for area %s", oa->name);
1926
1927 hook_add = oa->route_table->hook_add;
1928 hook_remove = oa->route_table->hook_remove;
1929 oa->route_table->hook_add = NULL;
1930 oa->route_table->hook_remove = NULL;
1931
1932 for (route = ospf6_route_head(oa->route_table); route;
1933 route = ospf6_route_next(route))
1934 route->flag = OSPF6_ROUTE_REMOVE;
1935
1936 type = htons(OSPF6_LSTYPE_INTRA_PREFIX);
1937 for (ALL_LSDB_TYPED(oa->lsdb, type, lsa))
1938 ospf6_intra_prefix_lsa_add(lsa);
1939
1940 oa->route_table->hook_add = hook_add;
1941 oa->route_table->hook_remove = hook_remove;
1942
1943 for (route = ospf6_route_head(oa->route_table); route; route = nroute) {
1944 nroute = ospf6_route_next(route);
1945 if (CHECK_FLAG(route->flag, OSPF6_ROUTE_REMOVE)
1946 && CHECK_FLAG(route->flag, OSPF6_ROUTE_ADD)) {
1947 UNSET_FLAG(route->flag, OSPF6_ROUTE_REMOVE);
1948 UNSET_FLAG(route->flag, OSPF6_ROUTE_ADD);
1949 }
1950
1951 if (CHECK_FLAG(route->flag, OSPF6_ROUTE_REMOVE))
1952 ospf6_route_remove(route, oa->route_table);
1953 else if (CHECK_FLAG(route->flag, OSPF6_ROUTE_ADD)
1954 || CHECK_FLAG(route->flag, OSPF6_ROUTE_CHANGE)) {
1955 if (hook_add)
1956 (*hook_add)(route);
1957 route->flag = 0;
1958 } else {
1959 /* Redo the summaries as things might have changed */
1960 ospf6_abr_originate_summary(route);
1961 route->flag = 0;
1962 }
1963 }
1964
1965 if (IS_OSPF6_DEBUG_EXAMIN(INTRA_PREFIX))
1966 zlog_debug("Re-examin intra-routes for area %s: Done",
1967 oa->name);
1968 }
1969
1970 static void ospf6_brouter_debug_print(struct ospf6_route *brouter)
1971 {
1972 uint32_t brouter_id;
1973 char brouter_name[16];
1974 char area_name[16];
1975 char destination[64];
1976 char installed[64], changed[64];
1977 struct timeval now, res;
1978 char id[16], adv_router[16];
1979 char capa[16], options[16];
1980
1981 brouter_id = ADV_ROUTER_IN_PREFIX(&brouter->prefix);
1982 inet_ntop(AF_INET, &brouter_id, brouter_name, sizeof(brouter_name));
1983 inet_ntop(AF_INET, &brouter->path.area_id, area_name,
1984 sizeof(area_name));
1985 ospf6_linkstate_prefix2str(&brouter->prefix, destination,
1986 sizeof(destination));
1987
1988 monotime(&now);
1989 timersub(&now, &brouter->installed, &res);
1990 timerstring(&res, installed, sizeof(installed));
1991
1992 monotime(&now);
1993 timersub(&now, &brouter->changed, &res);
1994 timerstring(&res, changed, sizeof(changed));
1995
1996 inet_ntop(AF_INET, &brouter->path.origin.id, id, sizeof(id));
1997 inet_ntop(AF_INET, &brouter->path.origin.adv_router, adv_router,
1998 sizeof(adv_router));
1999
2000 ospf6_options_printbuf(brouter->path.options, options, sizeof(options));
2001 ospf6_capability_printbuf(brouter->path.router_bits, capa,
2002 sizeof(capa));
2003
2004 zlog_info("Brouter: %s via area %s", brouter_name, area_name);
2005 zlog_info(" memory: prev: %p this: %p next: %p parent rnode: %p",
2006 (void *)brouter->prev, (void *)brouter, (void *)brouter->next,
2007 (void *)brouter->rnode);
2008 zlog_info(" type: %d prefix: %s installed: %s changed: %s",
2009 brouter->type, destination, installed, changed);
2010 zlog_info(" lock: %d flags: %s%s%s%s", brouter->lock,
2011 (CHECK_FLAG(brouter->flag, OSPF6_ROUTE_BEST) ? "B" : "-"),
2012 (CHECK_FLAG(brouter->flag, OSPF6_ROUTE_ADD) ? "A" : "-"),
2013 (CHECK_FLAG(brouter->flag, OSPF6_ROUTE_REMOVE) ? "R" : "-"),
2014 (CHECK_FLAG(brouter->flag, OSPF6_ROUTE_CHANGE) ? "C" : "-"));
2015 zlog_info(" path type: %s ls-origin %s id: %s adv-router %s",
2016 OSPF6_PATH_TYPE_NAME(brouter->path.type),
2017 ospf6_lstype_name(brouter->path.origin.type), id, adv_router);
2018 zlog_info(" options: %s router-bits: %s metric-type: %d metric: %d/%d",
2019 options, capa, brouter->path.metric_type, brouter->path.cost,
2020 brouter->path.u.cost_e2);
2021 }
2022
2023 void ospf6_intra_brouter_calculation(struct ospf6_area *oa)
2024 {
2025 struct ospf6_route *brouter, *nbrouter, *copy;
2026 void (*hook_add)(struct ospf6_route *) = NULL;
2027 void (*hook_remove)(struct ospf6_route *) = NULL;
2028 uint32_t brouter_id;
2029 char brouter_name[16];
2030
2031 if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID(oa->area_id))
2032 zlog_info("border-router calculation for area %s", oa->name);
2033
2034 hook_add = oa->ospf6->brouter_table->hook_add;
2035 hook_remove = oa->ospf6->brouter_table->hook_remove;
2036 oa->ospf6->brouter_table->hook_add = NULL;
2037 oa->ospf6->brouter_table->hook_remove = NULL;
2038
2039 /* withdraw the previous router entries for the area */
2040 for (brouter = ospf6_route_head(oa->ospf6->brouter_table); brouter;
2041 brouter = ospf6_route_next(brouter)) {
2042 brouter_id = ADV_ROUTER_IN_PREFIX(&brouter->prefix);
2043 inet_ntop(AF_INET, &brouter_id, brouter_name,
2044 sizeof(brouter_name));
2045
2046 if (brouter->path.area_id != oa->area_id)
2047 continue;
2048
2049 SET_FLAG(brouter->flag, OSPF6_ROUTE_REMOVE);
2050
2051 if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID(brouter_id)
2052 || IS_OSPF6_DEBUG_ROUTE(MEMORY)) {
2053 zlog_info("%p: mark as removing: area %s brouter %s",
2054 (void *)brouter, oa->name, brouter_name);
2055 ospf6_brouter_debug_print(brouter);
2056 }
2057 }
2058
2059 for (brouter = ospf6_route_head(oa->spf_table); brouter;
2060 brouter = ospf6_route_next(brouter)) {
2061 brouter_id = ADV_ROUTER_IN_PREFIX(&brouter->prefix);
2062 inet_ntop(AF_INET, &brouter_id, brouter_name,
2063 sizeof(brouter_name));
2064
2065 if (brouter->type != OSPF6_DEST_TYPE_LINKSTATE)
2066 continue;
2067
2068 if (ospf6_linkstate_prefix_id(&brouter->prefix) != htonl(0))
2069 continue;
2070
2071 if (!CHECK_FLAG(brouter->path.router_bits, OSPF6_ROUTER_BIT_E)
2072 && !CHECK_FLAG(brouter->path.router_bits,
2073 OSPF6_ROUTER_BIT_B))
2074 continue;
2075
2076 if (!OSPF6_OPT_ISSET(brouter->path.options, OSPF6_OPT_V6)
2077 || !OSPF6_OPT_ISSET(brouter->path.options, OSPF6_OPT_R))
2078 continue;
2079
2080 copy = ospf6_route_copy(brouter);
2081 copy->type = OSPF6_DEST_TYPE_ROUTER;
2082 copy->path.area_id = oa->area_id;
2083 ospf6_route_add(copy, oa->ospf6->brouter_table);
2084
2085 if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID(brouter_id)
2086 || IS_OSPF6_DEBUG_ROUTE(MEMORY)) {
2087 zlog_info("%p: transfer: area %s brouter %s",
2088 (void *)brouter, oa->name, brouter_name);
2089 ospf6_brouter_debug_print(brouter);
2090 }
2091 }
2092
2093 oa->ospf6->brouter_table->hook_add = hook_add;
2094 oa->ospf6->brouter_table->hook_remove = hook_remove;
2095
2096 for (brouter = ospf6_route_head(oa->ospf6->brouter_table); brouter;
2097 brouter = nbrouter) {
2098 /*
2099 * brouter may have been "deleted" in the last loop iteration.
2100 * If this is the case there is still 1 final refcount lock
2101 * taken by ospf6_route_next, that will be released by the same
2102 * call and result in deletion. To avoid heap UAF we must then
2103 * skip processing the deleted route.
2104 */
2105 if (brouter->lock == 1) {
2106 nbrouter = ospf6_route_next(brouter);
2107 continue;
2108 } else {
2109 nbrouter = ospf6_route_next(brouter);
2110 }
2111
2112 brouter_id = ADV_ROUTER_IN_PREFIX(&brouter->prefix);
2113 inet_ntop(AF_INET, &brouter_id, brouter_name,
2114 sizeof(brouter_name));
2115
2116 if (brouter->path.area_id != oa->area_id)
2117 continue;
2118
2119 if (CHECK_FLAG(brouter->flag, OSPF6_ROUTE_WAS_REMOVED))
2120 continue;
2121
2122 /* After iterating spf_table for all routers including
2123 * intra brouter, clear mark for remove flag for
2124 * inter border router if its adv router present in
2125 * SPF table.
2126 */
2127 if (brouter->path.type == OSPF6_PATH_TYPE_INTER) {
2128 struct prefix adv_prefix;
2129
2130 ospf6_linkstate_prefix(brouter->path.origin.adv_router,
2131 htonl(0), &adv_prefix);
2132
2133 if (ospf6_route_lookup(&adv_prefix, oa->spf_table)) {
2134 if (IS_OSPF6_DEBUG_BROUTER) {
2135 zlog_debug("%s: keep inter brouter %s as adv router 0x%x found in spf",
2136 __PRETTY_FUNCTION__,
2137 brouter_name,
2138 brouter->path.origin.adv_router);
2139 ospf6_brouter_debug_print(brouter);
2140 }
2141 UNSET_FLAG(brouter->flag, OSPF6_ROUTE_REMOVE);
2142 }
2143 }
2144
2145 if (CHECK_FLAG(brouter->flag, OSPF6_ROUTE_REMOVE)
2146 && CHECK_FLAG(brouter->flag, OSPF6_ROUTE_ADD)) {
2147 UNSET_FLAG(brouter->flag, OSPF6_ROUTE_REMOVE);
2148 UNSET_FLAG(brouter->flag, OSPF6_ROUTE_ADD);
2149 }
2150
2151 if (CHECK_FLAG(brouter->flag, OSPF6_ROUTE_REMOVE)) {
2152 if (IS_OSPF6_DEBUG_BROUTER
2153 || IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID(
2154 brouter_id)
2155 || IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID(
2156 oa->area_id))
2157 zlog_info("brouter %s disappears via area %s",
2158 brouter_name, oa->name);
2159 ospf6_route_remove(brouter, oa->ospf6->brouter_table);
2160 brouter = NULL;
2161 } else if (CHECK_FLAG(brouter->flag, OSPF6_ROUTE_ADD)
2162 || CHECK_FLAG(brouter->flag, OSPF6_ROUTE_CHANGE)) {
2163 if (IS_OSPF6_DEBUG_BROUTER
2164 || IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID(
2165 brouter_id)
2166 || IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID(
2167 oa->area_id))
2168 zlog_info("brouter %s appears via area %s",
2169 brouter_name, oa->name);
2170
2171 /* newly added */
2172 if (hook_add)
2173 (*hook_add)(brouter);
2174 } else {
2175 if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID(
2176 brouter_id)
2177 || IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID(
2178 oa->area_id))
2179 zlog_info("brouter %s still exists via area %s",
2180 brouter_name, oa->name);
2181 /* But re-originate summaries */
2182 ospf6_abr_originate_summary(brouter);
2183 }
2184
2185 if (brouter) {
2186 UNSET_FLAG(brouter->flag, OSPF6_ROUTE_ADD);
2187 UNSET_FLAG(brouter->flag, OSPF6_ROUTE_CHANGE);
2188 }
2189 }
2190
2191 if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID(oa->area_id))
2192 zlog_info("border-router calculation for area %s: done",
2193 oa->name);
2194 }
2195
2196 struct ospf6_lsa_handler router_handler = {.lh_type = OSPF6_LSTYPE_ROUTER,
2197 .lh_name = "Router",
2198 .lh_short_name = "Rtr",
2199 .lh_show = ospf6_router_lsa_show,
2200 .lh_get_prefix_str =
2201 ospf6_router_lsa_get_nbr_id,
2202 .lh_debug = 0};
2203
2204 struct ospf6_lsa_handler network_handler = {.lh_type = OSPF6_LSTYPE_NETWORK,
2205 .lh_name = "Network",
2206 .lh_short_name = "Net",
2207 .lh_show = ospf6_network_lsa_show,
2208 .lh_get_prefix_str =
2209 ospf6_network_lsa_get_ar_id,
2210 .lh_debug = 0};
2211
2212 struct ospf6_lsa_handler link_handler = {.lh_type = OSPF6_LSTYPE_LINK,
2213 .lh_name = "Link",
2214 .lh_short_name = "Lnk",
2215 .lh_show = ospf6_link_lsa_show,
2216 .lh_get_prefix_str =
2217 ospf6_link_lsa_get_prefix_str,
2218 .lh_debug = 0};
2219
2220 struct ospf6_lsa_handler intra_prefix_handler = {
2221 .lh_type = OSPF6_LSTYPE_INTRA_PREFIX,
2222 .lh_name = "Intra-Prefix",
2223 .lh_short_name = "INP",
2224 .lh_show = ospf6_intra_prefix_lsa_show,
2225 .lh_get_prefix_str = ospf6_intra_prefix_lsa_get_prefix_str,
2226 .lh_debug = 0};
2227
2228 void ospf6_intra_init(void)
2229 {
2230 ospf6_install_lsa_handler(&router_handler);
2231 ospf6_install_lsa_handler(&network_handler);
2232 ospf6_install_lsa_handler(&link_handler);
2233 ospf6_install_lsa_handler(&intra_prefix_handler);
2234 }
2235
2236 DEFUN (debug_ospf6_brouter,
2237 debug_ospf6_brouter_cmd,
2238 "debug ospf6 border-routers",
2239 DEBUG_STR
2240 OSPF6_STR
2241 "Debug border router\n"
2242 )
2243 {
2244 OSPF6_DEBUG_BROUTER_ON();
2245 return CMD_SUCCESS;
2246 }
2247
2248 DEFUN (no_debug_ospf6_brouter,
2249 no_debug_ospf6_brouter_cmd,
2250 "no debug ospf6 border-routers",
2251 NO_STR
2252 DEBUG_STR
2253 OSPF6_STR
2254 "Debug border router\n"
2255 )
2256 {
2257 OSPF6_DEBUG_BROUTER_OFF();
2258 return CMD_SUCCESS;
2259 }
2260
2261 DEFUN (debug_ospf6_brouter_router,
2262 debug_ospf6_brouter_router_cmd,
2263 "debug ospf6 border-routers router-id A.B.C.D",
2264 DEBUG_STR
2265 OSPF6_STR
2266 "Debug border router\n"
2267 "Debug specific border router\n"
2268 "Specify border-router's router-id\n"
2269 )
2270 {
2271 int idx_ipv4 = 4;
2272 uint32_t router_id;
2273 inet_pton(AF_INET, argv[idx_ipv4]->arg, &router_id);
2274 OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ON(router_id);
2275 return CMD_SUCCESS;
2276 }
2277
2278 DEFUN (no_debug_ospf6_brouter_router,
2279 no_debug_ospf6_brouter_router_cmd,
2280 "no debug ospf6 border-routers router-id",
2281 NO_STR
2282 DEBUG_STR
2283 OSPF6_STR
2284 "Debug border router\n"
2285 "Debug specific border router\n"
2286 )
2287 {
2288 OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_OFF();
2289 return CMD_SUCCESS;
2290 }
2291
2292 DEFUN (debug_ospf6_brouter_area,
2293 debug_ospf6_brouter_area_cmd,
2294 "debug ospf6 border-routers area-id A.B.C.D",
2295 DEBUG_STR
2296 OSPF6_STR
2297 "Debug border router\n"
2298 "Debug border routers in specific Area\n"
2299 "Specify Area-ID\n"
2300 )
2301 {
2302 int idx_ipv4 = 4;
2303 uint32_t area_id;
2304 inet_pton(AF_INET, argv[idx_ipv4]->arg, &area_id);
2305 OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ON(area_id);
2306 return CMD_SUCCESS;
2307 }
2308
2309 DEFUN (no_debug_ospf6_brouter_area,
2310 no_debug_ospf6_brouter_area_cmd,
2311 "no debug ospf6 border-routers area-id",
2312 NO_STR
2313 DEBUG_STR
2314 OSPF6_STR
2315 "Debug border router\n"
2316 "Debug border routers in specific Area\n"
2317 )
2318 {
2319 OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_OFF();
2320 return CMD_SUCCESS;
2321 }
2322
2323 int config_write_ospf6_debug_brouter(struct vty *vty)
2324 {
2325 char buf[16];
2326 if (IS_OSPF6_DEBUG_BROUTER)
2327 vty_out(vty, "debug ospf6 border-routers\n");
2328 if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER) {
2329 inet_ntop(AF_INET, &conf_debug_ospf6_brouter_specific_router_id,
2330 buf, sizeof(buf));
2331 vty_out(vty, "debug ospf6 border-routers router-id %s\n", buf);
2332 }
2333 if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA) {
2334 inet_ntop(AF_INET, &conf_debug_ospf6_brouter_specific_area_id,
2335 buf, sizeof(buf));
2336 vty_out(vty, "debug ospf6 border-routers area-id %s\n", buf);
2337 }
2338 return 0;
2339 }
2340
2341 void install_element_ospf6_debug_brouter(void)
2342 {
2343 install_element(ENABLE_NODE, &debug_ospf6_brouter_cmd);
2344 install_element(ENABLE_NODE, &debug_ospf6_brouter_router_cmd);
2345 install_element(ENABLE_NODE, &debug_ospf6_brouter_area_cmd);
2346 install_element(ENABLE_NODE, &no_debug_ospf6_brouter_cmd);
2347 install_element(ENABLE_NODE, &no_debug_ospf6_brouter_router_cmd);
2348 install_element(ENABLE_NODE, &no_debug_ospf6_brouter_area_cmd);
2349 install_element(CONFIG_NODE, &debug_ospf6_brouter_cmd);
2350 install_element(CONFIG_NODE, &debug_ospf6_brouter_router_cmd);
2351 install_element(CONFIG_NODE, &debug_ospf6_brouter_area_cmd);
2352 install_element(CONFIG_NODE, &no_debug_ospf6_brouter_cmd);
2353 install_element(CONFIG_NODE, &no_debug_ospf6_brouter_router_cmd);
2354 install_element(CONFIG_NODE, &no_debug_ospf6_brouter_area_cmd);
2355 }
FRRouting mirror