static void ospf_as_external_lsa_dump(struct stream *s, uint16_t length)
{
struct as_external_lsa *al;
int size;
int i;
al = (struct as_external_lsa *)stream_pnt(s);
zlog_debug(" %s", ospf_lsa_type_msg[al->header.type].str);
zlog_debug(" Network Mask %s", inet_ntoa(al->mask));
size = ntohs(al->header.length) - OSPF_LSA_HEADER_SIZE - 4;
for (i = 0; size > 0; size -= 12, i++) {
zlog_debug(" bit %s TOS=%d metric %d",
IS_EXTERNAL_METRIC(al->e[i].tos) ? "E" : "-",
al->e[i].tos & 0x7f, GET_METRIC(al->e[i].metric));
zlog_debug(" Forwarding address %s",
inet_ntoa(al->e[i].fwd_addr));
zlog_debug(" External Route Tag %" ROUTE_TAG_PRI,
al->e[i].route_tag);
}
}
static void
ospf_update_router_route (struct ospf *ospf,
struct route_table *rtrs,
struct summary_lsa *lsa,
struct prefix_ipv4 *p,
struct ospf_area *area)
{
struct ospf_route *or, *abr_or, *new_or;
struct prefix_ipv4 abr;
u_int32_t cost;
abr.family = AF_INET;
abr.prefix = lsa->header.adv_router;
abr.prefixlen = IPV4_MAX_BITLEN;
apply_mask_ipv4 (&abr);
abr_or = ospf_find_abr_route (rtrs, &abr, area);
if (abr_or == NULL)
{
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_update_router_route(): can't find a route to the ABR");
return;
}
cost = abr_or->cost + GET_METRIC (lsa->metric);
/* First try to find a backbone path,
because standard ABR can update only BB-associated paths */
if ((ospf->backbone == NULL) &&
(ospf->abr_type != OSPF_ABR_SHORTCUT))
return; /* no BB area, not Shortcut ABR, exiting */
/* find the backbone route, if possible */
if ((ospf->backbone == NULL)
|| !(or = ospf_find_asbr_route_through_area (rtrs, p, ospf->backbone)))
{
if (ospf->abr_type != OSPF_ABR_SHORTCUT)
/* route to ASBR through the BB not found
the router is not Shortcut ABR, exiting */
return;
else
/* We're a Shortcut ABR*/
{
/* Let it either add a new router or update the route
through the same (non-BB) area. */
new_or = ospf_route_new ();
new_or->type = OSPF_DESTINATION_ROUTER;
new_or->id = lsa->header.id;
new_or->mask = lsa->mask;
new_or->u.std.options = lsa->header.options;
new_or->u.std.origin = (struct lsa_header *)lsa;
new_or->cost = cost;
new_or->u.std.area_id = area->area_id;
new_or->u.std.external_routing = area->external_routing;
new_or->path_type = OSPF_PATH_INTER_AREA;
new_or->u.std.flags = ROUTER_LSA_EXTERNAL;
ospf_ia_router_route (ospf, rtrs, p, new_or, abr_or);
return;
}
}
/* At this point the "or" is always bb-associated */
if (!(or->u.std.flags & ROUTER_LSA_EXTERNAL))
{
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_upd_router_route(): the remote router is not an ASBR");
return;
}
if (or->path_type != OSPF_PATH_INTRA_AREA &&
or->path_type != OSPF_PATH_INTER_AREA)
return;
if (or->cost < cost)
return;
else if (or->cost == cost)
ospf_route_copy_nexthops (or, abr_or->paths);
else if (or->cost > cost)
{
ospf_route_subst_nexthops (or, abr_or->paths);
or->cost = cost;
/* Even if the ABR runs in Shortcut mode, we can't change
the path type and area, because the "or" is always bb-associated
at this point and even Shortcut ABR can't change these attributes */
}
}
static void
ospf_update_network_route (struct ospf *ospf,
struct route_table *rt,
struct route_table *rtrs,
struct summary_lsa *lsa,
struct prefix_ipv4 *p,
struct ospf_area *area)
{
struct route_node *rn;
struct ospf_route *or, *abr_or, *new_or;
struct prefix_ipv4 abr;
u_int32_t cost;
abr.family = AF_INET;
abr.prefix =lsa->header.adv_router;
abr.prefixlen = IPV4_MAX_BITLEN;
apply_mask_ipv4 (&abr);
abr_or = ospf_find_abr_route (rtrs, &abr, area);
if (abr_or == NULL)
{
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_update_network_route(): can't find a route to the ABR");
return;
}
cost = abr_or->cost + GET_METRIC (lsa->metric);
rn = route_node_lookup (rt, (struct prefix *) p);
if (! rn)
{
if (ospf->abr_type != OSPF_ABR_SHORTCUT)
return; /* Standard ABR can update only already installed
backbone paths */
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_update_network_route(): "
"Allowing Shortcut ABR to add new route");
new_or = ospf_route_new ();
new_or->type = OSPF_DESTINATION_NETWORK;
new_or->id = lsa->header.id;
new_or->mask = lsa->mask;
new_or->u.std.options = lsa->header.options;
new_or->u.std.origin = (struct lsa_header *) lsa;
new_or->cost = cost;
new_or->u.std.area_id = area->area_id;
new_or->u.std.external_routing = area->external_routing;
new_or->path_type = OSPF_PATH_INTER_AREA;
ospf_route_add (rt, p, new_or, abr_or);
return;
}
else
{
route_unlock_node (rn);
if (rn->info == NULL)
return;
}
or = rn->info;
if (or->path_type != OSPF_PATH_INTRA_AREA &&
or->path_type != OSPF_PATH_INTER_AREA)
{
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_update_network_route(): ERR: path type is wrong");
return;
}
if (ospf->abr_type == OSPF_ABR_SHORTCUT)
{
if (or->path_type == OSPF_PATH_INTRA_AREA &&
!OSPF_IS_AREA_ID_BACKBONE (or->u.std.area_id))
{
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_update_network_route(): Shortcut: "
"this intra-area path is not backbone");
return;
}
}
else /* Not Shortcut ABR */
{
if (!OSPF_IS_AREA_ID_BACKBONE (or->u.std.area_id))
{
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_update_network_route(): "
"route is not BB-associated");
return; /* We can update only BB routes */
}
}
if (or->cost < cost)
{
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_update_network_route(): new route is worse");
return;
}
if (or->cost == cost)
{
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_update_network_route(): "
"new route is same distance, adding nexthops");
ospf_route_copy_nexthops (or, abr_or->paths);
}
if (or->cost > cost)
{
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("ospf_update_network_route(): "
"new route is better, overriding nexthops");
ospf_route_subst_nexthops (or, abr_or->paths);
or->cost = cost;
if ((ospf->abr_type == OSPF_ABR_SHORTCUT) &&
!OSPF_IS_AREA_ID_BACKBONE (or->u.std.area_id))
{
or->path_type = OSPF_PATH_INTER_AREA;
or->u.std.area_id = area->area_id;
or->u.std.external_routing = area->external_routing;
/* Note that we can do this only in Shortcut ABR mode,
because standard ABR must leave the route type and area
unchanged
*/
}
}
}
static int
process_summary_lsa (struct ospf_area *area, struct route_table *rt,
struct route_table *rtrs, struct ospf_lsa *lsa)
{
struct ospf *ospf = area->ospf;
struct ospf_area_range *range;
struct ospf_route *abr_or, *new_or;
struct summary_lsa *sl;
struct prefix_ipv4 p, abr;
u_int32_t metric;
if (lsa == NULL)
return 0;
sl = (struct summary_lsa *) lsa->data;
if (IS_DEBUG_OSPF_EVENT)
zlog_debug ("process_summary_lsa(): LS ID: %s", inet_ntoa (sl->header.id));
metric = GET_METRIC (sl->metric);
if (metric == OSPF_LS_INFINITY)
return 0;
if (IS_LSA_MAXAGE (lsa))
return 0;
if (ospf_lsa_is_self_originated (area->ospf, lsa))
return 0;
p.family = AF_INET;
p.prefix = sl->header.id;
if (sl->header.type == OSPF_SUMMARY_LSA)
p.prefixlen = ip_masklen (sl->mask);
else
p.prefixlen = IPV4_MAX_BITLEN;
apply_mask_ipv4 (&p);
if (sl->header.type == OSPF_SUMMARY_LSA &&
(range = ospf_area_range_match_any (ospf, &p)) &&
ospf_area_range_active (range))
return 0;
/* XXX: This check seems dubious to me. If an ABR has already decided
* to consider summaries received in this area, then why would one wish
* to exclude default?
*/
if (IS_OSPF_ABR(ospf) &&
ospf->abr_type != OSPF_ABR_STAND &&
area->external_routing != OSPF_AREA_DEFAULT &&
p.prefix.s_addr == OSPF_DEFAULT_DESTINATION &&
p.prefixlen == 0)
return 0; /* Ignore summary default from a stub area */
abr.family = AF_INET;
abr.prefix = sl->header.adv_router;
abr.prefixlen = IPV4_MAX_BITLEN;
apply_mask_ipv4 (&abr);
abr_or = ospf_find_abr_route (rtrs, &abr, area);
if (abr_or == NULL)
return 0;
new_or = ospf_route_new ();
new_or->type = OSPF_DESTINATION_NETWORK;
new_or->id = sl->header.id;
new_or->mask = sl->mask;
new_or->u.std.options = sl->header.options;
new_or->u.std.origin = (struct lsa_header *) sl;
new_or->cost = abr_or->cost + metric;
new_or->u.std.area_id = area->area_id;
new_or->u.std.external_routing = area->external_routing;
new_or->path_type = OSPF_PATH_INTER_AREA;
if (sl->header.type == OSPF_SUMMARY_LSA)
ospf_ia_network_route (ospf, rt, &p, new_or, abr_or);
else
{
new_or->type = OSPF_DESTINATION_ROUTER;
new_or->u.std.flags = ROUTER_LSA_EXTERNAL;
ospf_ia_router_route (ospf, rtrs, &p, new_or, abr_or);
}
return 0;
}
void
ospf_abr_announce_network_to_area (struct prefix_ipv4 *p, u_int32_t cost,
struct ospf_area *area)
{
struct ospf_lsa *lsa, *old = NULL;
struct summary_lsa *sl = NULL;
if (IS_DEBUG_OSPF_EVENT)
zlog_info ("ospf_abr_announce_network_to_area(): Start");
old = ospf_lsa_lookup_by_prefix (area->lsdb, OSPF_SUMMARY_LSA, p,
area->ospf->router_id);
if (old)
{
if (IS_DEBUG_OSPF_EVENT)
zlog_info ("ospf_abr_announce_network_to_area(): old summary found");
sl = (struct summary_lsa *) old->data;
if (IS_DEBUG_OSPF_EVENT)
zlog_info ("ospf_abr_announce_network_to_area(): "
"old metric: %d, new metric: %d",
GET_METRIC (sl->metric), cost);
}
if (old && (GET_METRIC (sl->metric) == cost))
{
if (IS_DEBUG_OSPF_EVENT)
zlog_info ("ospf_abr_announce_network_to_area(): "
"old summary approved");
SET_FLAG (old->flags, OSPF_LSA_APPROVED);
}
else
{
if (IS_DEBUG_OSPF_EVENT)
zlog_info ("ospf_abr_announce_network_to_area(): "
"creating new summary");
if (old)
{
set_metric (old, cost);
lsa = ospf_summary_lsa_refresh (area->ospf, old);
/* This will flood through area. */
}
else
{
lsa = ospf_summary_lsa_originate (p, cost, area);
/* This will flood through area. */
}
SET_FLAG (lsa->flags, OSPF_LSA_APPROVED);
if (IS_DEBUG_OSPF_EVENT)
zlog_info ("ospf_abr_announce_network_to_area(): "
"flooding new version of summary");
#ifndef HAVE_NSSA
ospf_flood_through_area (area, NULL, lsa);
#endif /* ! HAVE_NSSA */
}
if (IS_DEBUG_OSPF_EVENT)
zlog_info ("ospf_abr_announce_network_to_area(): Stop");
}
int
process_summary_lsa (struct ospf_lsa *l, void *v, int i)
{
struct ospf_area_range *range;
struct ospf_route *abr_or, *new_or;
struct summary_lsa *sl;
struct prefix_ipv4 p, abr;
u_int32_t metric;
struct ia_args *args;
if (l == NULL)
return 0;
args = (struct ia_args *) v;
sl = (struct summary_lsa *) l->data;
if (IS_DEBUG_OSPF_EVENT)
zlog_info ("process_summary_lsa(): LS ID: %s", inet_ntoa (sl->header.id));
metric = GET_METRIC (sl->metric);
if (metric == OSPF_LS_INFINITY)
return 0;
if (IS_LSA_MAXAGE (l))
return 0;
if (ospf_lsa_is_self_originated (l))
return 0;
p.family = AF_INET;
p.prefix = sl->header.id;
if (sl->header.type == OSPF_SUMMARY_LSA)
p.prefixlen = ip_masklen (sl->mask);
else
p.prefixlen = IPV4_MAX_BITLEN;
apply_mask_ipv4 (&p);
if (sl->header.type == OSPF_SUMMARY_LSA &&
(range = ospf_area_range_match_any (ospf_top, &p)) &&
ospf_area_range_active (range))
return 0;
if (ospf_top->abr_type != OSPF_ABR_STAND &&
args->area->external_routing != OSPF_AREA_DEFAULT &&
p.prefix.s_addr == OSPF_DEFAULT_DESTINATION &&
p.prefixlen == 0)
return 0; /* Ignore summary default from a stub area */
abr.family = AF_INET;
abr.prefix = sl->header.adv_router;
abr.prefixlen = IPV4_MAX_BITLEN;
apply_mask_ipv4 (&abr);
abr_or = ospf_find_abr_route (args->rtrs, &abr, args->area);
if (abr_or == NULL)
return 0;
new_or = ospf_route_new ();
new_or->type = OSPF_DESTINATION_NETWORK;
new_or->id = sl->header.id;
new_or->mask = sl->mask;
new_or->u.std.options = sl->header.options;
new_or->u.std.origin = (struct lsa_header *) sl;
new_or->cost = abr_or->cost + metric;
new_or->u.std.area_id = args->area->area_id;
#ifdef HAVE_NSSA
new_or->u.std.external_routing = args->area->external_routing;
#endif /* HAVE_NSSA */
new_or->path_type = OSPF_PATH_INTER_AREA;
if (sl->header.type == OSPF_SUMMARY_LSA)
ospf_ia_network_route (args->rt, &p, new_or, abr_or);
else
{
new_or->type = OSPF_DESTINATION_ROUTER;
new_or->u.std.flags = ROUTER_LSA_EXTERNAL;
ospf_ia_router_route (args->rtrs, &p, new_or, abr_or);
}
return 0;
}
