开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Linux/Unix编程 > 网络 > 查看源码
ospf_abr.c
资源名称：zebra-0.95a.tar.gz　[点击查看]
上传用户：xiaozhuqw
上传日期：2009-11-15
资源大小：1338k
文件大小：43k
源码类别：

网络

开发平台：

Unix_Linux

ospf_abr.c：源码内容
  1. /*
  2.  * OSPF ABR functions.
  3.  * Copyright (C) 1999, 2000 Alex Zinin, Toshiaki Takada
  4.  *
  5.  * This file is part of GNU Zebra.
  6.  *
  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
  10.  * later version.
  11.  * 
  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.
  16.  * 
  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
  20.  * 02111-1307, USA.
  21.  */
  24. #include <zebra.h>
  26. #include "thread.h"
  27. #include "memory.h"
  28. #include "linklist.h"
  29. #include "prefix.h"
  30. #include "if.h"
  31. #include "table.h"
  32. #include "vty.h"
  33. #include "filter.h"
  34. #include "plist.h"
  35. #include "log.h"
  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"
  55. struct ospf_area_range *
  56. ospf_area_range_new (struct prefix_ipv4 *p)
  57. {
  58.   struct ospf_area_range *range;
  60.   range = XCALLOC (MTYPE_OSPF_AREA_RANGE, sizeof (struct ospf_area_range));
  61.   range->addr = p->prefix;
  62.   range->masklen = p->prefixlen;
  63.   range->cost_config = OSPF_AREA_RANGE_COST_UNSPEC;
  65.   return range;
  66. }
  68. void
  69. ospf_area_range_free (struct ospf_area_range *range)
  70. {
  71.   XFREE (MTYPE_OSPF_AREA_RANGE, range);
  72. }
  74. void
  75. ospf_area_range_add (struct ospf_area *area, struct ospf_area_range *range)
  76. {
  77.   struct route_node *rn;
  78.   struct prefix_ipv4 p;
  80.   p.family = AF_INET;
  81.   p.prefixlen = range->masklen;
  82.   p.prefix = range->addr;
  84.   rn = route_node_get (area->ranges, (struct prefix *)&p);
  85.   if (rn->info)
  86.     route_unlock_node (rn);
  87.   else
  88.     rn->info = range;
  89. }
  91. void
  92. ospf_area_range_delete (struct ospf_area *area, struct ospf_area_range *range)
  93. {
  94.   struct route_node *rn;
  95.   struct prefix_ipv4 p;
  97.   p.family = AF_INET;
  98.   p.prefixlen = range->masklen;
  99.   p.prefix = range->addr;
  101.   rn = route_node_lookup (area->ranges, (struct prefix *)&p);
  102.   if (rn)
  103.     {
  104.       ospf_area_range_free (rn->info);
  105.       rn->info = NULL;
  106.       route_unlock_node (rn);
  107.       route_unlock_node (rn);
  108.     }
  109. }
  111. struct ospf_area_range *
  112. ospf_area_range_lookup (struct ospf_area *area, struct prefix_ipv4 *p)
  113. {
  114.   struct route_node *rn;
  116.   rn = route_node_lookup (area->ranges, (struct prefix *)p);
  117.   if (rn)
  118.     {
  119.       route_unlock_node (rn);
  120.       return rn->info;
  121.     }
  122.   return NULL;
  123. }
  125. struct ospf_area_range *
  126. ospf_area_range_lookup_next (struct ospf_area *area, struct in_addr *range_net,
  127.      int first)
  128. {
  129.   struct route_node *rn;
  130.   struct prefix_ipv4 p;
  131.   struct ospf_area_range *find;
  133.   p.family = AF_INET;
  134.   p.prefixlen = IPV4_MAX_BITLEN;
  135.   p.prefix = *range_net;
  137.   if (first)
  138.     rn = route_top (area->ranges);
  139.   else
  140.     {
  141.       rn = route_node_get (area->ranges, (struct prefix *) &p);
  142.       rn = route_next (rn);
  143.     }
  145.   for (; rn; rn = route_next (rn))
  146.     if (rn->info)
  147.       break;
  149.   if (rn && rn->info)
  150.     {
  151.       find = rn->info;
  152.       *range_net = rn->p.u.prefix4;
  153.       route_unlock_node (rn);
  154.       return find;
  155.     }
  156.   return NULL;
  157. }
  159. struct ospf_area_range *
  160. ospf_area_range_match (struct ospf_area *area, struct prefix_ipv4 *p)
  161. {
  162.   struct route_node *node;
  164.   node = route_node_match (area->ranges, (struct prefix *) p);
  165.   if (node)
  166.     {
  167.       route_unlock_node (node);
  168.       return node->info;
  169.     }
  170.   return NULL;
  171. }
  173. struct ospf_area_range *
  174. ospf_area_range_match_any (struct ospf *ospf, struct prefix_ipv4 *p)
  175. {
  176.   struct ospf_area_range *range;
  177.   listnode node;
  179.   for (node = listhead (ospf->areas); node; nextnode (node))
  180.     if ((range = ospf_area_range_match (node->data, p)))
  181.       return range;
  183.   return NULL;
  184. }
  186. int
  187. ospf_area_range_active (struct ospf_area_range *range)
  188. {
  189.   return range->specifics;
  190. }
  192. int
  193. ospf_area_actively_attached (struct ospf_area *area)
  194. {
  195.   return area->act_ints;
  196. }
  198. int
  199. ospf_area_range_set (struct ospf *ospf, struct in_addr area_id,
  200.      struct prefix_ipv4 *p, int advertise)
  201. {
  202.   struct ospf_area *area;
  203.   struct ospf_area_range *range;
  204.   int ret = OSPF_AREA_ID_FORMAT_ADDRESS;
  206.   area = ospf_area_get (ospf, area_id, ret);
  207.   if (area == NULL)
  208.     return 0;
  210.   range = ospf_area_range_lookup (area, p);
  211.   if (range != NULL)
  212.     {
  213.       if ((CHECK_FLAG (range->flags, OSPF_AREA_RANGE_ADVERTISE)
  214.    && !CHECK_FLAG (advertise, OSPF_AREA_RANGE_ADVERTISE))
  215.   || (!CHECK_FLAG (range->flags, OSPF_AREA_RANGE_ADVERTISE)
  216.       && CHECK_FLAG (advertise, OSPF_AREA_RANGE_ADVERTISE)))
  217. ospf_schedule_abr_task (ospf);
  218.     }
  219.   else
  220.     {
  221.       range = ospf_area_range_new (p);
  222.       ospf_area_range_add (area, range);
  223.       ospf_schedule_abr_task (ospf);
  224.     }
  226.   if (CHECK_FLAG (advertise, OSPF_AREA_RANGE_ADVERTISE))
  227.     SET_FLAG (range->flags, OSPF_AREA_RANGE_ADVERTISE);
  228.   else
  229.     UNSET_FLAG (range->flags, OSPF_AREA_RANGE_ADVERTISE);
  231.   return 1;
  232. }
  234. int
  235. ospf_area_range_cost_set (struct ospf *ospf, struct in_addr area_id,
  236.   struct prefix_ipv4 *p, u_int32_t cost)
  237. {
  238.   struct ospf_area *area;
  239.   struct ospf_area_range *range;
  240.   int ret = OSPF_AREA_ID_FORMAT_ADDRESS;
  242.   area = ospf_area_get (ospf, area_id, ret);
  243.   if (area == NULL)
  244.     return 0;
  246.   range = ospf_area_range_new (p);
  247.   if (range == NULL)
  248.     return 0;
  250.   if (range->cost_config != cost)
  251.     {
  252.       range->cost_config = cost;
  253.       if (ospf_area_range_active (range))
  254. ospf_schedule_abr_task (ospf);
  255.     }
  257.   return 1;
  258. }
  260. int
  261. ospf_area_range_unset (struct ospf *ospf, struct in_addr area_id,
  262.        struct prefix_ipv4 *p)
  263. {
  264.   struct ospf_area *area;
  265.   struct ospf_area_range *range;
  267.   area = ospf_area_lookup_by_area_id (ospf, area_id);
  268.   if (area == NULL)
  269.     return 0;
  271.   range = ospf_area_range_lookup (area, p);
  272.   if (range == NULL)
  273.     return 0;
  275.   if (ospf_area_range_active (range))
  276.     ospf_schedule_abr_task (ospf);
  278.   ospf_area_range_delete (area, range);
  280.   return 1;
  281. }
  283. int
  284. ospf_area_range_substitute_set (struct ospf *ospf, struct in_addr area_id,
  285. struct prefix_ipv4 *p, struct prefix_ipv4 *s)
  286. {
  287.   struct ospf_area *area;
  288.   struct ospf_area_range *range;
  289.   int ret = OSPF_AREA_ID_FORMAT_ADDRESS;
  291.   area = ospf_area_get (ospf, area_id, ret);
  292.   range = ospf_area_range_lookup (area, p);
  294.   if (range != NULL)
  295.     {
  296.       if (!CHECK_FLAG (range->flags, OSPF_AREA_RANGE_ADVERTISE) ||
  297.   !CHECK_FLAG (range->flags, OSPF_AREA_RANGE_SUBSTITUTE))
  298. ospf_schedule_abr_task (ospf);
  299.     }
  300.   else
  301.     {
  302.       range = ospf_area_range_new (p);
  303.       ospf_area_range_add (area, range);
  304.       ospf_schedule_abr_task (ospf);
  305.     }
  307.   SET_FLAG (range->flags, OSPF_AREA_RANGE_ADVERTISE);
  308.   SET_FLAG (range->flags, OSPF_AREA_RANGE_SUBSTITUTE);
  309.   range->subst_addr = s->prefix;
  310.   range->subst_masklen = s->prefixlen;
  312.   return 1;
  313. }
  315. int
  316. ospf_area_range_substitute_unset (struct ospf *ospf, struct in_addr area_id,
  317.   struct prefix_ipv4 *p)
  318. {
  319.   struct ospf_area *area;
  320.   struct ospf_area_range *range;
  322.   area = ospf_area_lookup_by_area_id (ospf, area_id);
  323.   if (area == NULL)
  324.     return 0;
  326.   range = ospf_area_range_lookup (area, p);
  327.   if (range == NULL)
  328.     return 0;
  330.   if (CHECK_FLAG (range->flags, OSPF_AREA_RANGE_SUBSTITUTE))
  331.     if (ospf_area_range_active (range))
  332.       ospf_schedule_abr_task (ospf);
  334.   UNSET_FLAG (range->flags, OSPF_AREA_RANGE_SUBSTITUTE);
  335.   range->subst_addr.s_addr = 0;
  336.   range->subst_masklen = 0;
  338.   return 1;
  339. }
  341. int
  342. ospf_act_bb_connection (struct ospf *ospf)
  343. {
  344.   if (ospf->backbone == NULL)
  345.     return 0;
  347.   return ospf->backbone->full_nbrs;
  348. }
  350. /* Check area border router status. */
  351. void
  352. ospf_check_abr_status (struct ospf *ospf)
  353. {
  354.   struct ospf_area *area;
  355.   listnode node;
  356.   int bb_configured = 0;
  357.   int bb_act_attached = 0;
  358.   int areas_configured = 0;
  359.   int areas_act_attached = 0;
  360.   u_char new_flags = ospf->flags;
  362.   if (IS_DEBUG_OSPF_EVENT)
  363.     zlog_info ("ospf_check_abr_status(): Start");
  365.   for (node = listhead (ospf->areas); node; nextnode (node))
  366.     {
  367.       area = getdata (node);
  369.       if (listcount (area->oiflist)) 
  370. {
  371.   areas_configured++;
  372.   
  373.   if (OSPF_IS_AREA_BACKBONE (area))
  374.       bb_configured = 1;
  375. }
  377.       if (ospf_area_actively_attached (area))
  378. {
  379.   areas_act_attached++;
  380.   
  381.   if (OSPF_IS_AREA_BACKBONE (area))
  382.             bb_act_attached = 1;
  383. }
  384.     }
  386.   if (IS_DEBUG_OSPF_EVENT)
  387.     {
  388.       zlog_info ("ospf_check_abr_status(): looked through areas");
  389.       zlog_info ("ospf_check_abr_status(): bb_configured: %d", bb_configured);
  390.       zlog_info ("ospf_check_abr_status(): bb_act_attached: %d",
  391.  bb_act_attached);
  392.       zlog_info ("ospf_check_abr_status(): areas_configured: %d",
  393.  areas_configured);
  394.       zlog_info ("ospf_check_abr_status(): areas_act_attached: %d",
  395.  areas_act_attached);
  396.     }
  398.   switch (ospf->abr_type)
  399.     {
  400.     case OSPF_ABR_SHORTCUT:
  401.     case OSPF_ABR_STAND:
  402.       if (areas_act_attached > 1)
  403. SET_FLAG (new_flags, OSPF_FLAG_ABR);
  404.       else
  405. UNSET_FLAG (new_flags, OSPF_FLAG_ABR);
  406.       break;
  408.     case OSPF_ABR_IBM:
  409.       if ((areas_act_attached > 1) && bb_configured)
  410. SET_FLAG (new_flags, OSPF_FLAG_ABR);
  411.       else
  412. UNSET_FLAG (new_flags, OSPF_FLAG_ABR);
  413.       break;
  415.     case OSPF_ABR_CISCO:
  416.       if ((areas_configured > 1) && bb_act_attached)
  417. SET_FLAG (new_flags, OSPF_FLAG_ABR);
  418.       else
  419. UNSET_FLAG (new_flags, OSPF_FLAG_ABR);
  420.       break;
  421.     default:
  422.       break;
  423.     }
  425.   if (new_flags != ospf->flags)
  426.     {
  427.       ospf_spf_calculate_schedule (ospf);
  428.       if (IS_DEBUG_OSPF_EVENT)
  429. zlog_info ("ospf_check_abr_status(): new router flags: %x",new_flags);
  430.       ospf->flags = new_flags;
  431.       OSPF_TIMER_ON (ospf->t_router_lsa_update,
  432.      ospf_router_lsa_update_timer, OSPF_LSA_UPDATE_DELAY);
  433.     }
  434. }
  436. void
  437. ospf_abr_update_aggregate (struct ospf_area_range *range,
  438.    struct ospf_route *or)
  439. {
  440.   if (IS_DEBUG_OSPF_EVENT)
  441.     zlog_info ("ospf_abr_update_aggregate(): Start");
  443.   if (range->cost_config != -1)
  444.     {
  445.       if (IS_DEBUG_OSPF_EVENT)
  446. zlog_info ("ospf_abr_update_aggregate(): use configured cost %d",
  447.    range->cost_config);
  449.       range->cost = range->cost_config;
  450.     }
  451.   else
  452.     {
  453.       if (range->specifics == 0)
  454. range->cost = or->cost; /* 1st time get 1st cost */
  456.       if (or->cost > range->cost)
  457. {
  458.   if (IS_DEBUG_OSPF_EVENT)
  459.     zlog_info ("ospf_abr_update_aggregate(): largest cost, update");
  461.   range->cost = or->cost;
  462. }
  463.     }
  465.   range->specifics++;
  466. }
  468. static void
  469. set_metric (struct ospf_lsa *lsa, u_int32_t metric)
  470. {
  471.   struct summary_lsa *header;
  472.   u_char *mp;
  473.   metric = htonl (metric);
  474.   mp = (char *) &metric;
  475.   mp++;
  476.   header = (struct summary_lsa *) lsa->data;
  477.   memcpy(header->metric, mp, 3);
  478. }
  480. #ifdef HAVE_NSSA
  481. int
  482. ospf_abr_check_nssa_range (struct prefix_ipv4 *p, u_int32_t cost,
  483.    struct ospf_area *area)
  484. {
  485.   /* The Type-7 is tested against the aggregated prefix and forwarded
  486.      for lsa installation and flooding */
  487.   return 0;
  488. }
  490. /* ospf_abr_translate_nssa */
  491. int
  492. ospf_abr_translate_nssa (struct ospf_area *area, struct ospf_lsa *lsa)
  493. {
  494.   /* Incoming Type-7 or later aggregated Type-7 
  496.   LSA is skipped if P-bit is off.
  497.   LSA is aggregated if within range.
  499.   The Type-7 is translated, Installed/Approved as a Type-5 into
  500.   global LSDB, then Flooded through AS
  502.   Later, any Unapproved Translated Type-5's are flushed/discarded */
  504.   struct ospf_lsa *dup;
  506.   if (! CHECK_FLAG (lsa->data->options, OSPF_OPTION_NP))
  507.     {
  508.       if (IS_DEBUG_OSPF_NSSA)
  509. zlog_info ("ospf_abr_nssa(): P-bit off, NO Translation");
  510.       return 0; 
  511.     }
  513.   if (IS_DEBUG_OSPF_NSSA)
  514.     zlog_info ("ospf_abr_nssa(): TRANSLATING 7 to 5");
  516.   /* No more P-bit. */
  517.   /* UNSET_FLAG (lsa->data->options, OSPF_OPTION_NP); */
  519.   /* Area where Aggregate testing will be inserted, just like summary
  520.      advertisements */
  521.   /* ospf_abr_check_nssa_range (p_arg, lsa-> cost, lsa -> area); */
  523.   /* Follow thru here means no aggregation */
  524.   dup = ospf_lsa_dup (lsa); /* keep LSDB intact, lock = 1 */
  526.   SET_FLAG (dup->flags, OSPF_LSA_LOCAL_XLT); /* Translated from 7  */
  527.   SET_FLAG (dup->flags, OSPF_LSA_APPROVED); /* So, do not remove it */
  529.   dup->data->type = OSPF_AS_EXTERNAL_LSA;  /* make Type-5 */
  531.   ospf_lsa_checksum (dup->data);
  533.   ospf_lsa_install (area->ospf, NULL, dup);  /* Install this Type-5 into LSDB, Lock = 2. */
  535.   ospf_flood_through_as (area->ospf, NULL, dup); /* flood non-NSSA/STUB areas */
  536.   
  537.   /* This translated Type-5 will go to all non-NSSA areas connected to
  538.      this ABR; The Type-5 could come from any of the NSSA's connected
  539.      to this ABR.  */
  541.   return 0;
  542. }
  544. void
  545. ospf_abr_translate_nssa_range (struct prefix_ipv4 *p, u_int32_t cost)
  546. {
  547.   /* The Type-7 is created from the aggregated prefix and forwarded
  548.      for lsa installation and flooding... to be added... */
  549. }
  550. #endif /* HAVE_NSSA */
  552. void
  553. ospf_abr_announce_network_to_area (struct prefix_ipv4 *p, u_int32_t cost,
  554.    struct ospf_area *area)
  555. {
  556.   struct ospf_lsa *lsa, *old = NULL;
  557.   struct summary_lsa *sl = NULL;
  559.   if (IS_DEBUG_OSPF_EVENT)
  560.     zlog_info ("ospf_abr_announce_network_to_area(): Start");
  562.   old = ospf_lsa_lookup_by_prefix (area->lsdb, OSPF_SUMMARY_LSA, p,
  563.    area->ospf->router_id);
  564.   if (old)
  565.     {
  566.       if (IS_DEBUG_OSPF_EVENT)
  567. zlog_info ("ospf_abr_announce_network_to_area(): old summary found");
  568.       sl = (struct summary_lsa *) old->data;
  570.       if (IS_DEBUG_OSPF_EVENT)
  571. zlog_info ("ospf_abr_announce_network_to_area(): "
  572.    "old metric: %d, new metric: %d",
  573.    GET_METRIC (sl->metric), cost);
  574.     }
  576.   if (old && (GET_METRIC (sl->metric) == cost))
  577.     {
  578.       if (IS_DEBUG_OSPF_EVENT)
  579. zlog_info ("ospf_abr_announce_network_to_area(): "
  580.    "old summary approved"); 
  581.       SET_FLAG (old->flags, OSPF_LSA_APPROVED);
  582.     }
  583.   else
  584.     {
  585.       if (IS_DEBUG_OSPF_EVENT)
  586. zlog_info ("ospf_abr_announce_network_to_area(): "
  587.    "creating new summary");
  588.       if (old)
  589. {
  591.   set_metric (old, cost);
  592.   lsa = ospf_summary_lsa_refresh (area->ospf, old);
  593.   /* This will flood through area. */
  594. }
  595.       else
  596. {
  597.   lsa = ospf_summary_lsa_originate (p, cost, area);
  598.   /* This will flood through area. */
  599. }
  600.       
  602.       SET_FLAG (lsa->flags, OSPF_LSA_APPROVED);
  603.       if (IS_DEBUG_OSPF_EVENT)
  604. zlog_info ("ospf_abr_announce_network_to_area(): "
  605.    "flooding new version of summary");
  607. #ifndef HAVE_NSSA      
  608.       ospf_flood_through_area (area, NULL, lsa);
  609. #endif /* ! HAVE_NSSA */
  610.     }
  612.   if (IS_DEBUG_OSPF_EVENT)
  613.     zlog_info ("ospf_abr_announce_network_to_area(): Stop");
  614. }
  616. int
  617. ospf_abr_nexthops_belong_to_area (struct ospf_route *or,
  618.   struct ospf_area *area)
  619. {
  620.   listnode node;
  622.   for (node = listhead (or->path); node; nextnode (node))
  623.     {
  624.       struct ospf_path *path = node->data;
  625.       struct ospf_interface *oi = path->oi;
  627.       if (oi != NULL)
  628. if (oi->area == area)
  629.   return 1;
  630.     }
  632.   return 0;
  633. }
  635. int
  636. ospf_abr_should_accept (struct prefix *p, struct ospf_area *area)
  637. {
  638.   if (IMPORT_NAME (area))
  639.     {
  640.       if (IMPORT_LIST (area) == NULL)
  641. IMPORT_LIST (area) = access_list_lookup (AFI_IP, IMPORT_NAME (area));
  643.       if (IMPORT_LIST (area))
  644.         if (access_list_apply (IMPORT_LIST (area), p) == FILTER_DENY)
  645.   return 0;
  646.     }
  648.   return 1;
  649. }
  651. int
  652. ospf_abr_plist_in_check (struct ospf_area *area, struct ospf_route *or,
  653.  struct prefix *p)
  654. {
  655.   if (PREFIX_NAME_IN (area))
  656.     {
  657.       if (PREFIX_LIST_IN (area) == NULL)
  658. PREFIX_LIST_IN (area) = prefix_list_lookup (AFI_IP,
  659.     PREFIX_NAME_IN (area));
  660.       if (PREFIX_LIST_IN (area))
  661. if (prefix_list_apply (PREFIX_LIST_IN (area), p) != PREFIX_PERMIT)
  662.   return 0;
  663.     }
  664.   return 1;
  665. }
  667. int
  668. ospf_abr_plist_out_check (struct ospf_area *area, struct ospf_route *or,
  669.   struct prefix *p)
  670. {
  671.   if (PREFIX_NAME_OUT (area))
  672.     {
  673.       if (PREFIX_LIST_OUT (area) == NULL)
  674. PREFIX_LIST_OUT (area) = prefix_list_lookup (AFI_IP,
  675.      PREFIX_NAME_OUT (area));
  676.       if (PREFIX_LIST_OUT (area))
  677. if (prefix_list_apply (PREFIX_LIST_OUT (area), p) != PREFIX_PERMIT)
  678.   return 0;
  679.     }
  680.   return 1;
  681. }
  683. void
  684. ospf_abr_announce_network (struct ospf *ospf,
  685.    struct route_node *n, struct ospf_route *or)
  686. {
  687.   struct ospf_area_range *range;
  688.   struct ospf_area *area, *or_area;
  689.   struct prefix_ipv4 *p;
  690.   listnode node;
  692.   if (IS_DEBUG_OSPF_EVENT)
  693.     zlog_info ("ospf_abr_announce_network(): Start");
  694.   p = (struct prefix_ipv4 *) &n->p;
  696.   or_area = ospf_area_lookup_by_area_id (ospf, or->u.std.area_id); 
  697.   assert (or_area);
  699.   for (node = listhead (ospf->areas); node; nextnode (node))
  700.     {
  701.       area = getdata (node);
  703.       if (IS_DEBUG_OSPF_EVENT)
  704. zlog_info ("ospf_abr_announce_network(): looking at area %s",
  705.    inet_ntoa (area->area_id));
  707.       if (IPV4_ADDR_SAME (&or->u.std.area_id, &area->area_id))
  708. continue;
  710.       if (ospf_abr_nexthops_belong_to_area (or, area))
  711. continue;
  713.       if (!ospf_abr_should_accept (&n->p, area))
  714. {
  715.   if (IS_DEBUG_OSPF_EVENT)
  716.     zlog_info ("ospf_abr_announce_network(): "
  717.        "prefix %s/%d was denied by import-list",
  718.        inet_ntoa (p->prefix), p->prefixlen);
  719.   continue; 
  720. }
  722.       if (!ospf_abr_plist_in_check (area, or, &n->p))
  723. {
  724.   if (IS_DEBUG_OSPF_EVENT)
  725.     zlog_info ("ospf_abr_announce_network(): "
  726.        "prefix %s/%d was denied by prefix-list",
  727.        inet_ntoa (p->prefix), p->prefixlen);
  728.   continue; 
  729. }
  731.       if (area->external_routing != OSPF_AREA_DEFAULT && area->no_summary)
  732. {
  733.   if (IS_DEBUG_OSPF_EVENT)
  734.     zlog_info ("ospf_abr_announce_network(): "
  735.        "area %s is stub and no_summary",
  736.        inet_ntoa (area->area_id));
  737.           continue;
  738. }
  740.       if (or->path_type == OSPF_PATH_INTER_AREA)
  741. {
  742.   if (IS_DEBUG_OSPF_EVENT)
  743.     zlog_info ("ospf_abr_announce_network(): this is "
  744.        "inter-area route to %s/%d",
  745.        inet_ntoa (p->prefix), p->prefixlen);
  747.           if (!OSPF_IS_AREA_BACKBONE (area))
  748.     ospf_abr_announce_network_to_area (p, or->cost, area);
  749. }
  751.       if (or->path_type == OSPF_PATH_INTRA_AREA)
  752. {
  753.   if (IS_DEBUG_OSPF_EVENT)
  754.     zlog_info ("ospf_abr_announce_network(): "
  755.        "this is intra-area route to %s/%d",
  756.        inet_ntoa (p->prefix), p->prefixlen);
  757.   if ((range = ospf_area_range_match (or_area, p)) &&
  758.               !ospf_area_is_transit (area))
  759.     ospf_abr_update_aggregate (range, or);
  760.   else
  761.     ospf_abr_announce_network_to_area (p, or->cost, area);
  762. }
  763.     }
  764. }
  766. int
  767. ospf_abr_should_announce (struct ospf *ospf,
  768.   struct prefix *p, struct ospf_route *or)
  769. {
  770.   struct ospf_area *area;
  772.   area = ospf_area_lookup_by_area_id (ospf, or->u.std.area_id);
  774.   assert (area);
  775.   
  776.   if (EXPORT_NAME (area))
  777.     {
  778.       if (EXPORT_LIST (area) == NULL)
  779. EXPORT_LIST (area) = access_list_lookup (AFI_IP, EXPORT_NAME (area));
  781.       if (EXPORT_LIST (area))
  782.         if (access_list_apply (EXPORT_LIST (area), p) == FILTER_DENY)
  783.   return 0;
  784.     }
  786.   return 1;
  787. }
  789. #ifdef HAVE_NSSA
  790. void
  791. ospf_abr_process_nssa_translates (struct ospf *ospf)
  792. {
  793.   /* Scan through all NSSA_LSDB records for all areas;
  795.   If P-bit is on, translate all Type-7's to 5's and aggregate or
  796.   flood install as approved in Type-5 LSDB with XLATE Flag on
  797.   later, do same for all aggregates...  At end, DISCARD all
  798.   remaining UNAPPROVED Type-5's (Aggregate is for future ) */
  799.   listnode node;
  800.   struct ospf_area *area;
  801.   struct route_node *rn;
  802.   struct ospf_lsa *lsa;
  804.   if (IS_DEBUG_OSPF_NSSA)
  805.     zlog_info ("ospf_abr_process_nssa_translates(): Start");
  807.   for (node = listhead (ospf->areas); node; nextnode (node))
  808.     {
  809.       area = getdata (node);
  811.       if (! area->NSSATranslator)
  812. continue; /* skip if not translator */
  813.       
  814.       if (area->external_routing != OSPF_AREA_NSSA)
  815. continue;  /* skip if not Nssa Area */
  817.       if (IS_DEBUG_OSPF_NSSA)
  818. zlog_info ("ospf_abr_process_nssa_translates(): "
  819.    "looking at area %s", inet_ntoa (area->area_id));
  820.       
  821.       LSDB_LOOP (NSSA_LSDB (area), rn, lsa)
  822. ospf_abr_translate_nssa (area, lsa);
  823.     }
  824.  
  825.   if (IS_DEBUG_OSPF_NSSA)
  826.     zlog_info ("ospf_abr_process_nssa_translates(): Stop");
  828. }
  829. #endif /* HAVE_NSSA */
  831. void
  832. ospf_abr_process_network_rt (struct ospf *ospf,
  833.      struct route_table *rt)
  834. {
  835.   struct ospf_area *area;
  836.   struct ospf_route *or;
  837.   struct route_node *rn;
  839.   if (IS_DEBUG_OSPF_EVENT)
  840.     zlog_info ("ospf_abr_process_network_rt(): Start");
  842.   for (rn = route_top (rt); rn; rn = route_next (rn))
  843.     {
  844.       if ((or = rn->info) == NULL)
  845. continue;
  847.       if (!(area = ospf_area_lookup_by_area_id (ospf, or->u.std.area_id)))
  848. {
  849.   if (IS_DEBUG_OSPF_EVENT)
  850.     zlog_info ("ospf_abr_process_network_rt(): area %s no longer exists",
  851.        inet_ntoa (or->u.std.area_id));
  852.   continue;
  853. }
  855.       if (IS_DEBUG_OSPF_EVENT)
  856. zlog_info ("ospf_abr_process_network_rt(): this is a route to %s/%d",
  857.    inet_ntoa (rn->p.u.prefix4), rn->p.prefixlen);
  858.       if (or->path_type >= OSPF_PATH_TYPE1_EXTERNAL)
  859. {
  860.   if (IS_DEBUG_OSPF_EVENT)
  861.     zlog_info ("ospf_abr_process_network_rt(): "
  862.        "this is an External router, skipping");
  863.   continue;
  864. }
  866.       if (or->cost >= OSPF_LS_INFINITY)
  867. {
  868.   if (IS_DEBUG_OSPF_EVENT)
  869.     zlog_info ("ospf_abr_process_network_rt():"
  870.        " this route's cost is infinity, skipping");
  871.   continue;
  872. }
  874.       if (or->type == OSPF_DESTINATION_DISCARD)
  875. {
  876.   if (IS_DEBUG_OSPF_EVENT)
  877.     zlog_info ("ospf_abr_process_network_rt():"
  878.        " this is a discard entry, skipping");
  879.   continue;
  880. }
  882.       if (or->path_type == OSPF_PATH_INTRA_AREA &&
  883.   !ospf_abr_should_announce (ospf, &rn->p, or))
  884. {
  885.   if (IS_DEBUG_OSPF_EVENT)
  886.     zlog_info("ospf_abr_process_network_rt(): denied by export-list");
  887.   continue;
  888. }
  890.       if (or->path_type == OSPF_PATH_INTRA_AREA &&
  891.   !ospf_abr_plist_out_check (area, or, &rn->p))
  892. {
  893.   if (IS_DEBUG_OSPF_EVENT)
  894.     zlog_info("ospf_abr_process_network_rt(): denied by prefix-list");
  895.   continue;
  896. }
  898.       if ((or->path_type == OSPF_PATH_INTER_AREA) &&
  899.           !OSPF_IS_AREA_ID_BACKBONE (or->u.std.area_id))
  900. {
  901.   if (IS_DEBUG_OSPF_EVENT)
  902.     zlog_info ("ospf_abr_process_network_rt():"
  903.        " this is route is not backbone one, skipping");
  904.   continue;
  905. }
  908.       if ((ospf->abr_type == OSPF_ABR_CISCO) ||
  909.           (ospf->abr_type == OSPF_ABR_IBM))
  911. if (!ospf_act_bb_connection (ospf) &&
  912.     or->path_type != OSPF_PATH_INTRA_AREA)
  913.   {
  914.     if (IS_DEBUG_OSPF_EVENT)
  915.       zlog_info ("ospf_abr_process_network_rt(): ALT ABR: "
  916.  "No BB connection, skip not intra-area routes");
  917.     continue;
  918.   }
  920.       if (IS_DEBUG_OSPF_EVENT)
  921. zlog_info ("ospf_abr_process_network_rt(): announcing");
  922.       ospf_abr_announce_network (ospf, rn, or);
  923.     }
  925.   if (IS_DEBUG_OSPF_EVENT)
  926.     zlog_info ("ospf_abr_process_network_rt(): Stop");
  927. }
  929. void
  930. ospf_abr_announce_rtr_to_area (struct prefix_ipv4 *p, u_int32_t cost,
  931.        struct ospf_area *area)
  932. {
  933.   struct ospf_lsa *lsa, *old = NULL;
  934.   struct summary_lsa *slsa = NULL;
  936.   if (IS_DEBUG_OSPF_EVENT)
  937.     zlog_info ("ospf_abr_announce_rtr_to_area(): Start");
  939.   old = ospf_lsa_lookup_by_prefix (area->lsdb, OSPF_ASBR_SUMMARY_LSA,
  940.    p, area->ospf->router_id);
  941.   if (old)
  942.     {
  943.       if (IS_DEBUG_OSPF_EVENT)
  944. zlog_info ("ospf_abr_announce_rtr_to_area(): old summary found");
  945.       slsa = (struct summary_lsa *) old->data;
  947.       if (IS_DEBUG_OSPF_EVENT)
  948. zlog_info ("ospf_abr_announce_network_to_area(): "
  949.    "old metric: %d, new metric: %d",
  950.    GET_METRIC (slsa->metric), cost);
  951.     }
  953.   if (old && (GET_METRIC (slsa->metric) == cost))
  954.     {
  955.       if (IS_DEBUG_OSPF_EVENT)
  956. zlog_info ("ospf_abr_announce_rtr_to_area(): old summary approved");
  957.       SET_FLAG (old->flags, OSPF_LSA_APPROVED);
  958.     }
  959.   else
  960.     {
  961.       if (IS_DEBUG_OSPF_EVENT)
  962. zlog_info ("ospf_abr_announce_rtr_to_area(): 2.2");
  963.        
  964.       if (old) 
  965. { 
  966.   set_metric (old, cost);
  967.   lsa = ospf_summary_asbr_lsa_refresh (area->ospf, old);
  968. }
  969.       else
  970. lsa = ospf_summary_asbr_lsa_originate (p, cost, area);
  972.       if (IS_DEBUG_OSPF_EVENT)
  973. zlog_info ("ospf_abr_announce_rtr_to_area(): "
  974.    "flooding new version of summary");
  975.       /*
  976. zlog_info ("ospf_abr_announce_rtr_to_area(): creating new summary");
  977. lsa = ospf_summary_asbr_lsa (p, cost, area, old); */
  979.       SET_FLAG (lsa->flags, OSPF_LSA_APPROVED);
  980.       /* ospf_flood_through_area (area, NULL, lsa);*/
  981.     }
  983.   if (IS_DEBUG_OSPF_EVENT)
  984.     zlog_info ("ospf_abr_announce_rtr_to_area(): Stop");
  985. }
  988. void
  989. ospf_abr_announce_rtr (struct ospf *ospf,
  990.        struct prefix_ipv4 *p, struct ospf_route *or)
  991. {
  992.   listnode node;
  993.   struct ospf_area *area;
  995.   if (IS_DEBUG_OSPF_EVENT)
  996.     zlog_info ("ospf_abr_announce_rtr(): Start");
  998.   for (node = listhead (ospf->areas); node; nextnode (node))
  999.     {
  1000.       area = getdata (node);
  1002.       if (IS_DEBUG_OSPF_EVENT)
  1003. zlog_info ("ospf_abr_announce_rtr(): looking at area %s",
  1004.    inet_ntoa (area->area_id));
  1006.       if (IPV4_ADDR_SAME (&or->u.std.area_id, &area->area_id))
  1007. continue;
  1009.       if (ospf_abr_nexthops_belong_to_area (or, area))
  1010. continue;
  1012.       if (area->external_routing != OSPF_AREA_DEFAULT)
  1013. {
  1014.   if (IS_DEBUG_OSPF_EVENT)
  1015.     zlog_info ("ospf_abr_announce_network(): "
  1016.        "area %s doesn't support external routing",
  1017.        inet_ntoa(area->area_id));
  1018.           continue;
  1019. }
  1021.       if (or->path_type == OSPF_PATH_INTER_AREA)
  1022. {
  1023.   if (IS_DEBUG_OSPF_EVENT)
  1024.     zlog_info ("ospf_abr_announce_rtr(): "
  1025.        "this is inter-area route to %s", inet_ntoa (p->prefix));
  1026.           if (!OSPF_IS_AREA_BACKBONE (area))
  1027.     ospf_abr_announce_rtr_to_area (p, or->cost, area);
  1028. }
  1030.       if (or->path_type == OSPF_PATH_INTRA_AREA)
  1031. {
  1032.   if (IS_DEBUG_OSPF_EVENT)
  1033.     zlog_info ("ospf_abr_announce_rtr(): "
  1034.        "this is intra-area route to %s", inet_ntoa (p->prefix));
  1035.           ospf_abr_announce_rtr_to_area (p, or->cost, area);
  1036. }
  1037.     }
  1039.   if (IS_DEBUG_OSPF_EVENT)
  1040.     zlog_info ("ospf_abr_announce_rtr(): Stop");
  1041. }
  1043. void
  1044. ospf_abr_process_router_rt (struct ospf *ospf, struct route_table *rt)
  1045. {
  1046.   struct ospf_route *or;
  1047.   struct route_node *rn;
  1048.   struct list *l;
  1050.   if (IS_DEBUG_OSPF_EVENT)
  1051.     zlog_info ("ospf_abr_process_router_rt(): Start");
  1053.   for (rn = route_top (rt); rn; rn = route_next (rn))
  1054.     {
  1055.       listnode node;
  1056.       char flag = 0;
  1057.       struct ospf_route *best = NULL;
  1059.       if (rn->info == NULL)
  1060. continue;
  1062.       l = rn->info;
  1064.       if (IS_DEBUG_OSPF_EVENT)
  1065. zlog_info ("ospf_abr_process_router_rt(): this is a route to %s",
  1066.    inet_ntoa (rn->p.u.prefix4));
  1068.       for (node = listhead (l); node; nextnode (node))
  1069. {
  1070.   or = getdata (node);
  1071.   if (or == NULL)
  1072.     continue;
  1074.   if (!ospf_area_lookup_by_area_id (ospf, or->u.std.area_id))
  1075.     {
  1076.       if (IS_DEBUG_OSPF_EVENT)
  1077. zlog_info ("ospf_abr_process_router_rt(): area %s no longer exists",
  1078.    inet_ntoa (or->u.std.area_id));
  1079.       continue;
  1080.     }
  1083.   if (!CHECK_FLAG (or->u.std.flags, ROUTER_LSA_EXTERNAL))
  1084.     {
  1085.       if (IS_DEBUG_OSPF_EVENT)
  1086. zlog_info ("ospf_abr_process_router_rt(): "
  1087.    "This is not an ASBR, skipping");
  1088.       continue;
  1089.     }
  1091.   if (!flag)
  1092.     {
  1093.       best = ospf_find_asbr_route (ospf, rt,
  1094.    (struct prefix_ipv4 *) &rn->p);
  1095.       flag = 1;
  1096.     }
  1097.   
  1098.   if (best == NULL)
  1099.     continue;
  1101.   if (or != best)
  1102.     {
  1103.       if (IS_DEBUG_OSPF_EVENT)
  1104. zlog_info ("ospf_abr_process_router_rt(): "
  1105.    "This route is not the best among possible, skipping");
  1106.       continue;
  1107.     }
  1109.   if (or->path_type == OSPF_PATH_INTER_AREA &&
  1110.       !OSPF_IS_AREA_ID_BACKBONE (or->u.std.area_id))
  1111.     {
  1112.       if (IS_DEBUG_OSPF_EVENT)
  1113. zlog_info ("ospf_abr_process_router_rt(): "
  1114.    "This route is not a backbone one, skipping");
  1115.       continue;
  1116.     }
  1118.   if (or->cost >= OSPF_LS_INFINITY)
  1119.     {
  1120.       if (IS_DEBUG_OSPF_EVENT)
  1121. zlog_info ("ospf_abr_process_router_rt(): "
  1122.    "This route has LS_INFINITY metric, skipping");
  1123.       continue;
  1124.     }
  1126.   if (ospf->abr_type == OSPF_ABR_CISCO
  1127.       || ospf->abr_type == OSPF_ABR_IBM)
  1128.     if (!ospf_act_bb_connection (ospf)
  1129. && or->path_type != OSPF_PATH_INTRA_AREA)
  1130.       {
  1131. if (IS_DEBUG_OSPF_EVENT)
  1132.   zlog_info("ospf_abr_process_network_rt(): ALT ABR: "
  1133.     "No BB connection, skip not intra-area routes");
  1134. continue;
  1135.       }
  1137.   ospf_abr_announce_rtr (ospf, (struct prefix_ipv4 *) &rn->p, or);
  1139. }
  1141.     }
  1143.   if (IS_DEBUG_OSPF_EVENT)
  1144.     zlog_info ("ospf_abr_process_router_rt(): Stop");
  1145. }
  1147. #ifdef HAVE_NSSA
  1148. void
  1149. ospf_abr_unapprove_translates (struct ospf *ospf) /* For NSSA Translations */
  1150. {
  1151.   struct ospf_lsa *lsa;
  1152.   struct route_node *rn;
  1154.   if (IS_DEBUG_OSPF_NSSA)
  1155.     zlog_info ("ospf_abr_unapprove_translates(): Start");
  1157.   /* NSSA Translator is not checked, because it may have gone away,
  1158.      and we would want to flush any residuals anyway */
  1160.   LSDB_LOOP (EXTERNAL_LSDB (ospf), rn, lsa)
  1161.     if (CHECK_FLAG (lsa->flags, OSPF_LSA_LOCAL_XLT))
  1162.       UNSET_FLAG (lsa->flags, OSPF_LSA_APPROVED);
  1164.   if (IS_DEBUG_OSPF_NSSA)
  1165.     zlog_info ("ospf_abr_unapprove_translates(): Stop");
  1166. }
  1167. #endif /* HAVE_NSSA */
  1169. void
  1170. ospf_abr_unapprove_summaries (struct ospf *ospf)
  1171. {
  1172.   listnode node;
  1173.   struct ospf_area *area;
  1174.   struct route_node *rn;
  1175.   struct ospf_lsa *lsa;
  1177.   if (IS_DEBUG_OSPF_EVENT)
  1178.     zlog_info ("ospf_abr_unapprove_summaries(): Start");
  1180.   for (node = listhead (ospf->areas); node; nextnode (node))
  1181.     {
  1182.       area = getdata (node);
  1183.       LSDB_LOOP (SUMMARY_LSDB (area), rn, lsa)
  1184. if (ospf_lsa_is_self_originated (ospf, lsa))
  1185.   UNSET_FLAG (lsa->flags, OSPF_LSA_APPROVED);
  1187.       LSDB_LOOP (ASBR_SUMMARY_LSDB (area), rn, lsa)
  1188. if (ospf_lsa_is_self_originated (ospf, lsa))
  1189.   UNSET_FLAG (lsa->flags, OSPF_LSA_APPROVED);
  1190.     }
  1192.   if (IS_DEBUG_OSPF_EVENT)
  1193.     zlog_info ("ospf_abr_unapprove_summaries(): Stop");
  1194. }
  1196. void
  1197. ospf_abr_prepare_aggregates (struct ospf *ospf)
  1198. {
  1199.   listnode node;
  1200.   struct route_node *rn;
  1201.   struct ospf_area_range *range;
  1203.   if (IS_DEBUG_OSPF_EVENT)
  1204.     zlog_info ("ospf_abr_prepare_aggregates(): Start");
  1206.   for (node = listhead (ospf->areas); node; nextnode (node))
  1207.     {
  1208.       struct ospf_area *area = getdata (node);
  1210.       for (rn = route_top (area->ranges); rn; rn = route_next (rn))
  1211. if ((range = rn->info) != NULL)
  1212.   {
  1213.     range->cost = 0;
  1214.     range->specifics = 0;
  1215.   }
  1216.     }
  1218.   if (IS_DEBUG_OSPF_EVENT)
  1219.     zlog_info ("ospf_abr_prepare_aggregates(): Stop");
  1220. }
  1222. void
  1223. ospf_abr_announce_aggregates (struct ospf *ospf)
  1224. {
  1225.   struct ospf_area *area, *ar;
  1226.   struct ospf_area_range *range;
  1227.   struct route_node *rn;
  1228.   struct prefix_ipv4 p;
  1229.   listnode node, n;
  1231.   if (IS_DEBUG_OSPF_EVENT)
  1232.     zlog_info ("ospf_abr_announce_aggregates(): Start");
  1234.   for (node = listhead (ospf->areas); node; nextnode (node))
  1235.     {
  1236.       area = getdata (node);
  1238.       if (IS_DEBUG_OSPF_EVENT)
  1239. zlog_info ("ospf_abr_announce_aggregates(): looking at area %s",
  1240.    inet_ntoa (area->area_id));
  1242.       for (rn = route_top (area->ranges); rn; rn = route_next (rn))
  1243. if ((range =  rn->info))
  1244.   {
  1245.     if (!CHECK_FLAG (range->flags, OSPF_AREA_RANGE_ADVERTISE))
  1246.       {
  1247. if (IS_DEBUG_OSPF_EVENT)
  1248.   zlog_info ("ospf_abr_announce_aggregates():"
  1249.      " discarding suppress-ranges");
  1250. continue;
  1251.       }
  1253.     p.family = AF_INET;
  1254.     p.prefix = range->addr;
  1255.     p.prefixlen = range->masklen;
  1257.     if (IS_DEBUG_OSPF_EVENT)
  1258.       zlog_info ("ospf_abr_announce_aggregates():"
  1259.  " this is range: %s/%d",
  1260.  inet_ntoa (p.prefix), p.prefixlen);
  1262.     if (CHECK_FLAG (range->flags, OSPF_AREA_RANGE_SUBSTITUTE))
  1263.       {
  1264. p.family = AF_INET;
  1265. p.prefix = range->subst_addr;
  1266. p.prefixlen = range->subst_masklen;
  1267.       }
  1269.     if (range->specifics)
  1270.       {
  1271. if (IS_DEBUG_OSPF_EVENT)
  1272.   zlog_info ("ospf_abr_announce_aggregates(): active range");
  1274. for (n = listhead (ospf->areas); n; nextnode (n))
  1275.   {
  1276.     ar = getdata (n);
  1277.     if (ar == area)
  1278.       continue;
  1280.     /* We do not check nexthops here, because
  1281.        intra-area routes can be associated with
  1282.        one area only */
  1284.     /* backbone routes are not summarized
  1285.        when announced into transit areas */
  1287.     if (ospf_area_is_transit (ar) &&
  1288. OSPF_IS_AREA_BACKBONE (area))
  1289.       {
  1290. if (IS_DEBUG_OSPF_EVENT)
  1291.   zlog_info ("ospf_abr_announce_aggregates(): Skipping "
  1292.      "announcement of BB aggregate into"
  1293.      " a transit area");
  1294. continue; 
  1295.       }
  1296.     ospf_abr_announce_network_to_area (&p, range->cost, ar);
  1297.   }
  1298.       }
  1299.   }
  1300.     }
  1302.   if (IS_DEBUG_OSPF_EVENT)
  1303.     zlog_info ("ospf_abr_announce_aggregates(): Stop");
  1304. }
  1306. #ifdef HAVE_NSSA
  1307. void
  1308. ospf_abr_send_nssa_aggregates (struct ospf *ospf) /* temporarily turned off */
  1309. {
  1310.   listnode node; /*, n; */
  1311.   struct ospf_area *area; /*, *ar; */
  1312.   struct route_node *rn;
  1313.   struct ospf_area_range *range;
  1314.   struct prefix_ipv4 p;
  1316.   if (IS_DEBUG_OSPF_NSSA)
  1317.     zlog_info ("ospf_abr_send_nssa_aggregates(): Start");
  1319.   for (node = listhead (ospf->areas); node; nextnode (node))
  1320.     {
  1321.       area = getdata (node);
  1323.       if (! area->NSSATranslator)
  1324. continue;
  1326.       if (IS_DEBUG_OSPF_NSSA)
  1327. zlog_info ("ospf_abr_send_nssa_aggregates(): looking at area %s",
  1328.    inet_ntoa (area->area_id));
  1330.       for (rn = route_top (area->ranges); rn; rn = route_next (rn))
  1331. {
  1332.           if (rn->info == NULL)
  1333.     continue;
  1335.   range = rn->info;
  1337.           if (!CHECK_FLAG (range->flags, OSPF_AREA_RANGE_ADVERTISE))
  1338.     {
  1339.       if (IS_DEBUG_OSPF_NSSA)
  1340. zlog_info ("ospf_abr_send_nssa_aggregates():"
  1341.    " discarding suppress-ranges");
  1342.       continue;
  1343.     }
  1345.           p.family = AF_INET;
  1346.           p.prefix = range->addr;
  1347.           p.prefixlen = range->masklen;
  1349.   if (IS_DEBUG_OSPF_NSSA)
  1350.     zlog_info ("ospf_abr_send_nssa_aggregates():"
  1351.        " this is range: %s/%d",
  1352.        inet_ntoa (p.prefix), p.prefixlen);
  1354.           if (CHECK_FLAG (range->flags, OSPF_AREA_RANGE_SUBSTITUTE))
  1355.     {
  1356.       p.family = AF_INET;
  1357.       p.prefix = range->subst_addr;
  1358.       p.prefixlen = range->subst_masklen;
  1359.     }
  1361.           if (range->specifics)
  1362.     {
  1363.       if (IS_DEBUG_OSPF_NSSA)
  1364. zlog_info ("ospf_abr_send_nssa_aggregates(): active range");
  1366.       /* Fetch LSA-Type-7 from aggregate prefix, and then
  1367.                  translate, Install (as Type-5), Approve, and Flood */
  1368.       ospf_abr_translate_nssa_range (&p, range->cost);
  1369.     } /* if (range->specifics)*/
  1370. } /* all area ranges*/
  1371.     } /* all areas */
  1373.   if (IS_DEBUG_OSPF_NSSA)
  1374.     zlog_info ("ospf_abr_send_nssa_aggregates(): Stop");
  1375. }
  1377. void
  1378. ospf_abr_announce_nssa_defaults (struct ospf *ospf) /* By ABR-Translator */
  1379. {
  1380.   listnode node;
  1381.   struct ospf_area *area;
  1382.   struct prefix_ipv4 p;
  1384.   if (! IS_OSPF_ABR (ospf))
  1385.     return;
  1387.   if (IS_DEBUG_OSPF_NSSA)
  1388.     zlog_info ("ospf_abr_announce_stub_defaults(): Start");
  1390.   p.family = AF_INET;
  1391.   p.prefix.s_addr = OSPF_DEFAULT_DESTINATION;
  1392.   p.prefixlen = 0;
  1394.   for (node = listhead (ospf->areas); node; nextnode (node))
  1395.     {
  1396.       area = getdata (node);
  1397.       if (IS_DEBUG_OSPF_NSSA)
  1398. zlog_info ("ospf_abr_announce_nssa_defaults(): looking at area %s",
  1399.    inet_ntoa (area->area_id));
  1401.       if (area->external_routing != OSPF_AREA_NSSA)
  1402. continue;
  1404.       if (OSPF_IS_AREA_BACKBONE (area))
  1405. continue; /* Sanity Check */
  1407.       /* if (!TranslatorRole continue V 1.0 look for "always" conf */
  1408.       if (area->NSSATranslator)
  1409. {
  1410.   if (IS_DEBUG_OSPF_NSSA)
  1411.     zlog_info ("ospf_abr_announce_nssa_defaults(): "
  1412.        "announcing 0.0.0.0/0 to this nssa");
  1413.   /* ospf_abr_announce_nssa_asbr_to_as (&p, area->default_cost, area); */
  1414. }
  1415.     }
  1416. }
  1417. #endif /* HAVE_NSSA */
  1419. void
  1420. ospf_abr_announce_stub_defaults (struct ospf *ospf)
  1421. {
  1422.   listnode node;
  1423.   struct ospf_area *area;
  1424.   struct prefix_ipv4 p;
  1426.   if (! IS_OSPF_ABR (ospf))
  1427.     return;
  1429.   if (IS_DEBUG_OSPF_EVENT)
  1430.     zlog_info ("ospf_abr_announce_stub_defaults(): Start");
  1432.   p.family = AF_INET;
  1433.   p.prefix.s_addr = OSPF_DEFAULT_DESTINATION;
  1434.   p.prefixlen = 0;
  1436.   for (node = listhead (ospf->areas); node; nextnode (node))
  1437.     {
  1438.       area = getdata (node);
  1439.       if (IS_DEBUG_OSPF_EVENT)
  1440. zlog_info ("ospf_abr_announce_stub_defaults(): looking at area %s",
  1441.    inet_ntoa (area->area_id));
  1443. #ifdef HAVE_NSSA
  1444.       if (area->external_routing != OSPF_AREA_STUB)
  1445. #else /* ! HAVE_NSSA */
  1446. if (area->external_routing == OSPF_AREA_DEFAULT)
  1447. #endif /* HAVE_NSSA */
  1448.   continue;
  1450.       if (OSPF_IS_AREA_BACKBONE (area))
  1451. continue; /* Sanity Check */
  1453.       if (IS_DEBUG_OSPF_EVENT)
  1454. zlog_info ("ospf_abr_announce_stub_defaults(): "
  1455.    "announcing 0.0.0.0/0 to this area");
  1456.       ospf_abr_announce_network_to_area (&p, area->default_cost, area);
  1457.     }
  1459.   if (IS_DEBUG_OSPF_EVENT)
  1460.     zlog_info ("ospf_abr_announce_stub_defaults(): Stop");
  1461. }
  1463. #ifdef HAVE_NSSA
  1464. int
  1465. ospf_abr_remove_unapproved_translates_apply (struct ospf *ospf,
  1466.      struct ospf_lsa *lsa)
  1467. {
  1468.   if (CHECK_FLAG (lsa->flags, OSPF_LSA_LOCAL_XLT)
  1469.       && ! CHECK_FLAG (lsa->flags, OSPF_LSA_APPROVED))
  1470.     {
  1471.       zlog_info ("ospf_abr_remove_unapproved_translates(): "
  1472.  "removing unapproved translates, ID: %s",
  1473.  inet_ntoa (lsa->data->id));
  1475.       /* FLUSH THROUGHOUT AS */
  1476.       ospf_lsa_flush_as (ospf, lsa);
  1478.       /* DISCARD from LSDB  */
  1479.     }
  1480.   return 0;
  1481. }
  1483. void
  1484. ospf_abr_remove_unapproved_translates (struct ospf *ospf)
  1485. {
  1486.   struct route_node *rn;
  1487.   struct ospf_lsa *lsa;
  1489.   /* All AREA PROCESS should have APPROVED necessary LSAs */
  1490.   /* Remove any left over and not APPROVED */
  1491.   if (IS_DEBUG_OSPF_NSSA)
  1492.     zlog_info ("ospf_abr_remove_unapproved_translates(): Start");
  1494.   LSDB_LOOP (EXTERNAL_LSDB (ospf), rn, lsa)
  1495.     ospf_abr_remove_unapproved_translates_apply (ospf, lsa);
  1496.  
  1497.   if (IS_DEBUG_OSPF_NSSA)
  1498.     zlog_info ("ospf_abr_remove_unapproved_translates(): Stop");
  1499. }
  1500. #endif /* HAVE_NSSA */
  1502. void
  1503. ospf_abr_remove_unapproved_summaries (struct ospf *ospf)
  1504. {
  1505.   listnode node;
  1506.   struct ospf_area *area;
  1507.   struct route_node *rn;
  1508.   struct ospf_lsa *lsa;
  1510.   if (IS_DEBUG_OSPF_EVENT)
  1511.     zlog_info ("ospf_abr_remove_unapproved_summaries(): Start");
  1513.   for (node = listhead (ospf->areas); node; nextnode (node))
  1514.     {
  1515.       area = getdata (node);
  1517.       if (IS_DEBUG_OSPF_EVENT)
  1518. zlog_info ("ospf_abr_remove_unapproved_summaries(): "
  1519.    "looking at area %s", inet_ntoa (area->area_id));
  1521.       LSDB_LOOP (SUMMARY_LSDB (area), rn, lsa)
  1522. if (ospf_lsa_is_self_originated (ospf, lsa))
  1523.   if (!CHECK_FLAG (lsa->flags, OSPF_LSA_APPROVED))
  1524.     ospf_lsa_flush_area (lsa, area);
  1526.       LSDB_LOOP (ASBR_SUMMARY_LSDB (area), rn, lsa)
  1527. if (ospf_lsa_is_self_originated (ospf, lsa))
  1528.   if (!CHECK_FLAG (lsa->flags, OSPF_LSA_APPROVED))
  1529.     ospf_lsa_flush_area (lsa, area);
  1530.     }
  1531.  
  1532.   if (IS_DEBUG_OSPF_EVENT)
  1533.     zlog_info ("ospf_abr_remove_unapproved_summaries(): Stop");
  1534. }
  1536. void
  1537. ospf_abr_manage_discard_routes (struct ospf *ospf)
  1538. {
  1539.   listnode node;
  1540.   struct route_node *rn;
  1541.   struct ospf_area *area;
  1542.   struct ospf_area_range *range;
  1544.   for (node = listhead (ospf->areas); node; nextnode (node))
  1545.     if ((area = node->data) != NULL)
  1546.       for (rn = route_top (area->ranges); rn; rn = route_next (rn))
  1547. if ((range = rn->info) != NULL)
  1548.   if (CHECK_FLAG (range->flags, OSPF_AREA_RANGE_ADVERTISE))
  1549.     {
  1550.       if (range->specifics)
  1551. ospf_add_discard_route (ospf->new_table, area,
  1552. (struct prefix_ipv4 *) &rn->p);
  1553.       else
  1554. ospf_delete_discard_route ((struct prefix_ipv4 *) &rn->p);
  1555.     }
  1556. }
  1558. #ifdef HAVE_NSSA
  1559. /* This is the function taking care about ABR NSSA, i.e.  NSSA
  1560.    Translator, -LSA aggregation and flooding. For all NSSAs
  1562.    Any SELF-AS-LSA is in the Type-5 LSDB and Type-7 LSDB.  These LSA's
  1563.    are refreshed from the Type-5 LSDB, installed into the Type-7 LSDB
  1564.    with the P-bit set.
  1566.    Any received Type-5s are legal for an ABR, else illegal for IR.
  1567.    Received Type-7s are installed, by area, with incoming P-bit.  They
  1568.    are flooded; if the Elected NSSA Translator, then P-bit off.
  1570.    Additionally, this ABR will place "translated type-7's" into the
  1571.    Type-5 LSDB in order to keep track of APPROVAL or not.
  1573.    It will scan through every area, looking for Type-7 LSAs with P-Bit
  1574.    SET. The Type-7's are either AS-FLOODED & 5-INSTALLED or
  1575.    AGGREGATED.  Later, the AGGREGATED LSAs are AS-FLOODED &
  1576.    5-INSTALLED.
  1578.    5-INSTALLED is into the Type-5 LSDB; Any UNAPPROVED Type-5 LSAs
  1579.    left over are FLUSHED and DISCARDED.
  1581.    For External Calculations, any NSSA areas use the Type-7 AREA-LSDB,
  1582.    any ABR-non-NSSA areas use the Type-5 GLOBAL-LSDB. */
  1584. void
  1585. ospf_abr_nssa_task (struct ospf *ospf) /* called only if any_nssa */
  1586. {
  1587.   if (IS_DEBUG_OSPF_NSSA)
  1588.     zlog_info ("Check for NSSA-ABR Tasks():");
  1590.   if (! IS_OSPF_ABR (ospf))
  1591.     return;
  1593.   if (! ospf->anyNSSA)
  1594.     return;
  1596.   /* Each area must confirm TranslatorRole */
  1597.   if (IS_DEBUG_OSPF_NSSA)
  1598.     zlog_info ("ospf_abr_nssa_task(): Start");
  1600.   /* For all Global Entries flagged "local-translate", unset APPROVED */
  1601.   if (IS_DEBUG_OSPF_NSSA)
  1602.     zlog_info ("ospf_abr_nssa_task(): unapprove translates");
  1604.   ospf_abr_unapprove_translates (ospf);
  1606.   /* RESET all Ranges in every Area, same as summaries */
  1607.   if (IS_DEBUG_OSPF_NSSA)
  1608.     zlog_info ("ospf_abr_nssa_task(): NSSA initialize aggregates");
  1610.   /*    ospf_abr_prepare_aggregates ();  TURNED OFF just for now */
  1612.   /* For all NSSAs, Type-7s, translate to 5's, INSTALL/FLOOD, or
  1613.      Aggregate as Type-7 */
  1614.   /* Install or Approve in Type-5 Global LSDB */
  1615.   if (IS_DEBUG_OSPF_NSSA)
  1616.     zlog_info ("ospf_abr_nssa_task(): process translates");
  1618.   ospf_abr_process_nssa_translates (ospf);
  1620.   /* Translate/Send any "ranged" aggregates, and also 5-Install and
  1621.      Approve */
  1622.   /* Scan Type-7's for aggregates, translate to Type-5's,
  1623.      Install/Flood/Approve */
  1624.   if (IS_DEBUG_OSPF_NSSA)
  1625.     zlog_info("ospf_abr_nssa_task(): send NSSA aggregates");
  1626.   /*       ospf_abr_send_nssa_aggregates ();  TURNED OFF FOR NOW */
  1628.   /* Send any NSSA defaults as Type-5 */
  1629.   if (IS_DEBUG_OSPF_NSSA)
  1630.     zlog_info ("ospf_abr_nssa_task(): announce nssa defaults");
  1631.   ospf_abr_announce_nssa_defaults (ospf);
  1632.    
  1633.   /* Flush any unapproved previous translates from Global Data Base */
  1634.   if (IS_DEBUG_OSPF_NSSA)
  1635.     zlog_info ("ospf_abr_nssa_task(): remove unapproved translates");
  1636.   ospf_abr_remove_unapproved_translates (ospf);
  1638.   ospf_abr_manage_discard_routes (ospf); /* same as normal...discard */
  1640.   if (IS_DEBUG_OSPF_NSSA)
  1641.     zlog_info ("ospf_abr_nssa_task(): Stop");
  1642. }
  1643. #endif /* HAVE_NSSA */
  1645. /* This is the function taking care about ABR stuff, i.e.
  1646.    summary-LSA origination and flooding. */
  1647. void
  1648. ospf_abr_task (struct ospf *ospf)
  1649. {
  1650.   if (IS_DEBUG_OSPF_EVENT)
  1651.     zlog_info ("ospf_abr_task(): Start");
  1653.   if (ospf->new_table == NULL || ospf->new_rtrs == NULL)
  1654.     {
  1655.       if (IS_DEBUG_OSPF_EVENT)
  1656. zlog_info ("ospf_abr_task(): Routing tables are not yet ready");
  1657.       return;
  1658.     }
  1660.   if (IS_DEBUG_OSPF_EVENT)
  1661.     zlog_info ("ospf_abr_task(): unapprove summaries");
  1662.   ospf_abr_unapprove_summaries (ospf);
  1664.   if (IS_DEBUG_OSPF_EVENT)
  1665.     zlog_info ("ospf_abr_task(): prepare aggregates");
  1666.   ospf_abr_prepare_aggregates (ospf);
  1668.   if (IS_OSPF_ABR (ospf))
  1669.     {
  1670.       if (IS_DEBUG_OSPF_EVENT)
  1671. zlog_info ("ospf_abr_task(): process network RT");
  1672.       ospf_abr_process_network_rt (ospf, ospf->new_table);
  1674.       if (IS_DEBUG_OSPF_EVENT)
  1675. zlog_info ("ospf_abr_task(): process router RT");
  1676.       ospf_abr_process_router_rt (ospf, ospf->new_rtrs);
  1678.       if (IS_DEBUG_OSPF_EVENT)
  1679. zlog_info ("ospf_abr_task(): announce aggregates");
  1680.       ospf_abr_announce_aggregates (ospf);
  1682.       if (IS_DEBUG_OSPF_EVENT)
  1683. zlog_info ("ospf_abr_task(): announce stub defaults");
  1684.       ospf_abr_announce_stub_defaults (ospf);
  1685.     }
  1687.   if (IS_DEBUG_OSPF_EVENT)
  1688.     zlog_info ("ospf_abr_task(): remove unapproved summaries");
  1689.   ospf_abr_remove_unapproved_summaries (ospf);
  1691.   ospf_abr_manage_discard_routes (ospf);
  1693. #ifdef HAVE_NSSA
  1694.   ospf_abr_nssa_task (ospf); /* if nssa-abr, then scan Type-7 LSDB */
  1695. #endif /* HAVE_NSSA */
  1697.   if (IS_DEBUG_OSPF_EVENT)
  1698.     zlog_info ("ospf_abr_task(): Stop");
  1699. }
  1702. int
  1703. ospf_abr_task_timer (struct thread *thread)
  1704. {
  1705.   struct ospf *ospf = THREAD_ARG (thread);
  1707.   ospf->t_abr_task = 0;
  1709.   if (IS_DEBUG_OSPF_EVENT)
  1710.     zlog_info ("Running ABR task on timer");
  1712.   ospf_check_abr_status (ospf);
  1714.   ospf_abr_task (ospf);
  1716.   return 0;
  1717. }
  1719. void
  1720. ospf_schedule_abr_task (struct ospf *ospf)
  1721. {
  1722.   if (IS_DEBUG_OSPF_EVENT)
  1723.     zlog_info ("Scheduling ABR task");
  1725.   if (ospf->t_abr_task == NULL)
  1726.     ospf->t_abr_task = thread_add_timer (master, ospf_abr_task_timer,
  1727.  ospf, OSPF_ABR_TASK_DELAY);
  1728. }