From eb5d44eb8dcf25a1b328e57d1eabb1f89e3bc59b Mon Sep 17 00:00:00 2001 From: jardin Date: Tue, 23 Dec 2003 08:09:43 +0000 Subject: Initial revision --- isisd/isis_lsp.c | 2419 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 2419 insertions(+) create mode 100644 isisd/isis_lsp.c (limited to 'isisd/isis_lsp.c') diff --git a/isisd/isis_lsp.c b/isisd/isis_lsp.c new file mode 100644 index 00000000..6bfb0fd4 --- /dev/null +++ b/isisd/isis_lsp.c @@ -0,0 +1,2419 @@ +/* + * IS-IS Rout(e)ing protocol - isis_lsp.c + * LSP processing + * + * Copyright (C) 2001,2002 Sampo Saaristo + * Tampere University of Technology + * Institute of Communications Engineering + * + * This program is free software; you can redistribute it and/or modify it + * under the terms of the GNU General Public Licenseas published by the Free + * Software Foundation; either version 2 of the License, or (at your option) + * any later version. + * + * This program 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 this program; if not, write to the Free Software Foundation, Inc., + * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + */ +#include +#include +#include +#include + +#include "linklist.h" +#include "thread.h" +#include "vty.h" +#include "stream.h" +#include "memory.h" +#include "log.h" +#include "prefix.h" +#include "command.h" +#include "hash.h" +#include "if.h" + +#include "isisd/dict.h" +#include "isisd/isis_constants.h" +#include "isisd/isis_common.h" +#include "isisd/isis_circuit.h" +#include "isisd/isisd.h" +#include "isisd/isis_tlv.h" +#include "isisd/isis_lsp.h" +#include "isisd/isis_pdu.h" +#include "isisd/isis_dynhn.h" +#include "isisd/isis_misc.h" +#include "isisd/isis_flags.h" +#include "isisd/iso_checksum.h" +#include "isisd/isis_csm.h" +#include "isisd/isis_adjacency.h" +#include "isisd/isis_spf.h" + +#ifdef TOPOLOGY_GENERATE +#include "spgrid.h" +#endif + +#define LSP_MEMORY_PREASSIGN + +extern struct isis *isis; +extern struct thread_master *master; +extern struct host host; + +int +lsp_id_cmp (u_char *id1, u_char *id2) +{ + return memcmp (id1, id2, ISIS_SYS_ID_LEN + 2); +} + +dict_t * +lsp_db_init (void) +{ + dict_t *dict; + + dict = dict_create (DICTCOUNT_T_MAX, (dict_comp_t)lsp_id_cmp); + + return dict; +} + +struct isis_lsp * +lsp_search (u_char *id, dict_t *lspdb) +{ + dnode_t *node; + +#ifdef EXTREME_DEBUG + dnode_t *dn; + + zlog_warn("searching db"); + for (dn = dict_first(lspdb); dn; dn = dict_next(lspdb, dn)) { + zlog_warn("%s\t%pX", rawlspid_print((char *) dnode_getkey(dn)), + dnode_get(dn)); + } +#endif /* EXTREME DEBUG */ + + node = dict_lookup (lspdb, id); + + if (node) + return (struct isis_lsp *)dnode_get (node); + + return NULL; +} + +void +lsp_clear_data (struct isis_lsp *lsp) +{ + if (!lsp) + return; + + if (lsp->own_lsp) { + if (lsp->tlv_data.nlpids) + XFREE (MTYPE_ISIS_TLV, lsp->tlv_data.nlpids); + if (lsp->tlv_data.hostname) + XFREE (MTYPE_ISIS_TLV, lsp->tlv_data.hostname); + } + if (lsp->tlv_data.is_neighs) + list_delete (lsp->tlv_data.is_neighs); + if (lsp->tlv_data.area_addrs) + list_delete (lsp->tlv_data.area_addrs); + if (lsp->tlv_data.es_neighs) + list_delete (lsp->tlv_data.es_neighs); + if (lsp->tlv_data.ipv4_addrs) + list_delete (lsp->tlv_data.ipv4_addrs); + if (lsp->tlv_data.ipv4_int_reachs) + list_delete (lsp->tlv_data.ipv4_int_reachs); + if (lsp->tlv_data.ipv4_ext_reachs) + list_delete (lsp->tlv_data.ipv4_ext_reachs); +#ifdef HAVE_IPV6 + if (lsp->tlv_data.ipv6_addrs) + list_delete (lsp->tlv_data.ipv6_addrs); + if (lsp->tlv_data.ipv6_reachs) + list_delete (lsp->tlv_data.ipv6_reachs); +#endif /* HAVE_IPV6 */ + + memset (&lsp->tlv_data, 0, sizeof (struct tlvs)); + + return; +} + +void +lsp_destroy (struct isis_lsp *lsp) +{ + if (!lsp) + return; + + lsp_clear_data (lsp); + + if (LSP_FRAGMENT (lsp->lsp_header->lsp_id) == 0 && lsp->lspu.frags) { + list_delete (lsp->lspu.frags); + } + + if (lsp->pdu) + stream_free (lsp->pdu); + XFREE (MTYPE_ISIS_LSP, lsp); +} + +void +lsp_db_destroy (dict_t *lspdb) +{ + dnode_t *dnode, *next; + struct isis_lsp *lsp; + + dnode = dict_first (lspdb); + while (dnode) { + next = dict_next (lspdb, dnode); + lsp = dnode_get (dnode); + lsp_destroy (lsp); + dict_delete_free (lspdb, dnode); + dnode = next; + } + + dict_free (lspdb); + + return; +} + +/* + * Remove all the frags belonging to the given lsp + */ +void +lsp_remove_frags (struct list *frags, dict_t *lspdb) +{ + dnode_t *dnode; + struct listnode *lnode; + struct isis_lsp *lsp; + + for (lnode = listhead (frags); lnode; nextnode (lnode)) { + lsp = getdata (lnode); + dnode = dict_lookup (lspdb, lsp->lsp_header->lsp_id); + lsp_destroy (lsp); + dnode_destroy (dict_delete(lspdb, dnode)); + } + + list_delete_all_node (frags); + + return; +} + +void +lsp_search_and_destroy (u_char *id, dict_t *lspdb) +{ + dnode_t *node; + struct isis_lsp *lsp; + + node = dict_lookup (lspdb, id); + if (node) { + node = dict_delete (lspdb, node); + lsp = dnode_get (node); + /* + * If this is a zero lsp, remove all the frags now + */ + if (LSP_FRAGMENT(lsp->lsp_header->lsp_id) == 0) { + if (lsp->lspu.frags) + lsp_remove_frags (lsp->lspu.frags, lspdb); + } else { + /* + * else just remove this frag, from the zero lsps' frag list + */ + if (lsp->lspu.zero_lsp && lsp->lspu.zero_lsp->lspu.frags) + listnode_delete (lsp->lspu.zero_lsp->lspu.frags, lsp); + } + lsp_destroy (lsp); + dnode_destroy (node); + } +} + +/* + * Compares a LSP to given values + * Params are given in net order + */ +int +lsp_compare (char *areatag, struct isis_lsp *lsp, u_int32_t seq_num, + u_int16_t checksum, u_int16_t rem_lifetime) +{ + /* no point in double ntohl on seqnum */ + if (lsp->lsp_header->seq_num == seq_num && + lsp->lsp_header->checksum == checksum && + /*comparing with 0, no need to do ntohl */ + ((lsp->lsp_header->rem_lifetime == 0 && rem_lifetime == 0) || + (lsp->lsp_header->rem_lifetime != 0 && rem_lifetime != 0))) { + if (isis->debugs & DEBUG_SNP_PACKETS) { + zlog_info ("ISIS-Snp (%s): LSP %s seq 0x%08x, cksum 0x%04x," + " lifetime %us", + areatag, + rawlspid_print (lsp->lsp_header->lsp_id), + ntohl(lsp->lsp_header->seq_num), + ntohs(lsp->lsp_header->checksum), + ntohs(lsp->lsp_header->rem_lifetime) ); + zlog_info ("ISIS-Snp (%s): is equal to ours seq 0x%08x," + " cksum 0x%04x, lifetime %us", + areatag, + ntohl(seq_num), + ntohs(checksum), + ntohs(rem_lifetime)); + } + return LSP_EQUAL; + } + + if (ntohl(seq_num) >= ntohl(lsp->lsp_header->seq_num)) { + if (isis->debugs & DEBUG_SNP_PACKETS) { + zlog_info ("ISIS-Snp (%s): LSP %s seq 0x%08x, cksum 0x%04x," + " lifetime %us", + areatag, + rawlspid_print (lsp->lsp_header->lsp_id), + ntohl(seq_num), + ntohs(checksum), + ntohs(rem_lifetime )); + zlog_info ("ISIS-Snp (%s): is newer than ours seq 0x%08x, " + "cksum 0x%04x, lifetime %us", + areatag, + ntohl(lsp->lsp_header->seq_num), + ntohs(lsp->lsp_header->checksum), + ntohs(lsp->lsp_header->rem_lifetime) ); + } + return LSP_NEWER; + } + if (isis->debugs & DEBUG_SNP_PACKETS) { + zlog_info ("ISIS-Snp (%s): LSP %s seq 0x%08x, cksum 0x%04x, lifetime %us", + areatag, + rawlspid_print (lsp->lsp_header->lsp_id), + ntohl(seq_num), + ntohs(checksum), + ntohs(rem_lifetime )); + zlog_info ("ISIS-Snp (%s): is older than ours seq 0x%08x," + " cksum 0x%04x, lifetime %us", + areatag, + ntohl(lsp->lsp_header->seq_num), + ntohs(lsp->lsp_header->checksum), + ntohs(lsp->lsp_header->rem_lifetime) ); + } + + return LSP_OLDER; +} + +void +lsp_inc_seqnum (struct isis_lsp *lsp, u_int32_t seq_num) +{ + u_int32_t newseq; + + if (seq_num == 0 || ntohl (lsp->lsp_header->seq_num) > seq_num) + newseq = ntohl (lsp->lsp_header->seq_num) + 1; + else + newseq = seq_num ++; + + lsp->lsp_header->seq_num = htonl (newseq); + iso_csum_create (STREAM_DATA (lsp->pdu) + 12, + ntohs(lsp->lsp_header->pdu_len) - 12, 12); + + return; +} + +/* + * Genetates checksum for LSP and its frags + */ +void +lsp_seqnum_update (struct isis_lsp *lsp0) +{ + struct isis_lsp *lsp; + struct listnode *node; + + lsp_inc_seqnum (lsp0, 0); + + if (!lsp0->lspu.frags) + return; + + for (node = listhead (lsp0->lspu.frags); node; nextnode (node)) { + lsp = getdata (node); + lsp_inc_seqnum(lsp, 0); + } + + return; +} + +int +isis_lsp_authinfo_check (struct stream *stream, struct isis_area *area, + int pdulen, struct isis_passwd *passwd) +{ + uint32_t expected = 0, found; + struct tlvs tlvs; + int retval = 0; + + expected |= TLVFLAG_AUTH_INFO; + retval = parse_tlvs (area->area_tag, stream->data + + ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN, + pdulen - ISIS_FIXED_HDR_LEN + - ISIS_LSP_HDR_LEN, + &expected, &found, &tlvs); + if (retval || !(found & TLVFLAG_AUTH_INFO)) + return 1; /* Auth fail (parsing failed or no auth-tlv)*/ + + return authentication_check (passwd, &tlvs.auth_info); +} + +void +lsp_update_data (struct isis_lsp *lsp, struct stream *stream, + struct isis_area *area) +{ + uint32_t expected = 0,found; + int retval; + + /* copying only the relevant part of our stream */ + lsp->pdu = stream_new (stream->endp); + lsp->pdu->putp = stream->putp; + lsp->pdu->getp = stream->getp; + lsp->pdu->endp = stream->endp; + memcpy (lsp->pdu->data, stream->data, stream->endp); + + /* setting pointers to the correct place */ + lsp->isis_header = (struct isis_fixed_hdr *)(STREAM_DATA(lsp->pdu)); + lsp->lsp_header = (struct isis_link_state_hdr *)(STREAM_DATA(lsp->pdu) + + ISIS_FIXED_HDR_LEN); + lsp->age_out = ZERO_AGE_LIFETIME; + lsp->installed = time(NULL); + /* + * Get LSP data i.e. TLVs + */ + expected |= TLVFLAG_AUTH_INFO; + expected |= TLVFLAG_AREA_ADDRS; + expected |= TLVFLAG_IS_NEIGHS; + if ((lsp->lsp_header->lsp_bits & 3) == 3) /* a level 2 LSP */ + expected |= TLVFLAG_PARTITION_DESIG_LEVEL2_IS; + expected |= TLVFLAG_NLPID; + if (area->dynhostname) + expected |= TLVFLAG_DYN_HOSTNAME; + if (area->newmetric) { + expected |= TLVFLAG_TE_IS_NEIGHS; + expected |= TLVFLAG_TE_IPV4_REACHABILITY; + expected |= TLVFLAG_TE_ROUTER_ID; + } + expected |= TLVFLAG_IPV4_ADDR; + expected |= TLVFLAG_IPV4_INT_REACHABILITY; + expected |= TLVFLAG_IPV4_EXT_REACHABILITY; +#ifdef HAVE_IPV6 + expected |= TLVFLAG_IPV6_ADDR; + expected |= TLVFLAG_IPV6_REACHABILITY; +#endif /* HAVE_IPV6 */ + + retval = parse_tlvs (area->area_tag, lsp->pdu->data + + ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN, + ntohs(lsp->lsp_header->pdu_len) - ISIS_FIXED_HDR_LEN + - ISIS_LSP_HDR_LEN, &expected, &found, &lsp->tlv_data); + + if (found & TLVFLAG_DYN_HOSTNAME) { + if (area->dynhostname) + isis_dynhn_insert (lsp->lsp_header->lsp_id, lsp->tlv_data.hostname, + (lsp->lsp_header->lsp_bits & LSPBIT_IST) == + IS_LEVEL_1_AND_2 ? IS_LEVEL_2 : + (lsp->lsp_header->lsp_bits & LSPBIT_IST)); + } + +} + +void +lsp_update (struct isis_lsp *lsp, struct isis_link_state_hdr *lsp_hdr, + struct stream *stream, struct isis_area *area) +{ + + /* free the old lsp data*/ + XFREE (MTYPE_STREAM_DATA, lsp->pdu); + lsp_clear_data (lsp); + + /* rebuild the lsp data */ + lsp_update_data (lsp, stream, area); + + /* set the new values for lsp header */ + memcpy (lsp->lsp_header, lsp_hdr, ISIS_LSP_HDR_LEN); + +} + + +/* creation of LSP directly from what we received */ +struct isis_lsp * +lsp_new_from_stream_ptr (struct stream *stream, + u_int16_t pdu_len, struct isis_lsp *lsp0, + struct isis_area *area) +{ + struct isis_lsp *lsp; + + lsp = XMALLOC (MTYPE_ISIS_LSP, sizeof (struct isis_lsp)); + memset (lsp, 0, sizeof (struct isis_lsp)); + + lsp_update_data (lsp, stream, area); + + if (lsp0 == NULL) { + /* + * zero lsp -> create the list for fragments + */ + lsp->lspu.frags = list_new (); + } else { + /* + * a fragment -> set the backpointer and add this to zero lsps frag list + */ + lsp->lspu.zero_lsp = lsp0; + listnode_add (lsp0->lspu.frags, lsp); + } + + return lsp; +} + +struct isis_lsp * +lsp_new (u_char *lsp_id, u_int16_t rem_lifetime, u_int32_t seq_num, + u_int8_t lsp_bits, u_int16_t checksum, int level) +{ + struct isis_lsp *lsp; + + lsp = XMALLOC (MTYPE_ISIS_LSP, sizeof (struct isis_lsp)); + if (!lsp) { + /* FIXME: set lspdbol bit */ + zlog_warn ("lsp_new(): out of memory"); + return NULL; + } + memset (lsp, 0, sizeof (struct isis_lsp)); +#ifdef LSP_MEMORY_PREASSIGN + lsp->pdu = stream_new (1514); /*Should be minimal mtu? yup...*/ +#else + /* We need to do realloc on TLVs additions*/ + lsp->pdu = malloc (ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN); +#endif /* LSP_MEMORY_PREASSIGN */ + if (LSP_FRAGMENT (lsp_id) == 0) + lsp->lspu.frags = list_new (); + lsp->isis_header = (struct isis_fixed_hdr*)(STREAM_DATA(lsp->pdu)); + lsp->lsp_header = (struct isis_link_state_hdr*) + (STREAM_DATA(lsp->pdu) + ISIS_FIXED_HDR_LEN); + + /* at first we fill the FIXED HEADER */ + (level == 1) ? fill_fixed_hdr (lsp->isis_header, L1_LINK_STATE): + fill_fixed_hdr (lsp->isis_header, L2_LINK_STATE); + + /* now for the LSP HEADER */ + /* Minimal LSP PDU size */ + lsp->lsp_header->pdu_len = htons (ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN); + memcpy (lsp->lsp_header->lsp_id, lsp_id, ISIS_SYS_ID_LEN + 2); + lsp->lsp_header->checksum = checksum; /* Provided in network order */ + lsp->lsp_header->seq_num = htonl (seq_num); + lsp->lsp_header->rem_lifetime = htons (rem_lifetime); + lsp->lsp_header->lsp_bits = lsp_bits; + lsp->level = level; + lsp->age_out = ZERO_AGE_LIFETIME; + + stream_set_putp (lsp->pdu, ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN); + + /* #ifdef EXTREME_DEBUG */ + /* logging */ + zlog_info ("New LSP with ID %s-%02x-%02x seqnum %08x", sysid_print (lsp_id), + LSP_PSEUDO_ID (lsp->lsp_header->lsp_id), + LSP_FRAGMENT (lsp->lsp_header->lsp_id), + ntohl (lsp->lsp_header->seq_num)); + /* #endif EXTREME DEBUG */ + + return lsp; +} + +void +lsp_insert (struct isis_lsp *lsp, dict_t *lspdb) +{ + dict_alloc_insert (lspdb, lsp->lsp_header->lsp_id, lsp); +} + +/* + * Build a list of LSPs with non-zero ht bounded by start and stop ids + */ +void +lsp_build_list_nonzero_ht (u_char *start_id, u_char *stop_id, + struct list *list, dict_t *lspdb) +{ + dnode_t *first, *last, *curr; + + first = dict_lower_bound (lspdb, start_id); + if (!first) + return; + + last = dict_upper_bound (lspdb, stop_id); + + curr = first; + + if (((struct isis_lsp *)(curr->dict_data))->lsp_header->rem_lifetime) + listnode_add (list, first->dict_data); + + while (curr) { + curr = dict_next (lspdb, curr); + if (curr && + ((struct isis_lsp *)(curr->dict_data))->lsp_header->rem_lifetime) + listnode_add (list, curr->dict_data); + if (curr == last) + break; + } + + return; +} + +/* + * Build a list of all LSPs bounded by start and stop ids + */ +void +lsp_build_list (u_char *start_id, u_char *stop_id, + struct list *list, dict_t *lspdb) +{ + dnode_t *first, *last, *curr; + + first = dict_lower_bound (lspdb, start_id); + if (!first) + return; + + last = dict_upper_bound (lspdb, stop_id); + + curr = first; + + listnode_add (list, first->dict_data); + + while (curr) { + curr = dict_next (lspdb, curr); + if (curr) + listnode_add (list, curr->dict_data); + if (curr == last) + break; + } + + return; +} + +/* + * Build a list of LSPs with SSN flag set for the given circuit + */ +void +lsp_build_list_ssn (struct isis_circuit *circuit, struct list *list, + dict_t *lspdb) +{ + dnode_t *dnode, *next; + struct isis_lsp *lsp; + + dnode = dict_first (lspdb); + while (dnode != NULL) { + next = dict_next (lspdb, dnode); + lsp = dnode_get (dnode); + if (ISIS_CHECK_FLAG (lsp->SSNflags, circuit)) + listnode_add (list, lsp); + dnode = next; + } + + return; +} + +void +lsp_set_time (struct isis_lsp *lsp) +{ + assert (lsp); + + if (lsp->lsp_header->rem_lifetime == 0) { + if (lsp->age_out != 0) lsp->age_out--; + return; + } + + /* If we are turning 0 */ + /* ISO 10589 - 7.3.16.4 first paragraph */ + + if (ntohs (lsp->lsp_header->rem_lifetime) == 1) { + /* 7.3.16.4 a) set SRM flags on all */ + ISIS_FLAGS_SET_ALL (lsp->SRMflags); + /* 7.3.16.4 b) retain only the header FIXME */ + /* 7.3.16.4 c) record the time to purge FIXME (other way to do it)*/ + } + + lsp->lsp_header->rem_lifetime = + htons (ntohs (lsp->lsp_header->rem_lifetime) - 1); +} + +void +lspid_print (u_char *lsp_id, u_char *trg, char dynhost, char frag) +{ + struct isis_dynhn *dyn = NULL; + u_char id [SYSID_STRLEN]; + + if (dynhost) + dyn = dynhn_find_by_id (lsp_id); + else + dyn = NULL; + + if (dyn) + sprintf (id, "%.14s", dyn->name.name); + else if (!memcmp (isis->sysid, lsp_id, ISIS_SYS_ID_LEN) & dynhost) + sprintf (id, "%.14s", host.name); + else { + memcpy(id, sysid_print (lsp_id), 15); + } + if (frag) + sprintf (trg, "%s.%02x-%02x", id, LSP_PSEUDO_ID(lsp_id), + LSP_FRAGMENT(lsp_id)); + else + sprintf (trg, "%s.%02x", id, LSP_PSEUDO_ID(lsp_id)); +} + +/* Convert the lsp attribute bits to attribute string */ +char * +lsp_bits2string (u_char *lsp_bits) { + + char *pos = lsp_bits_string; + + if(!*lsp_bits) + return " none"; + + /* we only focus on the default metric */ + pos += sprintf (pos, "%d/", + ISIS_MASK_LSP_ATT_DEFAULT_BIT(*lsp_bits) ? + 1 : 0); + + pos += sprintf (pos, "%d/", + ISIS_MASK_LSP_PARTITION_BIT(*lsp_bits) ? + 1 : 0); + + pos += sprintf (pos, "%d", + ISIS_MASK_LSP_OL_BIT(*lsp_bits) ? + 1 : 0); + + *(pos) = '\0'; + + return lsp_bits_string; + +} + +/* this function prints the lsp on show isis database */ +void +lsp_print (dnode_t *node, struct vty *vty, char dynhost) +{ + struct isis_lsp *lsp = dnode_get(node); + u_char LSPid[255]; + + lspid_print (lsp->lsp_header->lsp_id, LSPid, dynhost, 1); + vty_out (vty, "%-21s%c ", LSPid,lsp->own_lsp?'*':' '); + vty_out (vty, "0x%08x ", ntohl(lsp->lsp_header->seq_num)); + vty_out (vty, "0x%04x ", ntohs(lsp->lsp_header->checksum)); + + if (ntohs(lsp->lsp_header->rem_lifetime) == 0) + vty_out (vty, " (%2u)",lsp->age_out); + else + vty_out (vty, "%5u", ntohs(lsp->lsp_header->rem_lifetime)); + + vty_out (vty, " %s%s", + lsp_bits2string(&lsp->lsp_header->lsp_bits), + VTY_NEWLINE); +} + +void +lsp_print_detail (dnode_t *node, struct vty *vty, char dynhost) +{ + struct isis_lsp *lsp = dnode_get (node); + struct area_addr *area_addr; + char nlpidstr[2]; + int i; + struct listnode *lnode; + struct is_neigh *is_neigh; + struct te_is_neigh *te_is_neigh; + struct ipv4_reachability *ipv4_reach; + struct in_addr *ipv4_addr; + struct te_ipv4_reachability *te_ipv4_reach; +#ifdef HAVE_IPV6 + struct ipv6_reachability *ipv6_reach; + struct in6_addr in6; +#endif + u_char LSPid[255]; + u_char hostname[255]; + u_char buff[BUFSIZ]; + u_int32_t now,helper; + u_char ipv4_reach_prefix[20]; + u_char ipv4_reach_mask[20]; + u_char ipv4_address[20]; + + lspid_print (lsp->lsp_header->lsp_id, LSPid, dynhost, 1); + lsp_print(node, vty, dynhost); + + /* for all area address */ + if (lsp->tlv_data.area_addrs) { + LIST_LOOP (lsp->tlv_data.area_addrs, area_addr, lnode) { + vty_out (vty, " Area Address: %s%s", + isonet_print (area_addr->area_addr, area_addr->addr_len), + VTY_NEWLINE); + } + } + + /* for the nlpid tlv */ + if (lsp->tlv_data.nlpids) { + for (i = 0; i < lsp->tlv_data.nlpids->count; i++) { + switch (lsp->tlv_data.nlpids->nlpids[i]) { + case NLPID_IP: + case NLPID_IPV6: + vty_out (vty, " NLPID: 0x%X%s", + lsp->tlv_data.nlpids->nlpids[i], + VTY_NEWLINE); + break; + default: + vty_out (vty, " NLPID: %s%s", + "unknown", + VTY_NEWLINE); + break; + } + } + } + + /* for the hostname tlv */ + if (lsp->tlv_data.hostname) { + bzero (hostname, sizeof (hostname)); + memcpy (hostname, lsp->tlv_data.hostname->name, + lsp->tlv_data.hostname->namelen); + vty_out (vty, " Hostname: %s%s", hostname, VTY_NEWLINE); + } + + if (lsp->tlv_data.ipv4_addrs) { + LIST_LOOP(lsp->tlv_data.ipv4_addrs, ipv4_addr, lnode) { + memcpy (ipv4_address, inet_ntoa (*ipv4_addr), sizeof (ipv4_addr)); + vty_out (vty, " IP: %s%s", + ipv4_address, + VTY_NEWLINE); + } + } + + /* for the internal reachable tlv */ + if (lsp->tlv_data.ipv4_int_reachs) + LIST_LOOP(lsp->tlv_data.ipv4_int_reachs, ipv4_reach, lnode) { + memcpy (ipv4_reach_prefix, inet_ntoa (ipv4_reach->prefix), sizeof (ipv4_reach_prefix)); + memcpy (ipv4_reach_mask, inet_ntoa (ipv4_reach->mask), sizeof (ipv4_reach_mask)); + vty_out (vty, " Matric: %d IP %s %s%s", + ipv4_reach->metrics.metric_default, + ipv4_reach_prefix, + ipv4_reach_mask, + VTY_NEWLINE); + } + + /* for the IS neighbor tlv */ + if (lsp->tlv_data.is_neighs) { + LIST_LOOP(lsp->tlv_data.is_neighs,is_neigh,lnode) { + lspid_print (is_neigh->neigh_id, LSPid, dynhost, 0); + vty_out (vty, " Metric: %d IS %s%s", + is_neigh->metrics.metric_default, + LSPid, + VTY_NEWLINE); + } + } + +/* FIXME: Other tlvs such as te or external tlv will be added later */ +#if 0 + vty_out (vty, "%s %s %c%s", + VTY_NEWLINE, + LSPid, + lsp->own_lsp ? '*' : ' ', + VTY_NEWLINE); + + vty_out (vty, " Sequence: 0x%08x Checksum: 0x%04x Lifetime: ", + ntohl (lsp->lsp_header->seq_num), + ntohs (lsp->lsp_header->checksum)); + + if (ntohs (lsp->lsp_header->rem_lifetime) == 0) + vty_out (vty, " (%2u) ", lsp->age_out); + else + vty_out (vty, "%5u ", ntohs (lsp->lsp_header->rem_lifetime)); + + vty_out (vty, "%s Attributes:%s", + VTY_NEWLINE, + lsp_bits2string (&lsp->lsp_header->lsp_bits)); + + /* if this is a self originated LSP then print + * the generation time plus when we sent it last + * if it is a non self-originated LSP then print the + * time when the LSP has been installed + */ + + if (lsp->own_lsp) { + + now = time (NULL); + helper = now - lsp->last_generated; + if (!lsp->last_generated) + helper = 0; + + vty_out (vty, ", Generated: %s ago", + time2string (helper)); + + now = time (NULL); + helper = now - lsp->last_sent; + if (!lsp->last_sent) + helper = 0; + + vty_out (vty, ", Last sent: %s ago", + time2string (helper)); + } else { + now = time (NULL); + helper = now - lsp->installed; + if (!lsp->installed) + helper = 0; + + vty_out (vty, ", Installed: %s ago", + time2string (helper)); + + } + + vty_out (vty, "%s", VTY_NEWLINE); + + if (lsp->tlv_data.nlpids) { + vty_out (vty, " Speaks: %s%s", nlpid2string (lsp->tlv_data.nlpids), + VTY_NEWLINE); + } + + if (lsp->tlv_data.router_id) { + vty_out (vty, " Router ID: %s%s", + inet_ntoa (lsp->tlv_data.router_id->id), VTY_NEWLINE); + } + + if (lsp->tlv_data.is_neighs) + LIST_LOOP(lsp->tlv_data.is_neighs,is_neigh,lnode) { + lspid_print (is_neigh->neigh_id, LSPid, dynhost, 0); + vty_out (vty, " IS %s, Metric: %d%s", + LSPid, + is_neigh->metrics.metric_default, + VTY_NEWLINE); + } + + if (lsp->tlv_data.te_is_neighs) + LIST_LOOP(lsp->tlv_data.te_is_neighs,te_is_neigh,lnode) { + /* FIXME: metric display is wrong */ + lspid_print (te_is_neigh->neigh_id, LSPid, dynhost, 0); + vty_out (vty, " extd-IS %s, Metric: %d%s", + LSPid, + te_is_neigh->te_metric[0], + VTY_NEWLINE); + } + + if (lsp->tlv_data.ipv4_int_reachs) + LIST_LOOP(lsp->tlv_data.ipv4_int_reachs, ipv4_reach, lnode) { + vty_out (vty, " int-IP %s/%d, Metric: %d%s", + inet_ntoa (ipv4_reach->prefix), + ip_masklen (ipv4_reach->mask), + ipv4_reach->metrics.metric_default, + VTY_NEWLINE); + } + + if (lsp->tlv_data.ipv4_ext_reachs) + LIST_LOOP(lsp->tlv_data.ipv4_ext_reachs,ipv4_reach,lnode) { + vty_out (vty, " ext-IP %s/%d, Metric: %d%s", + inet_ntoa(ipv4_reach->prefix), + ip_masklen(ipv4_reach->mask), + ipv4_reach->metrics.metric_default, + VTY_NEWLINE); + } + + if (lsp->tlv_data.te_ipv4_reachs) + LIST_LOOP(lsp->tlv_data.te_ipv4_reachs,te_ipv4_reach,lnode) { + vty_out (vty, " extd-IP %s/%d, Metric: %d%s", + inet_ntoa ( newprefix2inaddr (&te_ipv4_reach->prefix_start, + te_ipv4_reach->control)), + te_ipv4_reach->control & 0x3F, + ntohl (te_ipv4_reach->te_metric), + VTY_NEWLINE); + } + +#ifdef HAVE_IPV6 + if (lsp->tlv_data.ipv6_reachs) + LIST_LOOP(lsp->tlv_data.ipv6_reachs, ipv6_reach, lnode) { + memcpy (in6.s6_addr, ipv6_reach->prefix, 16); + inet_ntop (AF_INET6, &in6, buff, BUFSIZ); + if ((ipv6_reach->control_info && + CTRL_INFO_DISTRIBUTION) == DISTRIBUTION_INTERNAL) + vty_out (vty, " int-IPv6 %s/%d, Metric: %d%s", + buff, + ipv6_reach->prefix_len, + ntohl (ipv6_reach->metric), + VTY_NEWLINE); + else + vty_out (vty, " ext-IPv6 %s/%d, Metric: %d%s", + buff, + ipv6_reach->prefix_len, + ntohl (ipv6_reach->metric), + VTY_NEWLINE); + + } +#endif + if (lsp->tlv_data.hostname) { + memset (hostname, 0, sizeof (hostname)); + memcpy (hostname, lsp->tlv_data.hostname->name, + lsp->tlv_data.hostname->namelen); + vty_out (vty, " Hostname: %s%s", hostname, VTY_NEWLINE); + } +#endif + return; +} + +/* print all the lsps info in the local lspdb */ +int +lsp_print_all (struct vty *vty, dict_t *lspdb, char detail, char dynhost) +{ + + dnode_t *node = dict_first(lspdb), *next; + int lsp_count = 0; + + /* print the title, for both modes */ + vty_out (vty, "LSP ID LSP Seq Num LSP Checksum " + "LSP Holdtime ATT/P/OL%s", VTY_NEWLINE); + + if (detail == ISIS_UI_LEVEL_BRIEF) { + while (node != NULL) { + /* dict_contains (lspdb, node); */ /* I think it is unnecessary, so I comment it out */ + next = dict_next (lspdb, node); + lsp_print (node, vty, dynhost); + node = next; + lsp_count++; + } + } else if (detail == ISIS_UI_LEVEL_DETAIL) { + while (node != NULL) { + next = dict_next (lspdb, node); + lsp_print_detail (node, vty, dynhost); + node = next; + lsp_count++; + } + } + + return lsp_count; +} + +/* this function reallocate memory to an lsp pdu, with an additional + * size of memory, it scans the lsp and moves all pointers the + * way they should */ +u_char * +lsppdu_realloc (struct isis_lsp *lsp, int memorytype, int size) +{ + u_char *retval; + + retval = STREAM_DATA(lsp->pdu) + ntohs(lsp->lsp_header->pdu_len); +#ifdef LSP_MEMORY_PREASSIGN + lsp->lsp_header->pdu_len = htons(ntohs(lsp->lsp_header->pdu_len) + size); + return retval; +#else /* otherwise we have to move all pointers */ + u_char *newpdu; + newpdu = stream_new (ntohs (lsp->lsp_header->pdu_len) + size); + memcpy (STREAM_DATA (newpdu), STREAM_DATA(lsp->pdu), + ntohs (lsp->lsp_header->pdu_len)); + XFREE (memorytype, lsp->pdu); + lsp->pdu = newpdu; + lsp->isis_header = (struct isis_fixed_hdr*)STREAM_DATA(lsp->pdu); + lsp->lsp_header = (struct isis_link_state_hdr*) + (STREAM_DATA(lsp->pdu) + ISIS_FIXED_HDR_LEN); + htons (ntohs (lsp->lsp_header->pdu_len) += size); + return STREAM_DATA(lsp->pdu) + (lsp->lsp_header->pdu_len - size); +#endif /* LSP_MEMORY_PREASSIGN */ +} + + +#if 0 /* Saving the old one just in case :) */ +/* + * Builds the lsp->tlv_data + * and writes the tlvs into lsp->pdu + */ +void +lsp_build_nonpseudo (struct isis_lsp *lsp, struct isis_area *area) +{ + struct is_neigh *is_neigh; + struct listnode *node, *ipnode; + int level = lsp->level; + struct isis_circuit *circuit; + struct prefix_ipv4 *ipv4; + struct ipv4_reachability *ipreach; + struct isis_adjacency *nei; +#ifdef HAVE_IPV6 + struct prefix_ipv6 *ipv6; + struct ipv6_reachability *ip6reach; +#endif /* HAVE_IPV6 */ + + /* + * First add the tlvs related to area + */ + + /* Area addresses */ + if (lsp->tlv_data.area_addrs == NULL) + lsp->tlv_data.area_addrs = list_new (); + list_add_list (lsp->tlv_data.area_addrs, area->area_addrs); + /* Protocols Supported */ + if (area->ip_circuits > 0 +#ifdef HAVE_IPV6 + || area->ipv6_circuits > 0 +#endif /* HAVE_IPV6 */ + ) + { + lsp->tlv_data.nlpids = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct nlpids)); + lsp->tlv_data.nlpids->count = 0; + if (area->ip_circuits > 0) { + lsp->tlv_data.nlpids->count++; + lsp->tlv_data.nlpids->nlpids[0] = NLPID_IP; + } +#ifdef HAVE_IPV6 + if (area->ipv6_circuits > 0) { + lsp->tlv_data.nlpids->count++; + lsp->tlv_data.nlpids->nlpids[lsp->tlv_data.nlpids->count - 1] = + NLPID_IPV6; + } +#endif /* HAVE_IPV6 */ + } + /* Dynamic Hostname */ + if (area->dynhostname) { + lsp->tlv_data.hostname = XMALLOC (MTYPE_ISIS_TLV, + sizeof (struct hostname)); + memcpy (&lsp->tlv_data.hostname->name, host.name, strlen(host.name)); + lsp->tlv_data.hostname->namelen = strlen (host.name); + } +#ifdef TOPOLOGY_GENERATE + /* + * If we have a topology in this area, we need to connect this lsp to + * the first topology lsp + */ + if ((area->topology) && (level == 1)) { + if (lsp->tlv_data.is_neighs == NULL) + lsp->tlv_data.is_neighs = list_new (); + is_neigh = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct is_neigh)); + memset (is_neigh, 0, sizeof (struct is_neigh)); + memcpy (&is_neigh->neigh_id, area->topology_baseis, ISIS_SYS_ID_LEN); + /* connected to the first */ + is_neigh->neigh_id[ISIS_SYS_ID_LEN-1] = (0x01); + /* this is actually the same system, why mess the SPT */ + is_neigh->metrics.metric_default = 0; + is_neigh->metrics.metric_delay = METRICS_UNSUPPORTED; + is_neigh->metrics.metric_expense = METRICS_UNSUPPORTED; + is_neigh->metrics.metric_error = METRICS_UNSUPPORTED; + listnode_add (lsp->tlv_data.is_neighs, is_neigh); + + } +#endif + + /* + * Then add tlvs related to circuits + */ + for (node = listhead (area->circuit_list); node; nextnode (node)) { + circuit = getdata (node); + if (circuit->state != C_STATE_UP) + continue; + + /* + * Add IPv4 internal reachability of this circuit + */ + if (circuit->ip_router && circuit->ip_addrs && + circuit->ip_addrs->count > 0) { + if (lsp->tlv_data.ipv4_int_reachs == NULL) { + lsp->tlv_data.ipv4_int_reachs = list_new (); + lsp->tlv_data.ipv4_int_reachs->del = free_tlv; + } + for (ipnode = listhead (circuit->ip_addrs); ipnode; nextnode (ipnode)) { + ipv4 = getdata (ipnode); + ipreach = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct ipv4_reachability)); + ipreach->metrics = circuit->metrics[level - 1]; + ipreach->prefix = ipv4->prefix; + masklen2ip (ipv4->prefixlen, &ipreach->mask); + listnode_add (lsp->tlv_data.ipv4_int_reachs, ipreach); + } + } +#ifdef HAVE_IPV6 + /* + * Add IPv6 reachability of this circuit + */ + if (circuit->ipv6_router && circuit->ipv6_non_link && + circuit->ipv6_non_link->count > 0) { + if (lsp->tlv_data.ipv6_reachs == NULL) { + lsp->tlv_data.ipv6_reachs = list_new (); + lsp->tlv_data.ipv6_reachs->del = free_tlv; + } + for (ipnode = listhead (circuit->ipv6_non_link); ipnode; + nextnode (ipnode)) { + ipv6 = getdata (ipnode); + ip6reach = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct ipv6_reachability)); + memset (ip6reach, 0, sizeof (struct ipv6_reachability)); + ip6reach->metric = htonl(circuit->metrics[level - 1].metric_default); + ip6reach->control_info = 0; + ip6reach->prefix_len = ipv6->prefixlen; + memcpy (&ip6reach->prefix, ipv6->prefix.s6_addr, + (ipv6->prefixlen + 7) / 8); + listnode_add (lsp->tlv_data.ipv6_reachs, ip6reach); + } + } +#endif /* HAVE_IPV6 */ + + switch (circuit->circ_type) { + case CIRCUIT_T_BROADCAST: + if (level & circuit->circuit_is_type) { + if (lsp->tlv_data.is_neighs == NULL) { + lsp->tlv_data.is_neighs = list_new (); + lsp->tlv_data.is_neighs->del = free_tlv; + } + is_neigh = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct is_neigh)); + memset (is_neigh, 0, sizeof (struct is_neigh)); + if (level == 1) + memcpy (&is_neigh->neigh_id, + circuit->u.bc.l1_desig_is, ISIS_SYS_ID_LEN + 1); + else + memcpy (&is_neigh->neigh_id, + circuit->u.bc.l2_desig_is, ISIS_SYS_ID_LEN + 1); + is_neigh->metrics = circuit->metrics[level - 1]; + listnode_add (lsp->tlv_data.is_neighs, is_neigh); + } + break; + case CIRCUIT_T_P2P: + nei = circuit->u.p2p.neighbor; + if (nei && (level & nei->circuit_t)) { + if (lsp->tlv_data.is_neighs == NULL) { + lsp->tlv_data.is_neighs = list_new (); + lsp->tlv_data.is_neighs->del = free_tlv; + } + is_neigh = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct is_neigh)); + memset (is_neigh, 0, sizeof (struct is_neigh)); + memcpy (&is_neigh->neigh_id, nei->sysid, ISIS_SYS_ID_LEN); + is_neigh->metrics = circuit->metrics[level - 1]; + listnode_add (lsp->tlv_data.is_neighs, is_neigh); + } + break; + case CIRCUIT_T_STATIC_IN: + zlog_warn ("lsp_area_create: unsupported circuit type"); + break; + case CIRCUIT_T_STATIC_OUT: + zlog_warn ("lsp_area_create: unsupported circuit type"); + break; + case CIRCUIT_T_DA: + zlog_warn ("lsp_area_create: unsupported circuit type"); + break; + default: + zlog_warn ("lsp_area_create: unknown circuit type"); + } + } + + stream_set_putp (lsp->pdu, ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN); + + if (lsp->tlv_data.nlpids) + tlv_add_nlpid (lsp->tlv_data.nlpids, lsp->pdu); + if (lsp->tlv_data.hostname) + tlv_add_dynamic_hostname (lsp->tlv_data.hostname, lsp->pdu); + if (lsp->tlv_data.area_addrs && listcount (lsp->tlv_data.area_addrs) > 0 ) + tlv_add_area_addrs (lsp->tlv_data.area_addrs, lsp->pdu); + if (lsp->tlv_data.is_neighs && listcount (lsp->tlv_data.is_neighs) > 0) + tlv_add_is_neighs (lsp->tlv_data.is_neighs, lsp->pdu); + if (lsp->tlv_data.ipv4_int_reachs && + listcount (lsp->tlv_data.ipv4_int_reachs) > 0) + tlv_add_ipv4_reachs (lsp->tlv_data.ipv4_int_reachs, lsp->pdu); +#ifdef HAVE_IPV6 + if (lsp->tlv_data.ipv6_reachs && + listcount (lsp->tlv_data.ipv6_reachs) > 0) + tlv_add_ipv6_reachs (lsp->tlv_data.ipv6_reachs, lsp->pdu); +#endif /* HAVE_IPV6 */ + + lsp->lsp_header->pdu_len = htons (stream_get_putp (lsp->pdu)); + + return; +} +#endif + +#define FRAG_THOLD(S,T) \ +((STREAM_SIZE(S)*T)/100) + +/* stream*, area->lsp_frag_threshold, increment */ +#define FRAG_NEEDED(S,T,I) \ + (STREAM_SIZE(S)-STREAM_REMAIN(S)+(I) > FRAG_THOLD(S,T)) + +void +lsp_tlv_fit (struct isis_lsp *lsp, struct list **from, struct list **to, + int tlvsize, int frag_thold, + int tlv_build_func(struct list *, struct stream *)) +{ + int count, i; + + /* can we fit all ? */ + if (!FRAG_NEEDED(lsp->pdu, frag_thold, + listcount(*from) * tlvsize + 2)) { + tlv_build_func (*from, lsp->pdu); + *to = *from; + *from = NULL; + } else if (!FRAG_NEEDED(lsp->pdu, frag_thold, tlvsize + 2)) { + /* fit all we can */ + count = FRAG_THOLD(lsp->pdu,frag_thold) - 2 - + (STREAM_SIZE(lsp->pdu) - STREAM_REMAIN(lsp->pdu)); + if (count) + count = count / tlvsize; + for (i = 0; i < count; i++) { + listnode_add (*to, getdata(listhead(*from))); + listnode_delete(*from, getdata(listhead(*from))); + } + tlv_build_func (*to, lsp->pdu); + } + lsp->lsp_header->pdu_len = htons (stream_get_putp (lsp->pdu)); + return; +} + +struct isis_lsp * +lsp_next_frag (u_char frag_num, struct isis_lsp *lsp0, struct isis_area *area, + int level ) +{ + struct isis_lsp *lsp; + u_char frag_id[ISIS_SYS_ID_LEN + 2]; + + memcpy (frag_id, lsp0->lsp_header->lsp_id, ISIS_SYS_ID_LEN + 1); + LSP_FRAGMENT (frag_id) = frag_num; + lsp = lsp_search (frag_id, area->lspdb[level - 1]); + if (lsp) { + /* + * Clear the TLVs, but inherit the authinfo + */ + lsp_clear_data (lsp); + if (lsp0->tlv_data.auth_info.type) { + memcpy (&lsp->tlv_data.auth_info, &lsp->tlv_data.auth_info, + sizeof (struct isis_passwd)); + tlv_add_authinfo (lsp->tlv_data.auth_info.type, + lsp->tlv_data.auth_info.len, + lsp->tlv_data.auth_info.passwd, lsp->pdu); + } + return lsp; + } + lsp = lsp_new (frag_id, area->max_lsp_lifetime[level - 1], 0, area->is_type, + 0, level); + lsp->own_lsp = 1; + lsp_insert (lsp, area->lspdb[level-1]); + listnode_add (lsp0->lspu.frags, lsp); + lsp->lspu.zero_lsp = lsp0; + /* + * Copy the authinfo from zero LSP + */ + if (lsp0->tlv_data.auth_info.type) { + memcpy (&lsp->tlv_data.auth_info, &lsp->tlv_data.auth_info, + sizeof (struct isis_passwd)); + tlv_add_authinfo (lsp->tlv_data.auth_info.type, + lsp->tlv_data.auth_info.len, + lsp->tlv_data.auth_info.passwd, lsp->pdu); + } + return lsp; +} + +/* + * Builds the LSP data part. This func creates a new frag whenever + * area->lsp_frag_threshold is exceeded. + */ +#if 1 +void +lsp_build_nonpseudo (struct isis_lsp *lsp, struct isis_area *area) +{ + struct is_neigh *is_neigh; + struct listnode *node, *ipnode; + int level = lsp->level; + struct isis_circuit *circuit; + struct prefix_ipv4 *ipv4; + struct ipv4_reachability *ipreach; + struct isis_adjacency *nei; +#ifdef HAVE_IPV6 + struct prefix_ipv6 *ipv6; + struct ipv6_reachability *ip6reach; +#endif /* HAVE_IPV6 */ + struct tlvs tlv_data; + struct isis_lsp *lsp0 = lsp; + struct isis_passwd *passwd; + + /* + * First add the tlvs related to area + */ + + /* Area addresses */ + if (lsp->tlv_data.area_addrs == NULL) + lsp->tlv_data.area_addrs = list_new (); + list_add_list (lsp->tlv_data.area_addrs, area->area_addrs); + /* Protocols Supported */ + if (area->ip_circuits > 0 +#ifdef HAVE_IPV6 + || area->ipv6_circuits > 0 +#endif /* HAVE_IPV6 */ + ) + { + lsp->tlv_data.nlpids = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct nlpids)); + lsp->tlv_data.nlpids->count = 0; + if (area->ip_circuits > 0) { + lsp->tlv_data.nlpids->count++; + lsp->tlv_data.nlpids->nlpids[0] = NLPID_IP; + } +#ifdef HAVE_IPV6 + if (area->ipv6_circuits > 0) { + lsp->tlv_data.nlpids->count++; + lsp->tlv_data.nlpids->nlpids[lsp->tlv_data.nlpids->count - 1] = + NLPID_IPV6; + } +#endif /* HAVE_IPV6 */ + } + /* Dynamic Hostname */ + if (area->dynhostname) { + lsp->tlv_data.hostname = XMALLOC (MTYPE_ISIS_TLV, + sizeof (struct hostname)); + memcpy (lsp->tlv_data.hostname->name, host.name, strlen (host.name)); + lsp->tlv_data.hostname->namelen = strlen (host.name); + } + + /* + * Building the zero lsp + */ + stream_set_putp (lsp->pdu, ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN); + /* + * Add the authentication info if its present + */ + (level == 1) ? (passwd = &area->area_passwd) : + (passwd = &area->domain_passwd); + if (passwd->type) { + memcpy (&lsp->tlv_data.auth_info, passwd, sizeof (struct isis_passwd)); + tlv_add_authinfo (passwd->type, passwd->len, + passwd->passwd, lsp->pdu); + } + if (lsp->tlv_data.nlpids) + tlv_add_nlpid (lsp->tlv_data.nlpids, lsp->pdu); + if (lsp->tlv_data.hostname) + tlv_add_dynamic_hostname (lsp->tlv_data.hostname, lsp->pdu); + if (lsp->tlv_data.area_addrs && listcount (lsp->tlv_data.area_addrs) > 0 ) + tlv_add_area_addrs (lsp->tlv_data.area_addrs, lsp->pdu); + + memset (&tlv_data, 0, sizeof (struct tlvs)); + /* + * Then build lists of tlvs related to circuits + */ + for (node = listhead (area->circuit_list); node; nextnode (node)) { + circuit = getdata (node); + if (circuit->state != C_STATE_UP) + continue; + + /* + * Add IPv4 internal reachability of this circuit + */ + if (circuit->ip_router && circuit->ip_addrs && + circuit->ip_addrs->count > 0) { + if (tlv_data.ipv4_int_reachs == NULL) { + tlv_data.ipv4_int_reachs = list_new (); + } + for (ipnode = listhead (circuit->ip_addrs); ipnode; nextnode (ipnode)) { + ipv4 = getdata (ipnode); + ipreach = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct ipv4_reachability)); + ipreach->metrics = circuit->metrics[level - 1]; + ipreach->prefix = ipv4->prefix; + masklen2ip (ipv4->prefixlen, &ipreach->mask); + listnode_add (tlv_data.ipv4_int_reachs, ipreach); + } + + } +#ifdef HAVE_IPV6 + /* + * Add IPv6 reachability of this circuit + */ + if (circuit->ipv6_router && circuit->ipv6_non_link && + circuit->ipv6_non_link->count > 0) { + + if (tlv_data.ipv6_reachs == NULL) { + tlv_data.ipv6_reachs = list_new (); + } + for (ipnode = listhead (circuit->ipv6_non_link); ipnode; + nextnode (ipnode)) { + ipv6 = getdata (ipnode); + ip6reach = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct ipv6_reachability)); + memset (ip6reach, 0, sizeof (struct ipv6_reachability)); + ip6reach->metric = htonl(circuit->metrics[level - 1].metric_default); + ip6reach->control_info = 0; + ip6reach->prefix_len = ipv6->prefixlen; + memcpy (ip6reach->prefix, ipv6->prefix.s6_addr, + (ipv6->prefixlen + 7) / 8); + listnode_add (tlv_data.ipv6_reachs, ip6reach); + } + } +#endif /* HAVE_IPV6 */ + + switch (circuit->circ_type) { + case CIRCUIT_T_BROADCAST: + if (level & circuit->circuit_is_type) { + if (tlv_data.is_neighs == NULL) { + tlv_data.is_neighs = list_new (); + } + is_neigh = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct is_neigh)); + memset (is_neigh, 0, sizeof (struct is_neigh)); + if (level == 1) + memcpy (is_neigh->neigh_id, + circuit->u.bc.l1_desig_is, ISIS_SYS_ID_LEN + 1); + else + memcpy (is_neigh->neigh_id, + circuit->u.bc.l2_desig_is, ISIS_SYS_ID_LEN + 1); + is_neigh->metrics = circuit->metrics[level - 1]; + listnode_add (tlv_data.is_neighs, is_neigh); + } + break; + case CIRCUIT_T_P2P: + nei = circuit->u.p2p.neighbor; + if (nei && (level & nei->circuit_t)) { + if (tlv_data.is_neighs == NULL) { + tlv_data.is_neighs = list_new (); + tlv_data.is_neighs->del = free_tlv; + } + is_neigh = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct is_neigh)); + memset (is_neigh, 0, sizeof (struct is_neigh)); + memcpy (is_neigh->neigh_id, nei->sysid, ISIS_SYS_ID_LEN); + is_neigh->metrics = circuit->metrics[level - 1]; + listnode_add (tlv_data.is_neighs, is_neigh); + } + break; + case CIRCUIT_T_STATIC_IN: + zlog_warn ("lsp_area_create: unsupported circuit type"); + break; + case CIRCUIT_T_STATIC_OUT: + zlog_warn ("lsp_area_create: unsupported circuit type"); + break; + case CIRCUIT_T_DA: + zlog_warn ("lsp_area_create: unsupported circuit type"); + break; + default: + zlog_warn ("lsp_area_create: unknown circuit type"); + } + } + + while (tlv_data.ipv4_int_reachs && listcount(tlv_data.ipv4_int_reachs)) { + if (lsp->tlv_data.ipv4_int_reachs == NULL) + lsp->tlv_data.ipv4_int_reachs = list_new (); + lsp_tlv_fit (lsp, &tlv_data.ipv4_int_reachs, + &lsp->tlv_data.ipv4_int_reachs, + IPV4_REACH_LEN, area->lsp_frag_threshold, + tlv_add_ipv4_reachs); + if (tlv_data.ipv4_int_reachs && listcount(tlv_data.ipv4_int_reachs)) + lsp = lsp_next_frag (LSP_FRAGMENT(lsp->lsp_header->lsp_id) + 1, + lsp0, area, level); + } + +#ifdef HAVE_IPV6 + while (tlv_data.ipv6_reachs && listcount(tlv_data.ipv6_reachs)) { + if (lsp->tlv_data.ipv6_reachs == NULL) + lsp->tlv_data.ipv6_reachs = list_new (); + lsp_tlv_fit (lsp, &tlv_data.ipv6_reachs, + &lsp->tlv_data.ipv6_reachs, + IPV6_REACH_LEN, area->lsp_frag_threshold, + tlv_add_ipv6_reachs); + if (tlv_data.ipv6_reachs && listcount(tlv_data.ipv6_reachs)) + lsp = lsp_next_frag (LSP_FRAGMENT(lsp->lsp_header->lsp_id) + 1, + lsp0, area, level); + } +#endif /* HAVE_IPV6 */ + + while (tlv_data.is_neighs && listcount(tlv_data.is_neighs)) { + if (lsp->tlv_data.is_neighs == NULL) + lsp->tlv_data.is_neighs = list_new (); + lsp_tlv_fit (lsp, &tlv_data.is_neighs, + &lsp->tlv_data.is_neighs, + IS_NEIGHBOURS_LEN, area->lsp_frag_threshold, + tlv_add_is_neighs); + if (tlv_data.is_neighs && listcount(tlv_data.is_neighs)) + lsp = lsp_next_frag (LSP_FRAGMENT(lsp->lsp_header->lsp_id) + 1, + lsp0, area, level); + } + + + return; +} +#endif + +void +build_lsp_data (struct isis_lsp *lsp, struct isis_area *area) +{ + struct list *circuit_list = area->circuit_list; + struct isis_circuit *circuit; + u_char *tlv_ptr; + struct is_neigh *is_neigh; + + + /* add our nlpids */ + /* the 2 is for the TL plus 1 for the nlpid*/ + tlv_ptr = lsppdu_realloc (lsp,MTYPE_ISIS_TLV, 3); + *tlv_ptr = PROTOCOLS_SUPPORTED; /* Type */ + *(tlv_ptr+1) = 1; /* one protocol */ +#ifdef HAVE_IPV6 /*dunno if its right*/ + *(tlv_ptr+2) = NLPID_IPV6; +#else + *(tlv_ptr+2) = NLPID_IP; +#endif /* HAVE_IPV6 */ + + /* we should add our areas here + * FIXME: we need to figure out which should be added? Adj? All? First? */ + + /* first, lets add ourselves to the IS neighbours info */ + /* the 2 is for the TL plus 1 for the virtual field*/ + tlv_ptr = lsppdu_realloc(lsp,MTYPE_ISIS_TLV, 3); + *tlv_ptr = IS_NEIGHBOURS; /* Type */ + *(tlv_ptr+2) = 0; /* virtual is zero */ + lsp->tlv_data.is_neighs = list_new (); /* new list of is_neighbours */ + /* assign space for the is_neigh at the pdu end */ + is_neigh = (struct is_neigh*) lsppdu_realloc(lsp,MTYPE_ISIS_TLV, + sizeof(struct is_neigh)); + /* add this node to our list */ + listnode_add (lsp->tlv_data.is_neighs, is_neigh); + /* FIXME: Do we need our designated address here? */ + memcpy (&is_neigh->neigh_id, isis->sysid, ISIS_SYS_ID_LEN + 1); + /* FIXME: Where should we really get our own LSPs metrics from? */ + circuit = (struct isis_circuit*)listhead(circuit_list); + /* is_neigh->metrics = circuit->metrics[lsp->level -1];*/ + /* Length */ + *(tlv_ptr+1)=(lsp->tlv_data.is_neighs->count * sizeof(struct is_neigh) +1); + + /* FIXME: scan for adjencecies and add them */ + + /* FIXME: add reachability info */ + + /* adding dynamic hostname if needed*/ + if (area->dynhostname) { + tlv_ptr = lsppdu_realloc (lsp,MTYPE_ISIS_TLV, 2); /* the 2 is for the TL */ + *tlv_ptr = DYNAMIC_HOSTNAME; /* Type */ + *(tlv_ptr+1) = strlen (host.name); /* Length */ + lsp->tlv_data.hostname = (struct hostname *) + (lsppdu_realloc(lsp, + MTYPE_ISIS_TLV, + /* the -1 is to fit the length in the struct */ + strlen (host.name)) - 1); + memcpy (lsp->tlv_data.hostname->name, host.name, strlen(host.name)); + } + +} + +/* + * 7.3.7 Generation on non-pseudonode LSPs + */ +int +lsp_generate_non_pseudo (struct isis_area *area, int level) { + + struct isis_lsp *oldlsp, *newlsp; + u_int32_t seq_num = 0; + u_char lspid[ISIS_SYS_ID_LEN + 2]; + + memset (&lspid, 0, ISIS_SYS_ID_LEN + 2); + memcpy (&lspid, isis->sysid, ISIS_SYS_ID_LEN); + + /* only builds the lsp if the area shares the level */ + if ((area->is_type & level) == level) { + oldlsp = lsp_search (lspid, area->lspdb[level-1]); + if (oldlsp) { + seq_num = ntohl (oldlsp->lsp_header->seq_num); + lsp_search_and_destroy (oldlsp->lsp_header->lsp_id, + area->lspdb[level-1]); + /* FIXME: we should actually initiate a purge */ + } + newlsp = lsp_new (lspid, area->max_lsp_lifetime[level-1], seq_num, + area->is_type, 0, level); + newlsp->own_lsp = 1; + + lsp_insert (newlsp, area->lspdb[level-1]); + /* build_lsp_data (newlsp, area); */ + lsp_build_nonpseudo (newlsp, area); + /* time to calculate our checksum */ + lsp_seqnum_update (newlsp); + } + + + /* DEBUG_ADJ_PACKETS */ + if (isis->debugs & DEBUG_ADJ_PACKETS) { + /* FIXME: is this place right? fix missing info */ + zlog_info ("ISIS-Upd (%s): Building L%d LSP", + area->area_tag, level); + } + + return ISIS_OK; +} + +/* + * 7.3.9 Generation of level 1 LSPs (non-pseudonode) + */ +int +lsp_l1_generate (struct isis_area *area) +{ + + area->t_lsp_refresh[0] = thread_add_timer (master, lsp_refresh_l1, area, + MAX_LSP_GEN_INTERVAL); + + return lsp_generate_non_pseudo (area, 1); +} + + +/* + * 7.3.9 Generation of level 2 LSPs (non-pseudonode) + */ +int +lsp_l2_generate (struct isis_area *area) +{ + + area->t_lsp_refresh[1] = thread_add_timer (master, lsp_refresh_l2, area, + MAX_LSP_GEN_INTERVAL); + + return lsp_generate_non_pseudo (area, 2); +} + +int +lsp_non_pseudo_regenerate (struct isis_area *area, int level) +{ + dict_t *lspdb = area->lspdb[level - 1]; + struct isis_lsp *lsp, *frag; + struct listnode *node; + u_char lspid[ISIS_SYS_ID_LEN + 2]; + + memset (lspid, 0, ISIS_SYS_ID_LEN + 2); + memcpy (lspid, isis->sysid, ISIS_SYS_ID_LEN); + + lsp = lsp_search (lspid, lspdb); + + if (!lsp) { + zlog_err ("ISIS-Upd (%s): lsp_non_pseudo_regenerate(): no L%d LSP found!", + area->area_tag, + level); + + return ISIS_ERROR; + } + + lsp_clear_data (lsp); + lsp_build_nonpseudo (lsp, area); + lsp->lsp_header->rem_lifetime = htons (isis_jitter + (area->max_lsp_lifetime[level-1], + MAX_AGE_JITTER)); + lsp_seqnum_update (lsp); + + if (isis->debugs & DEBUG_UPDATE_PACKETS) { + zlog_info ("ISIS-Upd (%s): refreshing our L%d LSP %s, " + "seq 0x%08x, cksum 0x%04x lifetime %us", + area->area_tag, + level, + rawlspid_print (lsp->lsp_header->lsp_id), + ntohl(lsp->lsp_header->seq_num), + ntohs(lsp->lsp_header->checksum), + ntohs(lsp->lsp_header->rem_lifetime)); + } + + lsp->last_generated = time (NULL); + area->lsp_regenerate_pending[level - 1] = 0; + ISIS_FLAGS_SET_ALL (lsp->SRMflags); + for (node = listhead (lsp->lspu.frags); node; nextnode(node)) { + frag = getdata (node); + frag->lsp_header->rem_lifetime = htons (isis_jitter + (area->max_lsp_lifetime[level-1], + MAX_AGE_JITTER)); + ISIS_FLAGS_SET_ALL (frag->SRMflags); + } + + if (area->ip_circuits) + isis_spf_schedule (area, level); +#ifdef HAVE_IPV6 + if (area->ipv6_circuits) + isis_spf_schedule6 (area, level); +#endif + return ISIS_OK; +} + + +/* + * Done at least every MAX_LSP_GEN_INTERVAL. Search own LSPs, update holding + * time and set SRM + */ +int +lsp_refresh_l1 (struct thread *thread) +{ + struct isis_area *area; + unsigned long ref_time; + + area = THREAD_ARG (thread); + assert (area); + + area->t_lsp_refresh[0] = NULL; + if (area->is_type & IS_LEVEL_1) + lsp_non_pseudo_regenerate (area, 1); + + ref_time = area->lsp_refresh[0] > MAX_LSP_GEN_INTERVAL ? + MAX_LSP_GEN_INTERVAL : area->lsp_refresh[0]; + + area->t_lsp_refresh[0] = thread_add_timer (master, lsp_refresh_l1, area, + isis_jitter (ref_time, + MAX_AGE_JITTER)); + return ISIS_OK; +} + +int +lsp_refresh_l2 (struct thread *thread) +{ + struct isis_area *area; + unsigned long ref_time; + + area = THREAD_ARG (thread); + assert (area); + + area->t_lsp_refresh[1] = NULL; + if (area->is_type & IS_LEVEL_2) + lsp_non_pseudo_regenerate (area, 2); + + ref_time = area->lsp_refresh[1] > MAX_LSP_GEN_INTERVAL ? + MAX_LSP_GEN_INTERVAL : area->lsp_refresh[1]; + + + area->t_lsp_refresh[1] = thread_add_timer (master, lsp_refresh_l2, area, + isis_jitter (ref_time, + MAX_AGE_JITTER)); + return ISIS_OK; +} + + +/* + * Something has changed -> regenerate LSP + */ + +int +lsp_l1_regenerate (struct thread *thread) +{ + struct isis_area *area; + + area = THREAD_ARG (thread); + area->lsp_regenerate_pending[0] = 0; + + return lsp_non_pseudo_regenerate (area, 1); +} + +int +lsp_l2_regenerate (struct thread *thread) +{ + struct isis_area *area; + + area = THREAD_ARG (thread); + area->lsp_regenerate_pending[1] = 0; + + return lsp_non_pseudo_regenerate (area, 2); +} + +int +lsp_regenerate_schedule (struct isis_area *area) +{ + struct isis_lsp *lsp; + u_char id[ISIS_SYS_ID_LEN + 2]; + time_t now, diff; + memcpy(id, isis->sysid, ISIS_SYS_ID_LEN); + LSP_PSEUDO_ID(id) = LSP_FRAGMENT(id) = 0; + now = time (NULL); + /* + * First level 1 + */ + if (area->is_type & IS_LEVEL_1) { + lsp = lsp_search (id, area->lspdb[0]); + if (!lsp || area->lsp_regenerate_pending[0]) + goto L2; + /* + * Throttle avoidance + */ + diff = now - lsp->last_generated; + if (diff < MIN_LSP_GEN_INTERVAL) { + area->lsp_regenerate_pending[0] = 1; + thread_add_timer (master, lsp_l1_regenerate, area, + MIN_LSP_GEN_INTERVAL - diff); + return ISIS_OK; + } else + lsp_non_pseudo_regenerate (area, 1); + } + /* + * then 2 + */ + L2: + if (area->is_type & IS_LEVEL_2) { + lsp = lsp_search (id, area->lspdb[1]); + if (!lsp || area->lsp_regenerate_pending[1]) + return ISIS_OK; + /* + * Throttle avoidance + */ + diff = now - lsp->last_generated; + if (diff < MIN_LSP_GEN_INTERVAL) { + area->lsp_regenerate_pending[1] = 1; + thread_add_timer (master, lsp_l2_regenerate, area, + MIN_LSP_GEN_INTERVAL - diff); + return ISIS_OK; + } else + lsp_non_pseudo_regenerate (area, 2); + } + + return ISIS_OK; +} + +/* + * Funcs for pseudonode LSPs + */ + +/* + * 7.3.8 and 7.3.10 Generation of level 1 and 2 pseudonode LSPs + */ +void +lsp_build_pseudo (struct isis_lsp *lsp, struct isis_circuit *circuit, + int level) +{ + struct isis_adjacency *adj; + struct is_neigh *is_neigh; + struct es_neigh *es_neigh; + struct list *adj_list; + struct listnode *node; + struct isis_passwd *passwd; + + assert (circuit); + assert (circuit->circ_type == CIRCUIT_T_BROADCAST); + + if (!circuit->u.bc.is_dr[level - 1]) + return; /* we are not DIS on this circuit */ + + lsp->level = level; + if (level == 1) + lsp->lsp_header->lsp_bits |= IS_LEVEL_1; + else + lsp->lsp_header->lsp_bits |= IS_LEVEL_2; + + /* + * add self to IS neighbours + */ + if (lsp->tlv_data.is_neighs == NULL) { + lsp->tlv_data.is_neighs = list_new (); + lsp->tlv_data.is_neighs->del = free_tlv; + } + is_neigh = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct is_neigh)); + memset (is_neigh, 0, sizeof (struct is_neigh)); + memcpy (&is_neigh->neigh_id, isis->sysid, ISIS_SYS_ID_LEN); + listnode_add (lsp->tlv_data.is_neighs, is_neigh); + + adj_list = list_new(); + isis_adj_build_up_list (circuit->u.bc.adjdb[level-1], adj_list); + + for (node = listhead (adj_list); node; nextnode (node)){ + adj = getdata (node); + if (adj->circuit_t & level) { + if ((level == 1 && adj->sys_type == ISIS_SYSTYPE_L1_IS) || + (level == 1 && adj->sys_type == ISIS_SYSTYPE_L2_IS && + adj->adj_usage == ISIS_ADJ_LEVEL1AND2) || + (level == 2 && adj->sys_type == ISIS_SYSTYPE_L2_IS)) { + /* an IS neighbour -> add it */ + is_neigh = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct is_neigh)); + memset (is_neigh, 0, sizeof (struct is_neigh)); + memcpy (&is_neigh->neigh_id, adj->sysid, ISIS_SYS_ID_LEN); + listnode_add (lsp->tlv_data.is_neighs, is_neigh); + } else if (level == 1 && adj->sys_type == ISIS_SYSTYPE_ES) { + /* an ES neigbour add it, if we are building level 1 LSP */ + /* FIXME: the tlv-format is hard to use here */ + if (lsp->tlv_data.es_neighs == NULL) { + lsp->tlv_data.es_neighs = list_new (); + lsp->tlv_data.es_neighs->del = free_tlv; + } + es_neigh = XMALLOC (MTYPE_ISIS_TLV, sizeof (struct es_neigh)); + memset (es_neigh, 0, sizeof (struct es_neigh)); + memcpy (&es_neigh->first_es_neigh, adj->sysid, ISIS_SYS_ID_LEN); + listnode_add (lsp->tlv_data.es_neighs, is_neigh); + } + } + } + + stream_set_putp (lsp->pdu, ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN); + /* + * Add the authentication info if it's present + */ + (level == 1) ? (passwd = &circuit->area->area_passwd) : + (passwd = &circuit->area->domain_passwd); + if (passwd->type) { + memcpy (&lsp->tlv_data.auth_info, passwd, sizeof (struct isis_passwd)); + tlv_add_authinfo (passwd->type, passwd->len, + passwd->passwd, lsp->pdu); + } + + if (lsp->tlv_data.is_neighs && listcount (lsp->tlv_data.is_neighs) > 0) + tlv_add_is_neighs (lsp->tlv_data.is_neighs, lsp->pdu); + + if (lsp->tlv_data.es_neighs && listcount (lsp->tlv_data.es_neighs) > 0) + tlv_add_is_neighs (lsp->tlv_data.es_neighs, lsp->pdu); + + lsp->lsp_header->pdu_len = htons (stream_get_putp (lsp->pdu)); + iso_csum_create (STREAM_DATA (lsp->pdu) + 12, + ntohs(lsp->lsp_header->pdu_len) - 12, 12); + + list_delete (adj_list); + + return; +} + +int +lsp_pseudo_regenerate (struct isis_circuit *circuit, int level) +{ + dict_t *lspdb = circuit->area->lspdb[level - 1]; + struct isis_lsp *lsp; + u_char lsp_id[ISIS_SYS_ID_LEN + 2]; + + memcpy (lsp_id, isis->sysid, ISIS_SYS_ID_LEN); + LSP_PSEUDO_ID(lsp_id) = circuit->circuit_id; + LSP_FRAGMENT(lsp_id) = 0; + + lsp = lsp_search (lsp_id, lspdb); + + if (!lsp) { + zlog_err ("lsp_pseudo_regenerate(): no l%d LSP %s found!", level, + rawlspid_print(lsp_id)); + return ISIS_ERROR; + } + lsp_clear_data (lsp); + + lsp_build_pseudo (lsp, circuit, level); + + lsp->lsp_header->rem_lifetime = + htons (isis_jitter (circuit->area->max_lsp_lifetime[level - 1], + MAX_AGE_JITTER)); + + lsp_inc_seqnum (lsp, 0); + + if (isis->debugs & DEBUG_UPDATE_PACKETS) { + zlog_info ("ISIS-Upd (%s): refreshing pseudo LSP L%d %s", + circuit->area->area_tag, level, + rawlspid_print (lsp->lsp_header->lsp_id)); + } + + lsp->last_generated = time (NULL); + ISIS_FLAGS_SET_ALL (lsp->SRMflags); + + return ISIS_OK; +} + + +int +lsp_l1_refresh_pseudo (struct thread *thread) +{ + struct isis_circuit *circuit; + int retval; + unsigned long ref_time; + + circuit = THREAD_ARG(thread); + + if (!circuit->u.bc.is_dr[0]) + return ISIS_ERROR; /* FIXME: purge and such */ + + retval = lsp_pseudo_regenerate (circuit, 1); + + ref_time = circuit->area->lsp_refresh[0] > MAX_LSP_GEN_INTERVAL ? + MAX_LSP_GEN_INTERVAL : circuit->area->lsp_refresh[0]; + + circuit->u.bc.t_refresh_pseudo_lsp[0] = + thread_add_timer (master, lsp_l1_refresh_pseudo, circuit, + isis_jitter (ref_time, + MAX_AGE_JITTER)); + return retval; +} + +int +lsp_l1_pseudo_generate (struct isis_circuit *circuit) +{ + struct isis_lsp *lsp; + u_char id[ISIS_SYS_ID_LEN + 2]; + unsigned long ref_time; + + memcpy(id, isis->sysid, ISIS_SYS_ID_LEN); + LSP_FRAGMENT(id) = 0; + LSP_PSEUDO_ID(id) = circuit->circuit_id; + + /* + * If for some reason have a pseudo LSP in the db already -> regenerate + */ + if (lsp_search (id, circuit->area->lspdb[0])) + return lsp_pseudo_regenerate (circuit, 1); + lsp = lsp_new (id, circuit->area->max_lsp_lifetime[0], + 1, circuit->area->is_type, 0, 1); + + lsp_build_pseudo (lsp, circuit, 1); + + lsp->own_lsp = 1; + lsp_insert (lsp, circuit->area->lspdb[0]); + ISIS_FLAGS_SET_ALL (lsp->SRMflags); + + ref_time = circuit->area->lsp_refresh[0] > MAX_LSP_GEN_INTERVAL ? + MAX_LSP_GEN_INTERVAL : circuit->area->lsp_refresh[0]; + + + circuit->u.bc.t_refresh_pseudo_lsp[0] = + thread_add_timer (master, lsp_l1_refresh_pseudo, circuit, + isis_jitter (ref_time, + MAX_AGE_JITTER)); + + return lsp_regenerate_schedule (circuit->area); +} + +int +lsp_l2_refresh_pseudo (struct thread *thread) +{ + struct isis_circuit *circuit; + int retval; + unsigned long ref_time; + circuit = THREAD_ARG(thread); + + if (!circuit->u.bc.is_dr[1]) + return ISIS_ERROR; /* FIXME: purge and such */ + + retval = lsp_pseudo_regenerate (circuit, 2); + + ref_time = circuit->area->lsp_refresh[1] > MAX_LSP_GEN_INTERVAL ? + MAX_LSP_GEN_INTERVAL : circuit->area->lsp_refresh[1]; + + + circuit->u.bc.t_refresh_pseudo_lsp[1] = + thread_add_timer (master, lsp_l2_refresh_pseudo, circuit, + isis_jitter (ref_time, + MAX_AGE_JITTER)); + return retval; +} + + +int +lsp_l2_pseudo_generate (struct isis_circuit *circuit) +{ + struct isis_lsp *lsp; + u_char id[ISIS_SYS_ID_LEN + 2]; + unsigned long ref_time; + + memcpy(id, isis->sysid, ISIS_SYS_ID_LEN); + LSP_FRAGMENT(id) = 0; + LSP_PSEUDO_ID(id) = circuit->circuit_id; + + if (lsp_search (id, circuit->area->lspdb[1])) + return lsp_pseudo_regenerate (circuit, 2); + + lsp = lsp_new (id, circuit->area->max_lsp_lifetime[1], + 1, circuit->area->is_type, 0, 2); + + lsp_build_pseudo (lsp, circuit, 2); + + ref_time = circuit->area->lsp_refresh[1] > MAX_LSP_GEN_INTERVAL ? + MAX_LSP_GEN_INTERVAL : circuit->area->lsp_refresh[1]; + + + lsp->own_lsp = 1; + lsp_insert (lsp, circuit->area->lspdb[1]); + ISIS_FLAGS_SET_ALL (lsp->SRMflags); + + circuit->u.bc.t_refresh_pseudo_lsp[1] = + thread_add_timer (master, lsp_l2_refresh_pseudo, circuit, + isis_jitter (ref_time, + MAX_AGE_JITTER)); + + return lsp_regenerate_schedule (circuit->area); +} + + + +/* + * Walk through LSPs for an area + * - set remaining lifetime + * - set LSPs with SRMflag set for sending + */ +int +lsp_tick (struct thread *thread) +{ + struct isis_area *area; + struct isis_circuit *circuit; + struct isis_lsp *lsp; + struct list *lsp_list; + struct listnode *lspnode, *cnode; + dnode_t *dnode, *dnode_next; + int level; + + lsp_list = list_new (); + + area = THREAD_ARG (thread); + assert (area); + area->t_tick = thread_add_timer (master, lsp_tick, area, 1); + + /* + * Build a list of LSPs with (any) SRMflag set + * and removed the ones that have aged out + */ + for (level = 0; level < ISIS_LEVELS; level++) { + if (area->lspdb[level] && dict_count (area->lspdb[level]) > 0) { + dnode = dict_first (area->lspdb[level]); + while (dnode != NULL) { + dnode_next = dict_next (area->lspdb[level], dnode); + lsp = dnode_get (dnode); + lsp_set_time (lsp); + if (lsp->age_out == 0) { + + zlog_info ("ISIS-Upd (%s): L%u LSP %s seq 0x%08x aged out", + area->area_tag, + lsp->level, + rawlspid_print (lsp->lsp_header->lsp_id), + ntohl(lsp->lsp_header->seq_num)); + + lsp_destroy (lsp); + dict_delete (area->lspdb[level], dnode); + } else if (flags_any_set (lsp->SRMflags)) + listnode_add (lsp_list, lsp); + dnode = dnode_next; + } + + /* + * Send LSPs on circuits indicated by the SRMflags + */ + if (listcount (lsp_list) > 0) { + for (cnode = listhead (area->circuit_list); cnode; nextnode (cnode)) { + circuit = getdata (cnode); + for (lspnode = listhead (lsp_list); lspnode; nextnode (lspnode)) { + lsp = getdata (lspnode); + if (ISIS_CHECK_FLAG (lsp->SRMflags, circuit)) { + /* FIXME: if same or elder lsp is already in lsp queue */ + listnode_add (circuit->lsp_queue, lsp); + thread_add_event (master, send_lsp, circuit, 0); + } + } + } + } + list_delete_all_node (lsp_list); + } + } + + list_delete (lsp_list); + + return ISIS_OK; +} + + +void +lsp_purge_dr (u_char *id, struct isis_circuit *circuit, int level) +{ + struct isis_lsp *lsp; + + lsp = lsp_search (id, circuit->area->lspdb[level - 1]); + + if (lsp && lsp->purged == 0) { + lsp->lsp_header->rem_lifetime = htons (0); + lsp->lsp_header->pdu_len = htons (ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN); + lsp->purged = 0; + iso_csum_create (STREAM_DATA (lsp->pdu) + 12, + ntohs(lsp->lsp_header->pdu_len) - 12, 12); + ISIS_FLAGS_SET_ALL(lsp->SRMflags); + } + + + return; +} + +/* + * Purge own LSP that is received and we don't have. + * -> Do as in 7.3.16.4 + */ +void +lsp_purge_non_exist (struct isis_link_state_hdr *lsp_hdr, + struct isis_area *area) +{ + struct isis_lsp *lsp; + + /* + * We need to create the LSP to be purged + */ + zlog_info ("LSP PURGE NON EXIST"); + lsp = XMALLOC (MTYPE_ISIS_LSP, sizeof (struct isis_lsp)); + memset (lsp, 0, sizeof (struct isis_lsp)); + /*FIXME: BUG BUG BUG! the lsp doesn't exist here!*/ + /*did smt here, maybe good probably not*/ + lsp->level = ((lsp_hdr->lsp_bits & LSPBIT_IST) == IS_LEVEL_1) ? 1 : 2; + lsp->pdu = stream_new (ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN); + lsp->isis_header = (struct isis_fixed_hdr*)STREAM_DATA(lsp->pdu); + fill_fixed_hdr (lsp->isis_header, (lsp->level == 1) ? L1_LINK_STATE + : L2_LINK_STATE); + lsp->lsp_header = (struct isis_link_state_hdr*)(STREAM_DATA(lsp->pdu) + + ISIS_FIXED_HDR_LEN); + memcpy (lsp->lsp_header, lsp_hdr, ISIS_LSP_HDR_LEN); + + /* + * Retain only LSP header + */ + lsp->lsp_header->pdu_len = htons (ISIS_FIXED_HDR_LEN + ISIS_LSP_HDR_LEN); + /* + * Set the remaining lifetime to 0 + */ + lsp->lsp_header->rem_lifetime = 0; + /* + * Put the lsp into LSPdb + */ + lsp_insert (lsp, area->lspdb[lsp->level-1]); + + /* + * Send in to whole area + */ + ISIS_FLAGS_SET_ALL (lsp->SRMflags); + + return; +} + +#ifdef TOPOLOGY_GENERATE +int +top_lsp_refresh (struct thread *thread) +{ + struct isis_lsp *lsp; + + lsp = THREAD_ARG (thread); + assert (lsp); + + lsp->t_lsp_top_ref = NULL; + + lsp->lsp_header->rem_lifetime = htons (isis_jitter(MAX_AGE,MAX_AGE_JITTER)); + lsp->lsp_header->seq_num = htonl(ntohl(lsp->lsp_header->seq_num) +1); + + ISIS_FLAGS_SET_ALL (lsp->SRMflags); + if (isis->debugs & DEBUG_UPDATE_PACKETS) { + zlog_info ("ISIS-Upd (): refreshing Topology L1 %s", + rawlspid_print (lsp->lsp_header->lsp_id)); + } + + /* time to calculate our checksum */ + iso_csum_create (STREAM_DATA (lsp->pdu) + 12, + ntohs(lsp->lsp_header->pdu_len) - 12, 12); + + lsp->t_lsp_top_ref = thread_add_timer (master, top_lsp_refresh, lsp, + isis_jitter (MAX_LSP_GEN_INTERVAL, + MAX_LSP_GEN_JITTER)); + + return ISIS_OK; +} + +void +generate_topology_lsps (struct isis_area *area) +{ + struct listnode *node; + int i, max = 0; + struct arc *arc; + u_char lspid[ISIS_SYS_ID_LEN + 2]; + struct isis_lsp *lsp; + + /* first we find the maximal node */ + LIST_LOOP (area->topology, arc, node) { + if (arc->from_node > max) max = arc->from_node; + if (arc->to_node > max) max = arc->to_node; + } + + + for (i = 1; i < (max+1); i++) { + memcpy (lspid,area->topology_baseis,ISIS_SYS_ID_LEN); + LSP_PSEUDO_ID (lspid) = 0x00; + LSP_FRAGMENT (lspid) = 0x00; + lspid[ISIS_SYS_ID_LEN-1] = (i & 0xFF); + lspid[ISIS_SYS_ID_LEN-2] = ((i >> 8) & 0xFF); + + lsp = lsp_new (lspid, isis_jitter (area->max_lsp_lifetime[0], + MAX_AGE_JITTER), 1, IS_LEVEL_1, 0, 1); + lsp->from_topology = 1; + /* creating data based on topology */ + build_topology_lsp_data (lsp,area,i); + /* time to calculate our checksum */ + iso_csum_create (STREAM_DATA (lsp->pdu) + 12, + ntohs(lsp->lsp_header->pdu_len) - 12, 12); + lsp->t_lsp_top_ref = thread_add_timer (master, top_lsp_refresh, lsp, + isis_jitter(MAX_LSP_GEN_INTERVAL, + MAX_LSP_GEN_JITTER)); + + ISIS_FLAGS_SET_ALL(lsp->SRMflags); + lsp_insert (lsp,area->lspdb[0]); + + } +} + +void +remove_topology_lsps (struct isis_area *area) +{ + struct isis_lsp *lsp; + dnode_t *dnode, *dnode_next; + + dnode = dict_first (area->lspdb[0]); + while (dnode != NULL) { + dnode_next = dict_next (area->lspdb[0], dnode); + lsp = dnode_get (dnode); + if (lsp->from_topology) { + thread_cancel(lsp->t_lsp_top_ref); + lsp_destroy (lsp); + dict_delete (area->lspdb[0], dnode); + } + dnode = dnode_next; + } +} + +void +build_topology_lsp_data (struct isis_lsp *lsp, struct isis_area *area, + int lsp_top_num) +{ + struct listnode *node; + struct arc *arc; + u_char *tlv_ptr; + struct is_neigh *is_neigh; + int to_lsp = 0; + char buff[200]; + + /* add our nlpids */ + /* the 2 is for the TL plus 1 for the nlpid*/ + tlv_ptr = lsppdu_realloc (lsp,MTYPE_ISIS_TLV, 3); + *tlv_ptr = PROTOCOLS_SUPPORTED; /* Type */ + *(tlv_ptr+1) = 1; /* one protocol */ + *(tlv_ptr+2) = NLPID_IP; + lsp->tlv_data.nlpids = (struct nlpids*)(tlv_ptr+1); + + /* first, lets add the tops */ + /* the 2 is for the TL plus 1 for the virtual field*/ + tlv_ptr = lsppdu_realloc (lsp ,MTYPE_ISIS_TLV, 3); + *tlv_ptr = IS_NEIGHBOURS; /* Type */ + *(tlv_ptr+1) = 1; /* this is the virtual char len*/ + *(tlv_ptr+2) = 0; /* virtual is zero */ + lsp->tlv_data.is_neighs = list_new (); /* new list of is_neighbours */ + + /* add reachability for this IS for simulated 1 */ + if (lsp_top_num == 1) { + /* assign space for the is_neigh at the pdu end */ + is_neigh = (struct is_neigh*) lsppdu_realloc(lsp, MTYPE_ISIS_TLV, + sizeof(struct is_neigh)); + /* add this node to our list */ + listnode_add (lsp->tlv_data.is_neighs, is_neigh); + memcpy (&is_neigh->neigh_id, isis->sysid, ISIS_SYS_ID_LEN); + LSP_PSEUDO_ID (is_neigh->neigh_id) = 0x00; + is_neigh->metrics.metric_default = 0x00; /* no special reason */ + is_neigh->metrics.metric_delay = METRICS_UNSUPPORTED; + is_neigh->metrics.metric_expense = METRICS_UNSUPPORTED; + is_neigh->metrics.metric_error = METRICS_UNSUPPORTED; + /* don't forget the length */ + *(tlv_ptr+1) += IS_NEIGHBOURS_LEN; /* the -1 is the virtual */ + /* no need to check for fragging here, it is a lonely is_reach */ + } + + /* addding is reachabilities */ + LIST_LOOP (area->topology, arc, node) { + if ((arc->from_node == lsp_top_num) || + (arc->to_node == lsp_top_num)) { + if (arc->to_node == lsp_top_num) to_lsp = arc->from_node; + if (arc->from_node == lsp_top_num) to_lsp = arc->to_node; + + /* if the length here is about to cross the FF limit, we reTLV */ + if (*(tlv_ptr+1) >= (0xFF - IS_NEIGHBOURS_LEN)) { + /* retlv */ + /* the 2 is for the TL plus 1 for the virtual field*/ + tlv_ptr = lsppdu_realloc(lsp,MTYPE_ISIS_TLV, 3); + *tlv_ptr = IS_NEIGHBOURS; /* Type */ + *(tlv_ptr+1) = 1; /* this is the virtual char len*/ + *(tlv_ptr+2) = 0; /* virtual is zero */ + } + /* doing this here assures us that we won't add an "empty" tlv */ + /* assign space for the is_neigh at the pdu end */ + is_neigh = (struct is_neigh*) lsppdu_realloc (lsp, MTYPE_ISIS_TLV, + sizeof(struct is_neigh)); + /* add this node to our list */ + listnode_add (lsp->tlv_data.is_neighs, is_neigh); + memcpy (&is_neigh->neigh_id, area->topology_baseis, ISIS_SYS_ID_LEN); + LSP_PSEUDO_ID (is_neigh->neigh_id) = 0x00; + is_neigh->neigh_id[ISIS_SYS_ID_LEN-1] = (to_lsp & 0xFF); + is_neigh->neigh_id[ISIS_SYS_ID_LEN-2] = ((to_lsp >> 8) & 0xFF); + is_neigh->metrics.metric_default = arc->distance; + is_neigh->metrics.metric_delay = METRICS_UNSUPPORTED; + is_neigh->metrics.metric_expense = METRICS_UNSUPPORTED; + is_neigh->metrics.metric_error = METRICS_UNSUPPORTED; + /* don't forget the length */ + *(tlv_ptr+1) += IS_NEIGHBOURS_LEN; /* the -1 is the virtual */ + } + } + + /* adding dynamic hostname if needed*/ + if (area->dynhostname) { + memset (buff,0x00,200); + sprintf (buff,"feedme%d",lsp_top_num); + tlv_ptr = lsppdu_realloc (lsp,MTYPE_ISIS_TLV, 2); /* the 2 is for the TL */ + *tlv_ptr = DYNAMIC_HOSTNAME; /* Type */ + *(tlv_ptr+1) = strlen (buff); /* Length */ + /* the -1 is to fit the length in the struct */ + lsp->tlv_data.hostname = (struct hostname *) + (lsppdu_realloc (lsp, MTYPE_ISIS_TLV, strlen(buff)) - 1); + memcpy (lsp->tlv_data.hostname->name, buff, strlen(buff)); + } + + /* thanks to hannes, another bug bites the dust */ + lsp->pdu->putp = ntohs(lsp->lsp_header->pdu_len); + lsp->pdu->endp = ntohs(lsp->lsp_header->pdu_len); +} +#endif /* TOPOLOGY_GENERATE */ -- cgit v1.2.1