[dragonfly.git] / contrib / tcpdump / print-zephyr.c

/*
 * Decode and print Zephyr packets.
 *
 *	http://web.mit.edu/zephyr/doc/protocol
 *
 * Copyright (c) 2001 Nickolai Zeldovich <kolya@MIT.EDU>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that: (1) source code
 * distributions retain the above copyright notice and this paragraph
 * in its entirety, and (2) distributions including binary code include
 * the above copyright notice and this paragraph in its entirety in
 * the documentation or other materials provided with the distribution.
 * The name of the author(s) may not be used to endorse or promote
 * products derived from this software without specific prior written
 * permission.  THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE.
 */

#ifndef lint
static const char rcsid[] _U_ =
    "@(#) $Header: /tcpdump/master/tcpdump/print-zephyr.c,v 1.8.2.1 2005/04/21 06:51:24 guy Exp $";
#endif

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <tcpdump-stdinc.h>

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#include "interface.h"

struct z_packet {
    char *version;
    int numfields;
    int kind;
    char *uid;
    int port;
    int auth;
    int authlen;
    char *authdata;
    char *class;
    char *inst;
    char *opcode;
    char *sender;
    const char *recipient;
    char *format;
    int cksum;
    int multi;
    char *multi_uid;
    /* Other fields follow here.. */
};

enum z_packet_type {
    Z_PACKET_UNSAFE = 0,
    Z_PACKET_UNACKED,
    Z_PACKET_ACKED,
    Z_PACKET_HMACK,
    Z_PACKET_HMCTL,
    Z_PACKET_SERVACK,
    Z_PACKET_SERVNAK,
    Z_PACKET_CLIENTACK,
    Z_PACKET_STAT
};

static struct tok z_types[] = {
    { Z_PACKET_UNSAFE,		"unsafe" },
    { Z_PACKET_UNACKED,		"unacked" },
    { Z_PACKET_ACKED,		"acked" },
    { Z_PACKET_HMACK,		"hm-ack" },
    { Z_PACKET_HMCTL,		"hm-ctl" },
    { Z_PACKET_SERVACK,		"serv-ack" },
    { Z_PACKET_SERVNAK,		"serv-nak" },
    { Z_PACKET_CLIENTACK,	"client-ack" },
    { Z_PACKET_STAT,		"stat" }
};

char z_buf[256];

static char *
parse_field(char **pptr, int *len)
{
    char *s;

    if (*len <= 0 || !pptr || !*pptr)
	return NULL;
    if (*pptr > (char *) snapend)
	return NULL;

    s = *pptr;
    while (*pptr <= (char *) snapend && *len >= 0 && **pptr) {
	(*pptr)++;
	(*len)--;
    }
    (*pptr)++;
    (*len)--;
    if (*len < 0 || *pptr > (char *) snapend)
	return NULL;
    return s;
}

static const char *
z_triple(char *class, char *inst, const char *recipient)
{
    if (!*recipient)
	recipient = "*";
    snprintf(z_buf, sizeof(z_buf), "<%s,%s,%s>", class, inst, recipient);
    z_buf[sizeof(z_buf)-1] = '\0';
    return z_buf;
}

static const char *
str_to_lower(char *string)
{
    strncpy(z_buf, string, sizeof(z_buf));
    z_buf[sizeof(z_buf)-1] = '\0';

    string = z_buf;
    while (*string) {
	*string = tolower((unsigned char)(*string));
	string++;
    }

    return z_buf;
}

