view release on metacpan or  search on metacpan

t/client.t  view on Meta::CPAN

    if ($result) {
	print "ok $testNum$msg\n";
    } else {
	print "not ok $testNum$msg\n";
    }
    $result;
}


# Check whether the Nessus Server is alive
my $cfg = require ".status";
my($host, $port) = ($cfg->{'nessus_host'}, $cfg->{'nessus_port'});
my $sock = IO::Socket::INET->new('PeerAddr' => $host,
				 'PeerPort' => $port,
				 'Proto' => 'tcp');
if (!$sock) {
    print STDERR ("Cannot connect to the Nessus server at host $host,",
		  " port $port.\n");
    print STDERR ("Please check, whether the server is running and the",
		  " above settings are correct.\n");
    print "1..0\n";