# -sam k (commport5@lucidx.com)

sub rip_2_decode {
 my ($pkt) = @_;
 my ($w, %rip2a);
 ($rip2a{command},$rip2a{version},$rip2a{routingdom},$rip2a{addfmly},$rip2a{routetag},$rip2a{ipaddr},$rip2a{subnetmask},$rip2a{nexthopip},$rip2a{metric},$rip2a{routes})
 = unpack('CCnnnNNNNa*', $pkt);
 return %rip2a;
}

1;