Upgrade to tcpdump-4.0.0.
[dragonfly.git] / contrib / tcpdump / print-zephyr.c
1 /*
2  * Decode and print Zephyr packets.
3  *
4  *      http://web.mit.edu/zephyr/doc/protocol
5  *
6  * Copyright (c) 2001 Nickolai Zeldovich <kolya@MIT.EDU>
7  * All rights reserved.
8  *
9  * Redistribution and use in source and binary forms, with or without
10  * modification, are permitted provided that: (1) source code
11  * distributions retain the above copyright notice and this paragraph
12  * in its entirety, and (2) distributions including binary code include
13  * the above copyright notice and this paragraph in its entirety in
14  * the documentation or other materials provided with the distribution.
15  * The name of the author(s) may not be used to endorse or promote
16  * products derived from this software without specific prior written
17  * permission.  THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY
18  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE
19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
20  * PURPOSE.
21  */
22
23 #ifndef lint
24 static const char rcsid[] _U_ =
25     "@(#) $Header: /tcpdump/master/tcpdump/print-zephyr.c,v 1.10 2007-08-09 18:47:27 hannes Exp $";
26 #endif
27
28 #ifdef HAVE_CONFIG_H
29 #include "config.h"
30 #endif
31
32 #include <tcpdump-stdinc.h>
33
34 #include <stdio.h>
35 #include <string.h>
36 #include <stdlib.h>
37
38 #include "interface.h"
39
40 struct z_packet {
41     char *version;
42     int numfields;
43     int kind;
44     char *uid;
45     int port;
46     int auth;
47     int authlen;
48     char *authdata;
49     char *class;
50     char *inst;
51     char *opcode;
52     char *sender;
53     const char *recipient;
54     char *format;
55     int cksum;
56     int multi;
57     char *multi_uid;
58     /* Other fields follow here.. */
59 };
60
61 enum z_packet_type {
62     Z_PACKET_UNSAFE = 0,
63     Z_PACKET_UNACKED,
64     Z_PACKET_ACKED,
65     Z_PACKET_HMACK,
66     Z_PACKET_HMCTL,
67     Z_PACKET_SERVACK,
68     Z_PACKET_SERVNAK,
69     Z_PACKET_CLIENTACK,
70     Z_PACKET_STAT
71 };
72
73 static struct tok z_types[] = {
74     { Z_PACKET_UNSAFE,          "unsafe" },
75     { Z_PACKET_UNACKED,         "unacked" },
76     { Z_PACKET_ACKED,           "acked" },
77     { Z_PACKET_HMACK,           "hm-ack" },
78     { Z_PACKET_HMCTL,           "hm-ctl" },
79     { Z_PACKET_SERVACK,         "serv-ack" },
80     { Z_PACKET_SERVNAK,         "serv-nak" },
81     { Z_PACKET_CLIENTACK,       "client-ack" },
82     { Z_PACKET_STAT,            "stat" }
83 };
84
85 char z_buf[256];
86
87 static char *
88 parse_field(char **pptr, int *len)
89 {
90     char *s;
91
92     if (*len <= 0 || !pptr || !*pptr)
93         return NULL;
94     if (*pptr > (char *) snapend)
95         return NULL;
96
97     s = *pptr;
98     while (*pptr <= (char *) snapend && *len >= 0 && **pptr) {
99         (*pptr)++;
100         (*len)--;
101     }
102     (*pptr)++;
103     (*len)--;
104     if (*len < 0 || *pptr > (char *) snapend)
105         return NULL;
106     return s;
107 }
108
109 static const char *
110 z_triple(char *class, char *inst, const char *recipient)
111 {
112     if (!*recipient)
113         recipient = "*";
114     snprintf(z_buf, sizeof(z_buf), "<%s,%s,%s>", class, inst, recipient);
115     z_buf[sizeof(z_buf)-1] = '\0';
116     return z_buf;
117 }
118
119 static const char *
120 str_to_lower(char *string)
121 {
122     strncpy(z_buf, string, sizeof(z_buf));
123     z_buf[sizeof(z_buf)-1] = '\0';
124
125     string = z_buf;
126     while (*string) {
127         *string = tolower((unsigned char)(*string));
128         string++;
129     }
130
131     return z_buf;
132 }
133
134 void
135 zephyr_print(const u_char *cp, int length)
136 {
137     struct z_packet z;
138     char *parse = (char *) cp;
139     int parselen = length;
140     char *s;
141     int lose = 0;
142
143     /* squelch compiler warnings */
144
145     z.kind = 0;
146     z.class = 0;
147     z.inst = 0;
148     z.opcode = 0;
149     z.sender = 0;
150     z.recipient = 0;
151
152 #define PARSE_STRING                            \
153         s = parse_field(&parse, &parselen);     \
154         if (!s) lose = 1;
155
156 #define PARSE_FIELD_INT(field)                  \
157         PARSE_STRING                            \
158         if (!lose) field = strtol(s, 0, 16);
159
160 #define PARSE_FIELD_STR(field)                  \
161         PARSE_STRING                            \
162         if (!lose) field = s;
163
164     PARSE_FIELD_STR(z.version);
165     if (lose) return;
166     if (strncmp(z.version, "ZEPH", 4))
167         return;
168
169     PARSE_FIELD_INT(z.numfields);
170     PARSE_FIELD_INT(z.kind);
171     PARSE_FIELD_STR(z.uid);
172     PARSE_FIELD_INT(z.port);
173     PARSE_FIELD_INT(z.auth);
174     PARSE_FIELD_INT(z.authlen);
175     PARSE_FIELD_STR(z.authdata);
176     PARSE_FIELD_STR(z.class);
177     PARSE_FIELD_STR(z.inst);
178     PARSE_FIELD_STR(z.opcode);
179     PARSE_FIELD_STR(z.sender);
180     PARSE_FIELD_STR(z.recipient);
181     PARSE_FIELD_STR(z.format);
182     PARSE_FIELD_INT(z.cksum);
183     PARSE_FIELD_INT(z.multi);
184     PARSE_FIELD_STR(z.multi_uid);
185
186     if (lose) {
187         printf(" [|zephyr] (%d)", length);
188         return;
189     }
190
191     printf(" zephyr");
192     if (strncmp(z.version+4, "0.2", 3)) {
193         printf(" v%s", z.version+4);
194         return;
195     }
196
197     printf(" %s", tok2str(z_types, "type %d", z.kind));
198     if (z.kind == Z_PACKET_SERVACK) {
199         /* Initialization to silence warnings */
200         char *ackdata = NULL;
201         PARSE_FIELD_STR(ackdata);
202         if (!lose && strcmp(ackdata, "SENT"))
203             printf("/%s", str_to_lower(ackdata));
204     }
205     if (*z.sender) printf(" %s", z.sender);
206
207     if (!strcmp(z.class, "USER_LOCATE")) {
208         if (!strcmp(z.opcode, "USER_HIDE"))
209             printf(" hide");
210         else if (!strcmp(z.opcode, "USER_UNHIDE"))
211             printf(" unhide");
212         else
213             printf(" locate %s", z.inst);
214         return;
215     }
216
217     if (!strcmp(z.class, "ZEPHYR_ADMIN")) {
218         printf(" zephyr-admin %s", str_to_lower(z.opcode));
219         return;
220     }
221
222     if (!strcmp(z.class, "ZEPHYR_CTL")) {
223         if (!strcmp(z.inst, "CLIENT")) {
224             if (!strcmp(z.opcode, "SUBSCRIBE") ||
225                 !strcmp(z.opcode, "SUBSCRIBE_NODEFS") ||
226                 !strcmp(z.opcode, "UNSUBSCRIBE")) {
227
228                 printf(" %ssub%s", strcmp(z.opcode, "SUBSCRIBE") ? "un" : "",
229                                    strcmp(z.opcode, "SUBSCRIBE_NODEFS") ? "" :
230                                                                    "-nodefs");
231                 if (z.kind != Z_PACKET_SERVACK) {
232                     /* Initialization to silence warnings */
233                     char *c = NULL, *i = NULL, *r = NULL;
234                     PARSE_FIELD_STR(c);
235                     PARSE_FIELD_STR(i);
236                     PARSE_FIELD_STR(r);
237                     if (!lose) printf(" %s", z_triple(c, i, r));
238                 }
239                 return;
240             }
241
242             if (!strcmp(z.opcode, "GIMME")) {
243                 printf(" ret");
244                 return;
245             }
246
247             if (!strcmp(z.opcode, "GIMMEDEFS")) {
248                 printf(" gimme-defs");
249                 return;
250             }
251
252             if (!strcmp(z.opcode, "CLEARSUB")) {
253                 printf(" clear-subs");
254                 return;
255             }
256
257             printf(" %s", str_to_lower(z.opcode));
258             return;
259         }
260
261         if (!strcmp(z.inst, "HM")) {
262             printf(" %s", str_to_lower(z.opcode));
263             return;
264         }
265
266         if (!strcmp(z.inst, "REALM")) {
267             if (!strcmp(z.opcode, "ADD_SUBSCRIBE"))
268                 printf(" realm add-subs");
269             if (!strcmp(z.opcode, "REQ_SUBSCRIBE"))
270                 printf(" realm req-subs");
271             if (!strcmp(z.opcode, "RLM_SUBSCRIBE"))
272                 printf(" realm rlm-sub");
273             if (!strcmp(z.opcode, "RLM_UNSUBSCRIBE"))
274                 printf(" realm rlm-unsub");
275             return;
276         }
277     }
278
279     if (!strcmp(z.class, "HM_CTL")) {
280         printf(" hm_ctl %s", str_to_lower(z.inst));
281         printf(" %s", str_to_lower(z.opcode));
282         return;
283     }
284
285     if (!strcmp(z.class, "HM_STAT")) {
286         if (!strcmp(z.inst, "HMST_CLIENT") && !strcmp(z.opcode, "GIMMESTATS")) {
287             printf(" get-client-stats");
288             return;
289         }
290     }
291
292     if (!strcmp(z.class, "WG_CTL")) {
293         printf(" wg_ctl %s", str_to_lower(z.inst));
294         printf(" %s", str_to_lower(z.opcode));
295         return;
296     }
297
298     if (!strcmp(z.class, "LOGIN")) {
299         if (!strcmp(z.opcode, "USER_FLUSH")) {
300             printf(" flush_locs");
301             return;
302         }
303
304         if (!strcmp(z.opcode, "NONE") ||
305             !strcmp(z.opcode, "OPSTAFF") ||
306             !strcmp(z.opcode, "REALM-VISIBLE") ||
307             !strcmp(z.opcode, "REALM-ANNOUNCED") ||
308             !strcmp(z.opcode, "NET-VISIBLE") ||
309             !strcmp(z.opcode, "NET-ANNOUNCED")) {
310             printf(" set-exposure %s", str_to_lower(z.opcode));
311             return;
312         }
313     }
314
315     if (!*z.recipient)
316         z.recipient = "*";
317
318     printf(" to %s", z_triple(z.class, z.inst, z.recipient));
319     if (*z.opcode)
320         printf(" op %s", z.opcode);
321     return;
322 }