contrib/tcpdump-3.9/print-isoclns.c

   1 /*
   2  * Copyright (c) 1992, 1993, 1994, 1995, 1996
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that: (1) source code distributions
   7  * retain the above copyright notice and this paragraph in its entirety, (2)
   8  * distributions including binary code include the above copyright notice and
   9  * this paragraph in its entirety in the documentation or other materials
  10  * provided with the distribution, and (3) all advertising materials mentioning
  11  * features or use of this software display the following acknowledgement:
  12  * ``This product includes software developed by the University of California,
  13  * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
  14  * the University nor the names of its contributors may be used to endorse
  15  * or promote products derived from this software without specific prior
  16  * written permission.
  17  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
  18  * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  19  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  20  *
  21  * Original code by Matt Thomas, Digital Equipment Corporation
  22  *
  23  * Extensively modified by Hannes Gredler (hannes@juniper.net) for more
  24  * complete IS-IS & CLNP support.
  25  */
  26
  27 #ifndef lint
  28 static const char rcsid[] _U_ =
  29     "@(#) $Header: /tcpdump/master/tcpdump/print-isoclns.c,v 1.133.2.25 2007/03/02 09:20:27 hannes Exp $ (LBL)";
  30 #endif
  31
  32 #ifdef HAVE_CONFIG_H
  33 #include "config.h"
  34 #endif
  35
  36 #include <tcpdump-stdinc.h>
  37
  38 #include <stdio.h>
  39 #include <string.h>
  40
  41 #include "interface.h"
  42 #include "addrtoname.h"
  43 #include "ethertype.h"
  44 #include "ether.h"
  45 #include "nlpid.h"
  46 #include "extract.h"
  47 #include "gmpls.h"
  48 #include "oui.h"
  49
  50 #define IPV4            1       /* AFI value */
  51 #define IPV6            2       /* AFI value */
  52
  53 /*
  54  * IS-IS is defined in ISO 10589.  Look there for protocol definitions.
  55  */
  56
  57 #define SYSTEM_ID_LEN   ETHER_ADDR_LEN
  58 #define NODE_ID_LEN     SYSTEM_ID_LEN+1
  59 #define LSP_ID_LEN      SYSTEM_ID_LEN+2
  60
  61 #define ISIS_VERSION    1
  62 #define ESIS_VERSION    1
  63 #define CLNP_VERSION    1
  64
  65 #define ISIS_PDU_TYPE_MASK      0x1F
  66 #define ESIS_PDU_TYPE_MASK      0x1F
  67 #define CLNP_PDU_TYPE_MASK      0x1F
  68 #define CLNP_FLAG_MASK          0xE0
  69 #define ISIS_LAN_PRIORITY_MASK  0x7F
  70
  71 #define ISIS_PDU_L1_LAN_IIH     15
  72 #define ISIS_PDU_L2_LAN_IIH     16
  73 #define ISIS_PDU_PTP_IIH        17
  74 #define ISIS_PDU_L1_LSP         18
  75 #define ISIS_PDU_L2_LSP         20
  76 #define ISIS_PDU_L1_CSNP        24
  77 #define ISIS_PDU_L2_CSNP        25
  78 #define ISIS_PDU_L1_PSNP        26
  79 #define ISIS_PDU_L2_PSNP        27
  80
  81 static struct tok isis_pdu_values[] = {
  82     { ISIS_PDU_L1_LAN_IIH,       "L1 Lan IIH"},
  83     { ISIS_PDU_L2_LAN_IIH,       "L2 Lan IIH"},
  84     { ISIS_PDU_PTP_IIH,          "p2p IIH"},
  85     { ISIS_PDU_L1_LSP,           "L1 LSP"},
  86     { ISIS_PDU_L2_LSP,           "L2 LSP"},
  87     { ISIS_PDU_L1_CSNP,          "L1 CSNP"},
  88     { ISIS_PDU_L2_CSNP,          "L2 CSNP"},
  89     { ISIS_PDU_L1_PSNP,          "L1 PSNP"},
  90     { ISIS_PDU_L2_PSNP,          "L2 PSNP"},
  91     { 0, NULL}
  92 };
  93
  94 /*
  95  * A TLV is a tuple of a type, length and a value and is normally used for
  96  * encoding information in all sorts of places.  This is an enumeration of
  97  * the well known types.
  98  *
  99  * list taken from rfc3359 plus some memory from veterans ;-)
 100  */
 101
 102 #define ISIS_TLV_AREA_ADDR           1   /* iso10589 */
 103 #define ISIS_TLV_IS_REACH            2   /* iso10589 */
 104 #define ISIS_TLV_ESNEIGH             3   /* iso10589 */
 105 #define ISIS_TLV_PART_DIS            4   /* iso10589 */
 106 #define ISIS_TLV_PREFIX_NEIGH        5   /* iso10589 */
 107 #define ISIS_TLV_ISNEIGH             6   /* iso10589 */
 108 #define ISIS_TLV_ISNEIGH_VARLEN      7   /* iso10589 */
 109 #define ISIS_TLV_PADDING             8   /* iso10589 */
 110 #define ISIS_TLV_LSP                 9   /* iso10589 */
 111 #define ISIS_TLV_AUTH                10  /* iso10589, rfc3567 */
 112 #define ISIS_TLV_CHECKSUM            12  /* rfc3358 */
 113 #define ISIS_TLV_CHECKSUM_MINLEN 2
 114 #define ISIS_TLV_LSP_BUFFERSIZE      14  /* iso10589 rev2 */
 115 #define ISIS_TLV_LSP_BUFFERSIZE_MINLEN 2
 116 #define ISIS_TLV_EXT_IS_REACH        22  /* draft-ietf-isis-traffic-05 */
 117 #define ISIS_TLV_IS_ALIAS_ID         24  /* draft-ietf-isis-ext-lsp-frags-02 */
 118 #define ISIS_TLV_DECNET_PHASE4       42
 119 #define ISIS_TLV_LUCENT_PRIVATE      66
 120 #define ISIS_TLV_INT_IP_REACH        128 /* rfc1195, rfc2966 */
 121 #define ISIS_TLV_PROTOCOLS           129 /* rfc1195 */
 122 #define ISIS_TLV_EXT_IP_REACH        130 /* rfc1195, rfc2966 */
 123 #define ISIS_TLV_IDRP_INFO           131 /* rfc1195 */
 124 #define ISIS_TLV_IDRP_INFO_MINLEN      1
 125 #define ISIS_TLV_IPADDR              132 /* rfc1195 */
 126 #define ISIS_TLV_IPAUTH              133 /* rfc1195 */
 127 #define ISIS_TLV_TE_ROUTER_ID        134 /* draft-ietf-isis-traffic-05 */
 128 #define ISIS_TLV_EXTD_IP_REACH       135 /* draft-ietf-isis-traffic-05 */
 129 #define ISIS_TLV_HOSTNAME            137 /* rfc2763 */
 130 #define ISIS_TLV_SHARED_RISK_GROUP   138 /* draft-ietf-isis-gmpls-extensions */
 131 #define ISIS_TLV_NORTEL_PRIVATE1     176
 132 #define ISIS_TLV_NORTEL_PRIVATE2     177
 133 #define ISIS_TLV_RESTART_SIGNALING   211 /* rfc3847 */
 134 #define ISIS_TLV_RESTART_SIGNALING_FLAGLEN 1
 135 #define ISIS_TLV_RESTART_SIGNALING_HOLDTIMELEN 2
 136 #define ISIS_TLV_MT_IS_REACH         222 /* draft-ietf-isis-wg-multi-topology-05 */
 137 #define ISIS_TLV_MT_SUPPORTED        229 /* draft-ietf-isis-wg-multi-topology-05 */
 138 #define ISIS_TLV_MT_SUPPORTED_MINLEN 2
 139 #define ISIS_TLV_IP6ADDR             232 /* draft-ietf-isis-ipv6-02 */
 140 #define ISIS_TLV_MT_IP_REACH         235 /* draft-ietf-isis-wg-multi-topology-05 */
 141 #define ISIS_TLV_IP6_REACH           236 /* draft-ietf-isis-ipv6-02 */
 142 #define ISIS_TLV_MT_IP6_REACH        237 /* draft-ietf-isis-wg-multi-topology-05 */
 143 #define ISIS_TLV_PTP_ADJ             240 /* rfc3373 */
 144 #define ISIS_TLV_IIH_SEQNR           241 /* draft-shen-isis-iih-sequence-00 */
 145 #define ISIS_TLV_IIH_SEQNR_MINLEN 4
 146 #define ISIS_TLV_VENDOR_PRIVATE      250 /* draft-ietf-isis-experimental-tlv-01 */
 147 #define ISIS_TLV_VENDOR_PRIVATE_MINLEN 3
 148
 149 static struct tok isis_tlv_values[] = {
 150     { ISIS_TLV_AREA_ADDR,          "Area address(es)"},
 151     { ISIS_TLV_IS_REACH,           "IS Reachability"},
 152     { ISIS_TLV_ESNEIGH,            "ES Neighbor(s)"},
 153     { ISIS_TLV_PART_DIS,           "Partition DIS"},
 154     { ISIS_TLV_PREFIX_NEIGH,       "Prefix Neighbors"},
 155     { ISIS_TLV_ISNEIGH,            "IS Neighbor(s)"},
 156     { ISIS_TLV_ISNEIGH_VARLEN,     "IS Neighbor(s) (variable length)"},
 157     { ISIS_TLV_PADDING,            "Padding"},
 158     { ISIS_TLV_LSP,                "LSP entries"},
 159     { ISIS_TLV_AUTH,               "Authentication"},
 160     { ISIS_TLV_CHECKSUM,           "Checksum"},
 161     { ISIS_TLV_LSP_BUFFERSIZE,     "LSP Buffersize"},
 162     { ISIS_TLV_EXT_IS_REACH,       "Extended IS Reachability"},
 163     { ISIS_TLV_IS_ALIAS_ID,        "IS Alias ID"},
 164     { ISIS_TLV_DECNET_PHASE4,      "DECnet Phase IV"},
 165     { ISIS_TLV_LUCENT_PRIVATE,     "Lucent Proprietary"},
 166     { ISIS_TLV_INT_IP_REACH,       "IPv4 Internal Reachability"},
 167     { ISIS_TLV_PROTOCOLS,          "Protocols supported"},
 168     { ISIS_TLV_EXT_IP_REACH,       "IPv4 External Reachability"},
 169     { ISIS_TLV_IDRP_INFO,          "Inter-Domain Information Type"},
 170     { ISIS_TLV_IPADDR,             "IPv4 Interface address(es)"},
 171     { ISIS_TLV_IPAUTH,             "IPv4 authentication (deprecated)"},
 172     { ISIS_TLV_TE_ROUTER_ID,       "Traffic Engineering Router ID"},
 173     { ISIS_TLV_EXTD_IP_REACH,      "Extended IPv4 Reachability"},
 174     { ISIS_TLV_SHARED_RISK_GROUP,  "Shared Risk Link Group"},
 175     { ISIS_TLV_NORTEL_PRIVATE1,    "Nortel Proprietary"},
 176     { ISIS_TLV_NORTEL_PRIVATE2,    "Nortel Proprietary"},
 177     { ISIS_TLV_HOSTNAME,           "Hostname"},
 178     { ISIS_TLV_RESTART_SIGNALING,  "Restart Signaling"},
 179     { ISIS_TLV_MT_IS_REACH,        "Multi Topology IS Reachability"},
 180     { ISIS_TLV_MT_SUPPORTED,       "Multi Topology"},
 181     { ISIS_TLV_IP6ADDR,            "IPv6 Interface address(es)"},
 182     { ISIS_TLV_MT_IP_REACH,        "Multi-Topology IPv4 Reachability"},
 183     { ISIS_TLV_IP6_REACH,          "IPv6 reachability"},
 184     { ISIS_TLV_MT_IP6_REACH,       "Multi-Topology IP6 Reachability"},
 185     { ISIS_TLV_PTP_ADJ,            "Point-to-point Adjacency State"},
 186     { ISIS_TLV_IIH_SEQNR,          "Hello PDU Sequence Number"},
 187     { ISIS_TLV_VENDOR_PRIVATE,     "Vendor Private"},
 188     { 0, NULL }
 189 };
 190
 191 #define ESIS_OPTION_PROTOCOLS        129
 192 #define ESIS_OPTION_QOS_MAINTENANCE  195 /* iso9542 */
 193 #define ESIS_OPTION_SECURITY         197 /* iso9542 */
 194 #define ESIS_OPTION_ES_CONF_TIME     198 /* iso9542 */
 195 #define ESIS_OPTION_PRIORITY         205 /* iso9542 */
 196 #define ESIS_OPTION_ADDRESS_MASK     225 /* iso9542 */
 197 #define ESIS_OPTION_SNPA_MASK        226 /* iso9542 */
 198
 199 static struct tok esis_option_values[] = {
 200     { ESIS_OPTION_PROTOCOLS,       "Protocols supported"},
 201     { ESIS_OPTION_QOS_MAINTENANCE, "QoS Maintenance" },
 202     { ESIS_OPTION_SECURITY,        "Security" },
 203     { ESIS_OPTION_ES_CONF_TIME,    "ES Configuration Time" },
 204     { ESIS_OPTION_PRIORITY,        "Priority" },
 205     { ESIS_OPTION_ADDRESS_MASK,    "Addressk Mask" },
 206     { ESIS_OPTION_SNPA_MASK,       "SNPA Mask" },
 207     { 0, NULL }
 208 };
 209
 210 #define CLNP_OPTION_DISCARD_REASON   193
 211 #define CLNP_OPTION_QOS_MAINTENANCE  195 /* iso8473 */
 212 #define CLNP_OPTION_SECURITY         197 /* iso8473 */
 213 #define CLNP_OPTION_SOURCE_ROUTING   200 /* iso8473 */
 214 #define CLNP_OPTION_ROUTE_RECORDING  203 /* iso8473 */
 215 #define CLNP_OPTION_PADDING          204 /* iso8473 */
 216 #define CLNP_OPTION_PRIORITY         205 /* iso8473 */
 217
 218 static struct tok clnp_option_values[] = {
 219     { CLNP_OPTION_DISCARD_REASON,  "Discard Reason"},
 220     { CLNP_OPTION_PRIORITY,        "Priority"},
 221     { CLNP_OPTION_QOS_MAINTENANCE, "QoS Maintenance"},
 222     { CLNP_OPTION_SECURITY, "Security"},
 223     { CLNP_OPTION_SOURCE_ROUTING, "Source Routing"},
 224     { CLNP_OPTION_ROUTE_RECORDING, "Route Recording"},
 225     { CLNP_OPTION_PADDING, "Padding"},
 226     { 0, NULL }
 227 };
 228
 229 static struct tok clnp_option_rfd_class_values[] = {
 230     { 0x0, "General"},
 231     { 0x8, "Address"},
 232     { 0x9, "Source Routeing"},
 233     { 0xa, "Lifetime"},
 234     { 0xb, "PDU Discarded"},
 235     { 0xc, "Reassembly"},
 236     { 0, NULL }
 237 };
 238
 239 static struct tok clnp_option_rfd_general_values[] = {
 240     { 0x0, "Reason not specified"},
 241     { 0x1, "Protocol procedure error"},
 242     { 0x2, "Incorrect checksum"},
 243     { 0x3, "PDU discarded due to congestion"},
 244     { 0x4, "Header syntax error (cannot be parsed)"},
 245     { 0x5, "Segmentation needed but not permitted"},
 246     { 0x6, "Incomplete PDU received"},
 247     { 0x7, "Duplicate option"},
 248     { 0, NULL }
 249 };
 250
 251 static struct tok clnp_option_rfd_address_values[] = {
 252     { 0x0, "Destination address unreachable"},
 253     { 0x1, "Destination address unknown"},
 254     { 0, NULL }
 255 };
 256
 257 static struct tok clnp_option_rfd_source_routeing_values[] = {
 258     { 0x0, "Unspecified source routeing error"},
 259     { 0x1, "Syntax error in source routeing field"},
 260     { 0x2, "Unknown address in source routeing field"},
 261     { 0x3, "Path not acceptable"},
 262     { 0, NULL }
 263 };
 264
 265 static struct tok clnp_option_rfd_lifetime_values[] = {
 266     { 0x0, "Lifetime expired while data unit in transit"},
 267     { 0x1, "Lifetime expired during reassembly"},
 268     { 0, NULL }
 269 };
 270
 271 static struct tok clnp_option_rfd_pdu_discard_values[] = {
 272     { 0x0, "Unsupported option not specified"},
 273     { 0x1, "Unsupported protocol version"},
 274     { 0x2, "Unsupported security option"},
 275     { 0x3, "Unsupported source routeing option"},
 276     { 0x4, "Unsupported recording of route option"},
 277     { 0, NULL }
 278 };
 279
 280 static struct tok clnp_option_rfd_reassembly_values[] = {
 281     { 0x0, "Reassembly interference"},
 282     { 0, NULL }
 283 };
 284
 285 /* array of 16 error-classes */
 286 static struct tok *clnp_option_rfd_error_class[] = {
 287     clnp_option_rfd_general_values,
 288     NULL,
 289     NULL,
 290     NULL,
 291     NULL,
 292     NULL,
 293     NULL,
 294     NULL,
 295     clnp_option_rfd_address_values,
 296     clnp_option_rfd_source_routeing_values,
 297     clnp_option_rfd_lifetime_values,
 298     clnp_option_rfd_pdu_discard_values,
 299     clnp_option_rfd_reassembly_values,
 300     NULL,
 301     NULL,
 302     NULL
 303 };
 304
 305 #define CLNP_OPTION_OPTION_QOS_MASK 0x3f
 306 #define CLNP_OPTION_SCOPE_MASK      0xc0
 307 #define CLNP_OPTION_SCOPE_SA_SPEC   0x40
 308 #define CLNP_OPTION_SCOPE_DA_SPEC   0x80
 309 #define CLNP_OPTION_SCOPE_GLOBAL    0xc0
 310
 311 static struct tok clnp_option_scope_values[] = {
 312     { CLNP_OPTION_SCOPE_SA_SPEC, "Source Address Specific"},
 313     { CLNP_OPTION_SCOPE_DA_SPEC, "Destination Address Specific"},
 314     { CLNP_OPTION_SCOPE_GLOBAL, "Globally unique"},
 315     { 0, NULL }
 316 };
 317
 318 static struct tok clnp_option_sr_rr_values[] = {
 319     { 0x0, "partial"},
 320     { 0x1, "complete"},
 321     { 0, NULL }
 322 };
 323
 324 static struct tok clnp_option_sr_rr_string_values[] = {
 325     { CLNP_OPTION_SOURCE_ROUTING, "source routing"},
 326     { CLNP_OPTION_ROUTE_RECORDING, "recording of route in progress"},
 327     { 0, NULL }
 328 };
 329
 330 static struct tok clnp_option_qos_global_values[] = {
 331     { 0x20, "reserved"},
 332     { 0x10, "sequencing vs. delay"},
 333     { 0x08, "congested"},
 334     { 0x04, "delay vs. cost"},
 335     { 0x02, "error vs. delay"},
 336     { 0x01, "error vs. cost"},
 337     { 0, NULL }
 338 };
 339
 340 #define ISIS_SUBTLV_EXT_IS_REACH_ADMIN_GROUP           3 /* draft-ietf-isis-traffic-05 */
 341 #define ISIS_SUBTLV_EXT_IS_REACH_LINK_LOCAL_REMOTE_ID  4 /* draft-ietf-isis-gmpls-extensions */
 342 #define ISIS_SUBTLV_EXT_IS_REACH_LINK_REMOTE_ID        5 /* draft-ietf-isis-traffic-05 */
 343 #define ISIS_SUBTLV_EXT_IS_REACH_IPV4_INTF_ADDR        6 /* draft-ietf-isis-traffic-05 */
 344 #define ISIS_SUBTLV_EXT_IS_REACH_IPV4_NEIGHBOR_ADDR    8 /* draft-ietf-isis-traffic-05 */
 345 #define ISIS_SUBTLV_EXT_IS_REACH_MAX_LINK_BW           9 /* draft-ietf-isis-traffic-05 */
 346 #define ISIS_SUBTLV_EXT_IS_REACH_RESERVABLE_BW        10 /* draft-ietf-isis-traffic-05 */
 347 #define ISIS_SUBTLV_EXT_IS_REACH_UNRESERVED_BW        11 /* rfc4124 */
 348 #define ISIS_SUBTLV_EXT_IS_REACH_BW_CONSTRAINTS_OLD   12 /* draft-ietf-tewg-diff-te-proto-06 */
 349 #define ISIS_SUBTLV_EXT_IS_REACH_TE_METRIC            18 /* draft-ietf-isis-traffic-05 */
 350 #define ISIS_SUBTLV_EXT_IS_REACH_LINK_PROTECTION_TYPE 20 /* draft-ietf-isis-gmpls-extensions */
 351 #define ISIS_SUBTLV_EXT_IS_REACH_INTF_SW_CAP_DESCR    21 /* draft-ietf-isis-gmpls-extensions */
 352 #define ISIS_SUBTLV_EXT_IS_REACH_BW_CONSTRAINTS       22 /* rfc4124 */
 353
 354 static struct tok isis_ext_is_reach_subtlv_values[] = {
 355     { ISIS_SUBTLV_EXT_IS_REACH_ADMIN_GROUP,            "Administrative groups" },
 356     { ISIS_SUBTLV_EXT_IS_REACH_LINK_LOCAL_REMOTE_ID,   "Link Local/Remote Identifier" },
 357     { ISIS_SUBTLV_EXT_IS_REACH_LINK_REMOTE_ID,         "Link Remote Identifier" },
 358     { ISIS_SUBTLV_EXT_IS_REACH_IPV4_INTF_ADDR,         "IPv4 interface address" },
 359     { ISIS_SUBTLV_EXT_IS_REACH_IPV4_NEIGHBOR_ADDR,     "IPv4 neighbor address" },
 360     { ISIS_SUBTLV_EXT_IS_REACH_MAX_LINK_BW,            "Maximum link bandwidth" },
 361     { ISIS_SUBTLV_EXT_IS_REACH_RESERVABLE_BW,          "Reservable link bandwidth" },
 362     { ISIS_SUBTLV_EXT_IS_REACH_UNRESERVED_BW,          "Unreserved bandwidth" },
 363     { ISIS_SUBTLV_EXT_IS_REACH_TE_METRIC,              "Traffic Engineering Metric" },
 364     { ISIS_SUBTLV_EXT_IS_REACH_LINK_PROTECTION_TYPE,   "Link Protection Type" },
 365     { ISIS_SUBTLV_EXT_IS_REACH_INTF_SW_CAP_DESCR,      "Interface Switching Capability" },
 366     { ISIS_SUBTLV_EXT_IS_REACH_BW_CONSTRAINTS_OLD,     "Bandwidth Constraints (old)" },
 367     { ISIS_SUBTLV_EXT_IS_REACH_BW_CONSTRAINTS,         "Bandwidth Constraints" },
 368     { 250,                                             "Reserved for cisco specific extensions" },
 369     { 251,                                             "Reserved for cisco specific extensions" },
 370     { 252,                                             "Reserved for cisco specific extensions" },
 371     { 253,                                             "Reserved for cisco specific extensions" },
 372     { 254,                                             "Reserved for cisco specific extensions" },
 373     { 255,                                             "Reserved for future expansion" },
 374     { 0, NULL }
 375 };
 376
 377 #define ISIS_SUBTLV_EXTD_IP_REACH_ADMIN_TAG32          1 /* draft-ietf-isis-admin-tags-01 */
 378 #define ISIS_SUBTLV_EXTD_IP_REACH_ADMIN_TAG64          2 /* draft-ietf-isis-admin-tags-01 */
 379 #define ISIS_SUBTLV_EXTD_IP_REACH_MGMT_PREFIX_COLOR  117 /* draft-ietf-isis-wg-multi-topology-05 */
 380
 381 static struct tok isis_ext_ip_reach_subtlv_values[] = {
 382     { ISIS_SUBTLV_EXTD_IP_REACH_ADMIN_TAG32,           "32-Bit Administrative tag" },
 383     { ISIS_SUBTLV_EXTD_IP_REACH_ADMIN_TAG64,           "64-Bit Administrative tag" },
 384     { ISIS_SUBTLV_EXTD_IP_REACH_MGMT_PREFIX_COLOR,     "Management Prefix Color" },
 385     { 0, NULL }
 386 };
 387
 388 #define ISIS_SUBTLV_AUTH_SIMPLE        1
 389 #define ISIS_SUBTLV_AUTH_MD5          54
 390 #define ISIS_SUBTLV_AUTH_MD5_LEN      16
 391 #define ISIS_SUBTLV_AUTH_PRIVATE     255
 392
 393 static struct tok isis_subtlv_auth_values[] = {
 394     { ISIS_SUBTLV_AUTH_SIMPLE,  "simple text password"},
 395     { ISIS_SUBTLV_AUTH_MD5,     "HMAC-MD5 password"},
 396     { ISIS_SUBTLV_AUTH_PRIVATE, "Routing Domain private password"},
 397     { 0, NULL }
 398 };
 399
 400 #define ISIS_SUBTLV_IDRP_RES           0
 401 #define ISIS_SUBTLV_IDRP_LOCAL         1
 402 #define ISIS_SUBTLV_IDRP_ASN           2
 403
 404 static struct tok isis_subtlv_idrp_values[] = {
 405     { ISIS_SUBTLV_IDRP_RES,         "Reserved"},
 406     { ISIS_SUBTLV_IDRP_LOCAL,       "Routing-Domain Specific"},
 407     { ISIS_SUBTLV_IDRP_ASN,         "AS Number Tag"},
 408     { 0, NULL}
 409 };
 410
 411 #define CLNP_SEGMENT_PART  0x80
 412 #define CLNP_MORE_SEGMENTS 0x40
 413 #define CLNP_REQUEST_ER    0x20
 414
 415 static struct tok clnp_flag_values[] = {
 416     { CLNP_SEGMENT_PART, "Segmentation permitted"},
 417     { CLNP_MORE_SEGMENTS, "more Segments"},
 418     { CLNP_REQUEST_ER, "request Error Report"},
 419     { 0, NULL}
 420 };
 421
 422 #define ISIS_MASK_LSP_OL_BIT(x)            ((x)&0x4)
 423 #define ISIS_MASK_LSP_ISTYPE_BITS(x)       ((x)&0x3)
 424 #define ISIS_MASK_LSP_PARTITION_BIT(x)     ((x)&0x80)
 425 #define ISIS_MASK_LSP_ATT_BITS(x)          ((x)&0x78)
 426 #define ISIS_MASK_LSP_ATT_ERROR_BIT(x)     ((x)&0x40)
 427 #define ISIS_MASK_LSP_ATT_EXPENSE_BIT(x)   ((x)&0x20)
 428 #define ISIS_MASK_LSP_ATT_DELAY_BIT(x)     ((x)&0x10)
 429 #define ISIS_MASK_LSP_ATT_DEFAULT_BIT(x)   ((x)&0x8)
 430
 431 #define ISIS_MASK_MTID(x)                  ((x)&0x0fff)
 432 #define ISIS_MASK_MTFLAGS(x)               ((x)&0xf000)
 433
 434 static struct tok isis_mt_flag_values[] = {
 435     { 0x4000,                  "sub-TLVs present"},
 436     { 0x8000,                  "ATT bit set"},
 437     { 0, NULL}
 438 };
 439
 440 #define ISIS_MASK_TLV_EXTD_IP_UPDOWN(x)     ((x)&0x80)
 441 #define ISIS_MASK_TLV_EXTD_IP_SUBTLV(x)     ((x)&0x40)
 442
 443 #define ISIS_MASK_TLV_EXTD_IP6_IE(x)        ((x)&0x40)
 444 #define ISIS_MASK_TLV_EXTD_IP6_SUBTLV(x)    ((x)&0x20)
 445
 446 #define ISIS_LSP_TLV_METRIC_SUPPORTED(x)   ((x)&0x80)
 447 #define ISIS_LSP_TLV_METRIC_IE(x)          ((x)&0x40)
 448 #define ISIS_LSP_TLV_METRIC_UPDOWN(x)      ((x)&0x80)
 449 #define ISIS_LSP_TLV_METRIC_VALUE(x)       ((x)&0x3f)
 450
 451 #define ISIS_MASK_TLV_SHARED_RISK_GROUP(x) ((x)&0x1)
 452
 453 static struct tok isis_mt_values[] = {
 454     { 0,    "IPv4 unicast"},
 455     { 1,    "In-Band Management"},
 456     { 2,    "IPv6 unicast"},
 457     { 3,    "Multicast"},
 458     { 4095, "Development, Experimental or Proprietary"},
 459     { 0, NULL }
 460 };
 461
 462 static struct tok isis_iih_circuit_type_values[] = {
 463     { 1,    "Level 1 only"},
 464     { 2,    "Level 2 only"},
 465     { 3,    "Level 1, Level 2"},
 466     { 0, NULL}
 467 };
 468
 469 #define ISIS_LSP_TYPE_UNUSED0   0
 470 #define ISIS_LSP_TYPE_LEVEL_1   1
 471 #define ISIS_LSP_TYPE_UNUSED2   2
 472 #define ISIS_LSP_TYPE_LEVEL_2   3
 473
 474 static struct tok isis_lsp_istype_values[] = {
 475     { ISIS_LSP_TYPE_UNUSED0,    "Unused 0x0 (invalid)"},
 476     { ISIS_LSP_TYPE_LEVEL_1,    "L1 IS"},
 477     { ISIS_LSP_TYPE_UNUSED2,    "Unused 0x2 (invalid)"},
 478     { ISIS_LSP_TYPE_LEVEL_2,    "L2 IS"},
 479     { 0, NULL }
 480 };
 481
 482 /*
 483  * Katz's point to point adjacency TLV uses codes to tell us the state of
 484  * the remote adjacency.  Enumerate them.
 485  */
 486
 487 #define ISIS_PTP_ADJ_UP   0
 488 #define ISIS_PTP_ADJ_INIT 1
 489 #define ISIS_PTP_ADJ_DOWN 2
 490
 491 static struct tok isis_ptp_adjancey_values[] = {
 492     { ISIS_PTP_ADJ_UP,    "Up" },
 493     { ISIS_PTP_ADJ_INIT,  "Initializing" },
 494     { ISIS_PTP_ADJ_DOWN,  "Down" },
 495     { 0, NULL}
 496 };
 497
 498 struct isis_tlv_ptp_adj {
 499     u_int8_t adjacency_state;
 500     u_int8_t extd_local_circuit_id[4];
 501     u_int8_t neighbor_sysid[SYSTEM_ID_LEN];
 502     u_int8_t neighbor_extd_local_circuit_id[4];
 503 };
 504
 505 static int osi_cksum(const u_int8_t *, u_int);
 506 static int clnp_print(const u_int8_t *, u_int);
 507 static void esis_print(const u_int8_t *, u_int);
 508 static int isis_print(const u_int8_t *, u_int);
 509
 510 struct isis_metric_block {
 511     u_int8_t metric_default;
 512     u_int8_t metric_delay;
 513     u_int8_t metric_expense;
 514     u_int8_t metric_error;
 515 };
 516
 517 struct isis_tlv_is_reach {
 518     struct isis_metric_block isis_metric_block;
 519     u_int8_t neighbor_nodeid[NODE_ID_LEN];
 520 };
 521
 522 struct isis_tlv_es_reach {
 523     struct isis_metric_block isis_metric_block;
 524     u_int8_t neighbor_sysid[SYSTEM_ID_LEN];
 525 };
 526
 527 struct isis_tlv_ip_reach {
 528     struct isis_metric_block isis_metric_block;
 529     u_int8_t prefix[4];
 530     u_int8_t mask[4];
 531 };
 532
 533 static struct tok isis_is_reach_virtual_values[] = {
 534     { 0,    "IsNotVirtual"},
 535     { 1,    "IsVirtual"},
 536     { 0, NULL }
 537 };
 538
 539 static struct tok isis_restart_flag_values[] = {
 540     { 0x1,  "Restart Request"},
 541     { 0x2,  "Restart Acknowledgement"},
 542     { 0x4,  "Suppress adjacency advertisement"},
 543     { 0, NULL }
 544 };
 545
 546 struct isis_common_header {
 547     u_int8_t nlpid;
 548     u_int8_t fixed_len;
 549     u_int8_t version;                   /* Protocol version */
 550     u_int8_t id_length;
 551     u_int8_t pdu_type;                  /* 3 MSbits are reserved */
 552     u_int8_t pdu_version;               /* Packet format version */
 553     u_int8_t reserved;
 554     u_int8_t max_area;
 555 };
 556
 557 struct isis_iih_lan_header {
 558     u_int8_t circuit_type;
 559     u_int8_t source_id[SYSTEM_ID_LEN];
 560     u_int8_t holding_time[2];
 561     u_int8_t pdu_len[2];
 562     u_int8_t priority;
 563     u_int8_t lan_id[NODE_ID_LEN];
 564 };
 565
 566 struct isis_iih_ptp_header {
 567     u_int8_t circuit_type;
 568     u_int8_t source_id[SYSTEM_ID_LEN];
 569     u_int8_t holding_time[2];
 570     u_int8_t pdu_len[2];
 571     u_int8_t circuit_id;
 572 };
 573
 574 struct isis_lsp_header {
 575     u_int8_t pdu_len[2];
 576     u_int8_t remaining_lifetime[2];
 577     u_int8_t lsp_id[LSP_ID_LEN];
 578     u_int8_t sequence_number[4];
 579     u_int8_t checksum[2];
 580     u_int8_t typeblock;
 581 };
 582
 583 struct isis_csnp_header {
 584     u_int8_t pdu_len[2];
 585     u_int8_t source_id[NODE_ID_LEN];
 586     u_int8_t start_lsp_id[LSP_ID_LEN];
 587     u_int8_t end_lsp_id[LSP_ID_LEN];
 588 };
 589
 590 struct isis_psnp_header {
 591     u_int8_t pdu_len[2];
 592     u_int8_t source_id[NODE_ID_LEN];
 593 };
 594
 595 struct isis_tlv_lsp {
 596     u_int8_t remaining_lifetime[2];
 597     u_int8_t lsp_id[LSP_ID_LEN];
 598     u_int8_t sequence_number[4];
 599     u_int8_t checksum[2];
 600 };
 601
 602 #define ISIS_COMMON_HEADER_SIZE (sizeof(struct isis_common_header))
 603 #define ISIS_IIH_LAN_HEADER_SIZE (sizeof(struct isis_iih_lan_header))
 604 #define ISIS_IIH_PTP_HEADER_SIZE (sizeof(struct isis_iih_ptp_header))
 605 #define ISIS_LSP_HEADER_SIZE (sizeof(struct isis_lsp_header))
 606 #define ISIS_CSNP_HEADER_SIZE (sizeof(struct isis_csnp_header))
 607 #define ISIS_PSNP_HEADER_SIZE (sizeof(struct isis_psnp_header))
 608
 609 void isoclns_print(const u_int8_t *p, u_int length, u_int caplen)
 610 {
 611         const struct isis_common_header *header;
 612
 613         header = (const struct isis_common_header *)p;
 614
 615         if (caplen <= 1) { /* enough bytes on the wire ? */
 616             printf("|OSI");
 617             return;
 618         }
 619
 620         if (eflag)
 621             printf("OSI NLPID %s (0x%02x): ",
 622                    tok2str(nlpid_values,"Unknown",*p),
 623                    *p);
 624
 625         switch (*p) {
 626
 627         case NLPID_CLNP:
 628                 if (!clnp_print(p, length))
 629                         print_unknown_data(p,"\n\t",caplen);
 630                 break;
 631
 632         case NLPID_ESIS:
 633                 esis_print(p, length);
 634                 return;
 635
 636         case NLPID_ISIS:
 637                 if (!isis_print(p, length))
 638                         print_unknown_data(p,"\n\t",caplen);
 639                 break;
 640
 641         case NLPID_NULLNS:
 642                 (void)printf("%slength: %u",
 643                              eflag ? "" : ", ",
 644                              length);
 645                 break;
 646
 647         case NLPID_Q933:
 648                 q933_print(p+1, length-1);
 649                 break;
 650
 651         case NLPID_IP:
 652                 ip_print(gndo, p+1, length-1);
 653                 break;
 654
 655 #ifdef INET6
 656         case NLPID_IP6:
 657                 ip6_print(p+1, length-1);
 658                 break;
 659 #endif
 660
 661         case NLPID_PPP:
 662                 ppp_print(p+1, length-1);
 663                 break;
 664
 665         default:
 666                 if (!eflag)
 667                     printf("OSI NLPID 0x%02x unknown",*p);
 668                 (void)printf("%slength: %u",
 669                              eflag ? "" : ", ",
 670                              length);
 671                 if (caplen > 1)
 672                         print_unknown_data(p,"\n\t",caplen);
 673                 break;
 674         }
 675 }
 676
 677 #define CLNP_PDU_ER      1
 678 #define CLNP_PDU_DT     28
 679 #define CLNP_PDU_MD     29
 680 #define CLNP_PDU_ERQ    30
 681 #define CLNP_PDU_ERP    31
 682
 683 static struct tok clnp_pdu_values[] = {
 684     { CLNP_PDU_ER,  "Error Report"},
 685     { CLNP_PDU_MD,  "MD"},
 686     { CLNP_PDU_DT,  "Data"},
 687     { CLNP_PDU_ERQ, "Echo Request"},
 688     { CLNP_PDU_ERP, "Echo Response"},
 689     { 0, NULL }
 690 };
 691
 692 struct clnp_header_t {
 693     u_int8_t nlpid;
 694     u_int8_t length_indicator;
 695     u_int8_t version;
 696     u_int8_t lifetime; /* units of 500ms */
 697     u_int8_t type;
 698     u_int8_t segment_length[2];
 699     u_int8_t cksum[2];
 700 };
 701
 702 struct clnp_segment_header_t {
 703     u_int8_t data_unit_id[2];
 704     u_int8_t segment_offset[2];
 705     u_int8_t total_length[2];
 706 };
 707
 708 /*
 709  * clnp_print
 710  * Decode CLNP packets.  Return 0 on error.
 711  */
 712
 713 static int clnp_print (const u_int8_t *pptr, u_int length)
 714 {
 715         const u_int8_t *optr,*source_address,*dest_address;
 716         u_int li,tlen,nsap_offset,source_address_length,dest_address_length, clnp_pdu_type, clnp_flags;
 717         const struct clnp_header_t *clnp_header;
 718         const struct clnp_segment_header_t *clnp_segment_header;
 719         u_int8_t rfd_error_major,rfd_error_minor;
 720
 721         clnp_header = (const struct clnp_header_t *) pptr;
 722         TCHECK(*clnp_header);
 723
 724         li = clnp_header->length_indicator;
 725         optr = pptr;
 726
 727         if (!eflag)
 728             printf("CLNP");
 729
 730         /*
 731          * Sanity checking of the header.
 732          */
 733
 734         if (clnp_header->version != CLNP_VERSION) {
 735             printf("version %d packet not supported", clnp_header->version);
 736             return (0);
 737         }
 738
 739         /* FIXME further header sanity checking */
 740
 741         clnp_pdu_type = clnp_header->type & CLNP_PDU_TYPE_MASK;
 742         clnp_flags = clnp_header->type & CLNP_FLAG_MASK;
 743
 744         pptr += sizeof(struct clnp_header_t);
 745         li -= sizeof(struct clnp_header_t);
 746         dest_address_length = *pptr;
 747         dest_address = pptr + 1;
 748
 749         pptr += (1 + dest_address_length);
 750         li -= (1 + dest_address_length);
 751         source_address_length = *pptr;
 752         source_address = pptr +1;
 753
 754         pptr += (1 + source_address_length);
 755         li -= (1 + source_address_length);
 756
 757         if (vflag < 1) {
 758             printf("%s%s > %s, %s, length %u",
 759                    eflag ? "" : ", ",
 760                    isonsap_string(source_address, source_address_length),
 761                    isonsap_string(dest_address, dest_address_length),
 762                    tok2str(clnp_pdu_values,"unknown (%u)",clnp_pdu_type),
 763                    length);
 764             return (1);
 765         }
 766         printf("%slength %u",eflag ? "" : ", ",length);
 767
 768         printf("\n\t%s PDU, hlen: %u, v: %u, lifetime: %u.%us, Segment PDU length: %u, checksum: 0x%04x ",
 769                tok2str(clnp_pdu_values, "unknown (%u)",clnp_pdu_type),
 770                clnp_header->length_indicator,
 771                clnp_header->version,
 772                clnp_header->lifetime/2,
 773                (clnp_header->lifetime%2)*5,
 774                EXTRACT_16BITS(clnp_header->segment_length),
 775                EXTRACT_16BITS(clnp_header->cksum));
 776
 777         /* do not attempt to verify the checksum if it is zero */
 778         if (EXTRACT_16BITS(clnp_header->cksum) == 0)
 779                 printf("(unverified)");
 780             else printf("(%s)", osi_cksum(optr, clnp_header->length_indicator) ? "incorrect" : "correct");
 781
 782         printf("\n\tFlags [%s]",
 783                bittok2str(clnp_flag_values,"none",clnp_flags));
 784
 785         printf("\n\tsource address (length %u): %s\n\tdest   address (length %u): %s",
 786                source_address_length,
 787                isonsap_string(source_address, source_address_length),
 788                dest_address_length,
 789                isonsap_string(dest_address,dest_address_length));
 790
 791         if (clnp_flags & CLNP_SEGMENT_PART) {
 792                 clnp_segment_header = (const struct clnp_segment_header_t *) pptr;
 793                 TCHECK(*clnp_segment_header);
 794                 printf("\n\tData Unit ID: 0x%04x, Segment Offset: %u, Total PDU Length: %u",
 795                        EXTRACT_16BITS(clnp_segment_header->data_unit_id),
 796                        EXTRACT_16BITS(clnp_segment_header->segment_offset),
 797                        EXTRACT_16BITS(clnp_segment_header->total_length));
 798                 pptr+=sizeof(const struct clnp_segment_header_t);
 799                 li-=sizeof(const struct clnp_segment_header_t);
 800         }
 801
 802         /* now walk the options */
 803         while (li >= 2) {
 804             u_int op, opli;
 805             const u_int8_t *tptr;
 806
 807             TCHECK2(*pptr, 2);
 808             if (li < 2) {
 809                 printf(", bad opts/li");
 810                 return (0);
 811             }
 812             op = *pptr++;
 813             opli = *pptr++;
 814             li -= 2;
 815             TCHECK2(*pptr, opli);
 816             if (opli > li) {
 817                 printf(", opt (%d) too long", op);
 818                 return (0);
 819             }
 820             li -= opli;
 821             tptr = pptr;
 822             tlen = opli;
 823
 824             printf("\n\t  %s Option #%u, length %u, value: ",
 825                    tok2str(clnp_option_values,"Unknown",op),
 826                    op,
 827                    opli);
 828
 829             switch (op) {
 830
 831
 832             case CLNP_OPTION_ROUTE_RECORDING: /* those two options share the format */
 833             case CLNP_OPTION_SOURCE_ROUTING:
 834                     printf("%s %s",
 835                            tok2str(clnp_option_sr_rr_values,"Unknown",*tptr),
 836                            tok2str(clnp_option_sr_rr_string_values,"Unknown Option %u",op));
 837                     nsap_offset=*(tptr+1);
 838                     if (nsap_offset == 0) {
 839                             printf(" Bad NSAP offset (0)");
 840                             break;
 841                     }
 842                     nsap_offset-=1; /* offset to nsap list */
 843                     if (nsap_offset > tlen) {
 844                             printf(" Bad NSAP offset (past end of option)");
 845                             break;
 846                     }
 847                     tptr+=nsap_offset;
 848                     tlen-=nsap_offset;
 849                     while (tlen > 0) {
 850                             source_address_length=*tptr;
 851                             if (tlen < source_address_length+1) {
 852                                     printf("\n\t    NSAP address goes past end of option");
 853                                     break;
 854                             }
 855                             if (source_address_length > 0) {
 856                                     source_address=(tptr+1);
 857                                     TCHECK2(*source_address, source_address_length);
 858                                     printf("\n\t    NSAP address (length %u): %s",
 859                                            source_address_length,
 860                                            isonsap_string(source_address, source_address_length));
 861                             }
 862                             tlen-=source_address_length+1;
 863                     }
 864                     break;
 865
 866             case CLNP_OPTION_PRIORITY:
 867                     printf("0x%1x", *tptr&0x0f);
 868                     break;
 869
 870             case CLNP_OPTION_QOS_MAINTENANCE:
 871                     printf("\n\t    Format Code: %s",
 872                            tok2str(clnp_option_scope_values,"Reserved",*tptr&CLNP_OPTION_SCOPE_MASK));
 873
 874                     if ((*tptr&CLNP_OPTION_SCOPE_MASK) == CLNP_OPTION_SCOPE_GLOBAL)
 875                             printf("\n\t    QoS Flags [%s]",
 876                                    bittok2str(clnp_option_qos_global_values,
 877                                               "none",
 878                                               *tptr&CLNP_OPTION_OPTION_QOS_MASK));
 879                     break;
 880
 881             case CLNP_OPTION_SECURITY:
 882                     printf("\n\t    Format Code: %s, Security-Level %u",
 883                            tok2str(clnp_option_scope_values,"Reserved",*tptr&CLNP_OPTION_SCOPE_MASK),
 884                            *(tptr+1));
 885                     break;
 886
 887             case CLNP_OPTION_DISCARD_REASON:
 888                 rfd_error_major = (*tptr&0xf0) >> 4;
 889                 rfd_error_minor = *tptr&0x0f;
 890                 printf("\n\t    Class: %s Error (0x%01x), %s (0x%01x)",
 891                        tok2str(clnp_option_rfd_class_values,"Unknown",rfd_error_major),
 892                        rfd_error_major,
 893                        tok2str(clnp_option_rfd_error_class[rfd_error_major],"Unknown",rfd_error_minor),
 894                        rfd_error_minor);
 895                 break;
 896
 897             case CLNP_OPTION_PADDING:
 898                     printf("padding data");
 899                 break;
 900
 901                 /*
 902                  * FIXME those are the defined Options that lack a decoder
 903                  * you are welcome to contribute code ;-)
 904                  */
 905
 906             default:
 907                 print_unknown_data(tptr,"\n\t  ",opli);
 908                 break;
 909             }
 910             if (vflag > 1)
 911                 print_unknown_data(pptr,"\n\t  ",opli);
 912             pptr += opli;
 913         }
 914
 915         switch (clnp_pdu_type) {
 916
 917         case    CLNP_PDU_ER: /* fall through */
 918         case    CLNP_PDU_ERP:
 919             TCHECK(*pptr);
 920             if (*(pptr) == NLPID_CLNP) {
 921                 printf("\n\t-----original packet-----\n\t");
 922                 /* FIXME recursion protection */
 923                 clnp_print(pptr, length-clnp_header->length_indicator);
 924                 break;
 925             }
 926
 927         case    CLNP_PDU_DT:
 928         case    CLNP_PDU_MD:
 929         case    CLNP_PDU_ERQ:
 930
 931         default:
 932             /* dump the PDU specific data */
 933             if (length-(pptr-optr) > 0) {
 934                 printf("\n\t  undecoded non-header data, length %u",length-clnp_header->length_indicator);
 935                 print_unknown_data(pptr,"\n\t  ",length-(pptr-optr));
 936             }
 937         }
 938
 939         return (1);
 940
 941  trunc:
 942     fputs("[|clnp]", stdout);
 943     return (1);
 944
 945 }
 946
 947
 948 #define ESIS_PDU_REDIRECT       6
 949 #define ESIS_PDU_ESH            2
 950 #define ESIS_PDU_ISH            4
 951
 952 static struct tok esis_pdu_values[] = {
 953     { ESIS_PDU_REDIRECT, "redirect"},
 954     { ESIS_PDU_ESH,      "ESH"},
 955     { ESIS_PDU_ISH,      "ISH"},
 956     { 0, NULL }
 957 };
 958
 959 struct esis_header_t {
 960         u_int8_t nlpid;
 961         u_int8_t length_indicator;
 962         u_int8_t version;
 963         u_int8_t reserved;
 964         u_int8_t type;
 965         u_int8_t holdtime[2];
 966         u_int8_t cksum[2];
 967 };
 968
 969 static void
 970 esis_print(const u_int8_t *pptr, u_int length)
 971 {
 972         const u_int8_t *optr;
 973         u_int li,esis_pdu_type,source_address_length, source_address_number;
 974         const struct esis_header_t *esis_header;
 975
 976         if (!eflag)
 977             printf("ES-IS");
 978
 979         if (length <= 2) {
 980                 if (qflag)
 981                         printf("bad pkt!");
 982                 else
 983                         printf("no header at all!");
 984                 return;
 985         }
 986
 987         esis_header = (const struct esis_header_t *) pptr;
 988         TCHECK(*esis_header);
 989         li = esis_header->length_indicator;
 990         optr = pptr;
 991
 992         /*
 993          * Sanity checking of the header.
 994          */
 995
 996         if (esis_header->nlpid != NLPID_ESIS) {
 997             printf(" nlpid 0x%02x packet not supported", esis_header->nlpid);
 998             return;
 999         }
1000
1001         if (esis_header->version != ESIS_VERSION) {
1002             printf(" version %d packet not supported", esis_header->version);
1003             return;
1004         }
1005
1006         if (li > length) {
1007             printf(" length indicator(%d) > PDU size (%d)!", li, length);
1008             return;
1009         }
1010
1011         if (li < sizeof(struct esis_header_t) + 2) {
1012             printf(" length indicator < min PDU size %d:", li);
1013             while (--length != 0)
1014                 printf("%02X", *pptr++);
1015             return;
1016         }
1017
1018         esis_pdu_type = esis_header->type & ESIS_PDU_TYPE_MASK;
1019
1020         if (vflag < 1) {
1021             printf("%s%s, length %u",
1022                    eflag ? "" : ", ",
1023                    tok2str(esis_pdu_values,"unknown type (%u)",esis_pdu_type),
1024                    length);
1025             return;
1026         } else
1027             printf("%slength %u\n\t%s (%u)",
1028                    eflag ? "" : ", ",
1029                    length,
1030                    tok2str(esis_pdu_values,"unknown type: %u", esis_pdu_type),
1031                    esis_pdu_type);
1032
1033         printf(", v: %u%s", esis_header->version, esis_header->version == ESIS_VERSION ? "" : "unsupported" );
1034         printf(", checksum: 0x%04x ", EXTRACT_16BITS(esis_header->cksum));
1035         /* do not attempt to verify the checksum if it is zero */
1036         if (EXTRACT_16BITS(esis_header->cksum) == 0)
1037                 printf("(unverified)");
1038         else
1039                 printf("(%s)", osi_cksum(pptr, li) ? "incorrect" : "correct");
1040
1041         printf(", holding time: %us, length indicator: %u",EXTRACT_16BITS(esis_header->holdtime),li);
1042
1043         if (vflag > 1)
1044             print_unknown_data(optr,"\n\t",sizeof(struct esis_header_t));
1045
1046         pptr += sizeof(struct esis_header_t);
1047         li -= sizeof(struct esis_header_t);
1048
1049         switch (esis_pdu_type) {
1050         case ESIS_PDU_REDIRECT: {
1051                 const u_int8_t *dst, *snpa, *neta;
1052                 u_int dstl, snpal, netal;
1053
1054                 TCHECK(*pptr);
1055                 if (li < 1) {
1056                         printf(", bad redirect/li");
1057                         return;
1058                 }
1059                 dstl = *pptr;
1060                 pptr++;
1061                 li--;
1062                 TCHECK2(*pptr, dstl);
1063                 if (li < dstl) {
1064                         printf(", bad redirect/li");
1065                         return;
1066                 }
1067                 dst = pptr;
1068                 pptr += dstl;
1069                 li -= dstl;
1070                 printf("\n\t  %s", isonsap_string(dst,dstl));
1071
1072                 TCHECK(*pptr);
1073                 if (li < 1) {
1074                         printf(", bad redirect/li");
1075                         return;
1076                 }
1077                 snpal = *pptr;
1078                 pptr++;
1079                 li--;
1080                 TCHECK2(*pptr, snpal);
1081                 if (li < snpal) {
1082                         printf(", bad redirect/li");
1083                         return;
1084                 }
1085                 snpa = pptr;
1086                 pptr += snpal;
1087                 li -= snpal;
1088                 TCHECK(*pptr);
1089                 if (li < 1) {
1090                         printf(", bad redirect/li");
1091                         return;
1092                 }
1093                 netal = *pptr;
1094                 pptr++;
1095                 TCHECK2(*pptr, netal);
1096                 if (li < netal) {
1097                         printf(", bad redirect/li");
1098                         return;
1099                 }
1100                 neta = pptr;
1101                 pptr += netal;
1102                 li -= netal;
1103
1104                 if (netal == 0)
1105                         printf("\n\t  %s", etheraddr_string(snpa));
1106                 else
1107                         printf("\n\t  %s", isonsap_string(neta,netal));
1108                 break;
1109         }
1110
1111         case ESIS_PDU_ESH:
1112             TCHECK(*pptr);
1113             if (li < 1) {
1114                 printf(", bad esh/li");
1115                 return;
1116             }
1117             source_address_number = *pptr;
1118             pptr++;
1119             li--;
1120
1121             printf("\n\t  Number of Source Addresses: %u", source_address_number);
1122
1123             while (source_address_number > 0) {
1124                 TCHECK(*pptr);
1125                 if (li < 1) {
1126                     printf(", bad esh/li");
1127                     return;
1128                 }
1129                 source_address_length = *pptr;
1130                 pptr++;
1131                 li--;
1132
1133                 TCHECK2(*pptr, source_address_length);
1134                 if (li < source_address_length) {
1135                     printf(", bad esh/li");
1136                     return;
1137                 }
1138                 printf("\n\t  NET (length: %u): %s",
1139                        source_address_length,
1140                        isonsap_string(pptr,source_address_length));
1141                 pptr += source_address_length;
1142                 li -= source_address_length;
1143                 source_address_number--;
1144             }
1145
1146             break;
1147
1148         case ESIS_PDU_ISH: {
1149             TCHECK(*pptr);
1150             if (li < 1) {
1151                 printf(", bad ish/li");
1152                 return;
1153             }
1154             source_address_length = *pptr;
1155             pptr++;
1156             li--;
1157             TCHECK2(*pptr, source_address_length);
1158             if (li < source_address_length) {
1159                 printf(", bad ish/li");
1160                 return;
1161             }
1162             printf("\n\t  NET (length: %u): %s", source_address_length, isonsap_string(pptr, source_address_length));
1163             pptr += source_address_length;
1164             li -= source_address_length;
1165             break;
1166         }
1167
1168         default:
1169             if (vflag <= 1) {
1170                     if (pptr < snapend)
1171                             print_unknown_data(pptr,"\n\t  ",snapend-pptr);
1172             }
1173             return;
1174         }
1175
1176         /* now walk the options */
1177         while (li >= 2) {
1178             u_int op, opli;
1179             const u_int8_t *tptr;
1180
1181             TCHECK2(*pptr, 2);
1182             if (li < 2) {
1183                 printf(", bad opts/li");
1184                 return;
1185             }
1186             op = *pptr++;
1187             opli = *pptr++;
1188             li -= 2;
1189             if (opli > li) {
1190                 printf(", opt (%d) too long", op);
1191                 return;
1192             }
1193             li -= opli;
1194             tptr = pptr;
1195
1196             printf("\n\t  %s Option #%u, length %u, value: ",
1197                    tok2str(esis_option_values,"Unknown",op),
1198                    op,
1199                    opli);
1200
1201             switch (op) {
1202
1203             case ESIS_OPTION_ES_CONF_TIME:
1204                 TCHECK2(*pptr, 2);
1205                 printf("%us", EXTRACT_16BITS(tptr));
1206                 break;
1207
1208             case ESIS_OPTION_PROTOCOLS:
1209                 while (opli>0) {
1210                     TCHECK(*pptr);
1211                     printf("%s (0x%02x)",
1212                            tok2str(nlpid_values,
1213                                    "unknown",
1214                                    *tptr),
1215                            *tptr);
1216                     if (opli>1) /* further NPLIDs ? - put comma */
1217                         printf(", ");
1218                     tptr++;
1219                     opli--;
1220                 }
1221                 break;
1222
1223                 /*
1224                  * FIXME those are the defined Options that lack a decoder
1225                  * you are welcome to contribute code ;-)
1226                  */
1227
1228             case ESIS_OPTION_QOS_MAINTENANCE:
1229             case ESIS_OPTION_SECURITY:
1230             case ESIS_OPTION_PRIORITY:
1231             case ESIS_OPTION_ADDRESS_MASK:
1232             case ESIS_OPTION_SNPA_MASK:
1233
1234             default:
1235                 print_unknown_data(tptr,"\n\t  ",opli);
1236                 break;
1237             }
1238             if (vflag > 1)
1239                 print_unknown_data(pptr,"\n\t  ",opli);
1240             pptr += opli;
1241         }
1242 trunc:
1243         return;
1244 }
1245
1246 /* shared routine for printing system, node and lsp-ids */
1247 static char *
1248 isis_print_id(const u_int8_t *cp, int id_len)
1249 {
1250     int i;
1251     static char id[sizeof("xxxx.xxxx.xxxx.yy-zz")];
1252     char *pos = id;
1253
1254     for (i = 1; i <= SYSTEM_ID_LEN; i++) {
1255         snprintf(pos, sizeof(id) - (pos - id), "%02x", *cp++);
1256         pos += strlen(pos);
1257         if (i == 2 || i == 4)
1258             *pos++ = '.';
1259         }
1260     if (id_len >= NODE_ID_LEN) {
1261         snprintf(pos, sizeof(id) - (pos - id), ".%02x", *cp++);
1262         pos += strlen(pos);
1263     }
1264     if (id_len == LSP_ID_LEN)
1265         snprintf(pos, sizeof(id) - (pos - id), "-%02x", *cp);
1266     return (id);
1267 }
1268
1269 /* print the 4-byte metric block which is common found in the old-style TLVs */
1270 static int
1271 isis_print_metric_block (const struct isis_metric_block *isis_metric_block)
1272 {
1273     printf(", Default Metric: %d, %s",
1274            ISIS_LSP_TLV_METRIC_VALUE(isis_metric_block->metric_default),
1275            ISIS_LSP_TLV_METRIC_IE(isis_metric_block->metric_default) ? "External" : "Internal");
1276     if (!ISIS_LSP_TLV_METRIC_SUPPORTED(isis_metric_block->metric_delay))
1277         printf("\n\t\t  Delay Metric: %d, %s",
1278                ISIS_LSP_TLV_METRIC_VALUE(isis_metric_block->metric_delay),
1279                ISIS_LSP_TLV_METRIC_IE(isis_metric_block->metric_delay) ? "External" : "Internal");
1280     if (!ISIS_LSP_TLV_METRIC_SUPPORTED(isis_metric_block->metric_expense))
1281         printf("\n\t\t  Expense Metric: %d, %s",
1282                ISIS_LSP_TLV_METRIC_VALUE(isis_metric_block->metric_expense),
1283                ISIS_LSP_TLV_METRIC_IE(isis_metric_block->metric_expense) ? "External" : "Internal");
1284     if (!ISIS_LSP_TLV_METRIC_SUPPORTED(isis_metric_block->metric_error))
1285         printf("\n\t\t  Error Metric: %d, %s",
1286                ISIS_LSP_TLV_METRIC_VALUE(isis_metric_block->metric_error),
1287                ISIS_LSP_TLV_METRIC_IE(isis_metric_block->metric_error) ? "External" : "Internal");
1288
1289     return(1); /* everything is ok */
1290 }
1291
1292 static int
1293 isis_print_tlv_ip_reach (const u_int8_t *cp, const char *ident, int length)
1294 {
1295         int prefix_len;
1296         const struct isis_tlv_ip_reach *tlv_ip_reach;
1297
1298         tlv_ip_reach = (const struct isis_tlv_ip_reach *)cp;
1299
1300         while (length > 0) {
1301                 if ((size_t)length < sizeof(*tlv_ip_reach)) {
1302                         printf("short IPv4 Reachability (%d vs %lu)",
1303                                length,
1304                                (unsigned long)sizeof(*tlv_ip_reach));
1305                         return (0);
1306                 }
1307
1308                 if (!TTEST(*tlv_ip_reach))
1309                     return (0);
1310
1311                 prefix_len = mask2plen(EXTRACT_32BITS(tlv_ip_reach->mask));
1312
1313                 if (prefix_len == -1)
1314                         printf("%sIPv4 prefix: %s mask %s",
1315                                ident,
1316                                ipaddr_string((tlv_ip_reach->prefix)),
1317                                ipaddr_string((tlv_ip_reach->mask)));
1318                 else
1319                         printf("%sIPv4 prefix: %15s/%u",
1320                                ident,
1321                                ipaddr_string((tlv_ip_reach->prefix)),
1322                                prefix_len);
1323
1324                 printf(", Distribution: %s, Metric: %u, %s",
1325                        ISIS_LSP_TLV_METRIC_UPDOWN(tlv_ip_reach->isis_metric_block.metric_default) ? "down" : "up",
1326                        ISIS_LSP_TLV_METRIC_VALUE(tlv_ip_reach->isis_metric_block.metric_default),
1327                        ISIS_LSP_TLV_METRIC_IE(tlv_ip_reach->isis_metric_block.metric_default) ? "External" : "Internal");
1328
1329                 if (!ISIS_LSP_TLV_METRIC_SUPPORTED(tlv_ip_reach->isis_metric_block.metric_delay))
1330                     printf("%s  Delay Metric: %u, %s",
1331                            ident,
1332                            ISIS_LSP_TLV_METRIC_VALUE(tlv_ip_reach->isis_metric_block.metric_delay),
1333                            ISIS_LSP_TLV_METRIC_IE(tlv_ip_reach->isis_metric_block.metric_delay) ? "External" : "Internal");
1334
1335                 if (!ISIS_LSP_TLV_METRIC_SUPPORTED(tlv_ip_reach->isis_metric_block.metric_expense))
1336                     printf("%s  Expense Metric: %u, %s",
1337                            ident,
1338                            ISIS_LSP_TLV_METRIC_VALUE(tlv_ip_reach->isis_metric_block.metric_expense),
1339                            ISIS_LSP_TLV_METRIC_IE(tlv_ip_reach->isis_metric_block.metric_expense) ? "External" : "Internal");
1340
1341                 if (!ISIS_LSP_TLV_METRIC_SUPPORTED(tlv_ip_reach->isis_metric_block.metric_error))
1342                     printf("%s  Error Metric: %u, %s",
1343                            ident,
1344                            ISIS_LSP_TLV_METRIC_VALUE(tlv_ip_reach->isis_metric_block.metric_error),
1345                            ISIS_LSP_TLV_METRIC_IE(tlv_ip_reach->isis_metric_block.metric_error) ? "External" : "Internal");
1346
1347                 length -= sizeof(struct isis_tlv_ip_reach);
1348                 tlv_ip_reach++;
1349         }
1350         return (1);
1351 }
1352
1353 /*
1354  * this is the common IP-REACH subTLV decoder it is called
1355  * from various EXTD-IP REACH TLVs (135,235,236,237)
1356  */
1357
1358 static int
1359 isis_print_ip_reach_subtlv (const u_int8_t *tptr,int subt,int subl,const char *ident) {
1360
1361         /* first lets see if we know the subTLVs name*/
1362         printf("%s%s subTLV #%u, length: %u",
1363                ident,
1364                tok2str(isis_ext_ip_reach_subtlv_values,
1365                        "unknown",
1366                        subt),
1367                subt,
1368                subl);
1369
1370         if (!TTEST2(*tptr,subl))
1371             goto trunctlv;
1372
1373     switch(subt) {
1374     case ISIS_SUBTLV_EXTD_IP_REACH_MGMT_PREFIX_COLOR: /* fall through */
1375     case ISIS_SUBTLV_EXTD_IP_REACH_ADMIN_TAG32:
1376         while (subl >= 4) {
1377             printf(", 0x%08x (=%u)",
1378                    EXTRACT_32BITS(tptr),
1379                    EXTRACT_32BITS(tptr));
1380             tptr+=4;
1381             subl-=4;
1382         }
1383         break;
1384     case ISIS_SUBTLV_EXTD_IP_REACH_ADMIN_TAG64:
1385         while (subl >= 8) {
1386             printf(", 0x%08x%08x",
1387                    EXTRACT_32BITS(tptr),
1388                    EXTRACT_32BITS(tptr+4));
1389             tptr+=8;
1390             subl-=8;
1391         }
1392         break;
1393     default:
1394         if(!print_unknown_data(tptr,"\n\t\t    ",
1395                                subl))
1396           return(0);
1397         break;
1398     }
1399     return(1);
1400
1401 trunctlv:
1402     printf("%spacket exceeded snapshot",ident);
1403     return(0);
1404 }
1405
1406 /*
1407  * this is the common IS-REACH subTLV decoder it is called
1408  * from isis_print_ext_is_reach()
1409  */
1410
1411 static int
1412 isis_print_is_reach_subtlv (const u_int8_t *tptr,u_int subt,u_int subl,const char *ident) {
1413
1414         u_int te_class,priority_level;
1415         union { /* int to float conversion buffer for several subTLVs */
1416             float f;
1417             u_int32_t i;
1418         } bw;
1419
1420         /* first lets see if we know the subTLVs name*/
1421         printf("%s%s subTLV #%u, length: %u",
1422                ident,
1423                tok2str(isis_ext_is_reach_subtlv_values,
1424                        "unknown",
1425                        subt),
1426                subt,
1427                subl);
1428
1429         if (!TTEST2(*tptr,subl))
1430             goto trunctlv;
1431
1432         switch(subt) {
1433         case ISIS_SUBTLV_EXT_IS_REACH_ADMIN_GROUP:
1434         case ISIS_SUBTLV_EXT_IS_REACH_LINK_LOCAL_REMOTE_ID:
1435         case ISIS_SUBTLV_EXT_IS_REACH_LINK_REMOTE_ID:
1436             if (subl >= 4) {
1437               printf(", 0x%08x", EXTRACT_32BITS(tptr));
1438               if (subl == 8) /* draft-ietf-isis-gmpls-extensions */
1439                 printf(", 0x%08x", EXTRACT_32BITS(tptr+4));
1440             }
1441             break;
1442         case ISIS_SUBTLV_EXT_IS_REACH_IPV4_INTF_ADDR:
1443         case ISIS_SUBTLV_EXT_IS_REACH_IPV4_NEIGHBOR_ADDR:
1444             if (subl >= sizeof(struct in_addr))
1445               printf(", %s", ipaddr_string(tptr));
1446             break;
1447         case ISIS_SUBTLV_EXT_IS_REACH_MAX_LINK_BW :
1448         case ISIS_SUBTLV_EXT_IS_REACH_RESERVABLE_BW:
1449             if (subl >= 4) {
1450               bw.i = EXTRACT_32BITS(tptr);
1451               printf(", %.3f Mbps", bw.f*8/1000000 );
1452             }
1453             break;
1454         case ISIS_SUBTLV_EXT_IS_REACH_UNRESERVED_BW :
1455             if (subl >= 32) {
1456               for (te_class = 0; te_class < 8; te_class++) {
1457                 bw.i = EXTRACT_32BITS(tptr);
1458                 printf("%s  TE-Class %u: %.3f Mbps",
1459                        ident,
1460                        te_class,
1461                        bw.f*8/1000000 );
1462                 tptr+=4;
1463               }
1464             }
1465             break;
1466         case ISIS_SUBTLV_EXT_IS_REACH_BW_CONSTRAINTS: /* fall through */
1467         case ISIS_SUBTLV_EXT_IS_REACH_BW_CONSTRAINTS_OLD:
1468             printf("%sBandwidth Constraints Model ID: %s (%u)",
1469                    ident,
1470                    tok2str(diffserv_te_bc_values, "unknown", *tptr),
1471                    *tptr);
1472             tptr++;
1473             /* decode BCs until the subTLV ends */
1474             for (te_class = 0; te_class < (subl-1)/4; te_class++) {
1475                 bw.i = EXTRACT_32BITS(tptr);
1476                 printf("%s  Bandwidth constraint CT%u: %.3f Mbps",
1477                        ident,
1478                        te_class,
1479                        bw.f*8/1000000 );
1480                 tptr+=4;
1481             }
1482             break;
1483         case ISIS_SUBTLV_EXT_IS_REACH_TE_METRIC:
1484             if (subl >= 3)
1485               printf(", %u", EXTRACT_24BITS(tptr));
1486             break;
1487         case ISIS_SUBTLV_EXT_IS_REACH_LINK_PROTECTION_TYPE:
1488             if (subl >= 2) {
1489               printf(", %s, Priority %u",
1490                    bittok2str(gmpls_link_prot_values, "none", *tptr),
1491                    *(tptr+1));
1492             }
1493             break;
1494         case ISIS_SUBTLV_EXT_IS_REACH_INTF_SW_CAP_DESCR:
1495             if (subl >= 36) {
1496               printf("%s  Interface Switching Capability:%s",
1497                    ident,
1498                    tok2str(gmpls_switch_cap_values, "Unknown", *(tptr)));
1499               printf(", LSP Encoding: %s",
1500                    tok2str(gmpls_encoding_values, "Unknown", *(tptr+1)));
1501               tptr+=4;
1502               printf("%s  Max LSP Bandwidth:",ident);
1503               for (priority_level = 0; priority_level < 8; priority_level++) {
1504                 bw.i = EXTRACT_32BITS(tptr);
1505                 printf("%s    priority level %d: %.3f Mbps",
1506                        ident,
1507                        priority_level,
1508                        bw.f*8/1000000 );
1509                 tptr+=4;
1510               }
1511               subl-=36;
1512               /* there is some optional stuff left to decode but this is as of yet
1513                  not specified so just lets hexdump what is left */
1514               if(subl>0){
1515                 if(!print_unknown_data(tptr,"\n\t\t    ",
1516                                        subl))
1517                     return(0);
1518               }
1519             }
1520             break;
1521         default:
1522             if(!print_unknown_data(tptr,"\n\t\t    ",
1523                                    subl))
1524                 return(0);
1525             break;
1526         }
1527         return(1);
1528
1529 trunctlv:
1530     printf("%spacket exceeded snapshot",ident);
1531     return(0);
1532 }
1533
1534
1535 /*
1536  * this is the common IS-REACH decoder it is called
1537  * from various EXTD-IS REACH style TLVs (22,24,222)
1538  */
1539
1540 static int
1541 isis_print_ext_is_reach (const u_int8_t *tptr,const char *ident, int tlv_type) {
1542
1543     char ident_buffer[20];
1544     int subtlv_type,subtlv_len,subtlv_sum_len;
1545     int proc_bytes = 0; /* how many bytes did we process ? */
1546
1547     if (!TTEST2(*tptr, NODE_ID_LEN))
1548         return(0);
1549
1550     printf("%sIS Neighbor: %s", ident, isis_print_id(tptr, NODE_ID_LEN));
1551     tptr+=(NODE_ID_LEN);
1552
1553     if (tlv_type != ISIS_TLV_IS_ALIAS_ID) { /* the Alias TLV Metric field is implicit 0 */
1554         if (!TTEST2(*tptr, 3))    /* and is therefore skipped */
1555             return(0);
1556         printf(", Metric: %d",EXTRACT_24BITS(tptr));
1557         tptr+=3;
1558     }
1559
1560     if (!TTEST2(*tptr, 1))
1561         return(0);
1562     subtlv_sum_len=*(tptr++); /* read out subTLV length */
1563     proc_bytes=NODE_ID_LEN+3+1;
1564     printf(", %ssub-TLVs present",subtlv_sum_len ? "" : "no ");
1565     if (subtlv_sum_len) {
1566         printf(" (%u)",subtlv_sum_len);
1567         while (subtlv_sum_len>0) {
1568             if (!TTEST2(*tptr,2))
1569                 return(0);
1570             subtlv_type=*(tptr++);
1571             subtlv_len=*(tptr++);
1572             /* prepend the ident string */
1573             snprintf(ident_buffer, sizeof(ident_buffer), "%s  ",ident);
1574             if(!isis_print_is_reach_subtlv(tptr,subtlv_type,subtlv_len,ident_buffer))
1575                 return(0);
1576             tptr+=subtlv_len;
1577             subtlv_sum_len-=(subtlv_len+2);
1578             proc_bytes+=(subtlv_len+2);
1579         }
1580     }
1581     return(proc_bytes);
1582 }
1583
1584 /*
1585  * this is the common Multi Topology ID decoder
1586  * it is called from various MT-TLVs (222,229,235,237)
1587  */
1588
1589 static int
1590 isis_print_mtid (const u_int8_t *tptr,const char *ident) {
1591
1592     if (!TTEST2(*tptr, 2))
1593         return(0);
1594
1595     printf("%s%s",
1596            ident,
1597            tok2str(isis_mt_values,
1598                    "Reserved for IETF Consensus",
1599                    ISIS_MASK_MTID(EXTRACT_16BITS(tptr))));
1600
1601     printf(" Topology (0x%03x), Flags: [%s]",
1602            ISIS_MASK_MTID(EXTRACT_16BITS(tptr)),
1603            bittok2str(isis_mt_flag_values, "none",ISIS_MASK_MTFLAGS(EXTRACT_16BITS(tptr))));
1604
1605     return(2);
1606 }
1607
1608 /*
1609  * this is the common extended IP reach decoder
1610  * it is called from TLVs (135,235,236,237)
1611  * we process the TLV and optional subTLVs and return
1612  * the amount of processed bytes
1613  */
1614
1615 static int
1616 isis_print_extd_ip_reach (const u_int8_t *tptr, const char *ident, u_int16_t afi) {
1617
1618     char ident_buffer[20];
1619 #ifdef INET6
1620     u_int8_t prefix[sizeof(struct in6_addr)]; /* shared copy buffer for IPv4 and IPv6 prefixes */
1621 #else
1622     u_int8_t prefix[sizeof(struct in_addr)]; /* shared copy buffer for IPv4 prefixes */
1623 #endif
1624     u_int metric, status_byte, bit_length, byte_length, sublen, processed, subtlvtype, subtlvlen;
1625
1626     if (!TTEST2(*tptr, 4))
1627         return (0);
1628     metric = EXTRACT_32BITS(tptr);
1629     processed=4;
1630     tptr+=4;
1631
1632     if (afi == IPV4) {
1633         if (!TTEST2(*tptr, 1)) /* fetch status byte */
1634             return (0);
1635         status_byte=*(tptr++);
1636         bit_length = status_byte&0x3f;
1637         if (bit_length > 32) {
1638             printf("%sIPv4 prefix: bad bit length %u",
1639                    ident,
1640                    bit_length);
1641             return (0);
1642         }
1643         processed++;
1644 #ifdef INET6
1645     } else if (afi == IPV6) {
1646         if (!TTEST2(*tptr, 1)) /* fetch status & prefix_len byte */
1647             return (0);
1648         status_byte=*(tptr++);
1649         bit_length=*(tptr++);
1650         if (bit_length > 128) {
1651             printf("%sIPv6 prefix: bad bit length %u",
1652                    ident,
1653                    bit_length);
1654             return (0);
1655         }
1656         processed+=2;
1657 #endif
1658     } else
1659         return (0); /* somebody is fooling us */
1660
1661     byte_length = (bit_length + 7) / 8; /* prefix has variable length encoding */
1662
1663     if (!TTEST2(*tptr, byte_length))
1664         return (0);
1665     memset(prefix, 0, sizeof prefix);   /* clear the copy buffer */
1666     memcpy(prefix,tptr,byte_length);    /* copy as much as is stored in the TLV */
1667     tptr+=byte_length;
1668     processed+=byte_length;
1669
1670     if (afi == IPV4)
1671         printf("%sIPv4 prefix: %15s/%u",
1672                ident,
1673                ipaddr_string(prefix),
1674                bit_length);
1675 #ifdef INET6
1676     if (afi == IPV6)
1677         printf("%sIPv6 prefix: %s/%u",
1678                ident,
1679                ip6addr_string(prefix),
1680                bit_length);
1681 #endif
1682
1683     printf(", Distribution: %s, Metric: %u",
1684            ISIS_MASK_TLV_EXTD_IP_UPDOWN(status_byte) ? "down" : "up",
1685            metric);
1686
1687     if (afi == IPV4 && ISIS_MASK_TLV_EXTD_IP_SUBTLV(status_byte))
1688         printf(", sub-TLVs present");
1689 #ifdef INET6
1690     if (afi == IPV6)
1691         printf(", %s%s",
1692                ISIS_MASK_TLV_EXTD_IP6_IE(status_byte) ? "External" : "Internal",
1693                ISIS_MASK_TLV_EXTD_IP6_SUBTLV(status_byte) ? ", sub-TLVs present" : "");
1694 #endif
1695
1696     if ((ISIS_MASK_TLV_EXTD_IP_SUBTLV(status_byte)  && afi == IPV4) ||
1697         (ISIS_MASK_TLV_EXTD_IP6_SUBTLV(status_byte) && afi == IPV6)) {
1698         /* assume that one prefix can hold more
1699            than one subTLV - therefore the first byte must reflect
1700            the aggregate bytecount of the subTLVs for this prefix
1701         */
1702         if (!TTEST2(*tptr, 1))
1703             return (0);
1704         sublen=*(tptr++);
1705         processed+=sublen+1;
1706         printf(" (%u)",sublen);   /* print out subTLV length */
1707
1708         while (sublen>0) {
1709             if (!TTEST2(*tptr,2))
1710                 return (0);
1711             subtlvtype=*(tptr++);
1712             subtlvlen=*(tptr++);
1713             /* prepend the ident string */
1714             snprintf(ident_buffer, sizeof(ident_buffer), "%s  ",ident);
1715             if(!isis_print_ip_reach_subtlv(tptr,subtlvtype,subtlvlen,ident_buffer))
1716                 return(0);
1717             tptr+=subtlvlen;
1718             sublen-=(subtlvlen+2);
1719         }
1720     }
1721     return (processed);
1722 }
1723
1724 /*
1725  * isis_print
1726  * Decode IS-IS packets.  Return 0 on error.
1727  */
1728
1729 static int isis_print (const u_int8_t *p, u_int length)
1730 {
1731     const struct isis_common_header *isis_header;
1732
1733     const struct isis_iih_lan_header *header_iih_lan;
1734     const struct isis_iih_ptp_header *header_iih_ptp;
1735     const struct isis_lsp_header *header_lsp;
1736     const struct isis_csnp_header *header_csnp;
1737     const struct isis_psnp_header *header_psnp;
1738
1739     const struct isis_tlv_lsp *tlv_lsp;
1740     const struct isis_tlv_ptp_adj *tlv_ptp_adj;
1741     const struct isis_tlv_is_reach *tlv_is_reach;
1742     const struct isis_tlv_es_reach *tlv_es_reach;
1743
1744     u_int8_t pdu_type, max_area, id_length, tlv_type, tlv_len, tmp, alen, lan_alen, prefix_len;
1745     u_int8_t ext_is_len, ext_ip_len, mt_len;
1746     const u_int8_t *optr, *pptr, *tptr;
1747     u_short packet_len,pdu_len;
1748     u_int i,vendor_id;
1749
1750     packet_len=length;
1751     optr = p; /* initialize the _o_riginal pointer to the packet start -
1752                  need it for parsing the checksum TLV */
1753     isis_header = (const struct isis_common_header *)p;
1754     TCHECK(*isis_header);
1755     pptr = p+(ISIS_COMMON_HEADER_SIZE);
1756     header_iih_lan = (const struct isis_iih_lan_header *)pptr;
1757     header_iih_ptp = (const struct isis_iih_ptp_header *)pptr;
1758     header_lsp = (const struct isis_lsp_header *)pptr;
1759     header_csnp = (const struct isis_csnp_header *)pptr;
1760     header_psnp = (const struct isis_psnp_header *)pptr;
1761
1762     if (!eflag)
1763         printf("IS-IS");
1764
1765     /*
1766      * Sanity checking of the header.
1767      */
1768
1769     if (isis_header->version != ISIS_VERSION) {
1770         printf("version %d packet not supported", isis_header->version);
1771         return (0);
1772     }
1773
1774     if ((isis_header->id_length != SYSTEM_ID_LEN) && (isis_header->id_length != 0)) {
1775         printf("system ID length of %d is not supported",
1776                isis_header->id_length);
1777         return (0);
1778     }
1779
1780     if (isis_header->pdu_version != ISIS_VERSION) {
1781         printf("version %d packet not supported", isis_header->pdu_version);
1782         return (0);
1783     }
1784
1785     max_area = isis_header->max_area;
1786     switch(max_area) {
1787     case 0:
1788         max_area = 3;    /* silly shit */
1789         break;
1790     case 255:
1791         printf("bad packet -- 255 areas");
1792         return (0);
1793     default:
1794         break;
1795     }
1796
1797     id_length = isis_header->id_length;
1798     switch(id_length) {
1799     case 0:
1800         id_length = 6;   /* silly shit again */
1801         break;
1802     case 1:              /* 1-8 are valid sys-ID lenghts */
1803     case 2:
1804     case 3:
1805     case 4:
1806     case 5:
1807     case 6:
1808     case 7:
1809     case 8:
1810         break;
1811     case 255:
1812         id_length = 0;   /* entirely useless */
1813         break;
1814     default:
1815         break;
1816     }
1817
1818     /* toss any non 6-byte sys-ID len PDUs */
1819     if (id_length != 6 ) {
1820         printf("bad packet -- illegal sys-ID length (%u)", id_length);
1821         return (0);
1822     }
1823
1824     pdu_type=isis_header->pdu_type;
1825
1826     /* in non-verbose mode print the basic PDU Type plus PDU specific brief information*/
1827     if (vflag < 1) {
1828         printf("%s%s",
1829                eflag ? "" : ", ",
1830                tok2str(isis_pdu_values,"unknown PDU-Type %u",pdu_type));
1831
1832         switch (pdu_type) {
1833
1834         case ISIS_PDU_L1_LAN_IIH:
1835         case ISIS_PDU_L2_LAN_IIH:
1836             printf(", src-id %s",
1837                    isis_print_id(header_iih_lan->source_id,SYSTEM_ID_LEN));
1838             printf(", lan-id %s, prio %u",
1839                    isis_print_id(header_iih_lan->lan_id,NODE_ID_LEN),
1840                    header_iih_lan->priority);
1841             break;
1842         case ISIS_PDU_PTP_IIH:
1843             printf(", src-id %s", isis_print_id(header_iih_ptp->source_id,SYSTEM_ID_LEN));
1844             break;
1845         case ISIS_PDU_L1_LSP:
1846         case ISIS_PDU_L2_LSP:
1847             printf(", lsp-id %s, seq 0x%08x, lifetime %5us",
1848                    isis_print_id(header_lsp->lsp_id, LSP_ID_LEN),
1849                    EXTRACT_32BITS(header_lsp->sequence_number),
1850                    EXTRACT_16BITS(header_lsp->remaining_lifetime));
1851             break;
1852         case ISIS_PDU_L1_CSNP:
1853         case ISIS_PDU_L2_CSNP:
1854             printf(", src-id %s", isis_print_id(header_csnp->source_id,NODE_ID_LEN));
1855             break;
1856         case ISIS_PDU_L1_PSNP:
1857         case ISIS_PDU_L2_PSNP:
1858             printf(", src-id %s", isis_print_id(header_psnp->source_id,NODE_ID_LEN));
1859             break;
1860
1861         }
1862         printf(", length %u", length);
1863
1864         return(1);
1865     }
1866
1867     /* ok they seem to want to know everything - lets fully decode it */
1868     printf("%slength %u", eflag ? "" : ", ",length);
1869
1870     printf("\n\t%s, hlen: %u, v: %u, pdu-v: %u, sys-id-len: %u (%u), max-area: %u (%u)",
1871            tok2str(isis_pdu_values,
1872                    "unknown, type %u",
1873                    pdu_type),
1874            isis_header->fixed_len,
1875            isis_header->version,
1876            isis_header->pdu_version,
1877            id_length,
1878            isis_header->id_length,
1879            max_area,
1880            isis_header->max_area);
1881
1882     if (vflag > 1) {
1883         if(!print_unknown_data(optr,"\n\t",8)) /* provide the _o_riginal pointer */
1884             return(0);                         /* for optionally debugging the common header */
1885     }
1886
1887     switch (pdu_type) {
1888
1889     case ISIS_PDU_L1_LAN_IIH:
1890     case ISIS_PDU_L2_LAN_IIH:
1891         if (isis_header->fixed_len != (ISIS_COMMON_HEADER_SIZE+ISIS_IIH_LAN_HEADER_SIZE)) {
1892             printf(", bogus fixed header length %u should be %lu",
1893                    isis_header->fixed_len, (unsigned long)ISIS_IIH_LAN_HEADER_SIZE);
1894             return (0);
1895         }
1896
1897         pdu_len=EXTRACT_16BITS(header_iih_lan->pdu_len);
1898         if (packet_len>pdu_len) {
1899             packet_len=pdu_len; /* do TLV decoding as long as it makes sense */
1900             length=pdu_len;
1901         }
1902
1903         TCHECK(*header_iih_lan);
1904         printf("\n\t  source-id: %s,  holding time: %us, Flags: [%s]",
1905                isis_print_id(header_iih_lan->source_id,SYSTEM_ID_LEN),
1906                EXTRACT_16BITS(header_iih_lan->holding_time),
1907                tok2str(isis_iih_circuit_type_values,
1908                        "unknown circuit type 0x%02x",
1909                        header_iih_lan->circuit_type));
1910
1911         printf("\n\t  lan-id:    %s, Priority: %u, PDU length: %u",
1912                isis_print_id(header_iih_lan->lan_id, NODE_ID_LEN),
1913                (header_iih_lan->priority) & ISIS_LAN_PRIORITY_MASK,
1914                pdu_len);
1915
1916         if (vflag > 1) {
1917             if(!print_unknown_data(pptr,"\n\t  ",ISIS_IIH_LAN_HEADER_SIZE))
1918                 return(0);
1919         }
1920
1921         packet_len -= (ISIS_COMMON_HEADER_SIZE+ISIS_IIH_LAN_HEADER_SIZE);
1922         pptr = p + (ISIS_COMMON_HEADER_SIZE+ISIS_IIH_LAN_HEADER_SIZE);
1923         break;
1924
1925     case ISIS_PDU_PTP_IIH:
1926         if (isis_header->fixed_len != (ISIS_COMMON_HEADER_SIZE+ISIS_IIH_PTP_HEADER_SIZE)) {
1927             printf(", bogus fixed header length %u should be %lu",
1928                    isis_header->fixed_len, (unsigned long)ISIS_IIH_PTP_HEADER_SIZE);
1929             return (0);
1930         }
1931
1932         pdu_len=EXTRACT_16BITS(header_iih_ptp->pdu_len);
1933         if (packet_len>pdu_len) {
1934             packet_len=pdu_len; /* do TLV decoding as long as it makes sense */
1935             length=pdu_len;
1936         }
1937
1938         TCHECK(*header_iih_ptp);
1939         printf("\n\t  source-id: %s, holding time: %us, Flags: [%s]",
1940                isis_print_id(header_iih_ptp->source_id,SYSTEM_ID_LEN),
1941                EXTRACT_16BITS(header_iih_ptp->holding_time),
1942                tok2str(isis_iih_circuit_type_values,
1943                        "unknown circuit type 0x%02x",
1944                        header_iih_ptp->circuit_type));
1945
1946         printf("\n\t  circuit-id: 0x%02x, PDU length: %u",
1947                header_iih_ptp->circuit_id,
1948                pdu_len);
1949
1950         if (vflag > 1) {
1951             if(!print_unknown_data(pptr,"\n\t  ",ISIS_IIH_PTP_HEADER_SIZE))
1952                 return(0);
1953         }
1954
1955         packet_len -= (ISIS_COMMON_HEADER_SIZE+ISIS_IIH_PTP_HEADER_SIZE);
1956         pptr = p + (ISIS_COMMON_HEADER_SIZE+ISIS_IIH_PTP_HEADER_SIZE);
1957         break;
1958
1959     case ISIS_PDU_L1_LSP:
1960     case ISIS_PDU_L2_LSP:
1961         if (isis_header->fixed_len != (ISIS_COMMON_HEADER_SIZE+ISIS_LSP_HEADER_SIZE)) {
1962             printf(", bogus fixed header length %u should be %lu",
1963                    isis_header->fixed_len, (unsigned long)ISIS_LSP_HEADER_SIZE);
1964             return (0);
1965         }
1966
1967         pdu_len=EXTRACT_16BITS(header_lsp->pdu_len);
1968         if (packet_len>pdu_len) {
1969             packet_len=pdu_len; /* do TLV decoding as long as it makes sense */
1970             length=pdu_len;
1971         }
1972
1973         TCHECK(*header_lsp);
1974         printf("\n\t  lsp-id: %s, seq: 0x%08x, lifetime: %5us\n\t  chksum: 0x%04x",
1975                isis_print_id(header_lsp->lsp_id, LSP_ID_LEN),
1976                EXTRACT_32BITS(header_lsp->sequence_number),
1977                EXTRACT_16BITS(header_lsp->remaining_lifetime),
1978                EXTRACT_16BITS(header_lsp->checksum));
1979
1980         /* if this is a purge do not attempt to verify the checksum */
1981         if ( EXTRACT_16BITS(header_lsp->remaining_lifetime) == 0 &&
1982              EXTRACT_16BITS(header_lsp->checksum) == 0)
1983             printf(" (purged)");
1984         else
1985             /* verify the checksum -
1986              * checking starts at the lsp-id field at byte position [12]
1987              * hence the length needs to be reduced by 12 bytes */
1988             printf(" (%s)", (osi_cksum((u_int8_t *)header_lsp->lsp_id, length-12)) ? "incorrect" : "correct");
1989
1990         printf(", PDU length: %u, Flags: [ %s",
1991                pdu_len,
1992                ISIS_MASK_LSP_OL_BIT(header_lsp->typeblock) ? "Overload bit set, " : "");
1993
1994         if (ISIS_MASK_LSP_ATT_BITS(header_lsp->typeblock)) {
1995             printf("%s", ISIS_MASK_LSP_ATT_DEFAULT_BIT(header_lsp->typeblock) ? "default " : "");
1996             printf("%s", ISIS_MASK_LSP_ATT_DELAY_BIT(header_lsp->typeblock) ? "delay " : "");
1997             printf("%s", ISIS_MASK_LSP_ATT_EXPENSE_BIT(header_lsp->typeblock) ? "expense " : "");
1998             printf("%s", ISIS_MASK_LSP_ATT_ERROR_BIT(header_lsp->typeblock) ? "error " : "");
1999             printf("ATT bit set, ");
2000         }
2001         printf("%s", ISIS_MASK_LSP_PARTITION_BIT(header_lsp->typeblock) ? "P bit set, " : "");
2002         printf("%s ]", tok2str(isis_lsp_istype_values,"Unknown(0x%x)",ISIS_MASK_LSP_ISTYPE_BITS(header_lsp->typeblock)));
2003
2004         if (vflag > 1) {
2005             if(!print_unknown_data(pptr,"\n\t  ",ISIS_LSP_HEADER_SIZE))
2006                 return(0);
2007         }
2008
2009         packet_len -= (ISIS_COMMON_HEADER_SIZE+ISIS_LSP_HEADER_SIZE);
2010         pptr = p + (ISIS_COMMON_HEADER_SIZE+ISIS_LSP_HEADER_SIZE);
2011         break;
2012
2013     case ISIS_PDU_L1_CSNP:
2014     case ISIS_PDU_L2_CSNP:
2015         if (isis_header->fixed_len != (ISIS_COMMON_HEADER_SIZE+ISIS_CSNP_HEADER_SIZE)) {
2016             printf(", bogus fixed header length %u should be %lu",
2017                    isis_header->fixed_len, (unsigned long)ISIS_CSNP_HEADER_SIZE);
2018             return (0);
2019         }
2020
2021         pdu_len=EXTRACT_16BITS(header_csnp->pdu_len);
2022         if (packet_len>pdu_len) {
2023             packet_len=pdu_len; /* do TLV decoding as long as it makes sense */
2024             length=pdu_len;
2025         }
2026
2027         TCHECK(*header_csnp);
2028         printf("\n\t  source-id:    %s, PDU length: %u",
2029                isis_print_id(header_csnp->source_id, NODE_ID_LEN),
2030                pdu_len);
2031         printf("\n\t  start lsp-id: %s",
2032                isis_print_id(header_csnp->start_lsp_id, LSP_ID_LEN));
2033         printf("\n\t  end lsp-id:   %s",
2034                isis_print_id(header_csnp->end_lsp_id, LSP_ID_LEN));
2035
2036         if (vflag > 1) {
2037             if(!print_unknown_data(pptr,"\n\t  ",ISIS_CSNP_HEADER_SIZE))
2038                 return(0);
2039         }
2040
2041         packet_len -= (ISIS_COMMON_HEADER_SIZE+ISIS_CSNP_HEADER_SIZE);
2042         pptr = p + (ISIS_COMMON_HEADER_SIZE+ISIS_CSNP_HEADER_SIZE);
2043         break;
2044
2045     case ISIS_PDU_L1_PSNP:
2046     case ISIS_PDU_L2_PSNP:
2047         if (isis_header->fixed_len != (ISIS_COMMON_HEADER_SIZE+ISIS_PSNP_HEADER_SIZE)) {
2048             printf("- bogus fixed header length %u should be %lu",
2049                    isis_header->fixed_len, (unsigned long)ISIS_PSNP_HEADER_SIZE);
2050             return (0);
2051         }
2052
2053         pdu_len=EXTRACT_16BITS(header_psnp->pdu_len);
2054         if (packet_len>pdu_len) {
2055             packet_len=pdu_len; /* do TLV decoding as long as it makes sense */
2056             length=pdu_len;
2057         }
2058
2059         TCHECK(*header_psnp);
2060         printf("\n\t  source-id:    %s, PDU length: %u",
2061                isis_print_id(header_psnp->source_id, NODE_ID_LEN),
2062                pdu_len);
2063
2064         if (vflag > 1) {
2065             if(!print_unknown_data(pptr,"\n\t  ",ISIS_PSNP_HEADER_SIZE))
2066                 return(0);
2067         }
2068
2069         packet_len -= (ISIS_COMMON_HEADER_SIZE+ISIS_PSNP_HEADER_SIZE);
2070         pptr = p + (ISIS_COMMON_HEADER_SIZE+ISIS_PSNP_HEADER_SIZE);
2071         break;
2072
2073     default:
2074         if(!print_unknown_data(pptr,"\n\t  ",length))
2075             return(0);
2076         return (0);
2077     }
2078
2079     /*
2080      * Now print the TLV's.
2081      */
2082
2083     while (packet_len >= 2) {
2084         if (pptr == snapend) {
2085             return (1);
2086         }
2087
2088         if (!TTEST2(*pptr, 2)) {
2089             printf("\n\t\t packet exceeded snapshot (%ld) bytes",
2090                    (long)(pptr-snapend));
2091             return (1);
2092         }
2093         tlv_type = *pptr++;
2094         tlv_len = *pptr++;
2095         tmp =tlv_len; /* copy temporary len & pointer to packet data */
2096         tptr = pptr;
2097         packet_len -= 2;
2098         if (tlv_len > packet_len) {
2099             break;
2100         }
2101
2102         /* first lets see if we know the TLVs name*/
2103         printf("\n\t    %s TLV #%u, length: %u",
2104                tok2str(isis_tlv_values,
2105                        "unknown",
2106                        tlv_type),
2107                tlv_type,
2108                tlv_len);
2109
2110         if (tlv_len == 0) /* something is malformed */
2111             continue;
2112
2113         /* now check if we have a decoder otherwise do a hexdump at the end*/
2114         switch (tlv_type) {
2115         case ISIS_TLV_AREA_ADDR:
2116             if (!TTEST2(*tptr, 1))
2117                 goto trunctlv;
2118             alen = *tptr++;
2119             while (tmp && alen < tmp) {
2120                 printf("\n\t      Area address (length: %u): %s",
2121                        alen,
2122                        isonsap_string(tptr,alen));
2123                 tptr += alen;
2124                 tmp -= alen + 1;
2125                 if (tmp==0) /* if this is the last area address do not attemt a boundary check */
2126                     break;
2127                 if (!TTEST2(*tptr, 1))
2128                     goto trunctlv;
2129                 alen = *tptr++;
2130             }
2131             break;
2132         case ISIS_TLV_ISNEIGH:
2133             while (tmp >= ETHER_ADDR_LEN) {
2134                 if (!TTEST2(*tptr, ETHER_ADDR_LEN))
2135                     goto trunctlv;
2136                 printf("\n\t      SNPA: %s",isis_print_id(tptr,ETHER_ADDR_LEN));
2137                 tmp -= ETHER_ADDR_LEN;
2138                 tptr += ETHER_ADDR_LEN;
2139             }
2140             break;
2141
2142         case ISIS_TLV_ISNEIGH_VARLEN:
2143             if (!TTEST2(*tptr, 1) || tmp < 3) /* min. TLV length */
2144                 goto trunctlv;
2145             lan_alen = *tptr++; /* LAN address length */
2146             if (lan_alen == 0) {
2147                 printf("\n\t      LAN address length 0 bytes (invalid)");
2148                 break;
2149             }
2150             tmp --;
2151             printf("\n\t      LAN address length %u bytes ",lan_alen);
2152             while (tmp >= lan_alen) {
2153                 if (!TTEST2(*tptr, lan_alen))
2154                     goto trunctlv;
2155                 printf("\n\t\tIS Neighbor: %s",isis_print_id(tptr,lan_alen));
2156                 tmp -= lan_alen;
2157                 tptr +=lan_alen;
2158             }
2159             break;
2160
2161         case ISIS_TLV_PADDING:
2162             break;
2163
2164         case ISIS_TLV_MT_IS_REACH:
2165             while (tmp >= 2+NODE_ID_LEN+3+1) {
2166                 mt_len = isis_print_mtid(tptr, "\n\t      ");
2167                 if (mt_len == 0) /* did something go wrong ? */
2168                     goto trunctlv;
2169                 tptr+=mt_len;
2170                 tmp-=mt_len;
2171
2172                 ext_is_len = isis_print_ext_is_reach(tptr,"\n\t      ",tlv_type);
2173                 if (ext_is_len == 0) /* did something go wrong ? */
2174                     goto trunctlv;
2175
2176                 tmp-=ext_is_len;
2177                 tptr+=ext_is_len;
2178             }
2179             break;
2180
2181         case ISIS_TLV_IS_ALIAS_ID:
2182             while (tmp >= NODE_ID_LEN+1) { /* is it worth attempting a decode ? */
2183                 ext_is_len = isis_print_ext_is_reach(tptr,"\n\t      ",tlv_type);
2184                 if (ext_is_len == 0) /* did something go wrong ? */
2185                     goto trunctlv;
2186                 tmp-=ext_is_len;
2187                 tptr+=ext_is_len;
2188             }
2189             break;
2190
2191         case ISIS_TLV_EXT_IS_REACH:
2192             while (tmp >= NODE_ID_LEN+3+1) { /* is it worth attempting a decode ? */
2193                 ext_is_len = isis_print_ext_is_reach(tptr,"\n\t      ",tlv_type);
2194                 if (ext_is_len == 0) /* did something go wrong ? */
2195                     goto trunctlv;
2196                 tmp-=ext_is_len;
2197                 tptr+=ext_is_len;
2198             }
2199             break;
2200         case ISIS_TLV_IS_REACH:
2201             if (!TTEST2(*tptr,1))  /* check if there is one byte left to read out the virtual flag */
2202                 goto trunctlv;
2203             printf("\n\t      %s",
2204                    tok2str(isis_is_reach_virtual_values,
2205                            "bogus virtual flag 0x%02x",
2206                            *tptr++));
2207             tlv_is_reach = (const struct isis_tlv_is_reach *)tptr;
2208             while (tmp >= sizeof(struct isis_tlv_is_reach)) {
2209                 if (!TTEST(*tlv_is_reach))
2210                     goto trunctlv;
2211                 printf("\n\t      IS Neighbor: %s",
2212                        isis_print_id(tlv_is_reach->neighbor_nodeid, NODE_ID_LEN));
2213                 isis_print_metric_block(&tlv_is_reach->isis_metric_block);
2214                 tmp -= sizeof(struct isis_tlv_is_reach);
2215                 tlv_is_reach++;
2216             }
2217             break;
2218
2219         case ISIS_TLV_ESNEIGH:
2220             tlv_es_reach = (const struct isis_tlv_es_reach *)tptr;
2221             while (tmp >= sizeof(struct isis_tlv_es_reach)) {
2222                 if (!TTEST(*tlv_es_reach))
2223                     goto trunctlv;
2224                 printf("\n\t      ES Neighbor: %s",
2225                        isis_print_id(tlv_es_reach->neighbor_sysid,SYSTEM_ID_LEN));
2226                 isis_print_metric_block(&tlv_es_reach->isis_metric_block);
2227                 tmp -= sizeof(struct isis_tlv_es_reach);
2228                 tlv_es_reach++;
2229             }
2230             break;
2231
2232             /* those two TLVs share the same format */
2233         case ISIS_TLV_INT_IP_REACH:
2234         case ISIS_TLV_EXT_IP_REACH:
2235             if (!isis_print_tlv_ip_reach(pptr, "\n\t      ", tlv_len))
2236                 return (1);
2237             break;
2238
2239         case ISIS_TLV_EXTD_IP_REACH:
2240             while (tmp>0) {
2241                 ext_ip_len = isis_print_extd_ip_reach(tptr, "\n\t      ", IPV4);
2242                 if (ext_ip_len == 0) /* did something go wrong ? */
2243                     goto trunctlv;
2244                 tptr+=ext_ip_len;
2245                 tmp-=ext_ip_len;
2246             }
2247             break;
2248
2249         case ISIS_TLV_MT_IP_REACH:
2250             mt_len = isis_print_mtid(tptr, "\n\t      ");
2251             if (mt_len == 0) { /* did something go wrong ? */
2252                 goto trunctlv;
2253             }
2254             tptr+=mt_len;
2255             tmp-=mt_len;
2256
2257             while (tmp>0) {
2258                 ext_ip_len = isis_print_extd_ip_reach(tptr, "\n\t      ", IPV4);
2259                 if (ext_ip_len == 0) /* did something go wrong ? */
2260                     goto trunctlv;
2261                 tptr+=ext_ip_len;
2262                 tmp-=ext_ip_len;
2263             }
2264             break;
2265
2266 #ifdef INET6
2267         case ISIS_TLV_IP6_REACH:
2268             while (tmp>0) {
2269                 ext_ip_len = isis_print_extd_ip_reach(tptr, "\n\t      ", IPV6);
2270                 if (ext_ip_len == 0) /* did something go wrong ? */
2271                     goto trunctlv;
2272                 tptr+=ext_ip_len;
2273                 tmp-=ext_ip_len;
2274             }
2275             break;
2276
2277         case ISIS_TLV_MT_IP6_REACH:
2278             mt_len = isis_print_mtid(tptr, "\n\t      ");
2279             if (mt_len == 0) { /* did something go wrong ? */
2280                 goto trunctlv;
2281             }
2282             tptr+=mt_len;
2283             tmp-=mt_len;
2284
2285             while (tmp>0) {
2286                 ext_ip_len = isis_print_extd_ip_reach(tptr, "\n\t      ", IPV6);
2287                 if (ext_ip_len == 0) /* did something go wrong ? */
2288                     goto trunctlv;
2289                 tptr+=ext_ip_len;
2290                 tmp-=ext_ip_len;
2291             }
2292             break;
2293
2294         case ISIS_TLV_IP6ADDR:
2295             while (tmp>=sizeof(struct in6_addr)) {
2296                 if (!TTEST2(*tptr, sizeof(struct in6_addr)))
2297                     goto trunctlv;
2298
2299                 printf("\n\t      IPv6 interface address: %s",
2300                        ip6addr_string(tptr));
2301
2302                 tptr += sizeof(struct in6_addr);
2303                 tmp -= sizeof(struct in6_addr);
2304             }
2305             break;
2306 #endif
2307         case ISIS_TLV_AUTH:
2308             if (!TTEST2(*tptr, 1))
2309                 goto trunctlv;
2310
2311             printf("\n\t      %s: ",
2312                    tok2str(isis_subtlv_auth_values,
2313                            "unknown Authentication type 0x%02x",
2314                            *tptr));
2315
2316             switch (*tptr) {
2317             case ISIS_SUBTLV_AUTH_SIMPLE:
2318                 for(i=1;i<tlv_len;i++) {
2319                     if (!TTEST2(*(tptr+i), 1))
2320                         goto trunctlv;
2321                     printf("%c",*(tptr+i));
2322                 }
2323                 break;
2324             case ISIS_SUBTLV_AUTH_MD5:
2325                 for(i=1;i<tlv_len;i++) {
2326                     if (!TTEST2(*(tptr+i), 1))
2327                         goto trunctlv;
2328                     printf("%02x",*(tptr+i));
2329                 }
2330                 if (tlv_len != ISIS_SUBTLV_AUTH_MD5_LEN+1)
2331                     printf(", (malformed subTLV) ");
2332                 break;
2333             case ISIS_SUBTLV_AUTH_PRIVATE:
2334             default:
2335                 if(!print_unknown_data(tptr+1,"\n\t\t  ",tlv_len-1))
2336                     return(0);
2337                 break;
2338             }
2339             break;
2340
2341         case ISIS_TLV_PTP_ADJ:
2342             tlv_ptp_adj = (const struct isis_tlv_ptp_adj *)tptr;
2343             if(tmp>=1) {
2344                 if (!TTEST2(*tptr, 1))
2345                     goto trunctlv;
2346                 printf("\n\t      Adjacency State: %s (%u)",
2347                        tok2str(isis_ptp_adjancey_values, "unknown", *tptr),
2348                         *tptr);
2349                 tmp--;
2350             }
2351             if(tmp>sizeof(tlv_ptp_adj->extd_local_circuit_id)) {
2352                 if (!TTEST2(tlv_ptp_adj->extd_local_circuit_id,
2353                             sizeof(tlv_ptp_adj->extd_local_circuit_id)))
2354                     goto trunctlv;
2355                 printf("\n\t      Extended Local circuit-ID: 0x%08x",
2356                        EXTRACT_32BITS(tlv_ptp_adj->extd_local_circuit_id));
2357                 tmp-=sizeof(tlv_ptp_adj->extd_local_circuit_id);
2358             }
2359             if(tmp>=SYSTEM_ID_LEN) {
2360                 if (!TTEST2(tlv_ptp_adj->neighbor_sysid, SYSTEM_ID_LEN))
2361                     goto trunctlv;
2362                 printf("\n\t      Neighbor System-ID: %s",
2363                        isis_print_id(tlv_ptp_adj->neighbor_sysid,SYSTEM_ID_LEN));
2364                 tmp-=SYSTEM_ID_LEN;
2365             }
2366             if(tmp>=sizeof(tlv_ptp_adj->neighbor_extd_local_circuit_id)) {
2367                 if (!TTEST2(tlv_ptp_adj->neighbor_extd_local_circuit_id,
2368                             sizeof(tlv_ptp_adj->neighbor_extd_local_circuit_id)))
2369                     goto trunctlv;
2370                 printf("\n\t      Neighbor Extended Local circuit-ID: 0x%08x",
2371                        EXTRACT_32BITS(tlv_ptp_adj->neighbor_extd_local_circuit_id));
2372             }
2373             break;
2374
2375         case ISIS_TLV_PROTOCOLS:
2376             printf("\n\t      NLPID(s): ");
2377             while (tmp>0) {
2378                 if (!TTEST2(*(tptr), 1))
2379                     goto trunctlv;
2380                 printf("%s (0x%02x)",
2381                        tok2str(nlpid_values,
2382                                "unknown",
2383                                *tptr),
2384                        *tptr);
2385                 if (tmp>1) /* further NPLIDs ? - put comma */
2386                     printf(", ");
2387                 tptr++;
2388                 tmp--;
2389             }
2390             break;
2391
2392         case ISIS_TLV_TE_ROUTER_ID:
2393             if (!TTEST2(*pptr, sizeof(struct in_addr)))
2394                 goto trunctlv;
2395             printf("\n\t      Traffic Engineering Router ID: %s", ipaddr_string(pptr));
2396             break;
2397
2398         case ISIS_TLV_IPADDR:
2399             while (tmp>=sizeof(struct in_addr)) {
2400                 if (!TTEST2(*tptr, sizeof(struct in_addr)))
2401                     goto trunctlv;
2402                 printf("\n\t      IPv4 interface address: %s", ipaddr_string(tptr));
2403                 tptr += sizeof(struct in_addr);
2404                 tmp -= sizeof(struct in_addr);
2405             }
2406             break;
2407
2408         case ISIS_TLV_HOSTNAME:
2409             printf("\n\t      Hostname: ");
2410             while (tmp>0) {
2411                 if (!TTEST2(*tptr, 1))
2412                     goto trunctlv;
2413                 printf("%c",*tptr++);
2414                 tmp--;
2415             }
2416             break;
2417
2418         case ISIS_TLV_SHARED_RISK_GROUP:
2419             if (tmp < NODE_ID_LEN)
2420                 break;
2421             if (!TTEST2(*tptr, NODE_ID_LEN))
2422                 goto trunctlv;
2423             printf("\n\t      IS Neighbor: %s", isis_print_id(tptr, NODE_ID_LEN));
2424             tptr+=(NODE_ID_LEN);
2425             tmp-=(NODE_ID_LEN);
2426
2427             if (tmp < 1)
2428                 break;
2429             if (!TTEST2(*tptr, 1))
2430                 goto trunctlv;
2431             printf(", Flags: [%s]", ISIS_MASK_TLV_SHARED_RISK_GROUP(*tptr++) ? "numbered" : "unnumbered");
2432             tmp--;
2433
2434             if (tmp < sizeof(struct in_addr))
2435                 break;
2436             if (!TTEST2(*tptr,sizeof(struct in_addr)))
2437                 goto trunctlv;
2438             printf("\n\t      IPv4 interface address: %s", ipaddr_string(tptr));
2439             tptr+=sizeof(struct in_addr);
2440             tmp-=sizeof(struct in_addr);
2441
2442             if (tmp < sizeof(struct in_addr))
2443                 break;
2444             if (!TTEST2(*tptr,sizeof(struct in_addr)))
2445                 goto trunctlv;
2446             printf("\n\t      IPv4 neighbor address: %s", ipaddr_string(tptr));
2447             tptr+=sizeof(struct in_addr);
2448             tmp-=sizeof(struct in_addr);
2449
2450             while (tmp>=4) {
2451                 if (!TTEST2(*tptr, 4))
2452                     goto trunctlv;
2453                 printf("\n\t      Link-ID: 0x%08x", EXTRACT_32BITS(tptr));
2454                 tptr+=4;
2455                 tmp-=4;
2456             }
2457             break;
2458
2459         case ISIS_TLV_LSP:
2460             tlv_lsp = (const struct isis_tlv_lsp *)tptr;
2461             while(tmp>=sizeof(struct isis_tlv_lsp)) {
2462                 if (!TTEST((tlv_lsp->lsp_id)[LSP_ID_LEN-1]))
2463                     goto trunctlv;
2464                 printf("\n\t      lsp-id: %s",
2465                        isis_print_id(tlv_lsp->lsp_id, LSP_ID_LEN));
2466                 if (!TTEST2(tlv_lsp->sequence_number, 4))
2467                     goto trunctlv;
2468                 printf(", seq: 0x%08x",EXTRACT_32BITS(tlv_lsp->sequence_number));
2469                 if (!TTEST2(tlv_lsp->remaining_lifetime, 2))
2470                     goto trunctlv;
2471                 printf(", lifetime: %5ds",EXTRACT_16BITS(tlv_lsp->remaining_lifetime));
2472                 if (!TTEST2(tlv_lsp->checksum, 2))
2473                     goto trunctlv;
2474                 printf(", chksum: 0x%04x",EXTRACT_16BITS(tlv_lsp->checksum));
2475                 tmp-=sizeof(struct isis_tlv_lsp);
2476                 tlv_lsp++;
2477             }
2478             break;
2479
2480         case ISIS_TLV_CHECKSUM:
2481             if (tmp < ISIS_TLV_CHECKSUM_MINLEN)
2482                 break;
2483             if (!TTEST2(*tptr, ISIS_TLV_CHECKSUM_MINLEN))
2484                 goto trunctlv;
2485             printf("\n\t      checksum: 0x%04x ", EXTRACT_16BITS(tptr));
2486             /* do not attempt to verify the checksum if it is zero
2487              * most likely a HMAC-MD5 TLV is also present and
2488              * to avoid conflicts the checksum TLV is zeroed.
2489              * see rfc3358 for details
2490              */
2491             if (EXTRACT_16BITS(tptr) == 0)
2492                 printf("(unverified)");
2493             else printf("(%s)", osi_cksum(optr, length) ? "incorrect" : "correct");
2494             break;
2495
2496         case ISIS_TLV_MT_SUPPORTED:
2497             if (tmp < ISIS_TLV_MT_SUPPORTED_MINLEN)
2498                 break;
2499             while (tmp>1) {
2500                 /* length can only be a multiple of 2, otherwise there is
2501                    something broken -> so decode down until length is 1 */
2502                 if (tmp!=1) {
2503                     mt_len = isis_print_mtid(tptr, "\n\t      ");
2504                     if (mt_len == 0) /* did something go wrong ? */
2505                         goto trunctlv;
2506                     tptr+=mt_len;
2507                     tmp-=mt_len;
2508                 } else {
2509                     printf("\n\t      malformed MT-ID");
2510                     break;
2511                 }
2512             }
2513             break;
2514
2515         case ISIS_TLV_RESTART_SIGNALING:
2516             /* first attempt to decode the flags */
2517             if (tmp < ISIS_TLV_RESTART_SIGNALING_FLAGLEN)
2518                 break;
2519             if (!TTEST2(*tptr, ISIS_TLV_RESTART_SIGNALING_FLAGLEN))
2520                 goto trunctlv;
2521             printf("\n\t      Flags [%s]",
2522                    bittok2str(isis_restart_flag_values, "none", *tptr));
2523             tptr+=ISIS_TLV_RESTART_SIGNALING_FLAGLEN;
2524             tmp-=ISIS_TLV_RESTART_SIGNALING_FLAGLEN;
2525
2526             /* is there anything other than the flags field? */
2527             if (tmp == 0)
2528                 break;
2529
2530             if (tmp < ISIS_TLV_RESTART_SIGNALING_HOLDTIMELEN)
2531                 break;
2532             if (!TTEST2(*tptr, ISIS_TLV_RESTART_SIGNALING_HOLDTIMELEN))
2533                 goto trunctlv;
2534
2535             printf(", Remaining holding time %us", EXTRACT_16BITS(tptr));
2536             tptr+=ISIS_TLV_RESTART_SIGNALING_HOLDTIMELEN;
2537             tmp-=ISIS_TLV_RESTART_SIGNALING_HOLDTIMELEN;
2538
2539             /* is there an additional sysid field present ?*/
2540             if (tmp == SYSTEM_ID_LEN) {
2541                     if (!TTEST2(*tptr, SYSTEM_ID_LEN))
2542                             goto trunctlv;
2543                     printf(", for %s",isis_print_id(tptr,SYSTEM_ID_LEN));
2544             }
2545             break;
2546
2547         case ISIS_TLV_IDRP_INFO:
2548             if (tmp < ISIS_TLV_IDRP_INFO_MINLEN)
2549                 break;
2550             if (!TTEST2(*tptr, ISIS_TLV_IDRP_INFO_MINLEN))
2551                 goto trunctlv;
2552             printf("\n\t      Inter-Domain Information Type: %s",
2553                    tok2str(isis_subtlv_idrp_values,
2554                            "Unknown (0x%02x)",
2555                            *tptr));
2556             switch (*tptr++) {
2557             case ISIS_SUBTLV_IDRP_ASN:
2558                 if (!TTEST2(*tptr, 2)) /* fetch AS number */
2559                     goto trunctlv;
2560                 printf("AS Number: %u",EXTRACT_16BITS(tptr));
2561                 break;
2562             case ISIS_SUBTLV_IDRP_LOCAL:
2563             case ISIS_SUBTLV_IDRP_RES:
2564             default:
2565                 if(!print_unknown_data(tptr,"\n\t      ",tlv_len-1))
2566                     return(0);
2567                 break;
2568             }
2569             break;
2570
2571         case ISIS_TLV_LSP_BUFFERSIZE:
2572             if (tmp < ISIS_TLV_LSP_BUFFERSIZE_MINLEN)
2573                 break;
2574             if (!TTEST2(*tptr, ISIS_TLV_LSP_BUFFERSIZE_MINLEN))
2575                 goto trunctlv;
2576             printf("\n\t      LSP Buffersize: %u",EXTRACT_16BITS(tptr));
2577             break;
2578
2579         case ISIS_TLV_PART_DIS:
2580             while (tmp >= SYSTEM_ID_LEN) {
2581                 if (!TTEST2(*tptr, SYSTEM_ID_LEN))
2582                     goto trunctlv;
2583                 printf("\n\t      %s",isis_print_id(tptr,SYSTEM_ID_LEN));
2584                 tptr+=SYSTEM_ID_LEN;
2585                 tmp-=SYSTEM_ID_LEN;
2586             }
2587             break;
2588
2589         case ISIS_TLV_PREFIX_NEIGH:
2590             if (tmp < sizeof(struct isis_metric_block))
2591                 break;
2592             if (!TTEST2(*tptr, sizeof(struct isis_metric_block)))
2593                 goto trunctlv;
2594             printf("\n\t      Metric Block");
2595             isis_print_metric_block((const struct isis_metric_block *)tptr);
2596             tptr+=sizeof(struct isis_metric_block);
2597             tmp-=sizeof(struct isis_metric_block);
2598
2599             while(tmp>0) {
2600                 if (!TTEST2(*tptr, 1))
2601                     goto trunctlv;
2602                 prefix_len=*tptr++; /* read out prefix length in semioctets*/
2603                 if (prefix_len < 2) {
2604                     printf("\n\t\tAddress: prefix length %u < 2", prefix_len);
2605                     break;
2606                 }
2607                 tmp--;
2608                 if (tmp < prefix_len/2)
2609                     break;
2610                 if (!TTEST2(*tptr, prefix_len/2))
2611                     goto trunctlv;
2612                 printf("\n\t\tAddress: %s/%u",
2613                        isonsap_string(tptr,prefix_len/2),
2614                        prefix_len*4);
2615                 tptr+=prefix_len/2;
2616                 tmp-=prefix_len/2;
2617             }
2618             break;
2619
2620         case ISIS_TLV_IIH_SEQNR:
2621             if (tmp < ISIS_TLV_IIH_SEQNR_MINLEN)
2622                 break;
2623             if (!TTEST2(*tptr, ISIS_TLV_IIH_SEQNR_MINLEN)) /* check if four bytes are on the wire */
2624                 goto trunctlv;
2625             printf("\n\t      Sequence number: %u", EXTRACT_32BITS(tptr) );
2626             break;
2627
2628         case ISIS_TLV_VENDOR_PRIVATE:
2629             if (tmp < ISIS_TLV_VENDOR_PRIVATE_MINLEN)
2630                 break;
2631             if (!TTEST2(*tptr, ISIS_TLV_VENDOR_PRIVATE_MINLEN)) /* check if enough byte for a full oui */
2632                 goto trunctlv;
2633             vendor_id = EXTRACT_24BITS(tptr);
2634             printf("\n\t      Vendor: %s (%u)",
2635                    tok2str(oui_values,"Unknown",vendor_id),
2636                    vendor_id);
2637             tptr+=3;
2638             tmp-=3;
2639             if (tmp > 0) /* hexdump the rest */
2640                 if(!print_unknown_data(tptr,"\n\t\t",tmp))
2641                     return(0);
2642             break;
2643             /*
2644              * FIXME those are the defined TLVs that lack a decoder
2645              * you are welcome to contribute code ;-)
2646              */
2647
2648         case ISIS_TLV_DECNET_PHASE4:
2649         case ISIS_TLV_LUCENT_PRIVATE:
2650         case ISIS_TLV_IPAUTH:
2651         case ISIS_TLV_NORTEL_PRIVATE1:
2652         case ISIS_TLV_NORTEL_PRIVATE2:
2653
2654         default:
2655             if (vflag <= 1) {
2656                 if(!print_unknown_data(pptr,"\n\t\t",tlv_len))
2657                     return(0);
2658             }
2659             break;
2660         }
2661         /* do we want to see an additionally hexdump ? */
2662         if (vflag> 1) {
2663             if(!print_unknown_data(pptr,"\n\t      ",tlv_len))
2664                 return(0);
2665         }
2666
2667         pptr += tlv_len;
2668         packet_len -= tlv_len;
2669     }
2670
2671     if (packet_len != 0) {
2672         printf("\n\t      %u straggler bytes", packet_len);
2673     }
2674     return (1);
2675
2676  trunc:
2677     fputs("[|isis]", stdout);
2678     return (1);
2679
2680  trunctlv:
2681     printf("\n\t\t packet exceeded snapshot");
2682     return(1);
2683 }
2684
2685 /*
2686  * Verify the checksum.  See 8473-1, Appendix C, section C.4.
2687  */
2688
2689 static int
2690 osi_cksum(const u_int8_t *tptr, u_int len)
2691 {
2692         int32_t c0 = 0, c1 = 0;
2693
2694         while ((int)--len >= 0) {
2695                 c0 += *tptr++;
2696                 c0 %= 255;
2697                 c1 += c0;
2698                 c1 %= 255;
2699         }
2700         return (c0 | c1);
2701 }
2702
2703
2704 /*
2705  * Local Variables:
2706  * c-style: whitesmith
2707  * c-basic-offset: 8
2708  * End:
2709  */