# -sam k (commport5@lucidx.com)

sub rip_decode {
 my ($pkt) = @_;
 my ($w, %ripa);
 ($ripa{command}, $ripa{version}, $w, $ripa{addfmly}, $w, $ripa{ipaddr}, $w, $ripa{metric}, $ripa{routes})
 = unpack('CCnnnNN2Na*', $pkt);
 return %ripa;
}

1;