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