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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
|
package Net::IPNetMember;
use strict;
use Carp;
use Socket;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
use AutoLoader 'AUTOLOAD';
@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.
@EXPORT = qw(
);
$VERSION = '1.08';
# Preloaded methods go here.
sub new
{
my $class = shift;
my $NetGroup = {};
bless $NetGroup, $class;
return $NetGroup;
}
sub find
{
my ($obj, $ipin) = @_;
my $ip = unpack("N", inet_aton($ipin));
foreach my $pre ( reverse 0 .. 32 )
{
my $mask = unpack("N", pack("B32", "1"x($pre)."0"x32 ) );
my $net = $ip & $mask;
my $network = inet_ntoa(pack("N",$net));
if( defined $obj->{'Net'}[$pre]{$net} )
{
return $obj->{'Net'}[$pre]{$net};
}
}
return;
}
sub print
{
my ($obj) = @_;
my $status = 0; # FALSE
my ($ref, $name, $network, $mask);
foreach my $pre ( 0 .. 32 )
{
foreach $ref ( keys %{$obj->{'Net'}[$pre]} )
{
my $name = $obj->{'Net'}[$pre]{$ref};
my $net = inet_ntoa( pack( "N", $ref ) );
print "Net: $net/$pre - Name: $name\n";
$status = 1; # TRUE
}
}
return($status);
}
sub add
{
my ($obj, $grp_name, $netin, $maskin) = @_;
my($status, @table, $pre, $ip );
$status = 0; # FALSE
# if mask given: get prefix
if( defined $maskin )
{
if( verif_ip_is_ok($maskin) )
{
if( unpack( "B32", inet_aton($maskin) ) =~ /^(1*)0*$/ )
{
$pre = length($1);
}
else
{
carp "invalid subnet mask $maskin: no prefix!";
}
}
else
{
carp "illegal netmask $maskin";
}
}
elsif( $netin =~ /([0-9\.]+)\/([0-9]+)/ )
{
$netin = $1;
$pre = $2;
}
else
{
$pre=32;
}
if ( verif_ip_is_ok($netin) )
{
# compute network from net and mask
my $net = unpack("N", inet_aton($netin) );
my $mask = unpack("N", pack("B32", "1"x($pre)."0"x32 ) );
$net &= $mask;
$obj->{'Net'}[$pre]{$net}=$grp_name;
$status = 1; # TRUE
}
else
{
carp "illegal network $netin";
}
return($status);
}
sub verif_ip_is_ok
{
my($ip) = @_;
my $status = 0; # FALSE
if ( $ip =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/ )
{
if ( $1 >= 0 and $1 <= 255 and
$2 >= 0 and $2 <= 255 and
$3 >= 0 and $3 <= 255 and
$4 >= 0 and $4 <= 255 ) # IP is OK
{
$status = 1; # TRUE
}
}
return($status);
}
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
=head1 NAME
Net::IPNetMember - Perl extension to determine in which network an IP address belongs.
=head1 SYNOPSIS
use Net::IPNetMember;
$ipnets = new Net::IPNetMember();
$ipnets->add(group name, network block, netmask);
$ipnets->add(group name, network block/prefix);
$IPNet = $ipnets->find(IP);
=head1 DESCRIPTION
Net::IPNetMember creates groups of IP networks and allows searching
for specific IPs, giving the name of the network group they belong to.
For example:
use Net::IPNetMember;
$ipnets = new Net::IPNetMember();
$ipnets->add("New York", "210.210.10.0", "255.255.255.0");
$ipnets->add("New York", "210.210.11.0", "255.255.255.0");
$ipnets->add("New York", "210.210.12.0", "255.255.254.0");
$ipnets->add("Rio de Janeiro", "200.255.49.128", "255.255.255.128");
$ipnets->add("Rio de Janeiro", "200.255.50.0", "255.255.252.0");
$ipnets->add("Rio de Janeiro", "200.255.60.0", "255.255.255.0");
$ipnets->add("RfC1918", "192.168.0.0/16");
$ipnets->add("RfC1918", "172.16.0.0/12");
$ipnets->add("RfC1918", "10.0.0.0/8");
$ipnets->add("MyLocalNetwork", "192.168.215.0/24");
$City = $ipnets->find("200.255.60.10"); # $City will be set to "Rio de Janeiro"
$rfcaddress = $ipnets->find("192.168.10.160"); # $rfcaddress will be "RfC1918"
$rfcaddress = $ipnets->find("192.168.215.31"); # $rfcaddress will be "MyLocalNetwork"
# it's the most specific network
if ( $City = $ipnets->find("210.210.9.5") ) # Will be false
=head1 COPYRIGHT
Copyright (C) 2001 Marc Haber. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.
Marc Haber <mh+debian-packages@zugschlus.de>
This is a fork from Net::GrpNetworks, Copyright (c) 1997 Andre
Rodrigues Viegas <andre.viegas@writeme.com.br>. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
I offered Andre my code to incorporate into Net::GrpNetworks, but
unfortunately, he stopped answering to my e-mails before anything
could be accomplished. Hence, I had to fork. I still think that both
code bases should be brought together again, but responsive upstream
is needed for that.
=head1 AUTHOR
Marc Haber <mh+debian-packages@zugschlus.de>. Taken from Andre's
original man page
|
