#!/usr/bin/perl5.8.4
#
# fping replacement that skips unresolvable hosts.
#

$running_under_sara = 1;
require 'perl/get_host.pl';
require 'config/paths.pl';

$timeout = 5;

for (@ARGV) { system("$PING $_ $timeout") if &get_host_name($_); }
