From 299fb094e70bafc0eba3c4d25b74430b60d7b4f0 Mon Sep 17 00:00:00 2001 From: lissav Date: Wed, 19 Dec 2007 16:04:20 +0000 Subject: [PATCH] Change from using dping to pping for dsh xdsh -v option git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@190 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT-2.0/xCAT/DSHCore.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/perl-xCAT-2.0/xCAT/DSHCore.pm b/perl-xCAT-2.0/xCAT/DSHCore.pm index 0102c8bca..bbd47e6ee 100644 --- a/perl-xCAT-2.0/xCAT/DSHCore.pm +++ b/perl-xCAT-2.0/xCAT/DSHCore.pm @@ -687,9 +687,9 @@ sub resolve_hostnames #--------------------------------------------------------------------------- =head3 - dping_hostnames + pping_hostnames - Executes dping on a given list of hostnames and returns a list of those + Executes pping on a given list of hostnames and returns a list of those hostnames that did not respond Arguments: @@ -705,7 +705,7 @@ sub resolve_hostnames None Example: - @bad_hosts = xCAT::DSHCore->dping_hostnames(@host_list); + @bad_hosts = xCAT::DSHCore->pping_hostnames(@host_list); Comments: @@ -713,13 +713,13 @@ sub resolve_hostnames #--------------------------------------------------------------------------- -sub dping_hostnames +sub pping_hostnames { my ($class, @hostnames) = @_; my $hostname_list = join ",", @hostnames; my @output = - xCAT::Utils->runcmd("/opt/csm/bin/dping -H $hostname_list", -1); + xCAT::Utils->runcmd("pping -H $hostname_list", -1); my @no_response = (); foreach $line (@output)