use strict;

package mship;

use IO::Socket::INET;
use Socket;
use Carp;


##############
sub connection
##############
{
    my ( $ip, $tcp_port ) = @_;


    my $ipadd       = Socket::inet_aton($IP) or
                         croak "$IP is not valid\n";

    my $port_name   = getservbyport($TCP_PORT, 'tcp') or "unknown";

    my $remote_name = gethostbyaddr( $ipadd, 2 ) or
                         croak "Unable to resolve hostname for $IP\n";

    my %stats = (
        'ip'          => $ip,
        'port'        => $tcp_port,
        'port_name'   => $port_name,
        'remote_name' => $remote_name,
        'status'      => accepts_conn($IP, $TCP_PORT) ? "Up" : "Down"
    );

    print "sub connection port = $TCP_PORT IP = $IP\n";
    return %stats;
}


#############
sub accepts_conn
#############
{
    my ( $ip, $tcp_port ) = @_;

    my $sock = IO::Socket::INET ->new(
        Timeout  => 5,
        PeerAddr => $ip,
        PeerPort => $tcp_port,
        Proto    => 'tcp',
    );

    return $sock ? 1 : 0;
}


1;