# -sam k (commport5@lucidx.com)

sub igmp_decode {
 my ($pkt) = @_;
 my ($w, %igmpa);
 ($w, $igmpa{subtype}, $igmpa{cksum}, $igmpa{group_addr}, $igmpa{data}) = unpack('CCnNa*', $pkt);
 $igmpa{version} = ($w & 0xf0) >> 4;
 $igmpa{type} = $w & 0x0f;
 $igmpa{group_addr} = to_dotquad($igmpa{group_addr});
 return %igmpa;
}

1;