From ee02e417d9cb8dda0e6542e3c7887099acea872b Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 5 Dec 2012 14:00:48 +0000
Subject: [PATCH]  have --nodestatus return status if node unreachable

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@14560 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/DSHCLI.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/perl-xCAT/xCAT/DSHCLI.pm b/perl-xCAT/xCAT/DSHCLI.pm
index 8d1e81e93..08612a8fa 100644
--- a/perl-xCAT/xCAT/DSHCLI.pm
+++ b/perl-xCAT/xCAT/DSHCLI.pm
@@ -3257,9 +3257,19 @@ sub verify_targets
             foreach my $user_target (@targets)
             {
                 my $rsp = {};
+
                 $rsp->{error}->[0] =
                   "$user_target is not responding. No command will be issued to this host.";
                 xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
+                # report error status  --nodestatus
+                # Note the message below for node status must
+                # not be NLS translated.  Code depends on the English. 
+                if ($$options{'nodestatus'}) {
+                   my $rsp={};
+                  $rsp->{data}->[0] =
+                  "$user_target: Remote_command_failed";
+                   xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
+                }
 
                 my $rsp = {};
                 $rsp->{error}->[0] =