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