In wiretap, set err to 0 before doing anything inside wtap_loop().
[obnox/wireshark/wip.git] / packet-llc.c
1 /* packet-llc.c
2  * Routines for IEEE 802.2 LLC layer
3  * Gilbert Ramirez <gram@xiexie.org>
4  *
5  * $Id: packet-llc.c,v 1.59 2000/05/12 05:06:26 gram Exp $
6  *
7  * Ethereal - Network traffic analyzer
8  * By Gerald Combs <gerald@zing.org>
9  * Copyright 1998 Gerald Combs
10  *
11  * 
12  * This program is free software; you can redistribute it and/or
13  * modify it under the terms of the GNU General Public License
14  * as published by the Free Software Foundation; either version 2
15  * of the License, or (at your option) any later version.
16  * 
17  * This program is distributed in the hope that it will be useful,
18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20  * GNU General Public License for more details.
21  * 
22  * You should have received a copy of the GNU General Public License
23  * along with this program; if not, write to the Free Software
24  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
25  */
26
27 #ifdef HAVE_CONFIG_H
28 # include "config.h"
29 #endif
30
31 #ifdef HAVE_SYS_TYPES_H
32 # include <sys/types.h>
33 #endif
34
35 #include <glib.h>
36 #include "packet.h"
37 #include "oui.h"
38 #include "xdlc.h"
39 #include "etypes.h"
40 #include "llcsaps.h"
41 #include "packet-bpdu.h"
42 #include "packet-cdp.h"
43 #include "packet-cgmp.h"
44 #include "packet-ip.h"
45 #include "packet-ipx.h"
46 #include "packet-netbios.h"
47 #include "packet-osi.h"
48 #include "packet-sna.h"
49 #include "packet-vtp.h"
50
51 static int proto_llc = -1;
52 static int hf_llc_dsap = -1;
53 static int hf_llc_ssap = -1;
54 static int hf_llc_dsap_ig = -1;
55 static int hf_llc_ssap_cr = -1;
56 static int hf_llc_ctrl = -1;
57 static int hf_llc_type = -1;
58 static int hf_llc_oui = -1;
59 static int hf_llc_pid = -1;
60
61 static gint ett_llc = -1;
62 static gint ett_llc_ctrl = -1;
63
64 static dissector_table_t subdissector_table;
65
66 typedef void (capture_func_t)(const u_char *, int, packet_counts *);
67
68 /* The SAP info is split into two tables, one value_string table and one
69  * table of sap_info. This is so that the value_string can be used in the
70  * header field registration.
71  */
72 struct sap_info {
73         guint8  sap;
74         capture_func_t *capture_func;
75 };
76
77 /*
78  * Group/Individual bit, in the DSAP.
79  */
80 #define DSAP_GI_BIT     0x01
81
82 /*
83  * Command/Response bit, in the SSAP.
84  *
85  * The low-order bit of the SSAP apparently determines whether this
86  * is a request or a response.  (RFC 1390, "Transmission of IP and
87  * ARP over FDDI Networks", says
88  *
89  *      Command frames are identified by having the low order
90  *      bit of the SSAP address reset to zero.  Response frames
91  *      have the low order bit of the SSAP address set to one.
92  *
93  * and a page I've seen seems to imply that's part of 802.2.)
94  */
95 #define SSAP_CR_BIT     0x01
96
97 /*
98  * Mask to extrace the SAP number from the DSAP or the SSAP.
99  */
100 #define SAP_MASK        0xFE
101
102 /*
103  * These are for SSAP and DSAP, wth last bit always zero.
104  * XXX - some DSAPs come in separate "individual" and "group" versions,
105  * with the last bit 0 and 1, respectively (e.g., LLC Sub-layer Management,
106  * IBM SNA Path Control, IBM Net Management), but, whilst 0xFE is
107  * the ISO Network Layer Protocol, 0xFF is the Global LSAP.
108  */
109 static const value_string sap_vals[] = {
110         { SAP_NULL,           "NULL LSAP" },
111         { SAP_LLC_SLMGMT,     "LLC Sub-Layer Management" },
112         { SAP_SNA_PATHCTRL,   "SNA Path Control" },
113         { SAP_IP,             "TCP/IP" },
114         { SAP_SNA1,           "SNA" },
115         { SAP_SNA2,           "SNA" },
116         { SAP_PROWAY_NM_INIT, "PROWAY (IEC955) Network Management and Initialization" },
117         { SAP_TI,             "Texas Instruments" },
118         { SAP_BPDU,           "Spanning Tree BPDU" },
119         { SAP_RS511,          "EIA RS-511 Manufacturing Message Service" },
120 #if 0
121         /* XXX - setting the group bit makes this 0x7F; is that just
122            a group version of this? */
123         { 0x7E,               "ISO 8208 (X.25 over 802.2 Type 2)" },
124 #endif
125         { 0x7F,               "ISO 802.2" },
126         { SAP_XNS,            "XNS" },
127         { SAP_NESTAR,         "Nestar" },
128         { SAP_PROWAY_ASLM,    "PROWAY (IEC955) Active Station List Maintenance" },
129         { SAP_ARP,            "ARP" },  /* XXX - hand to "dissect_arp()"? */
130         { SAP_SNAP,           "SNAP" },
131         { SAP_VINES1,         "Banyan Vines" },
132         { SAP_VINES2,         "Banyan Vines" },
133         { SAP_NETWARE,        "NetWare" },
134         { SAP_NETBIOS,        "NetBIOS" },
135         { SAP_IBMNM,          "IBM Net Management" },
136         { SAP_RPL1,           "Remote Program Load" },
137         { SAP_UB,             "Ungermann-Bass" },
138         { SAP_RPL2,           "Remote Program Load" },
139         { SAP_OSINL,          "ISO Network Layer" },
140         { SAP_GLOBAL,         "Global LSAP" },
141         { 0x00,               NULL }
142 };
143
144 static struct sap_info  saps[] = {
145         { SAP_IP,                       capture_ip },
146         { SAP_NETWARE,                  capture_ipx },
147         { SAP_NETBIOS,                  capture_netbios },
148         { 0x00,                         NULL}
149 };
150
151 /*
152  * See
153  *
154  * http://www.cisco.com/univercd/cc/td/doc/product/lan/trsrb/vlan.htm
155  *
156  * for the PIDs for VTP and DRiP that go with an OUI of OUI_CISCO.
157  */
158 const value_string oui_vals[] = {
159         { OUI_ENCAP_ETHER, "Encapsulated Ethernet" },
160 /*
161 http://www.cisco.com/univercd/cc/td/doc/product/software/ios113ed/113ed_cr/ibm_r/brprt1/brsrb.htm
162 */
163         { OUI_CISCO,       "Cisco" },
164         { OUI_CISCO_90,    "Cisco IOS 9.0 Compatible" },
165         { OUI_BFR,         "Bridged Frame-Relay" }, /* RFC 2427 */
166         { OUI_ATM_FORUM,   "ATM Forum" },
167         { OUI_APPLE_ATALK, "Apple (AppleTalk)" },
168         { OUI_CABLE_BPDU,  "DOCSIS Spanning Tree" }, /* DOCSIS spanning tree BPDU */
169         { 0,               NULL }
170 };
171
172 static capture_func_t *
173 sap_capture_func(u_char sap) {
174         int i=0;
175
176         /* look for the second record where sap == 0, which should
177          * be the last record
178          */
179         while (saps[i].sap > 0 || i == 0) {
180                 if (saps[i].sap == sap) {
181                         return saps[i].capture_func;
182                 }
183                 i++;
184         }
185         return NULL;
186 }
187
188 void
189 capture_llc(const u_char *pd, int offset, packet_counts *ld) {
190
191         int             is_snap;
192         guint16         control;
193         int             llc_header_len;
194         guint32         oui;
195         guint16         etype;
196         capture_func_t  *capture;
197
198         if (!BYTES_ARE_IN_FRAME(offset, 2)) {
199                 ld->other++;
200                 return;
201         }
202         is_snap = (pd[offset] == SAP_SNAP) && (pd[offset+1] == SAP_SNAP);
203         llc_header_len = 2;     /* DSAP + SSAP */
204
205         /*
206          * XXX - the page referred to in the comment above about the
207          * Command/Response bit also implies that LLC Type 2 always
208          * uses extended operation, so we don't need to determine
209          * whether it's basic or extended operation; is that the case?
210          */
211         control = get_xdlc_control(pd, offset+2, pd[offset+1] & SSAP_CR_BIT,
212             TRUE);
213         llc_header_len += XDLC_CONTROL_LEN(control, TRUE);
214         if (is_snap)
215                 llc_header_len += 5;    /* 3 bytes of OUI, 2 bytes of protocol ID */
216         if (!BYTES_ARE_IN_FRAME(offset, llc_header_len)) {
217                 ld->other++;
218                 return;
219         }
220
221         if (is_snap) {
222                 oui = pd[offset+3] << 16 | pd[offset+4] << 8 | pd[offset+5];
223                 if (XDLC_IS_INFORMATION(control)) {
224                         etype = pntohs(&pd[offset+6]);
225                         switch (oui) {
226
227                         case OUI_ENCAP_ETHER:
228                         case OUI_APPLE_ATALK:
229                                 /* No, I have no idea why Apple used
230                                    one of their own OUIs, rather than
231                                    OUI_ENCAP_ETHER, and an Ethernet
232                                    packet type as protocol ID, for
233                                    AppleTalk data packets - but used
234                                    OUI_ENCAP_ETHER and an Ethernet
235                                    packet type for AARP packets. */
236                                 capture_ethertype(etype, offset+8, pd,
237                                     ld);
238                                 break;
239                         case OUI_CISCO:
240                                 capture_ethertype(etype,
241                                                 offset + 8, pd, ld);
242                                 break;
243                         default:
244                                 ld->other++;
245                                 break;
246                         }
247                 }
248         }               
249         else {
250                 if (XDLC_IS_INFORMATION(control)) {
251                         capture = sap_capture_func(pd[offset]);
252
253                         /* non-SNAP */
254                         offset += llc_header_len;
255
256                         if (capture) {
257                                 capture(pd, offset, ld);
258                         }
259                         else {
260                                 ld->other++;
261                         }
262                 }
263         }
264 }
265
266 void
267 dissect_llc(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
268 {
269         proto_tree      *llc_tree = NULL;
270         proto_item      *ti = NULL;
271         int             is_snap;
272         guint16         control;
273         int             llc_header_len;
274         guint32         oui;
275         guint16         etype;
276         guint8          dsap, ssap;
277         tvbuff_t        *next_tvb;
278         const guint8    *pd;
279         int             offset;
280
281         pinfo->current_proto = "LLC";
282
283         if (check_col(pinfo->fd, COL_PROTOCOL)) {
284                 col_add_str(pinfo->fd, COL_PROTOCOL, "LLC");
285         }
286
287         dsap = tvb_get_guint8(tvb, 0);
288         ssap = tvb_get_guint8(tvb, 1);
289
290         is_snap = (dsap == SAP_SNAP) && (ssap == SAP_SNAP);
291         llc_header_len = 2;     /* DSAP + SSAP */
292
293         if (tree) {
294                 ti = proto_tree_add_item(tree, proto_llc, tvb, 0, 0, NULL);
295                 llc_tree = proto_item_add_subtree(ti, ett_llc);
296                 proto_tree_add_item(llc_tree, hf_llc_dsap, tvb, 0, 
297                         1, dsap & SAP_MASK);
298                 proto_tree_add_item(llc_tree, hf_llc_dsap_ig, tvb, 0, 
299                         1, dsap & DSAP_GI_BIT);
300                 proto_tree_add_item(llc_tree, hf_llc_ssap, tvb, 1, 
301                         1, ssap & SAP_MASK);
302                 proto_tree_add_item(llc_tree, hf_llc_ssap_cr, tvb, 1, 
303                         1, ssap & SSAP_CR_BIT);
304         } else
305                 llc_tree = NULL;
306
307         /*
308          * XXX - the page referred to in the comment above about the
309          * Command/Response bit also implies that LLC Type 2 always
310          * uses extended operation, so we don't need to determine
311          * whether it's basic or extended operation; is that the case?
312          */
313         tvb_compat(tvb, &pd, &offset);
314         control = dissect_xdlc_control(pd, offset+2, pinfo->fd, llc_tree,
315                                 hf_llc_ctrl, ett_llc_ctrl,
316                                 pd[offset+1] & SSAP_CR_BIT, TRUE);
317         llc_header_len += XDLC_CONTROL_LEN(control, TRUE);
318         if (is_snap)
319                 llc_header_len += 5;    /* 3 bytes of OUI, 2 bytes of protocol ID */
320
321         if (tree)
322                 proto_item_set_len(ti, llc_header_len);
323
324         /*
325          * XXX - do we want to append the SAP information to the stuff
326          * "dissect_xdlc_control()" put in the COL_INFO column, rather
327          * than overwriting it?
328          */
329         if (is_snap) {
330                 oui =   tvb_get_guint8(tvb, 3) << 16 |
331                         tvb_get_guint8(tvb, 4) << 8  |
332                         tvb_get_guint8(tvb, 5);
333                 etype = tvb_get_ntohs(tvb, 6);
334
335                 if (check_col(pinfo->fd, COL_INFO)) {
336                         col_add_fstr(pinfo->fd, COL_INFO, "SNAP, OUI 0x%06X (%s), PID 0x%04X",
337                             oui, val_to_str(oui, oui_vals, "Unknown"),
338                             etype);
339                 }
340                 if (tree) {
341                         proto_tree_add_item(llc_tree, hf_llc_oui, tvb, 3, 3,
342                                 oui);
343                 }
344
345                 next_tvb = tvb_new_subset(tvb, 8, -1);
346                 tvb_compat(next_tvb, &pd, &offset);
347
348                 switch (oui) {
349
350                 case OUI_ENCAP_ETHER:
351                 case OUI_APPLE_ATALK:
352                         /* No, I have no idea why Apple used
353                            one of their own OUIs, rather than
354                            OUI_ENCAP_ETHER, and an Ethernet
355                            packet type as protocol ID, for
356                            AppleTalk data packets - but used
357                            OUI_ENCAP_ETHER and an Ethernet
358                            packet type for AARP packets. */
359                         if (XDLC_IS_INFORMATION(control)) {
360                                 ethertype(etype, offset, pd,
361                                     pinfo->fd, tree, llc_tree, hf_llc_type);
362                         } else
363                                 dissect_data_tvb(next_tvb, pinfo, tree);
364                         break;
365
366                 case OUI_CISCO:
367                         /* So are all CDP packets LLC packets
368                            with an OUI of OUI_CISCO and a
369                            protocol ID of 0x2000, or
370                            are some of them raw or encapsulated
371                            Ethernet? */
372                         if (tree) {
373                                 proto_tree_add_item(llc_tree,
374                                     hf_llc_pid, tvb, 6, 2, etype);
375                         }
376                         if (XDLC_IS_INFORMATION(control)) {
377                                 switch (etype) {
378
379 #if 0
380                                 case 0x0102:
381                                         dissect_drip(pd, offset, pinfo->fd, tree);
382                                         break;
383 #endif
384
385                                 case 0x2000:
386                                         dissect_cdp(pd, offset, pinfo->fd, tree);
387                                         break;
388
389                                 case 0x2001:
390                                         dissect_cgmp(pd, offset, pinfo->fd, tree);
391                                         break;
392
393                                 case 0x2003:
394                                         dissect_vtp(pd, offset, pinfo->fd, tree);
395                                         break;
396
397                                 default:
398                                         dissect_data_tvb(next_tvb, pinfo, tree);
399                                         break;
400                                 }
401                         } else
402                                 dissect_data_tvb(next_tvb, pinfo, tree);
403                         break;
404
405                 case OUI_CABLE_BPDU:    /* DOCSIS cable modem spanning tree BPDU */
406                         if (tree) {
407                                 proto_tree_add_item(llc_tree,
408                                 hf_llc_pid, tvb, 6, 2, etype);
409                         }
410                         dissect_bpdu(pd, offset, pinfo->fd, tree);
411                         break;
412
413                 default:
414                         if (tree) {
415                                 proto_tree_add_item(llc_tree,
416                                     hf_llc_pid, tvb, 6, 2, etype);
417                         }
418                         dissect_data_tvb(next_tvb, pinfo, tree);
419                         break;
420                 }
421         }
422         else {
423                 if (check_col(pinfo->fd, COL_INFO)) {
424                         col_add_fstr(pinfo->fd, COL_INFO, 
425                             "DSAP %s %s, SSAP %s %s",
426                             val_to_str(dsap & SAP_MASK, sap_vals, "%02x"),
427                             dsap & DSAP_GI_BIT ?
428                               "Group" : "Individual",
429                             val_to_str(ssap & SAP_MASK, sap_vals, "%02x"),
430                             ssap & SSAP_CR_BIT ?
431                               "Response" : "Command"
432                         );
433                 }
434
435                 next_tvb = tvb_new_subset(tvb, llc_header_len, -1);
436                 if (XDLC_IS_INFORMATION(control)) {
437                         tvb_compat(tvb, &pd, &offset);
438                         /* non-SNAP */
439                         offset += llc_header_len;
440
441                         /* do lookup with the subdissector table */
442                         if (!dissector_try_port(subdissector_table, dsap,
443                             pd, offset, pinfo->fd, tree)) {
444                                 dissect_data_tvb(next_tvb, pinfo, tree);
445                         }
446                 } else {
447                         dissect_data_tvb(next_tvb, pinfo, tree);
448                 }
449         }
450 }
451
452 void
453 proto_register_llc(void)
454 {
455         static struct true_false_string ig_bit = { "Group", "Individual" };
456         static struct true_false_string cr_bit = { "Response", "Command" };
457
458         static hf_register_info hf[] = {
459                 { &hf_llc_dsap,
460                 { "DSAP",       "llc.dsap", FT_UINT8, BASE_HEX, 
461                         VALS(sap_vals), 0x0, "" }},
462
463                 { &hf_llc_dsap_ig,
464                 { "IG Bit",     "llc.dsap.ig", FT_BOOLEAN, BASE_HEX, 
465                         &ig_bit, 0x0, "Individual/Group" }},
466
467                 { &hf_llc_ssap,
468                 { "SSAP", "llc.ssap", FT_UINT8, BASE_HEX, 
469                         VALS(sap_vals), 0x0, "" }},
470
471                 { &hf_llc_ssap_cr,
472                 { "CR Bit", "llc.ssap.cr", FT_BOOLEAN, BASE_HEX, 
473                         &cr_bit, 0x0, "Command/Response" }},
474
475                 { &hf_llc_ctrl,
476                 { "Control", "llc.control", FT_UINT16, BASE_HEX, 
477                         NULL, 0x0, "" }},
478
479                 /* registered here but handled in ethertype.c */
480                 { &hf_llc_type,
481                 { "Type", "llc.type", FT_UINT16, BASE_HEX, 
482                         VALS(etype_vals), 0x0, "" }},
483
484                 { &hf_llc_oui,
485                 { "Organization Code",  "llc.oui", FT_UINT24, BASE_HEX, 
486                         VALS(oui_vals), 0x0, ""}},
487
488                 { &hf_llc_pid,
489                 { "Protocol ID", "llc.pid", FT_UINT16, BASE_HEX, 
490                         NULL, 0x0, ""}}
491         };
492         static gint *ett[] = {
493                 &ett_llc,
494                 &ett_llc_ctrl,
495         };
496
497         proto_llc = proto_register_protocol ("Logical-Link Control", "llc" );
498         proto_register_field_array(proto_llc, hf, array_length(hf));
499         proto_register_subtree_array(ett, array_length(ett));
500
501 /* subdissector code */
502         subdissector_table = register_dissector_table("llc.dsap");
503 }