145 lines
4.5 KiB
Plaintext
145 lines
4.5 KiB
Plaintext
Net-Connection-Match
|
|
|
|
Provides a easy to use method for checking if a Net::Connection
|
|
object mathes a series of checks.
|
|
|
|
Currently can do matching based off of the following.
|
|
|
|
* CIDR
|
|
* Command
|
|
* PctCPU
|
|
* Ports
|
|
* Protocol
|
|
* State
|
|
* RegexPTR
|
|
* PTR
|
|
* UID
|
|
* Username
|
|
* WChan
|
|
|
|
use Net::Connection::Match;
|
|
use Net::Connection;
|
|
|
|
my $connection_args={
|
|
foreign_host=>'10.0.0.1',
|
|
foreign_port=>'22',
|
|
local_host=>'10.0.0.2',
|
|
local_port=>'12322',
|
|
proto=>'tcp4',
|
|
state=>'LISTEN',
|
|
};
|
|
my $conn=Net::Connection->new( $connection_args );
|
|
|
|
my %args=(
|
|
checks=>[
|
|
{
|
|
type=>'Ports',
|
|
invert=>0,
|
|
args=>{
|
|
ports=>[
|
|
'22',
|
|
],
|
|
lports=>[
|
|
'53',
|
|
],
|
|
fports=>[
|
|
'12345',
|
|
],
|
|
}
|
|
},
|
|
{
|
|
type=>'Protos',
|
|
invert=>0,
|
|
args=>{
|
|
protos=>[
|
|
'tcp4',
|
|
],
|
|
}
|
|
}
|
|
]
|
|
);
|
|
|
|
my $checker;
|
|
eval{
|
|
$checker=Net::Connection::Match->new( \%args );
|
|
} or die "New failed with...".$@;
|
|
|
|
if ( $check->match( $conn ) ){
|
|
print "It matched!\n";
|
|
}
|
|
|
|
INSTALLATION
|
|
|
|
To install this module, run the following commands:
|
|
|
|
perl Makefile.PL
|
|
make
|
|
make test
|
|
make install
|
|
|
|
SUPPORT AND DOCUMENTATION
|
|
|
|
After installing, you can find documentation for this module with the
|
|
perldoc command.
|
|
|
|
perldoc Net::Connection::Match
|
|
|
|
You can also look for information at:
|
|
|
|
RT, CPAN's request tracker (report bugs here)
|
|
https://rt.cpan.org/NoAuth/Bugs.html?Dist=Net-Connection-Match
|
|
|
|
AnnoCPAN, Annotated CPAN documentation
|
|
http://annocpan.org/dist/Net-Connection-Match
|
|
|
|
CPAN Ratings
|
|
https://cpanratings.perl.org/d/Net-Connection-Match
|
|
|
|
Search CPAN
|
|
https://metacpan.org/release/Net-Connection-Match
|
|
|
|
Git Repo
|
|
https://gitea.eesdp.org/vvelox/Net-Connection-Match
|
|
|
|
|
|
LICENSE AND COPYRIGHT
|
|
|
|
Copyright (C) 2019 Zane C. Bowers-Hadley
|
|
|
|
This program is free software; you can redistribute it and/or modify it
|
|
under the terms of the the Artistic License (2.0). You may obtain a
|
|
copy of the full license at:
|
|
|
|
L<http://www.perlfoundation.org/artistic_license_2_0>
|
|
|
|
Any use, modification, and distribution of the Standard or Modified
|
|
Versions is governed by this Artistic License. By using, modifying or
|
|
distributing the Package, you accept this license. Do not use, modify,
|
|
or distribute the Package, if you do not accept this license.
|
|
|
|
If your Modified Version has been derived from a Modified Version made
|
|
by someone other than you, you are nevertheless required to ensure that
|
|
your Modified Version complies with the requirements of this license.
|
|
|
|
This license does not grant you the right to use any trademark, service
|
|
mark, tradename, or logo of the Copyright Holder.
|
|
|
|
This license includes the non-exclusive, worldwide, free-of-charge
|
|
patent license to make, have made, use, offer to sell, sell, import and
|
|
otherwise transfer the Package with respect to any patent claims
|
|
licensable by the Copyright Holder that are necessarily infringed by the
|
|
Package. If you institute patent litigation (including a cross-claim or
|
|
counterclaim) against any party alleging that the Package constitutes
|
|
direct or contributory patent infringement, then this Artistic License
|
|
to you shall terminate on the date that such litigation is filed.
|
|
|
|
Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER
|
|
AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
|
|
THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
|
|
PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY
|
|
YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR
|
|
CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR
|
|
CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE,
|
|
EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|