I've been using this script, written such that backuppc can parse the
output.
#!/usr/bin/perl -w
use strict;
use Net::Ping;
die "usage: $0 port hostname\n" unless(@ARGV == 2);
my $serv = shift @ARGV;
my $host = shift @ARGV;
my $p = Net::Ping->new("tcp", 30);
$p->hires();
if($serv =~ /^\d+/) {
$p->{port_num} = $serv;
} else {
$p->{port_num} = getservbyname($serv, "tcp");
}
my @res = $p->ping($host);
if(@res) {
my ($succ,$rtt,$ip) = @res;
if($succ) {
my $ms = int ($rtt*1000);
print "$host [$ip] - $serv - time=$ms ms\n";
} else {
exit -1;
}
}
# ./ping_tcp http yahoo.com
yahoo.com [66.94.234.13] - 80 - time=12 ms
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
BackupPC-users mailing list
[email protected]
List: https://lists.sourceforge.net/lists/listinfo/backuppc-users
Wiki: http://backuppc.wiki.sourceforge.net
Project: http://backuppc.sourceforge.net/
