arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

remove fping_hostnames routine, unused and do not want a dependency on fping in xCAT

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13121 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2012-06-18 19:27:04 +00:00
parent f0f7f3246c
commit 3e27aa6e51
1 changed files with 0 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
perl-xCAT/xCAT/DSHCore.pm
View File

@ -575,55 +575,6 @@ sub pipe_handler_buffer
return $eof_reached;
}
#---------------------------------------------------------------------------
=head3
fping_hostnames
Executes fping on a given list of hostnames and returns a list of those
hostnames that did not respond
Arguments:
@hostnames - list of hostnames to execute for fping
Returns:
@no_response - list of hostnames that did not respond
undef if fping is not installed
Globals:
None
Error:
None
Example:
@bad_hosts = xCAT::DSHCore->fping_hostnames(@host_list);
Comments:
=cut
#---------------------------------------------------------------------------
sub fping_hostnames
{
my ($class, @hostnames) = @_;
my $fping = (-x '/usr/sbin/fping') || undef;
!$fping && return undef;
my @output = `/usr/sbin/fping -B 1.0 -r 1 -t 50 -i 10 -p 50 @hostnames`;
my @no_response = ();
foreach my $line (@output)
{
my ($hostname, $token, $status) = split ' ', $line;
!(($token eq 'is') && ($status eq 'alive'))
&& (push @no_response, $hostname);
}
return @no_response;
}
#---------------------------------------------------------------------------