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 BackupPC-users@lists.sourceforge.net List: https://lists.sourceforge.net/lists/listinfo/backuppc-users Wiki: http://backuppc.wiki.sourceforge.net Project: http://backuppc.sourceforge.net/