# -sam k (commport5@lucidx.com)

sub bootp_decode {
 my ($pkt) = @_;
 my ($w, %bootpa);
 ($bootpa{opcode},$bootpa{hwtype},$bootpa{hwaddlen},$bootpa{hopcount},$bootpa{transid},$bootpa{secs},$w,$bootpa{clntip},$bootpa{yourip},$bootpa{srvrip},$bootpa{gtwyip},$bootpa{clhwadd},$bootpa{srvrhost},$bootpa{bootfile},$bootpa{vendorspecs})
 = unpack('CCCCNnnNNNNN4N16N32N16', $pkt);
 return %bootpa;
}

1;