print-ospf.c revision 147899
1121663Sharti/*
2121663Sharti * Copyright (c) 1992, 1993, 1994, 1995, 1996, 1997
3121663Sharti *	The Regents of the University of California.  All rights reserved.
4121663Sharti *
5121663Sharti * Redistribution and use in source and binary forms, with or without
6131823Sharti * modification, are permitted provided that: (1) source code distributions
7131823Sharti * retain the above copyright notice and this paragraph in its entirety, (2)
8121663Sharti * distributions including binary code include the above copyright notice and
9121663Sharti * this paragraph in its entirety in the documentation or other materials
10121663Sharti * provided with the distribution, and (3) all advertising materials mentioning
11121663Sharti * features or use of this software display the following acknowledgement:
12121663Sharti * ``This product includes software developed by the University of California,
13121663Sharti * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
14121663Sharti * the University nor the names of its contributors may be used to endorse
15121663Sharti * or promote products derived from this software without specific prior
16121663Sharti * written permission.
17121663Sharti * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
18121663Sharti * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
19121663Sharti * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
20121663Sharti *
21121663Sharti * OSPF support contributed by Jeffrey Honig (jch@mitchell.cit.cornell.edu)
22121663Sharti */
23121663Sharti
24121663Sharti#ifndef lint
25121663Shartistatic const char rcsid[] _U_ =
26121663Sharti    "@(#) $Header: /tcpdump/master/tcpdump/print-ospf.c,v 1.56.2.2 2005/05/06 07:57:19 guy Exp $ (LBL)";
27121663Sharti#endif
28121663Sharti
29131823Sharti#ifdef HAVE_CONFIG_H
30121663Sharti#include "config.h"
31121663Sharti#endif
32121663Sharti
33121663Sharti#include <tcpdump-stdinc.h>
34121663Sharti
35121663Sharti#include <stdio.h>
36121663Sharti
37121663Sharti#include "interface.h"
38121663Sharti#include "addrtoname.h"
39121663Sharti#include "extract.h"
40121663Sharti#include "gmpls.h"
41121663Sharti
42121663Sharti#include "ospf.h"
43121663Sharti
44121663Sharti#include "ip.h"
45121663Sharti
46121663Shartistatic struct tok ospf_option_values[] = {
47121663Sharti	{ OSPF_OPTION_T,	"TOS" },
48121663Sharti	{ OSPF_OPTION_E,	"External" },
49121663Sharti	{ OSPF_OPTION_MC,	"Multicast" },
50121663Sharti	{ OSPF_OPTION_NP,	"NSSA" },
51121663Sharti	{ OSPF_OPTION_EA,	"Advertise External" },
52121663Sharti	{ OSPF_OPTION_DC,	"Demand Circuit" },
53121663Sharti	{ OSPF_OPTION_O,	"Opaque" },
54121663Sharti	{ OSPF_OPTION_DN,	"Up/Down" },
55121663Sharti	{ 0,			NULL }
56121663Sharti};
57121663Sharti
58121663Shartistatic struct tok ospf_authtype_values[] = {
59121663Sharti	{ OSPF_AUTH_NONE,	"none" },
60121663Sharti	{ OSPF_AUTH_NONE,	"simple" },
61121663Sharti	{ OSPF_AUTH_MD5,	"MD5" },
62121663Sharti	{ 0,			NULL }
63121663Sharti};
64121663Sharti
65121663Shartistatic struct tok ospf_rla_flag_values[] = {
66121663Sharti	{ RLA_FLAG_B,		"ABR" },
67121663Sharti	{ RLA_FLAG_E,		"ASBR" },
68121663Sharti	{ RLA_FLAG_W1,		"Virtual" },
69121663Sharti	{ RLA_FLAG_W2,		"W2" },
70121663Sharti	{ 0,			NULL }
71121663Sharti};
72121663Sharti
73121663Shartistatic struct tok type2str[] = {
74121663Sharti	{ OSPF_TYPE_UMD,	"UMD" },
75121663Sharti	{ OSPF_TYPE_HELLO,	"Hello" },
76121663Sharti	{ OSPF_TYPE_DD,		"Database Description" },
77121663Sharti	{ OSPF_TYPE_LS_REQ,	"LS-Request" },
78121663Sharti	{ OSPF_TYPE_LS_UPDATE,	"LS-Update" },
79121663Sharti	{ OSPF_TYPE_LS_ACK,	"LS-Ack" },
80121663Sharti	{ 0,			NULL }
81121663Sharti};
82121663Sharti
83121663Shartistatic struct tok lsa_values[] = {
84121663Sharti	{ LS_TYPE_ROUTER,       "Router" },
85121663Sharti	{ LS_TYPE_NETWORK,      "Network" },
86121663Sharti	{ LS_TYPE_SUM_IP,       "Summary" },
87121663Sharti	{ LS_TYPE_SUM_ABR,      "ASBR Summary" },
88121663Sharti	{ LS_TYPE_ASE,          "External" },
89121663Sharti	{ LS_TYPE_GROUP,        "Multicast Group" },
90121663Sharti	{ LS_TYPE_NSSA,         "NSSA" },
91121663Sharti	{ LS_TYPE_OPAQUE_LL,    "Link Local Opaque" },
92121663Sharti	{ LS_TYPE_OPAQUE_AL,    "Area Local Opaque" },
93121663Sharti	{ LS_TYPE_OPAQUE_DW,    "Domain Wide Opaque" },
94121663Sharti	{ 0,			NULL }
95121663Sharti};
96121663Sharti
97121663Shartistatic struct tok ospf_dd_flag_values[] = {
98121663Sharti	{ OSPF_DB_INIT,	        "Init" },
99121663Sharti	{ OSPF_DB_MORE,	        "More" },
100121663Sharti	{ OSPF_DB_MASTER,	"Master" },
101121663Sharti	{ 0,			NULL }
102121663Sharti};
103121663Sharti
104121663Shartistatic struct tok lsa_opaque_values[] = {
105121663Sharti	{ LS_OPAQUE_TYPE_TE,    "Traffic Engineering" },
106121663Sharti	{ LS_OPAQUE_TYPE_GRACE, "Graceful restart" },
107121663Sharti	{ LS_OPAQUE_TYPE_RI,    "Router Information" },
108121663Sharti	{ 0,			NULL }
109121663Sharti};
110121663Sharti
111121663Shartistatic struct tok lsa_opaque_te_tlv_values[] = {
112121663Sharti	{ LS_OPAQUE_TE_TLV_ROUTER, "Router Address" },
113121663Sharti	{ LS_OPAQUE_TE_TLV_LINK,   "Link" },
114121663Sharti	{ 0,			NULL }
115121663Sharti};
116121663Sharti
117121663Shartistatic struct tok lsa_opaque_te_link_tlv_subtlv_values[] = {
118121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_LINK_TYPE,            "Link Type" },
119121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_LINK_ID,              "Link ID" },
120121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_LOCAL_IP,             "Local Interface IP address" },
121121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_REMOTE_IP,            "Remote Interface IP address" },
122121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_TE_METRIC,            "Traffic Engineering Metric" },
123121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_MAX_BW,               "Maximum Bandwidth" },
124121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_MAX_RES_BW,           "Maximum Reservable Bandwidth" },
125121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_UNRES_BW,             "Unreserved Bandwidth" },
126121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_ADMIN_GROUP,          "Administrative Group" },
127121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_LINK_LOCAL_REMOTE_ID, "Link Local/Remote Identifier" },
128121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_LINK_PROTECTION_TYPE, "Link Protection Type" },
129121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_INTF_SW_CAP_DESCR,    "Interface Switching Capability" },
130121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_SHARED_RISK_GROUP,    "Shared Risk Link Group" },
131121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_DIFFSERV_TE,          "Diffserv TE" },
132121663Sharti	{ 0,			NULL }
133121663Sharti};
134121663Sharti
135121663Shartistatic struct tok lsa_opaque_grace_tlv_values[] = {
136121663Sharti	{ LS_OPAQUE_GRACE_TLV_PERIOD,             "Grace Period" },
137121663Sharti	{ LS_OPAQUE_GRACE_TLV_REASON,             "Graceful restart Reason" },
138121663Sharti	{ LS_OPAQUE_GRACE_TLV_INT_ADDRESS,        "IPv4 interface address" },
139121663Sharti	{ 0,		        NULL }
140121663Sharti};
141121663Sharti
142121663Shartistatic struct tok lsa_opaque_grace_tlv_reason_values[] = {
143121663Sharti	{ LS_OPAQUE_GRACE_TLV_REASON_UNKNOWN,     "Unknown" },
144121663Sharti	{ LS_OPAQUE_GRACE_TLV_REASON_SW_RESTART,  "Software Restart" },
145121663Sharti	{ LS_OPAQUE_GRACE_TLV_REASON_SW_UPGRADE,  "Software Reload/Upgrade" },
146121663Sharti	{ LS_OPAQUE_GRACE_TLV_REASON_CP_SWITCH,   "Control Processor Switch" },
147121663Sharti	{ 0,		        NULL }
148121663Sharti};
149121663Sharti
150121663Shartistatic struct tok lsa_opaque_te_tlv_link_type_sub_tlv_values[] = {
151121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_LINK_TYPE_PTP, "Point-to-point" },
152121663Sharti	{ LS_OPAQUE_TE_LINK_SUBTLV_LINK_TYPE_MA,  "Multi-Access" },
153121663Sharti	{ 0,			NULL }
154121663Sharti};
155121663Sharti
156121663Shartistatic struct tok lsa_opaque_ri_tlv_values[] = {
157121663Sharti	{ LS_OPAQUE_RI_TLV_CAP, "Router Capabilities" },
158121663Sharti	{ 0,		        NULL }
159121663Sharti};
160121663Sharti
161121663Shartistatic struct tok lsa_opaque_ri_tlv_cap_values[] = {
162121663Sharti	{ 1, "Reserved" },
163121663Sharti	{ 2, "Reserved" },
164121663Sharti	{ 4, "Reserved" },
165121663Sharti	{ 8, "Reserved" },
166121663Sharti	{ 16, "graceful restart capable" },
167121663Sharti	{ 32, "graceful restart helper" },
168121663Sharti	{ 64, "Stub router support" },
169121663Sharti	{ 128, "Traffic engineering" },
170121663Sharti	{ 256, "p2p over LAN" },
171121663Sharti	{ 512, "path computation server" },
172121663Sharti	{ 0,		        NULL }
173121663Sharti};
174121663Sharti
175121663Shartistatic char tstr[] = " [|ospf]";
176121663Sharti
177121663Sharti#ifdef WIN32
178121663Sharti#define inline __inline
179121663Sharti#endif /* WIN32 */
180121663Sharti
181121663Shartistatic int ospf_print_lshdr(const struct lsa_hdr *);
182121663Shartistatic const u_char *ospf_print_lsa(const struct lsa *);
183121663Shartistatic int ospf_decode_v2(const struct ospfhdr *, const u_char *);
184121663Sharti
185121663Shartistatic int
186121663Shartiospf_print_lshdr(register const struct lsa_hdr *lshp)
187121663Sharti{
188121663Sharti        u_int ls_length;
189121663Sharti
190121663Sharti        TCHECK(lshp->ls_length);
191121663Sharti        ls_length = EXTRACT_16BITS(&lshp->ls_length);
192121663Sharti        if (ls_length < sizeof(struct lsa_hdr)) {
193121663Sharti                printf("\n\t    Bogus length %u < %lu", ls_length,
194121663Sharti                    (unsigned long)sizeof(struct lsa_hdr));
195121663Sharti                return(-1);
196121663Sharti        }
197121663Sharti
198121663Sharti        TCHECK(lshp->ls_seq);	/* XXX - ls_length check checked this */
199121663Sharti	printf("\n\t  Advertising Router: %s, seq 0x%08x, age %us, length: %u",
200121663Sharti	       ipaddr_string(&lshp->ls_router),
201121663Sharti	       EXTRACT_32BITS(&lshp->ls_seq),
202121663Sharti	       EXTRACT_16BITS(&lshp->ls_age),
203121663Sharti               ls_length-(u_int)sizeof(struct lsa_hdr));
204121663Sharti
205121663Sharti	TCHECK(lshp->ls_type);	/* XXX - ls_length check checked this */
206121663Sharti        switch (lshp->ls_type) {
207121663Sharti	/* the LSA header for opaque LSAs was slightly changed */
208121663Sharti        case LS_TYPE_OPAQUE_LL:
209121663Sharti        case LS_TYPE_OPAQUE_AL:
210121663Sharti        case LS_TYPE_OPAQUE_DW:
211121663Sharti            printf("\n\t    %s LSA (%d), Opaque-Type: %s LSA (%u), Opaque-ID: %u",
212121663Sharti                   tok2str(lsa_values,"unknown",lshp->ls_type),
213121663Sharti                   lshp->ls_type,
214121663Sharti
215121663Sharti		   tok2str(lsa_opaque_values,
216121663Sharti			   "unknown",
217121663Sharti			   *(&lshp->un_lsa_id.opaque_field.opaque_type)),
218121663Sharti		   *(&lshp->un_lsa_id.opaque_field.opaque_type),
219121663Sharti		   EXTRACT_24BITS(&lshp->un_lsa_id.opaque_field.opaque_id)
220121663Sharti
221121663Sharti                   );
222121663Sharti            break;
223121663Sharti
224121663Sharti	/* all other LSA types use regular style LSA headers */
225121663Sharti	default:
226121663Sharti            printf("\n\t    %s LSA (%d), LSA-ID: %s",
227121663Sharti                   tok2str(lsa_values,"unknown",lshp->ls_type),
228121663Sharti                   lshp->ls_type,
229121663Sharti                   ipaddr_string(&lshp->un_lsa_id.lsa_id));
230121663Sharti            break;
231121663Sharti        }
232121663Sharti
233121663Sharti	TCHECK(lshp->ls_options);	/* XXX - ls_length check checked this */
234121663Sharti        printf("\n\t    Options: [%s]", bittok2str(ospf_option_values,"none",lshp->ls_options));
235121663Sharti
236121663Sharti        return (ls_length);
237121663Shartitrunc:
238121663Sharti	return (-1);
239121663Sharti}
240121663Sharti
241121663Sharti/*
242121663Sharti * Print a single link state advertisement.  If truncated or if LSA length
243121663Sharti * field is less than the length of the LSA header, return NULl, else
244121663Sharti * return pointer to data past end of LSA.
245121663Sharti */
246121663Shartistatic const u_int8_t *
247121663Shartiospf_print_lsa(register const struct lsa *lsap)
248121663Sharti{
249121663Sharti	register const u_int8_t *ls_end;
250121663Sharti	register const struct rlalink *rlp;
251121663Sharti	register const struct tos_metric *tosp;
252121663Sharti	register const struct in_addr *ap;
253121663Sharti	register const struct aslametric *almp;
254121663Sharti	register const struct mcla *mcp;
255121663Sharti	register const u_int32_t *lp;
256121663Sharti	register int j, k, tlv_type, tlv_length, subtlv_type, subtlv_length, priority_level, bandwidth_constraint;
257121663Sharti	register int ls_length;
258121663Sharti	const u_int8_t *tptr;
259121663Sharti	int count_srlg;
260121663Sharti        union { /* int to float conversion buffer for several subTLVs */
261121663Sharti            float f;
262121663Sharti            u_int32_t i;
263121663Sharti        } bw;
264121663Sharti
265121663Sharti	tptr = (u_int8_t *)lsap->lsa_un.un_unknown; /* squelch compiler warnings */
266121663Sharti        ls_length = ospf_print_lshdr(&lsap->ls_hdr);
267121663Sharti        if (ls_length == -1)
268121663Sharti                return(NULL);
269121663Sharti	ls_end = (u_int8_t *)lsap + ls_length;
270121663Sharti	ls_length -= sizeof(struct lsa_hdr);
271121663Sharti
272121663Sharti	switch (lsap->ls_hdr.ls_type) {
273121663Sharti
274121663Sharti	case LS_TYPE_ROUTER:
275121663Sharti		TCHECK(lsap->lsa_un.un_rla.rla_flags);
276121663Sharti                printf("\n\t    Router LSA Options: [%s]", bittok2str(ospf_rla_flag_values,"none",lsap->lsa_un.un_rla.rla_flags));
277121663Sharti
278121663Sharti		TCHECK(lsap->lsa_un.un_rla.rla_count);
279121663Sharti		j = EXTRACT_16BITS(&lsap->lsa_un.un_rla.rla_count);
280121663Sharti		TCHECK(lsap->lsa_un.un_rla.rla_link);
281121663Sharti		rlp = lsap->lsa_un.un_rla.rla_link;
282121663Sharti		while (j--) {
283121663Sharti			TCHECK(*rlp);
284121663Sharti			switch (rlp->link_type) {
285121663Sharti
286121663Sharti			case RLA_TYPE_VIRTUAL:
287121663Sharti				printf("\n\t      Virtual Link: Neighbor Router-ID: %s, Interface Address: %s",
288121663Sharti				    ipaddr_string(&rlp->link_id),
289121663Sharti				    ipaddr_string(&rlp->link_data));
290121663Sharti                                break;
291121663Sharti
292121663Sharti			case RLA_TYPE_ROUTER:
293121663Sharti				printf("\n\t      Neighbor Router-ID: %s, Interface Address: %s",
294121663Sharti				    ipaddr_string(&rlp->link_id),
295121663Sharti				    ipaddr_string(&rlp->link_data));
296121663Sharti				break;
297121663Sharti
298121663Sharti			case RLA_TYPE_TRANSIT:
299121663Sharti				printf("\n\t      Neighbor Network-ID: %s, Interface Address: %s",
300121663Sharti				    ipaddr_string(&rlp->link_id),
301121663Sharti				    ipaddr_string(&rlp->link_data));
302121663Sharti				break;
303121663Sharti
304121663Sharti			case RLA_TYPE_STUB:
305121663Sharti				printf("\n\t      Stub Network: %s, Mask: %s",
306121663Sharti				    ipaddr_string(&rlp->link_id),
307121663Sharti				    ipaddr_string(&rlp->link_data));
308121663Sharti				break;
309121663Sharti
310121663Sharti			default:
311121663Sharti				printf("\n\t      Unknown Router Link Type (%u)",
312121663Sharti				    rlp->link_type);
313121663Sharti				return (ls_end);
314121663Sharti			}
315121663Sharti			printf(", tos 0, metric: %d", EXTRACT_16BITS(&rlp->link_tos0metric));
316121663Sharti			tosp = (struct tos_metric *)
317121663Sharti			    ((sizeof rlp->link_tos0metric) + (u_char *) rlp);
318121663Sharti			for (k = 0; k < (int) rlp->link_toscount; ++k, ++tosp) {
319121663Sharti				TCHECK(*tosp);
320121663Sharti				printf(", tos %d, metric: %d",
321121663Sharti				    tosp->tos_type,
322121663Sharti				    EXTRACT_16BITS(&tosp->tos_metric));
323121663Sharti			}
324121663Sharti			rlp = (struct rlalink *)((u_char *)(rlp + 1) +
325121663Sharti			    ((rlp->link_toscount) * sizeof(*tosp)));
326121663Sharti		}
327121663Sharti		break;
328121663Sharti
329121663Sharti	case LS_TYPE_NETWORK:
330121663Sharti		TCHECK(lsap->lsa_un.un_nla.nla_mask);
331121663Sharti		printf("\n\t    Mask %s\n\t    Connected Routers:",
332121663Sharti		    ipaddr_string(&lsap->lsa_un.un_nla.nla_mask));
333121663Sharti		ap = lsap->lsa_un.un_nla.nla_router;
334121663Sharti		while ((u_char *)ap < ls_end) {
335121663Sharti			TCHECK(*ap);
336121663Sharti			printf("\n\t      %s", ipaddr_string(ap));
337121663Sharti			++ap;
338121663Sharti		}
339121663Sharti		break;
340121663Sharti
341121663Sharti	case LS_TYPE_SUM_IP:
342121663Sharti		TCHECK(lsap->lsa_un.un_nla.nla_mask);
343121663Sharti		printf("\n\t    Mask %s",
344121663Sharti		    ipaddr_string(&lsap->lsa_un.un_sla.sla_mask));
345121663Sharti		TCHECK(lsap->lsa_un.un_sla.sla_tosmetric);
346121663Sharti		lp = lsap->lsa_un.un_sla.sla_tosmetric;
347121663Sharti                /* suppress tos if its not supported */
348121663Sharti                if(!((lsap->ls_hdr.ls_options)&OSPF_OPTION_T)) {
349121663Sharti                    printf(", metric: %u", EXTRACT_32BITS(lp)&SLA_MASK_METRIC);
350121663Sharti                    break;
351121663Sharti                }
352121663Sharti		while ((u_char *)lp < ls_end) {
353121663Sharti			register u_int32_t ul;
354121663Sharti
355121663Sharti			TCHECK(*lp);
356121663Sharti			ul = EXTRACT_32BITS(lp);
357121663Sharti			printf(", tos %d metric %d",
358121663Sharti			    (ul & SLA_MASK_TOS) >> SLA_SHIFT_TOS,
359121663Sharti			    ul & SLA_MASK_METRIC);
360121663Sharti			++lp;
361121663Sharti		}
362121663Sharti		break;
363121663Sharti
364121663Sharti	case LS_TYPE_SUM_ABR:
365121663Sharti		TCHECK(lsap->lsa_un.un_sla.sla_tosmetric);
366121663Sharti		lp = lsap->lsa_un.un_sla.sla_tosmetric;
367121663Sharti                /* suppress tos if its not supported */
368121663Sharti                if(!((lsap->ls_hdr.ls_options)&OSPF_OPTION_T)) {
369121663Sharti                    printf(", metric: %u", EXTRACT_32BITS(lp)&SLA_MASK_METRIC);
370121663Sharti                    break;
371121663Sharti                }
372121663Sharti		while ((u_char *)lp < ls_end) {
373121663Sharti			register u_int32_t ul;
374121663Sharti
375121663Sharti			TCHECK(*lp);
376121663Sharti			ul = EXTRACT_32BITS(lp);
377121663Sharti			printf(", tos %d metric %d",
378121663Sharti			    (ul & SLA_MASK_TOS) >> SLA_SHIFT_TOS,
379121663Sharti			    ul & SLA_MASK_METRIC);
380121663Sharti			++lp;
381121663Sharti		}
382121663Sharti		break;
383121663Sharti
384121663Sharti	case LS_TYPE_ASE:
385121663Sharti        case LS_TYPE_NSSA: /* fall through - those LSAs share the same format */
386121663Sharti		TCHECK(lsap->lsa_un.un_nla.nla_mask);
387121663Sharti		printf("\n\t    Mask %s",
388121663Sharti		    ipaddr_string(&lsap->lsa_un.un_asla.asla_mask));
389121663Sharti
390121663Sharti		TCHECK(lsap->lsa_un.un_sla.sla_tosmetric);
391121663Sharti		almp = lsap->lsa_un.un_asla.asla_metric;
392121663Sharti		while ((u_char *)almp < ls_end) {
393121663Sharti			register u_int32_t ul;
394121663Sharti
395121663Sharti			TCHECK(almp->asla_tosmetric);
396121663Sharti			ul = EXTRACT_32BITS(&almp->asla_tosmetric);
397121663Sharti			printf(", type %d, tos %d metric:",
398121663Sharti			    (ul & ASLA_FLAG_EXTERNAL) ? 2 : 1,
399121663Sharti			    (ul & ASLA_MASK_TOS) >> ASLA_SHIFT_TOS);
400121663Sharti                        if ((ul & ASLA_MASK_METRIC)==0xffffff)
401121663Sharti                            printf(" infinite");
402121663Sharti                        else
403121663Sharti                            printf(" %d", (ul & ASLA_MASK_METRIC));
404121663Sharti
405121663Sharti			TCHECK(almp->asla_forward);
406121663Sharti			if (almp->asla_forward.s_addr) {
407121663Sharti				printf(", forward %s",
408121663Sharti				    ipaddr_string(&almp->asla_forward));
409121663Sharti			}
410121663Sharti			TCHECK(almp->asla_tag);
411121663Sharti			if (almp->asla_tag.s_addr) {
412121663Sharti				printf(", tag %s",
413121663Sharti				    ipaddr_string(&almp->asla_tag));
414121663Sharti			}
415121663Sharti			++almp;
416121663Sharti		}
417121663Sharti		break;
418121663Sharti
419121663Sharti	case LS_TYPE_GROUP:
420121663Sharti		/* Multicast extensions as of 23 July 1991 */
421121663Sharti		mcp = lsap->lsa_un.un_mcla;
422121663Sharti		while ((u_char *)mcp < ls_end) {
423121663Sharti			TCHECK(mcp->mcla_vid);
424121663Sharti			switch (EXTRACT_32BITS(&mcp->mcla_vtype)) {
425121663Sharti
426121663Sharti			case MCLA_VERTEX_ROUTER:
427121663Sharti				printf("\n\t    Router Router-ID %s",
428121663Sharti				    ipaddr_string(&mcp->mcla_vid));
429121663Sharti				break;
430121663Sharti
431121663Sharti			case MCLA_VERTEX_NETWORK:
432				printf("\n\t    Network Designated Router %s",
433				    ipaddr_string(&mcp->mcla_vid));
434				break;
435
436			default:
437				printf("\n\t    unknown VertexType (%u)",
438				    EXTRACT_32BITS(&mcp->mcla_vtype));
439				break;
440			}
441		++mcp;
442		}
443		break;
444
445	case LS_TYPE_OPAQUE_LL: /* fall through */
446	case LS_TYPE_OPAQUE_AL:
447	case LS_TYPE_OPAQUE_DW:
448
449	    switch (*(&lsap->ls_hdr.un_lsa_id.opaque_field.opaque_type)) {
450            case LS_OPAQUE_TYPE_RI:
451		tptr = (u_int8_t *)(&lsap->lsa_un.un_ri_tlv.type);
452
453		while (ls_length != 0) {
454                    TCHECK2(*tptr, 4);
455		    if (ls_length < 4) {
456                        printf("\n\t    Remaining LS length %u < 4", ls_length);
457                        return(ls_end);
458                    }
459                    tlv_type = EXTRACT_16BITS(tptr);
460                    tlv_length = EXTRACT_16BITS(tptr+2);
461                    tptr+=4;
462                    ls_length-=4;
463
464                    printf("\n\t    %s TLV (%u), length: %u, value: ",
465                           tok2str(lsa_opaque_ri_tlv_values,"unknown",tlv_type),
466                           tlv_type,
467                           tlv_length);
468
469                    if (tlv_length > ls_length) {
470                        printf("\n\t    Bogus length %u > %u", tlv_length,
471                            ls_length);
472                        return(ls_end);
473                    }
474                    ls_length-=tlv_length;
475                    TCHECK2(*tptr, tlv_length);
476                    switch(tlv_type) {
477
478                    case LS_OPAQUE_RI_TLV_CAP:
479                        if (tlv_length != 4) {
480                            printf("\n\t    Bogus length %u != 4", tlv_length);
481                            return(ls_end);
482                        }
483                        printf("Capabilities: %s",
484                               bittok2str(lsa_opaque_ri_tlv_cap_values, "Unknown", EXTRACT_32BITS(tptr)));
485                        break;
486                    default:
487                        if (vflag <= 1) {
488                            if(!print_unknown_data(tptr,"\n\t      ",tlv_length))
489                                return(ls_end);
490                        }
491                        break;
492
493                    }
494                    tptr+=tlv_length;
495                }
496
497                break;
498            case LS_OPAQUE_TYPE_GRACE:
499		tptr = (u_int8_t *)(&lsap->lsa_un.un_grace_tlv.type);
500
501		while (ls_length != 0) {
502                    TCHECK2(*tptr, 4);
503		    if (ls_length < 4) {
504                        printf("\n\t    Remaining LS length %u < 4", ls_length);
505                        return(ls_end);
506                    }
507                    tlv_type = EXTRACT_16BITS(tptr);
508                    tlv_length = EXTRACT_16BITS(tptr+2);
509                    tptr+=4;
510                    ls_length-=4;
511
512                    printf("\n\t    %s TLV (%u), length: %u, value: ",
513                           tok2str(lsa_opaque_grace_tlv_values,"unknown",tlv_type),
514                           tlv_type,
515                           tlv_length);
516
517                    if (tlv_length > ls_length) {
518                        printf("\n\t    Bogus length %u > %u", tlv_length,
519                            ls_length);
520                        return(ls_end);
521                    }
522                    ls_length-=tlv_length;
523                    TCHECK2(*tptr, tlv_length);
524                    switch(tlv_type) {
525
526                    case LS_OPAQUE_GRACE_TLV_PERIOD:
527                        if (tlv_length != 4) {
528                            printf("\n\t    Bogus length %u != 4", tlv_length);
529                            return(ls_end);
530                        }
531                        printf("%us",EXTRACT_32BITS(tptr));
532                        break;
533                    case LS_OPAQUE_GRACE_TLV_REASON:
534                        if (tlv_length != 1) {
535                            printf("\n\t    Bogus length %u != 1", tlv_length);
536                            return(ls_end);
537                        }
538                        printf("%s (%u)",
539                               tok2str(lsa_opaque_grace_tlv_reason_values, "Unknown", *tptr),
540                               *tptr);
541                        break;
542                    case LS_OPAQUE_GRACE_TLV_INT_ADDRESS:
543                        if (tlv_length != 4) {
544                            printf("\n\t    Bogus length %u != 4", tlv_length);
545                            return(ls_end);
546                        }
547                        printf("%s", ipaddr_string(tptr));
548                        break;
549                    default:
550                        if (vflag <= 1) {
551                            if(!print_unknown_data(tptr,"\n\t      ",tlv_length))
552                                return(ls_end);
553                        }
554                        break;
555
556                    }
557                    tptr+=tlv_length;
558                }
559
560                break;
561	    case LS_OPAQUE_TYPE_TE:
562		tptr = (u_int8_t *)(&lsap->lsa_un.un_te_lsa_tlv.type);
563
564		while (ls_length != 0) {
565                    TCHECK2(*tptr, 4);
566		    if (ls_length < 4) {
567                        printf("\n\t    Remaining LS length %u < 4", ls_length);
568                        return(ls_end);
569                    }
570                    tlv_type = EXTRACT_16BITS(tptr);
571                    tlv_length = EXTRACT_16BITS(tptr+2);
572                    tptr+=4;
573                    ls_length-=4;
574
575                    printf("\n\t    %s TLV (%u), length: %u",
576                           tok2str(lsa_opaque_te_tlv_values,"unknown",tlv_type),
577                           tlv_type,
578                           tlv_length);
579
580                    if (tlv_length > ls_length) {
581                        printf("\n\t    Bogus length %u > %u", tlv_length,
582                            ls_length);
583                        return(ls_end);
584                    }
585                    ls_length-=tlv_length;
586                    switch(tlv_type) {
587                    case LS_OPAQUE_TE_TLV_LINK:
588                        while (tlv_length != 0) {
589                            if (tlv_length < 4) {
590                                printf("\n\t    Remaining TLV length %u < 4",
591                                    tlv_length);
592                                return(ls_end);
593                            }
594                            TCHECK2(*tptr, 4);
595                            subtlv_type = EXTRACT_16BITS(tptr);
596                            subtlv_length = EXTRACT_16BITS(tptr+2);
597                            tptr+=4;
598                            tlv_length-=4;
599
600                            printf("\n\t      %s subTLV (%u), length: %u",
601                                   tok2str(lsa_opaque_te_link_tlv_subtlv_values,"unknown",subtlv_type),
602                                   subtlv_type,
603                                   subtlv_length);
604
605                            TCHECK2(*tptr, subtlv_length);
606                            switch(subtlv_type) {
607                            case LS_OPAQUE_TE_LINK_SUBTLV_ADMIN_GROUP:
608                                printf(", 0x%08x", EXTRACT_32BITS(tptr));
609                                break;
610                            case LS_OPAQUE_TE_LINK_SUBTLV_LINK_ID:
611                            case LS_OPAQUE_TE_LINK_SUBTLV_LINK_LOCAL_REMOTE_ID:
612                                printf(", %s (0x%08x)",
613                                       ipaddr_string(tptr),
614                                       EXTRACT_32BITS(tptr));
615                                if (subtlv_length == 8) /* draft-ietf-ccamp-ospf-gmpls-extensions */
616                                    printf(", %s (0x%08x)",
617                                           ipaddr_string(tptr+4),
618                                           EXTRACT_32BITS(tptr+4));
619                                break;
620                            case LS_OPAQUE_TE_LINK_SUBTLV_LOCAL_IP:
621                            case LS_OPAQUE_TE_LINK_SUBTLV_REMOTE_IP:
622                                printf(", %s", ipaddr_string(tptr));
623                                break;
624                            case LS_OPAQUE_TE_LINK_SUBTLV_MAX_BW:
625                            case LS_OPAQUE_TE_LINK_SUBTLV_MAX_RES_BW:
626                                bw.i = EXTRACT_32BITS(tptr);
627                                printf(", %.3f Mbps", bw.f*8/1000000 );
628                                break;
629                            case LS_OPAQUE_TE_LINK_SUBTLV_UNRES_BW:
630                                for (priority_level = 0; priority_level < 8; priority_level++) {
631                                    bw.i = EXTRACT_32BITS(tptr+priority_level*4);
632                                    printf("\n\t\tpriority level %d: %.3f Mbps",
633                                           priority_level,
634                                           bw.f*8/1000000 );
635                                }
636                                break;
637                            case LS_OPAQUE_TE_LINK_SUBTLV_DIFFSERV_TE:
638                                printf("\n\t\tBandwidth Constraints Model ID: %s (%u)",
639                                       tok2str(diffserv_te_bc_values, "unknown", *tptr),
640                                       *tptr);
641                                /* decode BCs until the subTLV ends */
642                                for (bandwidth_constraint = 0; bandwidth_constraint < (subtlv_length-4)/4; bandwidth_constraint++) {
643                                    bw.i = EXTRACT_32BITS(tptr+4+bandwidth_constraint*4);
644                                    printf("\n\t\t  Bandwidth constraint %d: %.3f Mbps",
645                                           bandwidth_constraint,
646                                           bw.f*8/1000000 );
647                                }
648                                break;
649                            case LS_OPAQUE_TE_LINK_SUBTLV_TE_METRIC:
650                                printf(", Metric %u", EXTRACT_32BITS(tptr));
651                                break;
652                            case LS_OPAQUE_TE_LINK_SUBTLV_LINK_PROTECTION_TYPE:
653                                printf(", %s, Priority %u",
654                                       bittok2str(gmpls_link_prot_values, "none", *tptr),
655                                       *(tptr+1));
656                                break;
657                            case LS_OPAQUE_TE_LINK_SUBTLV_INTF_SW_CAP_DESCR:
658                                printf("\n\t\tInterface Switching Capability: %s",
659                                       tok2str(gmpls_switch_cap_values, "Unknown", *(tptr)));
660                                printf("\n\t\tLSP Encoding: %s\n\t\tMax LSP Bandwidth:",
661                                       tok2str(gmpls_encoding_values, "Unknown", *(tptr+1)));
662                                for (priority_level = 0; priority_level < 8; priority_level++) {
663                                    bw.i = EXTRACT_32BITS(tptr+4+(priority_level*4));
664                                    printf("\n\t\t  priority level %d: %.3f Mbps",
665                                           priority_level,
666                                           bw.f*8/1000000 );
667                                }
668                                break;
669                            case LS_OPAQUE_TE_LINK_SUBTLV_LINK_TYPE:
670                                printf(", %s (%u)",
671                                       tok2str(lsa_opaque_te_tlv_link_type_sub_tlv_values,"unknown",*tptr),
672                                       *tptr);
673                                break;
674
675                            case LS_OPAQUE_TE_LINK_SUBTLV_SHARED_RISK_GROUP:
676                                count_srlg = subtlv_length / 4;
677                                if (count_srlg != 0)
678                                     printf("\n\t\t  Shared risk group: ");
679                                while (count_srlg > 0) {
680                                        bw.i = EXTRACT_32BITS(tptr);
681                                        printf("%d",bw.i);
682                                        tptr+=4;
683                                        count_srlg--;
684                                        if (count_srlg > 0)
685                                            printf(", ");
686                                }
687                                break;
688
689                            default:
690                                if (vflag <= 1) {
691                                    if(!print_unknown_data(tptr,"\n\t\t",subtlv_length))
692                                        return(ls_end);
693                                }
694                                break;
695                            }
696                            /* in OSPF everything has to be 32-bit aligned, including TLVs */
697                            if (subtlv_length%4 != 0)
698                                subtlv_length+=4-(subtlv_length%4);
699
700                            tlv_length-=subtlv_length;
701                            tptr+=subtlv_length;
702
703                        }
704                        break;
705
706                    case LS_OPAQUE_TE_TLV_ROUTER:
707                        if (tlv_length < 4) {
708                            printf("\n\t    TLV length %u < 4", tlv_length);
709                            return(ls_end);
710                        }
711                        TCHECK2(*tptr, 4);
712                        printf(", %s", ipaddr_string(tptr));
713                        break;
714
715                    default:
716                        if (vflag <= 1) {
717                            if(!print_unknown_data(tptr,"\n\t      ",tlv_length))
718                                return(ls_end);
719                        }
720                        break;
721                    }
722                    tptr+=tlv_length;
723		}
724                break;
725	    }
726	    break;
727        default:
728            if (vflag <= 1) {
729                if(!print_unknown_data((u_int8_t *)lsap->lsa_un.un_unknown,
730                                       "\n\t    ", ls_length))
731                    return(ls_end);
732            }
733            break;
734        }
735
736        /* do we want to see an additionally hexdump ? */
737        if (vflag> 1)
738            if(!print_unknown_data((u_int8_t *)lsap->lsa_un.un_unknown,
739                                   "\n\t    ", ls_length)) {
740                return(ls_end);
741            }
742
743	return (ls_end);
744trunc:
745	return (NULL);
746}
747
748static int
749ospf_decode_v2(register const struct ospfhdr *op,
750    register const u_char *dataend)
751{
752	register const struct in_addr *ap;
753	register const struct lsr *lsrp;
754	register const struct lsa_hdr *lshp;
755	register const struct lsa *lsap;
756	register u_int32_t lsa_count,lsa_count_max;
757
758	switch (op->ospf_type) {
759
760	case OSPF_TYPE_UMD:
761		/*
762		 * Rob Coltun's special monitoring packets;
763		 * do nothing
764		 */
765		break;
766
767	case OSPF_TYPE_HELLO:
768                printf("\n\tOptions: [%s]",
769                       bittok2str(ospf_option_values,"none",op->ospf_hello.hello_options));
770
771                TCHECK(op->ospf_hello.hello_deadint);
772                printf("\n\t  Hello Timer: %us, Dead Timer %us, Mask: %s, Priority: %u",
773                       EXTRACT_16BITS(&op->ospf_hello.hello_helloint),
774                       EXTRACT_32BITS(&op->ospf_hello.hello_deadint),
775                       ipaddr_string(&op->ospf_hello.hello_mask),
776                       op->ospf_hello.hello_priority);
777
778		TCHECK(op->ospf_hello.hello_dr);
779		if (op->ospf_hello.hello_dr.s_addr != 0)
780			printf("\n\t  Designated Router %s",
781			    ipaddr_string(&op->ospf_hello.hello_dr));
782
783		TCHECK(op->ospf_hello.hello_bdr);
784		if (op->ospf_hello.hello_bdr.s_addr != 0)
785			printf(", Backup Designated Router %s",
786			    ipaddr_string(&op->ospf_hello.hello_bdr));
787
788                ap = op->ospf_hello.hello_neighbor;
789                if ((u_char *)ap < dataend)
790                        printf("\n\t  Neighbor List:");
791                while ((u_char *)ap < dataend) {
792                        TCHECK(*ap);
793                        printf("\n\t    %s", ipaddr_string(ap));
794                        ++ap;
795                }
796		break;	/* HELLO */
797
798	case OSPF_TYPE_DD:
799		TCHECK(op->ospf_db.db_options);
800                printf("\n\tOptions: [%s]",
801                       bittok2str(ospf_option_values,"none",op->ospf_db.db_options));
802		TCHECK(op->ospf_db.db_flags);
803                printf(", DD Flags: [%s]",
804                       bittok2str(ospf_dd_flag_values,"none",op->ospf_db.db_flags));
805
806		if (vflag) {
807			/* Print all the LS adv's */
808			lshp = op->ospf_db.db_lshdr;
809			while (ospf_print_lshdr(lshp) != -1) {
810				++lshp;
811			}
812		}
813		break;
814
815	case OSPF_TYPE_LS_REQ:
816                lsrp = op->ospf_lsr;
817                while ((u_char *)lsrp < dataend) {
818                    TCHECK(*lsrp);
819
820                    printf("\n\t  Advertising Router: %s, %s LSA (%u)",
821                           ipaddr_string(&lsrp->ls_router),
822                           tok2str(lsa_values,"unknown",EXTRACT_32BITS(lsrp->ls_type)),
823                           EXTRACT_32BITS(&lsrp->ls_type));
824
825                    switch (EXTRACT_32BITS(lsrp->ls_type)) {
826                        /* the LSA header for opaque LSAs was slightly changed */
827                    case LS_TYPE_OPAQUE_LL:
828                    case LS_TYPE_OPAQUE_AL:
829                    case LS_TYPE_OPAQUE_DW:
830                        printf(", Opaque-Type: %s LSA (%u), Opaque-ID: %u",
831                               tok2str(lsa_opaque_values, "unknown",lsrp->un_ls_stateid.opaque_field.opaque_type),
832                               lsrp->un_ls_stateid.opaque_field.opaque_type,
833                               EXTRACT_24BITS(&lsrp->un_ls_stateid.opaque_field.opaque_id));
834                        break;
835                    default:
836                        printf(", LSA-ID: %s",
837                               ipaddr_string(&lsrp->un_ls_stateid.ls_stateid));
838                        break;
839                    }
840
841                    ++lsrp;
842                }
843		break;
844
845	case OSPF_TYPE_LS_UPDATE:
846                lsap = op->ospf_lsu.lsu_lsa;
847                TCHECK(op->ospf_lsu.lsu_count);
848                lsa_count_max = EXTRACT_32BITS(&op->ospf_lsu.lsu_count);
849                printf(", %d LSA%s",lsa_count_max, lsa_count_max > 1 ? "s" : "");
850                for (lsa_count=1;lsa_count <= lsa_count_max;lsa_count++) {
851                    printf("\n\t  LSA #%u",lsa_count);
852                        lsap = (const struct lsa *)ospf_print_lsa(lsap);
853                        if (lsap == NULL)
854                                goto trunc;
855                }
856		break;
857
858	case OSPF_TYPE_LS_ACK:
859                lshp = op->ospf_lsa.lsa_lshdr;
860                while (ospf_print_lshdr(lshp) != -1) {
861                    ++lshp;
862                }
863                break;
864
865	default:
866		printf("v2 type (%d)", op->ospf_type);
867		break;
868	}
869	return (0);
870trunc:
871	return (1);
872}
873
874void
875ospf_print(register const u_char *bp, register u_int length,
876    const u_char *bp2 _U_)
877{
878	register const struct ospfhdr *op;
879	register const u_char *dataend;
880	register const char *cp;
881
882	op = (struct ospfhdr *)bp;
883
884        /* XXX Before we do anything else, strip off the MD5 trailer */
885        TCHECK(op->ospf_authtype);
886        if (EXTRACT_16BITS(&op->ospf_authtype) == OSPF_AUTH_MD5) {
887                length -= OSPF_AUTH_MD5_LEN;
888                snapend -= OSPF_AUTH_MD5_LEN;
889        }
890
891	/* If the type is valid translate it, or just print the type */
892	/* value.  If it's not valid, say so and return */
893	TCHECK(op->ospf_type);
894	cp = tok2str(type2str, "unknown LS-type", op->ospf_type);
895	printf("OSPFv%u, %s, length: %u",
896	       op->ospf_version,
897	       cp,
898	       length);
899	if (*cp == 'u')
900		return;
901
902        if(!vflag) /* non verbose - so lets bail out here */
903                return;
904
905	TCHECK(op->ospf_len);
906	if (length != EXTRACT_16BITS(&op->ospf_len)) {
907		printf(" [len %d]", EXTRACT_16BITS(&op->ospf_len));
908		return;
909	}
910	dataend = bp + length;
911
912	TCHECK(op->ospf_routerid);
913        printf("\n\tRouter-ID: %s", ipaddr_string(&op->ospf_routerid));
914
915	TCHECK(op->ospf_areaid);
916	if (op->ospf_areaid.s_addr != 0)
917		printf(", Area %s", ipaddr_string(&op->ospf_areaid));
918	else
919		printf(", Backbone Area");
920
921	if (vflag) {
922		/* Print authentication data (should we really do this?) */
923		TCHECK2(op->ospf_authdata[0], sizeof(op->ospf_authdata));
924
925                printf(", Authentication Type: %s (%u)",
926                       tok2str(ospf_authtype_values,"unknown",EXTRACT_16BITS(&op->ospf_authtype)),
927                       EXTRACT_16BITS(&op->ospf_authtype));
928
929		switch (EXTRACT_16BITS(&op->ospf_authtype)) {
930
931		case OSPF_AUTH_NONE:
932			break;
933
934		case OSPF_AUTH_SIMPLE:
935			if (fn_printn(op->ospf_authdata,
936			    sizeof(op->ospf_authdata), snapend)) {
937				printf("\"");
938				goto trunc;
939			}
940			printf("\"");
941			break;
942
943		case OSPF_AUTH_MD5:
944                        printf("\n\tKey-ID: %u, Auth-Length: %u, Crypto Sequence Number: 0x%08x",
945                               *((op->ospf_authdata)+2),
946                               *((op->ospf_authdata)+3),
947                               EXTRACT_32BITS((op->ospf_authdata)+4));
948			break;
949
950		default:
951			return;
952		}
953	}
954	/* Do rest according to version.	 */
955	switch (op->ospf_version) {
956
957	case 2:
958		/* ospf version 2 */
959		if (ospf_decode_v2(op, dataend))
960			goto trunc;
961		break;
962
963	default:
964		printf(" ospf [version %d]", op->ospf_version);
965		break;
966	}			/* end switch on version */
967
968	return;
969trunc:
970	fputs(tstr, stdout);
971}
972