File Coverage

blib/lib/IO/Socket/PortState/cPanel.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	21	71.4

package IO::Socket::PortState::cPanel;

use strict;
use warnings;
use IO::Socket::PortState;

require Exporter;
our @ISA = qw(Exporter);

our @EXPORT_OK = qw(check_ports check_inbound check_outbound $inbound $outbound);

our $VERSION = '0.02';

our $inbound = {
   tcp => {
      20 => {
         name => 'FTP'
      },
      21 => {
         name => 'FTP'
      },
      22 => {
         name => 'SSH'
      },
      25 => {
         name => 'SMTP'
      },
      26 => {
         name => 'SMTP'
      },
      53 => {
         name => 'DNS'
      },
      80 => {
         name => 'HTTP'
      },
      110 => {
         name => 'POP3'
      },
      143 => {
         name => 'imap4'
      },
      443 => {
         name => 'HTTPS'
      },
      465 => {
         name => 'SMTP TLS/SSL'
      },
      993 => {
         name => 'imap4 SSL'
      },
      995 => {
         name => 'POP3 SSL'
      },
      2082 => {
         name => 'cPanel'
      },
      2083 => {
         name => 'cPanel SSL'
      },
      2086 => {
         name => 'WHM'
      },
      2087 => {
         name => 'WHM SSL'
      },
      2095 => {
         name => 'Webmail'
      },
      2096 => {
         name => 'Webmail SSL'
      },
      3306 => {
         name => 'MySQL'
      },
      6666 => {
         name => 'chat'
      }
   },
   udp => {
      21 => {
         name => 'FTP'
      },
      53 => {
         name => 'DNS'
      },
      465 => {
         name => 'SMTP TLS/SSL'
      },
      873 => {
         name => 'rsync'
      }
   }
};

our $outbound = {
   tcp => {
      21 => {
         name => 'FTP',
      },
      25 => {
         name => 'SMTP'
      },
      26 => {
         name => 'SMTP'
      },
      37 => {
         name => 'rdate'
      },
      43 => {
         name => 'whois'
      },
      53 => {
         name => 'DNS'
      },
      80 => {
         name => 'HTTP'
      },
      113 => {
         name => 'ident'
      },
      465 => {
         name => 'SMTP TLS/SSL'
      },
      873 => {
         name => 'rsync'
      },
      2089 => {
         name => 'cplisc'
      },
      3306 => {
         name => 'MySQL'
      }
   },
   udp => {
      20 => {
         name => 'FTP'
      },
      21 => {
         name => 'FTP'
      },
      53 => {
         name => 'DNS'
      },
      465 => {
         name => 'SMTP TLS/SSL'
      },
      873 => {
         name => 'rsync'
      }
   }
};

sub check_ports { IO::Socket::PortState::check_ports(@_) }

sub check_inbound { IO::Socket::PortState::check_ports(shift(), shift(), $inbound, @_) }

sub check_outbound { IO::Socket::PortState::check_ports(shift(), shift(), $outbound, @_) }

1;

__END__