Net::IP::CMatch 0.02

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 ).<br />Example in Apache/mod_perl<br /><br />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:<br /><br /> PerlSetvar DBILogger_local_ips '222.234.52.192/29'<br /> PerlAddvar DBILogger_local_ips '111.245.76.248/29'<br /> PerlAddvar DBILogger_local_ips '10.0.0.0/24'<br /> PerlAddvar DBILogger_local_ips '172.16.0.0/12'<br /> PerlAddvar DBILogger_local_ips '192.168.0.0/16'<br /> PerlAddvar DBILogger_local_ips '127.0.0.1'<br /><br />These are the ip addresses I want to be considered local. In the mod_perl module:<br /><br /> my @local_ips = $r->dir_config( "DBILogger_local_ips" );<br /> my $local = match_ip( $incoming_ip, @local_ips );<br /><br />Now $local is just that, and I set the database key accordingly.<br />EXPORT<br /><br />'match_ip', unconditionally.

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Apache,  Arguments,  Dbilogger Local Ips,  Httpdconf,  Incoming,  Local,  Local Ips,  Logging,  Match,  Mod Perl,  Module,  Netipmatch,  Perladdvar,  Script,  Server,  Unconditionally,  Variables
Users rating:	0/10