external/bsd/tcpdump/dist/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 #include <sys/cdefs.h>
  24 #ifndef lint
  25 __RCSID("$NetBSD: print-zephyr.c,v 1.5 2014/11/20 03:05:03 christos Exp $");
  26 #endif
  27
  28 #define NETDISSECT_REWORKED
  29 #ifdef HAVE_CONFIG_H
  30 #include "config.h"
  31 #endif
  32
  33 #include <tcpdump-stdinc.h>
  34
  35 #include <stdio.h>
  36 #include <string.h>
  37 #include <stdlib.h>
  38
  39 #include "interface.h"
  40
  41 struct z_packet {
  42     char *version;
  43     int numfields;
  44     int kind;
  45     char *uid;
  46     int port;
  47     int auth;
  48     int authlen;
  49     char *authdata;
  50     char *class;
  51     char *inst;
  52     char *opcode;
  53     char *sender;
  54     const char *recipient;
  55     char *format;
  56     int cksum;
  57     int multi;
  58     char *multi_uid;
  59     /* Other fields follow here.. */
  60 };
  61
  62 enum z_packet_type {
  63     Z_PACKET_UNSAFE = 0,
  64     Z_PACKET_UNACKED,
  65     Z_PACKET_ACKED,
  66     Z_PACKET_HMACK,
  67     Z_PACKET_HMCTL,
  68     Z_PACKET_SERVACK,
  69     Z_PACKET_SERVNAK,
  70     Z_PACKET_CLIENTACK,
  71     Z_PACKET_STAT
  72 };
  73
  74 static const struct tok z_types[] = {
  75     { Z_PACKET_UNSAFE,          "unsafe" },
  76     { Z_PACKET_UNACKED,         "unacked" },
  77     { Z_PACKET_ACKED,           "acked" },
  78     { Z_PACKET_HMACK,           "hm-ack" },
  79     { Z_PACKET_HMCTL,           "hm-ctl" },
  80     { Z_PACKET_SERVACK,         "serv-ack" },
  81     { Z_PACKET_SERVNAK,         "serv-nak" },
  82     { Z_PACKET_CLIENTACK,       "client-ack" },
  83     { Z_PACKET_STAT,            "stat" }
  84 };
  85
  86 static char z_buf[256];
  87
  88 static char *
  89 parse_field(netdissect_options *ndo, char **pptr, int *len)
  90 {
  91     char *s;
  92
  93     if (*len <= 0 || !pptr || !*pptr)
  94         return NULL;
  95     if (*pptr > (char *) ndo->ndo_snapend)
  96         return NULL;
  97
  98     s = *pptr;
  99     while (*pptr <= (char *) ndo->ndo_snapend && *len >= 0 && **pptr) {
 100         (*pptr)++;
 101         (*len)--;
 102     }
 103     (*pptr)++;
 104     (*len)--;
 105     if (*len < 0 || *pptr > (char *) ndo->ndo_snapend)
 106         return NULL;
 107     return s;
 108 }
 109
 110 static const char *
 111 z_triple(char *class, char *inst, const char *recipient)
 112 {
 113     if (!*recipient)
 114         recipient = "*";
 115     snprintf(z_buf, sizeof(z_buf), "<%s,%s,%s>", class, inst, recipient);
 116     z_buf[sizeof(z_buf)-1] = '\0';
 117     return z_buf;
 118 }
 119
 120 static const char *
 121 str_to_lower(char *string)
 122 {
 123     strncpy(z_buf, string, sizeof(z_buf));
 124     z_buf[sizeof(z_buf)-1] = '\0';
 125
 126     string = z_buf;
 127     while (*string) {
 128         *string = tolower((unsigned char)(*string));
 129         string++;
 130     }
 131
 132     return z_buf;
 133 }
 134
 135 void
 136 zephyr_print(netdissect_options *ndo, const u_char *cp, int length)
 137 {
 138     struct z_packet z;
 139     char *parse = (char *) cp;
 140     int parselen = length;
 141     char *s;
 142     int lose = 0;
 143
 144     /* squelch compiler warnings */
 145
 146     z.kind = 0;
 147     z.class = 0;
 148     z.inst = 0;
 149     z.opcode = 0;
 150     z.sender = 0;
 151     z.recipient = 0;
 152
 153     memset(&z, 0, sizeof(z));   /* XXX gcc */
 154
 155 #define PARSE_STRING                            \
 156         s = parse_field(ndo, &parse, &parselen);        \
 157         if (!s) lose = 1;
 158
 159 #define PARSE_FIELD_INT(field)                  \
 160         PARSE_STRING                            \
 161         if (!lose) field = strtol(s, 0, 16);
 162
 163 #define PARSE_FIELD_STR(field)                  \
 164         PARSE_STRING                            \
 165         if (!lose) field = s;
 166
 167     PARSE_FIELD_STR(z.version);
 168     if (lose) return;
 169     if (strncmp(z.version, "ZEPH", 4))
 170         return;
 171
 172     PARSE_FIELD_INT(z.numfields);
 173     PARSE_FIELD_INT(z.kind);
 174     PARSE_FIELD_STR(z.uid);
 175     PARSE_FIELD_INT(z.port);
 176     PARSE_FIELD_INT(z.auth);
 177     PARSE_FIELD_INT(z.authlen);
 178     PARSE_FIELD_STR(z.authdata);
 179     PARSE_FIELD_STR(z.class);
 180     PARSE_FIELD_STR(z.inst);
 181     PARSE_FIELD_STR(z.opcode);
 182     PARSE_FIELD_STR(z.sender);
 183     PARSE_FIELD_STR(z.recipient);
 184     PARSE_FIELD_STR(z.format);
 185     PARSE_FIELD_INT(z.cksum);
 186     PARSE_FIELD_INT(z.multi);
 187     PARSE_FIELD_STR(z.multi_uid);
 188
 189     if (lose) {
 190         ND_PRINT((ndo, " [|zephyr] (%d)", length));
 191         return;
 192     }
 193
 194     ND_PRINT((ndo, " zephyr"));
 195     if (strncmp(z.version+4, "0.2", 3)) {
 196         ND_PRINT((ndo, " v%s", z.version+4));
 197         return;
 198     }
 199
 200     ND_PRINT((ndo, " %s", tok2str(z_types, "type %d", z.kind)));
 201     if (z.kind == Z_PACKET_SERVACK) {
 202         /* Initialization to silence warnings */
 203         char *ackdata = NULL;
 204         PARSE_FIELD_STR(ackdata);
 205         if (!lose && strcmp(ackdata, "SENT"))
 206             ND_PRINT((ndo, "/%s", str_to_lower(ackdata)));
 207     }
 208     if (*z.sender) ND_PRINT((ndo, " %s", z.sender));
 209
 210     if (!strcmp(z.class, "USER_LOCATE")) {
 211         if (!strcmp(z.opcode, "USER_HIDE"))
 212             ND_PRINT((ndo, " hide"));
 213         else if (!strcmp(z.opcode, "USER_UNHIDE"))
 214             ND_PRINT((ndo, " unhide"));
 215         else
 216             ND_PRINT((ndo, " locate %s", z.inst));
 217         return;
 218     }
 219
 220     if (!strcmp(z.class, "ZEPHYR_ADMIN")) {
 221         ND_PRINT((ndo, " zephyr-admin %s", str_to_lower(z.opcode)));
 222         return;
 223     }
 224
 225     if (!strcmp(z.class, "ZEPHYR_CTL")) {
 226         if (!strcmp(z.inst, "CLIENT")) {
 227             if (!strcmp(z.opcode, "SUBSCRIBE") ||
 228                 !strcmp(z.opcode, "SUBSCRIBE_NODEFS") ||
 229                 !strcmp(z.opcode, "UNSUBSCRIBE")) {
 230
 231                 ND_PRINT((ndo, " %ssub%s", strcmp(z.opcode, "SUBSCRIBE") ? "un" : "",
 232                                    strcmp(z.opcode, "SUBSCRIBE_NODEFS") ? "" :
 233                                                                    "-nodefs"));
 234                 if (z.kind != Z_PACKET_SERVACK) {
 235                     /* Initialization to silence warnings */
 236                     char *c = NULL, *i = NULL, *r = NULL;
 237                     PARSE_FIELD_STR(c);
 238                     PARSE_FIELD_STR(i);
 239                     PARSE_FIELD_STR(r);
 240                     if (!lose) ND_PRINT((ndo, " %s", z_triple(c, i, r)));
 241                 }
 242                 return;
 243             }
 244
 245             if (!strcmp(z.opcode, "GIMME")) {
 246                 ND_PRINT((ndo, " ret"));
 247                 return;
 248             }
 249
 250             if (!strcmp(z.opcode, "GIMMEDEFS")) {
 251                 ND_PRINT((ndo, " gimme-defs"));
 252                 return;
 253             }
 254
 255             if (!strcmp(z.opcode, "CLEARSUB")) {
 256                 ND_PRINT((ndo, " clear-subs"));
 257                 return;
 258             }
 259
 260             ND_PRINT((ndo, " %s", str_to_lower(z.opcode)));
 261             return;
 262         }
 263
 264         if (!strcmp(z.inst, "HM")) {
 265             ND_PRINT((ndo, " %s", str_to_lower(z.opcode)));
 266             return;
 267         }
 268
 269         if (!strcmp(z.inst, "REALM")) {
 270             if (!strcmp(z.opcode, "ADD_SUBSCRIBE"))
 271                 ND_PRINT((ndo, " realm add-subs"));
 272             if (!strcmp(z.opcode, "REQ_SUBSCRIBE"))
 273                 ND_PRINT((ndo, " realm req-subs"));
 274             if (!strcmp(z.opcode, "RLM_SUBSCRIBE"))
 275                 ND_PRINT((ndo, " realm rlm-sub"));
 276             if (!strcmp(z.opcode, "RLM_UNSUBSCRIBE"))
 277                 ND_PRINT((ndo, " realm rlm-unsub"));
 278             return;
 279         }
 280     }
 281
 282     if (!strcmp(z.class, "HM_CTL")) {
 283         ND_PRINT((ndo, " hm_ctl %s", str_to_lower(z.inst)));
 284         ND_PRINT((ndo, " %s", str_to_lower(z.opcode)));
 285         return;
 286     }
 287
 288     if (!strcmp(z.class, "HM_STAT")) {
 289         if (!strcmp(z.inst, "HMST_CLIENT") && !strcmp(z.opcode, "GIMMESTATS")) {
 290             ND_PRINT((ndo, " get-client-stats"));
 291             return;
 292         }
 293     }
 294
 295     if (!strcmp(z.class, "WG_CTL")) {
 296         ND_PRINT((ndo, " wg_ctl %s", str_to_lower(z.inst)));
 297         ND_PRINT((ndo, " %s", str_to_lower(z.opcode)));
 298         return;
 299     }
 300
 301     if (!strcmp(z.class, "LOGIN")) {
 302         if (!strcmp(z.opcode, "USER_FLUSH")) {
 303             ND_PRINT((ndo, " flush_locs"));
 304             return;
 305         }
 306
 307         if (!strcmp(z.opcode, "NONE") ||
 308             !strcmp(z.opcode, "OPSTAFF") ||
 309             !strcmp(z.opcode, "REALM-VISIBLE") ||
 310             !strcmp(z.opcode, "REALM-ANNOUNCED") ||
 311             !strcmp(z.opcode, "NET-VISIBLE") ||
 312             !strcmp(z.opcode, "NET-ANNOUNCED")) {
 313             ND_PRINT((ndo, " set-exposure %s", str_to_lower(z.opcode)));
 314             return;
 315         }
 316     }
 317
 318     if (!*z.recipient)
 319         z.recipient = "*";
 320
 321     ND_PRINT((ndo, " to %s", z_triple(z.class, z.inst, z.recipient)));
 322     if (*z.opcode)
 323         ND_PRINT((ndo, " op %s", z.opcode));
 324 }