3 * Copyright (C) 1999, 2000 Alex Zinin, Toshiaki Takada
5 * This file is part of GNU Zebra.
7 * GNU Zebra is free software; you can redistribute it and/or modify it
8 * under the terms of the GNU General Public License as published by the
9 * Free Software Foundation; either version 2, or (at your option) any
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
18 * along with GNU Zebra; see the file COPYING. If not, write to the Free
19 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
37 #include "ospfd/ospfd.h"
38 #include "ospfd/ospf_interface.h"
39 #include "ospfd/ospf_ism.h"
40 #include "ospfd/ospf_asbr.h"
41 #include "ospfd/ospf_lsa.h"
42 #include "ospfd/ospf_lsdb.h"
43 #include "ospfd/ospf_neighbor.h"
44 #include "ospfd/ospf_nsm.h"
45 #include "ospfd/ospf_spf.h"
46 #include "ospfd/ospf_route.h"
47 #include "ospfd/ospf_ia.h"
48 #include "ospfd/ospf_flood.h"
49 #include "ospfd/ospf_abr.h"
50 #include "ospfd/ospf_ase.h"
51 #include "ospfd/ospf_zebra.h"
52 #include "ospfd/ospf_dump.h"
54 struct ospf_area_range
*
55 ospf_area_range_new (struct prefix_ipv4
*p
)
57 struct ospf_area_range
*range
;
59 range
= XCALLOC (MTYPE_OSPF_AREA_RANGE
, sizeof (struct ospf_area_range
));
60 range
->addr
= p
->prefix
;
61 range
->masklen
= p
->prefixlen
;
62 range
->cost_config
= OSPF_AREA_RANGE_COST_UNSPEC
;
68 ospf_area_range_free (struct ospf_area_range
*range
)
70 XFREE (MTYPE_OSPF_AREA_RANGE
, range
);
74 ospf_area_range_add (struct ospf_area
*area
, struct ospf_area_range
*range
)
76 struct route_node
*rn
;
80 p
.prefixlen
= range
->masklen
;
81 p
.prefix
= range
->addr
;
83 rn
= route_node_get (area
->ranges
, (struct prefix
*)&p
);
85 route_unlock_node (rn
);
91 ospf_area_range_delete (struct ospf_area
*area
, struct ospf_area_range
*range
)
93 struct route_node
*rn
;
97 p
.prefixlen
= range
->masklen
;
98 p
.prefix
= range
->addr
;
100 rn
= route_node_lookup (area
->ranges
, (struct prefix
*)&p
);
103 ospf_area_range_free (rn
->info
);
105 route_unlock_node (rn
);
106 route_unlock_node (rn
);
110 struct ospf_area_range
*
111 ospf_area_range_lookup (struct ospf_area
*area
, struct prefix_ipv4
*p
)
113 struct route_node
*rn
;
115 rn
= route_node_lookup (area
->ranges
, (struct prefix
*)p
);
118 route_unlock_node (rn
);
124 struct ospf_area_range
*
125 ospf_area_range_lookup_next (struct ospf_area
*area
,
126 struct in_addr
*range_net
,
129 struct route_node
*rn
;
130 struct prefix_ipv4 p
;
131 struct ospf_area_range
*find
;
134 p
.prefixlen
= IPV4_MAX_BITLEN
;
135 p
.prefix
= *range_net
;
138 rn
= route_top (area
->ranges
);
141 rn
= route_node_get (area
->ranges
, (struct prefix
*) &p
);
142 rn
= route_next (rn
);
145 for (; rn
; rn
= route_next (rn
))
152 *range_net
= rn
->p
.u
.prefix4
;
153 route_unlock_node (rn
);
159 struct ospf_area_range
*
160 ospf_area_range_match (struct ospf_area
*area
, struct prefix_ipv4
*p
)
162 struct route_node
*node
;
164 node
= route_node_match (area
->ranges
, (struct prefix
*) p
);
167 route_unlock_node (node
);
173 struct ospf_area_range
*
174 ospf_area_range_match_any (struct ospf
*ospf
, struct prefix_ipv4
*p
)
176 struct ospf_area_range
*range
;
177 struct ospf_area
*area
;
178 struct listnode
*node
;
180 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
181 if ((range
= ospf_area_range_match (area
, p
)))
188 ospf_area_range_active (struct ospf_area_range
*range
)
190 return range
->specifics
;
194 ospf_area_actively_attached (struct ospf_area
*area
)
196 return area
->act_ints
;
200 ospf_area_range_set (struct ospf
*ospf
, struct in_addr area_id
,
201 struct prefix_ipv4
*p
, int advertise
)
203 struct ospf_area
*area
;
204 struct ospf_area_range
*range
;
205 int ret
= OSPF_AREA_ID_FORMAT_ADDRESS
;
207 area
= ospf_area_get (ospf
, area_id
, ret
);
211 range
= ospf_area_range_lookup (area
, p
);
214 if ((CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_ADVERTISE
)
215 && !CHECK_FLAG (advertise
, OSPF_AREA_RANGE_ADVERTISE
))
216 || (!CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_ADVERTISE
)
217 && CHECK_FLAG (advertise
, OSPF_AREA_RANGE_ADVERTISE
)))
218 ospf_schedule_abr_task (ospf
);
222 range
= ospf_area_range_new (p
);
223 ospf_area_range_add (area
, range
);
224 ospf_schedule_abr_task (ospf
);
227 if (CHECK_FLAG (advertise
, OSPF_AREA_RANGE_ADVERTISE
))
228 SET_FLAG (range
->flags
, OSPF_AREA_RANGE_ADVERTISE
);
230 UNSET_FLAG (range
->flags
, OSPF_AREA_RANGE_ADVERTISE
);
236 ospf_area_range_cost_set (struct ospf
*ospf
, struct in_addr area_id
,
237 struct prefix_ipv4
*p
, u_int32_t cost
)
239 struct ospf_area
*area
;
240 struct ospf_area_range
*range
;
241 int ret
= OSPF_AREA_ID_FORMAT_ADDRESS
;
243 area
= ospf_area_get (ospf
, area_id
, ret
);
247 range
= ospf_area_range_new (p
);
251 if (range
->cost_config
!= cost
)
253 range
->cost_config
= cost
;
254 if (ospf_area_range_active (range
))
255 ospf_schedule_abr_task (ospf
);
262 ospf_area_range_unset (struct ospf
*ospf
, struct in_addr area_id
,
263 struct prefix_ipv4
*p
)
265 struct ospf_area
*area
;
266 struct ospf_area_range
*range
;
268 area
= ospf_area_lookup_by_area_id (ospf
, area_id
);
272 range
= ospf_area_range_lookup (area
, p
);
276 if (ospf_area_range_active (range
))
277 ospf_schedule_abr_task (ospf
);
279 ospf_area_range_delete (area
, range
);
285 ospf_area_range_substitute_set (struct ospf
*ospf
, struct in_addr area_id
,
286 struct prefix_ipv4
*p
, struct prefix_ipv4
*s
)
288 struct ospf_area
*area
;
289 struct ospf_area_range
*range
;
290 int ret
= OSPF_AREA_ID_FORMAT_ADDRESS
;
292 area
= ospf_area_get (ospf
, area_id
, ret
);
293 range
= ospf_area_range_lookup (area
, p
);
297 if (!CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_ADVERTISE
) ||
298 !CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_SUBSTITUTE
))
299 ospf_schedule_abr_task (ospf
);
303 range
= ospf_area_range_new (p
);
304 ospf_area_range_add (area
, range
);
305 ospf_schedule_abr_task (ospf
);
308 SET_FLAG (range
->flags
, OSPF_AREA_RANGE_ADVERTISE
);
309 SET_FLAG (range
->flags
, OSPF_AREA_RANGE_SUBSTITUTE
);
310 range
->subst_addr
= s
->prefix
;
311 range
->subst_masklen
= s
->prefixlen
;
317 ospf_area_range_substitute_unset (struct ospf
*ospf
, struct in_addr area_id
,
318 struct prefix_ipv4
*p
)
320 struct ospf_area
*area
;
321 struct ospf_area_range
*range
;
323 area
= ospf_area_lookup_by_area_id (ospf
, area_id
);
327 range
= ospf_area_range_lookup (area
, p
);
331 if (CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_SUBSTITUTE
))
332 if (ospf_area_range_active (range
))
333 ospf_schedule_abr_task (ospf
);
335 UNSET_FLAG (range
->flags
, OSPF_AREA_RANGE_SUBSTITUTE
);
336 range
->subst_addr
.s_addr
= 0;
337 range
->subst_masklen
= 0;
343 ospf_act_bb_connection (struct ospf
*ospf
)
345 if (ospf
->backbone
== NULL
)
348 return ospf
->backbone
->full_nbrs
;
351 /* Determine whether this router is elected translator or not for area */
353 ospf_abr_nssa_am_elected (struct ospf_area
*area
)
355 struct route_node
*rn
;
356 struct ospf_lsa
*lsa
;
357 struct router_lsa
*rlsa
;
358 struct in_addr
*best
= NULL
;
360 LSDB_LOOP ( ROUTER_LSDB (area
), rn
, lsa
)
364 || (lsa
->data
->type
!= OSPF_ROUTER_LSA
)
365 || IS_LSA_SELF (lsa
))
368 rlsa
= (struct router_lsa
*) lsa
->data
;
370 /* ignore non-ABR routers */
371 if (!IS_ROUTER_LSA_BORDER (rlsa
))
374 /* Router has Nt flag - always translate */
375 if (IS_ROUTER_LSA_NT (rlsa
))
377 if (IS_DEBUG_OSPF_NSSA
)
378 zlog_debug ("ospf_abr_nssa_am_elected: "
379 "router %s asserts Nt",
380 inet_ntoa (lsa
->data
->id
) );
385 best
= &lsa
->data
->id
;
387 if ( IPV4_ADDR_CMP (&best
, &lsa
->data
->id
) < 0)
388 best
= &lsa
->data
->id
;
391 if (IS_DEBUG_OSPF_NSSA
)
392 zlog_debug ("ospf_abr_nssa_am_elected: best electable ABR is: %s",
393 (best
) ? inet_ntoa (*best
) : "<none>" );
398 if ( IPV4_ADDR_CMP (&best
, &area
->ospf
->router_id
) < 0)
404 /* Check NSSA ABR status
405 * assumes there are nssa areas
408 ospf_abr_nssa_check_status (struct ospf
*ospf
)
410 struct ospf_area
*area
;
411 struct listnode
*lnode
, *nnode
;
413 for (ALL_LIST_ELEMENTS (ospf
->areas
, lnode
, nnode
, area
))
416 if (area
->external_routing
!= OSPF_AREA_NSSA
)
419 if (IS_DEBUG_OSPF (nssa
, NSSA
))
420 zlog_debug ("ospf_abr_nssa_check_status: "
422 inet_ntoa (area
->area_id
));
424 if (!IS_OSPF_ABR (area
->ospf
))
426 if (IS_DEBUG_OSPF (nssa
, NSSA
))
427 zlog_debug ("ospf_abr_nssa_check_status: "
429 area
->NSSATranslatorState
= OSPF_NSSA_TRANSLATE_DISABLED
;
433 switch (area
->NSSATranslatorRole
)
435 case OSPF_NSSA_ROLE_NEVER
:
436 /* We never Translate Type-7 LSA. */
437 /* TODO: check previous state and flush? */
438 if (IS_DEBUG_OSPF (nssa
, NSSA
))
439 zlog_debug ("ospf_abr_nssa_check_status: "
441 area
->NSSATranslatorState
= OSPF_NSSA_TRANSLATE_DISABLED
;
444 case OSPF_NSSA_ROLE_ALWAYS
:
445 /* We always translate if we are an ABR
446 * TODO: originate new LSAs if state change?
447 * or let the nssa abr task take care of it?
449 if (IS_DEBUG_OSPF (nssa
, NSSA
))
450 zlog_debug ("ospf_abr_nssa_check_status: "
452 area
->NSSATranslatorState
= OSPF_NSSA_TRANSLATE_ENABLED
;
455 case OSPF_NSSA_ROLE_CANDIDATE
:
456 /* We are a candidate for Translation */
457 if (ospf_abr_nssa_am_elected (area
) > 0 )
459 area
->NSSATranslatorState
= OSPF_NSSA_TRANSLATE_ENABLED
;
460 if (IS_DEBUG_OSPF (nssa
, NSSA
))
461 zlog_debug ("ospf_abr_nssa_check_status: "
462 "elected translator");
466 area
->NSSATranslatorState
= OSPF_NSSA_TRANSLATE_DISABLED
;
467 if (IS_DEBUG_OSPF (nssa
, NSSA
))
468 zlog_debug ("ospf_abr_nssa_check_status: "
476 /* Check area border router status. */
478 ospf_check_abr_status (struct ospf
*ospf
)
480 struct ospf_area
*area
;
481 struct listnode
*node
, *nnode
;
482 int bb_configured
= 0;
483 int bb_act_attached
= 0;
484 int areas_configured
= 0;
485 int areas_act_attached
= 0;
486 u_char new_flags
= ospf
->flags
;
488 if (IS_DEBUG_OSPF_EVENT
)
489 zlog_debug ("ospf_check_abr_status(): Start");
491 for (ALL_LIST_ELEMENTS (ospf
->areas
, node
, nnode
, area
))
493 if (listcount (area
->oiflist
))
497 if (OSPF_IS_AREA_BACKBONE (area
))
501 if (ospf_area_actively_attached (area
))
503 areas_act_attached
++;
505 if (OSPF_IS_AREA_BACKBONE (area
))
510 if (IS_DEBUG_OSPF_EVENT
)
512 zlog_debug ("ospf_check_abr_status(): looked through areas");
513 zlog_debug ("ospf_check_abr_status(): bb_configured: %d", bb_configured
);
514 zlog_debug ("ospf_check_abr_status(): bb_act_attached: %d",
516 zlog_debug ("ospf_check_abr_status(): areas_configured: %d",
518 zlog_debug ("ospf_check_abr_status(): areas_act_attached: %d",
522 switch (ospf
->abr_type
)
524 case OSPF_ABR_SHORTCUT
:
526 if (areas_act_attached
> 1)
527 SET_FLAG (new_flags
, OSPF_FLAG_ABR
);
529 UNSET_FLAG (new_flags
, OSPF_FLAG_ABR
);
533 if ((areas_act_attached
> 1) && bb_configured
)
534 SET_FLAG (new_flags
, OSPF_FLAG_ABR
);
536 UNSET_FLAG (new_flags
, OSPF_FLAG_ABR
);
540 if ((areas_configured
> 1) && bb_act_attached
)
541 SET_FLAG (new_flags
, OSPF_FLAG_ABR
);
543 UNSET_FLAG (new_flags
, OSPF_FLAG_ABR
);
549 if (new_flags
!= ospf
->flags
)
551 ospf_spf_calculate_schedule (ospf
);
552 if (IS_DEBUG_OSPF_EVENT
)
553 zlog_debug ("ospf_check_abr_status(): new router flags: %x",new_flags
);
554 ospf
->flags
= new_flags
;
555 OSPF_TIMER_ON (ospf
->t_router_lsa_update
,
556 ospf_router_lsa_update_timer
, OSPF_LSA_UPDATE_DELAY
);
561 ospf_abr_update_aggregate (struct ospf_area_range
*range
,
562 struct ospf_route
*or)
564 if (IS_DEBUG_OSPF_EVENT
)
565 zlog_debug ("ospf_abr_update_aggregate(): Start");
567 if (range
->cost_config
!= OSPF_AREA_RANGE_COST_UNSPEC
)
569 if (IS_DEBUG_OSPF_EVENT
)
570 zlog_debug ("ospf_abr_update_aggregate(): use configured cost %d",
573 range
->cost
= range
->cost_config
;
577 if (range
->specifics
== 0)
578 range
->cost
= or->cost
; /* 1st time get 1st cost */
580 if (or->cost
> range
->cost
)
582 if (IS_DEBUG_OSPF_EVENT
)
583 zlog_debug ("ospf_abr_update_aggregate(): lowest cost, update");
585 range
->cost
= or->cost
;
593 set_metric (struct ospf_lsa
*lsa
, u_int32_t metric
)
595 struct summary_lsa
*header
;
597 metric
= htonl (metric
);
598 mp
= (u_char
*) &metric
;
600 header
= (struct summary_lsa
*) lsa
->data
;
601 memcpy(header
->metric
, mp
, 3);
605 ospf_abr_check_nssa_range (struct prefix_ipv4
*p
, u_int32_t cost
,
606 struct ospf_area
*area
)
608 /* The Type-7 is tested against the aggregated prefix and forwarded
609 for lsa installation and flooding */
613 /* ospf_abr_translate_nssa */
615 ospf_abr_translate_nssa (struct ospf_area
*area
, struct ospf_lsa
*lsa
)
617 /* Incoming Type-7 or later aggregated Type-7
619 * LSA is skipped if P-bit is off.
620 * LSA is aggregated if within range.
622 * The Type-7 is translated, Installed/Approved as a Type-5 into
623 * global LSDB, then Flooded through AS
625 * Later, any Unapproved Translated Type-5's are flushed/discarded
628 struct ospf_lsa
*old
= NULL
,
630 struct as_external_lsa
*ext7
;
631 struct prefix_ipv4 p
;
633 if (! CHECK_FLAG (lsa
->data
->options
, OSPF_OPTION_NP
))
635 if (IS_DEBUG_OSPF_NSSA
)
636 zlog_debug ("ospf_abr_translate_nssa(): LSA Id %s, P-bit off, NO Translation",
637 inet_ntoa (lsa
->data
->id
));
641 if (IS_DEBUG_OSPF_NSSA
)
642 zlog_debug ("ospf_abr_translate_nssa(): LSA Id %s, TRANSLATING 7 to 5",
643 inet_ntoa (lsa
->data
->id
));
645 ext7
= (struct as_external_lsa
*)(lsa
->data
);
646 p
.prefix
= lsa
->data
->id
;
647 p
.prefixlen
= ip_masklen (ext7
->mask
);
649 if (ext7
->e
[0].fwd_addr
.s_addr
== OSPF_DEFAULT_DESTINATION
)
651 if (IS_DEBUG_OSPF_NSSA
)
652 zlog_debug ("ospf_abr_translate_nssa(): LSA Id %s, "
653 "Forward address is 0, NO Translation",
654 inet_ntoa (lsa
->data
->id
));
658 /* try find existing AS-External LSA for this prefix */
660 old
= ospf_external_info_find_lsa (area
->ospf
, &p
);
664 if (IS_DEBUG_OSPF_NSSA
)
665 zlog_debug ("ospf_abr_translate_nssa(): "
666 "found old translated LSA Id %s, refreshing",
667 inet_ntoa (old
->data
->id
));
670 new = ospf_translated_nssa_refresh (area
->ospf
, lsa
, old
);
673 if (IS_DEBUG_OSPF_NSSA
)
674 zlog_debug ("ospf_abr_translate_nssa(): "
675 "could not refresh translated LSA Id %s",
676 inet_ntoa (old
->data
->id
));
681 /* no existing external route for this LSA Id
682 * originate translated LSA
685 if ((new = ospf_translated_nssa_originate (area
->ospf
, lsa
))
688 if (IS_DEBUG_OSPF_NSSA
)
689 zlog_debug ("ospf_abr_translate_nssa(): Could not translate "
690 "Type-7 for %s to Type-5",
691 inet_ntoa (lsa
->data
->id
));
696 /* Area where Aggregate testing will be inserted, just like summary
698 /* ospf_abr_check_nssa_range (p_arg, lsa-> cost, lsa -> area); */
704 ospf_abr_translate_nssa_range (struct prefix_ipv4
*p
, u_int32_t cost
)
706 /* The Type-7 is created from the aggregated prefix and forwarded
707 for lsa installation and flooding... to be added... */
711 ospf_abr_announce_network_to_area (struct prefix_ipv4
*p
, u_int32_t cost
,
712 struct ospf_area
*area
)
714 struct ospf_lsa
*lsa
, *old
= NULL
;
715 struct summary_lsa
*sl
= NULL
;
717 if (IS_DEBUG_OSPF_EVENT
)
718 zlog_debug ("ospf_abr_announce_network_to_area(): Start");
720 old
= ospf_lsa_lookup_by_prefix (area
->lsdb
, OSPF_SUMMARY_LSA
,
721 (struct prefix_ipv4
*) p
,
722 area
->ospf
->router_id
);
725 if (IS_DEBUG_OSPF_EVENT
)
726 zlog_debug ("ospf_abr_announce_network_to_area(): old summary found");
728 sl
= (struct summary_lsa
*) old
->data
;
730 if (IS_DEBUG_OSPF_EVENT
)
731 zlog_debug ("ospf_abr_announce_network_to_area(): "
732 "old metric: %d, new metric: %d",
733 GET_METRIC (sl
->metric
), cost
);
735 if (GET_METRIC (sl
->metric
) == cost
)
737 /* unchanged. simply reapprove it */
738 if (IS_DEBUG_OSPF_EVENT
)
739 zlog_debug ("ospf_abr_announce_network_to_area(): "
740 "old summary approved");
741 SET_FLAG (old
->flags
, OSPF_LSA_APPROVED
);
745 /* LSA is changed, refresh it */
746 if (IS_DEBUG_OSPF_EVENT
)
747 zlog_debug ("ospf_abr_announce_network_to_area(): "
748 "refreshing summary");
749 set_metric (old
, cost
);
750 lsa
= ospf_summary_lsa_refresh (area
->ospf
, old
);
751 /* This will flood through area. */
756 if (IS_DEBUG_OSPF_EVENT
)
757 zlog_debug ("ospf_abr_announce_network_to_area(): "
758 "creating new summary");
759 lsa
= ospf_summary_lsa_originate ( (struct prefix_ipv4
*)p
, cost
, area
);
760 /* This will flood through area. */
762 SET_FLAG (lsa
->flags
, OSPF_LSA_APPROVED
);
763 if (IS_DEBUG_OSPF_EVENT
)
764 zlog_debug ("ospf_abr_announce_network_to_area(): "
765 "flooding new version of summary");
768 if (IS_DEBUG_OSPF_EVENT
)
769 zlog_debug ("ospf_abr_announce_network_to_area(): Stop");
773 ospf_abr_nexthops_belong_to_area (struct ospf_route
*or,
774 struct ospf_area
*area
)
776 struct listnode
*node
, *nnode
;
777 struct ospf_path
*path
;
779 for (ALL_LIST_ELEMENTS (or->paths
, node
, nnode
, path
))
781 struct ospf_interface
*oi
= path
->oi
;
784 if (oi
->area
== area
)
792 ospf_abr_should_accept (struct prefix_ipv4
*p
, struct ospf_area
*area
)
794 if (IMPORT_NAME (area
))
796 if (IMPORT_LIST (area
) == NULL
)
797 IMPORT_LIST (area
) = access_list_lookup (AFI_IP
, IMPORT_NAME (area
));
799 if (IMPORT_LIST (area
))
800 if (access_list_apply (IMPORT_LIST (area
), p
) == FILTER_DENY
)
808 ospf_abr_plist_in_check (struct ospf_area
*area
, struct ospf_route
*or,
809 struct prefix_ipv4
*p
)
811 if (PREFIX_NAME_IN (area
))
813 if (PREFIX_LIST_IN (area
) == NULL
)
814 PREFIX_LIST_IN (area
) = prefix_list_lookup (AFI_IP
,
815 PREFIX_NAME_IN (area
));
816 if (PREFIX_LIST_IN (area
))
817 if (prefix_list_apply (PREFIX_LIST_IN (area
), p
) != PREFIX_PERMIT
)
824 ospf_abr_plist_out_check (struct ospf_area
*area
, struct ospf_route
*or,
825 struct prefix_ipv4
*p
)
827 if (PREFIX_NAME_OUT (area
))
829 if (PREFIX_LIST_OUT (area
) == NULL
)
830 PREFIX_LIST_OUT (area
) = prefix_list_lookup (AFI_IP
,
831 PREFIX_NAME_OUT (area
));
832 if (PREFIX_LIST_OUT (area
))
833 if (prefix_list_apply (PREFIX_LIST_OUT (area
), p
) != PREFIX_PERMIT
)
840 ospf_abr_announce_network (struct ospf
*ospf
,
841 struct prefix_ipv4
*p
, struct ospf_route
*or)
843 struct ospf_area_range
*range
;
844 struct ospf_area
*area
, *or_area
;
845 struct listnode
*node
;
847 if (IS_DEBUG_OSPF_EVENT
)
848 zlog_debug ("ospf_abr_announce_network(): Start");
850 or_area
= ospf_area_lookup_by_area_id (ospf
, or->u
.std
.area_id
);
853 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
855 if (IS_DEBUG_OSPF_EVENT
)
856 zlog_debug ("ospf_abr_announce_network(): looking at area %s",
857 inet_ntoa (area
->area_id
));
859 if (IPV4_ADDR_SAME (&or->u
.std
.area_id
, &area
->area_id
))
862 if (ospf_abr_nexthops_belong_to_area (or, area
))
865 if (!ospf_abr_should_accept (p
, area
))
867 if (IS_DEBUG_OSPF_EVENT
)
868 zlog_debug ("ospf_abr_announce_network(): "
869 "prefix %s/%d was denied by import-list",
870 inet_ntoa (p
->prefix
), p
->prefixlen
);
874 if (!ospf_abr_plist_in_check (area
, or, p
))
876 if (IS_DEBUG_OSPF_EVENT
)
877 zlog_debug ("ospf_abr_announce_network(): "
878 "prefix %s/%d was denied by prefix-list",
879 inet_ntoa (p
->prefix
), p
->prefixlen
);
883 if (area
->external_routing
!= OSPF_AREA_DEFAULT
&& area
->no_summary
)
885 if (IS_DEBUG_OSPF_EVENT
)
886 zlog_debug ("ospf_abr_announce_network(): "
887 "area %s is stub and no_summary",
888 inet_ntoa (area
->area_id
));
892 if (or->path_type
== OSPF_PATH_INTER_AREA
)
894 if (IS_DEBUG_OSPF_EVENT
)
895 zlog_debug ("ospf_abr_announce_network(): this is "
896 "inter-area route to %s/%d",
897 inet_ntoa (p
->prefix
), p
->prefixlen
);
899 if (!OSPF_IS_AREA_BACKBONE (area
))
900 ospf_abr_announce_network_to_area (p
, or->cost
, area
);
903 if (or->path_type
== OSPF_PATH_INTRA_AREA
)
905 if (IS_DEBUG_OSPF_EVENT
)
906 zlog_debug ("ospf_abr_announce_network(): "
907 "this is intra-area route to %s/%d",
908 inet_ntoa (p
->prefix
), p
->prefixlen
);
909 if ((range
= ospf_area_range_match (or_area
, p
))
910 && !ospf_area_is_transit (area
))
911 ospf_abr_update_aggregate (range
, or);
913 ospf_abr_announce_network_to_area (p
, or->cost
, area
);
919 ospf_abr_should_announce (struct ospf
*ospf
,
920 struct prefix_ipv4
*p
, struct ospf_route
*or)
922 struct ospf_area
*area
;
924 area
= ospf_area_lookup_by_area_id (ospf
, or->u
.std
.area_id
);
928 if (EXPORT_NAME (area
))
930 if (EXPORT_LIST (area
) == NULL
)
931 EXPORT_LIST (area
) = access_list_lookup (AFI_IP
, EXPORT_NAME (area
));
933 if (EXPORT_LIST (area
))
934 if (access_list_apply (EXPORT_LIST (area
), p
) == FILTER_DENY
)
942 ospf_abr_process_nssa_translates (struct ospf
*ospf
)
944 /* Scan through all NSSA_LSDB records for all areas;
946 If P-bit is on, translate all Type-7's to 5's and aggregate or
947 flood install as approved in Type-5 LSDB with XLATE Flag on
948 later, do same for all aggregates... At end, DISCARD all
949 remaining UNAPPROVED Type-5's (Aggregate is for future ) */
950 struct listnode
*node
;
951 struct ospf_area
*area
;
952 struct route_node
*rn
;
953 struct ospf_lsa
*lsa
;
955 if (IS_DEBUG_OSPF_NSSA
)
956 zlog_debug ("ospf_abr_process_nssa_translates(): Start");
958 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
960 if (! area
->NSSATranslatorState
)
961 continue; /* skip if not translator */
963 if (area
->external_routing
!= OSPF_AREA_NSSA
)
964 continue; /* skip if not Nssa Area */
966 if (IS_DEBUG_OSPF_NSSA
)
967 zlog_debug ("ospf_abr_process_nssa_translates(): "
968 "looking at area %s", inet_ntoa (area
->area_id
));
970 LSDB_LOOP (NSSA_LSDB (area
), rn
, lsa
)
971 ospf_abr_translate_nssa (area
, lsa
);
974 if (IS_DEBUG_OSPF_NSSA
)
975 zlog_debug ("ospf_abr_process_nssa_translates(): Stop");
980 ospf_abr_process_network_rt (struct ospf
*ospf
,
981 struct route_table
*rt
)
983 struct ospf_area
*area
;
984 struct ospf_route
*or;
985 struct route_node
*rn
;
987 if (IS_DEBUG_OSPF_EVENT
)
988 zlog_debug ("ospf_abr_process_network_rt(): Start");
990 for (rn
= route_top (rt
); rn
; rn
= route_next (rn
))
992 if ((or = rn
->info
) == NULL
)
995 if (!(area
= ospf_area_lookup_by_area_id (ospf
, or->u
.std
.area_id
)))
997 if (IS_DEBUG_OSPF_EVENT
)
998 zlog_debug ("ospf_abr_process_network_rt(): area %s no longer exists",
999 inet_ntoa (or->u
.std
.area_id
));
1003 if (IS_DEBUG_OSPF_EVENT
)
1004 zlog_debug ("ospf_abr_process_network_rt(): this is a route to %s/%d",
1005 inet_ntoa (rn
->p
.u
.prefix4
), rn
->p
.prefixlen
);
1006 if (or->path_type
>= OSPF_PATH_TYPE1_EXTERNAL
)
1008 if (IS_DEBUG_OSPF_EVENT
)
1009 zlog_debug ("ospf_abr_process_network_rt(): "
1010 "this is an External router, skipping");
1014 if (or->cost
>= OSPF_LS_INFINITY
)
1016 if (IS_DEBUG_OSPF_EVENT
)
1017 zlog_debug ("ospf_abr_process_network_rt():"
1018 " this route's cost is infinity, skipping");
1022 if (or->type
== OSPF_DESTINATION_DISCARD
)
1024 if (IS_DEBUG_OSPF_EVENT
)
1025 zlog_debug ("ospf_abr_process_network_rt():"
1026 " this is a discard entry, skipping");
1030 if (or->path_type
== OSPF_PATH_INTRA_AREA
&&
1031 !ospf_abr_should_announce (ospf
, (struct prefix_ipv4
*) &rn
->p
, or))
1033 if (IS_DEBUG_OSPF_EVENT
)
1034 zlog_debug("ospf_abr_process_network_rt(): denied by export-list");
1038 if (or->path_type
== OSPF_PATH_INTRA_AREA
&&
1039 !ospf_abr_plist_out_check (area
, or, (struct prefix_ipv4
*) &rn
->p
))
1041 if (IS_DEBUG_OSPF_EVENT
)
1042 zlog_debug("ospf_abr_process_network_rt(): denied by prefix-list");
1046 if ((or->path_type
== OSPF_PATH_INTER_AREA
) &&
1047 !OSPF_IS_AREA_ID_BACKBONE (or->u
.std
.area_id
))
1049 if (IS_DEBUG_OSPF_EVENT
)
1050 zlog_debug ("ospf_abr_process_network_rt():"
1051 " this is route is not backbone one, skipping");
1056 if ((ospf
->abr_type
== OSPF_ABR_CISCO
) ||
1057 (ospf
->abr_type
== OSPF_ABR_IBM
))
1059 if (!ospf_act_bb_connection (ospf
) &&
1060 or->path_type
!= OSPF_PATH_INTRA_AREA
)
1062 if (IS_DEBUG_OSPF_EVENT
)
1063 zlog_debug ("ospf_abr_process_network_rt(): ALT ABR: "
1064 "No BB connection, skip not intra-area routes");
1068 if (IS_DEBUG_OSPF_EVENT
)
1069 zlog_debug ("ospf_abr_process_network_rt(): announcing");
1070 ospf_abr_announce_network (ospf
, (struct prefix_ipv4
*)&rn
->p
, or);
1073 if (IS_DEBUG_OSPF_EVENT
)
1074 zlog_debug ("ospf_abr_process_network_rt(): Stop");
1078 ospf_abr_announce_rtr_to_area (struct prefix_ipv4
*p
, u_int32_t cost
,
1079 struct ospf_area
*area
)
1081 struct ospf_lsa
*lsa
, *old
= NULL
;
1082 struct summary_lsa
*slsa
= NULL
;
1084 if (IS_DEBUG_OSPF_EVENT
)
1085 zlog_debug ("ospf_abr_announce_rtr_to_area(): Start");
1087 old
= ospf_lsa_lookup_by_prefix (area
->lsdb
, OSPF_ASBR_SUMMARY_LSA
,
1088 p
, area
->ospf
->router_id
);
1091 if (IS_DEBUG_OSPF_EVENT
)
1092 zlog_debug ("ospf_abr_announce_rtr_to_area(): old summary found");
1093 slsa
= (struct summary_lsa
*) old
->data
;
1095 if (IS_DEBUG_OSPF_EVENT
)
1096 zlog_debug ("ospf_abr_announce_network_to_area(): "
1097 "old metric: %d, new metric: %d",
1098 GET_METRIC (slsa
->metric
), cost
);
1101 if (old
&& (GET_METRIC (slsa
->metric
) == cost
))
1103 if (IS_DEBUG_OSPF_EVENT
)
1104 zlog_debug ("ospf_abr_announce_rtr_to_area(): old summary approved");
1105 SET_FLAG (old
->flags
, OSPF_LSA_APPROVED
);
1109 if (IS_DEBUG_OSPF_EVENT
)
1110 zlog_debug ("ospf_abr_announce_rtr_to_area(): 2.2");
1114 set_metric (old
, cost
);
1115 lsa
= ospf_summary_asbr_lsa_refresh (area
->ospf
, old
);
1118 lsa
= ospf_summary_asbr_lsa_originate (p
, cost
, area
);
1120 if (IS_DEBUG_OSPF_EVENT
)
1121 zlog_debug ("ospf_abr_announce_rtr_to_area(): "
1122 "flooding new version of summary");
1124 zlog_info ("ospf_abr_announce_rtr_to_area(): creating new summary");
1125 lsa = ospf_summary_asbr_lsa (p, cost, area, old); */
1127 SET_FLAG (lsa
->flags
, OSPF_LSA_APPROVED
);
1128 /* ospf_flood_through_area (area, NULL, lsa);*/
1131 if (IS_DEBUG_OSPF_EVENT
)
1132 zlog_debug ("ospf_abr_announce_rtr_to_area(): Stop");
1137 ospf_abr_announce_rtr (struct ospf
*ospf
,
1138 struct prefix_ipv4
*p
, struct ospf_route
*or)
1140 struct listnode
*node
;
1141 struct ospf_area
*area
;
1143 if (IS_DEBUG_OSPF_EVENT
)
1144 zlog_debug ("ospf_abr_announce_rtr(): Start");
1146 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
1148 if (IS_DEBUG_OSPF_EVENT
)
1149 zlog_debug ("ospf_abr_announce_rtr(): looking at area %s",
1150 inet_ntoa (area
->area_id
));
1152 if (IPV4_ADDR_SAME (&or->u
.std
.area_id
, &area
->area_id
))
1155 if (ospf_abr_nexthops_belong_to_area (or, area
))
1158 if (area
->external_routing
!= OSPF_AREA_DEFAULT
)
1160 if (IS_DEBUG_OSPF_EVENT
)
1161 zlog_debug ("ospf_abr_announce_rtr(): "
1162 "area %s doesn't support external routing",
1163 inet_ntoa(area
->area_id
));
1167 if (or->path_type
== OSPF_PATH_INTER_AREA
)
1169 if (IS_DEBUG_OSPF_EVENT
)
1170 zlog_debug ("ospf_abr_announce_rtr(): "
1171 "this is inter-area route to %s", inet_ntoa (p
->prefix
));
1172 if (!OSPF_IS_AREA_BACKBONE (area
))
1173 ospf_abr_announce_rtr_to_area (p
, or->cost
, area
);
1176 if (or->path_type
== OSPF_PATH_INTRA_AREA
)
1178 if (IS_DEBUG_OSPF_EVENT
)
1179 zlog_debug ("ospf_abr_announce_rtr(): "
1180 "this is intra-area route to %s", inet_ntoa (p
->prefix
));
1181 ospf_abr_announce_rtr_to_area (p
, or->cost
, area
);
1185 if (IS_DEBUG_OSPF_EVENT
)
1186 zlog_debug ("ospf_abr_announce_rtr(): Stop");
1190 ospf_abr_process_router_rt (struct ospf
*ospf
, struct route_table
*rt
)
1192 struct ospf_route
*or;
1193 struct route_node
*rn
;
1196 if (IS_DEBUG_OSPF_EVENT
)
1197 zlog_debug ("ospf_abr_process_router_rt(): Start");
1199 for (rn
= route_top (rt
); rn
; rn
= route_next (rn
))
1201 struct listnode
*node
, *nnode
;
1203 struct ospf_route
*best
= NULL
;
1205 if (rn
->info
== NULL
)
1210 if (IS_DEBUG_OSPF_EVENT
)
1211 zlog_debug ("ospf_abr_process_router_rt(): this is a route to %s",
1212 inet_ntoa (rn
->p
.u
.prefix4
));
1214 for (ALL_LIST_ELEMENTS (l
, node
, nnode
, or))
1216 if (!ospf_area_lookup_by_area_id (ospf
, or->u
.std
.area_id
))
1218 if (IS_DEBUG_OSPF_EVENT
)
1219 zlog_debug ("ospf_abr_process_router_rt(): area %s no longer exists",
1220 inet_ntoa (or->u
.std
.area_id
));
1225 if (!CHECK_FLAG (or->u
.std
.flags
, ROUTER_LSA_EXTERNAL
))
1227 if (IS_DEBUG_OSPF_EVENT
)
1228 zlog_debug ("ospf_abr_process_router_rt(): "
1229 "This is not an ASBR, skipping");
1235 best
= ospf_find_asbr_route (ospf
, rt
,
1236 (struct prefix_ipv4
*) &rn
->p
);
1245 if (IS_DEBUG_OSPF_EVENT
)
1246 zlog_debug ("ospf_abr_process_router_rt(): "
1247 "This route is not the best among possible, skipping");
1251 if (or->path_type
== OSPF_PATH_INTER_AREA
&&
1252 !OSPF_IS_AREA_ID_BACKBONE (or->u
.std
.area_id
))
1254 if (IS_DEBUG_OSPF_EVENT
)
1255 zlog_debug ("ospf_abr_process_router_rt(): "
1256 "This route is not a backbone one, skipping");
1260 if (or->cost
>= OSPF_LS_INFINITY
)
1262 if (IS_DEBUG_OSPF_EVENT
)
1263 zlog_debug ("ospf_abr_process_router_rt(): "
1264 "This route has LS_INFINITY metric, skipping");
1268 if (ospf
->abr_type
== OSPF_ABR_CISCO
1269 || ospf
->abr_type
== OSPF_ABR_IBM
)
1270 if (!ospf_act_bb_connection (ospf
)
1271 && or->path_type
!= OSPF_PATH_INTRA_AREA
)
1273 if (IS_DEBUG_OSPF_EVENT
)
1274 zlog_debug("ospf_abr_process_network_rt(): ALT ABR: "
1275 "No BB connection, skip not intra-area routes");
1279 ospf_abr_announce_rtr (ospf
, (struct prefix_ipv4
*) &rn
->p
, or);
1285 if (IS_DEBUG_OSPF_EVENT
)
1286 zlog_debug ("ospf_abr_process_router_rt(): Stop");
1290 ospf_abr_unapprove_translates (struct ospf
*ospf
) /* For NSSA Translations */
1292 struct ospf_lsa
*lsa
;
1293 struct route_node
*rn
;
1295 if (IS_DEBUG_OSPF_NSSA
)
1296 zlog_debug ("ospf_abr_unapprove_translates(): Start");
1298 /* NSSA Translator is not checked, because it may have gone away,
1299 and we would want to flush any residuals anyway */
1301 LSDB_LOOP (EXTERNAL_LSDB (ospf
), rn
, lsa
)
1302 if (CHECK_FLAG (lsa
->flags
, OSPF_LSA_LOCAL_XLT
))
1304 UNSET_FLAG (lsa
->flags
, OSPF_LSA_APPROVED
);
1305 if (IS_DEBUG_OSPF_NSSA
)
1306 zlog_debug ("ospf_abr_unapprove_translates(): "
1307 "approved unset on link id %s",
1308 inet_ntoa (lsa
->data
->id
));
1311 if (IS_DEBUG_OSPF_NSSA
)
1312 zlog_debug ("ospf_abr_unapprove_translates(): Stop");
1316 ospf_abr_unapprove_summaries (struct ospf
*ospf
)
1318 struct listnode
*node
;
1319 struct ospf_area
*area
;
1320 struct route_node
*rn
;
1321 struct ospf_lsa
*lsa
;
1323 if (IS_DEBUG_OSPF_EVENT
)
1324 zlog_debug ("ospf_abr_unapprove_summaries(): Start");
1326 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
1328 if (IS_DEBUG_OSPF_EVENT
)
1329 zlog_debug ("ospf_abr_unapprove_summaries(): "
1330 "considering area %s",
1331 inet_ntoa (area
->area_id
));
1332 LSDB_LOOP (SUMMARY_LSDB (area
), rn
, lsa
)
1333 if (ospf_lsa_is_self_originated (ospf
, lsa
))
1335 if (IS_DEBUG_OSPF_EVENT
)
1336 zlog_debug ("ospf_abr_unapprove_summaries(): "
1337 "approved unset on summary link id %s",
1338 inet_ntoa (lsa
->data
->id
));
1339 UNSET_FLAG (lsa
->flags
, OSPF_LSA_APPROVED
);
1342 LSDB_LOOP (ASBR_SUMMARY_LSDB (area
), rn
, lsa
)
1343 if (ospf_lsa_is_self_originated (ospf
, lsa
))
1345 if (IS_DEBUG_OSPF_EVENT
)
1346 zlog_debug ("ospf_abr_unapprove_summaries(): "
1347 "approved unset on asbr-summary link id %s",
1348 inet_ntoa (lsa
->data
->id
));
1349 UNSET_FLAG (lsa
->flags
, OSPF_LSA_APPROVED
);
1353 if (IS_DEBUG_OSPF_EVENT
)
1354 zlog_debug ("ospf_abr_unapprove_summaries(): Stop");
1358 ospf_abr_prepare_aggregates (struct ospf
*ospf
)
1360 struct listnode
*node
;
1361 struct route_node
*rn
;
1362 struct ospf_area_range
*range
;
1363 struct ospf_area
*area
;
1365 if (IS_DEBUG_OSPF_EVENT
)
1366 zlog_debug ("ospf_abr_prepare_aggregates(): Start");
1368 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
1370 for (rn
= route_top (area
->ranges
); rn
; rn
= route_next (rn
))
1371 if ((range
= rn
->info
) != NULL
)
1374 range
->specifics
= 0;
1378 if (IS_DEBUG_OSPF_EVENT
)
1379 zlog_debug ("ospf_abr_prepare_aggregates(): Stop");
1383 ospf_abr_announce_aggregates (struct ospf
*ospf
)
1385 struct ospf_area
*area
, *ar
;
1386 struct ospf_area_range
*range
;
1387 struct route_node
*rn
;
1389 struct listnode
*node
, *n
;
1391 if (IS_DEBUG_OSPF_EVENT
)
1392 zlog_debug ("ospf_abr_announce_aggregates(): Start");
1394 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
1396 if (IS_DEBUG_OSPF_EVENT
)
1397 zlog_debug ("ospf_abr_announce_aggregates(): looking at area %s",
1398 inet_ntoa (area
->area_id
));
1400 for (rn
= route_top (area
->ranges
); rn
; rn
= route_next (rn
))
1401 if ((range
= rn
->info
))
1403 if (!CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_ADVERTISE
))
1405 if (IS_DEBUG_OSPF_EVENT
)
1406 zlog_debug ("ospf_abr_announce_aggregates():"
1407 " discarding suppress-ranges");
1412 p
.u
.prefix4
= range
->addr
;
1413 p
.prefixlen
= range
->masklen
;
1415 if (IS_DEBUG_OSPF_EVENT
)
1416 zlog_debug ("ospf_abr_announce_aggregates():"
1417 " this is range: %s/%d",
1418 inet_ntoa (p
.u
.prefix4
), p
.prefixlen
);
1420 if (CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_SUBSTITUTE
))
1423 p
.u
.prefix4
= range
->subst_addr
;
1424 p
.prefixlen
= range
->subst_masklen
;
1427 if (range
->specifics
)
1429 if (IS_DEBUG_OSPF_EVENT
)
1430 zlog_debug ("ospf_abr_announce_aggregates(): active range");
1432 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, n
, ar
))
1437 /* We do not check nexthops here, because
1438 intra-area routes can be associated with
1441 /* backbone routes are not summarized
1442 when announced into transit areas */
1444 if (ospf_area_is_transit (ar
) &&
1445 OSPF_IS_AREA_BACKBONE (area
))
1447 if (IS_DEBUG_OSPF_EVENT
)
1448 zlog_debug ("ospf_abr_announce_aggregates(): Skipping "
1449 "announcement of BB aggregate into"
1453 ospf_abr_announce_network_to_area ((struct prefix_ipv4
*)&p
, range
->cost
, ar
);
1459 if (IS_DEBUG_OSPF_EVENT
)
1460 zlog_debug ("ospf_abr_announce_aggregates(): Stop");
1464 ospf_abr_send_nssa_aggregates (struct ospf
*ospf
) /* temporarily turned off */
1466 struct listnode
*node
; /*, n; */
1467 struct ospf_area
*area
; /*, *ar; */
1468 struct route_node
*rn
;
1469 struct ospf_area_range
*range
;
1470 struct prefix_ipv4 p
;
1472 if (IS_DEBUG_OSPF_NSSA
)
1473 zlog_debug ("ospf_abr_send_nssa_aggregates(): Start");
1475 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
1477 if (! area
->NSSATranslatorState
)
1480 if (IS_DEBUG_OSPF_NSSA
)
1481 zlog_debug ("ospf_abr_send_nssa_aggregates(): looking at area %s",
1482 inet_ntoa (area
->area_id
));
1484 for (rn
= route_top (area
->ranges
); rn
; rn
= route_next (rn
))
1486 if (rn
->info
== NULL
)
1491 if (!CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_ADVERTISE
))
1493 if (IS_DEBUG_OSPF_NSSA
)
1494 zlog_debug ("ospf_abr_send_nssa_aggregates():"
1495 " discarding suppress-ranges");
1500 p
.prefix
= range
->addr
;
1501 p
.prefixlen
= range
->masklen
;
1503 if (IS_DEBUG_OSPF_NSSA
)
1504 zlog_debug ("ospf_abr_send_nssa_aggregates():"
1505 " this is range: %s/%d",
1506 inet_ntoa (p
.prefix
), p
.prefixlen
);
1508 if (CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_SUBSTITUTE
))
1511 p
.prefix
= range
->subst_addr
;
1512 p
.prefixlen
= range
->subst_masklen
;
1515 if (range
->specifics
)
1517 if (IS_DEBUG_OSPF_NSSA
)
1518 zlog_debug ("ospf_abr_send_nssa_aggregates(): active range");
1520 /* Fetch LSA-Type-7 from aggregate prefix, and then
1521 * translate, Install (as Type-5), Approve, and Flood
1523 ospf_abr_translate_nssa_range (&p
, range
->cost
);
1525 } /* all area ranges*/
1528 if (IS_DEBUG_OSPF_NSSA
)
1529 zlog_debug ("ospf_abr_send_nssa_aggregates(): Stop");
1533 ospf_abr_announce_nssa_defaults (struct ospf
*ospf
) /* By ABR-Translator */
1535 struct listnode
*node
;
1536 struct ospf_area
*area
;
1538 if (! IS_OSPF_ABR (ospf
))
1541 if (IS_DEBUG_OSPF_NSSA
)
1542 zlog_debug ("ospf_abr_announce_stub_defaults(): Start");
1544 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
1546 if (IS_DEBUG_OSPF_NSSA
)
1547 zlog_debug ("ospf_abr_announce_nssa_defaults(): looking at area %s",
1548 inet_ntoa (area
->area_id
));
1550 if (area
->external_routing
!= OSPF_AREA_NSSA
)
1553 if (OSPF_IS_AREA_BACKBONE (area
))
1554 continue; /* Sanity Check */
1556 /* if (!TranslatorRole continue V 1.0 look for "always" conf */
1557 if (area
->NSSATranslatorState
)
1559 if (IS_DEBUG_OSPF_NSSA
)
1560 zlog_debug ("ospf_abr_announce_nssa_defaults(): "
1561 "announcing 0.0.0.0/0 to this nssa");
1562 /* ospf_abr_announce_nssa_asbr_to_as (&p, area->default_cost, area); */
1563 /*ospf_abr_announce_network_to_area (&p, area->default_cost, area);*/
1569 ospf_abr_announce_stub_defaults (struct ospf
*ospf
)
1571 struct listnode
*node
;
1572 struct ospf_area
*area
;
1573 struct prefix_ipv4 p
;
1575 if (! IS_OSPF_ABR (ospf
))
1578 if (IS_DEBUG_OSPF_EVENT
)
1579 zlog_debug ("ospf_abr_announce_stub_defaults(): Start");
1582 p
.prefix
.s_addr
= OSPF_DEFAULT_DESTINATION
;
1585 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
1587 if (IS_DEBUG_OSPF_EVENT
)
1588 zlog_debug ("ospf_abr_announce_stub_defaults(): looking at area %s",
1589 inet_ntoa (area
->area_id
));
1591 if ( (area
->external_routing
!= OSPF_AREA_STUB
)
1592 && (area
->external_routing
!= OSPF_AREA_NSSA
)
1596 if (OSPF_IS_AREA_BACKBONE (area
))
1597 continue; /* Sanity Check */
1599 if (IS_DEBUG_OSPF_EVENT
)
1600 zlog_debug ("ospf_abr_announce_stub_defaults(): "
1601 "announcing 0.0.0.0/0 to area %s",
1602 inet_ntoa (area
->area_id
));
1603 ospf_abr_announce_network_to_area (&p
, area
->default_cost
, area
);
1606 if (IS_DEBUG_OSPF_EVENT
)
1607 zlog_debug ("ospf_abr_announce_stub_defaults(): Stop");
1611 ospf_abr_remove_unapproved_translates_apply (struct ospf
*ospf
,
1612 struct ospf_lsa
*lsa
)
1614 if (CHECK_FLAG (lsa
->flags
, OSPF_LSA_LOCAL_XLT
)
1615 && ! CHECK_FLAG (lsa
->flags
, OSPF_LSA_APPROVED
))
1617 zlog_info ("ospf_abr_remove_unapproved_translates(): "
1618 "removing unapproved translates, ID: %s",
1619 inet_ntoa (lsa
->data
->id
));
1621 /* FLUSH THROUGHOUT AS */
1622 ospf_lsa_flush_as (ospf
, lsa
);
1624 /* DISCARD from LSDB */
1630 ospf_abr_remove_unapproved_translates (struct ospf
*ospf
)
1632 struct route_node
*rn
;
1633 struct ospf_lsa
*lsa
;
1635 /* All AREA PROCESS should have APPROVED necessary LSAs */
1636 /* Remove any left over and not APPROVED */
1637 if (IS_DEBUG_OSPF_NSSA
)
1638 zlog_debug ("ospf_abr_remove_unapproved_translates(): Start");
1640 LSDB_LOOP (EXTERNAL_LSDB (ospf
), rn
, lsa
)
1641 ospf_abr_remove_unapproved_translates_apply (ospf
, lsa
);
1643 if (IS_DEBUG_OSPF_NSSA
)
1644 zlog_debug ("ospf_abr_remove_unapproved_translates(): Stop");
1648 ospf_abr_remove_unapproved_summaries (struct ospf
*ospf
)
1650 struct listnode
*node
;
1651 struct ospf_area
*area
;
1652 struct route_node
*rn
;
1653 struct ospf_lsa
*lsa
;
1655 if (IS_DEBUG_OSPF_EVENT
)
1656 zlog_debug ("ospf_abr_remove_unapproved_summaries(): Start");
1658 for (ALL_LIST_ELEMENTS_RO (ospf
->areas
, node
, area
))
1660 if (IS_DEBUG_OSPF_EVENT
)
1661 zlog_debug ("ospf_abr_remove_unapproved_summaries(): "
1662 "looking at area %s", inet_ntoa (area
->area_id
));
1664 LSDB_LOOP (SUMMARY_LSDB (area
), rn
, lsa
)
1665 if (ospf_lsa_is_self_originated (ospf
, lsa
))
1666 if (!CHECK_FLAG (lsa
->flags
, OSPF_LSA_APPROVED
))
1667 ospf_lsa_flush_area (lsa
, area
);
1669 LSDB_LOOP (ASBR_SUMMARY_LSDB (area
), rn
, lsa
)
1670 if (ospf_lsa_is_self_originated (ospf
, lsa
))
1671 if (!CHECK_FLAG (lsa
->flags
, OSPF_LSA_APPROVED
))
1672 ospf_lsa_flush_area (lsa
, area
);
1675 if (IS_DEBUG_OSPF_EVENT
)
1676 zlog_debug ("ospf_abr_remove_unapproved_summaries(): Stop");
1680 ospf_abr_manage_discard_routes (struct ospf
*ospf
)
1682 struct listnode
*node
, *nnode
;
1683 struct route_node
*rn
;
1684 struct ospf_area
*area
;
1685 struct ospf_area_range
*range
;
1687 for (ALL_LIST_ELEMENTS (ospf
->areas
, node
, nnode
, area
))
1688 for (rn
= route_top (area
->ranges
); rn
; rn
= route_next (rn
))
1689 if ((range
= rn
->info
) != NULL
)
1690 if (CHECK_FLAG (range
->flags
, OSPF_AREA_RANGE_ADVERTISE
))
1692 if (range
->specifics
)
1693 ospf_add_discard_route (ospf
->new_table
, area
,
1694 (struct prefix_ipv4
*) &rn
->p
);
1696 ospf_delete_discard_route ((struct prefix_ipv4
*) &rn
->p
);
1700 /* This is the function taking care about ABR NSSA, i.e. NSSA
1701 Translator, -LSA aggregation and flooding. For all NSSAs
1703 Any SELF-AS-LSA is in the Type-5 LSDB and Type-7 LSDB. These LSA's
1704 are refreshed from the Type-5 LSDB, installed into the Type-7 LSDB
1707 Any received Type-5s are legal for an ABR, else illegal for IR.
1708 Received Type-7s are installed, by area, with incoming P-bit. They
1709 are flooded; if the Elected NSSA Translator, then P-bit off.
1711 Additionally, this ABR will place "translated type-7's" into the
1712 Type-5 LSDB in order to keep track of APPROVAL or not.
1714 It will scan through every area, looking for Type-7 LSAs with P-Bit
1715 SET. The Type-7's are either AS-FLOODED & 5-INSTALLED or
1716 AGGREGATED. Later, the AGGREGATED LSAs are AS-FLOODED &
1719 5-INSTALLED is into the Type-5 LSDB; Any UNAPPROVED Type-5 LSAs
1720 left over are FLUSHED and DISCARDED.
1722 For External Calculations, any NSSA areas use the Type-7 AREA-LSDB,
1723 any ABR-non-NSSA areas use the Type-5 GLOBAL-LSDB. */
1726 ospf_abr_nssa_task (struct ospf
*ospf
) /* called only if any_nssa */
1728 if (IS_DEBUG_OSPF_NSSA
)
1729 zlog_debug ("Check for NSSA-ABR Tasks():");
1731 if (! IS_OSPF_ABR (ospf
))
1734 if (! ospf
->anyNSSA
)
1737 /* Each area must confirm TranslatorRole */
1738 if (IS_DEBUG_OSPF_NSSA
)
1739 zlog_debug ("ospf_abr_nssa_task(): Start");
1741 /* For all Global Entries flagged "local-translate", unset APPROVED */
1742 if (IS_DEBUG_OSPF_NSSA
)
1743 zlog_debug ("ospf_abr_nssa_task(): unapprove translates");
1745 ospf_abr_unapprove_translates (ospf
);
1747 /* RESET all Ranges in every Area, same as summaries */
1748 if (IS_DEBUG_OSPF_NSSA
)
1749 zlog_debug ("ospf_abr_nssa_task(): NSSA initialize aggregates");
1750 ospf_abr_prepare_aggregates (ospf
); /*TURNED OFF just for now */
1752 /* For all NSSAs, Type-7s, translate to 5's, INSTALL/FLOOD, or
1753 * Aggregate as Type-7
1754 * Install or Approve in Type-5 Global LSDB
1756 if (IS_DEBUG_OSPF_NSSA
)
1757 zlog_debug ("ospf_abr_nssa_task(): process translates");
1758 ospf_abr_process_nssa_translates (ospf
);
1760 /* Translate/Send any "ranged" aggregates, and also 5-Install and
1762 * Scan Type-7's for aggregates, translate to Type-5's,
1763 * Install/Flood/Approve
1765 if (IS_DEBUG_OSPF_NSSA
)
1766 zlog_debug("ospf_abr_nssa_task(): send NSSA aggregates");
1767 ospf_abr_send_nssa_aggregates (ospf
); /*TURNED OFF FOR NOW */
1769 /* Send any NSSA defaults as Type-5
1770 *if (IS_DEBUG_OSPF_NSSA)
1771 * zlog_debug ("ospf_abr_nssa_task(): announce nssa defaults");
1772 *ospf_abr_announce_nssa_defaults (ospf);
1773 * havnt a clue what above is supposed to do.
1776 /* Flush any unapproved previous translates from Global Data Base */
1777 if (IS_DEBUG_OSPF_NSSA
)
1778 zlog_debug ("ospf_abr_nssa_task(): remove unapproved translates");
1779 ospf_abr_remove_unapproved_translates (ospf
);
1781 ospf_abr_manage_discard_routes (ospf
); /* same as normal...discard */
1783 if (IS_DEBUG_OSPF_NSSA
)
1784 zlog_debug ("ospf_abr_nssa_task(): Stop");
1787 /* This is the function taking care about ABR stuff, i.e.
1788 summary-LSA origination and flooding. */
1790 ospf_abr_task (struct ospf
*ospf
)
1792 if (IS_DEBUG_OSPF_EVENT
)
1793 zlog_debug ("ospf_abr_task(): Start");
1795 if (ospf
->new_table
== NULL
|| ospf
->new_rtrs
== NULL
)
1797 if (IS_DEBUG_OSPF_EVENT
)
1798 zlog_debug ("ospf_abr_task(): Routing tables are not yet ready");
1802 if (IS_DEBUG_OSPF_EVENT
)
1803 zlog_debug ("ospf_abr_task(): unapprove summaries");
1804 ospf_abr_unapprove_summaries (ospf
);
1806 if (IS_DEBUG_OSPF_EVENT
)
1807 zlog_debug ("ospf_abr_task(): prepare aggregates");
1808 ospf_abr_prepare_aggregates (ospf
);
1810 if (IS_OSPF_ABR (ospf
))
1812 if (IS_DEBUG_OSPF_EVENT
)
1813 zlog_debug ("ospf_abr_task(): process network RT");
1814 ospf_abr_process_network_rt (ospf
, ospf
->new_table
);
1816 if (IS_DEBUG_OSPF_EVENT
)
1817 zlog_debug ("ospf_abr_task(): process router RT");
1818 ospf_abr_process_router_rt (ospf
, ospf
->new_rtrs
);
1820 if (IS_DEBUG_OSPF_EVENT
)
1821 zlog_debug ("ospf_abr_task(): announce aggregates");
1822 ospf_abr_announce_aggregates (ospf
);
1824 if (IS_DEBUG_OSPF_EVENT
)
1825 zlog_debug ("ospf_abr_task(): announce stub defaults");
1826 ospf_abr_announce_stub_defaults (ospf
);
1829 if (IS_DEBUG_OSPF_EVENT
)
1830 zlog_debug ("ospf_abr_task(): remove unapproved summaries");
1831 ospf_abr_remove_unapproved_summaries (ospf
);
1833 ospf_abr_manage_discard_routes (ospf
);
1835 if (IS_DEBUG_OSPF_EVENT
)
1836 zlog_debug ("ospf_abr_task(): Stop");
1841 ospf_abr_task_timer (struct thread
*thread
)
1843 struct ospf
*ospf
= THREAD_ARG (thread
);
1845 ospf
->t_abr_task
= 0;
1847 if (IS_DEBUG_OSPF_EVENT
)
1848 zlog_debug ("Running ABR task on timer");
1850 ospf_check_abr_status (ospf
);
1851 ospf_abr_nssa_check_status (ospf
);
1853 ospf_abr_task (ospf
);
1854 ospf_abr_nssa_task (ospf
); /* if nssa-abr, then scan Type-7 LSDB */
1860 ospf_schedule_abr_task (struct ospf
*ospf
)
1862 if (IS_DEBUG_OSPF_EVENT
)
1863 zlog_debug ("Scheduling ABR task");
1865 if (ospf
->t_abr_task
== NULL
)
1866 ospf
->t_abr_task
= thread_add_timer (master
, ospf_abr_task_timer
,
1867 ospf
, OSPF_ABR_TASK_DELAY
);