void
zephyr_print(const u_char *cp, int length)
{
    struct z_packet z;
    char *parse = (char *) cp;
    int parselen = length;
    char *s;
    int lose = 0;

#define PARSE_STRING				\
	s = parse_field(&parse, &parselen);	\
	if (!s) lose = 1;

#define PARSE_FIELD_INT(field)			\
	PARSE_STRING				\
	if (!lose) field = strtol(s, 0, 16);

#define PARSE_FIELD_STR(field)			\
	PARSE_STRING				\
	if (!lose) field = s;

    PARSE_FIELD_STR(z.version);
    if (lose) return;
    if (strncmp(z.version, "ZEPH", 4))
	return;

    PARSE_FIELD_INT(z.numfields);
    PARSE_FIELD_INT(z.kind);
    PARSE_FIELD_STR(z.uid);
    PARSE_FIELD_INT(z.port);
    PARSE_FIELD_INT(z.auth);
    PARSE_FIELD_INT(z.authlen);
    PARSE_FIELD_STR(z.authdata);
    PARSE_FIELD_STR(z.class);
    PARSE_FIELD_STR(z.inst);
    PARSE_FIELD_STR(z.opcode);
    PARSE_FIELD_STR(z.sender);
    PARSE_FIELD_STR(z.recipient);
    PARSE_FIELD_STR(z.format);
    PARSE_FIELD_INT(z.cksum);
    PARSE_FIELD_INT(z.multi);
    PARSE_FIELD_STR(z.multi_uid);

    if (lose) {
	printf(" [|zephyr] (%d)", length);
	return;
    }

    printf(" zephyr");
    if (strncmp(z.version+4, "0.2", 3)) {
	printf(" v%s", z.version+4);
	return;
    }

    printf(" %s", tok2str(z_types, "type %d", z.kind));
    if (z.kind == Z_PACKET_SERVACK) {
	/* Initialization to silence warnings */
	char *ackdata = NULL;
	PARSE_FIELD_STR(ackdata);
	if (!lose && strcmp(ackdata, "SENT"))
	    printf("/%s", str_to_lower(ackdata));
    }
    if (*z.sender) printf(" %s", z.sender);

    if (!strcmp(z.class, "USER_LOCATE")) {
	if (!strcmp(z.opcode, "USER_HIDE"))
	    printf(" hide");
	else if (!strcmp(z.opcode, "USER_UNHIDE"))
	    printf(" unhide");
	else
	    printf(" locate %s", z.inst);
	return;
    }

    if (!strcmp(z.class, "ZEPHYR_ADMIN")) {
	printf(" zephyr-admin %s", str_to_lower(z.opcode));
	return;
    }

    if (!strcmp(z.class, "ZEPHYR_CTL")) {
	if (!strcmp(z.inst, "CLIENT")) {
	    if (!strcmp(z.opcode, "SUBSCRIBE") ||
		!strcmp(z.opcode, "SUBSCRIBE_NODEFS") ||
		!strcmp(z.opcode, "UNSUBSCRIBE")) {

		printf(" %ssub%s", strcmp(z.opcode, "SUBSCRIBE") ? "un" : "",
				   strcmp(z.opcode, "SUBSCRIBE_NODEFS") ? "" :
								   "-nodefs");
		if (z.kind != Z_PACKET_SERVACK) {
		    /* Initialization to silence warnings */
		    char *c = NULL, *i = NULL, *r = NULL;
		    PARSE_FIELD_STR(c);
		    PARSE_FIELD_STR(i);
		    PARSE_FIELD_STR(r);
		    if (!lose) printf(" %s", z_triple(c, i, r));
		}
		return;
	    }

	    if (!strcmp(z.opcode, "GIMME")) {
		printf(" ret");
		return;
	    }

	    if (!strcmp(z.opcode, "GIMMEDEFS")) {
		printf(" gimme-defs");
		return;
	    }

	    if (!strcmp(z.opcode, "CLEARSUB")) {
		printf(" clear-subs");
		return;
	    }

	    printf(" %s", str_to_lower(z.opcode));
	    return;
	}

	if (!strcmp(z.inst, "HM")) {
	    printf(" %s", str_to_lower(z.opcode));
	    return;
	}

	if (!strcmp(z.inst, "REALM")) {
	    if (!strcmp(z.opcode, "ADD_SUBSCRIBE"))
		printf(" realm add-subs");
	    if (!strcmp(z.opcode, "REQ_SUBSCRIBE"))
		printf(" realm req-subs");
	    if (!strcmp(z.opcode, "RLM_SUBSCRIBE"))
		printf(" realm rlm-sub");
	    if (!strcmp(z.opcode, "RLM_UNSUBSCRIBE"))
		printf(" realm rlm-unsub");
	    return;
	}
    }

    if (!strcmp(z.class, "HM_CTL")) {
	printf(" hm_ctl %s", str_to_lower(z.inst));
	printf(" %s", str_to_lower(z.opcode));
	return;
    }

    if (!strcmp(z.class, "HM_STAT")) {
	if (!strcmp(z.inst, "HMST_CLIENT") && !strcmp(z.opcode, "GIMMESTATS")) {
	    printf(" get-client-stats");
	    return;
	}
    }

    if (!strcmp(z.class, "WG_CTL")) {
	printf(" wg_ctl %s", str_to_lower(z.inst));
	printf(" %s", str_to_lower(z.opcode));
	return;
    }

    if (!strcmp(z.class, "LOGIN")) {
	if (!strcmp(z.opcode, "USER_FLUSH")) {
	    printf(" flush_locs");
	    return;
	}

	if (!strcmp(z.opcode, "NONE") ||
	    !strcmp(z.opcode, "OPSTAFF") ||
	    !strcmp(z.opcode, "REALM-VISIBLE") ||
	    !strcmp(z.opcode, "REALM-ANNOUNCED") ||
	    !strcmp(z.opcode, "NET-VISIBLE") ||
	    !strcmp(z.opcode, "NET-ANNOUNCED")) {
	    printf(" set-exposure %s", str_to_lower(z.opcode));
	    return;
	}
    }

    if (!*z.recipient)
	z.recipient = "*";

    printf(" to %s", z_triple(z.class, z.inst, z.recipient));
    if (*z.opcode)
	printf(" op %s", z.opcode);
    return;
}
Commit	Line	Data
c8cf0f94 PA	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.8.2.1 2005/04/21 06:51:24 guy 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	#define PARSE_STRING \
144	s = parse_field(&parse, &parselen); \
145	if (!s) lose = 1;
146
147	#define PARSE_FIELD_INT(field) \
148	PARSE_STRING \
149	if (!lose) field = strtol(s, 0, 16);
150
151	#define PARSE_FIELD_STR(field) \
152	PARSE_STRING \
153	if (!lose) field = s;
154
155	PARSE_FIELD_STR(z.version);
156	if (lose) return;
157	if (strncmp(z.version, "ZEPH", 4))
158	return;
159
160	PARSE_FIELD_INT(z.numfields);
161	PARSE_FIELD_INT(z.kind);
162	PARSE_FIELD_STR(z.uid);
163	PARSE_FIELD_INT(z.port);
164	PARSE_FIELD_INT(z.auth);
165	PARSE_FIELD_INT(z.authlen);
166	PARSE_FIELD_STR(z.authdata);
167	PARSE_FIELD_STR(z.class);
168	PARSE_FIELD_STR(z.inst);
169	PARSE_FIELD_STR(z.opcode);
170	PARSE_FIELD_STR(z.sender);
171	PARSE_FIELD_STR(z.recipient);
172	PARSE_FIELD_STR(z.format);
173	PARSE_FIELD_INT(z.cksum);
174	PARSE_FIELD_INT(z.multi);
175	PARSE_FIELD_STR(z.multi_uid);
176
177	if (lose) {
178	printf(" [\|zephyr] (%d)", length);
179	return;
180	}
181
182	printf(" zephyr");
183	if (strncmp(z.version+4, "0.2", 3)) {
184	printf(" v%s", z.version+4);
185	return;
186	}
187
188	printf(" %s", tok2str(z_types, "type %d", z.kind));
189	if (z.kind == Z_PACKET_SERVACK) {
190	/* Initialization to silence warnings */
191	char *ackdata = NULL;
192	PARSE_FIELD_STR(ackdata);
193	if (!lose && strcmp(ackdata, "SENT"))
194	printf("/%s", str_to_lower(ackdata));
195	}
196	if (*z.sender) printf(" %s", z.sender);
197
198	if (!strcmp(z.class, "USER_LOCATE")) {
199	if (!strcmp(z.opcode, "USER_HIDE"))
200	printf(" hide");
201	else if (!strcmp(z.opcode, "USER_UNHIDE"))
202	printf(" unhide");
203	else
204	printf(" locate %s", z.inst);
205	return;
206	}
207
208	if (!strcmp(z.class, "ZEPHYR_ADMIN")) {
209	printf(" zephyr-admin %s", str_to_lower(z.opcode));
210	return;
211	}
212
213	if (!strcmp(z.class, "ZEPHYR_CTL")) {
214	if (!strcmp(z.inst, "CLIENT")) {
215	if (!strcmp(z.opcode, "SUBSCRIBE") \|\|
216	!strcmp(z.opcode, "SUBSCRIBE_NODEFS") \|\|
217	!strcmp(z.opcode, "UNSUBSCRIBE")) {
218
219	printf(" %ssub%s", strcmp(z.opcode, "SUBSCRIBE") ? "un" : "",
220	strcmp(z.opcode, "SUBSCRIBE_NODEFS") ? "" :
221	"-nodefs");
222	if (z.kind != Z_PACKET_SERVACK) {
223	/* Initialization to silence warnings */
224	char c = NULL, i = NULL, *r = NULL;
225	PARSE_FIELD_STR(c);
226	PARSE_FIELD_STR(i);
227	PARSE_FIELD_STR(r);
228	if (!lose) printf(" %s", z_triple(c, i, r));
229	}
230	return;
231	}
232
233	if (!strcmp(z.opcode, "GIMME")) {
234	printf(" ret");
235	return;
236	}
237
238	if (!strcmp(z.opcode, "GIMMEDEFS")) {
239	printf(" gimme-defs");
240	return;
241	}
242
243	if (!strcmp(z.opcode, "CLEARSUB")) {
244	printf(" clear-subs");
245	return;
246	}
247
248	printf(" %s", str_to_lower(z.opcode));
249	return;
250	}
251
252	if (!strcmp(z.inst, "HM")) {
253	printf(" %s", str_to_lower(z.opcode));
254	return;
255	}
256
257	if (!strcmp(z.inst, "REALM")) {
258	if (!strcmp(z.opcode, "ADD_SUBSCRIBE"))
259	printf(" realm add-subs");
260	if (!strcmp(z.opcode, "REQ_SUBSCRIBE"))
261	printf(" realm req-subs");
262	if (!strcmp(z.opcode, "RLM_SUBSCRIBE"))
263	printf(" realm rlm-sub");
264	if (!strcmp(z.opcode, "RLM_UNSUBSCRIBE"))
265	printf(" realm rlm-unsub");
266	return;
267	}
268	}
269
270	if (!strcmp(z.class, "HM_CTL")) {
271	printf(" hm_ctl %s", str_to_lower(z.inst));
272	printf(" %s", str_to_lower(z.opcode));
273	return;
274	}
275
276	if (!strcmp(z.class, "HM_STAT")) {
277	if (!strcmp(z.inst, "HMST_CLIENT") && !strcmp(z.opcode, "GIMMESTATS")) {
278	printf(" get-client-stats");
279	return;
280	}
281	}
282
283	if (!strcmp(z.class, "WG_CTL")) {
284	printf(" wg_ctl %s", str_to_lower(z.inst));
285	printf(" %s", str_to_lower(z.opcode));
286	return;
287	}
288
289	if (!strcmp(z.class, "LOGIN")) {
290	if (!strcmp(z.opcode, "USER_FLUSH")) {
291	printf(" flush_locs");
292	return;
293	}
294
295	if (!strcmp(z.opcode, "NONE") \|\|
296	!strcmp(z.opcode, "OPSTAFF") \|\|
297	!strcmp(z.opcode, "REALM-VISIBLE") \|\|
298	!strcmp(z.opcode, "REALM-ANNOUNCED") \|\|
299	!strcmp(z.opcode, "NET-VISIBLE") \|\|
300	!strcmp(z.opcode, "NET-ANNOUNCED")) {
301	printf(" set-exposure %s", str_to_lower(z.opcode));
302	return;
303	}
304	}
305
306	if (!*z.recipient)
307	z.recipient = "*";
308
309	printf(" to %s", z_triple(z.class, z.inst, z.recipient));
310	if (*z.opcode)
311	printf(" op %s", z.opcode);
312	return;
313	}