File Coverage

blib/lib/SysAdmin.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod			n/a
total	16	37	43.2

package SysAdmin;

use 5.008;

our $VERSION = '0.11';

#use Moose;
use IO::Socket;
use Carp;

## For SysAdmin::Date
use POSIX qw(strftime);

=head2 _default_socket_ports

=cut

sub _check_socket {
	my ($host, $port) = @_;

	my $test_port  = SysAdmin::_default_socket_ports($port,"port");
	my $test_proto = SysAdmin::_default_socket_ports($port,"proto");

	my $socket_object = new IO::Socket::INET (
		PeerAddr => "$host",
		PeerPort => "$test_port",
		Proto    => "$test_proto",
		);

	if($socket_object){
		return 1;
	}
	else{
		return 0;
	}
}

=head2 _default_socket_ports

=cut

sub _default_socket_ports {
	my ($port, $proto) = @_;

	my %known_port_hash = (
		                    80 => {
								"port"  => "80",
	                            "proto" => "tcp"
							},
		                    5432 => {
								"port"  => "5432",
	                            "proto" => "tcp"
							},
		                    3306 => {
								"port"  => "3306",
	                            "proto" => "tcp"
							},
		                    1521 => {
								"port"  => "1521",
	                            "proto" => "tcp"
							},
		                    161 => {
								"port"  => "161",
	                            "proto" => "udp"
							},
		                    25 => {
								"port"  => "23",
	                            "proto" => "tcp"
							}
						  );

	return $known_port_hash{$port}{$proto};
}

=head2 generate_random_string

=cut

sub _generate_random_string {

	## Use my $random_password = &generate_random_string("8");

	my ($length_of_randomstring) = @_;

	my $random_string = undef;

	my @chars=('a'..'z','A'..'Z','0'..'9','_');
	foreach (1..$length_of_randomstring) {
		# rand @chars will generate a random
		# number between 0 and scalar @chars
		$random_string.=$chars[rand @chars];
	}
	return $random_string;
}

1;
__END__