File Coverage

blib/lib/NET/IPFilterSimple.pm

Criterion	Covered	Total	%
statement	3	42	7.1
branch	0	12	0.0
condition	0	6	0.0
subroutine	1	4	25.0
pod	0	2	0.0
total	4	66	6.0

package NET::IPFilterSimple;

use strict;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use NET::IPFilterSimple ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
	isValid
	_init
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
	isValid
	_init
);

our $VERSION = '1.2';


sub new(){

	my $class   	= shift;
	my %args 	= ref($_[0])?%{$_[0]}:@_;
	my $self 	= \%args;
	bless $self, $class;
	$self->_init();
	return $self;

}; # sub new(){


sub isValid(){

	my $self 		= shift;
	my $IPtoCheck		= shift;
	my $RangesArrayRef	= $self->{'_IPRANGES_ARRAY_REF'};
	my $howmany		= scalar( @{$RangesArrayRef} );

	$IPtoCheck 		=~ s/\.//g;

	for ( my $count=0; $count<=$howmany; $count++) {

		my ($RangFrom, $RangTo) = split("-", $RangesArrayRef->[$count]);

		if ( $IPtoCheck >= $RangFrom && $IPtoCheck <= $RangTo ) {
			return 0;
		};

	}; # for ( my $count=0; $count<=$howmany; $count++) {

	return 1;	# if ip not found in ipfilter.dat its valid

}; # sub isValid(){



sub _init(){

	my $self 	= shift;
	my $file	= $self->{'ipfilter'};
	die "$self->_init() - Fatal Error no ipfilter.dat given" if ( length $file < 1 );

	my @IP_Ranges 	= ();

	open(RH,"<$file") or die("$self -> _init( $file ) Reading Failed");
	while (defined( my $entry = )) {
		chomp($entry);

		next if ( $entry =~ /^#/g || $entry =~ /#/g );
		my ($IPRange, undef, $DESC) 	= split(",", $entry);
		next if ( $DESC =~ /\[BG\]FreeSP/ig );	# ignore not used ips
		my ($IP_Start,$IP_End) 		= split("-", $IPRange );

		$IP_Start =~ s/^\s+//;
		$IP_Start =~ s/\s+$//;
		$IP_End =~ s/^\s+//;
		$IP_End =~ s/\s+$//;

		$IP_Start 	=~ s/\.//g;
		$IP_End		=~ s/\.//g;

		push(@IP_Ranges, "$IP_Start-$IP_End");


	}; # while (defined( my $entry = )) {
	close RH;

	$self->{'_IPRANGES_ARRAY_REF'} = \@IP_Ranges;

	return $self;

}; # sub _init(){



# Preloaded methods go here.

1;
__END__