The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SENGER / NET-IPFilter_V1.1 / examples / ipfilter_oop.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

              
#!/usr/bin/perl
use Benchmark;
use Data::Dumper;
use NET::IPFilter;
#system("clear");
########
#### INIT()
########
# start timer
my $start_init = Benchmark->new();
# my $obj = NET::IPFilter->new(      ipfilter        => 'http://www.bluetack.co.uk/config/pipfilter.dat.gz',
my $obj = NET::IPFilter->new(        ipfilter        => '/home/thecerial/firewall/ipfilter.dat',
                                tmpdir          => '/var/tmp',
                                force_init      => '0'
);
# end timer
my $end_init = Benchmark->new();
# calculate difference
my $diff_init = timediff($end_init, $start_init);
# report
print "_init():: Time taken was ", timestr($diff_init, 'all'), " seconds\n";
         
#######
### CHECK()
#######
# 199.196.016.000-199.196.031.255,090,[L1]N.Y.S. Department of
my $IP          = "199.196.016.200";
my $start_chk   = Benchmark->new();
my $isValid     = $obj->isValid($IP);        #  1 not to be blocked | 0 to be blocked
my $end_chk     = Benchmark->new();
my $diff_chk    = timediff($end_chk, $start_chk);
# report
print "_check():: Time taken was ", timestr($diff_chk, 'all'), " seconds\n";
if ( $isValid == 1 ) {
        print "$IP dont need to be blocked because it is not in ipfilter.dat\n";
} elsif( $isValid == 0 ) {
        print "$IP MUST be blocked because it is in ipfilter.dat\n";
};
exit;
#######
# 222.228.226.192-222.228.226.255,090,[L1]Movie Full,inc
my $s           = $obj->_ip2long("222.228.226.192");
my $e           = $obj->_ip2long("222.228.226.255");
my $IPtoCheck   = $obj->_ip2long("222.228.226.210"); 
print "FROM: $s \n";
print "TO  : $e \n";
print "CHK : $IPtoCheck\n";
print "FLG : " . check(). " \n";
my $RangesArrayRef = $obj->{'_IPRANGES_ARRAY_REF'};
sub check(){
for ( my $count=0; $count<=$howmany; $count++) {
                 
        my ($RangFrom, $RangTo) = split("-", $RangesArrayRef->[$count]);
         
        if ( $IPtoCheck > $RangFrom && $IPtoCheck < $RangTo ) {
                return 0;       # to be blocked
        } elsif ( $IPtoCheck <=> $RangFrom || $IPtoCheck <=> $RangTo ) {
                return 0;       # to be blocked
        }; # if ( $IPtoCheck > $RangTo || $IPtoCheck < $RangFrom ) {
        $count++;
}; # for ( my $count=0; $count<=$howmany; $count++) {
};