2017-03-29 22:19:31 +01:00
|
|
|
# IPXWrapper test suite
|
2023-09-09 10:14:03 +01:00
|
|
|
# Copyright (C) 2017-2023 Daniel Collins <solemnwarning@solemnwarning.net>
|
2017-03-29 22:19:31 +01:00
|
|
|
#
|
|
|
|
# This program is free software; you can redistribute it and/or modify it
|
|
|
|
# under the terms of the GNU General Public License version 2 as published by
|
|
|
|
# the Free Software Foundation.
|
|
|
|
#
|
|
|
|
# This program is distributed in the hope that it will be useful, but WITHOUT
|
|
|
|
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
|
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
|
|
|
|
# more details.
|
|
|
|
#
|
|
|
|
# You should have received a copy of the GNU General Public License along with
|
|
|
|
# this program; if not, write to the Free Software Foundation, Inc., 51
|
|
|
|
# Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
package IPXWrapper::Capture::IPXLLC;
|
|
|
|
|
|
|
|
use Net::Pcap;
|
|
|
|
use NetPacket::Ethernet;
|
|
|
|
use NetPacket::IPX;
|
|
|
|
|
|
|
|
sub new
|
|
|
|
{
|
|
|
|
my ($class, $dev) = @_;
|
|
|
|
|
|
|
|
my $err;
|
2017-08-20 22:59:49 +01:00
|
|
|
my $pcap = Net::Pcap::pcap_open_live($dev, 2000, 0, 1, \$err)
|
2017-03-29 22:19:31 +01:00
|
|
|
or die("Cannot open device $dev: $err");
|
|
|
|
|
2023-09-09 10:14:03 +01:00
|
|
|
Net::Pcap::pcap_setnonblock($pcap, 1, \$err);
|
|
|
|
|
2017-03-29 22:19:31 +01:00
|
|
|
return bless(\$pcap, $class);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub read_available
|
|
|
|
{
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
my @packets = ();
|
|
|
|
|
|
|
|
Net::Pcap::pcap_dispatch($$self, -1, sub
|
|
|
|
{
|
|
|
|
my ($user_data, $header, $packet) = @_;
|
|
|
|
|
|
|
|
my $ether = NetPacket::Ethernet->decode($packet);
|
|
|
|
|
|
|
|
if($ether->{type} <= 1500 && substr($ether->{data}, 0, 5) eq "\x{E0}\x{E0}\x{03}\x{FF}\x{FF}")
|
|
|
|
{
|
|
|
|
my $ipx = NetPacket::IPX->decode(substr($ether->{data}, 3));
|
|
|
|
|
|
|
|
my %packet = (
|
|
|
|
src_mac => $ether->{src_mac},
|
|
|
|
dst_mac => $ether->{dest_mac},
|
|
|
|
|
|
|
|
tc => $ipx->{tc},
|
|
|
|
type => $ipx->{type},
|
|
|
|
|
|
|
|
src_network => $ipx->{src_network},
|
|
|
|
src_node => $ipx->{src_node},
|
|
|
|
src_socket => $ipx->{src_socket},
|
|
|
|
|
|
|
|
dst_network => $ipx->{dest_network},
|
|
|
|
dst_node => $ipx->{dest_node},
|
|
|
|
dst_socket => $ipx->{dest_socket},
|
|
|
|
|
|
|
|
data => $ipx->{data},
|
|
|
|
);
|
|
|
|
|
|
|
|
# Skip if the frame length is wrong.
|
|
|
|
return if(($ether->{type} - 33) != length($packet{data}));
|
|
|
|
|
|
|
|
push(@packets, \%packet);
|
|
|
|
}
|
|
|
|
}, undef);
|
|
|
|
|
|
|
|
return @packets;
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|