blob: b10d9aebba9f2795122595a668b7aa7b8ab4a99c [file] [log] [blame]
/*
* Copyright (C) 1999 Yasuhiro Ohara
*
* This file is part of GNU Zebra.
*
* GNU Zebra is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the
* Free Software Foundation; either version 2, or (at your option) any
* later version.
*
* GNU Zebra is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with GNU Zebra; see the file COPYING. If not, write to the
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*/
#include "ospf6d.h"
/* check validity and put lsa in reqestlist if needed. */
/* returns -1 if SeqNumMismatch required. */
int
ospf6_dbex_check_dbdesc_lsa_header (struct ospf6_lsa_header *lsa_header,
struct ospf6_neighbor *from)
{
struct ospf6_lsa *received = NULL;
struct ospf6_lsa *have = NULL;
received = ospf6_lsa_summary_create
((struct ospf6_lsa_header__ *) lsa_header);
/* case when received is AS-External though neighbor belongs stub area */
if (lsa_header->type == htons (OSPF6_LSA_TYPE_AS_EXTERNAL) &&
ospf6_area_is_stub (from->ospf6_interface->area))
{
zlog_err ("DbDesc %s receive from %s", from->str, received->str);
zlog_err (" E-bit mismatch: %s", received->str);
ospf6_lsa_delete (received);
return -1;
}
/* if already have newer database copy, check next LSA */
have = ospf6_lsdb_lookup (lsa_header->type, lsa_header->ls_id,
lsa_header->advrtr,
ospf6_lsa_get_scope (lsa_header->type,
from->ospf6_interface));
if (! have)
{
/* if we don't have database copy, add request */
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("Have no database copy, Request");
ospf6_neighbor_request_add (received, from);
}
else if (have)
{
/* if database copy is less recent, add request */
if (ospf6_lsa_check_recent (received, have) < 0)
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("Database copy less recent, Request");
ospf6_neighbor_request_add (received, from);
}
}
return 0;
}
/* Direct acknowledgement */
static void
ospf6_dbex_acknowledge_direct (struct ospf6_lsa *lsa,
struct ospf6_neighbor *o6n)
{
struct iovec directack[MAXIOVLIST];
assert (lsa);
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: [%s:%s] direct ack %s ",
o6n->str, o6n->ospf6_interface->interface->name,
lsa->str);
/* clear pointers to fragments of packet for direct acknowledgement */
iov_clear (directack, MAXIOVLIST);
/* set pointer of LSA to send */
OSPF6_MESSAGE_ATTACH (directack, lsa->header,
sizeof (struct ospf6_lsa_header));
/* age update and add InfTransDelay */
ospf6_lsa_age_update_to_send (lsa, o6n->ospf6_interface->transdelay);
/* send unicast packet to neighbor's ipaddress */
ospf6_message_send (OSPF6_MESSAGE_TYPE_LSACK, directack, &o6n->hisaddr,
o6n->ospf6_interface->if_id);
}
/* Delayed acknowledgement */
void
ospf6_dbex_acknowledge_delayed (struct ospf6_lsa *lsa,
struct ospf6_interface *o6i)
{
assert (o6i);
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: [%s] delayed ack %s", o6i->interface->name, lsa->str);
/* attach delayed acknowledge list */
ospf6_lsa_age_current (lsa);
ospf6_interface_delayed_ack_add (lsa, o6i);
/* if not yet, schedule delayed acknowledge RxmtInterval later.
timers should be *less than* RxmtInterval
or needless retrans will ensue */
if (o6i->thread_send_lsack_delayed == NULL)
o6i->thread_send_lsack_delayed
= thread_add_timer (master, ospf6_send_lsack_delayed,
o6i, o6i->rxmt_interval - 1);
return;
}
/* RFC2328 section 13 (4):
if MaxAge LSA and if we have no instance, and no neighbor
is in states Exchange or Loading */
/* returns 1 if match this case, else returns 0 */
static int
ospf6_dbex_is_maxage_to_be_dropped (struct ospf6_lsa *received,
struct ospf6_neighbor *from)
{
int count;
if (! IS_LSA_MAXAGE (received))
return 0;
if (ospf6_lsdb_lookup (received->header->type, received->header->id,
received->header->adv_router,
ospf6_lsa_get_scope (received->header->type,
from->ospf6_interface)))
return 0;
if (OSPF6_LSA_IS_SCOPE_LINKLOCAL (ntohs (received->header->type)))
{
count = 0;
(*from->ospf6_interface->foreach_nei)
(from->ospf6_interface, &count, NBS_EXCHANGE, ospf6_count_state);
(*from->ospf6_interface->foreach_nei)
(from->ospf6_interface, &count, NBS_LOADING, ospf6_count_state);
if (count)
return 0;
}
else if (OSPF6_LSA_IS_SCOPE_AREA (ntohs (received->header->type)))
{
count = 0;
(*from->ospf6_interface->area->foreach_nei)
(from->ospf6_interface->area, &count, NBS_EXCHANGE, ospf6_count_state);
(*from->ospf6_interface->area->foreach_nei)
(from->ospf6_interface->area, &count, NBS_LOADING, ospf6_count_state);
if (count)
return 0;
}
else if (OSPF6_LSA_IS_SCOPE_AS (ntohs (received->header->type)))
{
count = 0;
(*from->ospf6_interface->area->ospf6->foreach_nei)
(from->ospf6_interface->area->ospf6, &count, NBS_EXCHANGE,
ospf6_count_state);
(*from->ospf6_interface->area->ospf6->foreach_nei)
(from->ospf6_interface->area->ospf6, &count, NBS_LOADING,
ospf6_count_state);
if (count)
return 0;
}
return 1;
}
static void
ospf6_dbex_remove_retrans (void *arg, int val, void *obj)
{
struct ospf6_lsa *rem;
struct ospf6_neighbor *nei = (struct ospf6_neighbor *) obj;
struct ospf6_lsa *lsa = (struct ospf6_lsa *) arg;
rem = ospf6_lsdb_lookup_lsdb (lsa->header->type, lsa->header->id,
lsa->header->adv_router, nei->retrans_list);
if (rem)
{
ospf6_neighbor_retrans_remove (rem, nei);
ospf6_maxage_remover ();
}
}
void
ospf6_dbex_remove_from_all_retrans_list (struct ospf6_lsa *lsa)
{
struct ospf6_interface *o6i;
struct ospf6_area *o6a;
if (OSPF6_LSA_IS_SCOPE_LINKLOCAL (htons (lsa->header->type)))
{
o6i = lsa->scope;
(*o6i->foreach_nei) (o6i, lsa, 0, ospf6_dbex_remove_retrans);
}
else if (OSPF6_LSA_IS_SCOPE_AREA (htons (lsa->header->type)))
{
o6a = lsa->scope;
(*o6a->foreach_nei) (o6a, lsa, 0, ospf6_dbex_remove_retrans);
}
else if (OSPF6_LSA_IS_SCOPE_AS (htons (lsa->header->type)))
{
(*ospf6->foreach_nei) (ospf6, lsa, 0, ospf6_dbex_remove_retrans);
}
}
/* RFC2328 section 13 */
void
ospf6_dbex_receive_lsa (struct ospf6_lsa_header *lsa_header,
struct ospf6_neighbor *from)
{
struct ospf6_lsa *received, *have, *rem;
struct timeval now;
int ismore_recent, acktype;
unsigned short cksum;
struct ospf6_lsa_slot *slot;
received = have = (struct ospf6_lsa *)NULL;
ismore_recent = -1;
recent_reason = "no instance";
zlog_info ("Receive LSA (header -> %p)", lsa_header);
/* make lsa structure for received lsa */
received = ospf6_lsa_create (lsa_header);
/* set LSA scope */
if (OSPF6_LSA_IS_SCOPE_LINKLOCAL (htons (lsa_header->type)))
received->scope = from->ospf6_interface;
else if (OSPF6_LSA_IS_SCOPE_AREA (htons (lsa_header->type)))
received->scope = from->ospf6_interface->area;
else if (OSPF6_LSA_IS_SCOPE_AS (htons (lsa_header->type)))
received->scope = from->ospf6_interface->area->ospf6;
/* (1) LSA Checksum */
cksum = ntohs (lsa_header->checksum);
if (ntohs (ospf6_lsa_checksum (lsa_header)) != cksum)
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: received %s from %s%%%s"
": wrong checksum, drop",
received->str, from->str,
from->ospf6_interface->interface->name);
ospf6_lsa_delete (received);
return;
}
/* (3) Ebit Missmatch: AS-External-LSA */
if (lsa_header->type == htons (OSPF6_LSA_TYPE_AS_EXTERNAL) &&
ospf6_area_is_stub (from->ospf6_interface->area))
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: received %s from %s%%%s"
": E-bit mismatch, drop",
received->str, from->str,
from->ospf6_interface->interface->name);
ospf6_lsa_delete (received);
return;
}
/* (4) if MaxAge LSA and if we have no instance, and no neighbor
is in states Exchange or Loading */
if (ospf6_dbex_is_maxage_to_be_dropped (received, from))
{
/* log */
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: received %s from %s%%%s"
": MaxAge, no instance, no neighbor exchange, drop",
received->str, from->str,
from->ospf6_interface->interface->name);
/* a) Acknowledge back to neighbor (13.5) */
/* Direct Acknowledgement */
ospf6_dbex_acknowledge_direct (received, from);
/* b) Discard */
ospf6_lsa_delete (received);
return;
}
/* (5) */
/* lookup the same database copy in lsdb */
have = ospf6_lsdb_lookup (lsa_header->type, lsa_header->ls_id,
lsa_header->advrtr,
ospf6_lsa_get_scope (lsa_header->type,
from->ospf6_interface));
if (have)
{
ismore_recent = ospf6_lsa_check_recent (received, have);
if (ntohl (received->header->seqnum) == ntohl (have->header->seqnum))
SET_FLAG (received->flag, OSPF6_LSA_FLAG_DUPLICATE);
}
/* if no database copy or received is more recent */
if (!have || ismore_recent < 0)
{
/* in case we have no database copy */
ismore_recent = -1;
/* (a) MinLSArrival check */
gettimeofday (&now, (struct timezone *)NULL);
if (have && SEC_TVDIFF (&now, &have->installed) < OSPF6_MIN_LS_ARRIVAL)
{
//if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: Receive new LSA from %s: %s seq: %#x age: %d "
"within MinLSArrival, drop: %ld.%06ld",
from->str, received->str,
ntohl (received->header->seqnum),
ntohs (received->header->age),
now.tv_sec, now.tv_usec);
/* this will do free this lsa */
ospf6_lsa_delete (received);
return; /* examin next lsa */
}
//if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: Receive new LSA from %s: %s seq: %#x age: %d: "
"%ld.%06ld",
from->str, received->str,
ntohl (received->header->seqnum),
ntohs (received->header->age),
now.tv_sec, now.tv_usec);
/* (b) immediately flood */
ospf6_dbex_flood (received, from);
#if 0
/* Because New LSDB do not permit two LSA having the same identifier
exist in a LSDB list, above ospf6_dbex_flood() will remove
the old instance automatically. thus bellow is not needed. */
/* (c) remove database copy from all neighbor's retranslist */
if (have)
ospf6_dbex_remove_from_all_retrans_list (have);
#endif
/* (d), installing lsdb, which may cause routing
table calculation (replacing database copy) */
ospf6_lsdb_install (received);
/* (e) possibly acknowledge */
acktype = ack_type (received, ismore_recent, from);
if (acktype == DIRECT_ACK)
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: Direct Ack to %s", from->str);
ospf6_dbex_acknowledge_direct (received, from);
}
else if (acktype == DELAYED_ACK)
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: Delayed Ack to %s", from->str);
ospf6_dbex_acknowledge_delayed (received, from->ospf6_interface);
}
else
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: No Ack to %s", from->str);
}
/* (f) */
/* Self Originated LSA, section 13.4 */
if (received->lsa_hdr->lsh_advrtr == ospf6->router_id
&& (! have || ismore_recent < 0))
{
/* we're going to make new lsa or to flush this LSA. */
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: Self-originated LSA %s from %s:%s",
received->str, from->str,
from->ospf6_interface->interface->name);
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: %s: Make new one/Flush", received->str);
SET_FLAG (received->flag, OSPF6_LSA_FLAG_REFRESH);
slot = ospf6_lsa_slot_get (received->header->type);
if (slot && slot->func_refresh)
{
(*slot->func_refresh) (received);
return;
}
zlog_warn ("Can't Refresh LSA: Unknown type: %#x, Flush",
ntohs (received->header->type));
ospf6_lsa_premature_aging (received);
return;
}
}
else if (ospf6_lsdb_lookup_lsdb (received->header->type,
received->header->id,
received->header->adv_router,
from->request_list))
/* (6) if there is instance on sending neighbor's request list */
{
/* if no database copy, should go above state (5) */
assert (have);
zlog_warn ("DBEX: [%s:%s] received LSA %s is not newer,"
" and is on his requestlist: Generate BadLSReq",
from->str, from->ospf6_interface->interface->name,
received->str);
/* BadLSReq */
thread_add_event (master, bad_lsreq, from, 0);
ospf6_lsa_delete (received);
}
else if (ismore_recent == 0) /* (7) if neither is more recent */
{
/* (a) if on retranslist, Treat this LSA as an Ack: Implied Ack */
rem = ospf6_lsdb_lookup_lsdb (received->header->type,
received->header->id,
received->header->adv_router,
from->retrans_list);
if (rem)
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: Implied Ack from %s, (remove retrans)",
from->str);
SET_FLAG (received->flag, OSPF6_LSA_FLAG_IMPLIEDACK);
ospf6_neighbor_retrans_remove (rem, from);
}
/* (b) possibly acknowledge */
acktype = ack_type (received, ismore_recent, from);
if (acktype == DIRECT_ACK)
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: Direct Ack to %s", from->str);
ospf6_dbex_acknowledge_direct (received, from);
}
else if (acktype == DELAYED_ACK)
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: Delayed Ack to %s", from->str);
ospf6_dbex_acknowledge_delayed (received, from->ospf6_interface);
}
else
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: No Ack to %s", from->str);
}
ospf6_lsa_delete (received);
}
else /* (8) previous database copy is more recent */
{
/* If Seqnumber Wrapping, simply discard
Otherwise, Send database copy of this LSA to this neighbor */
if (! IS_LSA_MAXAGE (received) ||
received->lsa_hdr->lsh_seqnum != MAX_SEQUENCE_NUMBER)
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: database is more recent: send back to %s",
from->str);
ospf6_send_lsupdate_direct (have, from);
}
ospf6_lsa_delete (received);
}
}
/* RFC2328: Table 19: Sending link state acknowledgements. */
int
ack_type (struct ospf6_lsa *newp, int ismore_recent,
struct ospf6_neighbor *from)
{
struct ospf6_interface *ospf6_interface;
struct ospf6_lsa *have;
int count;
assert (from && from->ospf6_interface);
ospf6_interface = from->ospf6_interface;
if (CHECK_FLAG (newp->flag, OSPF6_LSA_FLAG_FLOODBACK))
return NO_ACK;
if (ismore_recent < 0)
{
if (ospf6_interface->state != IFS_BDR)
return DELAYED_ACK;
if (ospf6_interface->dr == from->router_id)
return DELAYED_ACK;
return NO_ACK;
}
if (CHECK_FLAG (newp->flag, OSPF6_LSA_FLAG_DUPLICATE) &&
CHECK_FLAG (newp->flag, OSPF6_LSA_FLAG_IMPLIEDACK))
{
if (ospf6_interface->state != IFS_BDR)
return NO_ACK;
if (ospf6_interface->dr == from->router_id)
return DELAYED_ACK;
return NO_ACK;
}
if (CHECK_FLAG (newp->flag, OSPF6_LSA_FLAG_DUPLICATE) &&
! CHECK_FLAG (newp->flag, OSPF6_LSA_FLAG_IMPLIEDACK))
return DIRECT_ACK;
have = ospf6_lsdb_lookup (newp->header->type, newp->header->id,
newp->header->adv_router,
ospf6_lsa_get_scope (newp->header->type,
from->ospf6_interface));
count = 0;
ospf6->foreach_nei (ospf6, &count, NBS_EXCHANGE, ospf6_count_state);
ospf6->foreach_nei (ospf6, &count, NBS_LOADING, ospf6_count_state);
if (IS_LSA_MAXAGE (newp) && have == NULL && count == 0)
return DIRECT_ACK;
return NO_ACK;
}
static void
ospf6_dbex_flood_linklocal (struct ospf6_lsa *lsa, struct ospf6_interface *o6i,
struct ospf6_neighbor *from)
{
struct ospf6_neighbor *o6n = (struct ospf6_neighbor *) NULL;
int ismore_recent, addretrans = 0;
listnode n;
struct ospf6_lsa *req;
/* (1) for each neighbor */
for (n = listhead (o6i->neighbor_list); n; nextnode (n))
{
o6n = (struct ospf6_neighbor *) getdata (n);
/* (a) */
if (o6n->state < NBS_EXCHANGE)
continue; /* examin next neighbor */
/* (b) */
if (o6n->state == NBS_EXCHANGE
|| o6n->state == NBS_LOADING)
{
req = ospf6_lsdb_lookup_lsdb (lsa->header->type,
lsa->header->id,
lsa->header->adv_router,
o6n->request_list);
if (req)
{
ismore_recent = ospf6_lsa_check_recent (lsa, req);
if (ismore_recent > 0)
{
continue; /* examin next neighbor */
}
else if (ismore_recent == 0)
{
ospf6_neighbor_request_remove (req, o6n);
continue; /* examin next neighbor */
}
else /* ismore_recent < 0 (the new LSA is more recent) */
{
ospf6_neighbor_request_remove (req, o6n);
}
}
}
/* (c) */
if (from && from->router_id == o6n->router_id)
continue; /* examin next neighbor */
/* (d) add retranslist */
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: schedule flooding [%s:%s]: %s",
o6n->str, o6n->ospf6_interface->interface->name,
lsa->str);
ospf6_neighbor_retrans_add (lsa, o6n);
addretrans++;
if (o6n->send_update == (struct thread *) NULL)
o6n->send_update =
thread_add_timer (master, ospf6_send_lsupdate_rxmt, o6n,
o6n->ospf6_interface->rxmt_interval);
}
/* (2) */
if (addretrans == 0)
return; /* examin next interface */
if (from && from->ospf6_interface == o6i)
{
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("DBEX: flood back %s to %s",
lsa->str, o6i->interface->name);
/* note occurence of floodback */
SET_FLAG (lsa->flag, OSPF6_LSA_FLAG_FLOODBACK);
}
/* (3) */
if (from && from->ospf6_interface == o6i)
{
/* if from DR or BDR, don't need to flood this interface */
if (from->router_id == from->ospf6_interface->dr ||
from->router_id == from->ospf6_interface->bdr)
return; /* examin next interface */
}
/* (4) if I'm BDR, DR will flood this interface */
if (from && from->ospf6_interface == o6i
&& o6i->state == IFS_BDR)
return; /* examin next interface */
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("Flood to interface %s", o6i->interface->name);
/* (5) send LinkState Update */
ospf6_send_lsupdate_flood (lsa, o6i);
return;
}
/* RFC2328 section 13.3 */
static void
ospf6_dbex_flood_area (struct ospf6_lsa *lsa, struct ospf6_area *area,
struct ospf6_neighbor *from)
{
listnode n;
struct ospf6_interface *ospf6_interface;
assert (lsa && lsa->lsa_hdr && area);
/* for each eligible ospf_ifs */
for (n = listhead (area->if_list); n; nextnode (n))
{
ospf6_interface = (struct ospf6_interface *) getdata (n);
ospf6_dbex_flood_linklocal (lsa, ospf6_interface, from);
}
}
static void
ospf6_dbex_flood_as (struct ospf6_lsa *lsa, struct ospf6 *ospf6,
struct ospf6_neighbor *from)
{
listnode n;
struct ospf6_area *o6a;
assert (lsa && lsa->lsa_hdr && ospf6);
/* for each attached area */
for (n = listhead (ospf6->area_list); n; nextnode (n))
{
o6a = (struct ospf6_area *) getdata (n);
ospf6_dbex_flood_area (lsa, o6a, from);
}
}
/* flood ospf6_lsa within appropriate scope */
void
ospf6_dbex_flood (struct ospf6_lsa *lsa, struct ospf6_neighbor *from)
{
struct ospf6_area *o6a;
struct ospf6_interface *o6i;
struct ospf6 *o6;
struct ospf6_lsa_header *lsa_header;
lsa_header = (struct ospf6_lsa_header *) lsa->lsa_hdr;
if (OSPF6_LSA_IS_SCOPE_LINKLOCAL (ntohs (lsa_header->type)))
{
o6i = (struct ospf6_interface *) lsa->scope;
assert (o6i);
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("Flood Linklocal: %s", o6i->interface->name);
ospf6_dbex_flood_linklocal (lsa, o6i, from);
}
else if (OSPF6_LSA_IS_SCOPE_AREA (ntohs (lsa_header->type)))
{
o6a = (struct ospf6_area *) lsa->scope;
assert (o6a);
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("Flood Area: %s", o6a->str);
ospf6_dbex_flood_area (lsa, o6a, from);
}
else if (OSPF6_LSA_IS_SCOPE_AS (ntohs (lsa_header->type)))
{
o6 = (struct ospf6 *) lsa->scope;
assert (o6);
if (IS_OSPF6_DUMP_DBEX)
zlog_info ("Flood AS");
ospf6_dbex_flood_as (lsa, o6, from);
}
else
{
zlog_warn ("Can't Flood %s: scope unknown", lsa->str);
}
}