ospf6d/ospf6_intra.c

   1 /*
   2  * Copyright (C) 2003 Yasuhiro Ohara
   3  *
   4  * This file is part of GNU Zebra.
   5  *
   6  * GNU Zebra is free software; you can redistribute it and/or modify it
   7  * under the terms of the GNU General Public License as published by the
   8  * Free Software Foundation; either version 2, or (at your option) any
   9  * later version.
  10  *
  11  * GNU Zebra is distributed in the hope that it will be useful, but
  12  * WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with GNU Zebra; see the file COPYING.  If not, write to the
  18  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19  * Boston, MA 02111-1307, USA.
  20  */
  21
  22 #include <zebra.h>
  23
  24 #include "log.h"
  25 #include "linklist.h"
  26 #include "thread.h"
  27 #include "memory.h"
  28 #include "if.h"
  29 #include "prefix.h"
  30 #include "table.h"
  31 #include "vty.h"
  32 #include "command.h"
  33
  34 #include "ospf6_proto.h"
  35 #include "ospf6_message.h"
  36 #include "ospf6_route.h"
  37 #include "ospf6_lsa.h"
  38 #include "ospf6_lsdb.h"
  39
  40 #include "ospf6_top.h"
  41 #include "ospf6_area.h"
  42 #include "ospf6_interface.h"
  43 #include "ospf6_neighbor.h"
  44 #include "ospf6_intra.h"
  45 #include "ospf6_asbr.h"
  46 #include "ospf6_abr.h"
  47 #include "ospf6_flood.h"
  48 #include "ospf6d.h"
  49 #include "ospf6_spf.h"
  50
  51 unsigned char conf_debug_ospf6_brouter = 0;
  52 u_int32_t conf_debug_ospf6_brouter_specific_router_id;
  53 u_int32_t conf_debug_ospf6_brouter_specific_area_id;
  54
  55 /******************************/
  56 /* RFC2740 3.4.3.1 Router-LSA */
  57 /******************************/
  58
  59 static char *
  60 ospf6_router_lsa_get_nbr_id (struct ospf6_lsa *lsa, char *buf, int buflen,
  61                              int pos)
  62 {
  63   struct ospf6_router_lsa *router_lsa;
  64   struct ospf6_router_lsdesc *lsdesc;
  65   char *start, *end;
  66   char buf1[INET_ADDRSTRLEN], buf2[INET_ADDRSTRLEN];
  67
  68   if (lsa)
  69     {
  70       router_lsa = (struct ospf6_router_lsa *)
  71         ((char *) lsa->header + sizeof (struct ospf6_lsa_header));
  72       start = (char *) router_lsa + sizeof (struct ospf6_router_lsa);
  73       end = (char *) lsa->header + ntohs (lsa->header->length);
  74
  75       lsdesc = (struct ospf6_router_lsdesc *)
  76         (start + pos*(sizeof (struct ospf6_router_lsdesc)));
  77       if ((char *)lsdesc < end)
  78         {
  79           if (buf && (buflen > INET_ADDRSTRLEN*2))
  80             {
  81               inet_ntop (AF_INET, &lsdesc->neighbor_interface_id,
  82                          buf1, sizeof(buf1));
  83               inet_ntop (AF_INET, &lsdesc->neighbor_router_id,
  84                          buf2, sizeof(buf2));
  85               sprintf (buf, "%s/%s", buf2, buf1);
  86             }
  87         }
  88       else
  89         return NULL;
  90     }
  91
  92   return buf;
  93 }
  94
  95 static int
  96 ospf6_router_lsa_show (struct vty *vty, struct ospf6_lsa *lsa)
  97 {
  98   char *start, *end, *current;
  99   char buf[32], name[32], bits[16], options[32];
 100   struct ospf6_router_lsa *router_lsa;
 101   struct ospf6_router_lsdesc *lsdesc;
 102
 103   router_lsa = (struct ospf6_router_lsa *)
 104     ((char *) lsa->header + sizeof (struct ospf6_lsa_header));
 105
 106   ospf6_capability_printbuf (router_lsa->bits, bits, sizeof (bits));
 107   ospf6_options_printbuf (router_lsa->options, options, sizeof (options));
 108   vty_out (vty, "    Bits: %s Options: %s%s", bits, options, VNL);
 109
 110   start = (char *) router_lsa + sizeof (struct ospf6_router_lsa);
 111   end = (char *) lsa->header + ntohs (lsa->header->length);
 112   for (current = start; current + sizeof (struct ospf6_router_lsdesc) <= end;
 113        current += sizeof (struct ospf6_router_lsdesc))
 114     {
 115       lsdesc = (struct ospf6_router_lsdesc *) current;
 116
 117       if (lsdesc->type == OSPF6_ROUTER_LSDESC_POINTTOPOINT)
 118         snprintf (name, sizeof (name), "Point-To-Point");
 119       else if (lsdesc->type == OSPF6_ROUTER_LSDESC_TRANSIT_NETWORK)
 120         snprintf (name, sizeof (name), "Transit-Network");
 121       else if (lsdesc->type == OSPF6_ROUTER_LSDESC_STUB_NETWORK)
 122         snprintf (name, sizeof (name), "Stub-Network");
 123       else if (lsdesc->type == OSPF6_ROUTER_LSDESC_VIRTUAL_LINK)
 124         snprintf (name, sizeof (name), "Virtual-Link");
 125       else
 126         snprintf (name, sizeof (name), "Unknown (%#x)", lsdesc->type);
 127
 128       vty_out (vty, "    Type: %s Metric: %d%s",
 129                name, ntohs (lsdesc->metric), VNL);
 130       vty_out (vty, "    Interface ID: %s%s",
 131                inet_ntop (AF_INET, &lsdesc->interface_id,
 132                           buf, sizeof (buf)), VNL);
 133       vty_out (vty, "    Neighbor Interface ID: %s%s",
 134                inet_ntop (AF_INET, &lsdesc->neighbor_interface_id,
 135                           buf, sizeof (buf)), VNL);
 136       vty_out (vty, "    Neighbor Router ID: %s%s",
 137                inet_ntop (AF_INET, &lsdesc->neighbor_router_id,
 138                           buf, sizeof (buf)), VNL);
 139     }
 140   return 0;
 141 }
 142
 143 int
 144 ospf6_router_is_stub_router (struct ospf6_lsa *lsa)
 145 {
 146   struct ospf6_router_lsa *rtr_lsa;
 147
 148   if (lsa != NULL && OSPF6_LSA_IS_TYPE (ROUTER, lsa))
 149     {
 150       rtr_lsa = (struct ospf6_router_lsa *)
 151         ((caddr_t) lsa->header + sizeof (struct ospf6_lsa_header));
 152
 153       if (!OSPF6_OPT_ISSET (rtr_lsa->options, OSPF6_OPT_R))
 154         {
 155           return (OSPF6_IS_STUB_ROUTER);
 156         }
 157       else if (!OSPF6_OPT_ISSET (rtr_lsa->options, OSPF6_OPT_V6))
 158         {
 159           return (OSPF6_IS_STUB_ROUTER_V6);
 160         }
 161     }
 162
 163   return (OSPF6_NOT_STUB_ROUTER);
 164 }
 165
 166 int
 167 ospf6_router_lsa_originate (struct thread *thread)
 168 {
 169   struct ospf6_area *oa;
 170
 171   char buffer [OSPF6_MAX_LSASIZE];
 172   struct ospf6_lsa_header *lsa_header;
 173   struct ospf6_lsa *lsa;
 174
 175   u_int32_t link_state_id = 0;
 176   struct listnode *node, *nnode;
 177   struct listnode *j;
 178   struct ospf6_interface *oi;
 179   struct ospf6_neighbor *on, *drouter = NULL;
 180   struct ospf6_router_lsa *router_lsa;
 181   struct ospf6_router_lsdesc *lsdesc;
 182   u_int16_t type;
 183   u_int32_t router;
 184   int count;
 185
 186   oa = (struct ospf6_area *) THREAD_ARG (thread);
 187   oa->thread_router_lsa = NULL;
 188
 189   if (IS_OSPF6_DEBUG_ORIGINATE (ROUTER))
 190     zlog_debug ("Originate Router-LSA for Area %s", oa->name);
 191
 192   memset (buffer, 0, sizeof (buffer));
 193   lsa_header = (struct ospf6_lsa_header *) buffer;
 194   router_lsa = (struct ospf6_router_lsa *)
 195     ((caddr_t) lsa_header + sizeof (struct ospf6_lsa_header));
 196
 197   OSPF6_OPT_SET (router_lsa->options, OSPF6_OPT_V6);
 198   OSPF6_OPT_SET (router_lsa->options, OSPF6_OPT_E);
 199   OSPF6_OPT_CLEAR (router_lsa->options, OSPF6_OPT_MC);
 200   OSPF6_OPT_CLEAR (router_lsa->options, OSPF6_OPT_N);
 201   OSPF6_OPT_SET (router_lsa->options, OSPF6_OPT_R);
 202   OSPF6_OPT_CLEAR (router_lsa->options, OSPF6_OPT_DC);
 203
 204   if (ospf6_is_router_abr (ospf6))
 205     SET_FLAG (router_lsa->bits, OSPF6_ROUTER_BIT_B);
 206   else
 207     UNSET_FLAG (router_lsa->bits, OSPF6_ROUTER_BIT_B);
 208   if (ospf6_asbr_is_asbr (ospf6))
 209     SET_FLAG (router_lsa->bits, OSPF6_ROUTER_BIT_E);
 210   else
 211     UNSET_FLAG (router_lsa->bits, OSPF6_ROUTER_BIT_E);
 212   UNSET_FLAG (router_lsa->bits, OSPF6_ROUTER_BIT_V);
 213   UNSET_FLAG (router_lsa->bits, OSPF6_ROUTER_BIT_W);
 214
 215   /* describe links for each interfaces */
 216   lsdesc = (struct ospf6_router_lsdesc *)
 217     ((caddr_t) router_lsa + sizeof (struct ospf6_router_lsa));
 218
 219   for (ALL_LIST_ELEMENTS (oa->if_list, node, nnode, oi))
 220     {
 221       /* Interfaces in state Down or Loopback are not described */
 222       if (oi->state == OSPF6_INTERFACE_DOWN ||
 223           oi->state == OSPF6_INTERFACE_LOOPBACK)
 224         continue;
 225
 226       /* Nor are interfaces without any full adjacencies described */
 227       count = 0;
 228       for (ALL_LIST_ELEMENTS_RO (oi->neighbor_list, j, on))
 229         if (on->state == OSPF6_NEIGHBOR_FULL)
 230           count++;
 231
 232       if (count == 0)
 233         continue;
 234
 235       /* Multiple Router-LSA instance according to size limit setting */
 236       if ( (oa->router_lsa_size_limit != 0)
 237           && ((size_t)((char *)lsdesc - buffer)
 238                  + sizeof (struct ospf6_router_lsdesc)
 239                > oa->router_lsa_size_limit))
 240         {
 241           if ((caddr_t) lsdesc == (caddr_t) router_lsa +
 242                                   sizeof (struct ospf6_router_lsa))
 243             {
 244               if (IS_OSPF6_DEBUG_ORIGINATE (ROUTER))
 245                 zlog_debug ("Size limit setting for Router-LSA too short");
 246               return 0;
 247             }
 248
 249           link_state_id ++;
 250         }
 251
 252       /* Point-to-Point interfaces */
 253       if (oi->type == OSPF_IFTYPE_POINTOPOINT)
 254         {
 255           for (ALL_LIST_ELEMENTS_RO (oi->neighbor_list, j, on))
 256             {
 257               if (on->state != OSPF6_NEIGHBOR_FULL)
 258                 continue;
 259
 260               lsdesc->type = OSPF6_ROUTER_LSDESC_POINTTOPOINT;
 261               lsdesc->metric = htons (oi->cost);
 262               lsdesc->interface_id = htonl (oi->interface->ifindex);
 263               lsdesc->neighbor_interface_id = htonl (on->ifindex);
 264               lsdesc->neighbor_router_id = on->router_id;
 265
 266               lsdesc++;
 267             }
 268         }
 269
 270       /* Broadcast and NBMA interfaces */
 271       else if (oi->type == OSPF_IFTYPE_BROADCAST)
 272         {
 273           /* If this router is not DR,
 274              and If this router not fully adjacent with DR,
 275              this interface is not transit yet: ignore. */
 276           if (oi->state != OSPF6_INTERFACE_DR)
 277             {
 278               drouter = ospf6_neighbor_lookup (oi->drouter, oi);
 279               if (drouter == NULL || drouter->state != OSPF6_NEIGHBOR_FULL)
 280                 continue;
 281             }
 282
 283           lsdesc->type = OSPF6_ROUTER_LSDESC_TRANSIT_NETWORK;
 284           lsdesc->metric = htons (oi->cost);
 285           lsdesc->interface_id = htonl (oi->interface->ifindex);
 286           if (oi->state != OSPF6_INTERFACE_DR)
 287             {
 288               lsdesc->neighbor_interface_id = htonl (drouter->ifindex);
 289               lsdesc->neighbor_router_id = drouter->router_id;
 290             }
 291           else
 292             {
 293               lsdesc->neighbor_interface_id = htonl (oi->interface->ifindex);
 294               lsdesc->neighbor_router_id = oi->area->ospf6->router_id;
 295             }
 296
 297           lsdesc++;
 298         }
 299       else
 300         {
 301           assert (0);           /* Unknown interface type */
 302         }
 303
 304       /* Virtual links */
 305         /* xxx */
 306       /* Point-to-Multipoint interfaces */
 307         /* xxx */
 308     }
 309
 310   /* Fill LSA Header */
 311   lsa_header->age = 0;
 312   lsa_header->type = htons (OSPF6_LSTYPE_ROUTER);
 313   lsa_header->id = htonl (link_state_id);
 314   lsa_header->adv_router = oa->ospf6->router_id;
 315   lsa_header->seqnum =
 316     ospf6_new_ls_seqnum (lsa_header->type, lsa_header->id,
 317                          lsa_header->adv_router, oa->lsdb);
 318   lsa_header->length = htons ((caddr_t) lsdesc - (caddr_t) buffer);
 319
 320   /* LSA checksum */
 321   ospf6_lsa_checksum (lsa_header);
 322
 323   /* create LSA */
 324   lsa = ospf6_lsa_create (lsa_header);
 325
 326   /* Originate */
 327   ospf6_lsa_originate_area (lsa, oa);
 328
 329   link_state_id ++;
 330
 331   /* Do premature-aging of rest, undesired Router-LSAs */
 332   type = ntohs (OSPF6_LSTYPE_ROUTER);
 333   router = oa->ospf6->router_id;
 334   for (lsa = ospf6_lsdb_type_router_head (type, router, oa->lsdb); lsa;
 335        lsa = ospf6_lsdb_type_router_next (type, router, lsa))
 336     {
 337       if (ntohl (lsa->header->id) < link_state_id)
 338         continue;
 339       ospf6_lsa_purge (lsa);
 340     }
 341
 342   return 0;
 343 }
 344
 345 /*******************************/
 346 /* RFC2740 3.4.3.2 Network-LSA */
 347 /*******************************/
 348
 349 static char *
 350 ospf6_network_lsa_get_ar_id (struct ospf6_lsa *lsa, char *buf, int buflen,
 351                              int pos)
 352 {
 353   char *start, *end, *current;
 354   struct ospf6_network_lsa *network_lsa;
 355   struct ospf6_network_lsdesc *lsdesc;
 356
 357   if (lsa)
 358     {
 359       network_lsa = (struct ospf6_network_lsa *)
 360         ((caddr_t) lsa->header + sizeof (struct ospf6_lsa_header));
 361
 362       start = (char *) network_lsa + sizeof (struct ospf6_network_lsa);
 363       end = (char *) lsa->header + ntohs (lsa->header->length);
 364       current = start + pos*(sizeof (struct ospf6_network_lsdesc));
 365
 366       if ((current + sizeof(struct ospf6_network_lsdesc)) <= end)
 367         {
 368           lsdesc = (struct ospf6_network_lsdesc *)current;
 369           if (buf)
 370             inet_ntop (AF_INET, &lsdesc->router_id, buf, buflen);
 371         }
 372       else
 373         return NULL;
 374     }
 375
 376   return (buf);
 377 }
 378
 379 static int
 380 ospf6_network_lsa_show (struct vty *vty, struct ospf6_lsa *lsa)
 381 {
 382   char *start, *end, *current;
 383   struct ospf6_network_lsa *network_lsa;
 384   struct ospf6_network_lsdesc *lsdesc;
 385   char buf[128], options[32];
 386
 387   network_lsa = (struct ospf6_network_lsa *)
 388     ((caddr_t) lsa->header + sizeof (struct ospf6_lsa_header));
 389
 390   ospf6_options_printbuf (network_lsa->options, options, sizeof (options));
 391   vty_out (vty, "     Options: %s%s", options, VNL);
 392
 393   start = (char *) network_lsa + sizeof (struct ospf6_network_lsa);
 394   end = (char *) lsa->header + ntohs (lsa->header->length);
 395   for (current = start; current + sizeof (struct ospf6_network_lsdesc) <= end;
 396        current += sizeof (struct ospf6_network_lsdesc))
 397     {
 398       lsdesc = (struct ospf6_network_lsdesc *) current;
 399       inet_ntop (AF_INET, &lsdesc->router_id, buf, sizeof (buf));
 400       vty_out (vty, "     Attached Router: %s%s", buf, VNL);
 401     }
 402   return 0;
 403 }
 404
 405 int
 406 ospf6_network_lsa_originate (struct thread *thread)
 407 {
 408   struct ospf6_interface *oi;
 409
 410   char buffer [OSPF6_MAX_LSASIZE];
 411   struct ospf6_lsa_header *lsa_header;
 412
 413   int count;
 414   struct ospf6_lsa *old, *lsa;
 415   struct ospf6_network_lsa *network_lsa;
 416   struct ospf6_network_lsdesc *lsdesc;
 417   struct ospf6_neighbor *on;
 418   struct ospf6_link_lsa *link_lsa;
 419   struct listnode *i;
 420   u_int16_t type;
 421
 422   oi = (struct ospf6_interface *) THREAD_ARG (thread);
 423   oi->thread_network_lsa = NULL;
 424
 425   /* The interface must be enabled until here. A Network-LSA of a
 426      disabled interface (but was once enabled) should be flushed
 427      by ospf6_lsa_refresh (), and does not come here. */
 428   assert (oi->area);
 429
 430   old = ospf6_lsdb_lookup (htons (OSPF6_LSTYPE_NETWORK),
 431                            htonl (oi->interface->ifindex),
 432                            oi->area->ospf6->router_id, oi->area->lsdb);
 433
 434   /* Do not originate Network-LSA if not DR */
 435   if (oi->state != OSPF6_INTERFACE_DR)
 436     {
 437       if (old)
 438         ospf6_lsa_purge (old);
 439       return 0;
 440     }
 441
 442   if (IS_OSPF6_DEBUG_ORIGINATE (NETWORK))
 443     zlog_debug ("Originate Network-LSA for Interface %s", oi->interface->name);
 444
 445   /* If none of neighbor is adjacent to us */
 446   count = 0;
 447
 448   for (ALL_LIST_ELEMENTS_RO (oi->neighbor_list, i, on))
 449     if (on->state == OSPF6_NEIGHBOR_FULL)
 450       count++;
 451
 452   if (count == 0)
 453     {
 454       if (IS_OSPF6_DEBUG_ORIGINATE (NETWORK))
 455         zlog_debug ("Interface stub, ignore");
 456       if (old)
 457         ospf6_lsa_purge (old);
 458       return 0;
 459     }
 460
 461   /* prepare buffer */
 462   memset (buffer, 0, sizeof (buffer));
 463   lsa_header = (struct ospf6_lsa_header *) buffer;
 464   network_lsa = (struct ospf6_network_lsa *)
 465     ((caddr_t) lsa_header + sizeof (struct ospf6_lsa_header));
 466
 467   /* Collect the interface's Link-LSAs to describe
 468      network's optional capabilities */
 469   type = htons (OSPF6_LSTYPE_LINK);
 470   for (lsa = ospf6_lsdb_type_head (type, oi->lsdb); lsa;
 471        lsa = ospf6_lsdb_type_next (type, lsa))
 472     {
 473       link_lsa = (struct ospf6_link_lsa *)
 474         ((caddr_t) lsa->header + sizeof (struct ospf6_lsa_header));
 475       network_lsa->options[0] |= link_lsa->options[0];
 476       network_lsa->options[1] |= link_lsa->options[1];
 477       network_lsa->options[2] |= link_lsa->options[2];
 478     }
 479
 480   lsdesc = (struct ospf6_network_lsdesc *)
 481     ((caddr_t) network_lsa + sizeof (struct ospf6_network_lsa));
 482
 483   /* set Link Description to the router itself */
 484   lsdesc->router_id = oi->area->ospf6->router_id;
 485   lsdesc++;
 486
 487   /* Walk through the neighbors */
 488   for (ALL_LIST_ELEMENTS_RO (oi->neighbor_list, i, on))
 489     {
 490       if (on->state != OSPF6_NEIGHBOR_FULL)
 491         continue;
 492
 493       /* set this neighbor's Router-ID to LSA */
 494       lsdesc->router_id = on->router_id;
 495       lsdesc++;
 496     }
 497
 498   /* Fill LSA Header */
 499   lsa_header->age = 0;
 500   lsa_header->type = htons (OSPF6_LSTYPE_NETWORK);
 501   lsa_header->id = htonl (oi->interface->ifindex);
 502   lsa_header->adv_router = oi->area->ospf6->router_id;
 503   lsa_header->seqnum =
 504     ospf6_new_ls_seqnum (lsa_header->type, lsa_header->id,
 505                          lsa_header->adv_router, oi->area->lsdb);
 506   lsa_header->length = htons ((caddr_t) lsdesc - (caddr_t) buffer);
 507
 508   /* LSA checksum */
 509   ospf6_lsa_checksum (lsa_header);
 510
 511   /* create LSA */
 512   lsa = ospf6_lsa_create (lsa_header);
 513
 514   /* Originate */
 515   ospf6_lsa_originate_area (lsa, oi->area);
 516
 517   return 0;
 518 }
 519
 520
 521 /****************************/
 522 /* RFC2740 3.4.3.6 Link-LSA */
 523 /****************************/
 524
 525 static char *
 526 ospf6_link_lsa_get_prefix_str (struct ospf6_lsa *lsa, char *buf, int buflen,
 527                                int pos)
 528 {
 529   char *start, *end, *current;
 530   struct ospf6_link_lsa *link_lsa;
 531   struct in6_addr in6;
 532   struct ospf6_prefix *prefix;
 533   int cnt = 0, prefixnum;
 534
 535   if (lsa)
 536     {
 537       link_lsa = (struct ospf6_link_lsa *)
 538         ((caddr_t) lsa->header + sizeof (struct ospf6_lsa_header));
 539
 540       if (pos == 0) {
 541         inet_ntop (AF_INET6, &link_lsa->linklocal_addr, buf, buflen);
 542         return (buf);
 543       }
 544
 545       prefixnum = ntohl (link_lsa->prefix_num);
 546       if (pos > prefixnum)
 547         return (NULL);
 548
 549       start = (char *) link_lsa + sizeof (struct ospf6_link_lsa);
 550       end = (char *) lsa->header + ntohs (lsa->header->length);
 551       current = start;
 552
 553       do
 554         {
 555           prefix = (struct ospf6_prefix *) current;
 556           if (prefix->prefix_length == 0 ||
 557               current + OSPF6_PREFIX_SIZE (prefix) > end)
 558             {
 559               return (NULL);
 560             }
 561
 562           if (cnt < pos)
 563             {
 564               current = start + pos*OSPF6_PREFIX_SIZE(prefix);
 565               cnt++;
 566             }
 567           else
 568             {
 569               memset (&in6, 0, sizeof (in6));
 570               memcpy (&in6, OSPF6_PREFIX_BODY (prefix),
 571                       OSPF6_PREFIX_SPACE (prefix->prefix_length));
 572               inet_ntop (AF_INET6, &in6, buf, buflen);
 573               return (buf);
 574             }
 575         } while (current <= end);
 576     }
 577   return (NULL);
 578 }
 579
 580 static int
 581 ospf6_link_lsa_show (struct vty *vty, struct ospf6_lsa *lsa)
 582 {
 583   char *start, *end, *current;
 584   struct ospf6_link_lsa *link_lsa;
 585   int prefixnum;
 586   char buf[128], options[32];
 587   struct ospf6_prefix *prefix;
 588   const char *p, *mc, *la, *nu;
 589   struct in6_addr in6;
 590
 591   link_lsa = (struct ospf6_link_lsa *)
 592     ((caddr_t) lsa->header + sizeof (struct ospf6_lsa_header));
 593
 594   ospf6_options_printbuf (link_lsa->options, options, sizeof (options));
 595   inet_ntop (AF_INET6, &link_lsa->linklocal_addr, buf, sizeof (buf));
 596   prefixnum = ntohl (link_lsa->prefix_num);
 597
 598   vty_out (vty, "     Priority: %d Options: %s%s",
 599            link_lsa->priority, options, VNL);
 600   vty_out (vty, "     LinkLocal Address: %s%s", buf, VNL);
 601   vty_out (vty, "     Number of Prefix: %d%s", prefixnum, VNL);
 602
 603   start = (char *) link_lsa + sizeof (struct ospf6_link_lsa);
 604   end = (char *) lsa->header + ntohs (lsa->header->length);
 605   for (current = start; current < end; current += OSPF6_PREFIX_SIZE (prefix))
 606     {
 607       prefix = (struct ospf6_prefix *) current;
 608       if (prefix->prefix_length == 0 ||
 609           current + OSPF6_PREFIX_SIZE (prefix) > end)
 610         break;
 611
 612       p = (CHECK_FLAG (prefix->prefix_options, OSPF6_PREFIX_OPTION_P) ?
 613            "P" : "--");
 614       mc = (CHECK_FLAG (prefix->prefix_options, OSPF6_PREFIX_OPTION_MC) ?
 615            "MC" : "--");
 616       la = (CHECK_FLAG (prefix->prefix_options, OSPF6_PREFIX_OPTION_LA) ?
 617            "LA" : "--");
 618       nu = (CHECK_FLAG (prefix->prefix_options, OSPF6_PREFIX_OPTION_NU) ?
 619            "NU" : "--");
 620       vty_out (vty, "     Prefix Options: %s|%s|%s|%s%s",
 621                p, mc, la, nu, VNL);
 622
 623       memset (&in6, 0, sizeof (in6));
 624       memcpy (&in6, OSPF6_PREFIX_BODY (prefix),
 625               OSPF6_PREFIX_SPACE (prefix->prefix_length));
 626       inet_ntop (AF_INET6, &in6, buf, sizeof (buf));
 627       vty_out (vty, "     Prefix: %s/%d%s",
 628                buf, prefix->prefix_length, VNL);
 629     }
 630
 631   return 0;
 632 }
 633
 634 int
 635 ospf6_link_lsa_originate (struct thread *thread)
 636 {
 637   struct ospf6_interface *oi;
 638
 639   char buffer[OSPF6_MAX_LSASIZE];
 640   struct ospf6_lsa_header *lsa_header;
 641   struct ospf6_lsa *old, *lsa;
 642
 643   struct ospf6_link_lsa *link_lsa;
 644   struct ospf6_route *route;
 645   struct ospf6_prefix *op;
 646
 647   oi = (struct ospf6_interface *) THREAD_ARG (thread);
 648   oi->thread_link_lsa = NULL;
 649
 650   assert (oi->area);
 651
 652   /* find previous LSA */
 653   old = ospf6_lsdb_lookup (htons (OSPF6_LSTYPE_LINK),
 654                            htonl (oi->interface->ifindex),
 655                            oi->area->ospf6->router_id, oi->lsdb);
 656
 657   if (CHECK_FLAG (oi->flag, OSPF6_INTERFACE_DISABLE))
 658     {
 659       if (old)
 660         ospf6_lsa_purge (old);
 661       return 0;
 662     }
 663
 664   if (IS_OSPF6_DEBUG_ORIGINATE (LINK))
 665     zlog_debug ("Originate Link-LSA for Interface %s", oi->interface->name);
 666
 667   /* can't make Link-LSA if linklocal address not set */
 668   if (oi->linklocal_addr == NULL)
 669     {
 670       if (IS_OSPF6_DEBUG_ORIGINATE (LINK))
 671         zlog_debug ("No Linklocal address on %s, defer originating",
 672                    oi->interface->name);
 673       if (old)
 674         ospf6_lsa_purge (old);
 675       return 0;
 676     }
 677
 678   /* prepare buffer */
 679   memset (buffer, 0, sizeof (buffer));
 680   lsa_header = (struct ospf6_lsa_header *) buffer;
 681   link_lsa = (struct ospf6_link_lsa *)
 682     ((caddr_t) lsa_header + sizeof (struct ospf6_lsa_header));
 683
 684   /* Fill Link-LSA */
 685   link_lsa->priority = oi->priority;
 686   memcpy (link_lsa->options, oi->area->options, 3);
 687   memcpy (&link_lsa->linklocal_addr, oi->linklocal_addr,
 688           sizeof (struct in6_addr));
 689   link_lsa->prefix_num = htonl (oi->route_connected->count);
 690
 691   op = (struct ospf6_prefix *)
 692     ((caddr_t) link_lsa + sizeof (struct ospf6_link_lsa));
 693
 694   /* connected prefix to advertise */
 695   for (route = ospf6_route_head (oi->route_connected); route;
 696        route = ospf6_route_next (route))
 697     {
 698       op->prefix_length = route->prefix.prefixlen;
 699       op->prefix_options = route->path.prefix_options;
 700       op->prefix_metric = htons (0);
 701       memcpy (OSPF6_PREFIX_BODY (op), &route->prefix.u.prefix6,
 702               OSPF6_PREFIX_SPACE (op->prefix_length));
 703       op = OSPF6_PREFIX_NEXT (op);
 704     }
 705
 706   /* Fill LSA Header */
 707   lsa_header->age = 0;
 708   lsa_header->type = htons (OSPF6_LSTYPE_LINK);
 709   lsa_header->id = htonl (oi->interface->ifindex);
 710   lsa_header->adv_router = oi->area->ospf6->router_id;
 711   lsa_header->seqnum =
 712     ospf6_new_ls_seqnum (lsa_header->type, lsa_header->id,
 713                          lsa_header->adv_router, oi->lsdb);
 714   lsa_header->length = htons ((caddr_t) op - (caddr_t) buffer);
 715
 716   /* LSA checksum */
 717   ospf6_lsa_checksum (lsa_header);
 718
 719   /* create LSA */
 720   lsa = ospf6_lsa_create (lsa_header);
 721
 722   /* Originate */
 723   ospf6_lsa_originate_interface (lsa, oi);
 724
 725   return 0;
 726 }
 727
 728
 729 /*****************************************/
 730 /* RFC2740 3.4.3.7 Intra-Area-Prefix-LSA */
 731 /*****************************************/
 732 static char *
 733 ospf6_intra_prefix_lsa_get_prefix_str (struct ospf6_lsa *lsa, char *buf,
 734                                        int buflen, int pos)
 735 {
 736   char *start, *end, *current;
 737   struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
 738   struct in6_addr in6;
 739   int prefixnum, cnt = 0;
 740   struct ospf6_prefix *prefix;
 741
 742   if (lsa)
 743     {
 744       intra_prefix_lsa = (struct ospf6_intra_prefix_lsa *)
 745         ((caddr_t) lsa->header + sizeof (struct ospf6_lsa_header));
 746
 747       prefixnum = ntohs (intra_prefix_lsa->prefix_num);
 748       if (pos > prefixnum)
 749         return (NULL);
 750
 751       start = (char *) intra_prefix_lsa + sizeof (struct ospf6_intra_prefix_lsa);
 752       end = (char *) lsa->header + ntohs (lsa->header->length);
 753       current = start;
 754
 755       do
 756         {
 757           prefix = (struct ospf6_prefix *) current;
 758           if (prefix->prefix_length == 0 ||
 759               current + OSPF6_PREFIX_SIZE (prefix) > end)
 760             {
 761               return NULL;
 762             }
 763
 764           if (cnt < pos)
 765             {
 766               current = start + pos*OSPF6_PREFIX_SIZE(prefix);
 767               cnt++;
 768             }
 769           else
 770             {
 771               memset (&in6, 0, sizeof (in6));
 772               memcpy (&in6, OSPF6_PREFIX_BODY (prefix),
 773                       OSPF6_PREFIX_SPACE (prefix->prefix_length));
 774               inet_ntop (AF_INET6, &in6, buf, buflen);
 775               sprintf(&buf[strlen(buf)], "/%d", prefix->prefix_length);
 776               return (buf);
 777             }
 778         } while (current <= end);
 779     }
 780   return (buf);
 781 }
 782
 783 static int
 784 ospf6_intra_prefix_lsa_show (struct vty *vty, struct ospf6_lsa *lsa)
 785 {
 786   char *start, *end, *current;
 787   struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
 788   int prefixnum;
 789   char buf[128];
 790   struct ospf6_prefix *prefix;
 791   char id[16], adv_router[16];
 792   const char *p, *mc, *la, *nu;
 793   struct in6_addr in6;
 794
 795   intra_prefix_lsa = (struct ospf6_intra_prefix_lsa *)
 796     ((caddr_t) lsa->header + sizeof (struct ospf6_lsa_header));
 797
 798   prefixnum = ntohs (intra_prefix_lsa->prefix_num);
 799
 800   vty_out (vty, "     Number of Prefix: %d%s", prefixnum, VNL);
 801
 802   inet_ntop (AF_INET, &intra_prefix_lsa->ref_id, id, sizeof (id));
 803   inet_ntop (AF_INET, &intra_prefix_lsa->ref_adv_router,
 804              adv_router, sizeof (adv_router));
 805   vty_out (vty, "     Reference: %s Id: %s Adv: %s%s",
 806            ospf6_lstype_name (intra_prefix_lsa->ref_type), id, adv_router,
 807            VNL);
 808
 809   start = (char *) intra_prefix_lsa + sizeof (struct ospf6_intra_prefix_lsa);
 810   end = (char *) lsa->header + ntohs (lsa->header->length);
 811   for (current = start; current < end; current += OSPF6_PREFIX_SIZE (prefix))
 812     {
 813       prefix = (struct ospf6_prefix *) current;
 814       if (prefix->prefix_length == 0 ||
 815           current + OSPF6_PREFIX_SIZE (prefix) > end)
 816         break;
 817
 818       p = (CHECK_FLAG (prefix->prefix_options, OSPF6_PREFIX_OPTION_P) ?
 819            "P" : "--");
 820       mc = (CHECK_FLAG (prefix->prefix_options, OSPF6_PREFIX_OPTION_MC) ?
 821            "MC" : "--");
 822       la = (CHECK_FLAG (prefix->prefix_options, OSPF6_PREFIX_OPTION_LA) ?
 823            "LA" : "--");
 824       nu = (CHECK_FLAG (prefix->prefix_options, OSPF6_PREFIX_OPTION_NU) ?
 825            "NU" : "--");
 826       vty_out (vty, "     Prefix Options: %s|%s|%s|%s%s",
 827                p, mc, la, nu, VNL);
 828
 829       memset (&in6, 0, sizeof (in6));
 830       memcpy (&in6, OSPF6_PREFIX_BODY (prefix),
 831               OSPF6_PREFIX_SPACE (prefix->prefix_length));
 832       inet_ntop (AF_INET6, &in6, buf, sizeof (buf));
 833       vty_out (vty, "     Prefix: %s/%d%s",
 834                buf, prefix->prefix_length, VNL);
 835     }
 836
 837   return 0;
 838 }
 839
 840 int
 841 ospf6_intra_prefix_lsa_originate_stub (struct thread *thread)
 842 {
 843   struct ospf6_area *oa;
 844
 845   char buffer[OSPF6_MAX_LSASIZE];
 846   struct ospf6_lsa_header *lsa_header;
 847   struct ospf6_lsa *old, *lsa;
 848
 849   struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
 850   struct ospf6_interface *oi;
 851   struct ospf6_neighbor *on;
 852   struct ospf6_route *route;
 853   struct ospf6_prefix *op;
 854   struct listnode *i, *j;
 855   int full_count = 0;
 856   unsigned short prefix_num = 0;
 857   char buf[BUFSIZ];
 858   struct ospf6_route_table *route_advertise;
 859
 860   oa = (struct ospf6_area *) THREAD_ARG (thread);
 861   oa->thread_intra_prefix_lsa = NULL;
 862
 863   /* find previous LSA */
 864   old = ospf6_lsdb_lookup (htons (OSPF6_LSTYPE_INTRA_PREFIX),
 865                            htonl (0), oa->ospf6->router_id, oa->lsdb);
 866
 867   if (! IS_AREA_ENABLED (oa))
 868     {
 869       if (old)
 870         ospf6_lsa_purge (old);
 871       return 0;
 872     }
 873
 874   if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
 875     zlog_debug ("Originate Intra-Area-Prefix-LSA for area %s's stub prefix",
 876                oa->name);
 877
 878   /* prepare buffer */
 879   memset (buffer, 0, sizeof (buffer));
 880   lsa_header = (struct ospf6_lsa_header *) buffer;
 881   intra_prefix_lsa = (struct ospf6_intra_prefix_lsa *)
 882     ((caddr_t) lsa_header + sizeof (struct ospf6_lsa_header));
 883
 884   /* Fill Intra-Area-Prefix-LSA */
 885   intra_prefix_lsa->ref_type = htons (OSPF6_LSTYPE_ROUTER);
 886   intra_prefix_lsa->ref_id = htonl (0);
 887   intra_prefix_lsa->ref_adv_router = oa->ospf6->router_id;
 888
 889   route_advertise = ospf6_route_table_create (0, 0);
 890
 891   for (ALL_LIST_ELEMENTS_RO (oa->if_list, i, oi))
 892     {
 893       if (oi->state == OSPF6_INTERFACE_DOWN)
 894         {
 895           if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
 896             zlog_debug ("  Interface %s is down, ignore", oi->interface->name);
 897           continue;
 898         }
 899
 900       full_count = 0;
 901
 902       for (ALL_LIST_ELEMENTS_RO (oi->neighbor_list, j, on))
 903         if (on->state == OSPF6_NEIGHBOR_FULL)
 904           full_count++;
 905
 906       if (oi->state != OSPF6_INTERFACE_LOOPBACK &&
 907           oi->state != OSPF6_INTERFACE_POINTTOPOINT &&
 908           full_count != 0)
 909         {
 910           if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
 911             zlog_debug ("  Interface %s is not stub, ignore",
 912                        oi->interface->name);
 913           continue;
 914         }
 915
 916       if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
 917         zlog_debug ("  Interface %s:", oi->interface->name);
 918
 919       /* connected prefix to advertise */
 920       for (route = ospf6_route_head (oi->route_connected); route;
 921            route = ospf6_route_best_next (route))
 922         {
 923           if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
 924             {
 925               prefix2str (&route->prefix, buf, sizeof (buf));
 926               zlog_debug ("    include %s", buf);
 927             }
 928           ospf6_route_add (ospf6_route_copy (route), route_advertise);
 929         }
 930     }
 931
 932   if (route_advertise->count == 0)
 933     {
 934       if (old)
 935         ospf6_lsa_purge (old);
 936       ospf6_route_table_delete (route_advertise);
 937       return 0;
 938     }
 939
 940   /* put prefixes to advertise */
 941   prefix_num = 0;
 942   op = (struct ospf6_prefix *)
 943     ((caddr_t) intra_prefix_lsa + sizeof (struct ospf6_intra_prefix_lsa));
 944   for (route = ospf6_route_head (route_advertise); route;
 945        route = ospf6_route_best_next (route))
 946     {
 947       op->prefix_length = route->prefix.prefixlen;
 948       op->prefix_options = route->path.prefix_options;
 949       op->prefix_metric = htons (route->path.cost);
 950       memcpy (OSPF6_PREFIX_BODY (op), &route->prefix.u.prefix6,
 951               OSPF6_PREFIX_SPACE (op->prefix_length));
 952       op = OSPF6_PREFIX_NEXT (op);
 953       prefix_num++;
 954     }
 955
 956   ospf6_route_table_delete (route_advertise);
 957
 958   if (prefix_num == 0)
 959     {
 960       if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
 961         zlog_debug ("Quit to Advertise Intra-Prefix: no route to advertise");
 962       return 0;
 963     }
 964
 965   intra_prefix_lsa->prefix_num = htons (prefix_num);
 966
 967   /* Fill LSA Header */
 968   lsa_header->age = 0;
 969   lsa_header->type = htons (OSPF6_LSTYPE_INTRA_PREFIX);
 970   lsa_header->id = htonl (0);
 971   lsa_header->adv_router = oa->ospf6->router_id;
 972   lsa_header->seqnum =
 973     ospf6_new_ls_seqnum (lsa_header->type, lsa_header->id,
 974                          lsa_header->adv_router, oa->lsdb);
 975   lsa_header->length = htons ((caddr_t) op - (caddr_t) lsa_header);
 976
 977   /* LSA checksum */
 978   ospf6_lsa_checksum (lsa_header);
 979
 980   /* create LSA */
 981   lsa = ospf6_lsa_create (lsa_header);
 982
 983   /* Originate */
 984   ospf6_lsa_originate_area (lsa, oa);
 985
 986   return 0;
 987 }
 988
 989
 990 int
 991 ospf6_intra_prefix_lsa_originate_transit (struct thread *thread)
 992 {
 993   struct ospf6_interface *oi;
 994
 995   char buffer[OSPF6_MAX_LSASIZE];
 996   struct ospf6_lsa_header *lsa_header;
 997   struct ospf6_lsa *old, *lsa;
 998
 999   struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
1000   struct ospf6_neighbor *on;
1001   struct ospf6_route *route;
1002   struct ospf6_prefix *op;
1003   struct listnode *i;
1004   int full_count = 0;
1005   unsigned short prefix_num = 0;
1006   struct ospf6_route_table *route_advertise;
1007   struct ospf6_link_lsa *link_lsa;
1008   char *start, *end, *current;
1009   u_int16_t type;
1010   char buf[BUFSIZ];
1011
1012   oi = (struct ospf6_interface *) THREAD_ARG (thread);
1013   oi->thread_intra_prefix_lsa = NULL;
1014
1015   assert (oi->area);
1016
1017   /* find previous LSA */
1018   old = ospf6_lsdb_lookup (htons (OSPF6_LSTYPE_INTRA_PREFIX),
1019                            htonl (oi->interface->ifindex),
1020                            oi->area->ospf6->router_id, oi->area->lsdb);
1021
1022   if (CHECK_FLAG (oi->flag, OSPF6_INTERFACE_DISABLE))
1023     {
1024       if (old)
1025         ospf6_lsa_purge (old);
1026       return 0;
1027     }
1028
1029   if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
1030     zlog_debug ("Originate Intra-Area-Prefix-LSA for interface %s's prefix",
1031                oi->interface->name);
1032
1033   /* prepare buffer */
1034   memset (buffer, 0, sizeof (buffer));
1035   lsa_header = (struct ospf6_lsa_header *) buffer;
1036   intra_prefix_lsa = (struct ospf6_intra_prefix_lsa *)
1037     ((caddr_t) lsa_header + sizeof (struct ospf6_lsa_header));
1038
1039   /* Fill Intra-Area-Prefix-LSA */
1040   intra_prefix_lsa->ref_type = htons (OSPF6_LSTYPE_NETWORK);
1041   intra_prefix_lsa->ref_id = htonl (oi->interface->ifindex);
1042   intra_prefix_lsa->ref_adv_router = oi->area->ospf6->router_id;
1043
1044   if (oi->state != OSPF6_INTERFACE_DR)
1045     {
1046       if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
1047         zlog_debug ("  Interface is not DR");
1048       if (old)
1049         ospf6_lsa_purge (old);
1050       return 0;
1051     }
1052
1053   full_count = 0;
1054   for (ALL_LIST_ELEMENTS_RO (oi->neighbor_list, i, on))
1055     if (on->state == OSPF6_NEIGHBOR_FULL)
1056       full_count++;
1057
1058   if (full_count == 0)
1059     {
1060       if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
1061         zlog_debug ("  Interface is stub");
1062       if (old)
1063         ospf6_lsa_purge (old);
1064       return 0;
1065     }
1066
1067   /* connected prefix to advertise */
1068   route_advertise = ospf6_route_table_create (0, 0);
1069
1070   type = ntohs (OSPF6_LSTYPE_LINK);
1071   for (lsa = ospf6_lsdb_type_head (type, oi->lsdb); lsa;
1072        lsa = ospf6_lsdb_type_next (type, lsa))
1073     {
1074       if (OSPF6_LSA_IS_MAXAGE (lsa))
1075         continue;
1076
1077       if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
1078         zlog_debug ("  include prefix from %s", lsa->name);
1079
1080       if (lsa->header->adv_router != oi->area->ospf6->router_id)
1081         {
1082           on = ospf6_neighbor_lookup (lsa->header->adv_router, oi);
1083           if (on == NULL || on->state != OSPF6_NEIGHBOR_FULL)
1084             {
1085               if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
1086                 zlog_debug ("    Neighbor not found or not Full, ignore");
1087               continue;
1088             }
1089         }
1090
1091       link_lsa = (struct ospf6_link_lsa *)
1092         ((caddr_t) lsa->header + sizeof (struct ospf6_lsa_header));
1093
1094       prefix_num = (unsigned short) ntohl (link_lsa->prefix_num);
1095       start = (char *) link_lsa + sizeof (struct ospf6_link_lsa);
1096       end = (char *) lsa->header + ntohs (lsa->header->length);
1097       for (current = start; current < end && prefix_num;
1098            current += OSPF6_PREFIX_SIZE (op))
1099         {
1100           op = (struct ospf6_prefix *) current;
1101           if (op->prefix_length == 0 ||
1102               current + OSPF6_PREFIX_SIZE (op) > end)
1103             break;
1104
1105           route = ospf6_route_create ();
1106
1107           route->type = OSPF6_DEST_TYPE_NETWORK;
1108           route->prefix.family = AF_INET6;
1109           route->prefix.prefixlen = op->prefix_length;
1110           memset (&route->prefix.u.prefix6, 0, sizeof (struct in6_addr));
1111           memcpy (&route->prefix.u.prefix6, OSPF6_PREFIX_BODY (op),
1112                   OSPF6_PREFIX_SPACE (op->prefix_length));
1113
1114           route->path.origin.type = lsa->header->type;
1115           route->path.origin.id = lsa->header->id;
1116           route->path.origin.adv_router = lsa->header->adv_router;
1117           route->path.options[0] = link_lsa->options[0];
1118           route->path.options[1] = link_lsa->options[1];
1119           route->path.options[2] = link_lsa->options[2];
1120           route->path.prefix_options = op->prefix_options;
1121           route->path.area_id = oi->area->area_id;
1122           route->path.type = OSPF6_PATH_TYPE_INTRA;
1123
1124           if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
1125             {
1126               prefix2str (&route->prefix, buf, sizeof (buf));
1127               zlog_debug ("    include %s", buf);
1128             }
1129
1130           ospf6_route_add (route, route_advertise);
1131           prefix_num--;
1132         }
1133       if (current != end && IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
1134         zlog_debug ("Trailing garbage in %s", lsa->name);
1135     }
1136
1137   op = (struct ospf6_prefix *)
1138     ((caddr_t) intra_prefix_lsa + sizeof (struct ospf6_intra_prefix_lsa));
1139
1140   prefix_num = 0;
1141   for (route = ospf6_route_head (route_advertise); route;
1142        route = ospf6_route_best_next (route))
1143     {
1144       op->prefix_length = route->prefix.prefixlen;
1145       op->prefix_options = route->path.prefix_options;
1146       op->prefix_metric = htons (0);
1147       memcpy (OSPF6_PREFIX_BODY (op), &route->prefix.u.prefix6,
1148               OSPF6_PREFIX_SPACE (op->prefix_length));
1149       op = OSPF6_PREFIX_NEXT (op);
1150       prefix_num++;
1151     }
1152
1153   ospf6_route_table_delete (route_advertise);
1154
1155   if (prefix_num == 0)
1156     {
1157       if (IS_OSPF6_DEBUG_ORIGINATE (INTRA_PREFIX))
1158         zlog_debug ("Quit to Advertise Intra-Prefix: no route to advertise");
1159       return 0;
1160     }
1161
1162   intra_prefix_lsa->prefix_num = htons (prefix_num);
1163
1164   /* Fill LSA Header */
1165   lsa_header->age = 0;
1166   lsa_header->type = htons (OSPF6_LSTYPE_INTRA_PREFIX);
1167   lsa_header->id = htonl (oi->interface->ifindex);
1168   lsa_header->adv_router = oi->area->ospf6->router_id;
1169   lsa_header->seqnum =
1170     ospf6_new_ls_seqnum (lsa_header->type, lsa_header->id,
1171                          lsa_header->adv_router, oi->area->lsdb);
1172   lsa_header->length = htons ((caddr_t) op - (caddr_t) lsa_header);
1173
1174   /* LSA checksum */
1175   ospf6_lsa_checksum (lsa_header);
1176
1177   /* create LSA */
1178   lsa = ospf6_lsa_create (lsa_header);
1179
1180   /* Originate */
1181   ospf6_lsa_originate_area (lsa, oi->area);
1182
1183   return 0;
1184 }
1185
1186 void
1187 ospf6_intra_prefix_lsa_add (struct ospf6_lsa *lsa)
1188 {
1189   struct ospf6_area *oa;
1190   struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
1191   struct prefix ls_prefix;
1192   struct ospf6_route *route, *ls_entry;
1193   int i, prefix_num;
1194   struct ospf6_prefix *op;
1195   char *start, *current, *end;
1196   char buf[64];
1197   struct interface *ifp;
1198   int direct_connect = 0;
1199
1200   if (OSPF6_LSA_IS_MAXAGE (lsa))
1201     return;
1202
1203   if (IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1204     zlog_debug ("%s found", lsa->name);
1205
1206   oa = OSPF6_AREA (lsa->lsdb->data);
1207
1208   intra_prefix_lsa = (struct ospf6_intra_prefix_lsa *)
1209     OSPF6_LSA_HEADER_END (lsa->header);
1210   if (intra_prefix_lsa->ref_type == htons (OSPF6_LSTYPE_ROUTER))
1211     ospf6_linkstate_prefix (intra_prefix_lsa->ref_adv_router,
1212                             htonl (0), &ls_prefix);
1213   else if (intra_prefix_lsa->ref_type == htons (OSPF6_LSTYPE_NETWORK))
1214     ospf6_linkstate_prefix (intra_prefix_lsa->ref_adv_router,
1215                             intra_prefix_lsa->ref_id, &ls_prefix);
1216   else
1217     {
1218       if (IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1219         zlog_debug ("Unknown reference LS-type: %#hx",
1220                     ntohs (intra_prefix_lsa->ref_type));
1221       return;
1222     }
1223
1224   ls_entry = ospf6_route_lookup (&ls_prefix, oa->spf_table);
1225   if (ls_entry == NULL)
1226     {
1227       if (IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1228         {
1229           ospf6_linkstate_prefix2str (&ls_prefix, buf, sizeof (buf));
1230           zlog_debug ("LS entry does not exist: %s", buf);
1231         }
1232       return;
1233     }
1234
1235   if (intra_prefix_lsa->ref_adv_router == oa->ospf6->router_id)
1236     {
1237       /* the intra-prefix are directly connected */
1238       direct_connect = 1;
1239     }
1240
1241   prefix_num = ntohs (intra_prefix_lsa->prefix_num);
1242   start = (caddr_t) intra_prefix_lsa +
1243           sizeof (struct ospf6_intra_prefix_lsa);
1244   end = OSPF6_LSA_END (lsa->header);
1245   for (current = start; current < end; current += OSPF6_PREFIX_SIZE (op))
1246     {
1247       op = (struct ospf6_prefix *) current;
1248       if (prefix_num == 0)
1249         break;
1250       if (end < current + OSPF6_PREFIX_SIZE (op))
1251         break;
1252
1253       /* Appendix A.4.1.1 */
1254       if (CHECK_FLAG(op->prefix_options, OSPF6_PREFIX_OPTION_NU))
1255         {
1256           if (IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1257             {
1258               ospf6_linkstate_prefix2str ((struct prefix *)OSPF6_PREFIX_BODY(op),
1259                                           buf, sizeof (buf));
1260               zlog_debug ("%s: Skipping Prefix %s has NU option set",
1261                           __func__, buf);
1262             }
1263           continue;
1264         }
1265
1266       route = ospf6_route_create ();
1267
1268       memset (&route->prefix, 0, sizeof (struct prefix));
1269       route->prefix.family = AF_INET6;
1270       route->prefix.prefixlen = op->prefix_length;
1271       ospf6_prefix_in6_addr (&route->prefix.u.prefix6, op);
1272
1273       route->type = OSPF6_DEST_TYPE_NETWORK;
1274       route->path.origin.type = lsa->header->type;
1275       route->path.origin.id = lsa->header->id;
1276       route->path.origin.adv_router = lsa->header->adv_router;
1277       route->path.prefix_options = op->prefix_options;
1278       route->path.area_id = oa->area_id;
1279       route->path.type = OSPF6_PATH_TYPE_INTRA;
1280       route->path.metric_type = 1;
1281       route->path.cost = ls_entry->path.cost +
1282                          ntohs (op->prefix_metric);
1283
1284       if (direct_connect)
1285         {
1286           ifp = if_lookup_prefix(&route->prefix);
1287           if (ifp)
1288             route->nexthop[0].ifindex = ifp->ifindex;
1289         }
1290       else
1291         {
1292           for (i = 0; i < OSPF6_MULTI_PATH_LIMIT &&
1293                ospf6_nexthop_is_set (&ls_entry->nexthop[i]); i++)
1294             ospf6_nexthop_copy (&route->nexthop[i], &ls_entry->nexthop[i]);
1295         }
1296
1297       if (IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1298         {
1299           prefix2str (&route->prefix, buf, sizeof (buf));
1300           zlog_debug ("  add %s", buf);
1301         }
1302
1303       ospf6_route_add (route, oa->route_table);
1304       prefix_num--;
1305     }
1306
1307   if (current != end && IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1308     zlog_debug ("Trailing garbage ignored");
1309 }
1310
1311 void
1312 ospf6_intra_prefix_lsa_remove (struct ospf6_lsa *lsa)
1313 {
1314   struct ospf6_area *oa;
1315   struct ospf6_intra_prefix_lsa *intra_prefix_lsa;
1316   struct prefix prefix;
1317   struct ospf6_route *route, *nroute;
1318   int prefix_num;
1319   struct ospf6_prefix *op;
1320   char *start, *current, *end;
1321   char buf[64];
1322
1323   if (IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1324     zlog_debug ("%s disappearing", lsa->name);
1325
1326   oa = OSPF6_AREA (lsa->lsdb->data);
1327
1328   intra_prefix_lsa = (struct ospf6_intra_prefix_lsa *)
1329     OSPF6_LSA_HEADER_END (lsa->header);
1330
1331   prefix_num = ntohs (intra_prefix_lsa->prefix_num);
1332   start = (caddr_t) intra_prefix_lsa +
1333           sizeof (struct ospf6_intra_prefix_lsa);
1334   end = OSPF6_LSA_END (lsa->header);
1335   for (current = start; current < end; current += OSPF6_PREFIX_SIZE (op))
1336     {
1337       op = (struct ospf6_prefix *) current;
1338       if (prefix_num == 0)
1339         break;
1340       if (end < current + OSPF6_PREFIX_SIZE (op))
1341         break;
1342       prefix_num--;
1343
1344       memset (&prefix, 0, sizeof (struct prefix));
1345       prefix.family = AF_INET6;
1346       prefix.prefixlen = op->prefix_length;
1347       ospf6_prefix_in6_addr (&prefix.u.prefix6, op);
1348
1349       route = ospf6_route_lookup (&prefix, oa->route_table);
1350       if (route == NULL)
1351         continue;
1352
1353       for (ospf6_route_lock (route);
1354            route && ospf6_route_is_prefix (&prefix, route);
1355            route = nroute)
1356         {
1357           nroute = ospf6_route_next (route);
1358           if (route->type != OSPF6_DEST_TYPE_NETWORK)
1359             continue;
1360           if (route->path.area_id != oa->area_id)
1361             continue;
1362           if (route->path.type != OSPF6_PATH_TYPE_INTRA)
1363             continue;
1364           if (route->path.origin.type != lsa->header->type ||
1365               route->path.origin.id != lsa->header->id ||
1366               route->path.origin.adv_router != lsa->header->adv_router)
1367             continue;
1368
1369           if (IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1370             {
1371               prefix2str (&route->prefix, buf, sizeof (buf));
1372               zlog_debug ("remove %s", buf);
1373             }
1374           ospf6_route_remove (route, oa->route_table);
1375         }
1376       if (route)
1377         ospf6_route_unlock (route);
1378     }
1379
1380   if (current != end && IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1381     zlog_debug ("Trailing garbage ignored");
1382 }
1383
1384 void
1385 ospf6_intra_route_calculation (struct ospf6_area *oa)
1386 {
1387   struct ospf6_route *route, *nroute;
1388   u_int16_t type;
1389   struct ospf6_lsa *lsa;
1390   void (*hook_add) (struct ospf6_route *) = NULL;
1391   void (*hook_remove) (struct ospf6_route *) = NULL;
1392
1393   if (IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1394     zlog_debug ("Re-examin intra-routes for area %s", oa->name);
1395
1396   hook_add = oa->route_table->hook_add;
1397   hook_remove = oa->route_table->hook_remove;
1398   oa->route_table->hook_add = NULL;
1399   oa->route_table->hook_remove = NULL;
1400
1401   for (route = ospf6_route_head (oa->route_table); route;
1402        route = ospf6_route_next (route))
1403     route->flag = OSPF6_ROUTE_REMOVE;
1404
1405   type = htons (OSPF6_LSTYPE_INTRA_PREFIX);
1406   for (lsa = ospf6_lsdb_type_head (type, oa->lsdb); lsa;
1407        lsa = ospf6_lsdb_type_next (type, lsa))
1408     ospf6_intra_prefix_lsa_add (lsa);
1409
1410   oa->route_table->hook_add = hook_add;
1411   oa->route_table->hook_remove = hook_remove;
1412
1413   for (route = ospf6_route_head (oa->route_table); route;
1414        route = nroute)
1415     {
1416       nroute = ospf6_route_next (route);
1417       if (CHECK_FLAG (route->flag, OSPF6_ROUTE_REMOVE) &&
1418           CHECK_FLAG (route->flag, OSPF6_ROUTE_ADD))
1419         {
1420           UNSET_FLAG (route->flag, OSPF6_ROUTE_REMOVE);
1421           UNSET_FLAG (route->flag, OSPF6_ROUTE_ADD);
1422         }
1423
1424       if (CHECK_FLAG (route->flag, OSPF6_ROUTE_REMOVE))
1425         ospf6_route_remove (route, oa->route_table);
1426       else if (CHECK_FLAG (route->flag, OSPF6_ROUTE_ADD) ||
1427                CHECK_FLAG (route->flag, OSPF6_ROUTE_CHANGE))
1428         {
1429           if (hook_add)
1430             (*hook_add) (route);
1431         }
1432
1433       route->flag = 0;
1434     }
1435
1436   if (IS_OSPF6_DEBUG_EXAMIN (INTRA_PREFIX))
1437     zlog_debug ("Re-examin intra-routes for area %s: Done", oa->name);
1438 }
1439
1440 static void
1441 ospf6_brouter_debug_print (struct ospf6_route *brouter)
1442 {
1443   u_int32_t brouter_id;
1444   char brouter_name[16];
1445   char area_name[16];
1446   char destination[64];
1447   char installed[16], changed[16];
1448   struct timeval now, res;
1449   char id[16], adv_router[16];
1450   char capa[16], options[16];
1451
1452   brouter_id = ADV_ROUTER_IN_PREFIX (&brouter->prefix);
1453   inet_ntop (AF_INET, &brouter_id, brouter_name, sizeof (brouter_name));
1454   inet_ntop (AF_INET, &brouter->path.area_id, area_name, sizeof (area_name));
1455   ospf6_linkstate_prefix2str (&brouter->prefix, destination,
1456                               sizeof (destination));
1457
1458   quagga_gettime (QUAGGA_CLK_MONOTONIC, &now);
1459   timersub (&now, &brouter->installed, &res);
1460   timerstring (&res, installed, sizeof (installed));
1461
1462   quagga_gettime (QUAGGA_CLK_MONOTONIC, &now);
1463   timersub (&now, &brouter->changed, &res);
1464   timerstring (&res, changed, sizeof (changed));
1465
1466   inet_ntop (AF_INET, &brouter->path.origin.id, id, sizeof (id));
1467   inet_ntop (AF_INET, &brouter->path.origin.adv_router, adv_router,
1468              sizeof (adv_router));
1469
1470   ospf6_options_printbuf (brouter->path.options, options, sizeof (options));
1471   ospf6_capability_printbuf (brouter->path.router_bits, capa, sizeof (capa));
1472
1473   zlog_info ("Brouter: %s via area %s", brouter_name, area_name);
1474   zlog_info ("  memory: prev: %p this: %p next: %p parent rnode: %p",
1475              (void *)brouter->prev, (void *)brouter, (void *)brouter->next,
1476              (void *)brouter->rnode);
1477   zlog_info ("  type: %d prefix: %s installed: %s changed: %s",
1478              brouter->type, destination, installed, changed);
1479   zlog_info ("  lock: %d flags: %s%s%s%s", brouter->lock,
1480            (CHECK_FLAG (brouter->flag, OSPF6_ROUTE_BEST)   ? "B" : "-"),
1481            (CHECK_FLAG (brouter->flag, OSPF6_ROUTE_ADD)    ? "A" : "-"),
1482            (CHECK_FLAG (brouter->flag, OSPF6_ROUTE_REMOVE) ? "R" : "-"),
1483            (CHECK_FLAG (brouter->flag, OSPF6_ROUTE_CHANGE) ? "C" : "-"));
1484   zlog_info ("  path type: %s ls-origin %s id: %s adv-router %s",
1485              OSPF6_PATH_TYPE_NAME (brouter->path.type),
1486              ospf6_lstype_name (brouter->path.origin.type),
1487              id, adv_router);
1488   zlog_info ("  options: %s router-bits: %s metric-type: %d metric: %d/%d",
1489              options, capa, brouter->path.metric_type,
1490              brouter->path.cost, brouter->path.cost_e2);
1491 }
1492
1493 void
1494 ospf6_intra_brouter_calculation (struct ospf6_area *oa)
1495 {
1496   struct ospf6_route *brouter, *nbrouter, *copy;
1497   void (*hook_add) (struct ospf6_route *) = NULL;
1498   void (*hook_remove) (struct ospf6_route *) = NULL;
1499   u_int32_t brouter_id;
1500   char brouter_name[16];
1501
1502   if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID (oa->area_id))
1503     zlog_info ("border-router calculation for area %s", oa->name);
1504
1505   hook_add = oa->ospf6->brouter_table->hook_add;
1506   hook_remove = oa->ospf6->brouter_table->hook_remove;
1507   oa->ospf6->brouter_table->hook_add = NULL;
1508   oa->ospf6->brouter_table->hook_remove = NULL;
1509
1510   /* withdraw the previous router entries for the area */
1511   for (brouter = ospf6_route_head (oa->ospf6->brouter_table); brouter;
1512        brouter = ospf6_route_next (brouter))
1513     {
1514       brouter_id = ADV_ROUTER_IN_PREFIX (&brouter->prefix);
1515       inet_ntop (AF_INET, &brouter_id, brouter_name, sizeof (brouter_name));
1516       if (brouter->path.area_id != oa->area_id)
1517         continue;
1518       brouter->flag = OSPF6_ROUTE_REMOVE;
1519
1520       if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID (brouter_id) ||
1521           IS_OSPF6_DEBUG_ROUTE (MEMORY))
1522         {
1523           zlog_info ("%p: mark as removing: area %s brouter %s",
1524                      (void *)brouter, oa->name, brouter_name);
1525           ospf6_brouter_debug_print (brouter);
1526         }
1527     }
1528
1529   for (brouter = ospf6_route_head (oa->spf_table); brouter;
1530        brouter = ospf6_route_next (brouter))
1531     {
1532       brouter_id = ADV_ROUTER_IN_PREFIX (&brouter->prefix);
1533       inet_ntop (AF_INET, &brouter_id, brouter_name, sizeof (brouter_name));
1534
1535       if (brouter->type != OSPF6_DEST_TYPE_LINKSTATE)
1536         continue;
1537       if (ospf6_linkstate_prefix_id (&brouter->prefix) != htonl (0))
1538         continue;
1539       if (! CHECK_FLAG (brouter->path.router_bits, OSPF6_ROUTER_BIT_E) &&
1540           ! CHECK_FLAG (brouter->path.router_bits, OSPF6_ROUTER_BIT_B))
1541         continue;
1542
1543       if (! OSPF6_OPT_ISSET (brouter->path.options, OSPF6_OPT_V6) ||
1544           ! OSPF6_OPT_ISSET (brouter->path.options, OSPF6_OPT_R))
1545         continue;
1546
1547       copy = ospf6_route_copy (brouter);
1548       copy->type = OSPF6_DEST_TYPE_ROUTER;
1549       copy->path.area_id = oa->area_id;
1550       ospf6_route_add (copy, oa->ospf6->brouter_table);
1551
1552       if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID (brouter_id) ||
1553           IS_OSPF6_DEBUG_ROUTE (MEMORY))
1554         {
1555           zlog_info ("%p: transfer: area %s brouter %s",
1556                      (void *)brouter, oa->name, brouter_name);
1557           ospf6_brouter_debug_print (brouter);
1558         }
1559     }
1560
1561   oa->ospf6->brouter_table->hook_add = hook_add;
1562   oa->ospf6->brouter_table->hook_remove = hook_remove;
1563
1564   for (brouter = ospf6_route_head (oa->ospf6->brouter_table); brouter;
1565        brouter = nbrouter)
1566     {
1567       nbrouter = ospf6_route_next (brouter);
1568       brouter_id = ADV_ROUTER_IN_PREFIX (&brouter->prefix);
1569       inet_ntop (AF_INET, &brouter_id, brouter_name, sizeof (brouter_name));
1570
1571       if (brouter->path.area_id != oa->area_id)
1572         continue;
1573
1574       if (CHECK_FLAG (brouter->flag, OSPF6_ROUTE_WAS_REMOVED))
1575         continue;
1576
1577       if (CHECK_FLAG (brouter->flag, OSPF6_ROUTE_REMOVE) &&
1578           CHECK_FLAG (brouter->flag, OSPF6_ROUTE_ADD))
1579         {
1580           UNSET_FLAG (brouter->flag, OSPF6_ROUTE_REMOVE);
1581           UNSET_FLAG (brouter->flag, OSPF6_ROUTE_ADD);
1582         }
1583
1584       if (CHECK_FLAG (brouter->flag, OSPF6_ROUTE_REMOVE))
1585         {
1586           if (IS_OSPF6_DEBUG_BROUTER ||
1587               IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID (brouter_id) ||
1588               IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID (oa->area_id))
1589             zlog_info ("brouter %s disappears via area %s",
1590                        brouter_name, oa->name);
1591           ospf6_route_remove (brouter, oa->ospf6->brouter_table);
1592         }
1593       else if (CHECK_FLAG (brouter->flag, OSPF6_ROUTE_ADD) ||
1594                CHECK_FLAG (brouter->flag, OSPF6_ROUTE_CHANGE))
1595         {
1596           if (IS_OSPF6_DEBUG_BROUTER ||
1597               IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID (brouter_id) ||
1598               IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID (oa->area_id))
1599             zlog_info ("brouter %s appears via area %s",
1600                        brouter_name, oa->name);
1601
1602           /* newly added */
1603           if (hook_add)
1604             (*hook_add) (brouter);
1605         }
1606       else
1607         {
1608           if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ID (brouter_id) ||
1609               IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID (oa->area_id))
1610             zlog_info ("brouter %s still exists via area %s",
1611                        brouter_name, oa->name);
1612         }
1613
1614       brouter->flag = 0;
1615     }
1616
1617   if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ID (oa->area_id))
1618     zlog_info ("border-router calculation for area %s: done", oa->name);
1619 }
1620
1621 struct ospf6_lsa_handler router_handler =
1622 {
1623   OSPF6_LSTYPE_ROUTER,
1624   "Router",
1625   "Rtr",
1626   ospf6_router_lsa_show,
1627   ospf6_router_lsa_get_nbr_id
1628 };
1629
1630 struct ospf6_lsa_handler network_handler =
1631 {
1632   OSPF6_LSTYPE_NETWORK,
1633   "Network",
1634   "Net",
1635   ospf6_network_lsa_show,
1636   ospf6_network_lsa_get_ar_id
1637 };
1638
1639 struct ospf6_lsa_handler link_handler =
1640 {
1641   OSPF6_LSTYPE_LINK,
1642   "Link",
1643   "Lnk",
1644   ospf6_link_lsa_show,
1645   ospf6_link_lsa_get_prefix_str
1646 };
1647
1648 struct ospf6_lsa_handler intra_prefix_handler =
1649 {
1650   OSPF6_LSTYPE_INTRA_PREFIX,
1651   "Intra-Prefix",
1652   "INP",
1653   ospf6_intra_prefix_lsa_show,
1654   ospf6_intra_prefix_lsa_get_prefix_str
1655 };
1656
1657 void
1658 ospf6_intra_init (void)
1659 {
1660   ospf6_install_lsa_handler (&router_handler);
1661   ospf6_install_lsa_handler (&network_handler);
1662   ospf6_install_lsa_handler (&link_handler);
1663   ospf6_install_lsa_handler (&intra_prefix_handler);
1664 }
1665
1666 DEFUN (debug_ospf6_brouter,
1667        debug_ospf6_brouter_cmd,
1668        "debug ospf6 border-routers",
1669        DEBUG_STR
1670        OSPF6_STR
1671        "Debug border router\n"
1672       )
1673 {
1674   OSPF6_DEBUG_BROUTER_ON ();
1675   return CMD_SUCCESS;
1676 }
1677
1678 DEFUN (no_debug_ospf6_brouter,
1679        no_debug_ospf6_brouter_cmd,
1680        "no debug ospf6 border-routers",
1681        NO_STR
1682        DEBUG_STR
1683        OSPF6_STR
1684        "Debug border router\n"
1685       )
1686 {
1687   OSPF6_DEBUG_BROUTER_OFF ();
1688   return CMD_SUCCESS;
1689 }
1690
1691 DEFUN (debug_ospf6_brouter_router,
1692        debug_ospf6_brouter_router_cmd,
1693        "debug ospf6 border-routers router-id A.B.C.D",
1694        DEBUG_STR
1695        OSPF6_STR
1696        "Debug border router\n"
1697        "Debug specific border router\n"
1698        "Specify border-router's router-id\n"
1699       )
1700 {
1701   u_int32_t router_id;
1702   inet_pton (AF_INET, argv[0], &router_id);
1703   OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_ON (router_id);
1704   return CMD_SUCCESS;
1705 }
1706
1707 DEFUN (no_debug_ospf6_brouter_router,
1708        no_debug_ospf6_brouter_router_cmd,
1709        "no debug ospf6 border-routers router-id",
1710        NO_STR
1711        DEBUG_STR
1712        OSPF6_STR
1713        "Debug border router\n"
1714        "Debug specific border router\n"
1715       )
1716 {
1717   OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER_OFF ();
1718   return CMD_SUCCESS;
1719 }
1720
1721 DEFUN (debug_ospf6_brouter_area,
1722        debug_ospf6_brouter_area_cmd,
1723        "debug ospf6 border-routers area-id A.B.C.D",
1724        DEBUG_STR
1725        OSPF6_STR
1726        "Debug border router\n"
1727        "Debug border routers in specific Area\n"
1728        "Specify Area-ID\n"
1729       )
1730 {
1731   u_int32_t area_id;
1732   inet_pton (AF_INET, argv[0], &area_id);
1733   OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_ON (area_id);
1734   return CMD_SUCCESS;
1735 }
1736
1737 DEFUN (no_debug_ospf6_brouter_area,
1738        no_debug_ospf6_brouter_area_cmd,
1739        "no debug ospf6 border-routers area-id",
1740        NO_STR
1741        DEBUG_STR
1742        OSPF6_STR
1743        "Debug border router\n"
1744        "Debug border routers in specific Area\n"
1745       )
1746 {
1747   OSPF6_DEBUG_BROUTER_SPECIFIC_AREA_OFF ();
1748   return CMD_SUCCESS;
1749 }
1750
1751 int
1752 config_write_ospf6_debug_brouter (struct vty *vty)
1753 {
1754   char buf[16];
1755   if (IS_OSPF6_DEBUG_BROUTER)
1756     vty_out (vty, "debug ospf6 border-routers%s", VNL);
1757   if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_ROUTER)
1758     {
1759       inet_ntop (AF_INET, &conf_debug_ospf6_brouter_specific_router_id,
1760                  buf, sizeof (buf));
1761       vty_out (vty, "debug ospf6 border-routers router-id %s%s", buf, VNL);
1762     }
1763   if (IS_OSPF6_DEBUG_BROUTER_SPECIFIC_AREA)
1764     {
1765       inet_ntop (AF_INET, &conf_debug_ospf6_brouter_specific_area_id,
1766                  buf, sizeof (buf));
1767       vty_out (vty, "debug ospf6 border-routers area-id %s%s", buf, VNL);
1768     }
1769   return 0;
1770 }
1771
1772 void
1773 install_element_ospf6_debug_brouter (void)
1774 {
1775   install_element (ENABLE_NODE, &debug_ospf6_brouter_cmd);
1776   install_element (ENABLE_NODE, &debug_ospf6_brouter_router_cmd);
1777   install_element (ENABLE_NODE, &debug_ospf6_brouter_area_cmd);
1778   install_element (ENABLE_NODE, &no_debug_ospf6_brouter_cmd);
1779   install_element (ENABLE_NODE, &no_debug_ospf6_brouter_router_cmd);
1780   install_element (ENABLE_NODE, &no_debug_ospf6_brouter_area_cmd);
1781   install_element (CONFIG_NODE, &debug_ospf6_brouter_cmd);
1782   install_element (CONFIG_NODE, &debug_ospf6_brouter_router_cmd);
1783   install_element (CONFIG_NODE, &debug_ospf6_brouter_area_cmd);
1784   install_element (CONFIG_NODE, &no_debug_ospf6_brouter_cmd);
1785   install_element (CONFIG_NODE, &no_debug_ospf6_brouter_router_cmd);
1786   install_element (CONFIG_NODE, &no_debug_ospf6_brouter_area_cmd);
1787 }
1788
1789