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