# -sam k (commport5@lucidx.com)

sub arp_encode {
 my ($pkt) = @_;
 my %arpa = (
	opcode	=>	2,
	htype	=>	1,
	sha	=>	,
	proto	=>	0x0800,
	spa	=>	,
	tha	=>	ffffffffffff,
	tpa	=>	00000000,
	plen	=>	4,
	hlen	=>	6,
 );

#etha{src_mac} - ffffffffffff
#etha{dest_mac} - 00c0f049d8a0
#etha{type} - 2054
#arpa{opcode} - 2
#arpa{htype} - 1
#arpa{sha} - 00c0f049d8a0
#arpa{proto} - 2048
#arpa{spa} - 3fc7c242
#arpa{tha} - ffffffffffff
#arpa{tpa} - 00000000
#arpa{plen} - 4
#arpa{hlen} - 6
#01:46:16.020541 arp reply lx is-at 0:c0:f0:49:d8:a0
 $pkt = pack('nnCCnH12H8H12H8', $arpa{htype},$arpa{proto},$arpa{hlen},$arpa{plen},$arpa{opcode},$arpa{sha},$arpa{spa},$arpa{tha},$arpa{tpa});
 return $pkt;
}

1;