Compare commits
No commits in common. "master" and "pristine-tar" have entirely different histories.
master
...
pristine-t
98
CMatch.xs
98
CMatch.xs
|
|
@ -1,98 +0,0 @@
|
|||
#define PERL_NO_GET_CONTEXT /* we want efficiency */
|
||||
#include "EXTERN.h"
|
||||
#include "perl.h"
|
||||
#include "XSUB.h"
|
||||
|
||||
#include "ppport.h"
|
||||
|
||||
#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
|
||||
static unsigned long parse_ip_and_mask (char *cip, unsigned long *ipm)
|
||||
{
|
||||
int i1, i2, i3, i4, m;
|
||||
unsigned long iip, mask;
|
||||
char *c;
|
||||
|
||||
i1 = i2 = i3 = i4 = m = 0;
|
||||
c = cip;
|
||||
|
||||
// skip leading non-numerics
|
||||
for ( ; *c && (*c < '0' || *c > '9'); c++)
|
||||
;
|
||||
// load first node
|
||||
for ( ; *c >= '0' && *c <= '9'; c++)
|
||||
i1 = i1 * 10 + (*c - '0');
|
||||
// skip non-numerics
|
||||
for ( ; *c && (*c < '0' || *c > '9'); c++)
|
||||
;
|
||||
// load second node
|
||||
for ( ; *c >= '0' && *c <= '9'; c++)
|
||||
i2 = i2 * 10 + (*c - '0');
|
||||
// skip non-numerics
|
||||
for ( ; *c && (*c < '0' || *c > '9'); c++)
|
||||
;
|
||||
// load third node
|
||||
for ( ; *c >= '0' && *c <= '9'; c++)
|
||||
i3 = i3 * 10 + (*c - '0');
|
||||
// skip non-numerics
|
||||
for ( ; *c && (*c < '0' || *c > '9'); c++)
|
||||
;
|
||||
// load forth node
|
||||
for ( ; *c >= '0' && *c <= '9'; c++)
|
||||
i4 = i4 * 10 + (*c - '0');
|
||||
// skip non-numerics
|
||||
for ( ; *c && (*c < '0' || *c > '9'); c++)
|
||||
;
|
||||
// load mask
|
||||
for ( ; *c >= '0' && *c <= '9'; c++)
|
||||
m = m * 10 + (*c - '0');
|
||||
|
||||
// build numeric ip address
|
||||
iip =
|
||||
(i1 << 24) |
|
||||
((i2 & 0xff) << 16) |
|
||||
((i3 & 0xff) << 8) |
|
||||
(i4 & 0xff);
|
||||
|
||||
// mask it
|
||||
mask = (m) ? 0xffffffff << ((32 - m) & 31) : 0xffffffff;
|
||||
iip &= mask;
|
||||
if (ipm)
|
||||
*ipm = mask;
|
||||
|
||||
return iip;
|
||||
}
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
|
||||
MODULE = Net::IP::CMatch PACKAGE = Net::IP::CMatch
|
||||
|
||||
int
|
||||
match_ip (ip, ...)
|
||||
char *ip
|
||||
|
||||
PREINIT:
|
||||
int i;
|
||||
unsigned long iip, mip, mask;
|
||||
STRLEN n_a;
|
||||
|
||||
CODE:
|
||||
RETVAL = 0;
|
||||
iip = parse_ip_and_mask (ip, &mask);
|
||||
for (i = 1; i < items; i++) {
|
||||
mip = parse_ip_and_mask ((char *) SvPV (ST (i), n_a), &mask);
|
||||
if ((iip & mask) == mip) {
|
||||
RETVAL = 1;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
OUTPUT:
|
||||
RETVAL
|
||||
|
||||
|
||||
|
||||
6
Changes
6
Changes
|
|
@ -1,6 +0,0 @@
|
|||
Revision history for Perl extension Net::IP::CMatch.
|
||||
|
||||
0.02 Tue Dec 21 06:33:43 2004
|
||||
- original version; created by h2xs 1.23 with options
|
||||
-A -b 5.6.1 Net::IP::CMatch
|
||||
|
||||
9
MANIFEST
9
MANIFEST
|
|
@ -1,9 +0,0 @@
|
|||
Changes
|
||||
CMatch.xs
|
||||
Makefile.PL
|
||||
MANIFEST
|
||||
ppport.h
|
||||
README
|
||||
t/Net-IP-CMatch.t
|
||||
lib/Net/IP/CMatch.pm
|
||||
META.yml Module meta-data (added by MakeMaker)
|
||||
10
META.yml
10
META.yml
|
|
@ -1,10 +0,0 @@
|
|||
# http://module-build.sourceforge.net/META-spec.html
|
||||
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
|
||||
name: Net-IP-CMatch
|
||||
version: 0.02
|
||||
version_from: lib/Net/IP/CMatch.pm
|
||||
installdirs: site
|
||||
requires:
|
||||
|
||||
distribution_type: module
|
||||
generated_by: ExtUtils::MakeMaker version 6.17
|
||||
17
Makefile.PL
17
Makefile.PL
|
|
@ -1,17 +0,0 @@
|
|||
use 5.006001;
|
||||
use ExtUtils::MakeMaker;
|
||||
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
|
||||
# the contents of the Makefile that is written.
|
||||
WriteMakefile(
|
||||
NAME => 'Net::IP::CMatch',
|
||||
VERSION_FROM => 'lib/Net/IP/CMatch.pm', # finds $VERSION
|
||||
PREREQ_PM => {}, # e.g., Module::Name => 1.1
|
||||
($] >= 5.005 ? ## Add these new keywords supported since 5.005
|
||||
(ABSTRACT_FROM => 'lib/Net/IP/CMatch.pm', # retrieve abstract from module
|
||||
AUTHOR => 'Beau E. Cox <beaucox@hawaii.rr.com>') : ()),
|
||||
LIBS => [''], # e.g., '-lm'
|
||||
DEFINE => '', # e.g., '-DHAVE_SOMETHING'
|
||||
INC => '-I.', # e.g., '-I. -I/usr/include/other'
|
||||
# Un-comment this if you add C files to link with later:
|
||||
# OBJECT => '$(O_FILES)', # link all the C files too
|
||||
);
|
||||
70
README
70
README
|
|
@ -1,70 +0,0 @@
|
|||
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ü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.
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
libnet-ip-cmatch-perl (0.02-1) unstable; urgency=low
|
||||
|
||||
* Initial Release.
|
||||
|
||||
-- Mario Fetka <mario.fetka@gmail.com> Fri, 15 Sep 2017 15:30:50 +0200
|
||||
|
|
@ -1 +0,0 @@
|
|||
9
|
||||
|
|
@ -1,23 +0,0 @@
|
|||
Source: libnet-ip-cmatch-perl
|
||||
Section: perl
|
||||
Priority: optional
|
||||
Maintainer: Mario Fetka <mario.fetka@gmail.com>
|
||||
Build-Depends: debhelper (>= 9.20120312~),
|
||||
perl
|
||||
Standards-Version: 3.9.6
|
||||
Homepage: https://metacpan.org/release/Net-IP-CMatch
|
||||
|
||||
Package: libnet-ip-cmatch-perl
|
||||
Architecture: any
|
||||
Depends: ${misc:Depends}, ${perl:Depends}, ${shlibs:Depends}
|
||||
Description: unknown
|
||||
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 ).
|
||||
.
|
||||
This description was automagically extracted from the module by dh-make-perl.
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
|
||||
Source: https://metacpan.org/release/Net-IP-CMatch
|
||||
Upstream-Contact: unknown
|
||||
Upstream-Name: Net-IP-CMatch
|
||||
DISCLAIMER: This copyright info was automatically extracted
|
||||
from the perl module. It may not be accurate, so you better
|
||||
check the module sources in order to ensure the module for its
|
||||
inclusion in Debian or for general legal information. Please,
|
||||
if licensing information is incorrectly generated, file a bug
|
||||
on dh-make-perl.
|
||||
NOTE: Don't forget to remove this disclaimer once you are happy
|
||||
with this file.
|
||||
|
||||
Files: *
|
||||
Copyright: unknown
|
||||
License:
|
||||
|
||||
Files: debian/*
|
||||
Copyright: 2017, Mario Fetka <mario.fetka@gmail.com>
|
||||
License: Artistic or GPL-1+
|
||||
|
||||
License: Artistic
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the Artistic License, which comes with Perl.
|
||||
.
|
||||
On Debian systems, the complete text of the Artistic License can be
|
||||
found in `/usr/share/common-licenses/Artistic'.
|
||||
|
||||
License: GPL-1+
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 1, or (at your option)
|
||||
any later version.
|
||||
.
|
||||
On Debian systems, the complete text of version 1 of the GNU General
|
||||
Public License can be found in `/usr/share/common-licenses/GPL-1'.
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
#!/usr/bin/make -f
|
||||
|
||||
%:
|
||||
dh $@
|
||||
|
|
@ -1 +0,0 @@
|
|||
3.0 (quilt)
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
---
|
||||
Archive: CPAN
|
||||
Contact: unknown
|
||||
Name: Net-IP-CMatch
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
version=3
|
||||
https://metacpan.org/release/Net-IP-CMatch .*/Net-IP-CMatch-v?(\d[\d.-]*)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$
|
||||
|
|
@ -1,87 +0,0 @@
|
|||
package Net::IP::CMatch;
|
||||
|
||||
use 5.006001;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
require Exporter;
|
||||
|
||||
our @ISA = qw(Exporter);
|
||||
|
||||
our @EXPORT = qw(
|
||||
match_ip
|
||||
);
|
||||
|
||||
our $VERSION = '0.02';
|
||||
|
||||
require XSLoader;
|
||||
XSLoader::load('Net::IP::CMatch', $VERSION);
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Net::IP::CMatch - Efficiently match IP addresses against IP ranges with C.
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
use Net::IP::CMatch;
|
||||
my $match = match_ip( $ip_addr, $match_ip1, $match_ip2, ... );
|
||||
|
||||
=head1 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 ).
|
||||
|
||||
=head2 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.
|
||||
|
||||
=head2 EXPORT
|
||||
|
||||
'match_ip', unconditionally.
|
||||
|
||||
=head1 SEE ALSO
|
||||
|
||||
L<Net::IP::Match> by Marcel GrE<uuml>nauer.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Beau E. Cox, E<lt>beaucox@hawaii.rr.comE<gt>
|
||||
|
||||
=head1 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.
|
||||
|
||||
=cut
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
b477bbad2c6ad78037a1d8fe63d216e637ad173b
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use FindBin qw($Bin);
|
||||
|
||||
use Test::More tests => 4;
|
||||
|
||||
################# test 1 (should succeed) #######################
|
||||
BEGIN { use_ok('Net::IP::CMatch') };
|
||||
|
||||
my $match;
|
||||
|
||||
################# test 2 (should fail) #######################
|
||||
|
||||
$match = match_ip( qw( 207.175.219.202 10.0.0.0/8 99.99.99 ) );
|
||||
ok( ! $match, "check non-match" );
|
||||
|
||||
################# test 3 (should succeed) #######################
|
||||
|
||||
$match = match_ip( qw( 207.175.219.202 10.0.0.0/8
|
||||
192.168.0.0/16 207.175.219.200/29 ) );
|
||||
ok( $match, "check match" );
|
||||
|
||||
################# test 4 (should succeed) #######################
|
||||
|
||||
my @ips = split / /, '10.0.0.0/8 192.168.0.0/16 207.175.219.200/29';
|
||||
$match = match_ip( "'207.175.219.202xxx'", @ips );
|
||||
ok( $match, "check another match" );
|
||||
Loading…
Reference in New Issue