Put the name, as well as the value, of the family and subfamily fields
[obnox/wireshark/wip.git] / epan / dissectors / packet-aim.c
1 /* packet-aim.c
2  * Routines for AIM Instant Messenger (OSCAR) dissection
3  * Copyright 2000, Ralf Hoelzer <ralf@well.com>
4  * Copyright 2004, Jelmer Vernooij <jelmer@samba.org>
5  * Copyright 2004, Devin Heitmueller <dheitmueller@netilla.com>
6  *
7  * $Id$
8  *
9  * Ethereal - Network traffic analyzer
10  * By Gerald Combs <gerald@ethereal.com>
11  * Copyright 1998 Gerald Combs
12  *
13  * This program is free software; you can redistribute it and/or
14  * modify it under the terms of the GNU General Public License
15  * as published by the Free Software Foundation; either version 2
16  * of the License, or (at your option) any later version.
17  *
18  * This program is distributed in the hope that it will be useful,
19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21  * GNU General Public License for more details.
22  *
23  * You should have received a copy of the GNU General Public License
24  * along with this program; if not, write to the Free Software
25  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
26  */
27
28 #ifdef HAVE_CONFIG_H
29 # include "config.h"
30 #endif
31
32 #include <stdio.h>
33 #include <stdlib.h>
34 #include <string.h>
35 #include <ctype.h>
36
37 #include <glib.h>
38
39 #include "isprint.h"
40
41 #include <epan/packet.h>
42 #include <epan/strutil.h>
43
44 #include "packet-tcp.h"
45 #include "packet-aim.h"
46 #include <epan/prefs.h>
47
48 #define TCP_PORT_AIM 5190
49
50 #define STRIP_TAGS 1
51
52 /* channels */
53 #define CHANNEL_NEW_CONN    0x01
54 #define CHANNEL_SNAC_DATA   0x02
55 #define CHANNEL_FLAP_ERR    0x03
56 #define CHANNEL_CLOSE_CONN  0x04
57 #define CHANNEL_KEEP_ALIVE  0x05
58
59 #define CLI_COOKIE                  0x01
60
61 #define FAMILY_ALL_ERROR_INVALID_HEADER                            0x0001
62 #define FAMILY_ALL_ERROR_SERVER_RATE_LIMIT_EXCEEDED    0x0002
63 #define FAMILY_ALL_ERROR_CLIENT_RATE_LIMIT_EXCEEDED    0x0003
64 #define FAMILY_ALL_ERROR_RECIPIENT_NOT_LOGGED_IN       0x0004
65 #define FAMILY_ALL_ERROR_REQUESTED_SERVICE_UNAVAILABLE 0x0005
66 #define FAMILY_ALL_ERROR_REQUESTED_SERVICE_NOT_DEFINED 0x0006
67 #define FAMILY_ALL_ERROR_OBSOLETE_SNAC                             0x0007
68 #define FAMILY_ALL_ERROR_NOT_SUPPORTED_BY_SERVER           0x0008
69 #define FAMILY_ALL_ERROR_NOT_SUPPORTED_BY_CLIENT           0x0009
70 #define FAMILY_ALL_ERROR_REFUSED_BY_CLIENT             0x000a
71 #define FAMILY_ALL_ERROR_REPLY_TOO_BIG                 0x000b
72 #define FAMILY_ALL_ERROR_RESPONSES_LOST                0x000c
73 #define FAMILY_ALL_ERROR_REQUEST_DENIED                0x000d
74 #define FAMILY_ALL_ERROR_INCORRECT_SNAC_FORMAT         0x000e
75 #define FAMILY_ALL_ERROR_INSUFFICIENT_RIGHTS           0x000f
76 #define FAMILY_ALL_ERROR_RECIPIENT_BLOCKED             0x0010
77 #define FAMILY_ALL_ERROR_SENDER_TOO_EVIL               0x0011
78 #define FAMILY_ALL_ERROR_RECEIVER_TOO_EVIL             0x0012
79 #define FAMILY_ALL_ERROR_USER_TEMP_UNAVAILABLE         0x0013
80 #define FAMILY_ALL_ERROR_NO_MATCH                      0x0014
81 #define FAMILY_ALL_ERROR_LIST_OVERFLOW                 0x0015
82 #define FAMILY_ALL_ERROR_REQUEST_AMBIGUOUS             0x0016
83 #define FAMILY_ALL_ERROR_SERVER_QUEUE_FULL             0x0017
84 #define FAMILY_ALL_ERROR_NOT_WHILE_ON_AOL              0x0018
85
86 static const value_string aim_flap_channels[] = {
87     { CHANNEL_NEW_CONN, "New Connection" },
88     { CHANNEL_SNAC_DATA, "SNAC Data" },
89     { CHANNEL_FLAP_ERR, "FLAP-Level Error" },
90     { CHANNEL_CLOSE_CONN, "Close Connection" },
91     { CHANNEL_KEEP_ALIVE, "Keep Alive" },
92     { 0, NULL }
93 };
94
95 static const value_string aim_snac_errors[] = {
96   { FAMILY_ALL_ERROR_INVALID_HEADER, "Invalid SNAC Header" },
97   { FAMILY_ALL_ERROR_SERVER_RATE_LIMIT_EXCEEDED, "Server rate limit exceeded" },
98   { FAMILY_ALL_ERROR_CLIENT_RATE_LIMIT_EXCEEDED, "Client rate limit exceeded" },
99   { FAMILY_ALL_ERROR_RECIPIENT_NOT_LOGGED_IN, "Recipient not logged in" },
100   { FAMILY_ALL_ERROR_REQUESTED_SERVICE_UNAVAILABLE, "Requested service unavailable" },
101   { FAMILY_ALL_ERROR_REQUESTED_SERVICE_NOT_DEFINED, "Requested service not defined" },
102   { FAMILY_ALL_ERROR_OBSOLETE_SNAC, "Obsolete SNAC issued" },
103   { FAMILY_ALL_ERROR_NOT_SUPPORTED_BY_SERVER, "Not supported by server" },
104   { FAMILY_ALL_ERROR_NOT_SUPPORTED_BY_CLIENT, "Not supported by client" },
105   { FAMILY_ALL_ERROR_REFUSED_BY_CLIENT, "Refused by client" },
106   { FAMILY_ALL_ERROR_REPLY_TOO_BIG, "Reply too big" },
107   { FAMILY_ALL_ERROR_RESPONSES_LOST, "Responses lost" },
108   { FAMILY_ALL_ERROR_REQUEST_DENIED, "Request denied" },
109   { FAMILY_ALL_ERROR_INCORRECT_SNAC_FORMAT, "Incorrect SNAC format" },
110   { FAMILY_ALL_ERROR_INSUFFICIENT_RIGHTS, "Insufficient rights" },
111   { FAMILY_ALL_ERROR_RECIPIENT_BLOCKED, "Recipient blocked" },
112   { FAMILY_ALL_ERROR_SENDER_TOO_EVIL, "Sender too evil" },
113   { FAMILY_ALL_ERROR_RECEIVER_TOO_EVIL, "Receiver too evil" },
114   { FAMILY_ALL_ERROR_USER_TEMP_UNAVAILABLE, "User temporarily unavailable" },
115   { FAMILY_ALL_ERROR_NO_MATCH, "No match" },
116   { FAMILY_ALL_ERROR_LIST_OVERFLOW, "List overflow" },
117   { FAMILY_ALL_ERROR_REQUEST_AMBIGUOUS, "Request ambiguous" },
118   { FAMILY_ALL_ERROR_SERVER_QUEUE_FULL, "Server queue full" },
119   { FAMILY_ALL_ERROR_NOT_WHILE_ON_AOL, "Not while on AOL" },
120   { 0, NULL }
121 };
122
123 #define AIM_CLIENT_TLV_SCREEN_NAME                              0x0001
124 #define AIM_CLIENT_TLV_NEW_ROASTED_PASSWORD                             0x0002
125 #define AIM_CLIENT_TLV_CLIENT_ID_STRING                         0x0003
126 #define AIM_CLIENT_TLV_ERRORURL                                 0x0004
127 #define AIM_CLIENT_TLV_BOS_SERVER_STRING       0x0005
128 #define AIM_CLIENT_TLV_AUTH_COOKIE             0x0006
129 #define AIM_CLIENT_TLV_ERRORCODE                            0x0008
130 #define AIM_CLIENT_TLV_DISCONNECT_REASON                0x0009
131 #define AIM_CLIENT_TLV_RECONNECT_HOST              0x000a
132 #define AIM_CLIENT_TLV_URL                                         0x000b
133 #define AIM_CLIENT_TLV_DEBUG_DATA                          0x000c
134 #define AIM_CLIENT_TLV_FAMILY_ID                       0x000d
135 #define AIM_CLIENT_TLV_CLIENT_COUNTRY          0x000e
136 #define AIM_CLIENT_TLV_CLIENT_LANGUAGE         0x000f
137 #define AIM_CLIENT_TLV_EMAILADDR                            0x0011
138 #define AIM_CLIENT_TLV_OLD_ROASTED_PASSWORD     0x0012
139 #define AIM_CLIENT_TLV_REGSTATUS                            0x0013
140 #define AIM_CLIENT_TLV_CLIENT_DISTRIBUTION_NUM 0x0014
141 #define AIM_CLIENT_TLV_INVITEMESSAGE                    0x0015
142 #define AIM_CLIENT_TLV_CLIENT_ID               0x0016
143 #define AIM_CLIENT_TLV_CLIENT_MAJOR_VERSION    0x0017
144 #define AIM_CLIENT_TLV_CLIENT_MINOR_VERSION    0x0018
145 #define AIM_CLIENT_TLV_CLIENT_LESSER_VERSION   0x0019
146 #define AIM_CLIENT_TLV_CLIENT_BUILD_NUMBER     0x001a
147 #define AIM_CLIENT_TLV_PASSWORD_MD5                     0x0025
148 #define AIM_CLIENT_TLV_LATESTBETABUILD          0x0040
149 #define AIM_CLIENT_TLV_LATESTBETAURL            0x0041
150 #define AIM_CLIENT_TLV_LATESTBETAINFO           0x0042
151 #define AIM_CLIENT_TLV_LATESTBETANAME           0x0043
152 #define AIM_CLIENT_TLV_LATESTRELEASEBUILD       0x0044
153 #define AIM_CLIENT_TLV_LATESTRELEASEURL         0x0045
154 #define AIM_CLIENT_TLV_LATESTRELEASEINFO        0x0046
155 #define AIM_CLIENT_TLV_LATESTRELEASENAME        0x0047
156 #define AIM_CLIENT_TLV_BETA_DIGEST_SIG          0x0048
157 #define AIM_CLIENT_TLV_RELEASE_DIGEST_SIG   0x0049
158 #define AIM_CLIENT_TLV_CLIENTUSESSI                     0x004a
159 #define AIM_CLIENT_TLV_CHANGE_PASSWORD_URL              0x0054
160 #define AIM_CLIENT_TLV_AWAITING_AUTH            0x0066
161 #define AIM_CLIENT_TLV_MEMBERS                          0x00c8
162 #define AIM_CLIENT_TLV_VISIBILITY_BITS          0x00c9
163 #define AIM_CLIENT_TLV_PRIVACY                          0x00ca
164 #define AIM_CLIENT_TLV_VISIBLE_CLASS            0x00cb
165 #define AIM_CLIENT_TLV_VISIBLE_MISC                     0x00cc
166 #define AIM_CLIENT_TLV_ICQ2K_SHORTCUT           0x00cd
167 #define AIM_CLIENT_TLV_FIRST_LOADED_TIME        0x00d4
168 #define AIM_CLIENT_TLV_BUDDY_ICON_MD5SUM        0x00d5
169 #define AIM_CLIENT_TLV_GIVEN_NAME                       0x0131
170 #define AIM_CLIENT_TLV_LOCAL_EMAIL                      0x0137
171 #define AIM_CLIENT_TLV_LOCAL_SMS                        0x013a
172 #define AIM_CLIENT_TLV_LOCAL_COMMENT            0x013c
173 #define AIM_CLIENT_TLV_LOCAL_PERSONAL_ALERT 0x013d
174 #define AIM_CLIENT_TLV_LOCAL_PERSONAL_SOUND     0x013e
175 #define AIM_CLIENT_TLV_FIRST_MESSAGE_SENT       0x0145
176
177 const aim_tlv client_tlvs[] = {
178   {  AIM_CLIENT_TLV_SCREEN_NAME, "Screen name", dissect_aim_tlv_value_string },
179   {  AIM_CLIENT_TLV_NEW_ROASTED_PASSWORD, "Roasted password array", dissect_aim_tlv_value_bytes  },
180   {  AIM_CLIENT_TLV_OLD_ROASTED_PASSWORD, "Old roasted password array", dissect_aim_tlv_value_bytes  },
181   {  AIM_CLIENT_TLV_CLIENT_ID_STRING, "Client id string (name, version)", dissect_aim_tlv_value_string },
182   {  AIM_CLIENT_TLV_CLIENT_ID, "Client id number", dissect_aim_tlv_value_uint16 },
183   {  AIM_CLIENT_TLV_CLIENT_MAJOR_VERSION, "Client major version", dissect_aim_tlv_value_uint16 },
184   {  AIM_CLIENT_TLV_CLIENT_MINOR_VERSION, "Client minor version", dissect_aim_tlv_value_uint16 },
185   {  AIM_CLIENT_TLV_CLIENT_LESSER_VERSION, "Client lesser version", dissect_aim_tlv_value_uint16 },
186   {  AIM_CLIENT_TLV_CLIENT_BUILD_NUMBER, "Client build number", dissect_aim_tlv_value_uint16 },
187   {  AIM_CLIENT_TLV_PASSWORD_MD5, "Password Hash (MD5)", dissect_aim_tlv_value_bytes },
188   {  AIM_CLIENT_TLV_CLIENT_DISTRIBUTION_NUM, "Client distribution number", dissect_aim_tlv_value_uint16 },
189   {  AIM_CLIENT_TLV_CLIENT_LANGUAGE, "Client language", dissect_aim_tlv_value_string },
190   {  AIM_CLIENT_TLV_CLIENT_COUNTRY, "Client country", dissect_aim_tlv_value_string },
191   {  AIM_CLIENT_TLV_BOS_SERVER_STRING, "BOS server string", dissect_aim_tlv_value_string },
192   {  AIM_CLIENT_TLV_AUTH_COOKIE, "Authorization cookie", dissect_aim_tlv_value_bytes },
193   {  AIM_CLIENT_TLV_ERRORURL, "Error URL", dissect_aim_tlv_value_string },
194   {  AIM_CLIENT_TLV_ERRORCODE, "Error Code", dissect_aim_tlv_value_uint16 }, 
195   {  AIM_CLIENT_TLV_DISCONNECT_REASON, "Disconnect Reason", dissect_aim_tlv_value_uint16 },
196   {  AIM_CLIENT_TLV_RECONNECT_HOST, "Reconnect Hostname", dissect_aim_tlv_value_string },
197   {  AIM_CLIENT_TLV_URL, "URL", dissect_aim_tlv_value_string },
198   {  AIM_CLIENT_TLV_DEBUG_DATA, "Debug Data", dissect_aim_tlv_value_uint16 },
199   {  AIM_CLIENT_TLV_EMAILADDR, "Account Email address", dissect_aim_tlv_value_string },
200   {  AIM_CLIENT_TLV_REGSTATUS, "Registration Status", dissect_aim_tlv_value_uint16 },
201   {  AIM_CLIENT_TLV_LATESTBETABUILD, "Latest Beta Build", dissect_aim_tlv_value_uint32 },
202   {  AIM_CLIENT_TLV_LATESTBETAURL, "Latest Beta URL", dissect_aim_tlv_value_string },
203   {  AIM_CLIENT_TLV_LATESTBETAINFO, "Latest Beta Info", dissect_aim_tlv_value_string },
204   {  AIM_CLIENT_TLV_LATESTBETANAME, "Latest Beta Name", dissect_aim_tlv_value_string },
205   {  AIM_CLIENT_TLV_LATESTRELEASEBUILD, "Latest Release Build", dissect_aim_tlv_value_uint32 },
206   {  AIM_CLIENT_TLV_LATESTRELEASEURL, "Latest Release URL", dissect_aim_tlv_value_string },
207   {  AIM_CLIENT_TLV_LATESTRELEASEINFO, "Latest Release Info", dissect_aim_tlv_value_string  },
208   {  AIM_CLIENT_TLV_LATESTRELEASENAME, "Latest Release Name", dissect_aim_tlv_value_string },
209   {  AIM_CLIENT_TLV_BETA_DIGEST_SIG, "Beta Digest Signature (MD5)" , dissect_aim_tlv_value_bytes },
210   {  AIM_CLIENT_TLV_RELEASE_DIGEST_SIG, "Release Digest Signature (MD5)", dissect_aim_tlv_value_bytes },
211   {  AIM_CLIENT_TLV_CLIENTUSESSI, "Use SSI", dissect_aim_tlv_value_uint8 },
212   {  AIM_CLIENT_TLV_FAMILY_ID, "Service (SNAC Family) ID", dissect_aim_tlv_value_uint16 },
213   { AIM_CLIENT_TLV_CHANGE_PASSWORD_URL, "Change password url", dissect_aim_tlv_value_string },
214   { AIM_CLIENT_TLV_AWAITING_AUTH, "Awaiting Authorization", dissect_aim_tlv_value_bytes },
215   { AIM_CLIENT_TLV_MEMBERS, "Members of this Group", dissect_aim_tlv_value_bytes },
216   { AIM_CLIENT_TLV_VISIBILITY_BITS, "Bitfield", dissect_aim_tlv_value_bytes },
217   { AIM_CLIENT_TLV_PRIVACY, "Privacy Settings" , dissect_aim_tlv_value_uint8 },
218   { AIM_CLIENT_TLV_VISIBLE_CLASS, "Visible To Classes", dissect_aim_tlv_value_userclass },
219   { AIM_CLIENT_TLV_VISIBLE_MISC, "Allow Others to See Data", dissect_aim_tlv_value_bytes },
220   { AIM_CLIENT_TLV_ICQ2K_SHORTCUT, "ICQ2K Shortcut List", dissect_aim_tlv_value_string },
221   { AIM_CLIENT_TLV_FIRST_LOADED_TIME, "First Time Buddy Was Added (Unix Timestamp)" , dissect_aim_tlv_value_uint32 },
222   { AIM_CLIENT_TLV_BUDDY_ICON_MD5SUM, "MD5SUM of Current Buddy Icon", dissect_aim_tlv_value_bytes },
223   { AIM_CLIENT_TLV_GIVEN_NAME, "Locally Specified Buddy Name", dissect_aim_tlv_value_string },
224   { AIM_CLIENT_TLV_LOCAL_EMAIL, "Locally Specified Buddy Email", dissect_aim_tlv_value_string },
225   { AIM_CLIENT_TLV_LOCAL_SMS, "Locally Specified Buddy SMS", dissect_aim_tlv_value_string },
226   { AIM_CLIENT_TLV_LOCAL_COMMENT, "Locally Specified Buddy Comment", dissect_aim_tlv_value_string },
227   { AIM_CLIENT_TLV_LOCAL_PERSONAL_ALERT, "Personal Alert for Buddy", dissect_aim_tlv_value_uint16 },
228   { AIM_CLIENT_TLV_LOCAL_PERSONAL_SOUND, "Personal Sound for Buddy", dissect_aim_tlv_value_string },
229   { AIM_CLIENT_TLV_FIRST_MESSAGE_SENT, " First Time Message Sent to Buddy (Unix Timestamp)", dissect_aim_tlv_value_uint32 },
230   { 0, "Unknown", NULL },
231 };
232
233
234 static int dissect_aim_tlv_value_userstatus(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_);
235 static int dissect_aim_tlv_value_dcinfo(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_);
236
237 #define AIM_ONLINEBUDDY_USERCLASS      0x0001
238 #define AIM_ONLINEBUDDY_ONSINCE        0x0003
239 #define AIM_ONLINEBUDDY_IDLETIME       0x0004
240 #define AIM_ONLINEBUDDY_MEMBERSINCE        0x0005
241 #define AIM_ONLINEBUDDY_STATUS         0x0006
242 #define AIM_ONLINEBUDDY_TIMEUPDATE         0x0011
243 #define AIM_ONLINEBUDDY_IPADDR         0x000a
244 #define AIM_ONLINEBUDDY_DCINFO             0x000c
245 #define AIM_ONLINEBUDDY_CAPINFO        0x000d
246 #define AIM_ONLINEBUDDY_UNKNOWN        0x000e
247 #define AIM_ONLINEBUDDY_SESSIONLEN     0x000f
248 #define AIM_ONLINEBUDDY_ICQSESSIONLEN  0x0010
249 #define AIM_ONLINEBUDDY_AVAILMSG           0x001d
250
251 const aim_tlv onlinebuddy_tlvs[] = {
252   { AIM_ONLINEBUDDY_USERCLASS, "User class", dissect_aim_tlv_value_userclass },
253   { AIM_ONLINEBUDDY_ONSINCE, "Online since", dissect_aim_tlv_value_uint32 },
254   { AIM_ONLINEBUDDY_IDLETIME, "Idle time (sec)", dissect_aim_tlv_value_uint16 },
255   { AIM_ONLINEBUDDY_STATUS, "Online status", dissect_aim_tlv_value_userstatus },
256   { AIM_ONLINEBUDDY_IPADDR, "User IP Address", dissect_aim_tlv_value_ipv4 },
257   { AIM_ONLINEBUDDY_DCINFO, "DC Info", dissect_aim_tlv_value_dcinfo},
258   { AIM_ONLINEBUDDY_CAPINFO, "Capability Info", dissect_aim_tlv_value_client_capabilities },
259   { AIM_ONLINEBUDDY_MEMBERSINCE, "Member since", dissect_aim_tlv_value_time },
260   { AIM_ONLINEBUDDY_UNKNOWN, "Unknown", dissect_aim_tlv_value_uint16 },
261   { AIM_ONLINEBUDDY_TIMEUPDATE, "Time update", dissect_aim_tlv_value_bytes },
262   { AIM_ONLINEBUDDY_SESSIONLEN, "Session Length (sec)", dissect_aim_tlv_value_uint32 },
263   { AIM_ONLINEBUDDY_ICQSESSIONLEN, "ICQ Session Length (sec)", dissect_aim_tlv_value_uint32 },
264   { AIM_ONLINEBUDDY_AVAILMSG, "Available Message", dissect_aim_tlv_value_bytes },
265   { 0, "Unknown", NULL }
266 };
267
268 #define DC_DISABLED             0x0000
269 #define DC_HTTPS                0x0001
270 #define DC_SOCKS                0x0002
271 #define DC_NORMAL               0x0003
272 #define DC_IMPOSSIBLE   0x0004
273
274 static const value_string dc_types[] = {
275         { DC_DISABLED, "DC disabled" },
276         { DC_HTTPS, "DC thru firewall or HTTPS proxy" },
277         { DC_SOCKS, "DC thru SOCKS proxy" },
278         { DC_NORMAL, "Regular connection" },
279         { DC_IMPOSSIBLE, "DC not possible " },
280         { 0, "Unknown" },
281 };
282
283 #define PROTO_VERSION_ICQ98             0x0004
284 #define PROTO_VERSION_ICQ99             0x0006
285 #define PROTO_VERSION_ICQ2K             0x0007
286 #define PROTO_VERSION_ICQ2K1    0x0008
287 #define PROTO_VERSION_ICQLITE   0x0009
288 #define PROTO_VERSION_ICQ2K3B   0x000A
289
290 static const value_string protocol_versions[] = {
291         { PROTO_VERSION_ICQ98, "ICQ '98" },
292         { PROTO_VERSION_ICQ99, "ICQ '99" },
293         { PROTO_VERSION_ICQ2K, "ICQ 2000" },
294         { PROTO_VERSION_ICQ2K1, "ICQ 2001" },
295         { PROTO_VERSION_ICQLITE, "ICQ Lite" },
296         { PROTO_VERSION_ICQ2K3B, "ICQ 2003B" },
297         { 0, "Unknown" },
298 };
299
300 static GList *families = NULL;
301
302 #define AIM_MOTD_TLV_MOTD                                          0x000B
303
304 const aim_tlv motd_tlvs[] = {
305   { AIM_MOTD_TLV_MOTD, "Message of the day message", dissect_aim_tlv_value_string },
306   { 0, "Unknown", NULL }
307 };
308
309 #define CLASS_UNCONFIRMED            0x0001
310 #define CLASS_ADMINISTRATOR          0x0002
311 #define CLASS_AOL                    0x0004
312 #define CLASS_COMMERCIAL             0x0008
313 #define CLASS_FREE                   0x0010
314 #define CLASS_AWAY                   0x0020
315 #define CLASS_ICQ                    0x0040
316 #define CLASS_WIRELESS               0x0080
317 #define CLASS_UNKNOWN100             0x0100
318 #define CLASS_UNKNOWN200             0x0200
319 #define CLASS_UNKNOWN400             0x0400
320 #define CLASS_UNKNOWN800             0x0800
321
322 #define FNAC_FLAG_NEXT_IS_RELATED        0x0001
323 #define FNAC_FLAG_CONTAINS_VERSION       0x8000
324
325 #define FNAC_TLV_FAMILY_VERSION  0x0001
326
327 static const aim_tlv fnac_tlvs[] = {
328   { FNAC_TLV_FAMILY_VERSION, "SNAC Family Version", dissect_aim_tlv_value_uint16 },
329   { 0, "Unknown", NULL }
330 };
331
332 static int dissect_aim(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree);
333 static guint get_aim_pdu_len(tvbuff_t *tvb, int offset);
334 static void dissect_aim_pdu(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree);
335
336 static void dissect_aim_newconn(tvbuff_t *tvb, packet_info *pinfo, int offset, proto_tree *tree);
337 static void dissect_aim_snac(tvbuff_t *tvb, packet_info *pinfo, 
338                              int offset, proto_tree *tree, proto_tree *root_tree);
339 static void dissect_aim_flap_err(tvbuff_t *tvb, packet_info *pinfo, 
340                                  int offset, proto_tree *tree);
341 static void dissect_aim_keep_alive(tvbuff_t *tvb, packet_info *pinfo, 
342                                    int offset, proto_tree *tree);
343 static void dissect_aim_close_conn(tvbuff_t *tvb, packet_info *pinfo, 
344                                    int offset, proto_tree *tree);
345 static void dissect_aim_unknown_channel(tvbuff_t *tvb, packet_info *pinfo, 
346                                         int offset, proto_tree *tree);
347
348 static dissector_table_t subdissector_table;
349
350 /* Initialize the protocol and registered fields */
351 static int proto_aim = -1;
352 static int hf_aim_cmd_start = -1;
353 static int hf_aim_channel = -1;
354 static int hf_aim_seqno = -1;
355 static int hf_aim_data = -1;
356 static int hf_aim_data_len = -1;
357 static int hf_aim_signon_challenge_len = -1;
358 static int hf_aim_signon_challenge = -1;
359 static int hf_aim_fnac_family = -1;
360 static int hf_aim_fnac_subtype = -1;
361 static int hf_aim_fnac_flags = -1;
362 static int hf_aim_fnac_flag_next_is_related = -1;
363 static int hf_aim_fnac_flag_contains_version = -1;
364 static int hf_aim_fnac_id = -1;
365 static int hf_aim_infotype = -1;
366 static int hf_aim_buddyname_len = -1;
367 static int hf_aim_buddyname = -1;
368 static int hf_aim_userinfo_warninglevel = -1;
369 static int hf_aim_snac_error = -1;
370 static int hf_aim_tlvcount = -1;
371 static int hf_aim_authcookie = -1;
372 static int hf_aim_userclass_unconfirmed = -1;
373 static int hf_aim_userclass_administrator = -1;
374 static int hf_aim_userclass_aol = -1;
375 static int hf_aim_userclass_commercial = -1;
376 static int hf_aim_userclass_free = -1;
377 static int hf_aim_userclass_away = -1;
378 static int hf_aim_userclass_icq = -1;
379 static int hf_aim_userclass_wireless = -1;
380 static int hf_aim_userclass_unknown100 = -1;
381 static int hf_aim_userclass_unknown200 = -1;
382 static int hf_aim_userclass_unknown400 = -1;
383 static int hf_aim_userclass_unknown800 = -1;
384 static int hf_aim_messageblock_featuresdes = -1;
385 static int hf_aim_messageblock_featureslen = -1;
386 static int hf_aim_messageblock_features = -1;
387 static int hf_aim_messageblock_info = -1;
388 static int hf_aim_messageblock_len = -1;
389 static int hf_aim_messageblock_charset = -1;
390 static int hf_aim_messageblock_charsubset = -1;
391 static int hf_aim_messageblock_message = -1;
392
393 static int hf_aim_dcinfo_ip = -1;
394 static int hf_aim_dcinfo_tcpport = -1;
395 static int hf_aim_dcinfo_type = -1;
396 static int hf_aim_dcinfo_proto_version = -1;
397 static int hf_aim_dcinfo_auth_cookie = -1;
398 static int hf_aim_dcinfo_webport = -1;
399 static int hf_aim_dcinfo_client_future = -1;
400 static int hf_aim_dcinfo_last_info_update = -1;
401 static int hf_aim_dcinfo_last_ext_info_update = -1;
402 static int hf_aim_dcinfo_last_ext_status_update = -1;
403 static int hf_aim_dcinfo_unknown = -1;
404
405 /* Initialize the subtree pointers */
406 static gint ett_aim          = -1;
407 static gint ett_aim_dcinfo       = -1;
408 static gint ett_aim_buddyname= -1;
409 static gint ett_aim_fnac     = -1;
410 static gint ett_aim_fnac_flags = -1;
411 static gint ett_aim_tlv      = -1;
412 static gint ett_aim_userclass = -1;
413 static gint ett_aim_messageblock = -1;
414 static gint ett_aim_client_capabilities = -1;
415
416 /* desegmentation of AIM over TCP */
417 static gboolean aim_desegment = TRUE;
418
419 /* Code to actually dissect the packets */
420 static int dissect_aim(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
421 {
422 /* check, if this is really an AIM packet, they start with 0x2a */
423 /* XXX - I've seen some stuff starting with 0x5a followed by 0x2a */
424
425   if(tvb_bytes_exist(tvb, 0, 1) && tvb_get_guint8(tvb, 0) != 0x2a) {
426     /* Not an instant messenger packet, just happened to use the same port */
427     /* XXX - if desegmentation disabled, this might be a continuation
428        packet, not a non-AIM packet */
429     return 0;
430   }
431
432   tcp_dissect_pdus(tvb, pinfo, tree, aim_desegment, 6, get_aim_pdu_len,
433         dissect_aim_pdu);
434   return tvb_length(tvb);
435 }
436
437 static guint get_aim_pdu_len(tvbuff_t *tvb, int offset)
438 {
439   guint16 plen;
440
441   /*
442    * Get the length of the AIM packet.
443    */
444   plen = tvb_get_ntohs(tvb, offset + 4);
445
446   /*
447    * That length doesn't include the length of the header itself; add that in.
448    */
449   return plen + 6;
450 }
451
452 static void dissect_aim_pdu(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
453 {
454   /* Header fields */
455   unsigned char  hdr_channel;           /* channel ID */
456   unsigned short hdr_sequence_no;       /* Internal frame sequence number, not needed */
457   unsigned short hdr_data_field_length; /* length of data within frame */
458
459   int offset=0;
460
461 /* Set up structures we will need to add the protocol subtree and manage it */
462   proto_item *ti;
463   proto_tree *aim_tree = NULL;
464
465 /* Make entries in Protocol column and Info column on summary display */
466   if (check_col(pinfo->cinfo, COL_PROTOCOL))
467     col_set_str(pinfo->cinfo, COL_PROTOCOL, "AIM");
468
469   if (check_col(pinfo->cinfo, COL_INFO))
470     col_add_str(pinfo->cinfo, COL_INFO, "AOL Instant Messenger");
471
472   /* get relevant header information */
473   offset += 1;          /* XXX - put the identifier into the tree? */   
474   hdr_channel           = tvb_get_guint8(tvb, offset);
475   offset += 1;
476   hdr_sequence_no       = tvb_get_ntohs(tvb, offset);
477   offset += 2;
478   hdr_data_field_length = tvb_get_ntohs(tvb, offset);
479   offset += 2;
480
481 /* In the interest of speed, if "tree" is NULL, don't do any work not
482    necessary to generate protocol tree items. */
483   if (tree) {
484     ti = proto_tree_add_item(tree, proto_aim, tvb, 0, -1, FALSE);
485     aim_tree = proto_item_add_subtree(ti, ett_aim);
486     proto_tree_add_uint(aim_tree, hf_aim_cmd_start, tvb, 0, 1, '*');
487     proto_tree_add_item(aim_tree, hf_aim_channel, tvb, 1, 1, FALSE);
488     proto_tree_add_uint(aim_tree, hf_aim_seqno, tvb, 2, 2, hdr_sequence_no);
489     proto_tree_add_uint(aim_tree, hf_aim_data_len, tvb, 4, 2, hdr_data_field_length);
490
491   }
492
493   switch(hdr_channel)
494   {
495     case CHANNEL_NEW_CONN:
496       dissect_aim_newconn(tvb, pinfo, offset, aim_tree);
497       break;
498     case CHANNEL_SNAC_DATA:
499       dissect_aim_snac(tvb, pinfo, offset, aim_tree, tree);
500       break;
501     case CHANNEL_FLAP_ERR:
502       dissect_aim_flap_err(tvb, pinfo, offset, aim_tree);
503       break;
504     case CHANNEL_CLOSE_CONN:
505       dissect_aim_close_conn(tvb, pinfo, offset, aim_tree);
506       break;
507     case CHANNEL_KEEP_ALIVE:
508      dissect_aim_keep_alive(tvb, pinfo, offset, aim_tree);
509      break;
510     default:
511       dissect_aim_unknown_channel(tvb, pinfo, offset, aim_tree);
512       break;
513   }
514
515 }
516 const aim_subtype *aim_get_subtype( guint16 famnum, guint16 subtype )
517 {
518         GList *gl = families;
519         while(gl) {
520                 aim_family *fam = gl->data;
521                 if(fam->family == famnum) {
522                         int i;
523                         for(i = 0; fam->subtypes[i].name; i++) {
524                                 if(fam->subtypes[i].id == subtype) return &(fam->subtypes[i]);
525                         }
526                 }
527                 gl = gl->next;
528         }
529
530         return NULL;
531
532 }
533
534 const aim_family *aim_get_family( guint16 famnum ) 
535 {
536         GList *gl = families;
537         while(gl) {
538                 aim_family *fam = gl->data;
539                 if(fam->family == famnum) return fam;
540                 gl = gl->next;
541         }
542
543         return NULL;
544 }
545
546 int aim_get_buddyname( char *name, tvbuff_t *tvb, int len_offset, int name_offset)
547 {
548   guint8 buddyname_length;
549
550   buddyname_length = tvb_get_guint8(tvb, len_offset);
551
552   if(buddyname_length > MAX_BUDDYNAME_LENGTH ) buddyname_length = MAX_BUDDYNAME_LENGTH;
553   tvb_get_nstringz0(tvb, name_offset, buddyname_length + 1, name);
554
555   return buddyname_length;
556 }
557
558
559 void aim_get_message( guchar *msg, tvbuff_t *tvb, int msg_offset, int msg_length)
560 {
561   int i,j,c;
562   int bracket = FALSE;
563   int max, tagchars = 0;
564   int new_offset = msg_offset;
565   int new_length = msg_length;
566
567
568
569   /* make sure nothing bigger than 1000 bytes is printed */
570   if( msg_length > 999 ) return;
571
572   memset( msg, '\0', 1000);
573   i = 0;
574   c = 0;
575
576   /* loop until HTML tag is reached - quick&dirty way to find start of message
577    * (it is nearly impossible to find the correct start offset for all client versions) */
578   while( (tagchars < 6) && (new_length > 5) )
579   {
580      j = tvb_get_guint8(tvb, new_offset);
581      if( ( (j == '<') && (tagchars == 0) ) ||
582          ( (j == 'h') && (tagchars == 1) ) ||
583          ( (j == 'H') && (tagchars == 1) ) ||
584          ( (j == 't') && (tagchars == 2) ) ||
585          ( (j == 'T') && (tagchars == 2) ) ||
586          ( (j == 'm') && (tagchars == 3) ) ||
587          ( (j == 'M') && (tagchars == 3) ) ||
588          ( (j == 'l') && (tagchars == 4) ) ||
589          ( (j == 'L') && (tagchars == 4) ) ||
590          ( (j == '>') && (tagchars == 5) ) ) tagchars++;
591      new_offset++;
592      new_length--;
593   }
594
595   /* set offset and length of message to after the first HTML tag */
596   msg_offset = new_offset;
597   msg_length = new_length;
598   max = msg_length - 1;
599   tagchars = 0;
600
601   /* find the rest of the message until either a </html> is reached or the end of the frame.
602    * All other HTML tags are stripped to display only the raw message (printable characters) */
603   while( (c < max) && (tagchars < 7) )
604   {
605      j = tvb_get_guint8(tvb, msg_offset+c);
606
607
608      /* make sure this is an HTML tag by checking the order of the chars */
609      if( ( (j == '<') && (tagchars == 0) ) ||
610          ( (j == '/') && (tagchars == 1) ) ||
611          ( (j == 'h') && (tagchars == 2) ) ||
612          ( (j == 'H') && (tagchars == 2) ) ||
613          ( (j == 't') && (tagchars == 3) ) ||
614          ( (j == 'T') && (tagchars == 3) ) ||
615          ( (j == 'm') && (tagchars == 4) ) ||
616          ( (j == 'M') && (tagchars == 4) ) ||
617          ( (j == 'l') && (tagchars == 5) ) ||
618          ( (j == 'L') && (tagchars == 5) ) ||
619          ( (j == '>') && (tagchars == 6) ) ) tagchars++;
620
621 #ifdef STRIP_TAGS
622      if( j == '<' ) bracket = TRUE;
623      if( j == '>' ) bracket = FALSE;
624      if( (isprint(j) ) && (bracket == FALSE) && (j != '>'))
625 #else
626      if( isprint(j) )
627 #endif
628      {
629        msg[i] = j;
630        i++;
631      }
632      c++;
633   }
634 }
635
636 void aim_init_family(int proto, int ett, guint16 family, const aim_subtype *subtypes) 
637 {
638         aim_family *fam = g_new(aim_family, 1);
639         fam->proto = find_protocol_by_id(proto);
640         fam->name = proto_get_protocol_short_name(fam->proto);
641         fam->family = family;
642         fam->subtypes = subtypes;
643         families = g_list_append(families, fam);
644
645         fam->proto_id = proto;
646         fam->ett = ett;
647 }
648
649 static void dissect_aim_newconn(tvbuff_t *tvb, packet_info *pinfo, 
650                                 int offset, proto_tree *tree)
651 {
652   if (check_col(pinfo->cinfo, COL_INFO)) 
653     col_add_fstr(pinfo->cinfo, COL_INFO, "New Connection");
654
655   if (tvb_length_remaining(tvb, offset) > 0) {
656           proto_tree_add_item(tree, hf_aim_authcookie, tvb, offset, 4, FALSE);
657           offset+=4;
658           offset = dissect_aim_tlv_sequence(tvb, pinfo, offset, tree, client_tlvs);
659   }
660
661   if (tvb_length_remaining(tvb, offset) > 0)
662     proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
663 }
664
665
666 int dissect_aim_snac_error(tvbuff_t *tvb, packet_info *pinfo, 
667                              proto_tree *aim_tree)
668 {
669   char *name;
670   if ((name = match_strval(tvb_get_ntohs(tvb, 0), aim_snac_errors)) != NULL) {
671      if (check_col(pinfo->cinfo, COL_INFO))
672                 col_add_fstr(pinfo->cinfo, COL_INFO, name);
673   }
674
675   proto_tree_add_item (aim_tree, hf_aim_snac_error,
676                            tvb, 0, 2, FALSE);
677   
678   return dissect_aim_tlv_sequence(tvb, pinfo, 2, aim_tree, client_tlvs);
679 }
680
681 int dissect_aim_userinfo(tvbuff_t *tvb, packet_info *pinfo, 
682                                  int offset, proto_tree *tree) 
683 {
684         offset = dissect_aim_buddyname(tvb, pinfo, offset, tree);
685
686     proto_tree_add_item(tree, hf_aim_userinfo_warninglevel, tvb, offset, 2, FALSE);
687     offset += 2;
688
689         return dissect_aim_tlv_list(tvb, pinfo, offset, tree, onlinebuddy_tlvs);
690 }
691
692 int dissect_aim_fnac_flags(tvbuff_t *tvb, int offset, int len, proto_item *ti, guint16 flags)
693 {
694         proto_tree *entry = proto_item_add_subtree(ti, ett_aim_fnac_flags);
695         proto_tree_add_boolean(entry, hf_aim_fnac_flag_next_is_related, tvb, offset, len, flags);
696         proto_tree_add_boolean(entry, hf_aim_fnac_flag_contains_version, tvb, offset, len, flags);
697         return offset + len;
698 }
699
700 static void dissect_aim_snac(tvbuff_t *tvb, packet_info *pinfo, 
701                              int offset, proto_tree *aim_tree, proto_tree *root_tree)
702 {
703   guint16 family_id;
704   guint16 subtype_id;
705   guint16 flags;
706   guint32 id;
707   proto_item *ti1;
708   struct aiminfo aiminfo;
709   proto_tree *aim_tree_fnac = NULL;
710   tvbuff_t *subtvb;
711   int orig_offset;
712   const aim_subtype *subtype;
713   proto_tree *family_tree = NULL;
714   const aim_family *family;
715
716   orig_offset = offset;
717   family_id = tvb_get_ntohs(tvb, offset);
718   family = aim_get_family(family_id);
719   offset += 2;
720   subtype_id = tvb_get_ntohs(tvb, offset);
721   subtype = aim_get_subtype(family_id, subtype_id);
722   offset += 2;
723   flags = tvb_get_ntohs(tvb, offset);
724   offset += 2;
725   id = tvb_get_ntohl(tvb, offset);
726   offset += 4;
727   
728  
729   if( aim_tree )
730     {
731       offset = orig_offset;
732       ti1 = proto_tree_add_text(aim_tree, tvb, 6, 10, "FNAC: Family: %s (0x%04x), Subtype: %s (0x%04x)",
733                                 family?family->name:"Unknown", family_id,
734                                 (subtype && subtype->name)?subtype->name:"Unknown", subtype_id);
735       aim_tree_fnac = proto_item_add_subtree(ti1, ett_aim_fnac);
736
737       proto_tree_add_text (aim_tree_fnac, 
738                            tvb, offset, 2, "Family: %s (0x%04x)", family?family->name:"Unknown", family_id);
739       offset += 2;
740
741       proto_tree_add_text (aim_tree_fnac, 
742                            tvb, offset, 2, "Subtype: %s (0x%04x)", (subtype && subtype->name)?subtype->name:"Unknown", subtype_id);
743       offset += 2;
744
745       ti1 = proto_tree_add_uint(aim_tree_fnac, hf_aim_fnac_flags, tvb, offset, 
746                           2, flags);
747
748           offset = dissect_aim_fnac_flags(tvb, offset, 2, ti1, flags);
749
750       proto_tree_add_uint(aim_tree_fnac, hf_aim_fnac_id, tvb, offset,
751                           4, id);
752       offset += 4;
753     }
754   
755   if(flags & FNAC_FLAG_CONTAINS_VERSION) {
756         guint16 len = tvb_get_ntohs(tvb, offset); 
757         int oldoffset;
758         offset+=2;
759         oldoffset = offset;
760         
761         while(offset < oldoffset + len) {
762           offset = dissect_aim_tlv(tvb, pinfo, offset, aim_tree, fnac_tlvs);
763         }
764   }
765
766   subtvb = tvb_new_subset(tvb, offset, -1, -1);
767   aiminfo.tcpinfo = pinfo->private_data;
768   aiminfo.family = family_id;
769   aiminfo.subtype = subtype_id;
770   pinfo->private_data = &aiminfo;
771
772   if (check_col(pinfo->cinfo, COL_PROTOCOL) && family) {
773         col_set_str(pinfo->cinfo, COL_PROTOCOL, family->name);
774   }
775   
776   if (check_col(pinfo->cinfo, COL_INFO)) {
777          if(subtype) {
778                  col_set_str(pinfo->cinfo, COL_INFO, family->name);
779                  col_append_fstr(pinfo->cinfo, COL_INFO, ", %s", subtype->name);
780          } else {
781             col_set_str(pinfo->cinfo, COL_INFO, "SNAC data");
782           
783         if(family) col_append_fstr(pinfo->cinfo, COL_INFO, ", %s", family->name);
784                 else col_append_fstr(pinfo->cinfo, COL_INFO, ", Family: 0x%04x", family_id);
785
786                 col_append_fstr(pinfo->cinfo, COL_INFO, ", Subtype: 0x%04x", subtype_id);
787          }
788   }
789
790   if(aim_tree && family) 
791   {
792         proto_item *ti = proto_tree_add_item(root_tree, family->proto_id, subtvb, 0, -1, FALSE); 
793         family_tree = proto_item_add_subtree(ti, family->ett);
794         if(subtype) proto_item_append_text(ti, ", %s", subtype->name);
795   }
796
797   if(tvb_length_remaining(tvb, offset) > 0 && subtype && subtype->dissector) {
798           subtype->dissector(subtvb, pinfo, family_tree);        
799   }
800 }
801
802 static void dissect_aim_flap_err(tvbuff_t *tvb, packet_info *pinfo, 
803                                  int offset, proto_tree *tree)
804 {
805   if (check_col(pinfo->cinfo, COL_INFO)) {
806     col_add_fstr(pinfo->cinfo, COL_INFO, "FLAP error");
807   }
808
809   /* Show the undissected payload */
810   if (tvb_length_remaining(tvb, offset) > 0)
811     proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
812 }
813
814 static void dissect_aim_keep_alive(tvbuff_t *tvb, packet_info *pinfo, 
815                                    int offset, proto_tree *tree)
816 {
817   if (check_col(pinfo->cinfo, COL_INFO)) {
818     col_add_fstr(pinfo->cinfo, COL_INFO, "Keep Alive");
819   }
820
821   /* Show the undissected payload */
822   if (tvb_length_remaining(tvb, offset) > 0)
823     proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
824 }
825
826 static void dissect_aim_close_conn(tvbuff_t *tvb, packet_info *pinfo, 
827                                    int offset, proto_tree *tree)
828 {
829   if (check_col(pinfo->cinfo, COL_INFO)) {
830     col_add_fstr(pinfo->cinfo, COL_INFO, "Close Connection");
831   }       
832   
833   offset = dissect_aim_tlv_sequence(tvb, pinfo, offset, tree, client_tlvs);
834 }
835
836 static void dissect_aim_unknown_channel(tvbuff_t *tvb, packet_info *pinfo, 
837                                         int offset, proto_tree *tree)
838 {
839   if (check_col(pinfo->cinfo, COL_INFO)) {
840     col_add_fstr(pinfo->cinfo, COL_INFO, "Unknown Channel");
841   }
842
843   /* Show the undissected payload */
844   if (tvb_length_remaining(tvb, offset) > 0)
845     proto_tree_add_item(tree, hf_aim_data, tvb, offset, -1, FALSE);
846 }
847
848 int dissect_aim_buddyname(tvbuff_t *tvb, packet_info *pinfo _U_, int offset,
849                        proto_tree *tree)
850 {
851   guint8 buddyname_length = 0;
852   char *buddyname;
853   proto_item *ti = NULL;
854   proto_tree *buddy_tree = NULL;
855
856   buddyname_length = tvb_get_guint8(tvb, offset);
857   offset++;
858   buddyname = tvb_get_string(tvb, offset, buddyname_length);
859
860   if(tree) {
861       ti = proto_tree_add_text(tree, tvb, offset-1, 1+buddyname_length,
862                                "Buddy: %s",
863                                format_text(buddyname, buddyname_length));
864       buddy_tree = proto_item_add_subtree(ti, ett_aim_buddyname);
865   }
866
867    proto_tree_add_item(buddy_tree, hf_aim_buddyname_len, tvb, offset-1, 1, FALSE);
868    proto_tree_add_item(buddy_tree, hf_aim_buddyname, tvb, offset, buddyname_length, FALSE);
869    return offset+buddyname_length;
870 }
871
872 typedef struct _aim_client_capability
873 {
874         const char *name;
875         e_uuid_t clsid; 
876 } aim_client_capability;
877
878 static const aim_client_capability known_client_caps[] = {
879         { "Send File", 
880           {0x09461343, 0x4c7f, 0x11d1,
881             { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
882
883         { "Recv File",
884             { 0x09461348, 0x4c7f, 0x11d1,
885                    { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
886         
887         { "iChat",
888          {0x09460000, 0x4c7f, 0x11d1, 
889            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
890
891         { "Security",
892          {0x09460001, 0x4c7f, 0x11d1, 
893            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
894
895         { "Video Chat",
896          {0x09460100, 0x4c7f, 0x11d1, 
897            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
898
899         { "Live Video",
900          {0x09460101, 0x4c7f, 0x11d1, 
901            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
902
903         { "Camera",
904          {0x09460102, 0x4c7f, 0x11d1, 
905            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
906
907         { "iChatAV info",
908          {0x09460105, 0x4c7f, 0x11d1, 
909            { 0x82, 0x22, 0x44, 0x45, 0x45, 0x53, 0x54, 0x00}}},
910
911         { "Hiptop",
912          {0x09461323, 0x4c7f, 0x11d1, 
913            { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
914
915         { "Voice Chat",
916          {0x09461341, 0x4c7f, 0x11d1, 
917                  { 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
918
919         { "Direct ICQ Communication",
920          {0x09461344, 0x4c7f, 0x11d1, 
921                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
922
923         { "Direct Instant Messaging",
924          {0x09461345, 0x4c7f, 0x11d1, 
925                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
926
927         { "Buddy Icon",
928          {0x09461346, 0x4c7f, 0x11d1, 
929                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
930
931         { "Add-Ins",
932          {0x09461347, 0x4c7f, 0x11d1,
933                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
934
935         { "ICQ Server Relaying",
936          {0x09461349, 0x4c7f, 0x11d1,
937                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
938
939         { "Games",
940          {0x0946134a, 0x4c7f, 0x11d1,
941                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
942         
943         { "Games",
944          {0x0946134a, 0x4c7f, 0x11d1,
945                  {0x22, 0x82, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
946
947         { "Send Buddy List",
948          {0x0946134b, 0x4c7f, 0x11d1,
949                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
950
951         { "AIM/ICQ Interoperability",
952          {0x0946134d, 0x4c7f, 0x11d1,
953                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
954
955         { "ICQ UTF8 Support",
956          {0x0946134e, 0x4c7f, 0x11d1,
957                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
958
959         { "Old ICQ UTF8 Support",
960          {0x2e7a6475, 0xfadf, 0x4dc8,
961                  {0x88, 0x6f, 0xea, 0x35, 0x95, 0xfd, 0xb6, 0xdf}}},
962
963         { "Chat",
964          {0x748f2420, 0x6287, 0x11d1, 
965                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
966
967         { "ICQ Rich Text Format Messages",
968          {0x97b12751, 0x243c, 0x4334,
969                  {0xad, 0x22, 0xd6, 0xab, 0xf7, 0x3f, 0x14, 0x92}}},
970
971         { "AP User", 
972          {0xaa4a32b5, 0xf884, 0x48c6,
973                  {0xa3, 0xd7, 0x8c, 0x50, 0x97, 0x19, 0xfd, 0x5b}}},
974
975         { "Trillian Encryption",
976          {0xf2e7c7f4, 0xfead, 0x4dfb,
977                  {0xb2, 0x35, 0x36, 0x79, 0x8b, 0xdf, 0x00, 0x00}}},
978
979         { "Unknown 1", 
980          {0x0946f004, 0x4c7f, 0x11d1, 
981                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
982
983         { "Unknown 2", 
984          {0x0946f004, 0x4c7f, 0x11d1, 
985                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
986
987         { "Unknown 3",
988          {0x09460103, 0x4c7f, 0x11d1,
989                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
990
991         { "Unknown 4",
992          {0x0946f003, 0x4c7f, 0x11d1,
993                  {0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}}},
994
995         { NULL, {0x0, 0x0, 0x0, { 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0 } } }
996 };
997
998 const aim_client_capability *aim_find_capability ( e_uuid_t clsid)
999 {
1000         int i;
1001
1002         for(i = 0; known_client_caps[i].name; i++) 
1003         {
1004                 const aim_client_capability *caps = &(known_client_caps[i]);
1005
1006                 if(memcmp(&(caps->clsid), &clsid, sizeof(e_uuid_t)) == 0)
1007                         return caps;
1008         }
1009
1010         return NULL;
1011 }
1012
1013 int dissect_aim_tlv_value_capability_data ( proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb _U_, packet_info *pinfo _U_)
1014 {
1015         return 0;
1016 }
1017
1018 int dissect_aim_capability(proto_tree *entry, tvbuff_t *tvb, int offset)
1019 {
1020         const aim_client_capability *caps = NULL;
1021         e_uuid_t clsid;
1022
1023         clsid.Data1 = tvb_get_ntohl(tvb, offset);
1024         clsid.Data2 = tvb_get_ntohs(tvb, offset+4);
1025         clsid.Data3 = tvb_get_ntohs(tvb, offset+6);
1026         tvb_memcpy(tvb, clsid.Data4, offset+8, 8);
1027
1028         caps = aim_find_capability(clsid);
1029
1030         proto_tree_add_text(entry, tvb, offset, 16, 
1031                 "%s {%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}", 
1032                 caps?caps->name:"Unknown", clsid.Data1, clsid.Data2, 
1033                 clsid.Data3, clsid.Data4[0], clsid.Data4[1], clsid.Data4[2], 
1034                 clsid.Data4[3], clsid.Data4[4], clsid.Data4[5], clsid.Data4[6], 
1035                         clsid.Data4[7]
1036         );
1037
1038         return offset+16;
1039 }
1040
1041 int dissect_aim_tlv_value_client_capabilities(proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1042 {
1043         int offset = 0;
1044         proto_tree *entry;
1045
1046         proto_item_set_text(ti, "Client Capabilities List");
1047
1048         entry = proto_item_add_subtree(ti, ett_aim_client_capabilities);
1049         
1050         while (tvb_length_remaining(tvb, offset) > 0) {
1051                 offset = dissect_aim_capability(entry, tvb, offset);
1052         }
1053
1054         return tvb_length(tvb);
1055 }
1056
1057 int dissect_aim_tlv_value_time(proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1058 {
1059         /* FIXME */
1060         return tvb_length(tvb);
1061 }
1062
1063 int dissect_aim_userclass(tvbuff_t *tvb, int offset, int len, proto_item *ti, guint32 flags)
1064 {
1065         proto_tree *entry;
1066
1067         entry = proto_item_add_subtree(ti, ett_aim_userclass);
1068         proto_tree_add_boolean(entry, hf_aim_userclass_unconfirmed, tvb, offset, len, flags);
1069         proto_tree_add_boolean(entry, hf_aim_userclass_administrator, tvb, offset, len, flags);
1070         proto_tree_add_boolean(entry, hf_aim_userclass_aol, tvb, offset, len, flags);
1071         proto_tree_add_boolean(entry, hf_aim_userclass_commercial, tvb, offset, len, flags);
1072         proto_tree_add_boolean(entry, hf_aim_userclass_free, tvb, offset, len, flags);
1073         proto_tree_add_boolean(entry, hf_aim_userclass_away, tvb, offset, len, flags);
1074         proto_tree_add_boolean(entry, hf_aim_userclass_icq, tvb, offset, len, flags);
1075         proto_tree_add_boolean(entry, hf_aim_userclass_wireless, tvb, offset, len, flags);
1076         proto_tree_add_boolean(entry, hf_aim_userclass_unknown100, tvb, offset, len, flags);
1077         proto_tree_add_boolean(entry, hf_aim_userclass_unknown200, tvb, offset, len, flags);
1078         proto_tree_add_boolean(entry, hf_aim_userclass_unknown400, tvb, offset, len, flags);
1079         proto_tree_add_boolean(entry, hf_aim_userclass_unknown800, tvb, offset, len, flags);
1080         return offset+len;
1081 }
1082
1083 int dissect_aim_tlv_value_userclass(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1084 {
1085         guint16 value16 = tvb_get_ntohs(tvb, 0);
1086         proto_item_set_text(ti, "Value: 0x%04x", value16);
1087         return dissect_aim_userclass(tvb, 0, 2, ti, value16);
1088 }
1089
1090 static int dissect_aim_tlv_value_userstatus(proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1091 {
1092         /* FIXME */
1093         return tvb_length(tvb);
1094 }
1095
1096 static int dissect_aim_tlv_value_dcinfo(proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1097 {
1098         int offset = 0;
1099         
1100         proto_tree *dctree = proto_item_add_subtree(ti, ett_aim_dcinfo);
1101         
1102         proto_tree_add_item(dctree, hf_aim_dcinfo_ip , tvb, offset, 4, FALSE); offset+=4;
1103         proto_tree_add_item(dctree, hf_aim_dcinfo_tcpport, tvb, offset, 4, FALSE); offset+=4;
1104         proto_tree_add_item(dctree, hf_aim_dcinfo_type, tvb, offset, 1, FALSE); offset+=1;
1105         proto_tree_add_item(dctree, hf_aim_dcinfo_proto_version, tvb, offset, 2, FALSE); offset+=2;
1106         proto_tree_add_item(dctree, hf_aim_dcinfo_auth_cookie, tvb, offset, 4, FALSE); offset+=2;
1107         proto_tree_add_item(dctree, hf_aim_dcinfo_webport, tvb, offset, 4, FALSE); offset+=4;
1108         proto_tree_add_item(dctree, hf_aim_dcinfo_client_future, tvb, offset, 4, FALSE); offset+=4;
1109         proto_tree_add_item(dctree, hf_aim_dcinfo_last_info_update, tvb, offset, 4, FALSE); offset+=4;
1110         proto_tree_add_item(dctree, hf_aim_dcinfo_last_ext_info_update, tvb, offset, 4, FALSE); offset+=4;
1111         proto_tree_add_item(dctree, hf_aim_dcinfo_last_ext_status_update, tvb, offset, 4, FALSE); offset+=4;
1112         proto_tree_add_item(dctree, hf_aim_dcinfo_unknown, tvb, offset, 2, FALSE); offset+=2;
1113
1114         return offset;
1115 }
1116
1117 int dissect_aim_tlv_value_string (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_)
1118 {
1119    guint8 *buf;
1120    gint string_len;
1121
1122    string_len = tvb_length(tvb);
1123    buf = tvb_get_string(tvb, 0, string_len);
1124    proto_item_set_text(ti, "Value: %s", format_text(buf, string_len));
1125    g_free(buf);
1126    return string_len;
1127 }
1128
1129 int dissect_aim_tlv_value_bytes (proto_item *ti _U_, guint16 valueid _U_, tvbuff_t *tvb _U_, packet_info *pinfo _U_)
1130 {
1131    return tvb_length(tvb);
1132 }
1133
1134 int dissect_aim_tlv_value_uint8 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1135   guint8 value8 = tvb_get_guint8(tvb, 0);
1136   proto_item_set_text(ti, "Value: %d", value8);
1137   return 1;
1138 }
1139
1140 int dissect_aim_tlv_value_uint16 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1141   guint16 value16 = tvb_get_ntohs(tvb, 0);
1142   proto_item_set_text(ti, "Value: %d", value16);
1143   return 2;
1144 }
1145
1146 int dissect_aim_tlv_value_ipv4 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1147   /* FIXME: Somewhat more readable format ? */
1148   guint32 value32 = tvb_get_ntoh24(tvb, 0);
1149   proto_item_set_text(ti, "Value: %d", value32);
1150   return 4;
1151 }
1152
1153 int dissect_aim_tlv_value_uint32 (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1154   guint32 value32 = tvb_get_ntoh24(tvb, 0);
1155   proto_item_set_text(ti, "Value: %d", value32);
1156   return 4;
1157 }
1158
1159 int dissect_aim_tlv_value_messageblock (proto_item *ti, guint16 valueid _U_, tvbuff_t *tvb, packet_info *pinfo _U_){
1160   proto_tree *entry;
1161   guint8 *buf;
1162   guint16 featurelen;
1163   guint16 blocklen;
1164   int offset=0;
1165
1166   /* Setup a new subtree */
1167   entry = proto_item_add_subtree(ti, ett_aim_messageblock);
1168
1169   /* Features descriptor */
1170   proto_tree_add_item(entry, hf_aim_messageblock_featuresdes, tvb, offset, 2,
1171                       FALSE);
1172   offset += 2;
1173
1174   /* Features Length */
1175   featurelen = tvb_get_ntohs(tvb, offset);
1176   proto_tree_add_item(entry, hf_aim_messageblock_featureslen, tvb, offset, 2,
1177                       FALSE);
1178   offset += 2;
1179
1180   /* Features (should be expanded further @@@@@@@ ) */
1181   proto_tree_add_item(entry, hf_aim_messageblock_features, tvb, offset, 
1182                       featurelen, FALSE);
1183   offset += featurelen;
1184
1185   /* There can be multiple messages in this message block */
1186   while (tvb_length_remaining(tvb, offset) > 0) {
1187     /* Info field */
1188     proto_tree_add_item(entry, hf_aim_messageblock_info, tvb, offset, 2,
1189                         FALSE);
1190     offset += 2;
1191     
1192     /* Block length (includes charset and charsubset) */
1193     blocklen = tvb_get_ntohs(tvb, offset);
1194     proto_tree_add_item(entry, hf_aim_messageblock_len, tvb, offset, 2,
1195                         FALSE);
1196     offset += 2;
1197     
1198     /* Character set */
1199     proto_tree_add_item(entry, hf_aim_messageblock_charset, tvb, offset, 2,
1200                         FALSE);
1201     offset += 2;
1202     
1203     /* Character subset */
1204     proto_tree_add_item(entry, hf_aim_messageblock_charsubset, tvb, offset, 2,
1205                         FALSE);
1206     offset += 2;
1207
1208     /* The actual message */
1209     buf = tvb_get_string(tvb, offset, blocklen - 4 );
1210     proto_item_set_text(ti, "Message: %s",
1211                         format_text(buf, blocklen - 4));
1212     proto_tree_add_item(entry, hf_aim_messageblock_message, tvb, offset, 
1213                         blocklen-4,
1214                         FALSE);
1215     offset += tvb_length_remaining(tvb, offset);
1216     g_free(buf);
1217   }
1218
1219   return offset;
1220 }
1221
1222 /* Dissect a TLV value */
1223 int dissect_aim_tlv(tvbuff_t *tvb, packet_info *pinfo _U_, 
1224                            int offset, proto_tree *tree, const aim_tlv *tlv)
1225 {
1226   guint16 valueid;
1227   guint16 length;
1228   int i = 0;
1229   const aim_tlv *tmp;
1230   proto_item *ti1;
1231   proto_tree *tlv_tree;
1232   int orig_offset;
1233
1234   /* Record the starting offset so we can reuse it at the second pass */
1235   orig_offset = offset;
1236
1237   /* Get the value ID */
1238   valueid = tvb_get_ntohs(tvb, offset);
1239   offset += 2;
1240
1241   /* Figure out which entry applies from the tlv list */
1242   tmp = tlv;
1243   while (tmp[i].valueid) {
1244     if (tmp[i].valueid == valueid) {
1245       /* We found a match */
1246       break;
1247     }
1248     i++;
1249   }
1250
1251   /* At this point, we are either pointing at the correct record, or 
1252      we didn't find the record, and are pointing at the last item in the 
1253      list */
1254
1255   length = tvb_get_ntohs(tvb, offset);
1256   offset += 2;
1257   offset += length;
1258
1259   if (tree) {
1260     offset = orig_offset;
1261     
1262     ti1 = proto_tree_add_text(tree, tvb, offset, length + 4, "TLV: %s", tmp[i].desc);
1263
1264     tlv_tree = proto_item_add_subtree(ti1, ett_aim_tlv);
1265
1266     proto_tree_add_text(tlv_tree, tvb, offset, 2,
1267                         "Value ID: %s (0x%04x)", tmp[i].desc, valueid);
1268     offset += 2;
1269     
1270     proto_tree_add_text(tlv_tree, tvb, offset, 2,
1271                         "Length: %d", length);
1272     offset += 2;
1273
1274     ti1 = proto_tree_add_text(tlv_tree, tvb, offset, length,
1275                               "Value");
1276         
1277     if (tmp[i].dissector) {
1278       tmp[i].dissector(ti1, valueid, tvb_new_subset(tvb, offset, length, length), pinfo);
1279     } 
1280
1281     offset += length;
1282   }
1283
1284   /* Return the new length */
1285   return offset;
1286 }
1287
1288 int dissect_aim_tlv_sequence(tvbuff_t *tvb, packet_info *pinfo, 
1289                                                          int offset, proto_tree *tree, const aim_tlv *tlv_table)
1290 {
1291         while (tvb_length_remaining(tvb, offset) > 0) {
1292                 offset = dissect_aim_tlv(tvb, pinfo, offset, tree, tlv_table);
1293         }
1294         return offset;
1295 }
1296
1297 int dissect_aim_tlv_list(tvbuff_t *tvb, packet_info *pinfo, 
1298                            int offset, proto_tree *tree, const aim_tlv *tlv_table)
1299 {
1300     guint16 i, tlv_count = tvb_get_ntohs(tvb, offset);
1301
1302     proto_tree_add_item(tree, hf_aim_tlvcount, tvb, offset, 2, FALSE);
1303     offset += 2;
1304
1305     for(i = 0; i < tlv_count; i++) {
1306       offset = dissect_aim_tlv(tvb, pinfo, offset, tree, tlv_table);
1307     }
1308     return offset;
1309 }
1310
1311 /* Register the protocol with Ethereal */
1312 void
1313 proto_register_aim(void)
1314 {
1315
1316 /* Setup list of header fields */
1317   static hf_register_info hf[] = {
1318     { &hf_aim_cmd_start,
1319       { "Command Start", "aim.cmd_start", FT_UINT8, BASE_HEX, NULL, 0x0, "", HFILL }
1320     },
1321     { &hf_aim_channel,
1322       { "Channel ID", "aim.channel", FT_UINT8, BASE_HEX, VALS(aim_flap_channels), 0x0, "", HFILL }
1323     },
1324     { &hf_aim_seqno,
1325       { "Sequence Number", "aim.seqno", FT_UINT16, BASE_DEC, NULL, 0x0, "", HFILL }
1326     },
1327         { &hf_aim_authcookie,
1328           { "Authentication Cookie", "aim.authcookie", FT_BYTES, BASE_DEC, NULL, 0x0, "", HFILL },
1329         },
1330     { &hf_aim_data_len,
1331       { "Data Field Length", "aim.datalen", FT_UINT16, BASE_DEC, NULL, 0x0, "", HFILL }
1332     },
1333     { &hf_aim_data,
1334       { "Data", "aim.data", FT_BYTES, BASE_HEX, NULL, 0x0, "", HFILL }
1335     },
1336     { &hf_aim_signon_challenge_len,
1337       { "Signon challenge length", "aim.signon.challengelen", FT_UINT16, BASE_DEC, NULL, 0x0, "", HFILL }
1338     },
1339     { &hf_aim_signon_challenge,
1340       { "Signon challenge", "aim.signon.challenge", FT_STRING, BASE_HEX, NULL, 0x0, "", HFILL }
1341     },
1342     { &hf_aim_fnac_family,
1343       { "FNAC Family ID", "aim.fnac.family", FT_UINT16, BASE_HEX, NULL, 0x0, "", HFILL }
1344     },
1345     { &hf_aim_fnac_subtype,
1346       { "FNAC Subtype ID", "aim.fnac.subtype", FT_UINT16, BASE_HEX, NULL, 0x0, "", HFILL }
1347     },
1348     { &hf_aim_fnac_flags,
1349       { "FNAC Flags", "aim.fnac.flags", FT_UINT16, BASE_HEX, NULL, 0x0, "", HFILL }
1350     },
1351     { &hf_aim_fnac_id,
1352       { "FNAC ID", "aim.fnac.id", FT_UINT32, BASE_HEX, NULL, 0x0, "", HFILL }
1353     },
1354     { &hf_aim_infotype,
1355       { "Infotype", "aim.infotype", FT_UINT16, BASE_HEX, NULL, 0x0, "", HFILL }
1356     },
1357     { &hf_aim_buddyname_len,
1358       { "Buddyname len", "aim.buddynamelen", FT_UINT8, BASE_DEC, NULL, 0x0, "", HFILL }
1359     },
1360     { &hf_aim_buddyname,
1361       { "Buddy Name", "aim.buddyname", FT_STRING, BASE_NONE, NULL, 0x0, "", HFILL }
1362     },
1363     { &hf_aim_tlvcount,
1364       { "TLV Count", "aim.tlvcount", FT_UINT16, BASE_DEC, NULL, 0x0, "", HFILL },
1365     },
1366         { &hf_aim_snac_error,
1367           { "SNAC Error", "aim.snac.error", FT_UINT16,
1368                   BASE_HEX, VALS(aim_snac_errors), 0x0, "", HFILL },
1369         },
1370         { &hf_aim_userclass_unconfirmed,
1371                 { "AOL Unconfirmed user flag", "aim.userclass.unconfirmed", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_UNCONFIRMED, "", HFILL },
1372         },
1373         { &hf_aim_userclass_administrator,
1374                 { "AOL Administrator flag", "aim.userclass.administrator", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_ADMINISTRATOR, "", HFILL },
1375         },
1376         { &hf_aim_userclass_aol,
1377                 { "AOL Staff User Flag", "aim.userclass.staff", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_AOL, "", HFILL },
1378         },
1379         { &hf_aim_userclass_commercial,
1380                 { "AOL commercial account flag", "aim.userclass.commercial", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_COMMERCIAL, "", HFILL },
1381         },
1382         { &hf_aim_userclass_free,
1383                 { "ICQ non-commercial account flag", "aim.userclass.noncommercial", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_FREE, "", HFILL },
1384         },
1385         { &hf_aim_userclass_away,
1386                 { "AOL away status flag", "aim.userclass.away", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_AWAY, "", HFILL },
1387         },
1388         { &hf_aim_userclass_icq,
1389                 { "ICQ user sign", "aim.userclass.icq", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_ICQ, "", HFILL },
1390         },
1391         { &hf_aim_userclass_wireless,
1392                 { "AOL wireless user", "aim.userclass.wireless", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_WIRELESS, "", HFILL },
1393         },
1394         { &hf_aim_userclass_unknown100,
1395                 { "Unknown bit", "aim.userclass.unknown100", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_UNKNOWN100, "", HFILL },
1396         },
1397         { &hf_aim_userclass_unknown200,
1398                 { "Unknown bit", "aim.userclass.unknown200", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_UNKNOWN200, "", HFILL },
1399         },
1400         { &hf_aim_userclass_unknown400,
1401                 { "Unknown bit", "aim.userclass.unknown400", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_UNKNOWN400, "", HFILL },
1402         },
1403         { &hf_aim_userclass_unknown800,
1404                 { "Unknown bit", "aim.userclass.unknown800", FT_BOOLEAN, 32, TFS(&flags_set_truth), CLASS_UNKNOWN800, "", HFILL },
1405         },
1406         { &hf_aim_fnac_flag_next_is_related,
1407                 { "Followed By SNAC with related information", "aim.fnac.flags.next_is_related", FT_BOOLEAN, 16, TFS(&flags_set_truth), FNAC_FLAG_NEXT_IS_RELATED, "", HFILL },
1408         },
1409         { &hf_aim_fnac_flag_contains_version,
1410                 { "Contains Version of Family this SNAC is in", "aim.fnac.flags.contains_version", FT_BOOLEAN, 16, TFS(&flags_set_truth), FNAC_FLAG_CONTAINS_VERSION, "", HFILL },
1411         },
1412         { &hf_aim_userinfo_warninglevel,
1413                 { "Warning Level", "aim.userinfo.warninglevel", FT_UINT16, BASE_DEC, NULL, 0x0, "", HFILL },
1414         },
1415     { &hf_aim_messageblock_featuresdes,
1416                 { "Features", "aim.messageblock.featuresdes", FT_UINT16, BASE_HEX, NULL, 0x0, "", HFILL },
1417         },
1418     { &hf_aim_messageblock_featureslen,
1419                 { "Features Length", "aim.messageblock.featureslen", FT_UINT16, BASE_DEC, NULL, 0x0, "", HFILL },
1420         },
1421     { &hf_aim_messageblock_features,
1422                 { "Features", "aim.messageblock.features", FT_BYTES, BASE_HEX, NULL, 0x0, "", HFILL },
1423         },
1424     { &hf_aim_messageblock_info,
1425                 { "Block info", "aim.messageblock.info", FT_UINT16, BASE_HEX, NULL, 0x0, "", HFILL },
1426         },
1427     { &hf_aim_messageblock_len,
1428                 { "Block length", "aim.messageblock.length", FT_UINT16, BASE_DEC, NULL, 0x0, "", HFILL },
1429         },
1430     { &hf_aim_messageblock_charset,
1431                 { "Block Character set", "aim.messageblock.charset", FT_UINT16, BASE_HEX, NULL, 0x0, "", HFILL },
1432         },
1433     { &hf_aim_messageblock_charsubset,
1434                 { "Block Character subset", "aim.messageblock.charsubset", FT_UINT16, BASE_HEX, NULL, 0x0, "", HFILL },
1435         },
1436     { &hf_aim_messageblock_message,
1437                 { "Message", "aim.messageblock.message", FT_STRING, BASE_NONE, NULL, 0x0, "", HFILL },
1438         },
1439         { &hf_aim_dcinfo_ip,
1440                 { "Internal IP address", "aim.dcinfo.addr", FT_IPv4, BASE_NONE, NULL, 0x0, "", HFILL },
1441         },
1442         { &hf_aim_dcinfo_tcpport,
1443                 { "TCP Port", "aim.dcinfo.tcpport", FT_UINT32, BASE_DEC, NULL, 0x0, "", HFILL },
1444         },
1445         { &hf_aim_dcinfo_type,
1446                 { "Type", "aim.dcinfo.type", FT_UINT8, BASE_HEX, VALS(dc_types), 0x0, "", HFILL },
1447         },
1448         { &hf_aim_dcinfo_proto_version,
1449                 { "Protocol Version", "aim.dcinfo.proto_version", FT_UINT16, BASE_DEC, VALS(protocol_versions), 0x0, "", HFILL },
1450         },
1451         { &hf_aim_dcinfo_auth_cookie,
1452                 { "Authorization Cookie", "aim.dcinfo.auth_cookie", FT_BYTES, BASE_NONE, NULL, 0x0, "", HFILL },
1453         },
1454         { &hf_aim_dcinfo_webport,
1455                 { "Web Front Port", "aim.dcinfo.webport", FT_UINT32, BASE_DEC, NULL, 0x0, "", HFILL },
1456         },
1457         { &hf_aim_dcinfo_client_future,
1458                 { "Client Futures", "aim.dcinfo.client_futures", FT_UINT32, BASE_HEX, NULL, 0x0, "", HFILL },
1459         },
1460         { &hf_aim_dcinfo_last_info_update,
1461                 { "Last Info Update", "aim.dcinfo.last_info_update", FT_UINT32, BASE_DEC, NULL, 0x0, "", HFILL },
1462         },
1463         { &hf_aim_dcinfo_last_ext_info_update,
1464                 { "Last Extended Info Update", "aim.dcinfo.last_ext_info_update", FT_UINT32, BASE_DEC, NULL, 0x0, "", HFILL },
1465         },
1466         { &hf_aim_dcinfo_last_ext_status_update,
1467                 { "Last Extended Status Update", "aim.dcinfo.last_ext_status_update", FT_UINT32, BASE_DEC, NULL, 0x0, "", HFILL },
1468         },
1469         { &hf_aim_dcinfo_unknown,
1470                 { "Unknown", "aim.dcinfo.unknown", FT_UINT16, BASE_DEC, NULL, 0x0, "", HFILL },
1471         },
1472
1473   };
1474
1475   /* Setup protocol subtree array */
1476   static gint *ett[] = {
1477           &ett_aim,
1478           &ett_aim_dcinfo,
1479           &ett_aim_fnac,
1480           &ett_aim_fnac_flags,
1481           &ett_aim_tlv,
1482           &ett_aim_buddyname,
1483           &ett_aim_userclass,
1484           &ett_aim_messageblock,
1485           &ett_aim_client_capabilities
1486   };
1487   module_t *aim_module;
1488
1489   /* Register the protocol name and description */
1490   proto_aim = proto_register_protocol("AOL Instant Messenger", "AIM", "aim");
1491
1492 /* Required function calls to register the header fields and subtrees used */
1493   proto_register_field_array(proto_aim, hf, array_length(hf));
1494   proto_register_subtree_array(ett, array_length(ett));
1495
1496   aim_module = prefs_register_protocol(proto_aim, NULL);
1497   prefs_register_bool_preference(aim_module, "desegment",
1498     "Reassemble AIM messages spanning multiple TCP segments",
1499     "Whether the AIM dissector should reassemble messages spanning multiple TCP segments."
1500     " To use this option, you must also enable \"Allow subdissectors to reassemble TCP streams\" in the TCP protocol settings.",
1501     &aim_desegment);
1502
1503   subdissector_table = register_dissector_table("aim.family", 
1504                 "Family ID", FT_UINT16, BASE_HEX);
1505 }
1506
1507 void
1508 proto_reg_handoff_aim(void)
1509 {
1510   dissector_handle_t aim_handle;
1511
1512   aim_handle = new_create_dissector_handle(dissect_aim, proto_aim);
1513   dissector_add("tcp.port", TCP_PORT_AIM, aim_handle);
1514 }