# -sam k (commport5@lucidx.com)

sub ospf_decode {
 my ($pkt) = @_;
 my ($w, %ospfa);
 ($ospfa{version},$ospfa{type},$ospfa{pktlen},$ospfa{routrid},$ospfa{areaid},$ospfa{cksum},$ospfa{autype},$ospfa{auth})
 = unpack('CCC2C4C4C2C2C8', $pkt);
 return %ospfa;
}

1;