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

fix in verify_targets routine to make long hostname into short before passing to pping

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3216 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2009-04-17 18:13:44 +00:00
parent 4824e01617
commit a571e4a7ed
1 changed files with 2 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
perl-xCAT/xCAT/DSHCLI.pm
View File

@ -3018,51 +3018,8 @@ sub verify_targets
my @ping_list;
foreach my $user_target (keys(%$resolved_targets))
{
my $context = $$resolved_targets{$user_target}{'context'};
my $hostname = $$resolved_targets{$user_target}{'hostname'};
eval "require Context::$context";
my $mode = $context->verify_mode($hostname);
my $rsp = {};
if (($mode eq "Managed") && ($context->verify_target($hostname) == 1))
{
my $target = $context->verify_target();
$rsp->{data}->[0] = "TRACE:Verifying $hostname with $target.";
$dsh_trace
&& xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
}
elsif ($mode eq "MinManaged")
{
if ($context->verify_target($hostname) == 1)
{
my $target = $context->verify_target();
$rsp->{data}->[0] = "TRACE:Verifying $hostname with $target.";
$dsh_trace
&& xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
}
elsif ($context->verify_target($hostname) == 0)
{
$rsp->{data}->[0] =
"$user_target is not responding. No command will be issued to this host.";
xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
$rsp->{data}->[0] =
"dsh> Remote_command_cancelled $user_target";
$$dsh_options{'monitor'}
&& xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
push @{$dsh_target_status{'canceled'}}, $user_target;
delete $$resolved_targets{$user_target};
}
else
{
push @ping_list, $hostname;
}
}
else
{
push @ping_list, $hostname;
}
my @shorthostname = split(/\./, $user_target);
push @ping_list, $shorthostname[0];
}
if (@ping_list)