ospf6d/ospf6_abr.c

   1 /*
   2  * Area Border Router function.
   3  * Copyright (C) 2004 Yasuhiro Ohara
   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
  19  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20  * Boston, MA 02111-1307, USA.
  21  */
  22
  23 #include <zebra.h>
  24
  25 #include "log.h"
  26 #include "prefix.h"
  27 #include "table.h"
  28 #include "vty.h"
  29 #include "linklist.h"
  30 #include "command.h"
  31 #include "thread.h"
  32 #include "plist.h"
  33 #include "filter.h"
  34
  35 #include "ospf6_proto.h"
  36 #include "ospf6_route.h"
  37 #include "ospf6_lsa.h"
  38 #include "ospf6_route.h"
  39 #include "ospf6_lsdb.h"
  40 #include "ospf6_message.h"
  41
  42 #include "ospf6_top.h"
  43 #include "ospf6_area.h"
  44 #include "ospf6_interface.h"
  45 #include "ospf6_neighbor.h"
  46
  47 #include "ospf6_flood.h"
  48 #include "ospf6_intra.h"
  49 #include "ospf6_abr.h"
  50 #include "ospf6d.h"
  51
  52 unsigned char conf_debug_ospf6_abr;
  53
  54 int
  55 ospf6_is_router_abr (struct ospf6 *o)
  56 {
  57   struct listnode *node;
  58   struct ospf6_area *oa;
  59   int area_count = 0;
  60
  61   for (ALL_LIST_ELEMENTS_RO (o->area_list, node, oa))
  62     if (IS_AREA_ENABLED (oa))
  63       area_count++;
  64
  65   if (area_count > 1)
  66     return 1;
  67   return 0;
  68 }
  69
  70 void
  71 ospf6_abr_enable_area (struct ospf6_area *area)
  72 {
  73   struct ospf6_area *oa;
  74   struct ospf6_route *ro;
  75   struct listnode *node, *nnode;
  76
  77   for (ALL_LIST_ELEMENTS (area->ospf6->area_list, node, nnode, oa))
  78     {
  79       /* update B bit for each area */
  80       OSPF6_ROUTER_LSA_SCHEDULE (oa);
  81
  82       /* install other area's configured address range */
  83       if (oa != area)
  84         {
  85           for (ro = ospf6_route_head (oa->range_table); ro;
  86                ro = ospf6_route_next (ro))
  87             {
  88               if (CHECK_FLAG (ro->flag, OSPF6_ROUTE_ACTIVE_SUMMARY))
  89                 ospf6_abr_originate_summary_to_area (ro, area);
  90             }
  91         }
  92     }
  93
  94   /* install calculated routes to border routers */
  95   for (ro = ospf6_route_head (area->ospf6->brouter_table); ro;
  96        ro = ospf6_route_next (ro))
  97     ospf6_abr_originate_summary_to_area (ro, area);
  98
  99   /* install calculated routes to network (may be rejected by ranges) */
 100   for (ro = ospf6_route_head (area->ospf6->route_table); ro;
 101        ro = ospf6_route_next (ro))
 102     ospf6_abr_originate_summary_to_area (ro, area);
 103 }
 104
 105 void
 106 ospf6_abr_disable_area (struct ospf6_area *area)
 107 {
 108   struct ospf6_area *oa;
 109   struct ospf6_route *ro, *nro;
 110   struct ospf6_lsa *old;
 111   struct listnode *node, *nnode;
 112
 113   /* Withdraw all summary prefixes previously originated */
 114   for (ro = ospf6_route_head (area->summary_prefix); ro; ro = nro)
 115     {
 116       nro = ospf6_route_next (ro);
 117       old = ospf6_lsdb_lookup (ro->path.origin.type, ro->path.origin.id,
 118                                area->ospf6->router_id, area->lsdb);
 119       if (old)
 120         ospf6_lsa_purge (old);
 121       ospf6_route_remove (ro, area->summary_prefix);
 122     }
 123
 124   /* Withdraw all summary router-routes previously originated */
 125   for (ro = ospf6_route_head (area->summary_router); ro; ro = nro)
 126     {
 127       nro = ospf6_route_next (ro);
 128       old = ospf6_lsdb_lookup (ro->path.origin.type, ro->path.origin.id,
 129                                area->ospf6->router_id, area->lsdb);
 130       if (old)
 131         ospf6_lsa_purge (old);
 132       ospf6_route_remove (ro, area->summary_router);
 133     }
 134
 135   /* Schedule Router-LSA for each area (ABR status may change) */
 136   for (ALL_LIST_ELEMENTS (area->ospf6->area_list, node, nnode, oa))
 137     /* update B bit for each area */
 138     OSPF6_ROUTER_LSA_SCHEDULE (oa);
 139 }
 140
 141 /* RFC 2328 12.4.3. Summary-LSAs */
 142 void
 143 ospf6_abr_originate_summary_to_area (struct ospf6_route *route,
 144                                      struct ospf6_area *area)
 145 {
 146   struct ospf6_lsa *lsa, *old = NULL;
 147   struct ospf6_interface *oi;
 148   struct ospf6_route *summary, *range = NULL;
 149   struct ospf6_area *route_area;
 150   char buffer[OSPF6_MAX_LSASIZE];
 151   struct ospf6_lsa_header *lsa_header;
 152   caddr_t p;
 153   struct ospf6_inter_prefix_lsa *prefix_lsa;
 154   struct ospf6_inter_router_lsa *router_lsa;
 155   struct ospf6_route_table *summary_table = NULL;
 156   u_int16_t type;
 157   char buf[64];
 158   int is_debug = 0;
 159
 160   if (route->type == OSPF6_DEST_TYPE_ROUTER)
 161     {
 162       if (IS_OSPF6_DEBUG_ABR || IS_OSPF6_DEBUG_ORIGINATE (INTER_ROUTER))
 163         {
 164           is_debug++;
 165           inet_ntop (AF_INET, &(ADV_ROUTER_IN_PREFIX (&route->prefix)),
 166                      buf, sizeof (buf));
 167           zlog_debug ("Originating summary in area %s for ASBR %s",
 168                       area->name, buf);
 169         }
 170       summary_table = area->summary_router;
 171     }
 172   else
 173     {
 174       if (IS_OSPF6_DEBUG_ABR || IS_OSPF6_DEBUG_ORIGINATE (INTER_PREFIX))
 175         {
 176           is_debug++;
 177           prefix2str (&route->prefix, buf, sizeof (buf));
 178           zlog_debug ("Originating summary in area %s for %s",
 179                       area->name, buf);
 180         }
 181       summary_table = area->summary_prefix;
 182     }
 183
 184   summary = ospf6_route_lookup (&route->prefix, summary_table);
 185   if (summary)
 186     old = ospf6_lsdb_lookup (summary->path.origin.type,
 187                              summary->path.origin.id,
 188                              area->ospf6->router_id, area->lsdb);
 189
 190   /* if this route has just removed, remove corresponding LSA */
 191   if (CHECK_FLAG (route->flag, OSPF6_ROUTE_REMOVE))
 192     {
 193       if (is_debug)
 194         zlog_debug ("The route has just removed, purge previous LSA");
 195       if (summary)
 196         ospf6_route_remove (summary, summary_table);
 197       if (old)
 198         ospf6_lsa_purge (old);
 199       return;
 200     }
 201
 202   /* Only destination type network, range or ASBR are considered */
 203   if (route->type != OSPF6_DEST_TYPE_NETWORK &&
 204       route->type != OSPF6_DEST_TYPE_RANGE &&
 205       (route->type != OSPF6_DEST_TYPE_ROUTER ||
 206        ! CHECK_FLAG (route->path.router_bits, OSPF6_ROUTER_BIT_E)))
 207     {
 208       if (is_debug)
 209         zlog_debug ("Route type is none of network, range nor ASBR, withdraw");
 210       if (summary)
 211         ospf6_route_remove (summary, summary_table);
 212       if (old)
 213         ospf6_lsa_purge (old);
 214       return;
 215     }
 216
 217   /* AS External routes are never considered */
 218   if (route->path.type == OSPF6_PATH_TYPE_EXTERNAL1 ||
 219       route->path.type == OSPF6_PATH_TYPE_EXTERNAL2)
 220     {
 221       if (is_debug)
 222         zlog_debug ("Path type is external, withdraw");
 223       if (summary)
 224         ospf6_route_remove (summary, summary_table);
 225       if (old)
 226         ospf6_lsa_purge (old);
 227       return;
 228     }
 229
 230   /* do not generate if the path's area is the same as target area */
 231   if (route->path.area_id == area->area_id)
 232     {
 233       if (is_debug)
 234         zlog_debug ("The route is in the area itself, ignore");
 235       if (summary)
 236         ospf6_route_remove (summary, summary_table);
 237       if (old)
 238         ospf6_lsa_purge (old);
 239       return;
 240     }
 241
 242   /* do not generate if the nexthops belongs to the target area */
 243   oi = ospf6_interface_lookup_by_ifindex (route->nexthop[0].ifindex);
 244   if (oi && oi->area && oi->area == area)
 245     {
 246       if (is_debug)
 247         zlog_debug ("The route's nexthop is in the same area, ignore");
 248       if (summary)
 249         ospf6_route_remove (summary, summary_table);
 250       if (old)
 251         ospf6_lsa_purge (old);
 252       return;
 253     }
 254
 255   /* do not generate if the route cost is greater or equal to LSInfinity */
 256   if (route->path.cost >= OSPF_LS_INFINITY)
 257     {
 258       if (is_debug)
 259         zlog_debug ("The cost exceeds LSInfinity, withdraw");
 260       if (summary)
 261         ospf6_route_remove (summary, summary_table);
 262       if (old)
 263         ospf6_lsa_purge (old);
 264       return;
 265     }
 266
 267   /* if this is a route to ASBR */
 268   if (route->type == OSPF6_DEST_TYPE_ROUTER)
 269     {
 270       /* Only the prefered best path is considered */
 271       if (! CHECK_FLAG (route->flag, OSPF6_ROUTE_BEST))
 272         {
 273           if (is_debug)
 274             zlog_debug ("This is the secondary path to the ASBR, ignore");
 275           if (summary)
 276             ospf6_route_remove (summary, summary_table);
 277           if (old)
 278             ospf6_lsa_purge (old);
 279           return;
 280         }
 281
 282       /* Do not generate if the area is stub */
 283       /* XXX */
 284     }
 285
 286   /* if this is an intra-area route, this may be suppressed by aggregation */
 287   if (route->type == OSPF6_DEST_TYPE_NETWORK &&
 288       route->path.type == OSPF6_PATH_TYPE_INTRA)
 289     {
 290       /* search for configured address range for the route's area */
 291       route_area = ospf6_area_lookup (route->path.area_id, area->ospf6);
 292       assert (route_area);
 293       range = ospf6_route_lookup_bestmatch (&route->prefix,
 294                                             route_area->range_table);
 295
 296       /* ranges are ignored when originate backbone routes to transit area.
 297          Otherwise, if ranges are configured, the route is suppressed. */
 298       if (range && ! CHECK_FLAG (range->flag, OSPF6_ROUTE_REMOVE) &&
 299           (route->path.area_id != OSPF_AREA_BACKBONE ||
 300            ! IS_AREA_TRANSIT (area)))
 301         {
 302           if (is_debug)
 303             {
 304               prefix2str (&range->prefix, buf, sizeof (buf));
 305               zlog_debug ("Suppressed by range %s of area %s",
 306                          buf, route_area->name);
 307             }
 308
 309           if (summary)
 310             ospf6_route_remove (summary, summary_table);
 311           if (old)
 312             ospf6_lsa_purge (old);
 313           return;
 314         }
 315     }
 316
 317   /* If this is a configured address range */
 318   if (route->type == OSPF6_DEST_TYPE_RANGE)
 319     {
 320       /* If DoNotAdvertise is set */
 321       if (CHECK_FLAG (route->flag, OSPF6_ROUTE_DO_NOT_ADVERTISE))
 322         {
 323           if (is_debug)
 324             zlog_debug ("This is the range with DoNotAdvertise set. ignore");
 325           if (summary)
 326             ospf6_route_remove (summary, summary_table);
 327           if (old)
 328             ospf6_lsa_purge (old);
 329           return;
 330         }
 331
 332       /* Whether the route have active longer prefix */
 333       if (! CHECK_FLAG (route->flag, OSPF6_ROUTE_ACTIVE_SUMMARY))
 334         {
 335           if (is_debug)
 336             zlog_debug ("The range is not active. withdraw");
 337           if (summary)
 338             ospf6_route_remove (summary, summary_table);
 339           if (old)
 340             ospf6_lsa_purge (old);
 341           return;
 342         }
 343     }
 344
 345   /* Check export list */
 346   if (EXPORT_NAME (area))
 347     {
 348       if (EXPORT_LIST (area) == NULL)
 349         EXPORT_LIST (area) =
 350           access_list_lookup (AFI_IP6, EXPORT_NAME (area));
 351
 352       if (EXPORT_LIST (area))
 353         if (access_list_apply (EXPORT_LIST (area),
 354                                &route->prefix) == FILTER_DENY)
 355           {
 356             if (is_debug)
 357               {
 358                 inet_ntop (AF_INET, &(ADV_ROUTER_IN_PREFIX (&route->prefix)),
 359                            buf, sizeof(buf));
 360                 zlog_debug ("prefix %s was denied by export list", buf);
 361               }
 362             return;
 363           }
 364     }
 365
 366   /* Check filter-list */
 367   if (PREFIX_NAME_OUT (area))
 368     {
 369       if (PREFIX_LIST_OUT (area) == NULL)
 370         PREFIX_LIST_OUT (area) =
 371           prefix_list_lookup(AFI_IP6, PREFIX_NAME_OUT (area));
 372
 373       if (PREFIX_LIST_OUT (area))
 374          if (prefix_list_apply (PREFIX_LIST_OUT (area),
 375                                 &route->prefix) != PREFIX_PERMIT)
 376            {
 377              if (is_debug)
 378                {
 379                  inet_ntop (AF_INET, &(ADV_ROUTER_IN_PREFIX (&route->prefix)),
 380                             buf, sizeof (buf));
 381                  zlog_debug ("prefix %s was denied by filter-list out", buf);
 382                }
 383              return;
 384            }
 385     }
 386
 387   /* the route is going to be originated. store it in area's summary_table */
 388   if (summary == NULL)
 389     {
 390       summary = ospf6_route_copy (route);
 391       if (route->type == OSPF6_DEST_TYPE_NETWORK ||
 392           route->type == OSPF6_DEST_TYPE_RANGE)
 393         summary->path.origin.type = htons (OSPF6_LSTYPE_INTER_PREFIX);
 394       else
 395         summary->path.origin.type = htons (OSPF6_LSTYPE_INTER_ROUTER);
 396       summary->path.origin.adv_router = area->ospf6->router_id;
 397       summary->path.origin.id =
 398         ospf6_new_ls_id (summary->path.origin.type,
 399                          summary->path.origin.adv_router, area->lsdb);
 400       summary = ospf6_route_add (summary, summary_table);
 401     }
 402   else
 403     {
 404       summary->type = route->type;
 405       quagga_gettime (QUAGGA_CLK_MONOTONIC, &summary->changed);
 406     }
 407
 408   summary->path.router_bits = route->path.router_bits;
 409   summary->path.options[0] = route->path.options[0];
 410   summary->path.options[1] = route->path.options[1];
 411   summary->path.options[2] = route->path.options[2];
 412   summary->path.prefix_options = route->path.prefix_options;
 413   summary->path.area_id = area->area_id;
 414   summary->path.type = OSPF6_PATH_TYPE_INTER;
 415   summary->path.cost = route->path.cost;
 416   summary->nexthop[0] = route->nexthop[0];
 417
 418   /* prepare buffer */
 419   memset (buffer, 0, sizeof (buffer));
 420   lsa_header = (struct ospf6_lsa_header *) buffer;
 421
 422   if (route->type == OSPF6_DEST_TYPE_ROUTER)
 423     {
 424       router_lsa = (struct ospf6_inter_router_lsa *)
 425         ((caddr_t) lsa_header + sizeof (struct ospf6_lsa_header));
 426       p = (caddr_t) router_lsa + sizeof (struct ospf6_inter_router_lsa);
 427
 428       /* Fill Inter-Area-Router-LSA */
 429       router_lsa->options[0] = route->path.options[0];
 430       router_lsa->options[1] = route->path.options[1];
 431       router_lsa->options[2] = route->path.options[2];
 432       OSPF6_ABR_SUMMARY_METRIC_SET (router_lsa, route->path.cost);
 433       router_lsa->router_id = ADV_ROUTER_IN_PREFIX (&route->prefix);
 434       type = htons (OSPF6_LSTYPE_INTER_ROUTER);
 435     }
 436   else
 437     {
 438       prefix_lsa = (struct ospf6_inter_prefix_lsa *)
 439         ((caddr_t) lsa_header + sizeof (struct ospf6_lsa_header));
 440       p = (caddr_t) prefix_lsa + sizeof (struct ospf6_inter_prefix_lsa);
 441
 442       /* Fill Inter-Area-Prefix-LSA */
 443       OSPF6_ABR_SUMMARY_METRIC_SET (prefix_lsa, route->path.cost);
 444       prefix_lsa->prefix.prefix_length = route->prefix.prefixlen;
 445       prefix_lsa->prefix.prefix_options = route->path.prefix_options;
 446
 447       /* set Prefix */
 448       memcpy (p, &route->prefix.u.prefix6,
 449               OSPF6_PREFIX_SPACE (route->prefix.prefixlen));
 450       ospf6_prefix_apply_mask (&prefix_lsa->prefix);
 451       p += OSPF6_PREFIX_SPACE (route->prefix.prefixlen);
 452       type = htons (OSPF6_LSTYPE_INTER_PREFIX);
 453     }
 454
 455   /* Fill LSA Header */
 456   lsa_header->age = 0;
 457   lsa_header->type = type;
 458   lsa_header->id = summary->path.origin.id;
 459   lsa_header->adv_router = area->ospf6->router_id;
 460   lsa_header->seqnum =
 461     ospf6_new_ls_seqnum (lsa_header->type, lsa_header->id,
 462                          lsa_header->adv_router, area->lsdb);
 463   lsa_header->length = htons ((caddr_t) p - (caddr_t) lsa_header);
 464
 465   /* LSA checksum */
 466   ospf6_lsa_checksum (lsa_header);
 467
 468   /* create LSA */
 469   lsa = ospf6_lsa_create (lsa_header);
 470
 471   /* Originate */
 472   ospf6_lsa_originate_area (lsa, area);
 473 }
 474
 475 static void
 476 ospf6_abr_range_update (struct ospf6_route *range)
 477 {
 478   u_int32_t cost = 0;
 479   struct ospf6_route *ro;
 480
 481   assert (range->type == OSPF6_DEST_TYPE_RANGE);
 482
 483   /* update range's cost and active flag */
 484   for (ro = ospf6_route_match_head (&range->prefix, ospf6->route_table);
 485        ro; ro = ospf6_route_match_next (&range->prefix, ro))
 486     {
 487       if (ro->path.area_id == range->path.area_id &&
 488           ! CHECK_FLAG (ro->flag, OSPF6_ROUTE_REMOVE))
 489         cost = MAX (cost, ro->path.cost);
 490     }
 491
 492   if (range->path.cost != cost)
 493     {
 494       range->path.cost = cost;
 495
 496       if (range->path.cost)
 497         SET_FLAG (range->flag, OSPF6_ROUTE_ACTIVE_SUMMARY);
 498       else
 499         UNSET_FLAG (range->flag, OSPF6_ROUTE_ACTIVE_SUMMARY);
 500
 501       ospf6_abr_originate_summary (range);
 502     }
 503 }
 504
 505 void
 506 ospf6_abr_originate_summary (struct ospf6_route *route)
 507 {
 508   struct listnode *node, *nnode;
 509   struct ospf6_area *oa;
 510   struct ospf6_route *range = NULL;
 511
 512   if (route->type == OSPF6_DEST_TYPE_NETWORK)
 513     {
 514       oa = ospf6_area_lookup (route->path.area_id, ospf6);
 515       range = ospf6_route_lookup_bestmatch (&route->prefix, oa->range_table);
 516       if (range)
 517         ospf6_abr_range_update (range);
 518     }
 519
 520   for (ALL_LIST_ELEMENTS (ospf6->area_list, node, nnode, oa))
 521     ospf6_abr_originate_summary_to_area (route, oa);
 522 }
 523
 524 /* RFC 2328 16.2. Calculating the inter-area routes */
 525 void
 526 ospf6_abr_examin_summary (struct ospf6_lsa *lsa, struct ospf6_area *oa)
 527 {
 528   struct prefix prefix, abr_prefix;
 529   struct ospf6_route_table *table = NULL;
 530   struct ospf6_route *range, *route, *old = NULL;
 531   struct ospf6_route *abr_entry;
 532   u_char type = 0;
 533   char options[3] = {0, 0, 0};
 534   u_int8_t prefix_options = 0;
 535   u_int32_t cost = 0;
 536   u_char router_bits = 0;
 537   int i;
 538   char buf[64];
 539   int is_debug = 0;
 540   struct ospf6_inter_prefix_lsa *prefix_lsa = NULL;
 541   struct ospf6_inter_router_lsa *router_lsa = NULL;
 542
 543   memset (&prefix, 0, sizeof (prefix));
 544
 545   if (lsa->header->type == htons (OSPF6_LSTYPE_INTER_PREFIX))
 546     {
 547       if (IS_OSPF6_DEBUG_EXAMIN (INTER_PREFIX))
 548         {
 549           is_debug++;
 550           zlog_debug ("Examin %s in area %s", lsa->name, oa->name);
 551         }
 552
 553       prefix_lsa = (struct ospf6_inter_prefix_lsa *)
 554         OSPF6_LSA_HEADER_END (lsa->header);
 555       prefix.family = AF_INET6;
 556       prefix.prefixlen = prefix_lsa->prefix.prefix_length;
 557       ospf6_prefix_in6_addr (&prefix.u.prefix6, &prefix_lsa->prefix);
 558       if (is_debug)
 559         prefix2str (&prefix, buf, sizeof (buf));
 560       table = oa->ospf6->route_table;
 561       type = OSPF6_DEST_TYPE_NETWORK;
 562       prefix_options = prefix_lsa->prefix.prefix_options;
 563       cost = OSPF6_ABR_SUMMARY_METRIC (prefix_lsa);
 564     }
 565   else if (lsa->header->type == htons (OSPF6_LSTYPE_INTER_ROUTER))
 566     {
 567       if (IS_OSPF6_DEBUG_EXAMIN (INTER_ROUTER))
 568         {
 569           is_debug++;
 570           zlog_debug ("Examin %s in area %s", lsa->name, oa->name);
 571         }
 572
 573       router_lsa = (struct ospf6_inter_router_lsa *)
 574         OSPF6_LSA_HEADER_END (lsa->header);
 575       ospf6_linkstate_prefix (router_lsa->router_id, htonl (0), &prefix);
 576       if (is_debug)
 577         inet_ntop (AF_INET, &router_lsa->router_id, buf, sizeof (buf));
 578       table = oa->ospf6->brouter_table;
 579       type = OSPF6_DEST_TYPE_ROUTER;
 580       options[0] = router_lsa->options[0];
 581       options[1] = router_lsa->options[1];
 582       options[2] = router_lsa->options[2];
 583       cost = OSPF6_ABR_SUMMARY_METRIC (router_lsa);
 584       SET_FLAG (router_bits, OSPF6_ROUTER_BIT_E);
 585     }
 586   else
 587     assert (0);
 588
 589   /* Find existing route */
 590   route = ospf6_route_lookup (&prefix, table);
 591   if (route)
 592     ospf6_route_lock (route);
 593   while (route && ospf6_route_is_prefix (&prefix, route))
 594     {
 595       if (route->path.area_id == oa->area_id &&
 596           route->path.origin.type == lsa->header->type &&
 597           route->path.origin.id == lsa->header->id &&
 598           route->path.origin.adv_router == lsa->header->adv_router &&
 599           ! CHECK_FLAG (route->flag, OSPF6_ROUTE_WAS_REMOVED))
 600         old = route;
 601       route = ospf6_route_next (route);
 602     }
 603
 604   /* (1) if cost == LSInfinity or if the LSA is MaxAge */
 605   if (cost == OSPF_LS_INFINITY)
 606     {
 607       if (is_debug)
 608         zlog_debug ("cost is LS_INFINITY, ignore");
 609       if (old)
 610         ospf6_route_remove (old, table);
 611       return;
 612     }
 613   if (OSPF6_LSA_IS_MAXAGE (lsa))
 614     {
 615       if (is_debug)
 616         zlog_debug ("LSA is MaxAge, ignore");
 617       if (old)
 618         ospf6_route_remove (old, table);
 619       return;
 620     }
 621
 622   /* (2) if the LSA is self-originated, ignore */
 623   if (lsa->header->adv_router == oa->ospf6->router_id)
 624     {
 625       if (is_debug)
 626         zlog_debug ("LSA is self-originated, ignore");
 627       if (old)
 628         ospf6_route_remove (old, table);
 629       return;
 630     }
 631
 632   /* (3) if the prefix is equal to an active configured address range */
 633   /*     or if the NU bit is set in the prefix */
 634   if (lsa->header->type == htons (OSPF6_LSTYPE_INTER_PREFIX))
 635     {
 636       range = ospf6_route_lookup (&prefix, oa->range_table);
 637       if (range)
 638         {
 639           if (is_debug)
 640             zlog_debug ("Prefix is equal to address range, ignore");
 641           if (old)
 642             ospf6_route_remove (old, table);
 643           return;
 644         }
 645
 646       if (CHECK_FLAG (prefix_lsa->prefix.prefix_options,
 647                       OSPF6_PREFIX_OPTION_NU) ||
 648           CHECK_FLAG (prefix_lsa->prefix.prefix_options,
 649                       OSPF6_PREFIX_OPTION_LA))
 650         {
 651           if (is_debug)
 652             zlog_debug ("Prefix has NU/LA bit set, ignore");
 653           if (old)
 654             ospf6_route_remove (old, table);
 655           return;
 656         }
 657     }
 658
 659   if (lsa->header->type == htons (OSPF6_LSTYPE_INTER_ROUTER))
 660     {
 661       /* To pass test suites */
 662       if (! OSPF6_OPT_ISSET (router_lsa->options, OSPF6_OPT_R) ||
 663           ! OSPF6_OPT_ISSET (router_lsa->options, OSPF6_OPT_V6))
 664         {
 665           if (is_debug)
 666             zlog_debug ("Prefix has NU/LA bit set, ignore");
 667           if (old)
 668             ospf6_route_remove (old, table);
 669           return;
 670         }
 671     }
 672
 673   /* (4) if the routing table entry for the ABR does not exist */
 674   ospf6_linkstate_prefix (lsa->header->adv_router, htonl (0), &abr_prefix);
 675   abr_entry = ospf6_route_lookup (&abr_prefix, oa->ospf6->brouter_table);
 676   if (abr_entry == NULL || abr_entry->path.area_id != oa->area_id ||
 677       CHECK_FLAG (abr_entry->flag, OSPF6_ROUTE_REMOVE) ||
 678       ! CHECK_FLAG (abr_entry->path.router_bits, OSPF6_ROUTER_BIT_B))
 679     {
 680       if (is_debug)
 681         zlog_debug ("ABR router entry does not exist, ignore");
 682       if (old)
 683         ospf6_route_remove (old, table);
 684       return;
 685     }
 686
 687   /* Check import list */
 688   if (IMPORT_NAME (oa))
 689     {
 690       if (IMPORT_LIST (oa) == NULL)
 691         IMPORT_LIST (oa) = access_list_lookup (AFI_IP6, IMPORT_NAME (oa));
 692
 693       if (IMPORT_LIST (oa))
 694         if (access_list_apply (IMPORT_LIST (oa), &prefix) == FILTER_DENY)
 695           {
 696             if (is_debug)
 697               zlog_debug ("Prefix was denied by import-list");
 698             if (old)
 699               ospf6_route_remove (old, table);
 700             return;
 701           }
 702     }
 703
 704   /* Check input prefix-list */
 705   if (PREFIX_NAME_IN (oa))
 706     {
 707       if (PREFIX_LIST_IN (oa) == NULL)
 708         PREFIX_LIST_IN (oa) = prefix_list_lookup (AFI_IP6, PREFIX_NAME_IN (oa));
 709
 710       if (PREFIX_LIST_IN (oa))
 711         if (prefix_list_apply (PREFIX_LIST_IN (oa), &prefix) != PREFIX_PERMIT)
 712           {
 713             if (is_debug)
 714               zlog_debug ("Prefix was denied by prefix-list");
 715             if (old)
 716               ospf6_route_remove (old, table);
 717             return;
 718           }
 719     }
 720
 721   /* (5),(6),(7) the path preference is handled by the sorting
 722      in the routing table. Always install the path by substituting
 723      old route (if any). */
 724   if (old)
 725     route = ospf6_route_copy (old);
 726   else
 727     route = ospf6_route_create ();
 728
 729   route->type = type;
 730   route->prefix = prefix;
 731   route->path.origin.type = lsa->header->type;
 732   route->path.origin.id = lsa->header->id;
 733   route->path.origin.adv_router = lsa->header->adv_router;
 734   route->path.router_bits = router_bits;
 735   route->path.options[0] = options[0];
 736   route->path.options[1] = options[1];
 737   route->path.options[2] = options[2];
 738   route->path.prefix_options = prefix_options;
 739   route->path.area_id = oa->area_id;
 740   route->path.type = OSPF6_PATH_TYPE_INTER;
 741   route->path.cost = abr_entry->path.cost + cost;
 742   for (i = 0; i < OSPF6_MULTI_PATH_LIMIT; i++)
 743     route->nexthop[i] = abr_entry->nexthop[i];
 744
 745   if (is_debug)
 746     zlog_debug ("Install route: %s", buf);
 747   ospf6_route_add (route, table);
 748 }
 749
 750 void
 751 ospf6_abr_examin_brouter (u_int32_t router_id)
 752 {
 753   struct ospf6_lsa *lsa;
 754   struct ospf6_area *oa;
 755   struct listnode *node, *nnode;
 756   u_int16_t type;
 757
 758   for (ALL_LIST_ELEMENTS (ospf6->area_list, node, nnode, oa))
 759     {
 760       type = htons (OSPF6_LSTYPE_INTER_ROUTER);
 761       for (lsa = ospf6_lsdb_type_router_head (type, router_id, oa->lsdb); lsa;
 762            lsa = ospf6_lsdb_type_router_next (type, router_id, lsa))
 763         ospf6_abr_examin_summary (lsa, oa);
 764
 765       type = htons (OSPF6_LSTYPE_INTER_PREFIX);
 766       for (lsa = ospf6_lsdb_type_router_head (type, router_id, oa->lsdb); lsa;
 767            lsa = ospf6_lsdb_type_router_next (type, router_id, lsa))
 768         ospf6_abr_examin_summary (lsa, oa);
 769     }
 770 }
 771
 772 void
 773 ospf6_abr_reimport (struct ospf6_area *oa)
 774 {
 775   struct ospf6_lsa *lsa;
 776   u_int16_t type;
 777
 778   type = htons (OSPF6_LSTYPE_INTER_ROUTER);
 779   for (lsa = ospf6_lsdb_type_head (type, oa->lsdb); lsa;
 780        lsa = ospf6_lsdb_type_next (type, lsa))
 781     ospf6_abr_examin_summary (lsa, oa);
 782
 783   type = htons (OSPF6_LSTYPE_INTER_PREFIX);
 784   for (lsa = ospf6_lsdb_type_head (type, oa->lsdb); lsa;
 785        lsa = ospf6_lsdb_type_next (type, lsa))
 786     ospf6_abr_examin_summary (lsa, oa);
 787 }
 788
 789
 790
 791 /* Display functions */
 792 static char *
 793 ospf6_inter_area_prefix_lsa_get_prefix_str (struct ospf6_lsa *lsa, char *buf,
 794                                             int buflen, int pos)
 795 {
 796   struct ospf6_inter_prefix_lsa *prefix_lsa;
 797   struct in6_addr in6;
 798
 799   if (lsa != NULL)
 800     {
 801       prefix_lsa = (struct ospf6_inter_prefix_lsa *)
 802         OSPF6_LSA_HEADER_END (lsa->header);
 803
 804       ospf6_prefix_in6_addr (&in6, &prefix_lsa->prefix);
 805       if (buf)
 806         {
 807           inet_ntop (AF_INET6, &in6, buf, buflen);
 808           sprintf (&buf[strlen(buf)], "/%d", prefix_lsa->prefix.prefix_length);
 809         }
 810     }
 811
 812   return (buf);
 813 }
 814
 815 static int
 816 ospf6_inter_area_prefix_lsa_show (struct vty *vty, struct ospf6_lsa *lsa)
 817 {
 818   struct ospf6_inter_prefix_lsa *prefix_lsa;
 819   char buf[INET6_ADDRSTRLEN];
 820
 821   prefix_lsa = (struct ospf6_inter_prefix_lsa *)
 822     OSPF6_LSA_HEADER_END (lsa->header);
 823
 824   vty_out (vty, "     Metric: %lu%s",
 825            (u_long) OSPF6_ABR_SUMMARY_METRIC (prefix_lsa), VNL);
 826
 827   ospf6_prefix_options_printbuf (prefix_lsa->prefix.prefix_options,
 828                                  buf, sizeof (buf));
 829   vty_out (vty, "     Prefix Options: %s%s", buf, VNL);
 830
 831   vty_out (vty, "     Prefix: %s%s",
 832            ospf6_inter_area_prefix_lsa_get_prefix_str (lsa, buf, sizeof(buf),
 833                                                        0), VNL);
 834
 835   return 0;
 836 }
 837
 838 static char *
 839 ospf6_inter_area_router_lsa_get_prefix_str (struct ospf6_lsa *lsa, char *buf,
 840                                             int buflen, int pos)
 841 {
 842   struct ospf6_inter_router_lsa *router_lsa;
 843
 844   if (lsa != NULL)
 845     {
 846       router_lsa = (struct ospf6_inter_router_lsa *)
 847         OSPF6_LSA_HEADER_END (lsa->header);
 848
 849
 850       if (buf)
 851         inet_ntop (AF_INET, &router_lsa->router_id, buf, buflen);
 852     }
 853
 854   return (buf);
 855 }
 856
 857 static int
 858 ospf6_inter_area_router_lsa_show (struct vty *vty, struct ospf6_lsa *lsa)
 859 {
 860   struct ospf6_inter_router_lsa *router_lsa;
 861   char buf[64];
 862
 863   router_lsa = (struct ospf6_inter_router_lsa *)
 864     OSPF6_LSA_HEADER_END (lsa->header);
 865
 866   ospf6_options_printbuf (router_lsa->options, buf, sizeof (buf));
 867   vty_out (vty, "     Options: %s%s", buf, VNL);
 868   vty_out (vty, "     Metric: %lu%s",
 869            (u_long) OSPF6_ABR_SUMMARY_METRIC (router_lsa), VNL);
 870
 871   inet_ntop (AF_INET, &router_lsa->router_id, buf, sizeof (buf));
 872   vty_out (vty, "     Destination Router ID: %s%s", buf, VNL);
 873
 874   return 0;
 875 }
 876
 877 /* Debug commands */
 878 DEFUN (debug_ospf6_abr,
 879        debug_ospf6_abr_cmd,
 880        "debug ospf6 abr",
 881        DEBUG_STR
 882        OSPF6_STR
 883        "Debug OSPFv3 ABR function\n"
 884       )
 885 {
 886   OSPF6_DEBUG_ABR_ON ();
 887   return CMD_SUCCESS;
 888 }
 889
 890 DEFUN (no_debug_ospf6_abr,
 891        no_debug_ospf6_abr_cmd,
 892        "no debug ospf6 abr",
 893        NO_STR
 894        DEBUG_STR
 895        OSPF6_STR
 896        "Debug OSPFv3 ABR function\n"
 897       )
 898 {
 899   OSPF6_DEBUG_ABR_OFF ();
 900   return CMD_SUCCESS;
 901 }
 902
 903 int
 904 config_write_ospf6_debug_abr (struct vty *vty)
 905 {
 906   if (IS_OSPF6_DEBUG_ABR)
 907     vty_out (vty, "debug ospf6 abr%s", VNL);
 908   return 0;
 909 }
 910
 911 void
 912 install_element_ospf6_debug_abr (void)
 913 {
 914   install_element (ENABLE_NODE, &debug_ospf6_abr_cmd);
 915   install_element (ENABLE_NODE, &no_debug_ospf6_abr_cmd);
 916   install_element (CONFIG_NODE, &debug_ospf6_abr_cmd);
 917   install_element (CONFIG_NODE, &no_debug_ospf6_abr_cmd);
 918 }
 919
 920 struct ospf6_lsa_handler inter_prefix_handler =
 921 {
 922   OSPF6_LSTYPE_INTER_PREFIX,
 923   "Inter-Prefix",
 924   "IAP",
 925   ospf6_inter_area_prefix_lsa_show,
 926   ospf6_inter_area_prefix_lsa_get_prefix_str,
 927 };
 928
 929 struct ospf6_lsa_handler inter_router_handler =
 930 {
 931   OSPF6_LSTYPE_INTER_ROUTER,
 932   "Inter-Router",
 933   "IAR",
 934   ospf6_inter_area_router_lsa_show,
 935   ospf6_inter_area_router_lsa_get_prefix_str,
 936 };
 937
 938 void
 939 ospf6_abr_init (void)
 940 {
 941   ospf6_install_lsa_handler (&inter_prefix_handler);
 942   ospf6_install_lsa_handler (&inter_router_handler);
 943 }
 944
 945