epan/dissectors/packet-asap.c

   1 /* packet-asap.c
   2  * Routines for Aggregate Server Access Protocol (ASAP)
   3  * It is hopefully (needs testing) compliant to
   4  * RFC 5352
   5  * RFC 5354
   6  * RFC 5356
   7  * http://www.ietf.org/internet-drafts/draft-dreibholz-asap-hropt-03.txt
   8  * http://www.ietf.org/internet-drafts/draft-dreibholz-rserpool-delay-02.txt
   9  *
  10  * The code is not as simple as possible for the current protocol
  11  * but allows to be easily adopted to future versions of the protocol.
  12  * I will reconsider this after the protocol is an RFC.
  13  *
  14  * TODO:
  15  *   - check message lengths
  16  *
  17  * Copyright 2004, 2005, 2006, 2007 Michael Tuexen <tuexen [AT] fh-muenster.de>
  18  * Copyright 2008 Thomas Dreibholz <dreibh [AT] iem.uni-due.de>
  19  *
  20  * $Id$
  21  *
  22  * Wireshark - Network traffic analyzer
  23  * By Gerald Combs <gerald@wireshark.org>
  24  * Copyright 1998 Gerald Combs
  25  *
  26  * Copied from README.developer
  27  *
  28  * This program is free software; you can redistribute it and/or
  29  * modify it under the terms of the GNU General Public License
  30  * as published by the Free Software Foundation; either version 2
  31  * of the License, or (at your option) any later version.
  32  *
  33  * This program is distributed in the hope that it will be useful,
  34  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  35  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  36  * GNU General Public License for more details.
  37  *
  38  * You should have received a copy of the GNU General Public License
  39  * along with this program; if not, write to the Free Software
  40  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  41  */
  42
  43 #ifdef HAVE_CONFIG_H
  44 # include "config.h"
  45 #endif
  46
  47 #include <epan/packet.h>
  48 #include <epan/sctpppids.h>
  49
  50 /* Initialize the protocol and registered fields */
  51 static int proto_asap = -1;
  52 static int hf_cause_code = -1;
  53 static int hf_cause_length = -1;
  54 static int hf_cause_info = -1;
  55 static int hf_cause_padding = -1;
  56 static int hf_message_type = -1;
  57 static int hf_message_flags = -1;
  58 static int hf_message_length = -1;
  59 static int hf_parameter_type = -1;
  60 static int hf_parameter_length = -1;
  61 static int hf_parameter_value = -1;
  62 static int hf_parameter_padding = -1;
  63 static int hf_parameter_ipv4_address = -1;
  64 static int hf_parameter_ipv6_address = -1;
  65 static int hf_dccp_port = -1;
  66 static int hf_dccp_reserved = -1;
  67 static int hf_dccp_service_code = -1;
  68 static int hf_sctp_port = -1;
  69 static int hf_transport_use = -1;
  70 static int hf_tcp_port = -1;
  71 static int hf_udp_port = -1;
  72 static int hf_udp_reserved = -1;
  73 static int hf_udp_lite_port = -1;
  74 static int hf_udp_lite_reserved = -1;
  75 static int hf_policy_type = -1;
  76 static int hf_policy_value = -1;
  77 static int hf_policy_weight = -1;
  78 static int hf_policy_priority = -1;
  79 static int hf_policy_load = -1;
  80 static int hf_policy_degradation = -1;
  81 static int hf_policy_loaddpf = -1;
  82 static int hf_policy_weightdpf = -1;
  83 static int hf_policy_distance = -1;
  84 static int hf_pool_handle = -1;
  85 static int hf_pe_pe_identifier = -1;
  86 static int hf_home_enrp_id = -1;
  87 static int hf_reg_life = -1;
  88 static int hf_server_identifier = -1;
  89 static int hf_cookie = -1;
  90 static int hf_pe_identifier = -1;
  91 static int hf_pe_checksum = -1;
  92 static int hf_hropt_items = -1;
  93 static int hf_home_enrp_server_bit = -1;
  94 static int hf_reject_bit = -1;
  95
  96 /* Initialize the subtree pointers */
  97 static gint ett_asap = -1;
  98 static gint ett_asap_parameter = -1;
  99 static gint ett_asap_cause = -1;
 100 static gint ett_asap_flags = -1;
 101
 102 static void
 103 dissect_parameters(tvbuff_t *, proto_tree *);
 104 static void
 105 dissect_parameter(tvbuff_t *, proto_tree *);
 106 static void
 107 dissect_asap(tvbuff_t *, packet_info *, proto_tree *);
 108
 109 #define ADD_PADDING(x) ((((x) + 3) >> 2) << 2)
 110
 111 #define ASAP_UDP_PORT 3863
 112 #define ASAP_TCP_PORT 3863
 113 #define ASAP_SCTP_PORT 3863
 114
 115 /* Dissectors for error causes. This is common for ASAP and ENRP. */
 116
 117 #define CAUSE_CODE_LENGTH   2
 118 #define CAUSE_LENGTH_LENGTH 2
 119 #define CAUSE_HEADER_LENGTH (CAUSE_CODE_LENGTH + CAUSE_LENGTH_LENGTH)
 120
 121 #define CAUSE_HEADER_OFFSET 0
 122 #define CAUSE_CODE_OFFSET   CAUSE_HEADER_OFFSET
 123 #define CAUSE_LENGTH_OFFSET (CAUSE_CODE_OFFSET + CAUSE_CODE_LENGTH)
 124 #define CAUSE_INFO_OFFSET   (CAUSE_LENGTH_OFFSET + CAUSE_LENGTH_LENGTH)
 125
 126 static void
 127 dissect_unknown_cause(tvbuff_t *cause_tvb, proto_tree *cause_tree, proto_item *cause_item)
 128 {
 129   guint16 code, length, cause_info_length;
 130
 131   code              = tvb_get_ntohs(cause_tvb, CAUSE_CODE_OFFSET);
 132   length            = tvb_get_ntohs(cause_tvb, CAUSE_LENGTH_OFFSET);
 133   cause_info_length = length - CAUSE_HEADER_LENGTH;
 134   if (cause_info_length > 0)
 135     proto_tree_add_item(cause_tree, hf_cause_info, cause_tvb, CAUSE_INFO_OFFSET, cause_info_length, ENC_NA);
 136   proto_item_append_text(cause_item, " (code %u and %u byte%s information)", code, cause_info_length, plurality(cause_info_length, "", "s"));
 137 }
 138
 139 #define UNRECOGNIZED_PARAMETER_CAUSE_CODE                  0x1
 140 #define UNRECONGNIZED_MESSAGE_CAUSE_CODE                   0x2
 141 #define INVALID_VALUES                                     0x3
 142 #define NON_UNIQUE_PE_IDENTIFIER                           0x4
 143 #define POOLING_POLICY_INCONSISTENT_CAUSE_CODE             0x5
 144 #define LACK_OF_RESOURCES_CAUSE_CODE                       0x6
 145 #define INCONSISTENT_TRANSPORT_TYPE_CAUSE_CODE             0x7
 146 #define INCONSISTENT_DATA_CONTROL_CONFIGURATION_CAUSE_CODE 0x8
 147 #define UNKNOWN_POOL_HANDLE                                0x9
 148 #define REJECTION_DUE_TO_SECURITY_CAUSE_CODE               0xa
 149
 150 static const value_string cause_code_values[] = {
 151   { UNRECOGNIZED_PARAMETER_CAUSE_CODE,                  "Unrecognized parameter"                  },
 152   { UNRECONGNIZED_MESSAGE_CAUSE_CODE,                   "Unrecognized message"                    },
 153   { INVALID_VALUES,                                     "Invalid values"                          },
 154   { NON_UNIQUE_PE_IDENTIFIER,                           "Non-unique PE identifier"                },
 155   { POOLING_POLICY_INCONSISTENT_CAUSE_CODE,             "Pooling policy inconsistent"             },
 156   { LACK_OF_RESOURCES_CAUSE_CODE,                       "Lack of resources"                       },
 157   { INCONSISTENT_TRANSPORT_TYPE_CAUSE_CODE,             "Inconsistent transport type"             },
 158   { INCONSISTENT_DATA_CONTROL_CONFIGURATION_CAUSE_CODE, "Inconsistent data/control type"          },
 159   { UNKNOWN_POOL_HANDLE,                                "Unknown pool handle"                     },
 160   { REJECTION_DUE_TO_SECURITY_CAUSE_CODE,               "Rejected due to security considerations" },
 161   { 0,                                                  NULL                                      } };
 162
 163 static void
 164 dissect_error_cause(tvbuff_t *cause_tvb, proto_tree *parameter_tree)
 165 {
 166   guint16 code, length, padding_length;
 167   proto_item *cause_item;
 168   proto_tree *cause_tree;
 169   tvbuff_t *parameter_tvb, *message_tvb;
 170
 171   code           = tvb_get_ntohs(cause_tvb, CAUSE_CODE_OFFSET);
 172   length         = tvb_get_ntohs(cause_tvb, CAUSE_LENGTH_OFFSET);
 173   padding_length = tvb_length(cause_tvb) - length;
 174
 175   cause_item = proto_tree_add_text(parameter_tree, cause_tvb, CAUSE_HEADER_OFFSET, tvb_length(cause_tvb), "%s", val_to_str(code, cause_code_values, "Unknown error cause"));
 176   cause_tree = proto_item_add_subtree(cause_item, ett_asap_cause);
 177
 178   proto_tree_add_item(cause_tree, hf_cause_code,   cause_tvb, CAUSE_CODE_OFFSET,   CAUSE_CODE_LENGTH,   ENC_BIG_ENDIAN);
 179   proto_tree_add_item(cause_tree, hf_cause_length, cause_tvb, CAUSE_LENGTH_OFFSET, CAUSE_LENGTH_LENGTH, ENC_BIG_ENDIAN);
 180
 181   switch(code) {
 182   case UNRECOGNIZED_PARAMETER_CAUSE_CODE:
 183     parameter_tvb = tvb_new_subset_remaining(cause_tvb, CAUSE_INFO_OFFSET);
 184     dissect_parameter(parameter_tvb, cause_tree);
 185     break;
 186   case UNRECONGNIZED_MESSAGE_CAUSE_CODE:
 187     message_tvb = tvb_new_subset_remaining(cause_tvb, CAUSE_INFO_OFFSET);
 188     dissect_asap(message_tvb, NULL, cause_tree);
 189     break;
 190     break;
 191   case INVALID_VALUES:
 192     parameter_tvb = tvb_new_subset_remaining(cause_tvb, CAUSE_INFO_OFFSET);
 193     dissect_parameter(parameter_tvb, cause_tree);
 194     break;
 195   case NON_UNIQUE_PE_IDENTIFIER:
 196     break;
 197   case POOLING_POLICY_INCONSISTENT_CAUSE_CODE:
 198     parameter_tvb = tvb_new_subset_remaining(cause_tvb, CAUSE_INFO_OFFSET);
 199     dissect_parameter(parameter_tvb, cause_tree);
 200     break;
 201   case LACK_OF_RESOURCES_CAUSE_CODE:
 202     break;
 203   case INCONSISTENT_TRANSPORT_TYPE_CAUSE_CODE:
 204     parameter_tvb = tvb_new_subset_remaining(cause_tvb, CAUSE_INFO_OFFSET);
 205     dissect_parameter(parameter_tvb, cause_tree);
 206     break;
 207   case INCONSISTENT_DATA_CONTROL_CONFIGURATION_CAUSE_CODE:
 208     break;
 209   case UNKNOWN_POOL_HANDLE:
 210     break;
 211   case REJECTION_DUE_TO_SECURITY_CAUSE_CODE:
 212     break;
 213   default:
 214     dissect_unknown_cause(cause_tvb, cause_tree, cause_item);
 215     break;
 216   }
 217   if (padding_length > 0)
 218     proto_tree_add_item(cause_tree, hf_cause_padding, cause_tvb, CAUSE_HEADER_OFFSET + length, padding_length, ENC_BIG_ENDIAN);
 219 }
 220
 221 static void
 222 dissect_error_causes(tvbuff_t *error_causes_tvb, proto_tree *parameter_tree)
 223 {
 224   guint16 length, total_length;
 225   gint offset;
 226   tvbuff_t *error_cause_tvb;
 227
 228   offset = 0;
 229   while(tvb_reported_length_remaining(error_causes_tvb, offset)) {
 230     length          = tvb_get_ntohs(error_causes_tvb, offset + CAUSE_LENGTH_OFFSET);
 231     total_length    = ADD_PADDING(length);
 232     error_cause_tvb = tvb_new_subset(error_causes_tvb, offset , total_length, total_length);
 233     dissect_error_cause(error_cause_tvb, parameter_tree);
 234     offset += total_length;
 235   }
 236 }
 237
 238 /* Dissectors for parameters. This is common for ASAP and ENRP. */
 239
 240 #define PARAMETER_TYPE_LENGTH   2
 241 #define PARAMETER_LENGTH_LENGTH 2
 242 #define PARAMETER_HEADER_LENGTH (PARAMETER_TYPE_LENGTH + PARAMETER_LENGTH_LENGTH)
 243
 244 #define PARAMETER_HEADER_OFFSET 0
 245 #define PARAMETER_TYPE_OFFSET   PARAMETER_HEADER_OFFSET
 246 #define PARAMETER_LENGTH_OFFSET (PARAMETER_TYPE_OFFSET + PARAMETER_TYPE_LENGTH)
 247 #define PARAMETER_VALUE_OFFSET  (PARAMETER_LENGTH_OFFSET + PARAMETER_LENGTH_LENGTH)
 248
 249 #define IPV4_ADDRESS_LENGTH 4
 250 #define IPV4_ADDRESS_OFFSET PARAMETER_VALUE_OFFSET
 251
 252 static void
 253 dissect_ipv4_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree, proto_item *parameter_item)
 254 {
 255   proto_tree_add_item(parameter_tree, hf_parameter_ipv4_address, parameter_tvb, IPV4_ADDRESS_OFFSET, IPV4_ADDRESS_LENGTH, ENC_BIG_ENDIAN);
 256   proto_item_append_text(parameter_item, " (%s)", tvb_ip_to_str(parameter_tvb, IPV4_ADDRESS_OFFSET));
 257 }
 258
 259 #define IPV6_ADDRESS_LENGTH 16
 260 #define IPV6_ADDRESS_OFFSET PARAMETER_VALUE_OFFSET
 261
 262 static void
 263 dissect_ipv6_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree, proto_item *parameter_item)
 264 {
 265   proto_tree_add_item(parameter_tree, hf_parameter_ipv6_address, parameter_tvb, IPV6_ADDRESS_OFFSET, IPV6_ADDRESS_LENGTH, ENC_BIG_ENDIAN);
 266   proto_item_append_text(parameter_item, " (%s)", tvb_ip6_to_str(parameter_tvb, IPV6_ADDRESS_OFFSET));
 267 }
 268
 269 #define DCCP_PORT_LENGTH         2
 270 #define DCCP_RESERVED_LENGTH     2
 271 #define DCCP_SERVICE_CODE_LENGTH 4
 272 #define DCCP_PORT_OFFSET         PARAMETER_VALUE_OFFSET
 273 #define DCCP_RESERVED_OFFSET     (DCCP_PORT_OFFSET + DCCP_PORT_LENGTH)
 274 #define DCCP_SERVICE_CODE_OFFSET (DCCP_RESERVED_OFFSET + DCCP_RESERVED_LENGTH)
 275 #define DCCP_ADDRESS_OFFSET      (DCCP_SERVICE_CODE_OFFSET + DCCP_SERVICE_CODE_LENGTH)
 276
 277 static void
 278 dissect_dccp_transport_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 279 {
 280   tvbuff_t *parameters_tvb;
 281
 282   proto_tree_add_item(parameter_tree, hf_dccp_port,         parameter_tvb, DCCP_PORT_OFFSET,         DCCP_PORT_LENGTH,         ENC_BIG_ENDIAN);
 283   proto_tree_add_item(parameter_tree, hf_dccp_reserved,     parameter_tvb, DCCP_RESERVED_OFFSET,     DCCP_RESERVED_LENGTH,     ENC_BIG_ENDIAN);
 284   proto_tree_add_item(parameter_tree, hf_dccp_service_code, parameter_tvb, DCCP_SERVICE_CODE_OFFSET, DCCP_SERVICE_CODE_LENGTH, ENC_BIG_ENDIAN);
 285
 286   parameters_tvb = tvb_new_subset_remaining(parameter_tvb, DCCP_ADDRESS_OFFSET);
 287   dissect_parameters(parameters_tvb, parameter_tree);
 288 }
 289
 290 #define TRANSPORT_USE_DATA_ONLY         0
 291 #define TRANSPORT_USE_DATA_PLUS_CONTROL 1
 292
 293 static const value_string transport_use_values[] = {
 294   { TRANSPORT_USE_DATA_ONLY,          "Data only"         },
 295   { TRANSPORT_USE_DATA_PLUS_CONTROL,  "Data plus control" },
 296   { 0,                                NULL                } };
 297
 298 #define SCTP_PORT_LENGTH          2
 299 #define SCTP_TRANSPORT_USE_LENGTH 2
 300 #define SCTP_PORT_OFFSET          PARAMETER_VALUE_OFFSET
 301 #define SCTP_TRANSPORT_USE_OFFSET (SCTP_PORT_OFFSET + SCTP_PORT_LENGTH)
 302 #define SCTP_ADDRESS_OFFSET       (SCTP_TRANSPORT_USE_OFFSET + SCTP_TRANSPORT_USE_LENGTH)
 303
 304 static void
 305 dissect_sctp_transport_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 306 {
 307   tvbuff_t *parameters_tvb;
 308
 309   proto_tree_add_item(parameter_tree, hf_sctp_port,     parameter_tvb, SCTP_PORT_OFFSET,          SCTP_PORT_LENGTH,          ENC_BIG_ENDIAN);
 310   proto_tree_add_item(parameter_tree, hf_transport_use, parameter_tvb, SCTP_TRANSPORT_USE_OFFSET, SCTP_TRANSPORT_USE_LENGTH, ENC_BIG_ENDIAN);
 311
 312   parameters_tvb = tvb_new_subset_remaining(parameter_tvb, SCTP_ADDRESS_OFFSET);
 313   dissect_parameters(parameters_tvb, parameter_tree);
 314 }
 315
 316 #define TCP_PORT_LENGTH          2
 317 #define TCP_TRANSPORT_USE_LENGTH 2
 318 #define TCP_PORT_OFFSET          PARAMETER_VALUE_OFFSET
 319 #define TCP_TRANSPORT_USE_OFFSET (TCP_PORT_OFFSET + TCP_PORT_LENGTH)
 320 #define TCP_ADDRESS_OFFSET       (TCP_TRANSPORT_USE_OFFSET + TCP_TRANSPORT_USE_LENGTH)
 321
 322 static void
 323 dissect_tcp_transport_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 324 {
 325   tvbuff_t *parameters_tvb;
 326
 327   proto_tree_add_item(parameter_tree, hf_tcp_port,      parameter_tvb, TCP_PORT_OFFSET,          TCP_PORT_LENGTH,          ENC_BIG_ENDIAN);
 328   proto_tree_add_item(parameter_tree, hf_transport_use, parameter_tvb, TCP_TRANSPORT_USE_OFFSET, TCP_TRANSPORT_USE_LENGTH, ENC_BIG_ENDIAN);
 329
 330   parameters_tvb = tvb_new_subset_remaining(parameter_tvb, TCP_ADDRESS_OFFSET);
 331   dissect_parameters(parameters_tvb, parameter_tree);
 332 }
 333
 334 #define UDP_PORT_LENGTH     2
 335 #define UDP_RESERVED_LENGTH 2
 336 #define UDP_PORT_OFFSET     PARAMETER_VALUE_OFFSET
 337 #define UDP_RESERVED_OFFSET (UDP_PORT_OFFSET + UDP_PORT_LENGTH)
 338 #define UDP_ADDRESS_OFFSET  (UDP_RESERVED_OFFSET + UDP_RESERVED_LENGTH)
 339
 340 static void
 341 dissect_udp_transport_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 342 {
 343   tvbuff_t *parameters_tvb;
 344
 345   proto_tree_add_item(parameter_tree, hf_udp_port,     parameter_tvb, UDP_PORT_OFFSET,     UDP_PORT_LENGTH,     ENC_BIG_ENDIAN);
 346   proto_tree_add_item(parameter_tree, hf_udp_reserved, parameter_tvb, UDP_RESERVED_OFFSET, UDP_RESERVED_LENGTH, ENC_BIG_ENDIAN);
 347
 348   parameters_tvb = tvb_new_subset_remaining(parameter_tvb, UDP_ADDRESS_OFFSET);
 349   dissect_parameters(parameters_tvb, parameter_tree);
 350 }
 351
 352 #define UDP_LITE_PORT_LENGTH     2
 353 #define UDP_LITE_RESERVED_LENGTH 2
 354 #define UDP_LITE_PORT_OFFSET     PARAMETER_VALUE_OFFSET
 355 #define UDP_LITE_RESERVED_OFFSET (UDP_LITE_PORT_OFFSET + UDP_LITE_PORT_LENGTH)
 356 #define UDP_LITE_ADDRESS_OFFSET  (UDP_LITE_RESERVED_OFFSET + UDP_LITE_RESERVED_LENGTH)
 357
 358 static void
 359 dissect_udp_lite_transport_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 360 {
 361   tvbuff_t *parameters_tvb;
 362
 363   proto_tree_add_item(parameter_tree, hf_udp_lite_port,     parameter_tvb, UDP_LITE_PORT_OFFSET,     UDP_LITE_PORT_LENGTH,     ENC_BIG_ENDIAN);
 364   proto_tree_add_item(parameter_tree, hf_udp_lite_reserved, parameter_tvb, UDP_LITE_RESERVED_OFFSET, UDP_LITE_RESERVED_LENGTH, ENC_BIG_ENDIAN);
 365
 366   parameters_tvb = tvb_new_subset_remaining(parameter_tvb, UDP_LITE_ADDRESS_OFFSET);
 367   dissect_parameters(parameters_tvb, parameter_tree);
 368 }
 369
 370 #define POLICY_TYPE_LENGTH               4
 371 #define POLICY_WEIGHT_LENGTH             4
 372 #define POLICY_PRIORITY_LENGTH           4
 373 #define POLICY_LOAD_LENGTH               4
 374 #define POLICY_DEGRADATION_LENGTH        4
 375 #define POLICY_LUDPF_LOADDPF_LENGTH      4
 376 #define POLICY_LUDPF_DISTANCE_LENGTH     4
 377 #define POLICY_WRANDDPF_WEIGHTDPF_LENGTH 4
 378 #define POLICY_WRANDDPF_DISTANCE_LENGTH  4
 379
 380 #define POLICY_TYPE_OFFSET        PARAMETER_VALUE_OFFSET
 381 #define POLICY_VALUE_OFFSET       (POLICY_TYPE_OFFSET + POLICY_TYPE_LENGTH)
 382 #define POLICY_WEIGHT_OFFSET      POLICY_VALUE_OFFSET
 383 #define POLICY_PRIORITY_OFFSET    POLICY_VALUE_OFFSET
 384 #define POLICY_LOAD_OFFSET        POLICY_VALUE_OFFSET
 385 #define POLICY_DEGRADATION_OFFSET (POLICY_LOAD_OFFSET + POLICY_LOAD_LENGTH)
 386
 387 #define POLICY_LUDPF_LOADDPF_OFFSET      (POLICY_LOAD_OFFSET + POLICY_LOAD_LENGTH)
 388 #define POLICY_LUDPF_DISTANCE_OFFSET     (POLICY_LUDPF_LOADDPF_OFFSET + POLICY_LUDPF_LOADDPF_LENGTH)
 389 #define POLICY_WRANDDPF_WEIGHTDPF_OFFSET (POLICY_WEIGHT_OFFSET + POLICY_WEIGHT_LENGTH)
 390 #define POLICY_WRANDDPF_DISTANCE_OFFSET  (POLICY_WRANDDPF_WEIGHTDPF_OFFSET + POLICY_WRANDDPF_WEIGHTDPF_LENGTH)
 391
 392
 393 #define ROUND_ROBIN_POLICY           0x00000001
 394 #define WEIGHTED_ROUND_ROBIN_POLICY  0x00000002
 395 #define RANDOM_POLICY                0x00000003
 396 #define WEIGHTED_RANDOM_POLICY       0x00000004
 397 #define PRIORITY_POLICY              0x00000005
 398 #define LEAST_USED_POLICY            0x40000001
 399 #define LEAST_USED_WITH_DEG_POLICY   0x40000002
 400 #define PRIORITY_LEAST_USED_POLICY   0x40000003
 401 #define RANDOMIZED_LEAST_USED_POLICY 0x40000004
 402
 403 #define PRIORITY_LEAST_USED_DEG_POLICY 0xb0001003
 404 #define WEIGHTED_RANDOM_DPF_POLICY     0xb0002001
 405 #define LEAST_USED_DPF_POLICY          0xb0002002
 406
 407 static const value_string policy_type_values[] = {
 408   { ROUND_ROBIN_POLICY,             "Round Robin (RR)" },
 409   { WEIGHTED_ROUND_ROBIN_POLICY,    "Weighted Round Robin (WRR)" },
 410   { RANDOM_POLICY,                  "Random (RAND)"},
 411   { WEIGHTED_RANDOM_POLICY,         "Weighted Random (WRAND)" },
 412   { PRIORITY_POLICY,                "Priority (PRI)" },
 413   { LEAST_USED_POLICY,              "Least Used (LU)" },
 414   { LEAST_USED_WITH_DEG_POLICY,     "Least Used with Degradation (LUD)" },
 415   { PRIORITY_LEAST_USED_POLICY,     "Priority Least Used (PLU)" },
 416   { PRIORITY_LEAST_USED_DEG_POLICY, "Priority Least Used with Degradation (PLUD)" },
 417   { RANDOMIZED_LEAST_USED_POLICY,   "Randomized Least Used (RLU)" },
 418   { LEAST_USED_DPF_POLICY,          "Least Used with Delay Penalty Factor (LU-DPF)" },
 419   { WEIGHTED_RANDOM_DPF_POLICY,     "Weighted Random with Delay Penalty Factor (WRAND-DPF)" },
 420   { 0,                              NULL } };
 421
 422 static void
 423 dissect_pool_member_selection_policy_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 424 {
 425   guint32 type;
 426   guint   length;
 427
 428   proto_tree_add_item(parameter_tree, hf_policy_type,  parameter_tvb, POLICY_TYPE_OFFSET,  POLICY_TYPE_LENGTH,  ENC_BIG_ENDIAN);
 429   type = tvb_get_ntohl(parameter_tvb, POLICY_TYPE_OFFSET);
 430   switch (type) {
 431   case RANDOM_POLICY:
 432   case ROUND_ROBIN_POLICY:
 433     break;
 434   case WEIGHTED_RANDOM_POLICY:
 435   case WEIGHTED_ROUND_ROBIN_POLICY:
 436     proto_tree_add_item(parameter_tree, hf_policy_weight, parameter_tvb, POLICY_WEIGHT_OFFSET, POLICY_WEIGHT_LENGTH, ENC_BIG_ENDIAN);
 437     break;
 438   case PRIORITY_POLICY:
 439     proto_tree_add_item(parameter_tree, hf_policy_priority, parameter_tvb, POLICY_PRIORITY_OFFSET, POLICY_PRIORITY_LENGTH, ENC_BIG_ENDIAN);
 440     break;
 441   case LEAST_USED_POLICY:
 442   case RANDOMIZED_LEAST_USED_POLICY:
 443     proto_tree_add_double_format_value(parameter_tree, hf_policy_load, parameter_tvb, POLICY_LOAD_OFFSET, POLICY_LOAD_LENGTH,
 444                                        100.0 * tvb_get_ntohl(parameter_tvb, POLICY_LOAD_OFFSET) / (double)0xffffffff, "%1.2f%%",
 445                                        100.0 * tvb_get_ntohl(parameter_tvb, POLICY_LOAD_OFFSET) / (double)0xffffffff);
 446     break;
 447   case LEAST_USED_WITH_DEG_POLICY:
 448   case PRIORITY_LEAST_USED_POLICY:
 449     proto_tree_add_double_format_value(parameter_tree, hf_policy_load, parameter_tvb, POLICY_LOAD_OFFSET, POLICY_LOAD_LENGTH,
 450                                        100.0 * tvb_get_ntohl(parameter_tvb, POLICY_LOAD_OFFSET) / (double)0xffffffff, "%1.2f%%",
 451                                        100.0 * tvb_get_ntohl(parameter_tvb, POLICY_LOAD_OFFSET) / (double)0xffffffff);
 452     proto_tree_add_double_format_value(parameter_tree, hf_policy_degradation, parameter_tvb, POLICY_DEGRADATION_OFFSET, POLICY_DEGRADATION_LENGTH,
 453                                        100.0 * tvb_get_ntohl(parameter_tvb, POLICY_DEGRADATION_OFFSET) / (double)0xffffffff, "%1.2f%%",
 454                                        100.0 * tvb_get_ntohl(parameter_tvb, POLICY_DEGRADATION_OFFSET) / (double)0xffffffff);
 455     break;
 456   case LEAST_USED_DPF_POLICY:
 457     proto_tree_add_double_format_value(parameter_tree, hf_policy_load, parameter_tvb, POLICY_LOAD_OFFSET, POLICY_LOAD_LENGTH,
 458                                       100.0 * tvb_get_ntohl(parameter_tvb, POLICY_LOAD_OFFSET) / (double)0xffffffff, "%1.2f%%",
 459                                       100.0 * tvb_get_ntohl(parameter_tvb, POLICY_LOAD_OFFSET) / (double)0xffffffff);
 460     proto_tree_add_double_format_value(parameter_tree, hf_policy_loaddpf, parameter_tvb, POLICY_LUDPF_LOADDPF_OFFSET, POLICY_LUDPF_LOADDPF_LENGTH,
 461                                       tvb_get_ntohl(parameter_tvb, POLICY_LUDPF_LOADDPF_OFFSET) / (double)0xffffffff, "%1.5f",
 462                                       tvb_get_ntohl(parameter_tvb, POLICY_LUDPF_LOADDPF_OFFSET) / (double)0xffffffff);
 463     proto_tree_add_item(parameter_tree, hf_policy_distance, parameter_tvb, POLICY_LUDPF_DISTANCE_OFFSET, POLICY_LUDPF_DISTANCE_LENGTH, ENC_BIG_ENDIAN);
 464     break;
 465   case WEIGHTED_RANDOM_DPF_POLICY:
 466     proto_tree_add_item(parameter_tree, hf_policy_weight, parameter_tvb, POLICY_WEIGHT_OFFSET, POLICY_WEIGHT_LENGTH, ENC_BIG_ENDIAN);
 467     proto_tree_add_double_format_value(parameter_tree, hf_policy_weightdpf, parameter_tvb, POLICY_WRANDDPF_WEIGHTDPF_OFFSET, POLICY_WRANDDPF_WEIGHTDPF_LENGTH,
 468                                        tvb_get_ntohl(parameter_tvb, POLICY_WRANDDPF_WEIGHTDPF_OFFSET) / (double)0xffffffff, "%1.5f",
 469                                        tvb_get_ntohl(parameter_tvb, POLICY_WRANDDPF_WEIGHTDPF_OFFSET) / (double)0xffffffff);
 470     proto_tree_add_item(parameter_tree, hf_policy_distance, parameter_tvb, POLICY_WRANDDPF_DISTANCE_OFFSET, POLICY_WRANDDPF_DISTANCE_LENGTH, ENC_BIG_ENDIAN);
 471     break;
 472   default:
 473     length = tvb_length(parameter_tvb) - POLICY_VALUE_OFFSET;
 474     if (length > 0) {
 475       proto_tree_add_item(parameter_tree, hf_policy_value, parameter_tvb, POLICY_VALUE_OFFSET, length, ENC_NA);
 476     }
 477     break;
 478   }
 479 }
 480
 481 #define POOL_HANDLE_OFFSET PARAMETER_VALUE_OFFSET
 482
 483 static void
 484 dissect_pool_handle_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 485 {
 486   guint16 handle_length;
 487   proto_item*    pi;
 488   char*          tmp;
 489
 490   handle_length = tvb_get_ntohs(parameter_tvb, PARAMETER_LENGTH_OFFSET) - PARAMETER_HEADER_LENGTH;
 491   pi = proto_tree_add_item(parameter_tree, hf_pool_handle, parameter_tvb, POOL_HANDLE_OFFSET, handle_length, ENC_BIG_ENDIAN);
 492
 493   tmp = (gchar*)tvb_get_ephemeral_string(parameter_tvb, POOL_HANDLE_OFFSET, handle_length);
 494   proto_item_append_text(pi, " (%s)", tmp);
 495 }
 496
 497 #define PE_PE_IDENTIFIER_LENGTH         4
 498 #define HOME_ENRP_INDENTIFIER_LENGTH    4
 499 #define REGISTRATION_LIFE_LENGTH        4
 500
 501 #define PE_PE_IDENTIFIER_OFFSET         PARAMETER_VALUE_OFFSET
 502 #define HOME_ENRP_INDENTIFIER_OFFSET    (PE_PE_IDENTIFIER_OFFSET + PE_PE_IDENTIFIER_LENGTH)
 503 #define REGISTRATION_LIFE_OFFSET        (HOME_ENRP_INDENTIFIER_OFFSET + HOME_ENRP_INDENTIFIER_LENGTH)
 504 #define USER_TRANSPORT_PARAMETER_OFFSET (REGISTRATION_LIFE_OFFSET + REGISTRATION_LIFE_LENGTH)
 505
 506 static void
 507 dissect_pool_element_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 508 {
 509   tvbuff_t*   parameters_tvb;
 510   proto_item* pi;
 511
 512   proto_tree_add_item(parameter_tree, hf_pe_pe_identifier, parameter_tvb, PE_PE_IDENTIFIER_OFFSET,      PE_PE_IDENTIFIER_LENGTH,      ENC_BIG_ENDIAN);
 513   proto_tree_add_item(parameter_tree, hf_home_enrp_id,     parameter_tvb, HOME_ENRP_INDENTIFIER_OFFSET, HOME_ENRP_INDENTIFIER_LENGTH, ENC_BIG_ENDIAN);
 514   pi = proto_tree_add_item(parameter_tree, hf_reg_life,    parameter_tvb, REGISTRATION_LIFE_OFFSET,     REGISTRATION_LIFE_LENGTH,     ENC_BIG_ENDIAN);
 515   proto_item_append_text(pi, "ms");
 516
 517   parameters_tvb = tvb_new_subset_remaining(parameter_tvb, USER_TRANSPORT_PARAMETER_OFFSET);
 518   dissect_parameters(parameters_tvb, parameter_tree);
 519 }
 520
 521 #define SERVER_ID_LENGTH         4
 522 #define SERVER_ID_OFFSET         PARAMETER_VALUE_OFFSET
 523 #define SERVER_TRANSPORT_OFFSET  (SERVER_ID_OFFSET + SERVER_ID_LENGTH)
 524
 525 static void
 526 dissect_server_information_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 527 {
 528   tvbuff_t *parameters_tvb;
 529
 530   proto_tree_add_item(parameter_tree, hf_server_identifier, parameter_tvb, SERVER_ID_OFFSET, SERVER_ID_LENGTH, ENC_BIG_ENDIAN);
 531
 532   parameters_tvb = tvb_new_subset_remaining(parameter_tvb, SERVER_TRANSPORT_OFFSET);
 533   dissect_parameters(parameters_tvb, parameter_tree);
 534 }
 535
 536 #define ERROR_CAUSES_OFFSET PARAMETER_VALUE_OFFSET
 537
 538 static void
 539 dissect_operation_error_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 540 {
 541   tvbuff_t *error_causes_tvb;
 542
 543   error_causes_tvb = tvb_new_subset_remaining(parameter_tvb, ERROR_CAUSES_OFFSET);
 544   dissect_error_causes(error_causes_tvb, parameter_tree);
 545 }
 546
 547 #define COOKIE_OFFSET PARAMETER_VALUE_OFFSET
 548
 549 static void
 550 dissect_cookie_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree, proto_item *parameter_item)
 551 {
 552   guint16 cookie_length;
 553
 554   cookie_length = tvb_get_ntohs(parameter_tvb, PARAMETER_LENGTH_OFFSET) - PARAMETER_HEADER_LENGTH;
 555   if (cookie_length > 0)
 556     proto_tree_add_item(parameter_tree, hf_cookie, parameter_tvb, COOKIE_OFFSET, cookie_length, ENC_BIG_ENDIAN);
 557   proto_item_append_text(parameter_item, " (%u byte%s)", cookie_length, plurality(cookie_length, "", "s"));
 558 }
 559
 560 #define PE_IDENTIFIER_LENGTH 4
 561 #define PE_IDENTIFIER_OFFSET PARAMETER_VALUE_OFFSET
 562
 563 static void
 564 dissect_pe_identifier_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree, proto_item *parameter_item)
 565 {
 566   proto_tree_add_item(parameter_tree, hf_pe_identifier, parameter_tvb, PE_IDENTIFIER_OFFSET, PE_IDENTIFIER_LENGTH, ENC_BIG_ENDIAN);
 567   proto_item_append_text(parameter_item, " (0x%x)", tvb_get_ntohl(parameter_tvb, PE_IDENTIFIER_OFFSET));
 568 }
 569
 570 #define PE_CHECKSUM_LENGTH 2
 571 #define PE_CHECKSUM_OFFSET PARAMETER_VALUE_OFFSET
 572
 573 static void
 574 dissect_pe_checksum_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree, proto_item *parameter_item)
 575 {
 576   proto_tree_add_item(parameter_tree, hf_pe_checksum, parameter_tvb, PE_CHECKSUM_OFFSET, PE_CHECKSUM_LENGTH, ENC_BIG_ENDIAN);
 577   proto_item_append_text(parameter_item, " (0x%x)", tvb_get_ntohs(parameter_tvb, PE_CHECKSUM_OFFSET));
 578 }
 579
 580 #define HROPT_ITEMS_LENGTH 4
 581 #define HROPT_ITEMS_OFFSET PARAMETER_VALUE_OFFSET
 582
 583 static void
 584 dissect_handle_resolution_option_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree)
 585 {
 586   proto_tree_add_item(parameter_tree, hf_hropt_items, parameter_tvb, HROPT_ITEMS_OFFSET, HROPT_ITEMS_LENGTH, ENC_BIG_ENDIAN);
 587 }
 588
 589 static void
 590 dissect_unknown_parameter(tvbuff_t *parameter_tvb, proto_tree *parameter_tree, proto_item *parameter_item)
 591 {
 592   guint16 type, parameter_value_length;
 593
 594   type                   = tvb_get_ntohs(parameter_tvb, PARAMETER_TYPE_OFFSET);
 595   parameter_value_length = tvb_get_ntohs(parameter_tvb, PARAMETER_LENGTH_OFFSET) - PARAMETER_HEADER_LENGTH;
 596
 597   if (parameter_value_length > 0)
 598     proto_tree_add_item(parameter_tree, hf_parameter_value, parameter_tvb, PARAMETER_VALUE_OFFSET, parameter_value_length, ENC_BIG_ENDIAN);
 599
 600   proto_item_append_text(parameter_item, " (type %u and %u byte%s value)", type, parameter_value_length, plurality(parameter_value_length, "", "s"));
 601 }
 602
 603 #define IPV4_ADDRESS_PARAMETER_TYPE                 0x01
 604 #define IPV6_ADDRESS_PARAMETER_TYPE                 0x02
 605 #define DCCP_TRANSPORT_PARAMETER_TYPE               0x03
 606 #define SCTP_TRANSPORT_PARAMETER_TYPE               0x04
 607 #define TCP_TRANSPORT_PARAMETER_TYPE                0x05
 608 #define UDP_TRANSPORT_PARAMETER_TYPE                0x06
 609 #define UDP_LITE_TRANSPORT_PARAMETER_TYPE           0x07
 610 #define POOL_MEMBER_SELECTION_POLICY_PARAMETER_TYPE 0x08
 611 #define POOL_HANDLE_PARAMETER_TYPE                  0x09
 612 #define POOL_ELEMENT_PARAMETER_TYPE                 0x0a
 613 #define SERVER_INFORMATION_PARAMETER_TYPE           0x0b
 614 #define OPERATION_ERROR_PARAMETER_TYPE              0x0c
 615 #define COOKIE_PARAMETER_TYPE                       0x0d
 616 #define PE_IDENTIFIER_PARAMETER_TYPE                0x0e
 617 #define PE_CHECKSUM_PARAMETER_TYPE                  0x0f
 618 #define HANDLE_RESOLUTION_OPTION_PARAMETER_TYPE     0x803f
 619
 620 static const value_string parameter_type_values[] = {
 621   { IPV4_ADDRESS_PARAMETER_TYPE,                 "IPV4 Address Parameter" },
 622   { IPV6_ADDRESS_PARAMETER_TYPE,                 "IPV6 Address Parameter" },
 623   { DCCP_TRANSPORT_PARAMETER_TYPE,               "DCCP Transport Address Parameter" },
 624   { SCTP_TRANSPORT_PARAMETER_TYPE,               "SCTP Transport Address Parameter" },
 625   { TCP_TRANSPORT_PARAMETER_TYPE,                "TCP Transport Address Parameter" },
 626   { UDP_TRANSPORT_PARAMETER_TYPE,                "UDP Transport Address Parameter" },
 627   { UDP_LITE_TRANSPORT_PARAMETER_TYPE,           "UDP-Lite Transport Address Parameter" },
 628   { POOL_MEMBER_SELECTION_POLICY_PARAMETER_TYPE, "Pool Member Selection Policy Parameter" },
 629   { POOL_HANDLE_PARAMETER_TYPE,                  "Pool Handle Parameter" },
 630   { POOL_ELEMENT_PARAMETER_TYPE,                 "Pool Element Parameter" },
 631   { SERVER_INFORMATION_PARAMETER_TYPE,           "Server Information Parameter" },
 632   { OPERATION_ERROR_PARAMETER_TYPE,              "Operation Error Parameter" },
 633   { COOKIE_PARAMETER_TYPE,                       "Cookie Parameter" },
 634   { PE_IDENTIFIER_PARAMETER_TYPE,                "Pool Element Identifier Parameter" },
 635   { PE_CHECKSUM_PARAMETER_TYPE,                  "PE Checksum Parameter" },
 636   { HANDLE_RESOLUTION_OPTION_PARAMETER_TYPE,     "Handle Resolution Option Parameter" },
 637   { 0,                                           NULL } };
 638
 639
 640 static void
 641 dissect_parameter(tvbuff_t *parameter_tvb, proto_tree *asap_tree)
 642 {
 643   guint16 type, length, padding_length;
 644   proto_item *parameter_item;
 645   proto_tree *parameter_tree;
 646
 647   /* extract tag and length from the parameter */
 648   type           = tvb_get_ntohs(parameter_tvb, PARAMETER_TYPE_OFFSET);
 649   length         = tvb_get_ntohs(parameter_tvb, PARAMETER_LENGTH_OFFSET);
 650   padding_length = tvb_length(parameter_tvb) - length;
 651
 652   /* create proto_tree stuff */
 653   parameter_item   = proto_tree_add_text(asap_tree, parameter_tvb, PARAMETER_HEADER_OFFSET, tvb_length(parameter_tvb), "%s", val_to_str(type, parameter_type_values, "Unknown Parameter"));
 654   parameter_tree   = proto_item_add_subtree(parameter_item, ett_asap_parameter);
 655
 656   /* add tag and length to the asap tree */
 657   proto_tree_add_item(parameter_tree, hf_parameter_type,   parameter_tvb, PARAMETER_TYPE_OFFSET,   PARAMETER_TYPE_LENGTH,   ENC_BIG_ENDIAN);
 658   proto_tree_add_item(parameter_tree, hf_parameter_length, parameter_tvb, PARAMETER_LENGTH_OFFSET, PARAMETER_LENGTH_LENGTH, ENC_BIG_ENDIAN);
 659
 660   switch(type) {
 661   case IPV4_ADDRESS_PARAMETER_TYPE:
 662     dissect_ipv4_parameter(parameter_tvb, parameter_tree, parameter_item);
 663     break;
 664   case IPV6_ADDRESS_PARAMETER_TYPE:
 665     dissect_ipv6_parameter(parameter_tvb, parameter_tree, parameter_item);
 666     break;
 667   case DCCP_TRANSPORT_PARAMETER_TYPE:
 668     dissect_dccp_transport_parameter(parameter_tvb, parameter_tree);
 669     break;
 670   case SCTP_TRANSPORT_PARAMETER_TYPE:
 671     dissect_sctp_transport_parameter(parameter_tvb, parameter_tree);
 672     break;
 673   case TCP_TRANSPORT_PARAMETER_TYPE:
 674     dissect_tcp_transport_parameter(parameter_tvb, parameter_tree);
 675     break;
 676   case UDP_TRANSPORT_PARAMETER_TYPE:
 677     dissect_udp_transport_parameter(parameter_tvb, parameter_tree);
 678     break;
 679   case UDP_LITE_TRANSPORT_PARAMETER_TYPE:
 680     dissect_udp_lite_transport_parameter(parameter_tvb, parameter_tree);
 681     break;
 682   case POOL_MEMBER_SELECTION_POLICY_PARAMETER_TYPE:
 683     dissect_pool_member_selection_policy_parameter(parameter_tvb, parameter_tree);
 684     break;
 685   case POOL_HANDLE_PARAMETER_TYPE:
 686     dissect_pool_handle_parameter(parameter_tvb, parameter_tree);
 687     break;
 688   case POOL_ELEMENT_PARAMETER_TYPE:
 689     dissect_pool_element_parameter(parameter_tvb, parameter_tree);
 690     break;
 691   case SERVER_INFORMATION_PARAMETER_TYPE:
 692     dissect_server_information_parameter(parameter_tvb, parameter_tree);
 693     break;
 694   case OPERATION_ERROR_PARAMETER_TYPE:
 695     dissect_operation_error_parameter(parameter_tvb, parameter_tree);
 696     break;
 697   case COOKIE_PARAMETER_TYPE:
 698     dissect_cookie_parameter(parameter_tvb, parameter_tree, parameter_item);
 699     break;
 700   case PE_IDENTIFIER_PARAMETER_TYPE:
 701     dissect_pe_identifier_parameter(parameter_tvb, parameter_tree, parameter_item);
 702     break;
 703   case PE_CHECKSUM_PARAMETER_TYPE:
 704     dissect_pe_checksum_parameter(parameter_tvb, parameter_tree, parameter_item);
 705     break;
 706   case HANDLE_RESOLUTION_OPTION_PARAMETER_TYPE:
 707     dissect_handle_resolution_option_parameter(parameter_tvb, parameter_tree);
 708     break;
 709   default:
 710     dissect_unknown_parameter(parameter_tvb, parameter_tree, parameter_item);
 711     break;
 712   };
 713
 714   if (padding_length > 0)
 715     proto_tree_add_item(parameter_tree, hf_parameter_padding, parameter_tvb, PARAMETER_HEADER_OFFSET + length, padding_length, ENC_BIG_ENDIAN);
 716 }
 717
 718 static void
 719 dissect_parameters(tvbuff_t *parameters_tvb, proto_tree *tree)
 720 {
 721   gint offset, length, total_length, remaining_length;
 722   tvbuff_t *parameter_tvb;
 723
 724   offset = 0;
 725   while((remaining_length = tvb_length_remaining(parameters_tvb, offset))) {
 726     length       = tvb_get_ntohs(parameters_tvb, offset + PARAMETER_LENGTH_OFFSET);
 727     total_length = ADD_PADDING(length);
 728     if (remaining_length >= length)
 729       total_length = MIN(total_length, remaining_length);
 730     /* create a tvb for the parameter including the padding bytes */
 731     parameter_tvb  = tvb_new_subset(parameters_tvb, offset, total_length, total_length);
 732     dissect_parameter(parameter_tvb, tree);
 733     /* get rid of the handled parameter */
 734     offset += total_length;
 735   }
 736 }
 737
 738 /* Dissectors for messages. This is specific to ASAP */
 739
 740 #define MESSAGE_TYPE_LENGTH   1
 741 #define MESSAGE_FLAGS_LENGTH  1
 742 #define MESSAGE_LENGTH_LENGTH 2
 743
 744 #define MESSAGE_TYPE_OFFSET   0
 745 #define MESSAGE_FLAGS_OFFSET  (MESSAGE_TYPE_OFFSET   + MESSAGE_TYPE_LENGTH)
 746 #define MESSAGE_LENGTH_OFFSET (MESSAGE_FLAGS_OFFSET  + MESSAGE_FLAGS_LENGTH)
 747 #define MESSAGE_VALUE_OFFSET  (MESSAGE_LENGTH_OFFSET + MESSAGE_LENGTH_LENGTH)
 748
 749 #define REGISTRATION_MESSAGE_TYPE               0x01
 750 #define DEREGISTRATION_MESSAGE_TYPE             0x02
 751 #define REGISTRATION_RESPONSE_MESSAGE_TYPE      0x03
 752 #define DEREGISTRATION_RESPONSE_MESSAGE_TYPE    0x04
 753 #define HANDLE_RESOLUTION_MESSAGE_TYPE          0x05
 754 #define HANDLE_RESOLUTION_RESPONSE_MESSAGE_TYPE 0x06
 755 #define ENDPOINT_KEEP_ALIVE_MESSAGE_TYPE        0x07
 756 #define ENDPOINT_KEEP_ALIVE_ACK_MESSAGE_TYPE    0x08
 757 #define ENDPOINT_UNREACHABLE_MESSAGE_TYPE       0x09
 758 #define SERVER_ANNOUNCE_MESSAGE_TYPE            0x0a
 759 #define COOKIE_MESSAGE_TYPE                     0x0b
 760 #define COOKIE_ECHO_MESSAGE_TYPE                0x0c
 761 #define BUSINESS_CARD_MESSAGE_TYPE              0x0d
 762 #define ERROR_MESSAGE_TYPE                      0x0e
 763
 764 static const value_string message_type_values[] = {
 765   { REGISTRATION_MESSAGE_TYPE,               "ASAP Registration" },
 766   { DEREGISTRATION_MESSAGE_TYPE,             "ASAP Deregistration" },
 767   { REGISTRATION_RESPONSE_MESSAGE_TYPE,      "ASAP Registration Response" },
 768   { DEREGISTRATION_RESPONSE_MESSAGE_TYPE,    "ASAP Deregistration Response" },
 769   { HANDLE_RESOLUTION_MESSAGE_TYPE,          "ASAP Handle Resolution" },
 770   { HANDLE_RESOLUTION_RESPONSE_MESSAGE_TYPE, "ASAP Handle Resolution Response" },
 771   { ENDPOINT_KEEP_ALIVE_MESSAGE_TYPE,        "ASAP Endpoint Keep-Alive" },
 772   { ENDPOINT_KEEP_ALIVE_ACK_MESSAGE_TYPE,    "ASAP Endpoint Keep-Alive Acknowledgement" },
 773   { ENDPOINT_UNREACHABLE_MESSAGE_TYPE,       "ASAP Endpoint Unreachable" },
 774   { SERVER_ANNOUNCE_MESSAGE_TYPE,            "ASAP Server Announce" },
 775   { COOKIE_MESSAGE_TYPE,                     "ASAP Cookie" },
 776   { COOKIE_ECHO_MESSAGE_TYPE,                "ASAP Cookie Echo" },
 777   { BUSINESS_CARD_MESSAGE_TYPE,              "ASAP Business Card" },
 778   { ERROR_MESSAGE_TYPE,                      "ASAP Error" },
 779   { 0,                                       NULL } };
 780
 781 #define SERVER_IDENTIFIER_OFFSET MESSAGE_VALUE_OFFSET
 782 #define SERVER_IDENTIFIER_LENGTH 4
 783
 784 #define HOME_ENRP_SERVER_BIT_MASK 0x01
 785 #define REJECT_BIT_MASK           0x01
 786
 787 static const true_false_string home_enrp_server_bit_value = {
 788   "Want to be new ENRP server",
 789   "Do not want to be new ENRP server"
 790 };
 791
 792 static const true_false_string reject_bit_value = {
 793   "Rejected",
 794   "Accepted"
 795 };
 796
 797 static void
 798 dissect_asap_message(tvbuff_t *message_tvb, packet_info *pinfo, proto_tree *asap_tree)
 799 {
 800   tvbuff_t *parameters_tvb;
 801   proto_item *flags_item;
 802   proto_tree *flags_tree;
 803   guint8 type;
 804
 805
 806   type = tvb_get_guint8(message_tvb, MESSAGE_TYPE_OFFSET);
 807   /* pinfo is NULL only if dissect_asap_message is called via dissect_error cause */
 808   if (pinfo)
 809    col_add_fstr(pinfo->cinfo, COL_INFO, "%s ", val_to_str(type, message_type_values, "Unknown ASAP type"));
 810
 811   if (asap_tree) {
 812     proto_tree_add_item(asap_tree, hf_message_type,   message_tvb, MESSAGE_TYPE_OFFSET,   MESSAGE_TYPE_LENGTH,   ENC_BIG_ENDIAN);
 813     flags_item = proto_tree_add_item(asap_tree, hf_message_flags,  message_tvb, MESSAGE_FLAGS_OFFSET,  MESSAGE_FLAGS_LENGTH,  ENC_BIG_ENDIAN);
 814     flags_tree = proto_item_add_subtree(flags_item, ett_asap_flags);
 815     if (type == REGISTRATION_RESPONSE_MESSAGE_TYPE) {
 816       proto_tree_add_item(flags_tree, hf_reject_bit, message_tvb, MESSAGE_FLAGS_OFFSET, MESSAGE_FLAGS_LENGTH, ENC_BIG_ENDIAN);
 817     }
 818     if (type == ENDPOINT_KEEP_ALIVE_MESSAGE_TYPE) {
 819       proto_tree_add_item(flags_tree, hf_home_enrp_server_bit, message_tvb, MESSAGE_FLAGS_OFFSET, MESSAGE_FLAGS_LENGTH, ENC_BIG_ENDIAN);
 820     }
 821     proto_tree_add_item(asap_tree, hf_message_length, message_tvb, MESSAGE_LENGTH_OFFSET, MESSAGE_LENGTH_LENGTH, ENC_BIG_ENDIAN);
 822     if ((type == SERVER_ANNOUNCE_MESSAGE_TYPE) || (type == ENDPOINT_KEEP_ALIVE_MESSAGE_TYPE)) {
 823       proto_tree_add_item(asap_tree, hf_server_identifier, message_tvb, SERVER_IDENTIFIER_OFFSET, SERVER_IDENTIFIER_LENGTH, ENC_BIG_ENDIAN);
 824       parameters_tvb = tvb_new_subset_remaining(message_tvb, MESSAGE_VALUE_OFFSET + SERVER_IDENTIFIER_LENGTH);
 825     } else {
 826       parameters_tvb = tvb_new_subset_remaining(message_tvb, MESSAGE_VALUE_OFFSET);
 827     }
 828     dissect_parameters(parameters_tvb, asap_tree);
 829     }
 830 }
 831
 832 static void
 833 dissect_asap(tvbuff_t *message_tvb, packet_info *pinfo, proto_tree *tree)
 834 {
 835   proto_item *asap_item;
 836   proto_tree *asap_tree;
 837
 838   /* pinfo is NULL only if dissect_asap is called from dissect_error cause */
 839   if (pinfo)
 840     col_set_str(pinfo->cinfo, COL_PROTOCOL, "ASAP");
 841
 842   /* In the interest of speed, if "tree" is NULL, don't do any work not
 843      necessary to generate protocol tree items. */
 844   if (tree) {
 845     /* create the asap protocol tree */
 846     asap_item = proto_tree_add_item(tree, proto_asap, message_tvb, 0, -1, ENC_NA);
 847     asap_tree = proto_item_add_subtree(asap_item, ett_asap);
 848   } else {
 849     asap_tree = NULL;
 850   };
 851   /* dissect the message */
 852   dissect_asap_message(message_tvb, pinfo, asap_tree);
 853 }
 854
 855 /* Register the protocol with Wireshark */
 856 void
 857 proto_register_asap(void)
 858 {
 859
 860   /* Setup list of header fields */
 861   static hf_register_info hf[] = {
 862     { &hf_message_type,           { "Type",                        "asap.message_type",                             FT_UINT8,   BASE_DEC,  VALS(message_type_values),        0x0,                       NULL, HFILL } },
 863     { &hf_message_flags,          { "Flags",                       "asap.message_flags",                            FT_UINT8,   BASE_HEX,  NULL,                             0x0,                       NULL, HFILL } },
 864     { &hf_message_length,         { "Length",                      "asap.message_length",                           FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 865     { &hf_cause_code,             { "Cause Code",                  "asap.cause_code",                               FT_UINT16,  BASE_HEX,  VALS(cause_code_values),          0x0,                       NULL, HFILL } },
 866     { &hf_cause_length,           { "Cause Length",                "asap.cause_length",                             FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 867     { &hf_cause_info,             { "Cause Info",                  "asap.cause_info",                               FT_BYTES,   BASE_NONE, NULL,                             0x0,                       NULL, HFILL } },
 868     { &hf_cause_padding,          { "Padding",                     "asap.cause_padding",                            FT_BYTES,   BASE_NONE, NULL,                             0x0,                       NULL, HFILL } },
 869     { &hf_parameter_type,         { "Parameter Type",              "asap.parameter_type",                           FT_UINT16,  BASE_HEX,  VALS(parameter_type_values),      0x0,                       NULL, HFILL } },
 870     { &hf_parameter_length,       { "Parameter Length",            "asap.parameter_length",                         FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 871     { &hf_parameter_value,        { "Parameter Value",             "asap.parameter_value",                          FT_BYTES,   BASE_NONE, NULL,                             0x0,                       NULL, HFILL } },
 872     { &hf_parameter_padding,      { "Padding",                     "asap.parameter_padding",                        FT_BYTES,   BASE_NONE, NULL,                             0x0,                       NULL, HFILL } },
 873     { &hf_parameter_ipv4_address, { "IP Version 4 Address",        "asap.ipv4_address",                             FT_IPv4,    BASE_NONE, NULL,                             0x0,                       NULL, HFILL } },
 874     { &hf_parameter_ipv6_address, { "IP Version 6 Address",        "asap.ipv6_address",                             FT_IPv6,    BASE_NONE, NULL,                             0x0,                       NULL, HFILL } },
 875     { &hf_dccp_port,              { "Port",                        "asap.dccp_transport_port",                      FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 876     { &hf_dccp_reserved,          { "Reserved",                    "asap.dccp_transport_reserved",                  FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 877     { &hf_dccp_service_code,      { "Service Code",                "asap.dccp_transport_service_code",              FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 878     { &hf_sctp_port,              { "Port",                        "asap.sctp_transport_port",                      FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 879     { &hf_transport_use,          { "Transport Use",               "asap.transport_use",                            FT_UINT16,  BASE_DEC,  VALS(transport_use_values),       0x0,                       NULL, HFILL } },
 880     { &hf_tcp_port,               { "Port",                        "asap.tcp_transport_port",                       FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 881     { &hf_udp_port,               { "Port",                        "asap.udp_transport_port",                       FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 882     { &hf_udp_reserved,           { "Reserved",                    "asap.udp_transport_reserved",                   FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 883     { &hf_udp_lite_port,          { "Port",                        "asap.udp_lite_transport_port",                  FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 884     { &hf_udp_lite_reserved,      { "Reserved",                    "asap.udp_lite_transport_reserved",              FT_UINT16,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 885     { &hf_policy_type,            { "Policy Type",                 "asap.pool_member_selection_policy_type",        FT_UINT32,  BASE_HEX,  VALS(policy_type_values),         0x0,                       NULL, HFILL } },
 886     { &hf_policy_weight,          { "Policy Weight",               "asap.pool_member_selection_policy_weight",      FT_UINT32,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 887     { &hf_policy_priority,        { "Policy Priority",             "asap.pool_member_selection_policy_priority",    FT_UINT32,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 888     { &hf_policy_load,            { "Policy Load",                 "asap.pool_member_selection_policy_load",        FT_DOUBLE,  BASE_NONE,  NULL,                             0x0,                       NULL, HFILL } },
 889     { &hf_policy_degradation,     { "Policy Degradation",          "asap.pool_member_selection_policy_degradation", FT_DOUBLE,  BASE_NONE,  NULL,                             0x0,                       NULL, HFILL } },
 890     { &hf_policy_loaddpf,         { "Policy Load DPF",             "asap.pool_member_selection_policy_load_dpf",    FT_DOUBLE,  BASE_NONE,  NULL,                             0x0,                       NULL, HFILL } },
 891     { &hf_policy_weightdpf,       { "Policy Weight DPF",           "asap.pool_member_selection_policy_weight_dpf",  FT_DOUBLE,  BASE_NONE,  NULL,                             0x0,                       NULL, HFILL } },
 892     { &hf_policy_distance,        { "Policy Distance",             "asap.pool_member_selection_policy_distance",    FT_UINT32,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 893     { &hf_policy_value,           { "Policy Value",                "asap.pool_member_selection_policy_value",       FT_BYTES,   BASE_NONE, NULL,                             0x0,                       NULL, HFILL } },
 894     { &hf_pool_handle,            { "Pool Handle",                 "asap.pool_handle_pool_handle",                  FT_BYTES,   BASE_NONE,  NULL,                             0x0,                       NULL, HFILL } },
 895     { &hf_pe_pe_identifier,       { "PE Identifier",               "asap.pool_element_pe_identifier",               FT_UINT32,  BASE_HEX,  NULL,                             0x0,                       NULL, HFILL } },
 896     { &hf_home_enrp_id,           { "Home ENRP Server Identifier", "asap.pool_element_home_enrp_server_identifier", FT_UINT32,  BASE_HEX,  NULL,                             0x0,                       NULL, HFILL } },
 897     { &hf_reg_life,               { "Registration Life",           "asap.pool_element_registration_life",           FT_INT32,   BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 898     { &hf_cookie,                 { "Cookie",                      "asap.cookie",                                   FT_BYTES,   BASE_NONE,  NULL,                             0x0,                       NULL, HFILL } },
 899     { &hf_pe_identifier,          { "PE Identifier",               "asap.pe_identifier",                            FT_UINT32,  BASE_HEX,  NULL,                             0x0,                       NULL, HFILL } },
 900     { &hf_pe_checksum,            { "PE Checksum",                 "asap.pe_checksum",                              FT_UINT32,  BASE_HEX,  NULL,                             0x0,                       NULL, HFILL } },
 901     { &hf_hropt_items,            { "Items",                       "asap.hropt_items",                              FT_UINT32,  BASE_DEC,  NULL,                             0x0,                       NULL, HFILL } },
 902     { &hf_server_identifier,      { "Server Identifier",           "asap.server_identifier",                        FT_UINT32,  BASE_HEX,  NULL,                             0x0,                       NULL, HFILL } },
 903     { &hf_home_enrp_server_bit,   { "H Bit",                       "asap.h_bit",                                    FT_BOOLEAN, 8,         TFS(&home_enrp_server_bit_value), HOME_ENRP_SERVER_BIT_MASK, NULL, HFILL } },
 904     { &hf_reject_bit,             { "R Bit",                       "asap.r_bit",                                    FT_BOOLEAN, 8,         TFS(&reject_bit_value),           REJECT_BIT_MASK,           NULL, HFILL } },
 905   };
 906
 907   /* Setup protocol subtree array */
 908   static gint *ett[] = {
 909     &ett_asap,
 910     &ett_asap_flags,
 911     &ett_asap_parameter,
 912     &ett_asap_cause,
 913   };
 914
 915   /* Register the protocol name and description */
 916   proto_asap = proto_register_protocol("Aggregate Server Access Protocol", "ASAP",  "asap");
 917
 918   /* Required function calls to register the header fields and subtrees used */
 919   proto_register_field_array(proto_asap, hf, array_length(hf));
 920   proto_register_subtree_array(ett, array_length(ett));
 921
 922 }
 923
 924 void
 925 proto_reg_handoff_asap(void)
 926 {
 927   dissector_handle_t asap_handle;
 928
 929   asap_handle = create_dissector_handle(dissect_asap, proto_asap);
 930   dissector_add_uint("sctp.ppi",  ASAP_PAYLOAD_PROTOCOL_ID, asap_handle);
 931   dissector_add_uint("udp.port",  ASAP_UDP_PORT,  asap_handle);
 932   dissector_add_uint("tcp.port",  ASAP_TCP_PORT,  asap_handle);
 933   dissector_add_uint("sctp.port", ASAP_SCTP_PORT, asap_handle);
 934 }