2 * OSPF Flooding -- RFC2328 Section 13.
3 * Copyright (C) 1999, 2000 Toshiaki Takada
5 * This file is part of GNU Zebra.
7 * GNU Zebra is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published
9 * by the Free Software Foundation; either version 2, or (at your
10 * option) any later version.
12 * GNU Zebra is distributed in the hope that it will be useful, but
13 * WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * General Public License for more details.
17 * You should have received a copy of the GNU General Public License along
18 * with this program; see the file COPYING; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
35 #include "ospfd/ospfd.h"
36 #include "ospfd/ospf_interface.h"
37 #include "ospfd/ospf_ism.h"
38 #include "ospfd/ospf_asbr.h"
39 #include "ospfd/ospf_lsa.h"
40 #include "ospfd/ospf_lsdb.h"
41 #include "ospfd/ospf_neighbor.h"
42 #include "ospfd/ospf_nsm.h"
43 #include "ospfd/ospf_spf.h"
44 #include "ospfd/ospf_flood.h"
45 #include "ospfd/ospf_packet.h"
46 #include "ospfd/ospf_abr.h"
47 #include "ospfd/ospf_route.h"
48 #include "ospfd/ospf_zebra.h"
49 #include "ospfd/ospf_dump.h"
51 extern struct zclient
*zclient
;
53 /* Do the LSA acking specified in table 19, Section 13.5, row 2
54 * This get called from ospf_flood_out_interface. Declared inline
56 static void ospf_flood_delayed_lsa_ack(struct ospf_neighbor
*inbr
,
59 /* LSA is more recent than database copy, but was not
60 flooded back out receiving interface. Delayed
61 acknowledgment sent. If interface is in Backup state
62 delayed acknowledgment sent only if advertisement
63 received from Designated Router, otherwise do nothing See
64 RFC 2328 Section 13.5 */
66 /* Whether LSA is more recent or not, and whether this is in
67 response to the LSA being sent out recieving interface has been
68 worked out previously */
70 /* Deal with router as BDR */
71 if (inbr
->oi
->state
== ISM_Backup
&& !NBR_IS_DR(inbr
))
74 /* Schedule a delayed LSA Ack to be sent */
75 listnode_add(inbr
->oi
->ls_ack
,
76 ospf_lsa_lock(lsa
)); /* delayed LSA Ack */
79 /* Check LSA is related to external info. */
80 struct external_info
*ospf_external_info_check(struct ospf
*ospf
,
83 struct as_external_lsa
*al
;
85 struct route_node
*rn
;
86 struct list
*ext_list
;
87 struct listnode
*node
;
88 struct ospf_external
*ext
;
91 al
= (struct as_external_lsa
*)lsa
->data
;
94 p
.prefix
= lsa
->data
->id
;
95 p
.prefixlen
= ip_masklen(al
->mask
);
97 for (type
= 0; type
< ZEBRA_ROUTE_MAX
; type
++) {
101 is_default_prefix4(&p
)
103 zclient
->default_information
[AFI_IP
],
105 : (zclient
->mi_redist
[AFI_IP
][type
].enabled
107 zclient
->redist
[AFI_IP
][type
],
109 // Pending: check for MI above.
111 ext_list
= ospf
->external
[type
];
115 for (ALL_LIST_ELEMENTS_RO(ext_list
, node
, ext
)) {
117 if (ext
->external_info
)
118 rn
= route_node_lookup(
120 (struct prefix
*)&p
);
122 route_unlock_node(rn
);
123 if (rn
->info
!= NULL
)
124 return (struct external_info
*)
131 if (is_default_prefix4(&p
) && ospf
->external
[DEFAULT_ROUTE
]) {
132 ext_list
= ospf
->external
[DEFAULT_ROUTE
];
134 for (ALL_LIST_ELEMENTS_RO(ext_list
, node
, ext
)) {
135 if (!ext
->external_info
)
138 rn
= route_node_lookup(ext
->external_info
,
139 (struct prefix
*)&p
);
142 route_unlock_node(rn
);
143 if (rn
->info
!= NULL
)
144 return (struct external_info
*)rn
->info
;
150 static void ospf_process_self_originated_lsa(struct ospf
*ospf
,
151 struct ospf_lsa
*new,
152 struct ospf_area
*area
)
154 struct ospf_interface
*oi
;
155 struct external_info
*ei
;
156 struct listnode
*node
;
157 struct as_external_lsa
*al
;
158 struct prefix_ipv4 p
;
159 struct ospf_external_aggr_rt
*aggr
;
161 if (IS_DEBUG_OSPF_EVENT
)
163 "%s:LSA[Type%d:%pI4]: Process self-originated LSA seq 0x%x",
164 ospf_get_name(ospf
), new->data
->type
,
165 &new->data
->id
, ntohl(new->data
->ls_seqnum
));
167 /* If we're here, we installed a self-originated LSA that we received
168 from a neighbor, i.e. it's more recent. We must see whether we want
170 If yes, we should use this LSA's sequence number and reoriginate
172 if not --- we must flush this LSA from the domain. */
173 switch (new->data
->type
) {
174 case OSPF_ROUTER_LSA
:
175 /* Originate a new instance and schedule flooding */
176 if (area
->router_lsa_self
)
177 area
->router_lsa_self
->data
->ls_seqnum
=
178 new->data
->ls_seqnum
;
179 ospf_router_lsa_update_area(area
);
181 case OSPF_NETWORK_LSA
:
182 case OSPF_OPAQUE_LINK_LSA
:
183 /* We must find the interface the LSA could belong to.
184 If the interface is no more a broadcast type or we are no
186 the DR, we flush the LSA otherwise -- create the new instance
188 schedule flooding. */
190 /* Look through all interfaces, not just area, since interface
191 could be moved from one area to another. */
192 for (ALL_LIST_ELEMENTS_RO(ospf
->oiflist
, node
, oi
))
193 /* These are sanity check. */
194 if (IPV4_ADDR_SAME(&oi
->address
->u
.prefix4
,
197 || oi
->type
!= OSPF_IFTYPE_BROADCAST
198 || !IPV4_ADDR_SAME(&oi
->address
->u
.prefix4
,
200 ospf_schedule_lsa_flush_area(area
, new);
204 if (new->data
->type
== OSPF_OPAQUE_LINK_LSA
) {
205 ospf_opaque_lsa_refresh(new);
209 if (oi
->network_lsa_self
)
210 oi
->network_lsa_self
->data
->ls_seqnum
=
211 new->data
->ls_seqnum
;
212 /* Schedule network-LSA origination. */
213 ospf_network_lsa_update(oi
);
217 case OSPF_SUMMARY_LSA
:
218 case OSPF_ASBR_SUMMARY_LSA
:
219 ospf_schedule_abr_task(ospf
);
221 case OSPF_AS_EXTERNAL_LSA
:
222 case OSPF_AS_NSSA_LSA
:
223 if ((new->data
->type
== OSPF_AS_EXTERNAL_LSA
)
224 && CHECK_FLAG(new->flags
, OSPF_LSA_LOCAL_XLT
)) {
225 ospf_translated_nssa_refresh(ospf
, NULL
, new);
229 al
= (struct as_external_lsa
*)new->data
;
231 p
.prefixlen
= ip_masklen(al
->mask
);
232 p
.prefix
= new->data
->id
;
234 ei
= ospf_external_info_check(ospf
, new);
236 if (ospf_external_aggr_match(ospf
, &ei
->p
)) {
237 if (IS_DEBUG_OSPF(lsa
, EXTNL_LSA_AGGR
))
239 "%s, Matching external aggregate route found for %pI4, so don't refresh it.",
243 /* Aggregated external route shouldn't
246 if (!IS_LSA_MAXAGE(new))
247 ospf_lsa_flush_as(ospf
, new);
252 ospf_external_lsa_refresh(ospf
, new, ei
,
253 LSA_REFRESH_FORCE
, false);
255 aggr
= (struct ospf_external_aggr_rt
*)
256 ospf_extrenal_aggregator_lookup(ospf
, &p
);
258 struct external_info ei_aggr
;
261 sizeof(struct external_info
));
263 ei_aggr
.tag
= aggr
->tag
;
264 ei_aggr
.instance
= ospf
->instance
;
265 ei_aggr
.route_map_set
.metric
= -1;
266 ei_aggr
.route_map_set
.metric_type
= -1;
268 ospf_external_lsa_refresh(ospf
, new, &ei_aggr
,
269 LSA_REFRESH_FORCE
, true);
270 SET_FLAG(aggr
->flags
,
271 OSPF_EXTERNAL_AGGRT_ORIGINATED
);
273 ospf_lsa_flush_as(ospf
, new);
276 case OSPF_OPAQUE_AREA_LSA
:
277 ospf_opaque_lsa_refresh(new);
279 case OSPF_OPAQUE_AS_LSA
:
280 ospf_opaque_lsa_refresh(new);
281 /* Reconsideration may needed. */ /* XXX */
288 /* OSPF LSA flooding -- RFC2328 Section 13.(5). */
290 /* Now Updated for NSSA operation, as follows:
293 Type-5's have no change. Blocked to STUB or NSSA.
295 Type-7's can be received, and if a DR
296 they will also flood the local NSSA Area as Type-7's
298 If a Self-Originated LSA (now an ASBR),
299 The LSDB will be updated as Type-5's, (for continual re-fresh)
301 If an NSSA-IR it is installed/flooded as Type-7, P-bit on.
302 if an NSSA-ABR it is installed/flooded as Type-7, P-bit off.
304 Later, during the ABR TASK, if the ABR is the Elected NSSA
305 translator, then All Type-7s (with P-bit ON) are Translated to
306 Type-5's and flooded to all non-NSSA/STUB areas.
308 During ASE Calculations,
309 non-ABRs calculate external routes from Type-7's
310 ABRs calculate external routes from Type-5's and non-self Type-7s
312 int ospf_flood(struct ospf
*ospf
, struct ospf_neighbor
*nbr
,
313 struct ospf_lsa
*current
, struct ospf_lsa
*new)
315 struct ospf_interface
*oi
;
318 /* Type-7 LSA's will be flooded throughout their native NSSA area,
319 but will also be flooded as Type-5's into ABR capable links. */
321 if (IS_DEBUG_OSPF_EVENT
)
323 "%s:LSA[Flooding]: start, NBR %pI4 (%s), cur(%p), New-LSA[%s]",
324 ospf_get_name(ospf
), &nbr
->router_id
,
325 lookup_msg(ospf_nsm_state_msg
, nbr
->state
, NULL
),
326 (void *)current
, dump_lsa_key(new));
330 /* If there is already a database copy, and if the
331 database copy was received via flooding and installed less
332 than MinLSArrival seconds ago, discard the new LSA
333 (without acknowledging it). */
334 if (current
!= NULL
) /* -- endo. */
336 if (IS_LSA_SELF(current
)
337 && (ntohs(current
->data
->ls_age
) == 0
338 && ntohl(current
->data
->ls_seqnum
)
339 == OSPF_INITIAL_SEQUENCE_NUMBER
)) {
340 if (IS_DEBUG_OSPF_EVENT
)
342 "%s:LSA[Flooding]: Got a self-originated LSA, while local one is initial instance.",
343 ospf_get_name(ospf
));
344 ; /* Accept this LSA for quick LSDB resynchronization.
346 } else if (monotime_since(¤t
->tv_recv
, NULL
)
347 < ospf
->min_ls_arrival
* 1000LL) {
348 if (IS_DEBUG_OSPF_EVENT
)
350 "%s:LSA[Flooding]: LSA is received recently.",
351 ospf_get_name(ospf
));
356 /* Flood the new LSA out some subset of the router's interfaces.
357 In some cases (e.g., the state of the receiving interface is
358 DR and the LSA was received from a router other than the
359 Backup DR) the LSA will be flooded back out the receiving
361 lsa_ack_flag
= ospf_flood_through(ospf
, nbr
, new);
363 /* Remove the current database copy from all neighbors' Link state
364 retransmission lists. AS_EXTERNAL and AS_EXTERNAL_OPAQUE does
365 ^^^^^^^^^^^^^^^^^^^^^^^
367 All other (even NSSA's) do have area ID. */
369 switch (current
->data
->type
) {
370 case OSPF_AS_EXTERNAL_LSA
:
371 case OSPF_OPAQUE_AS_LSA
:
372 ospf_ls_retransmit_delete_nbr_as(ospf
, current
);
375 ospf_ls_retransmit_delete_nbr_area(oi
->area
, current
);
380 /* Do some internal house keeping that is needed here */
381 SET_FLAG(new->flags
, OSPF_LSA_RECEIVED
);
382 (void)ospf_lsa_is_self_originated(ospf
, new); /* Let it set the flag */
384 /* Received non-self-originated Grace LSA */
385 if (IS_GRACE_LSA(new) && !IS_LSA_SELF(new)) {
387 if (IS_LSA_MAXAGE(new)) {
389 /* Handling Max age grace LSA.*/
390 if (IS_DEBUG_OSPF_GR
)
392 "%s, Received a maxage GRACE-LSA from router %pI4",
393 __func__
, &new->data
->adv_router
);
396 ospf_process_maxage_grace_lsa(ospf
, new, nbr
);
398 if (IS_DEBUG_OSPF_GR
)
400 "%s, Grace LSA doesn't exist in lsdb, so discarding grace lsa",
405 if (IS_DEBUG_OSPF_GR
)
407 "%s, Received a GRACE-LSA from router %pI4",
408 __func__
, &new->data
->adv_router
);
410 if (ospf_process_grace_lsa(ospf
, new, nbr
)
411 == OSPF_GR_NOT_HELPER
) {
412 if (IS_DEBUG_OSPF_GR
)
414 "%s, Not moving to HELPER role, So discarding grace LSA",
421 /* Install the new LSA in the link state database
422 (replacing the current database copy). This may cause the
423 routing table calculation to be scheduled. In addition,
424 timestamp the new LSA with the current time. The flooding
425 procedure cannot overwrite the newly installed LSA until
426 MinLSArrival seconds have elapsed. */
428 if (!(new = ospf_lsa_install(ospf
, oi
, new)))
429 return -1; /* unknown LSA type or any other error condition */
431 /* Acknowledge the receipt of the LSA by sending a Link State
432 Acknowledgment packet back out the receiving interface. */
434 ospf_flood_delayed_lsa_ack(nbr
, new);
436 /* If this new LSA indicates that it was originated by the
437 receiving router itself, the router must take special action,
438 either updating the LSA or in some cases flushing it from
439 the routing domain. */
440 if (ospf_lsa_is_self_originated(ospf
, new))
441 ospf_process_self_originated_lsa(ospf
, new, oi
->area
);
443 /* Update statistics value for OSPF-MIB. */
444 ospf
->rx_lsa_count
++;
449 /* OSPF LSA flooding -- RFC2328 Section 13.3. */
450 int ospf_flood_through_interface(struct ospf_interface
*oi
,
451 struct ospf_neighbor
*inbr
,
452 struct ospf_lsa
*lsa
)
454 struct ospf_neighbor
*onbr
;
455 struct route_node
*rn
;
458 if (IS_DEBUG_OSPF_EVENT
)
460 "%s: considering int %s (%s), INBR(%pI4), LSA[%s] AGE %u",
461 __func__
, IF_NAME(oi
), ospf_get_name(oi
->ospf
),
462 inbr
? &inbr
->router_id
: NULL
, dump_lsa_key(lsa
),
463 ntohs(lsa
->data
->ls_age
));
465 if (!ospf_if_is_enable(oi
))
468 /* Remember if new LSA is added to a retransmit list. */
471 /* Each of the neighbors attached to this interface are examined,
472 to determine whether they must receive the new LSA. The following
473 steps are executed for each neighbor: */
474 for (rn
= route_top(oi
->nbrs
); rn
; rn
= route_next(rn
)) {
475 struct ospf_lsa
*ls_req
;
477 if (rn
->info
== NULL
)
481 if (IS_DEBUG_OSPF_EVENT
)
483 "%s: considering nbr %pI4 via %s (%s), state: %s",
484 __func__
, &onbr
->router_id
, IF_NAME(oi
),
485 ospf_get_name(oi
->ospf
),
486 lookup_msg(ospf_nsm_state_msg
, onbr
->state
,
489 /* If the neighbor is in a lesser state than Exchange, it
490 does not participate in flooding, and the next neighbor
491 should be examined. */
492 if (onbr
->state
< NSM_Exchange
)
495 /* If the adjacency is not yet full (neighbor state is
496 Exchange or Loading), examine the Link state request
497 list associated with this adjacency. If there is an
498 instance of the new LSA on the list, it indicates that
499 the neighboring router has an instance of the LSA
500 already. Compare the new LSA to the neighbor's copy: */
501 if (onbr
->state
< NSM_Full
) {
502 if (IS_DEBUG_OSPF_EVENT
)
504 "%s: adj to onbr %pI4 is not Full (%s)",
505 __func__
, &onbr
->router_id
,
506 lookup_msg(ospf_nsm_state_msg
,
508 ls_req
= ospf_ls_request_lookup(onbr
, lsa
);
509 if (ls_req
!= NULL
) {
512 ret
= ospf_lsa_more_recent(ls_req
, lsa
);
513 /* The new LSA is less recent. */
516 /* The two copies are the same instance, then
518 the LSA from the Link state request list. */
520 ospf_ls_request_delete(onbr
, ls_req
);
521 ospf_check_nbr_loading(onbr
);
524 /* The new LSA is more recent. Delete the LSA
525 from the Link state request list. */
527 ospf_ls_request_delete(onbr
, ls_req
);
528 ospf_check_nbr_loading(onbr
);
533 if (IS_OPAQUE_LSA(lsa
->data
->type
)) {
534 if (!CHECK_FLAG(onbr
->options
, OSPF_OPTION_O
)) {
535 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
537 "%s: Skipping neighbor %s via %pI4 -- Not Opaque-capable.",
538 __func__
, IF_NAME(oi
),
544 /* If the new LSA was received from this neighbor,
545 examine the next neighbor. */
548 * Triggered by LSUpd message parser "ospf_ls_upd ()".
549 * E.g., all LSAs handling here is received via network.
551 if (IPV4_ADDR_SAME(&inbr
->router_id
,
553 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
555 "%s: Skipping neighbor %s via %pI4 -- inbr == onbr.",
556 __func__
, IF_NAME(oi
),
562 * Triggered by MaxAge remover, so far.
563 * NULL "inbr" means flooding starts from this node.
565 if (IPV4_ADDR_SAME(&lsa
->data
->adv_router
,
567 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
569 "%s: Skipping neighbor %s via %pI4 -- lsah->adv_router == onbr.",
570 __func__
, IF_NAME(oi
),
576 /* Add the new LSA to the Link state retransmission list
577 for the adjacency. The LSA will be retransmitted
578 at intervals until an acknowledgment is seen from
580 ospf_ls_retransmit_add(onbr
, lsa
);
584 /* If in the previous step, the LSA was NOT added to any of
585 the Link state retransmission lists, there is no need to
586 flood the LSA out the interface. */
587 if (retx_flag
== 0) {
588 return (inbr
&& inbr
->oi
== oi
);
591 /* if we've received the lsa on this interface we need to perform
592 additional checking */
593 if (inbr
&& (inbr
->oi
== oi
)) {
594 /* If the new LSA was received on this interface, and it was
595 received from either the Designated Router or the Backup
596 Designated Router, chances are that all the neighbors have
597 received the LSA already. */
598 if (NBR_IS_DR(inbr
) || NBR_IS_BDR(inbr
)) {
599 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
600 zlog_debug("%s: DR/BDR NOT SEND to int %s (%s)",
601 __func__
, IF_NAME(oi
),
602 ospf_get_name(oi
->ospf
));
606 /* If the new LSA was received on this interface, and the
607 interface state is Backup, examine the next interface. The
608 Designated Router will do the flooding on this interface.
609 However, if the Designated Router fails the router will
610 end up retransmitting the updates. */
612 if (oi
->state
== ISM_Backup
) {
613 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
615 "%s: ISM_Backup NOT SEND to int %s (%s)",
616 __func__
, IF_NAME(oi
),
617 ospf_get_name(oi
->ospf
));
622 /* The LSA must be flooded out the interface. Send a Link State
623 Update packet (including the new LSA as contents) out the
624 interface. The LSA's LS age must be incremented by InfTransDelay
625 (which must be > 0) when it is copied into the outgoing Link
626 State Update packet (until the LS age field reaches the maximum
628 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
629 zlog_debug("%s: DR/BDR sending upd to int %s (%s)", __func__
,
630 IF_NAME(oi
), ospf_get_name(oi
->ospf
));
632 /* RFC2328 Section 13.3
633 On non-broadcast networks, separate Link State Update
634 packets must be sent, as unicasts, to each adjacent neighbor
635 (i.e., those in state Exchange or greater). The destination
636 IP addresses for these packets are the neighbors' IP
638 if (oi
->type
== OSPF_IFTYPE_NBMA
) {
639 struct ospf_neighbor
*nbr
;
641 for (rn
= route_top(oi
->nbrs
); rn
; rn
= route_next(rn
)) {
646 if (nbr
!= oi
->nbr_self
&& nbr
->state
>= NSM_Exchange
)
647 ospf_ls_upd_send_lsa(nbr
, lsa
,
648 OSPF_SEND_PACKET_DIRECT
);
651 /* Optimization: for P2MP interfaces,
652 don't send back out the incoming interface immediately,
653 allow time to rx multicast ack to the rx'ed (multicast)
655 if (retx_flag
!= 1 ||
656 oi
->type
!= OSPF_IFTYPE_POINTOMULTIPOINT
|| inbr
== NULL
||
658 ospf_ls_upd_send_lsa(oi
->nbr_self
, lsa
,
659 OSPF_SEND_PACKET_INDIRECT
);
664 int ospf_flood_through_area(struct ospf_area
*area
, struct ospf_neighbor
*inbr
,
665 struct ospf_lsa
*lsa
)
667 struct listnode
*node
, *nnode
;
668 struct ospf_interface
*oi
;
669 int lsa_ack_flag
= 0;
672 /* All other types are specific to a single area (Area A). The
673 eligible interfaces are all those interfaces attaching to the
674 Area A. If Area A is the backbone, this includes all the virtual
676 for (ALL_LIST_ELEMENTS(area
->oiflist
, node
, nnode
, oi
)) {
677 if (area
->area_id
.s_addr
!= OSPF_AREA_BACKBONE
678 && oi
->type
== OSPF_IFTYPE_VIRTUALLINK
)
681 if ((lsa
->data
->type
== OSPF_OPAQUE_LINK_LSA
)
682 && (lsa
->oi
!= oi
)) {
684 * Link local scoped Opaque-LSA should only be flooded
685 * for the link on which the LSA has received.
687 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
689 "Type-9 Opaque-LSA: lsa->oi(%p) != oi(%p)",
690 (void *)lsa
->oi
, (void *)oi
);
694 if (ospf_flood_through_interface(oi
, inbr
, lsa
))
698 return (lsa_ack_flag
);
701 int ospf_flood_through_as(struct ospf
*ospf
, struct ospf_neighbor
*inbr
,
702 struct ospf_lsa
*lsa
)
704 struct listnode
*node
;
705 struct ospf_area
*area
;
710 /* The incoming LSA is type 5 or type 7 (AS-EXTERNAL or AS-NSSA )
712 Divert the Type-5 LSA's to all non-NSSA/STUB areas
714 Divert the Type-7 LSA's to all NSSA areas
716 AS-external-LSAs are flooded throughout the entire AS, with the
717 exception of stub areas (see Section 3.6). The eligible
718 interfaces are all the router's interfaces, excluding virtual
719 links and those interfaces attaching to stub areas. */
721 if (CHECK_FLAG(lsa
->flags
, OSPF_LSA_LOCAL_XLT
)) /* Translated from 7 */
722 if (IS_DEBUG_OSPF_NSSA
)
723 zlog_debug("Flood/AS: NSSA TRANSLATED LSA");
725 for (ALL_LIST_ELEMENTS_RO(ospf
->areas
, node
, area
)) {
726 int continue_flag
= 0;
727 struct listnode
*if_node
;
728 struct ospf_interface
*oi
;
730 switch (area
->external_routing
) {
731 /* Don't send AS externals into stub areas. Various types
732 of support for partial stub areas can be implemented
733 here. NSSA's will receive Type-7's that have areas
734 matching the originl LSA. */
735 case OSPF_AREA_NSSA
: /* Sending Type 5 or 7 into NSSA area */
736 /* Type-7, flood NSSA area */
737 if (lsa
->data
->type
== OSPF_AS_NSSA_LSA
738 && area
== lsa
->area
)
739 /* We will send it. */
742 continue_flag
= 1; /* Skip this NSSA area for
746 case OSPF_AREA_TYPE_MAX
:
748 continue_flag
= 1; /* Skip this area. */
751 case OSPF_AREA_DEFAULT
:
753 /* No Type-7 into normal area */
754 if (lsa
->data
->type
== OSPF_AS_NSSA_LSA
)
755 continue_flag
= 1; /* skip Type-7 */
757 continue_flag
= 0; /* Do this area. */
761 /* Do continue for above switch. Saves a big if then mess */
763 continue; /* main for-loop */
765 /* send to every interface in this area */
767 for (ALL_LIST_ELEMENTS_RO(area
->oiflist
, if_node
, oi
)) {
768 /* Skip virtual links */
769 if (oi
->type
!= OSPF_IFTYPE_VIRTUALLINK
)
770 if (ospf_flood_through_interface(oi
, inbr
,
774 } /* main area for-loop */
776 return (lsa_ack_flag
);
779 int ospf_flood_through(struct ospf
*ospf
, struct ospf_neighbor
*inbr
,
780 struct ospf_lsa
*lsa
)
782 int lsa_ack_flag
= 0;
784 /* Type-7 LSA's for NSSA are flooded throughout the AS here, and
785 upon return are updated in the LSDB for Type-7's. Later,
786 re-fresh will re-send them (and also, if ABR, packet code will
787 translate to Type-5's)
789 As usual, Type-5 LSA's (if not DISCARDED because we are STUB or
790 NSSA) are flooded throughout the AS, and are updated in the
793 * At the common sub-sub-function "ospf_flood_through_interface()",
794 * a parameter "inbr" will be used to distinguish the called context
795 * whether the given LSA was received from the neighbor, or the
796 * flooding for the LSA starts from this node (e.g. the LSA was self-
797 * originated, or the LSA is going to be flushed from routing domain).
799 * So, for consistency reasons, this function "ospf_flood_through()"
800 * should also allow the usage that the given "inbr" parameter to be
801 * NULL. If we do so, corresponding AREA parameter should be referred
802 * by "lsa->area", instead of "inbr->oi->area".
804 switch (lsa
->data
->type
) {
805 case OSPF_AS_EXTERNAL_LSA
: /* Type-5 */
806 case OSPF_OPAQUE_AS_LSA
:
807 lsa_ack_flag
= ospf_flood_through_as(ospf
, inbr
, lsa
);
809 /* Type-7 Only received within NSSA, then flooded */
810 case OSPF_AS_NSSA_LSA
:
811 /* Any P-bit was installed with the Type-7. */
813 if (IS_DEBUG_OSPF_NSSA
)
814 zlog_debug("%s: LOCAL NSSA FLOOD of Type-7.", __func__
);
817 lsa_ack_flag
= ospf_flood_through_area(lsa
->area
, inbr
, lsa
);
821 /* always need to send ack when incoming intf is PTP or P2MP */
822 if (inbr
!= NULL
&& (inbr
->oi
->type
== OSPF_IFTYPE_POINTOMULTIPOINT
||
823 inbr
->oi
->type
== OSPF_IFTYPE_POINTOPOINT
))
826 return (lsa_ack_flag
);
830 /* Management functions for neighbor's Link State Request list. */
831 void ospf_ls_request_add(struct ospf_neighbor
*nbr
, struct ospf_lsa
*lsa
)
834 * We cannot make use of the newly introduced callback function
835 * "lsdb->new_lsa_hook" to replace debug output below, just because
836 * it seems no simple and smart way to pass neighbor information to
837 * the common function "ospf_lsdb_add()" -- endo.
839 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
840 zlog_debug("RqstL(%lu)++, NBR(%pI4(%s)), LSA[%s]",
841 ospf_ls_request_count(nbr
),
843 ospf_get_name(nbr
->oi
->ospf
), dump_lsa_key(lsa
));
845 ospf_lsdb_add(&nbr
->ls_req
, lsa
);
848 unsigned long ospf_ls_request_count(struct ospf_neighbor
*nbr
)
850 return ospf_lsdb_count_all(&nbr
->ls_req
);
853 int ospf_ls_request_isempty(struct ospf_neighbor
*nbr
)
855 return ospf_lsdb_isempty(&nbr
->ls_req
);
858 /* Remove LSA from neighbor's ls-request list. */
859 void ospf_ls_request_delete(struct ospf_neighbor
*nbr
, struct ospf_lsa
*lsa
)
861 if (nbr
->ls_req_last
== lsa
) {
862 ospf_lsa_unlock(&nbr
->ls_req_last
);
863 nbr
->ls_req_last
= NULL
;
866 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
)) /* -- endo. */
867 zlog_debug("RqstL(%lu)--, NBR(%pI4(%s)), LSA[%s]",
868 ospf_ls_request_count(nbr
),
870 ospf_get_name(nbr
->oi
->ospf
), dump_lsa_key(lsa
));
872 ospf_lsdb_delete(&nbr
->ls_req
, lsa
);
875 /* Remove all LSA from neighbor's ls-requenst list. */
876 void ospf_ls_request_delete_all(struct ospf_neighbor
*nbr
)
878 ospf_lsa_unlock(&nbr
->ls_req_last
);
879 nbr
->ls_req_last
= NULL
;
880 ospf_lsdb_delete_all(&nbr
->ls_req
);
883 /* Lookup LSA from neighbor's ls-request list. */
884 struct ospf_lsa
*ospf_ls_request_lookup(struct ospf_neighbor
*nbr
,
885 struct ospf_lsa
*lsa
)
887 return ospf_lsdb_lookup(&nbr
->ls_req
, lsa
);
890 struct ospf_lsa
*ospf_ls_request_new(struct lsa_header
*lsah
)
892 struct ospf_lsa
*new;
894 new = ospf_lsa_new_and_data(OSPF_LSA_HEADER_SIZE
);
895 memcpy(new->data
, lsah
, OSPF_LSA_HEADER_SIZE
);
901 /* Management functions for neighbor's ls-retransmit list. */
902 unsigned long ospf_ls_retransmit_count(struct ospf_neighbor
*nbr
)
904 return ospf_lsdb_count_all(&nbr
->ls_rxmt
);
907 unsigned long ospf_ls_retransmit_count_self(struct ospf_neighbor
*nbr
,
910 return ospf_lsdb_count_self(&nbr
->ls_rxmt
, lsa_type
);
913 int ospf_ls_retransmit_isempty(struct ospf_neighbor
*nbr
)
915 return ospf_lsdb_isempty(&nbr
->ls_rxmt
);
918 /* Add LSA to be retransmitted to neighbor's ls-retransmit list. */
919 void ospf_ls_retransmit_add(struct ospf_neighbor
*nbr
, struct ospf_lsa
*lsa
)
921 struct ospf_lsa
*old
;
923 old
= ospf_ls_retransmit_lookup(nbr
, lsa
);
925 if (ospf_lsa_more_recent(old
, lsa
) < 0) {
927 old
->retransmit_counter
--;
928 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
929 zlog_debug("RXmtL(%lu)--, NBR(%pI4(%s)), LSA[%s]",
930 ospf_ls_retransmit_count(nbr
),
932 ospf_get_name(nbr
->oi
->ospf
),
934 ospf_lsdb_delete(&nbr
->ls_rxmt
, old
);
936 lsa
->retransmit_counter
++;
938 * We cannot make use of the newly introduced callback function
939 * "lsdb->new_lsa_hook" to replace debug output below, just
941 * it seems no simple and smart way to pass neighbor information
943 * the common function "ospf_lsdb_add()" -- endo.
945 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
946 zlog_debug("RXmtL(%lu)++, NBR(%pI4(%s)), LSA[%s]",
947 ospf_ls_retransmit_count(nbr
),
949 ospf_get_name(nbr
->oi
->ospf
),
951 ospf_lsdb_add(&nbr
->ls_rxmt
, lsa
);
955 /* Remove LSA from neibghbor's ls-retransmit list. */
956 void ospf_ls_retransmit_delete(struct ospf_neighbor
*nbr
, struct ospf_lsa
*lsa
)
958 if (ospf_ls_retransmit_lookup(nbr
, lsa
)) {
959 lsa
->retransmit_counter
--;
960 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
)) /* -- endo. */
961 zlog_debug("RXmtL(%lu)--, NBR(%pI4(%s)), LSA[%s]",
962 ospf_ls_retransmit_count(nbr
),
964 ospf_get_name(nbr
->oi
->ospf
),
966 ospf_lsdb_delete(&nbr
->ls_rxmt
, lsa
);
970 /* Clear neighbor's ls-retransmit list. */
971 void ospf_ls_retransmit_clear(struct ospf_neighbor
*nbr
)
973 struct ospf_lsdb
*lsdb
;
976 lsdb
= &nbr
->ls_rxmt
;
978 for (i
= OSPF_MIN_LSA
; i
< OSPF_MAX_LSA
; i
++) {
979 struct route_table
*table
= lsdb
->type
[i
].db
;
980 struct route_node
*rn
;
981 struct ospf_lsa
*lsa
;
983 for (rn
= route_top(table
); rn
; rn
= route_next(rn
))
984 if ((lsa
= rn
->info
) != NULL
)
985 ospf_ls_retransmit_delete(nbr
, lsa
);
988 ospf_lsa_unlock(&nbr
->ls_req_last
);
989 nbr
->ls_req_last
= NULL
;
992 /* Lookup LSA from neighbor's ls-retransmit list. */
993 struct ospf_lsa
*ospf_ls_retransmit_lookup(struct ospf_neighbor
*nbr
,
994 struct ospf_lsa
*lsa
)
996 return ospf_lsdb_lookup(&nbr
->ls_rxmt
, lsa
);
999 static void ospf_ls_retransmit_delete_nbr_if(struct ospf_interface
*oi
,
1000 struct ospf_lsa
*lsa
)
1002 struct route_node
*rn
;
1003 struct ospf_neighbor
*nbr
;
1004 struct ospf_lsa
*lsr
;
1006 if (ospf_if_is_enable(oi
))
1007 for (rn
= route_top(oi
->nbrs
); rn
; rn
= route_next(rn
)) {
1008 /* If LSA find in LS-retransmit list, then remove it. */
1014 lsr
= ospf_ls_retransmit_lookup(nbr
, lsa
);
1016 /* If LSA find in ls-retransmit list, remove it. */
1018 lsr
->data
->ls_seqnum
== lsa
->data
->ls_seqnum
)
1019 ospf_ls_retransmit_delete(nbr
, lsr
);
1023 void ospf_ls_retransmit_delete_nbr_area(struct ospf_area
*area
,
1024 struct ospf_lsa
*lsa
)
1026 struct listnode
*node
, *nnode
;
1027 struct ospf_interface
*oi
;
1029 for (ALL_LIST_ELEMENTS(area
->oiflist
, node
, nnode
, oi
))
1030 ospf_ls_retransmit_delete_nbr_if(oi
, lsa
);
1033 void ospf_ls_retransmit_delete_nbr_as(struct ospf
*ospf
, struct ospf_lsa
*lsa
)
1035 struct listnode
*node
, *nnode
;
1036 struct ospf_interface
*oi
;
1038 for (ALL_LIST_ELEMENTS(ospf
->oiflist
, node
, nnode
, oi
))
1039 ospf_ls_retransmit_delete_nbr_if(oi
, lsa
);
1043 /* Sets ls_age to MaxAge and floods throu the area.
1044 When we implement ASE routing, there will be another function
1045 flushing an LSA from the whole domain. */
1046 void ospf_lsa_flush_area(struct ospf_lsa
*lsa
, struct ospf_area
*area
)
1048 struct ospf
*ospf
= area
->ospf
;
1050 if (ospf_lsa_is_self_originated(ospf
, lsa
)
1051 && ospf
->gr_info
.restart_in_progress
) {
1052 if (IS_DEBUG_OSPF(lsa
, LSA_GENERATE
))
1054 "%s:LSA[Type%d:%pI4]: Graceful Restart in progress -- not flushing self-originated LSA",
1055 ospf_get_name(ospf
), lsa
->data
->type
,
1060 /* Reset the lsa origination time such that it gives
1061 more time for the ACK to be received and avoid
1063 lsa
->data
->ls_age
= htons(OSPF_LSA_MAXAGE
);
1064 if (IS_DEBUG_OSPF_EVENT
)
1065 zlog_debug("%s: MaxAge set to LSA[%s]", __func__
,
1067 monotime(&lsa
->tv_recv
);
1068 lsa
->tv_orig
= lsa
->tv_recv
;
1069 ospf_flood_through_area(area
, NULL
, lsa
);
1070 ospf_lsa_maxage(ospf
, lsa
);
1073 void ospf_lsa_flush_as(struct ospf
*ospf
, struct ospf_lsa
*lsa
)
1075 if (ospf_lsa_is_self_originated(ospf
, lsa
)
1076 && ospf
->gr_info
.restart_in_progress
) {
1077 if (IS_DEBUG_OSPF(lsa
, LSA_GENERATE
))
1079 "%s:LSA[Type%d:%pI4]: Graceful Restart in progress -- not flushing self-originated LSA",
1080 ospf_get_name(ospf
), lsa
->data
->type
,
1085 /* Reset the lsa origination time such that it gives
1086 more time for the ACK to be received and avoid
1088 lsa
->data
->ls_age
= htons(OSPF_LSA_MAXAGE
);
1089 if (IS_DEBUG_OSPF_EVENT
)
1090 zlog_debug("%s: MaxAge set to LSA[%s]", __func__
,
1092 monotime(&lsa
->tv_recv
);
1093 lsa
->tv_orig
= lsa
->tv_recv
;
1094 ospf_flood_through_as(ospf
, NULL
, lsa
);
1095 ospf_lsa_maxage(ospf
, lsa
);
1098 void ospf_lsa_flush(struct ospf
*ospf
, struct ospf_lsa
*lsa
)
1100 lsa
->data
->ls_age
= htons(OSPF_LSA_MAXAGE
);
1102 switch (lsa
->data
->type
) {
1103 case OSPF_ROUTER_LSA
:
1104 case OSPF_NETWORK_LSA
:
1105 case OSPF_SUMMARY_LSA
:
1106 case OSPF_ASBR_SUMMARY_LSA
:
1107 case OSPF_AS_NSSA_LSA
:
1108 case OSPF_OPAQUE_LINK_LSA
:
1109 case OSPF_OPAQUE_AREA_LSA
:
1110 ospf_lsa_flush_area(lsa
, lsa
->area
);
1112 case OSPF_AS_EXTERNAL_LSA
:
1113 case OSPF_OPAQUE_AS_LSA
:
1114 ospf_lsa_flush_as(ospf
, lsa
);
1117 zlog_info("%s: Unknown LSA type %u", __func__
, lsa
->data
->type
);