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
24static 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
40struct 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
61enum 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
73static 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
85char z_buf[256];
86
87static char *
88parse_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
109static const char *
110z_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
119static const char *
120str_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
134void
135zephyr_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}
323