1584 lines
57 KiB
C
1584 lines
57 KiB
C
/* packet-pim.c
|
|
* Routines for PIM disassembly
|
|
* (c) Copyright Jun-ichiro itojun Hagino <itojun@itojun.org>
|
|
*
|
|
* $Id$
|
|
*
|
|
* Wireshark - Network traffic analyzer
|
|
* By Gerald Combs <gerald@wireshark.org>
|
|
* Copyright 1998 Gerald Combs
|
|
*
|
|
* This program is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU General Public License
|
|
* as published by the Free Software Foundation; either version 2
|
|
* of the License, or (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
*/
|
|
|
|
#include "config.h"
|
|
|
|
#include <glib.h>
|
|
|
|
#include <epan/packet.h>
|
|
#include <epan/ipproto.h>
|
|
#include <epan/afn.h>
|
|
#include <epan/prefs.h>
|
|
#include <epan/in_cksum.h>
|
|
#include <epan/wmem/wmem.h>
|
|
#include <epan/to_str.h>
|
|
|
|
#include "packet-pim.h"
|
|
|
|
void proto_register_pim(void);
|
|
void proto_reg_handoff_pim(void);
|
|
|
|
#define PIM_TYPE(x) ((x) & 0x0f)
|
|
#define PIM_VER(x) (((x) & 0xf0) >> 4)
|
|
|
|
enum pimv2_addrtype {
|
|
pimv2_unicast, pimv2_group, pimv2_source
|
|
};
|
|
|
|
static int proto_pim = -1;
|
|
static int hf_pim_version = -1;
|
|
static int hf_pim_type = -1;
|
|
static int hf_pim_code = -1;
|
|
static int hf_pim_cksum = -1;
|
|
static int hf_pim_res_bytes = -1;
|
|
/* PIM Hello options (RFC 4601, section 4.9.2 and RFC 3973, section 4.7.5) */
|
|
static int hf_pim_optiontype = -1;
|
|
static int hf_pim_optionlength = -1;
|
|
static int hf_pim_optionvalue = -1;
|
|
static int hf_pim_register_flag = -1;
|
|
static int hf_pim_register_flag_border = -1;
|
|
static int hf_pim_register_flag_null_register = -1;
|
|
static int hf_pim_mode = -1;
|
|
static int hf_pim_holdtime = -1;
|
|
static int hf_pim_numgroups = -1;
|
|
static int hf_pim_numjoins = -1;
|
|
static int hf_pim_numprunes = -1;
|
|
static int hf_pim_t = -1;
|
|
static int hf_pim_propagation_delay = -1;
|
|
static int hf_pim_override_interval = -1;
|
|
static int hf_pim_dr_priority = -1;
|
|
static int hf_pim_generation_id = -1;
|
|
static int hf_pim_state_refresh_version = -1;
|
|
static int hf_pim_state_refresh_interval = -1;
|
|
static int hf_pim_state_refresh_reserved = -1;
|
|
/* Assert fields */
|
|
static int hf_pim_rpt = -1;
|
|
static int hf_pim_metric_pref = -1;
|
|
static int hf_pim_metric = -1;
|
|
static int hf_pim_prune_indicator = -1;
|
|
static int hf_pim_prune_now = -1;
|
|
static int hf_pim_assert_override = -1;
|
|
static int hf_pim_source_ip4 = -1;
|
|
static int hf_pim_source_ip6 = -1;
|
|
static int hf_pim_group_ip4 = -1;
|
|
static int hf_pim_group_ip6 = -1;
|
|
static int hf_pim_group_mask_ip4 = -1;
|
|
static int hf_pim_upstream_neighbor_ip4 = -1;
|
|
static int hf_pim_upstream_neighbor_ip6 = -1;
|
|
static int hf_pim_join_ip4 = -1;
|
|
static int hf_pim_join_ip6 = -1;
|
|
static int hf_pim_prune_ip4 = -1;
|
|
static int hf_pim_prune_ip6 = -1;
|
|
static int hf_pim_address_list_ip4 = -1;
|
|
static int hf_pim_address_list_ip6 = -1;
|
|
static int hf_pim_bsr_ip4 = -1;
|
|
static int hf_pim_bsr_ip6 = -1;
|
|
static int hf_pim_rp_ip4 = -1;
|
|
static int hf_pim_rp_ip6 = -1;
|
|
static int hf_pim_originator_ip4 = -1;
|
|
static int hf_pim_originator_ip6 = -1;
|
|
static int hf_pim_group_address_ip4 = -1;
|
|
static int hf_pim_rp_address_ip4 = -1;
|
|
static int hf_pim_fragment_tag = -1;
|
|
static int hf_pim_hash_mask_len = -1;
|
|
static int hf_pim_bsr_priority = -1;
|
|
static int hf_pim_rp_count = -1;
|
|
static int hf_pim_frp_count = -1;
|
|
static int hf_pim_priority = -1;
|
|
static int hf_pim_prefix_count = -1;
|
|
static int hf_pim_mask_len = -1;
|
|
static int hf_pim_ttl = -1;
|
|
static int hf_pim_interval = -1;
|
|
|
|
static gint ett_pim = -1;
|
|
static gint ett_pim_opts = -1;
|
|
static gint ett_pim_opt = -1;
|
|
|
|
static dissector_handle_t ip_handle;
|
|
static dissector_handle_t ipv6_handle;
|
|
|
|
static gboolean use_main_tree = TRUE;
|
|
|
|
/*
|
|
* For PIM v1, see
|
|
*
|
|
* ftp://ftp.usc.edu/pub/csinfo/tech-reports/papers/95-599.ps.Z
|
|
*
|
|
* NOTE: There is still some doubt that this is THE definitive PIMv1
|
|
* specification. Of note, the type1vals entry, { 8, "Mode" }, does
|
|
* not appear as a valid code in the referenced document above.
|
|
*
|
|
* This one is likely closer to the last PIMv1 spec:
|
|
* http://tools.ietf.org/id/draft-ietf-idmr-pim-spec-02.txt
|
|
*/
|
|
static const char *
|
|
dissect_pimv1_addr(tvbuff_t *tvb, int offset) {
|
|
guint16 flags_masklen;
|
|
|
|
flags_masklen = tvb_get_ntohs(tvb, offset);
|
|
if (flags_masklen & 0x0180) {
|
|
return wmem_strdup_printf(wmem_packet_scope(), "(%s%s%s) ",
|
|
flags_masklen & 0x0100 ? "S" : "",
|
|
flags_masklen & 0x0080 ? "W" : "",
|
|
flags_masklen & 0x0040 ? "R" : "");
|
|
} else {
|
|
return wmem_strdup_printf(wmem_packet_scope(), "%s/%u",
|
|
tvb_ip_to_str(tvb, offset + 2), flags_masklen & 0x3f);
|
|
}
|
|
}
|
|
|
|
static const value_string type1vals[] = {
|
|
{ 0, "Query" },
|
|
{ 1, "Register" },
|
|
{ 2, "Register-stop" },
|
|
{ 3, "Join/Prune" },
|
|
{ 4, "RP-Reachable" },
|
|
{ 5, "Assert" },
|
|
{ 6, "Graft" },
|
|
{ 7, "Graft-Ack" },
|
|
{ 8, "Mode" },
|
|
{ 0, NULL },
|
|
};
|
|
|
|
static const value_string pimv1_modevals[] = {
|
|
{ 0, "Dense" },
|
|
{ 1, "Sparse" },
|
|
{ 2, "Sparse-Dense" },
|
|
{ 0, NULL }
|
|
};
|
|
|
|
/* This function is only called from the IGMP dissector */
|
|
int
|
|
dissect_pimv1(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree,
|
|
int offset) {
|
|
guint8 pim_type;
|
|
guint8 pim_ver;
|
|
guint length, pim_length;
|
|
guint16 pim_cksum, computed_cksum;
|
|
vec_t cksum_vec[1];
|
|
proto_tree *pim_tree = NULL;
|
|
proto_item *ti;
|
|
proto_tree *pimopt_tree = NULL;
|
|
proto_item *tiopt;
|
|
|
|
if (!proto_is_protocol_enabled(find_protocol_by_id(proto_pim))) {
|
|
/*
|
|
* We are not enabled; skip entire packet to be nice to the
|
|
* IGMP layer (so clicking on IGMP will display the data).
|
|
*/
|
|
return offset+tvb_length_remaining(tvb, offset);
|
|
}
|
|
|
|
col_set_str(pinfo->cinfo, COL_PROTOCOL, "PIMv1");
|
|
col_clear(pinfo->cinfo, COL_INFO);
|
|
|
|
ti = proto_tree_add_item(tree, proto_pim, tvb, offset, -1, ENC_NA);
|
|
pim_tree = proto_item_add_subtree(ti, ett_pim);
|
|
|
|
/* Put IGMP type, 0x14, into the tree */
|
|
proto_tree_add_text(pim_tree, tvb, offset, 1, "Type: PIM (0x14)");
|
|
offset += 1;
|
|
|
|
pim_type = tvb_get_guint8(tvb, offset);
|
|
col_add_str(pinfo->cinfo, COL_INFO,
|
|
val_to_str(pim_type, type1vals, "Unknown (%u)"));
|
|
|
|
proto_tree_add_uint(pim_tree, hf_pim_code, tvb, offset, 1, pim_type);
|
|
offset += 1;
|
|
|
|
pim_cksum = tvb_get_ntohs(tvb, offset);
|
|
pim_ver = PIM_VER(tvb_get_guint8(tvb, offset + 2));
|
|
if (pim_ver != 1) {
|
|
/*
|
|
* Not PIMv1 - what gives?
|
|
*/
|
|
proto_tree_add_uint(pim_tree, hf_pim_cksum, tvb,
|
|
offset, 2, pim_cksum);
|
|
|
|
offset += 2;
|
|
proto_tree_add_item(pim_tree, hf_pim_version, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
return offset+tvb_length_remaining(tvb, offset);
|
|
}
|
|
|
|
/*
|
|
* Well, it's PIM v1, so we can check whether this is a
|
|
* Register message, and thus can figure out how much to
|
|
* checksum and whether to make the columns read-only.
|
|
*/
|
|
length = tvb_length(tvb);
|
|
if (pim_type == 1) {
|
|
/*
|
|
* Register message - the PIM header is 8 bytes long.
|
|
* Also set the columns non-writable. Otherwise the IPv4 or
|
|
* IPv6 dissector for the encapsulated packet that caused
|
|
* this register will overwrite the PIM info in the columns.
|
|
*/
|
|
pim_length = 8;
|
|
col_set_writable(pinfo->cinfo, FALSE);
|
|
} else {
|
|
/*
|
|
* Other message - checksum the entire packet.
|
|
*/
|
|
pim_length = tvb_reported_length(tvb);
|
|
}
|
|
|
|
if (!pinfo->fragmented && length >= pim_length) {
|
|
/*
|
|
* The packet isn't part of a fragmented datagram and isn't
|
|
* truncated, so we can checksum it.
|
|
*/
|
|
cksum_vec[0].ptr = tvb_get_ptr(tvb, 0, pim_length);
|
|
cksum_vec[0].len = pim_length;
|
|
computed_cksum = in_cksum(&cksum_vec[0], 1);
|
|
if (computed_cksum == 0) {
|
|
proto_tree_add_uint_format_value(pim_tree, hf_pim_cksum, tvb,
|
|
offset, 2, pim_cksum,
|
|
"0x%04x [correct]",
|
|
pim_cksum);
|
|
} else {
|
|
proto_tree_add_uint_format_value(pim_tree, hf_pim_cksum, tvb,
|
|
offset, 2, pim_cksum,
|
|
"0x%04x [incorrect, should be 0x%04x]",
|
|
pim_cksum, in_cksum_shouldbe(pim_cksum, computed_cksum));
|
|
}
|
|
} else {
|
|
proto_tree_add_uint(pim_tree, hf_pim_cksum, tvb,
|
|
offset, 2, pim_cksum);
|
|
}
|
|
offset += 2;
|
|
|
|
proto_tree_add_item(pim_tree, hf_pim_version, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
|
|
offset += 3; /* skip reserved stuff */
|
|
|
|
if (tvb_reported_length_remaining(tvb, offset) > 0) {
|
|
tiopt = proto_tree_add_text(pim_tree, tvb, offset, -1, "PIM options");
|
|
pimopt_tree = proto_item_add_subtree(tiopt, ett_pim_opts);
|
|
} else
|
|
goto done;
|
|
|
|
/* version 1 decoder */
|
|
switch (pim_type) {
|
|
case 0: /* query */
|
|
{
|
|
guint16 holdtime;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_mode, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 2;
|
|
|
|
holdtime = tvb_get_ntohs(tvb, offset);
|
|
proto_tree_add_uint_format_value(pimopt_tree, hf_pim_holdtime, tvb,
|
|
offset, 2, holdtime,
|
|
"%us %s", holdtime,
|
|
holdtime == 0xffff ? "(infinity)": "");
|
|
offset += 2;
|
|
break;
|
|
}
|
|
|
|
case 1: /* register */
|
|
{
|
|
guint8 v_hl;
|
|
tvbuff_t *next_tvb;
|
|
|
|
/*
|
|
* The rest of the packet is a multicast data packet.
|
|
*/
|
|
next_tvb = tvb_new_subset_remaining(tvb, offset);
|
|
|
|
/*
|
|
* It's an IP packet - determine whether it's IPv4 or IPv6.
|
|
*/
|
|
v_hl = tvb_get_guint8(tvb, offset);
|
|
switch((v_hl & 0xf0) >> 4) {
|
|
case 0: /* Null-Register dummy header.
|
|
* Has the same address family as the encapsulating PIM packet,
|
|
* e.g. an IPv6 data packet is encapsulated in IPv6 PIM packet.
|
|
*/
|
|
if (pinfo->src.type == AT_IPv4) {
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, -1, "IPv4 dummy header");
|
|
proto_tree_add_item(pimopt_tree, hf_pim_source_ip4, tvb, offset + 12, 4, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_group_ip4, tvb, offset + 16, 4, ENC_BIG_ENDIAN);
|
|
} else if (pinfo->src.type == AT_IPv6) {
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, -1, "IPv6 dummy header");
|
|
proto_tree_add_item(pimopt_tree, hf_pim_source_ip6, tvb, offset + 8, 16, ENC_NA);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_group_ip6, tvb, offset + 8 + 16, 16, ENC_NA);
|
|
} else
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, -1,
|
|
"Dummy header for an unknown protocol");
|
|
break;
|
|
case 4: /* IPv4 */
|
|
if (use_main_tree) {
|
|
call_dissector(ip_handle, next_tvb, pinfo, tree);
|
|
} else {
|
|
call_dissector(ip_handle, next_tvb, pinfo, pimopt_tree);
|
|
}
|
|
break;
|
|
case 6: /* IPv6 */
|
|
if (use_main_tree) {
|
|
call_dissector(ipv6_handle, next_tvb, pinfo, tree);
|
|
} else {
|
|
call_dissector(ipv6_handle, next_tvb, pinfo, pimopt_tree);
|
|
}
|
|
break;
|
|
default:
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, -1,
|
|
"Unknown IP version %d", (v_hl & 0xf0) >> 4);
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
|
|
case 2: /* register-stop */
|
|
{
|
|
proto_tree_add_item(pimopt_tree, hf_pim_group_ip4, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
proto_tree_add_item(pimopt_tree, hf_pim_source_ip4, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
break;
|
|
}
|
|
|
|
case 3: /* join/prune */
|
|
case 6: /* graft */
|
|
case 7: /* graft-ack */
|
|
{
|
|
int off;
|
|
const char *s;
|
|
int ngroup, i, njoin, nprune, j;
|
|
guint16 holdtime;
|
|
guint8 mask_len;
|
|
guint8 adr_len;
|
|
proto_tree *grouptree = NULL;
|
|
proto_item *tigroup;
|
|
proto_tree *subtree = NULL;
|
|
proto_item *tisub;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_upstream_neighbor_ip4, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
offset += 2; /* skip reserved stuff */
|
|
|
|
holdtime = tvb_get_ntohs(tvb, offset);
|
|
proto_tree_add_uint_format_value(pimopt_tree, hf_pim_holdtime, tvb,
|
|
offset, 2, holdtime,
|
|
"%us %s", holdtime,
|
|
holdtime == 0xffff ? "(infinity)": "");
|
|
offset += 2;
|
|
|
|
offset += 1; /* skip reserved stuff */
|
|
|
|
mask_len = tvb_get_guint8(tvb, offset);
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, 1,
|
|
"Mask length: %u", mask_len);
|
|
offset += 1;
|
|
|
|
adr_len = tvb_get_guint8(tvb, offset);
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, 1,
|
|
"Address length: %u", adr_len);
|
|
offset += 1;
|
|
|
|
ngroup = tvb_get_guint8(tvb, offset);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_numgroups, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
|
|
for (i = 0; i < ngroup; i++) {
|
|
/*
|
|
* XXX - does the group address have the length "adr_len"
|
|
* and the group mask the length "mask_len"?
|
|
*/
|
|
tigroup = proto_tree_add_ipv4_format(pimopt_tree, hf_pim_group_ip4, tvb, offset, 4,
|
|
tvb_get_ipv4(tvb, offset), "Group %d: %s", i, tvb_ip_to_str(tvb, offset));
|
|
grouptree = proto_item_add_subtree(tigroup, ett_pim);
|
|
offset += 4;
|
|
|
|
proto_tree_add_ipv4_format(grouptree, hf_pim_group_mask_ip4, tvb, offset, 4,
|
|
tvb_get_ipv4(tvb, offset), "Group %d Mask: %s", i, tvb_ip_to_str(tvb, offset));
|
|
offset += 4;
|
|
|
|
njoin = tvb_get_ntohs(tvb, offset);
|
|
nprune = tvb_get_ntohs(tvb, offset + 2);
|
|
tisub = proto_tree_add_item(grouptree, hf_pim_numjoins, tvb,
|
|
offset, 2, ENC_BIG_ENDIAN);
|
|
subtree = proto_item_add_subtree(tisub, ett_pim);
|
|
off = offset + 4;
|
|
for (j = 0; j < njoin; j++) {
|
|
s = dissect_pimv1_addr(tvb, off);
|
|
proto_tree_add_text(subtree, tvb, off, 6,
|
|
"IP address: %s", s);
|
|
off += 6;
|
|
}
|
|
|
|
tisub = proto_tree_add_item(grouptree, hf_pim_numprunes, tvb,
|
|
offset + 2, 2, ENC_BIG_ENDIAN);
|
|
subtree = proto_item_add_subtree(tisub, ett_pim);
|
|
for (j = 0; j < nprune; j++) {
|
|
s = dissect_pimv1_addr(tvb, off);
|
|
proto_tree_add_text(subtree, tvb, off, 6,
|
|
"IP address: %s", s);
|
|
off += 6;
|
|
}
|
|
offset = off;
|
|
}
|
|
break;
|
|
}
|
|
|
|
case 4: /* rp-reachability */
|
|
{
|
|
guint16 holdtime;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_group_address_ip4, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_group_mask_ip4, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_rp_address_ip4, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
offset += 2; /* skip reserved stuff */
|
|
|
|
holdtime = tvb_get_ntohs(tvb, offset);
|
|
proto_tree_add_uint_format_value(pimopt_tree, hf_pim_holdtime, tvb,
|
|
offset, 2, holdtime,
|
|
"%us %s", holdtime,
|
|
holdtime == 0xffff ? "(infinity)": "");
|
|
offset += 2;
|
|
break;
|
|
}
|
|
|
|
case 5: /* assert */
|
|
{
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_group_address_ip4, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_group_mask_ip4, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_rpt, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_metric_pref, tvb,
|
|
offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_metric, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
break;
|
|
}
|
|
|
|
default:
|
|
break;
|
|
}
|
|
done:;
|
|
|
|
return offset+tvb_length_remaining(tvb, offset);
|
|
}
|
|
|
|
static gboolean
|
|
dissect_pim_addr(proto_tree* tree, tvbuff_t *tvb, int offset, enum pimv2_addrtype at,
|
|
const char* label, proto_item** ret_item, int hf_ip4, int hf_ip6, int *advance) {
|
|
guint8 af, et, flags, mask_len;
|
|
struct e_in6_addr ipv6;
|
|
guint32 ipv4;
|
|
proto_item* ti = NULL;
|
|
int len = 0;
|
|
|
|
af = tvb_get_guint8(tvb, offset);
|
|
if (af != AFNUM_INET && af != AFNUM_INET6) {
|
|
/*
|
|
* We don't handle the other formats, and addresses don't include
|
|
* a length field, so we can't even show them as raw bytes.
|
|
*/
|
|
return FALSE;
|
|
}
|
|
|
|
et = tvb_get_guint8(tvb, offset + 1);
|
|
if (et != 0) {
|
|
/*
|
|
* The only defined encoding type is 0, for the native encoding;
|
|
* again, as addresses don't include a length field, we can't
|
|
* even show addresses with a different encoding type as raw
|
|
* bytes.
|
|
*/
|
|
return FALSE;
|
|
}
|
|
|
|
switch (at) {
|
|
case pimv2_unicast:
|
|
switch (af) {
|
|
case AFNUM_INET:
|
|
len = 4;
|
|
ipv4 = tvb_get_ipv4(tvb, offset + 2);
|
|
if (label)
|
|
{
|
|
ti = proto_tree_add_ipv4_format(tree, hf_ip4, tvb, offset, 2 + len,
|
|
ipv4, "%s: %s", label, tvb_ip_to_str(tvb, offset + 2));
|
|
}
|
|
else
|
|
{
|
|
ti = proto_tree_add_ipv4(tree, hf_ip4, tvb, offset, 2 + len, ipv4);
|
|
}
|
|
break;
|
|
|
|
case AFNUM_INET6:
|
|
len = 16;
|
|
tvb_get_ipv6(tvb, offset + 2, &ipv6);
|
|
if (label)
|
|
{
|
|
ti = proto_tree_add_ipv6_format(tree, hf_ip6, tvb, offset, 2 + len,
|
|
(guint8 *)&ipv6, "%s: %s", label, tvb_ip6_to_str(tvb, offset + 2));
|
|
}
|
|
else
|
|
{
|
|
ti = proto_tree_add_ipv6(tree, hf_ip6, tvb, offset, 2 + len, (guint8 *)&ipv6);
|
|
}
|
|
break;
|
|
}
|
|
*advance = 2 + len;
|
|
break;
|
|
|
|
case pimv2_group:
|
|
mask_len = tvb_get_guint8(tvb, offset + 3);
|
|
switch (af) {
|
|
case AFNUM_INET:
|
|
len = 4;
|
|
ipv4 = tvb_get_ipv4(tvb, offset + 4);
|
|
if (label)
|
|
{
|
|
ti = proto_tree_add_ipv4_format(tree, hf_ip4, tvb, offset, 4 + len,
|
|
ipv4, "%s: %s", label, tvb_ip_to_str(tvb, offset + 4));
|
|
}
|
|
else
|
|
{
|
|
ti = proto_tree_add_ipv4(tree, hf_ip4, tvb, offset, 4 + len, ipv4);
|
|
}
|
|
|
|
proto_item_append_text(ti, "/%u", mask_len);
|
|
break;
|
|
|
|
case AFNUM_INET6:
|
|
len = 16;
|
|
tvb_get_ipv6(tvb, offset + 4, &ipv6);
|
|
if (label)
|
|
{
|
|
ti = proto_tree_add_ipv6_format(tree, hf_ip6, tvb, offset, 4 + len,
|
|
(guint8 *)&ipv6, "%s: %s", label, tvb_ip6_to_str(tvb, offset + 4));
|
|
}
|
|
else
|
|
{
|
|
ti = proto_tree_add_ipv6(tree, hf_ip6, tvb, offset, 4 + len, (guint8 *)&ipv6);
|
|
}
|
|
proto_item_append_text(ti, "/%u", mask_len);
|
|
break;
|
|
}
|
|
*advance = 4 + len;
|
|
break;
|
|
|
|
case pimv2_source:
|
|
flags = tvb_get_guint8(tvb, offset + 2);
|
|
mask_len = tvb_get_guint8(tvb, offset + 3);
|
|
switch (af) {
|
|
case AFNUM_INET:
|
|
len = 4;
|
|
ipv4 = tvb_get_ipv4(tvb, offset + 4);
|
|
if (label)
|
|
{
|
|
ti = proto_tree_add_ipv4_format(tree, hf_ip4, tvb, offset, 4 + len,
|
|
ipv4, "%s: %s", label, tvb_ip_to_str(tvb, offset + 4));
|
|
}
|
|
else
|
|
{
|
|
ti = proto_tree_add_ipv4_format_value(tree, hf_ip4, tvb, offset, 4 + len, ipv4,
|
|
"%s", tvb_ip_to_str(tvb, offset + 4));
|
|
}
|
|
proto_item_append_text(ti, "/%u", mask_len);
|
|
break;
|
|
|
|
case AFNUM_INET6:
|
|
len = 16;
|
|
tvb_get_ipv6(tvb, offset + 4, &ipv6);
|
|
if (label)
|
|
{
|
|
ti = proto_tree_add_ipv6_format(tree, hf_ip6, tvb, offset, 4 + len,
|
|
(guint8 *)&ipv6, "%s: %s", label, tvb_ip6_to_str(tvb, offset + 4));
|
|
}
|
|
else
|
|
{
|
|
ti = proto_tree_add_ipv6_format_value(tree, hf_ip6, tvb, offset, 4 + len, (guint8 *)&ipv6,
|
|
"%s", tvb_ip6_to_str(tvb, offset + 4));
|
|
}
|
|
proto_item_append_text(ti, "/%u", mask_len);
|
|
break;
|
|
}
|
|
if (flags) {
|
|
proto_item_append_text(ti, " (%s%s%s)",
|
|
flags & 0x04 ? "S" : "",
|
|
flags & 0x02 ? "W" : "",
|
|
flags & 0x01 ? "R" : "");
|
|
}
|
|
*advance = 4 + len;
|
|
break;
|
|
default:
|
|
return FALSE;
|
|
}
|
|
|
|
if (ret_item != NULL)
|
|
*ret_item = ti;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static const value_string type2vals[] = {
|
|
{ 0, "Hello" },
|
|
{ 1, "Register" },
|
|
{ 2, "Register-stop" },
|
|
{ 3, "Join/Prune" },
|
|
{ 4, "Bootstrap" },
|
|
{ 5, "Assert" },
|
|
{ 6, "Graft" },
|
|
{ 7, "Graft-Ack" },
|
|
{ 8, "Candidate-RP-Advertisement" },
|
|
{ 9, "State-Refresh" },
|
|
{ 0, NULL }
|
|
};
|
|
|
|
static const value_string pim_opt_vals[] = {
|
|
{1, "Hold Time"},
|
|
{2, "LAN Prune Delay"},
|
|
{18, "Deprecated and should not be used"},
|
|
{19, "DR Priority"},
|
|
{20, "Generation ID"},
|
|
{21, "State Refresh Capable"},
|
|
{22, "Bidir Capable"},
|
|
{24, "Address List"},
|
|
{65001, "Address List"}, /* old implementation */
|
|
{0, NULL}
|
|
};
|
|
|
|
/*
|
|
* For PIM v2, see RFC 4601, RFC 3973 and draft-ietf-pim-sm-v2-new-03
|
|
* (when PIM is run over IPv6, the rules for computing the PIM checksum
|
|
* from the draft in question, not from RFC 2362, should be used).
|
|
*/
|
|
static void
|
|
dissect_pim(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree) {
|
|
int offset = 0;
|
|
guint8 pim_typever;
|
|
guint length, pim_length;
|
|
guint16 pim_cksum, computed_cksum;
|
|
vec_t cksum_vec[4];
|
|
guint32 phdr[2];
|
|
const char *typestr;
|
|
proto_tree *pim_tree = NULL;
|
|
proto_item *ti;
|
|
proto_tree *pimopt_tree = NULL;
|
|
proto_item *tiopt;
|
|
|
|
col_set_str(pinfo->cinfo, COL_PROTOCOL, "PIM");
|
|
col_clear(pinfo->cinfo, COL_INFO);
|
|
|
|
pim_typever = tvb_get_guint8(tvb, 0);
|
|
|
|
switch (PIM_VER(pim_typever)) {
|
|
case 2:
|
|
typestr = val_to_str(PIM_TYPE(pim_typever), type2vals, "Unknown (%u)");
|
|
break;
|
|
case 1: /* PIMv1 - we should never see this */
|
|
default:
|
|
typestr = "Unknown";
|
|
break;
|
|
}
|
|
|
|
col_add_fstr(pinfo->cinfo, COL_PROTOCOL, "PIMv%d",
|
|
PIM_VER(pim_typever));
|
|
col_add_str(pinfo->cinfo, COL_INFO, typestr);
|
|
|
|
ti = proto_tree_add_item(tree, proto_pim, tvb, offset, -1, ENC_NA);
|
|
pim_tree = proto_item_add_subtree(ti, ett_pim);
|
|
|
|
proto_tree_add_item(pim_tree, hf_pim_version, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(pim_tree, hf_pim_type, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(pim_tree, hf_pim_res_bytes, tvb, offset + 1, 1, ENC_NA);
|
|
pim_cksum = tvb_get_ntohs(tvb, offset + 2);
|
|
length = tvb_length(tvb);
|
|
if (PIM_VER(pim_typever) == 2) {
|
|
/*
|
|
* Well, it's PIM v2, so we can check whether this is a Register
|
|
* message, and thus can figure out how much to checksum and
|
|
* whether to make the columns read-only.
|
|
*/
|
|
if (PIM_TYPE(pim_typever) == 1) {
|
|
/*
|
|
* Register message - the PIM header is 8 bytes long.
|
|
* Also set the columns non-writable. Otherwise the IPv4 or
|
|
* IPv6 dissector for the encapsulated packet that caused
|
|
* this register will overwrite the PIM info in the columns.
|
|
*/
|
|
pim_length = 8;
|
|
col_set_writable(pinfo->cinfo, FALSE);
|
|
} else {
|
|
/*
|
|
* Other message - checksum the entire packet.
|
|
*/
|
|
pim_length = tvb_reported_length(tvb);
|
|
}
|
|
} else {
|
|
/*
|
|
* We don't know what type of message this is, so say that
|
|
* the length is 0, to force it not to be checksummed.
|
|
*/
|
|
pim_length = 0;
|
|
}
|
|
if (!pinfo->fragmented && length >= pim_length) {
|
|
/*
|
|
* The packet isn't part of a fragmented datagram and isn't
|
|
* truncated, so we can checksum it.
|
|
*/
|
|
|
|
switch (pinfo->src.type) {
|
|
case AT_IPv4:
|
|
cksum_vec[0].ptr = tvb_get_ptr(tvb, 0, pim_length);
|
|
cksum_vec[0].len = pim_length;
|
|
computed_cksum = in_cksum(&cksum_vec[0], 1);
|
|
break;
|
|
case AT_IPv6:
|
|
/* Set up the fields of the pseudo-header. */
|
|
cksum_vec[0].ptr = (const guint8 *)pinfo->src.data;
|
|
cksum_vec[0].len = pinfo->src.len;
|
|
cksum_vec[1].ptr = (const guint8 *)pinfo->dst.data;
|
|
cksum_vec[1].len = pinfo->dst.len;
|
|
cksum_vec[2].ptr = (const guint8 *)&phdr;
|
|
phdr[0] = g_htonl(pim_length);
|
|
phdr[1] = g_htonl(IP_PROTO_PIM);
|
|
cksum_vec[2].len = 8;
|
|
cksum_vec[3].ptr = tvb_get_ptr(tvb, 0, pim_length);
|
|
cksum_vec[3].len = pim_length;
|
|
computed_cksum = in_cksum(&cksum_vec[0], 4);
|
|
break;
|
|
default:
|
|
/* PIM is available for IPv4 and IPv6 right now */
|
|
DISSECTOR_ASSERT_NOT_REACHED();
|
|
break;
|
|
}
|
|
|
|
if (computed_cksum == 0) {
|
|
proto_tree_add_uint_format_value(pim_tree, hf_pim_cksum, tvb,
|
|
offset + 2, 2, pim_cksum,
|
|
"0x%04x [correct]",
|
|
pim_cksum);
|
|
} else {
|
|
proto_tree_add_uint_format_value(pim_tree, hf_pim_cksum, tvb,
|
|
offset + 2, 2, pim_cksum,
|
|
"0x%04x [incorrect, should be 0x%04x]",
|
|
pim_cksum, in_cksum_shouldbe(pim_cksum, computed_cksum));
|
|
}
|
|
} else {
|
|
proto_tree_add_uint(pim_tree, hf_pim_cksum, tvb,
|
|
offset + 2, 2, pim_cksum);
|
|
}
|
|
|
|
offset += 4;
|
|
|
|
if (tvb_reported_length_remaining(tvb, offset) > 0) {
|
|
tiopt = proto_tree_add_text(pim_tree, tvb, offset, -1, "PIM options");
|
|
pimopt_tree = proto_item_add_subtree(tiopt, ett_pim_opts);
|
|
} else
|
|
goto done;
|
|
|
|
if (PIM_VER(pim_typever) != 2)
|
|
goto done;
|
|
|
|
/* version 2 decoder */
|
|
switch (PIM_TYPE(pim_typever)) {
|
|
case 0: /*hello*/
|
|
{
|
|
int opt_count = 0;
|
|
|
|
while (tvb_reported_length_remaining(tvb, offset) >= 2) {
|
|
guint16 hello_opt, opt_len;
|
|
guint16 opt_value;
|
|
proto_item *opt_item;
|
|
proto_tree *opt_tree;
|
|
|
|
opt_count++;
|
|
hello_opt = tvb_get_ntohs(tvb, offset);
|
|
opt_len = tvb_get_ntohs(tvb, offset + 2);
|
|
opt_item = proto_tree_add_text(pimopt_tree, tvb, offset, 4 + opt_len,
|
|
"Option %u: %s", hello_opt,
|
|
val_to_str(hello_opt, pim_opt_vals, "Unknown: %u"));
|
|
opt_tree = proto_item_add_subtree(opt_item, ett_pim_opt);
|
|
proto_tree_add_item(opt_tree, hf_pim_optiontype, tvb, offset, 2, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(opt_tree, hf_pim_optionlength, tvb, offset + 2, 2, ENC_BIG_ENDIAN);
|
|
|
|
switch(hello_opt) {
|
|
case 1: /* Hello Hold Time Option */
|
|
opt_value = tvb_get_ntohs(tvb, offset + 4);
|
|
proto_tree_add_uint_format_value(opt_tree, hf_pim_holdtime, tvb,
|
|
offset + 4, opt_len, opt_value,
|
|
"%us %s", opt_value, opt_value == 0 ? "(goodbye)" :
|
|
opt_value == 0xffff ? "(infinity)": "");
|
|
proto_item_append_text(opt_item, ": %us %s", opt_value,
|
|
opt_value == 0 ? "(goodbye)" :
|
|
opt_value == 0xffff ? "(infinity)": "");
|
|
break;
|
|
|
|
case 2: /* LAN Prune Delay Option */
|
|
proto_tree_add_item(opt_tree, hf_pim_t, tvb, offset + 4, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(opt_tree, hf_pim_propagation_delay, tvb, offset + 4, 2, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(opt_tree, hf_pim_override_interval, tvb, offset + 6, 2, ENC_BIG_ENDIAN);
|
|
proto_item_append_text(opt_item,
|
|
": T = %u, Propagation Delay = %ums, Override Interval = %ums",
|
|
tvb_get_guint8(tvb, offset + 4) & 0x80 ? 1 : 0,
|
|
tvb_get_ntohs(tvb, offset + 4) & 0x7fff,
|
|
tvb_get_ntohs(tvb, offset + 6));
|
|
break;
|
|
|
|
case 19: /* DR priority */
|
|
proto_tree_add_item(opt_tree, hf_pim_dr_priority, tvb, offset + 4, 4, ENC_BIG_ENDIAN);
|
|
proto_item_append_text(opt_item, ": %u", tvb_get_ntohl(tvb, offset + 4));
|
|
break;
|
|
|
|
case 20: /* Generation ID */
|
|
proto_tree_add_item(opt_tree, hf_pim_generation_id, tvb, offset + 4, 4, ENC_BIG_ENDIAN);
|
|
proto_item_append_text(opt_item, ": %u", tvb_get_ntohl(tvb, offset + 4));
|
|
break;
|
|
|
|
case 21: /* State Refresh Capable Option */
|
|
proto_tree_add_item(opt_tree, hf_pim_state_refresh_version, tvb, offset + 4, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(opt_tree, hf_pim_state_refresh_interval, tvb, offset + 5, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(opt_tree, hf_pim_state_refresh_reserved, tvb, offset + 6, 2, ENC_BIG_ENDIAN);
|
|
proto_item_append_text(opt_item, ": Version = %u, Interval = %us",
|
|
tvb_get_guint8(tvb, offset + 4),
|
|
tvb_get_guint8(tvb, offset + 5));
|
|
break;
|
|
|
|
case 24: /* address list */
|
|
case 65001: /* address list (old implementations) */
|
|
{
|
|
int i;
|
|
proto_tree *sub_tree = NULL;
|
|
proto_item *addrlist_option;
|
|
|
|
addrlist_option = proto_tree_add_text(opt_tree, tvb, offset, 4 + opt_len,
|
|
"%sAddress List (%u)",
|
|
hello_opt == 65001 ? "old " : "",
|
|
hello_opt);
|
|
sub_tree = proto_item_add_subtree(addrlist_option, ett_pim_opt);
|
|
for (i = offset + 4; i < offset + 4 + opt_len; ) {
|
|
int advance;
|
|
if (!dissect_pim_addr(sub_tree, tvb, i, pimv2_unicast, NULL, NULL,
|
|
hf_pim_address_list_ip4, hf_pim_address_list_ip6, &advance))
|
|
break;
|
|
i += advance;
|
|
}
|
|
break;
|
|
}
|
|
|
|
default:
|
|
if (opt_len)
|
|
proto_tree_add_item(opt_tree, hf_pim_optionvalue, tvb,
|
|
offset + 4, opt_len, ENC_NA);
|
|
break;
|
|
}
|
|
offset += 4 + opt_len;
|
|
}
|
|
proto_item_append_text(tiopt, ": %u", opt_count);
|
|
break;
|
|
}
|
|
|
|
case 1: /* register */
|
|
{
|
|
guint8 v_hl;
|
|
tvbuff_t *next_tvb;
|
|
proto_tree *flag_tree;
|
|
proto_item *tiflag;
|
|
|
|
tiflag = proto_tree_add_item(pimopt_tree, hf_pim_register_flag, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
flag_tree = proto_item_add_subtree(tiflag, ett_pim);
|
|
proto_tree_add_item(flag_tree, hf_pim_register_flag_border, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(flag_tree, hf_pim_register_flag_null_register, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
/*
|
|
* The rest of the packet is a multicast data packet.
|
|
*/
|
|
next_tvb = tvb_new_subset_remaining(tvb, offset);
|
|
|
|
/*
|
|
* It's an IP packet - determine whether it's IPv4 or IPv6.
|
|
*/
|
|
v_hl = tvb_get_guint8(tvb, offset);
|
|
switch((v_hl & 0xf0) >> 4) {
|
|
case 0: /* Null-Register dummy header.
|
|
* Has the same address family as the encapsulating PIM packet,
|
|
* e.g. an IPv6 data packet is encapsulated in IPv6 PIM packet.
|
|
*/
|
|
if (pinfo->src.type == AT_IPv4) {
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, -1, "IPv4 dummy header");
|
|
proto_tree_add_item(pimopt_tree, hf_pim_source_ip4, tvb, offset + 12, 4, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_group_ip4, tvb, offset + 16, 4, ENC_BIG_ENDIAN);
|
|
} else if (pinfo->src.type == AT_IPv6) {
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, -1, "IPv6 dummy header");
|
|
proto_tree_add_item(pimopt_tree, hf_pim_source_ip6, tvb, offset + 8, 16, ENC_NA);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_group_ip6, tvb, offset + 8 + 16, 16, ENC_NA);
|
|
} else
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, -1,
|
|
"Dummy header for an unknown protocol");
|
|
break;
|
|
case 4: /* IPv4 */
|
|
if (use_main_tree) {
|
|
call_dissector(ip_handle, next_tvb, pinfo, tree);
|
|
} else {
|
|
call_dissector(ip_handle, next_tvb, pinfo, pimopt_tree);
|
|
}
|
|
break;
|
|
case 6: /* IPv6 */
|
|
if (use_main_tree) {
|
|
call_dissector(ipv6_handle, next_tvb, pinfo, tree);
|
|
} else {
|
|
call_dissector(ipv6_handle, next_tvb, pinfo, pimopt_tree);
|
|
}
|
|
break;
|
|
default:
|
|
proto_tree_add_text(pimopt_tree, tvb, offset, -1,
|
|
"Unknown IP version %d", (v_hl & 0xf0) >> 4);
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
|
|
case 2: /* register-stop */
|
|
{
|
|
int advance;
|
|
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_group, NULL, NULL,
|
|
hf_pim_group_ip4, hf_pim_group_ip6, &advance))
|
|
break;
|
|
offset += advance;
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_unicast, NULL, NULL,
|
|
hf_pim_source_ip4, hf_pim_source_ip6, &advance))
|
|
break;
|
|
break;
|
|
}
|
|
|
|
case 3: /* join/prune */
|
|
case 6: /* graft */
|
|
case 7: /* graft-ack */
|
|
{
|
|
int advance;
|
|
int off;
|
|
int ngroup, i, njoin, nprune, j;
|
|
guint16 holdtime;
|
|
proto_tree *grouptree = NULL;
|
|
proto_item *tigroup;
|
|
proto_tree *subtree = NULL;
|
|
proto_item *tisub;
|
|
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_unicast, NULL, NULL,
|
|
hf_pim_upstream_neighbor_ip4, hf_pim_upstream_neighbor_ip6, &advance))
|
|
break;
|
|
|
|
offset += advance;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_res_bytes, tvb, offset, 1, ENC_NA);
|
|
offset += 1; /* skip reserved field */
|
|
|
|
ngroup = tvb_get_guint8(tvb, offset);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_numgroups, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
|
|
holdtime = tvb_get_ntohs(tvb, offset);
|
|
proto_tree_add_uint_format_value(pimopt_tree, hf_pim_holdtime, tvb,
|
|
offset, 2, holdtime,
|
|
"%us %s", holdtime,
|
|
holdtime == 0xffff ? "(infinity)": "");
|
|
offset += 2;
|
|
|
|
for (i = 0; i < ngroup; i++) {
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_group,
|
|
wmem_strdup_printf(wmem_packet_scope(), "Group %d", i), &tigroup,
|
|
hf_pim_group_ip4, hf_pim_group_ip6, &advance))
|
|
goto breakbreak3;
|
|
|
|
grouptree = proto_item_add_subtree(tigroup, ett_pim);
|
|
offset += advance;
|
|
|
|
njoin = tvb_get_ntohs(tvb, offset);
|
|
nprune = tvb_get_ntohs(tvb, offset + 2);
|
|
tisub = proto_tree_add_item(grouptree, hf_pim_numjoins, tvb,
|
|
offset, 2, ENC_BIG_ENDIAN);
|
|
subtree = proto_item_add_subtree(tisub, ett_pim);
|
|
off = offset + 4;
|
|
for (j = 0; j < njoin; j++) {
|
|
if (!dissect_pim_addr(subtree, tvb, off, pimv2_source, NULL, NULL,
|
|
hf_pim_join_ip4, hf_pim_join_ip6, &advance))
|
|
goto breakbreak3;
|
|
|
|
off += advance;
|
|
}
|
|
|
|
tisub = proto_tree_add_item(grouptree, hf_pim_numprunes, tvb,
|
|
offset + 2, 2, ENC_BIG_ENDIAN);
|
|
subtree = proto_item_add_subtree(tisub, ett_pim);
|
|
for (j = 0; j < nprune; j++) {
|
|
if (!dissect_pim_addr(subtree, tvb, off, pimv2_source, NULL, NULL,
|
|
hf_pim_prune_ip4, hf_pim_prune_ip6, &advance))
|
|
goto breakbreak3;
|
|
|
|
off += advance;
|
|
}
|
|
offset = off;
|
|
}
|
|
breakbreak3:
|
|
break;
|
|
}
|
|
|
|
case 4: /* bootstrap */
|
|
{
|
|
int advance;
|
|
int i, j;
|
|
int frpcnt;
|
|
guint16 holdtime;
|
|
proto_tree *grouptree = NULL;
|
|
proto_item *tigroup;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_fragment_tag, tvb,
|
|
offset, 2, ENC_BIG_ENDIAN);
|
|
offset += 2;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_hash_mask_len, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
proto_tree_add_item(pimopt_tree, hf_pim_bsr_priority, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_unicast, NULL, NULL,
|
|
hf_pim_bsr_ip4, hf_pim_bsr_ip6, &advance))
|
|
break;
|
|
offset += advance;
|
|
|
|
for (i = 0; tvb_reported_length_remaining(tvb, offset) > 0; i++) {
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_group,
|
|
wmem_strdup_printf(wmem_packet_scope(), "Group %d", i), &tigroup,
|
|
hf_pim_group_ip4, hf_pim_group_ip6, &advance))
|
|
goto breakbreak4;
|
|
|
|
grouptree = proto_item_add_subtree(tigroup, ett_pim);
|
|
offset += advance;
|
|
|
|
proto_tree_add_item(grouptree, hf_pim_rp_count, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
frpcnt = tvb_get_guint8(tvb, offset);
|
|
proto_tree_add_item(grouptree, hf_pim_frp_count, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 3;
|
|
|
|
for (j = 0; j < frpcnt; j++) {
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_unicast,
|
|
wmem_strdup_printf(wmem_packet_scope(), "RP %d", j), NULL,
|
|
hf_pim_rp_ip4, hf_pim_rp_ip6, &advance))
|
|
|
|
goto breakbreak4;
|
|
offset += advance;
|
|
|
|
holdtime = tvb_get_ntohs(tvb, offset);
|
|
proto_tree_add_uint_format_value(grouptree, hf_pim_holdtime, tvb,
|
|
offset, 2, holdtime,
|
|
"%us %s", holdtime,
|
|
holdtime == 0xffff ? "(infinity)": "");
|
|
offset += 2;
|
|
proto_tree_add_item(grouptree, hf_pim_priority, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 2; /* also skips reserved field */
|
|
}
|
|
}
|
|
|
|
breakbreak4:
|
|
break;
|
|
}
|
|
|
|
case 5: /* assert */
|
|
{
|
|
int advance;
|
|
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_group,
|
|
NULL, NULL,
|
|
hf_pim_group_ip4, hf_pim_group_ip6, &advance))
|
|
break;
|
|
offset += advance;
|
|
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_unicast,
|
|
NULL, NULL,
|
|
hf_pim_source_ip4, hf_pim_source_ip6, &advance))
|
|
break;
|
|
offset += advance;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_rpt, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_metric_pref, tvb,
|
|
offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_metric, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
/* offset += 4;*/
|
|
break;
|
|
}
|
|
|
|
case 8: /* Candidate-RP-Advertisement */
|
|
{
|
|
int advance;
|
|
int pfxcnt;
|
|
guint16 holdtime;
|
|
int i;
|
|
|
|
pfxcnt = tvb_get_guint8(tvb, offset);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_prefix_count, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
proto_tree_add_item(pimopt_tree, hf_pim_priority, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
holdtime = tvb_get_ntohs(tvb, offset);
|
|
proto_tree_add_uint_format_value(pimopt_tree, hf_pim_holdtime, tvb,
|
|
offset, 2, holdtime,
|
|
"%us %s", holdtime,
|
|
holdtime == 0xffff ? "(infinity)": "");
|
|
offset += 2;
|
|
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_unicast,
|
|
NULL, NULL,
|
|
hf_pim_rp_ip4, hf_pim_rp_ip6, &advance))
|
|
break;
|
|
offset += advance;
|
|
|
|
for (i = 0; i < pfxcnt; i++) {
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_group,
|
|
wmem_strdup_printf(wmem_packet_scope(), "Group %d", i), NULL,
|
|
hf_pim_group_ip4, hf_pim_group_ip6, &advance))
|
|
goto breakbreak8;
|
|
offset += advance;
|
|
}
|
|
breakbreak8:
|
|
break;
|
|
}
|
|
|
|
case 9: /* State-Refresh */
|
|
{
|
|
int advance;
|
|
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_group,
|
|
NULL, NULL,
|
|
hf_pim_group_ip4, hf_pim_group_ip6, &advance))
|
|
break;
|
|
offset += advance;
|
|
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_unicast,
|
|
NULL, NULL,
|
|
hf_pim_source_ip4, hf_pim_source_ip6, &advance))
|
|
break;
|
|
offset += advance;
|
|
|
|
if (!dissect_pim_addr(pimopt_tree, tvb, offset, pimv2_unicast,
|
|
NULL, NULL,
|
|
hf_pim_originator_ip4, hf_pim_originator_ip6, &advance))
|
|
break;
|
|
offset += advance;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_rpt, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_metric_pref, tvb,
|
|
offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_metric, tvb, offset, 4, ENC_BIG_ENDIAN);
|
|
offset += 4;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_mask_len, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_ttl, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_prune_indicator, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_prune_now, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
proto_tree_add_item(pimopt_tree, hf_pim_assert_override, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
offset += 1;
|
|
|
|
proto_tree_add_item(pimopt_tree, hf_pim_interval, tvb, offset, 1, ENC_BIG_ENDIAN);
|
|
/*offset += 1;*/
|
|
|
|
break;
|
|
}
|
|
|
|
default:
|
|
break;
|
|
}
|
|
done:;
|
|
}
|
|
|
|
void
|
|
proto_register_pim(void)
|
|
{
|
|
static hf_register_info hf[] =
|
|
{
|
|
{ &hf_pim_version,
|
|
{ "Version", "pim.version",
|
|
FT_UINT8, BASE_DEC, NULL, 0xf0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_type,
|
|
{ "Type", "pim.type",
|
|
FT_UINT8, BASE_DEC, VALS(type2vals), 0x0f,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_code,
|
|
{ "Code", "pim.code",
|
|
FT_UINT8, BASE_DEC, VALS(type1vals), 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_cksum,
|
|
{ "Checksum", "pim.cksum",
|
|
FT_UINT16, BASE_HEX, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_res_bytes,
|
|
{ "Reserved byte(s)", "pim.res_bytes",
|
|
FT_BYTES, BASE_NONE, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_optiontype,
|
|
{ "Type", "pim.optiontype",
|
|
FT_UINT16, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_optionlength,
|
|
{ "Length", "pim.optionlength",
|
|
FT_UINT16, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_optionvalue,
|
|
{ "Unknown", "pim.optionvalue",
|
|
FT_BYTES, BASE_NONE, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_register_flag,
|
|
{ "Flags", "pim.register_flag",
|
|
FT_UINT32, BASE_HEX, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_register_flag_border,
|
|
{ "Border", "pim.register_flag.border",
|
|
FT_BOOLEAN, 32, TFS(&tfs_yes_no), 0x80000000,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_register_flag_null_register,
|
|
{ "Null-Register", "pim.register_flag.null_register",
|
|
FT_BOOLEAN, 32, TFS(&tfs_yes_no), 0x40000000,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_mode,
|
|
{ "Mode", "pim.mode",
|
|
FT_UINT8, BASE_DEC, VALS(pimv1_modevals), 0xf0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_holdtime,
|
|
{ "Holdtime", "pim.holdtime",
|
|
FT_UINT16, BASE_DEC, NULL, 0x0,
|
|
"The amount of time a receiver must keep the neighbor "
|
|
"reachable, in seconds.", HFILL }
|
|
},
|
|
{ &hf_pim_numgroups,
|
|
{ "Num Groups", "pim.numgroups",
|
|
FT_UINT16, BASE_DEC, NULL, 0x0,
|
|
"Number of multicast group sets contained in the message.",
|
|
HFILL }
|
|
},
|
|
{ &hf_pim_numjoins,
|
|
{ "Num Joins", "pim.numjoins",
|
|
FT_UINT16, BASE_DEC, NULL, 0x0,
|
|
"Number of joined sources.", HFILL }
|
|
},
|
|
{ &hf_pim_numprunes,
|
|
{ "Num Prunes", "pim.numprunes",
|
|
FT_UINT16, BASE_DEC, NULL, 0x0,
|
|
"Number of pruned sources.", HFILL }
|
|
},
|
|
{ &hf_pim_t,
|
|
{ "T", "pim.t",
|
|
FT_BOOLEAN, 8, NULL, 0x80,
|
|
"Specifies the ability of the sending router to disable joins "
|
|
"suppression.", HFILL }
|
|
},
|
|
{ &hf_pim_propagation_delay,
|
|
{ "Propagation Delay", "pim.propagation_delay",
|
|
FT_UINT16, BASE_DEC, NULL, 0x07fff,
|
|
"Units are milli-seconds", HFILL }
|
|
},
|
|
{ &hf_pim_override_interval,
|
|
{ "Override Interval", "pim.override_interval",
|
|
FT_UINT16, BASE_DEC, NULL, 0x0,
|
|
"Units are milli-seconds", HFILL }
|
|
},
|
|
{ &hf_pim_dr_priority,
|
|
{ "DR Priority", "pim.dr_priority",
|
|
FT_UINT32, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_generation_id,
|
|
{ "Generation ID", "pim.generation_id",
|
|
FT_UINT32, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_state_refresh_version,
|
|
{ "Version", "pim.state_refresh_version",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_state_refresh_interval,
|
|
{ "Interval", "pim.state_refresh_interval",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
"Units in seconds.", HFILL }
|
|
},
|
|
{ &hf_pim_state_refresh_reserved,
|
|
{ "Reserved", "pim.state_refresh_reserved",
|
|
FT_UINT16, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_rpt,
|
|
{ "RP Tree", "pim.rpt",
|
|
FT_BOOLEAN, 8, NULL, 0x80,
|
|
"Set to 1 for assert(*,G) messages and 0 for assert(S,G) "
|
|
"messages.", HFILL }
|
|
},
|
|
{ &hf_pim_metric_pref ,
|
|
{ "Metric Preference", "pim.metric_pref",
|
|
FT_UINT32, BASE_DEC, NULL, 0x7fffffff,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_metric ,
|
|
{ "Metric", "pim.metric",
|
|
FT_UINT32, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_prune_indicator ,
|
|
{ "Prune indicator", "pim.prune_indicator",
|
|
FT_BOOLEAN, 8, TFS(&tfs_set_notset), 0x80,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_prune_now ,
|
|
{ "Prune now", "pim.prune_now",
|
|
FT_BOOLEAN, 8, TFS(&tfs_set_notset), 0x40,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_assert_override ,
|
|
{ "Assert override", "pim.assert_override",
|
|
FT_BOOLEAN, 8, TFS(&tfs_set_notset), 0x20,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_source_ip4 ,
|
|
{ "Source", "pim.source",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_source_ip6 ,
|
|
{ "Source", "pim.source",
|
|
FT_IPv6, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_group_ip4 ,
|
|
{ "Group", "pim.group",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_group_mask_ip4 ,
|
|
{ "Mask", "pim.group_mask",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_group_ip6 ,
|
|
{ "Group", "pim.group",
|
|
FT_IPv6, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_upstream_neighbor_ip4 ,
|
|
{ "Upstream-neighbor", "pim.upstream_neighbor",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_upstream_neighbor_ip6 ,
|
|
{ "Upstream-neighbor", "pim.upstream_neighbor",
|
|
FT_IPv6, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_join_ip4 ,
|
|
{ "IP address", "pim.join_ip",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_join_ip6 ,
|
|
{ "IP address", "pim.join_ip",
|
|
FT_IPv6, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_prune_ip4 ,
|
|
{ "IP address", "pim.prune_ip",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_prune_ip6 ,
|
|
{ "IP address", "pim.prune_ip",
|
|
FT_IPv6, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_address_list_ip4 ,
|
|
{ "Address", "pim.address_list",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_address_list_ip6 ,
|
|
{ "Address", "pim.address_list",
|
|
FT_IPv6, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_bsr_ip4 ,
|
|
{ "BSR", "pim.bsr",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_bsr_ip6 ,
|
|
{ "BSR", "pim.bsr",
|
|
FT_IPv6, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_rp_ip4 ,
|
|
{ "RP", "pim.rp",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_rp_ip6 ,
|
|
{ "RP", "pim.rp",
|
|
FT_IPv6, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_originator_ip4 ,
|
|
{ "Originator", "pim.originator",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_originator_ip6 ,
|
|
{ "Originator", "pim.originator",
|
|
FT_IPv6, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_group_address_ip4 ,
|
|
{ "Group Address", "pim.group_address",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_rp_address_ip4 ,
|
|
{ "RP Address", "pim.rp_address",
|
|
FT_IPv4, BASE_NONE, NULL, 0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_fragment_tag,
|
|
{ "Fragment tag", "pim.fragment_tag",
|
|
FT_UINT16, BASE_HEX, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_hash_mask_len,
|
|
{ "Hash mask len", "pim.hash_mask_len",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_bsr_priority,
|
|
{ "BSR priority", "pim.bsr_priority",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_rp_count,
|
|
{ "RP count", "pim.rp_count",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_frp_count,
|
|
{ "FRP count", "pim.frp_count",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_priority,
|
|
{ "Priority", "pim.priority",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_prefix_count,
|
|
{ "Prefix-count", "pim.prefix_count",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_mask_len,
|
|
{ "Masklen", "pim.mask_len",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_ttl,
|
|
{ "TTL", "pim.ttl",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
{ &hf_pim_interval,
|
|
{ "Interval", "pim.interval",
|
|
FT_UINT8, BASE_DEC, NULL, 0x0,
|
|
NULL, HFILL }
|
|
},
|
|
};
|
|
|
|
static gint *ett[] = {
|
|
&ett_pim,
|
|
&ett_pim_opts, /* Tree for all options */
|
|
&ett_pim_opt /* Tree for each option */
|
|
};
|
|
|
|
module_t *pim_module;
|
|
|
|
proto_pim = proto_register_protocol("Protocol Independent Multicast",
|
|
"PIM", "pim");
|
|
proto_register_field_array(proto_pim, hf, array_length(hf));
|
|
proto_register_subtree_array(ett, array_length(ett));
|
|
|
|
pim_module = prefs_register_protocol(proto_pim, NULL);
|
|
prefs_register_bool_preference(pim_module, "payload_tree",
|
|
"PIM payload shown on main tree",
|
|
"Whether the PIM payload is shown off of the main tree or encapsulated within the PIM options",
|
|
&use_main_tree);
|
|
|
|
}
|
|
|
|
void
|
|
proto_reg_handoff_pim(void)
|
|
{
|
|
dissector_handle_t pim_handle;
|
|
|
|
pim_handle = create_dissector_handle(dissect_pim, proto_pim);
|
|
dissector_add_uint("ip.proto", IP_PROTO_PIM, pim_handle);
|
|
|
|
/*
|
|
* Get handles for the IPv4 and IPv6 dissectors.
|
|
*/
|
|
ip_handle = find_dissector("ip");
|
|
ipv6_handle = find_dissector("ipv6");
|
|
}
|