Imported Upstream version 0.02
This commit is contained in:
70
README
Normal file
70
README
Normal file
@@ -0,0 +1,70 @@
|
||||
Net-IP-CMatch version 0.02
|
||||
==========================
|
||||
|
||||
NAME
|
||||
Net::IP::CMatch - Efficiently match IP addresses against IP ranges with
|
||||
C.
|
||||
|
||||
INSTALLATION
|
||||
To install this module type the following:
|
||||
|
||||
perl Makefile.PL
|
||||
make
|
||||
make test
|
||||
make install
|
||||
|
||||
DEPENDENCIES
|
||||
This module requires these other modules and libraries:
|
||||
|
||||
perl >= 5.6.1
|
||||
|
||||
SYNOPSIS
|
||||
use Net::IP::CMatch;
|
||||
my $match = match_ip( $ip_addr, $match_ip1, $match_ip2, ... );
|
||||
|
||||
DESCRIPTION
|
||||
Net::IP::CMatch is based upon, and does the same thing as
|
||||
Net::IP::Match. The unconditionally exported subroutine 'match_ip'
|
||||
determines if the ip to match ( first argument ) matches any of the
|
||||
subsequent ip arguments. Match arguments may be absolute quads, as
|
||||
'127.0.0.1', or contain mask bits as '111.245.76.248/29'. A true return
|
||||
value indicates a match. It was written in C, rather than a macro,
|
||||
preprocessed through Perl's source filter mechanism ( as is
|
||||
Net::IP::Match ), so that the ip arguments could be traditional perl
|
||||
scalars. The C code is lean and mean ( IMHO ).
|
||||
|
||||
Example in Apache/mod_perl
|
||||
I use this module in my Apache server's mod_perl DB logging script to
|
||||
determine if an incoming IP is 'remote' or 'local'. First, I set up some
|
||||
variables in httpd.conf:
|
||||
|
||||
PerlSetvar DBILogger_local_ips '222.234.52.192/29'
|
||||
PerlAddvar DBILogger_local_ips '111.245.76.248/29'
|
||||
PerlAddvar DBILogger_local_ips '10.0.0.0/24'
|
||||
PerlAddvar DBILogger_local_ips '172.16.0.0/12'
|
||||
PerlAddvar DBILogger_local_ips '192.168.0.0/16'
|
||||
PerlAddvar DBILogger_local_ips '127.0.0.1'
|
||||
|
||||
These are the ip addresses I want to be considered local. In the
|
||||
mod_perl module:
|
||||
|
||||
my @local_ips = $r->dir_config( "DBILogger_local_ips" );
|
||||
my $local = match_ip( $incoming_ip, @local_ips );
|
||||
|
||||
Now $local is just that, and I set the database key accordingly.
|
||||
|
||||
EXPORT
|
||||
'match_ip', unconditionally.
|
||||
|
||||
SEE ALSO
|
||||
Net::IP::Match by Marcel Gr<47>nauer.
|
||||
|
||||
AUTHOR
|
||||
Beau E. Cox, <beaucox@hawaii.rr.com>
|
||||
|
||||
COPYRIGHT AND LICENSE
|
||||
Copyright (C) 2004 by Beau E. Cox
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
under the same terms as Perl itself, either Perl version 5.6.1 or, at
|
||||
your option, any later version of Perl 5 you may have available.
|
||||
Reference in New Issue
Block a user