view release on metacpan or  search on metacpan

examples/ipsfss_receive.pl  view on Meta::CPAN

# (c) 2007 Alexander Klink
# released under the same terms as Perl itself

use strict;
use warnings;
use bytes;

use Net::Pcap qw( loop );
use Acme::RFC4824;

sub process_packet {
    my ($user_data, $header, $packet) = @_;
    # assuming the packet is ethernet
    my $packet_type = unpack('H*', substr($packet, 12, 2));
    if ($packet_type ne '0800') {
        # not an IP packet, ignore it
        return;
    }
    print "Processing packet ...\n";
    print "Packet length: " . (length($packet) - 14) . "\n";
    my $sfss = Acme::RFC4824->new();

examples/ipsfss_receive.pl  view on Meta::CPAN

}

my $filter;
Net::Pcap::compile($pcap, \$filter, $filter_str, 0, 0);
if ($err) {
    die "Can not compile filter '$filter_str'";
}
Net::Pcap::setfilter($pcap, $filter);

my $user_data;
loop($pcap, -1, \&process_packet, $user_data);

exit 1;