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
;
457 char buf
[PREFIX_STRLEN
];
459 if (IS_DEBUG_OSPF_EVENT
)
461 "%s: considering int %s (%s), INBR(%s), LSA[%s] AGE %u",
462 __func__
, IF_NAME(oi
), ospf_get_name(oi
->ospf
),
463 inbr
? inet_ntop(AF_INET
, &inbr
->router_id
, buf
,
466 dump_lsa_key(lsa
), ntohs(lsa
->data
->ls_age
));
468 if (!ospf_if_is_enable(oi
))
471 /* Remember if new LSA is added to a retransmit list. */
474 /* Each of the neighbors attached to this interface are examined,
475 to determine whether they must receive the new LSA. The following
476 steps are executed for each neighbor: */
477 for (rn
= route_top(oi
->nbrs
); rn
; rn
= route_next(rn
)) {
478 struct ospf_lsa
*ls_req
;
480 if (rn
->info
== NULL
)
484 if (IS_DEBUG_OSPF_EVENT
)
486 "%s: considering nbr %pI4 via %s (%s), state: %s",
487 __func__
, &onbr
->router_id
, IF_NAME(oi
),
488 ospf_get_name(oi
->ospf
),
489 lookup_msg(ospf_nsm_state_msg
, onbr
->state
,
492 /* If the neighbor is in a lesser state than Exchange, it
493 does not participate in flooding, and the next neighbor
494 should be examined. */
495 if (onbr
->state
< NSM_Exchange
)
498 /* If the adjacency is not yet full (neighbor state is
499 Exchange or Loading), examine the Link state request
500 list associated with this adjacency. If there is an
501 instance of the new LSA on the list, it indicates that
502 the neighboring router has an instance of the LSA
503 already. Compare the new LSA to the neighbor's copy: */
504 if (onbr
->state
< NSM_Full
) {
505 if (IS_DEBUG_OSPF_EVENT
)
507 "%s: adj to onbr %pI4 is not Full (%s)",
508 __func__
, &onbr
->router_id
,
509 lookup_msg(ospf_nsm_state_msg
,
511 ls_req
= ospf_ls_request_lookup(onbr
, lsa
);
512 if (ls_req
!= NULL
) {
515 ret
= ospf_lsa_more_recent(ls_req
, lsa
);
516 /* The new LSA is less recent. */
519 /* The two copies are the same instance, then
521 the LSA from the Link state request list. */
523 ospf_ls_request_delete(onbr
, ls_req
);
524 ospf_check_nbr_loading(onbr
);
527 /* The new LSA is more recent. Delete the LSA
528 from the Link state request list. */
530 ospf_ls_request_delete(onbr
, ls_req
);
531 ospf_check_nbr_loading(onbr
);
536 if (IS_OPAQUE_LSA(lsa
->data
->type
)) {
537 if (!CHECK_FLAG(onbr
->options
, OSPF_OPTION_O
)) {
538 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
540 "%s: Skipping neighbor %s via %pI4 -- Not Opaque-capable.",
541 __func__
, IF_NAME(oi
),
547 /* If the new LSA was received from this neighbor,
548 examine the next neighbor. */
551 * Triggered by LSUpd message parser "ospf_ls_upd ()".
552 * E.g., all LSAs handling here is received via network.
554 if (IPV4_ADDR_SAME(&inbr
->router_id
,
556 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
558 "%s: Skipping neighbor %s via %pI4 -- inbr == onbr.",
559 __func__
, IF_NAME(oi
),
565 * Triggered by MaxAge remover, so far.
566 * NULL "inbr" means flooding starts from this node.
568 if (IPV4_ADDR_SAME(&lsa
->data
->adv_router
,
570 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
572 "%s: Skipping neighbor %s via %pI4 -- lsah->adv_router == onbr.",
573 __func__
, IF_NAME(oi
),
579 /* Add the new LSA to the Link state retransmission list
580 for the adjacency. The LSA will be retransmitted
581 at intervals until an acknowledgment is seen from
583 ospf_ls_retransmit_add(onbr
, lsa
);
587 /* If in the previous step, the LSA was NOT added to any of
588 the Link state retransmission lists, there is no need to
589 flood the LSA out the interface. */
590 if (retx_flag
== 0) {
591 return (inbr
&& inbr
->oi
== oi
);
594 /* if we've received the lsa on this interface we need to perform
595 additional checking */
596 if (inbr
&& (inbr
->oi
== oi
)) {
597 /* If the new LSA was received on this interface, and it was
598 received from either the Designated Router or the Backup
599 Designated Router, chances are that all the neighbors have
600 received the LSA already. */
601 if (NBR_IS_DR(inbr
) || NBR_IS_BDR(inbr
)) {
602 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
603 zlog_debug("%s: DR/BDR NOT SEND to int %s (%s)",
604 __func__
, IF_NAME(oi
),
605 ospf_get_name(oi
->ospf
));
609 /* If the new LSA was received on this interface, and the
610 interface state is Backup, examine the next interface. The
611 Designated Router will do the flooding on this interface.
612 However, if the Designated Router fails the router will
613 end up retransmitting the updates. */
615 if (oi
->state
== ISM_Backup
) {
616 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
618 "%s: ISM_Backup NOT SEND to int %s (%s)",
619 __func__
, IF_NAME(oi
),
620 ospf_get_name(oi
->ospf
));
625 /* The LSA must be flooded out the interface. Send a Link State
626 Update packet (including the new LSA as contents) out the
627 interface. The LSA's LS age must be incremented by InfTransDelay
628 (which must be > 0) when it is copied into the outgoing Link
629 State Update packet (until the LS age field reaches the maximum
631 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
632 zlog_debug("%s: DR/BDR sending upd to int %s (%s)", __func__
,
633 IF_NAME(oi
), ospf_get_name(oi
->ospf
));
635 /* RFC2328 Section 13.3
636 On non-broadcast networks, separate Link State Update
637 packets must be sent, as unicasts, to each adjacent neighbor
638 (i.e., those in state Exchange or greater). The destination
639 IP addresses for these packets are the neighbors' IP
641 if (oi
->type
== OSPF_IFTYPE_NBMA
) {
642 struct ospf_neighbor
*nbr
;
644 for (rn
= route_top(oi
->nbrs
); rn
; rn
= route_next(rn
))
645 if ((nbr
= rn
->info
) != NULL
)
646 if (nbr
!= oi
->nbr_self
647 && nbr
->state
>= NSM_Exchange
)
648 ospf_ls_upd_send_lsa(
650 OSPF_SEND_PACKET_DIRECT
);
652 ospf_ls_upd_send_lsa(oi
->nbr_self
, lsa
,
653 OSPF_SEND_PACKET_INDIRECT
);
658 int ospf_flood_through_area(struct ospf_area
*area
, struct ospf_neighbor
*inbr
,
659 struct ospf_lsa
*lsa
)
661 struct listnode
*node
, *nnode
;
662 struct ospf_interface
*oi
;
663 int lsa_ack_flag
= 0;
666 /* All other types are specific to a single area (Area A). The
667 eligible interfaces are all those interfaces attaching to the
668 Area A. If Area A is the backbone, this includes all the virtual
670 for (ALL_LIST_ELEMENTS(area
->oiflist
, node
, nnode
, oi
)) {
671 if (area
->area_id
.s_addr
!= OSPF_AREA_BACKBONE
672 && oi
->type
== OSPF_IFTYPE_VIRTUALLINK
)
675 if ((lsa
->data
->type
== OSPF_OPAQUE_LINK_LSA
)
676 && (lsa
->oi
!= oi
)) {
678 * Link local scoped Opaque-LSA should only be flooded
679 * for the link on which the LSA has received.
681 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
683 "Type-9 Opaque-LSA: lsa->oi(%p) != oi(%p)",
684 (void *)lsa
->oi
, (void *)oi
);
688 if (ospf_flood_through_interface(oi
, inbr
, lsa
))
692 return (lsa_ack_flag
);
695 int ospf_flood_through_as(struct ospf
*ospf
, struct ospf_neighbor
*inbr
,
696 struct ospf_lsa
*lsa
)
698 struct listnode
*node
;
699 struct ospf_area
*area
;
704 /* The incoming LSA is type 5 or type 7 (AS-EXTERNAL or AS-NSSA )
706 Divert the Type-5 LSA's to all non-NSSA/STUB areas
708 Divert the Type-7 LSA's to all NSSA areas
710 AS-external-LSAs are flooded throughout the entire AS, with the
711 exception of stub areas (see Section 3.6). The eligible
712 interfaces are all the router's interfaces, excluding virtual
713 links and those interfaces attaching to stub areas. */
715 if (CHECK_FLAG(lsa
->flags
, OSPF_LSA_LOCAL_XLT
)) /* Translated from 7 */
716 if (IS_DEBUG_OSPF_NSSA
)
717 zlog_debug("Flood/AS: NSSA TRANSLATED LSA");
719 for (ALL_LIST_ELEMENTS_RO(ospf
->areas
, node
, area
)) {
720 int continue_flag
= 0;
721 struct listnode
*if_node
;
722 struct ospf_interface
*oi
;
724 switch (area
->external_routing
) {
725 /* Don't send AS externals into stub areas. Various types
726 of support for partial stub areas can be implemented
727 here. NSSA's will receive Type-7's that have areas
728 matching the originl LSA. */
729 case OSPF_AREA_NSSA
: /* Sending Type 5 or 7 into NSSA area */
730 /* Type-7, flood NSSA area */
731 if (lsa
->data
->type
== OSPF_AS_NSSA_LSA
732 && area
== lsa
->area
)
733 /* We will send it. */
736 continue_flag
= 1; /* Skip this NSSA area for
740 case OSPF_AREA_TYPE_MAX
:
742 continue_flag
= 1; /* Skip this area. */
745 case OSPF_AREA_DEFAULT
:
747 /* No Type-7 into normal area */
748 if (lsa
->data
->type
== OSPF_AS_NSSA_LSA
)
749 continue_flag
= 1; /* skip Type-7 */
751 continue_flag
= 0; /* Do this area. */
755 /* Do continue for above switch. Saves a big if then mess */
757 continue; /* main for-loop */
759 /* send to every interface in this area */
761 for (ALL_LIST_ELEMENTS_RO(area
->oiflist
, if_node
, oi
)) {
762 /* Skip virtual links */
763 if (oi
->type
!= OSPF_IFTYPE_VIRTUALLINK
)
764 if (ospf_flood_through_interface(oi
, inbr
,
768 } /* main area for-loop */
770 return (lsa_ack_flag
);
773 int ospf_flood_through(struct ospf
*ospf
, struct ospf_neighbor
*inbr
,
774 struct ospf_lsa
*lsa
)
776 int lsa_ack_flag
= 0;
778 /* Type-7 LSA's for NSSA are flooded throughout the AS here, and
779 upon return are updated in the LSDB for Type-7's. Later,
780 re-fresh will re-send them (and also, if ABR, packet code will
781 translate to Type-5's)
783 As usual, Type-5 LSA's (if not DISCARDED because we are STUB or
784 NSSA) are flooded throughout the AS, and are updated in the
787 * At the common sub-sub-function "ospf_flood_through_interface()",
788 * a parameter "inbr" will be used to distinguish the called context
789 * whether the given LSA was received from the neighbor, or the
790 * flooding for the LSA starts from this node (e.g. the LSA was self-
791 * originated, or the LSA is going to be flushed from routing domain).
793 * So, for consistency reasons, this function "ospf_flood_through()"
794 * should also allow the usage that the given "inbr" parameter to be
795 * NULL. If we do so, corresponding AREA parameter should be referred
796 * by "lsa->area", instead of "inbr->oi->area".
798 switch (lsa
->data
->type
) {
799 case OSPF_AS_EXTERNAL_LSA
: /* Type-5 */
800 case OSPF_OPAQUE_AS_LSA
:
801 lsa_ack_flag
= ospf_flood_through_as(ospf
, inbr
, lsa
);
803 /* Type-7 Only received within NSSA, then flooded */
804 case OSPF_AS_NSSA_LSA
:
805 /* Any P-bit was installed with the Type-7. */
807 if (IS_DEBUG_OSPF_NSSA
)
809 "ospf_flood_through: LOCAL NSSA FLOOD of Type-7.");
812 lsa_ack_flag
= ospf_flood_through_area(lsa
->area
, inbr
, lsa
);
816 return (lsa_ack_flag
);
820 /* Management functions for neighbor's Link State Request list. */
821 void ospf_ls_request_add(struct ospf_neighbor
*nbr
, struct ospf_lsa
*lsa
)
824 * We cannot make use of the newly introduced callback function
825 * "lsdb->new_lsa_hook" to replace debug output below, just because
826 * it seems no simple and smart way to pass neighbor information to
827 * the common function "ospf_lsdb_add()" -- endo.
829 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
830 zlog_debug("RqstL(%lu)++, NBR(%pI4(%s)), LSA[%s]",
831 ospf_ls_request_count(nbr
),
833 ospf_get_name(nbr
->oi
->ospf
), dump_lsa_key(lsa
));
835 ospf_lsdb_add(&nbr
->ls_req
, lsa
);
838 unsigned long ospf_ls_request_count(struct ospf_neighbor
*nbr
)
840 return ospf_lsdb_count_all(&nbr
->ls_req
);
843 int ospf_ls_request_isempty(struct ospf_neighbor
*nbr
)
845 return ospf_lsdb_isempty(&nbr
->ls_req
);
848 /* Remove LSA from neighbor's ls-request list. */
849 void ospf_ls_request_delete(struct ospf_neighbor
*nbr
, struct ospf_lsa
*lsa
)
851 if (nbr
->ls_req_last
== lsa
) {
852 ospf_lsa_unlock(&nbr
->ls_req_last
);
853 nbr
->ls_req_last
= NULL
;
856 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
)) /* -- endo. */
857 zlog_debug("RqstL(%lu)--, NBR(%pI4(%s)), LSA[%s]",
858 ospf_ls_request_count(nbr
),
860 ospf_get_name(nbr
->oi
->ospf
), dump_lsa_key(lsa
));
862 ospf_lsdb_delete(&nbr
->ls_req
, lsa
);
865 /* Remove all LSA from neighbor's ls-requenst list. */
866 void ospf_ls_request_delete_all(struct ospf_neighbor
*nbr
)
868 ospf_lsa_unlock(&nbr
->ls_req_last
);
869 nbr
->ls_req_last
= NULL
;
870 ospf_lsdb_delete_all(&nbr
->ls_req
);
873 /* Lookup LSA from neighbor's ls-request list. */
874 struct ospf_lsa
*ospf_ls_request_lookup(struct ospf_neighbor
*nbr
,
875 struct ospf_lsa
*lsa
)
877 return ospf_lsdb_lookup(&nbr
->ls_req
, lsa
);
880 struct ospf_lsa
*ospf_ls_request_new(struct lsa_header
*lsah
)
882 struct ospf_lsa
*new;
884 new = ospf_lsa_new_and_data(OSPF_LSA_HEADER_SIZE
);
885 memcpy(new->data
, lsah
, OSPF_LSA_HEADER_SIZE
);
891 /* Management functions for neighbor's ls-retransmit list. */
892 unsigned long ospf_ls_retransmit_count(struct ospf_neighbor
*nbr
)
894 return ospf_lsdb_count_all(&nbr
->ls_rxmt
);
897 unsigned long ospf_ls_retransmit_count_self(struct ospf_neighbor
*nbr
,
900 return ospf_lsdb_count_self(&nbr
->ls_rxmt
, lsa_type
);
903 int ospf_ls_retransmit_isempty(struct ospf_neighbor
*nbr
)
905 return ospf_lsdb_isempty(&nbr
->ls_rxmt
);
908 /* Add LSA to be retransmitted to neighbor's ls-retransmit list. */
909 void ospf_ls_retransmit_add(struct ospf_neighbor
*nbr
, struct ospf_lsa
*lsa
)
911 struct ospf_lsa
*old
;
913 old
= ospf_ls_retransmit_lookup(nbr
, lsa
);
915 if (ospf_lsa_more_recent(old
, lsa
) < 0) {
917 old
->retransmit_counter
--;
918 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
919 zlog_debug("RXmtL(%lu)--, NBR(%pI4(%s)), LSA[%s]",
920 ospf_ls_retransmit_count(nbr
),
922 ospf_get_name(nbr
->oi
->ospf
),
924 ospf_lsdb_delete(&nbr
->ls_rxmt
, old
);
926 lsa
->retransmit_counter
++;
928 * We cannot make use of the newly introduced callback function
929 * "lsdb->new_lsa_hook" to replace debug output below, just
931 * it seems no simple and smart way to pass neighbor information
933 * the common function "ospf_lsdb_add()" -- endo.
935 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
))
936 zlog_debug("RXmtL(%lu)++, NBR(%pI4(%s)), LSA[%s]",
937 ospf_ls_retransmit_count(nbr
),
939 ospf_get_name(nbr
->oi
->ospf
),
941 ospf_lsdb_add(&nbr
->ls_rxmt
, lsa
);
945 /* Remove LSA from neibghbor's ls-retransmit list. */
946 void ospf_ls_retransmit_delete(struct ospf_neighbor
*nbr
, struct ospf_lsa
*lsa
)
948 if (ospf_ls_retransmit_lookup(nbr
, lsa
)) {
949 lsa
->retransmit_counter
--;
950 if (IS_DEBUG_OSPF(lsa
, LSA_FLOODING
)) /* -- endo. */
951 zlog_debug("RXmtL(%lu)--, NBR(%pI4(%s)), LSA[%s]",
952 ospf_ls_retransmit_count(nbr
),
954 ospf_get_name(nbr
->oi
->ospf
),
956 ospf_lsdb_delete(&nbr
->ls_rxmt
, lsa
);
960 /* Clear neighbor's ls-retransmit list. */
961 void ospf_ls_retransmit_clear(struct ospf_neighbor
*nbr
)
963 struct ospf_lsdb
*lsdb
;
966 lsdb
= &nbr
->ls_rxmt
;
968 for (i
= OSPF_MIN_LSA
; i
< OSPF_MAX_LSA
; i
++) {
969 struct route_table
*table
= lsdb
->type
[i
].db
;
970 struct route_node
*rn
;
971 struct ospf_lsa
*lsa
;
973 for (rn
= route_top(table
); rn
; rn
= route_next(rn
))
974 if ((lsa
= rn
->info
) != NULL
)
975 ospf_ls_retransmit_delete(nbr
, lsa
);
978 ospf_lsa_unlock(&nbr
->ls_req_last
);
979 nbr
->ls_req_last
= NULL
;
982 /* Lookup LSA from neighbor's ls-retransmit list. */
983 struct ospf_lsa
*ospf_ls_retransmit_lookup(struct ospf_neighbor
*nbr
,
984 struct ospf_lsa
*lsa
)
986 return ospf_lsdb_lookup(&nbr
->ls_rxmt
, lsa
);
989 static void ospf_ls_retransmit_delete_nbr_if(struct ospf_interface
*oi
,
990 struct ospf_lsa
*lsa
)
992 struct route_node
*rn
;
993 struct ospf_neighbor
*nbr
;
994 struct ospf_lsa
*lsr
;
996 if (ospf_if_is_enable(oi
))
997 for (rn
= route_top(oi
->nbrs
); rn
; rn
= route_next(rn
))
998 /* If LSA find in LS-retransmit list, then remove it. */
999 if ((nbr
= rn
->info
) != NULL
) {
1000 lsr
= ospf_ls_retransmit_lookup(nbr
, lsa
);
1002 /* If LSA find in ls-retransmit list, remove it.
1005 && lsr
->data
->ls_seqnum
1006 == lsa
->data
->ls_seqnum
)
1007 ospf_ls_retransmit_delete(nbr
, lsr
);
1011 void ospf_ls_retransmit_delete_nbr_area(struct ospf_area
*area
,
1012 struct ospf_lsa
*lsa
)
1014 struct listnode
*node
, *nnode
;
1015 struct ospf_interface
*oi
;
1017 for (ALL_LIST_ELEMENTS(area
->oiflist
, node
, nnode
, oi
))
1018 ospf_ls_retransmit_delete_nbr_if(oi
, lsa
);
1021 void ospf_ls_retransmit_delete_nbr_as(struct ospf
*ospf
, struct ospf_lsa
*lsa
)
1023 struct listnode
*node
, *nnode
;
1024 struct ospf_interface
*oi
;
1026 for (ALL_LIST_ELEMENTS(ospf
->oiflist
, node
, nnode
, oi
))
1027 ospf_ls_retransmit_delete_nbr_if(oi
, lsa
);
1031 /* Sets ls_age to MaxAge and floods throu the area.
1032 When we implement ASE routing, there will be another function
1033 flushing an LSA from the whole domain. */
1034 void ospf_lsa_flush_area(struct ospf_lsa
*lsa
, struct ospf_area
*area
)
1036 struct ospf
*ospf
= area
->ospf
;
1038 if (ospf_lsa_is_self_originated(ospf
, lsa
)
1039 && ospf
->gr_info
.restart_in_progress
) {
1040 if (IS_DEBUG_OSPF(lsa
, LSA_GENERATE
))
1042 "%s:LSA[Type%d:%pI4]: Graceful Restart in progress -- not flushing self-originated LSA",
1043 ospf_get_name(ospf
), lsa
->data
->type
,
1048 /* Reset the lsa origination time such that it gives
1049 more time for the ACK to be received and avoid
1051 lsa
->data
->ls_age
= htons(OSPF_LSA_MAXAGE
);
1052 if (IS_DEBUG_OSPF_EVENT
)
1053 zlog_debug("%s: MaxAge set to LSA[%s]", __func__
,
1055 monotime(&lsa
->tv_recv
);
1056 lsa
->tv_orig
= lsa
->tv_recv
;
1057 ospf_flood_through_area(area
, NULL
, lsa
);
1058 ospf_lsa_maxage(ospf
, lsa
);
1061 void ospf_lsa_flush_as(struct ospf
*ospf
, struct ospf_lsa
*lsa
)
1063 if (ospf_lsa_is_self_originated(ospf
, lsa
)
1064 && ospf
->gr_info
.restart_in_progress
) {
1065 if (IS_DEBUG_OSPF(lsa
, LSA_GENERATE
))
1067 "%s:LSA[Type%d:%pI4]: Graceful Restart in progress -- not flushing self-originated LSA",
1068 ospf_get_name(ospf
), lsa
->data
->type
,
1073 /* Reset the lsa origination time such that it gives
1074 more time for the ACK to be received and avoid
1076 lsa
->data
->ls_age
= htons(OSPF_LSA_MAXAGE
);
1077 if (IS_DEBUG_OSPF_EVENT
)
1078 zlog_debug("%s: MaxAge set to LSA[%s]", __func__
,
1080 monotime(&lsa
->tv_recv
);
1081 lsa
->tv_orig
= lsa
->tv_recv
;
1082 ospf_flood_through_as(ospf
, NULL
, lsa
);
1083 ospf_lsa_maxage(ospf
, lsa
);
1086 void ospf_lsa_flush(struct ospf
*ospf
, struct ospf_lsa
*lsa
)
1088 lsa
->data
->ls_age
= htons(OSPF_LSA_MAXAGE
);
1090 switch (lsa
->data
->type
) {
1091 case OSPF_ROUTER_LSA
:
1092 case OSPF_NETWORK_LSA
:
1093 case OSPF_SUMMARY_LSA
:
1094 case OSPF_ASBR_SUMMARY_LSA
:
1095 case OSPF_AS_NSSA_LSA
:
1096 case OSPF_OPAQUE_LINK_LSA
:
1097 case OSPF_OPAQUE_AREA_LSA
:
1098 ospf_lsa_flush_area(lsa
, lsa
->area
);
1100 case OSPF_AS_EXTERNAL_LSA
:
1101 case OSPF_OPAQUE_AS_LSA
:
1102 ospf_lsa_flush_as(ospf
, lsa
);
1105 zlog_info("%s: Unknown LSA type %u", __func__
, lsa
->data
->type
);