#! /usr/bin/perl
#     check ny's node info
#                                                  Tomo.M(2006/06/05)

use W_con;
use W_util;

my ($addr, $host, $port);

chomp($addr = $ARGV[0]);

($host, $port) = split(/:/, $addr);
if ($host ne '' && $port ne '') {
    if (check_priv($host)) {
	print "\nskipping $host $port...\n";
	exit;
    }
    print "\nConnect to $host:$port ...\n";
    my $node = W_con->new($addr);
    if (defined($node)) {
	$node->check();
    }
}
