# -sam k (commport5@lucidx.com)

sub ethernet_decode {
 my ($pkt) = @_;
 my ($sm_lo, $sm_hi, $dm_lo, $dm_hi, %etha);
 ($sm_hi, $sm_lo, $dm_hi, $dm_lo, $etha{type}, $etha{data}) = unpack('NnNnna*', $pkt);
 $etha{dest_mac} = sprintf("%08x%04x", $sm_hi, $sm_lo);
 $etha{src_mac} = sprintf("%08x%04x", $dm_hi, $dm_lo);
 return %etha;
}

1;