vvelox
/
Net-Connection-Match
mirror of https://github.com/VVelox/Net-Connection-Match.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ports now respects *

This commit is contained in:
Zane C. B-H 2019-07-31 01:48:13 -05:00
parent 477905f567
commit b1c35defe0
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Net-Connection-Match/lib/Net/Connection/Match/Ports.pm
View File

@ -10,11 +10,11 @@ Net::Connection::Match::Ports - Runs a basic port check against a Net::Connectio
=head1 VERSION
Version 0.0.0
Version 0.1.0
=cut
our $VERSION = '0.0.0';
our $VERSION = '0.1.0';
=head1 SYNOPSIS
@ -130,6 +130,8 @@ sub new{
while (defined( $args{ports}[$ports_int] )) {
if ( $args{ports}[$ports_int] =~ /^[0-9]+$/ ){
$self->{ports}{ $args{ports}[$ports_int] }= $args{ports}[$ports_int];
}elsif( $args{ports}[$ports_int] =~ /^\*$/ ){
$self->{ports}{'*'}='*';
}else{
my $port_number=(getservbyname( $args{ports}[$ports_int] , '' ))[2];
@ -150,6 +152,8 @@ sub new{
while (defined( $args{lports}[$ports_int] )) {
if ( $args{lports}[$ports_int] =~ /^[0-9]+$/ ){
$self->{lports}{ $args{lports}[$ports_int] }= $args{lports}[$ports_int];
}elsif( $args{lports}[$ports_int] =~ /^\*$/ ){
$self->{lports}{'*'}='*';
}else{
my $port_number=(getservbyname( $args{lports}[$ports_int] , '' ))[2];
@ -170,6 +174,8 @@ sub new{
while (defined( $args{fports}[$ports_int] )) {
if ( $args{fports}[$ports_int] =~ /^[0-9]+$/ ){
$self->{fports}{ $args{fports}[$ports_int] }= $args{fports}[$ports_int];
}elsif( $args{fports}[$ports_int] =~ /^\*$/ ){
$self->{fports}{'*'}='*';
}else{
my $port_number=(getservbyname( $args{fports}[$ports_int] , '' ))[2];