From ee3087705986f28d3474b8a1d349f0b7077ca2d7 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 2 Jul 2012 12:55:37 +0000
Subject: [PATCH] fix defect 3538653

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

diff --git a/perl-xCAT/xCAT/DSHCLI.pm b/perl-xCAT/xCAT/DSHCLI.pm
index a15d1f10c..894560c27 100644
--- a/perl-xCAT/xCAT/DSHCLI.pm
+++ b/perl-xCAT/xCAT/DSHCLI.pm
@@ -785,6 +785,7 @@ sub fork_fanout_dcp
             #eval "require RemoteShell::$rsh_extension";
             eval "require xCAT::$rsh_extension";
             my $remoteshell = "xCAT::$rsh_extension";
+            # HERE: Build the dcp command based on the arguments
             @dcp_command =
               $remoteshell->remote_copy_command(\%rcp_config, $remote_copy);
 
@@ -4372,8 +4373,12 @@ sub parse_and_run_dcp
 
             else
             {
-                $options{'target'} = '';
-                $options{'source'} = pop @ARGV;
+                # HERE:only one line of input source and target in that line
+                # such as xdcp -R " /test/* /test"
+                my $tmparg = pop @ARGV;
+                my ($src,$tgt) = split " ", $tmparg;
+                $options{'target'} = $tgt;
+                $options{'source'} = join $::__DCP_DELIM, $src;
             }
         }
 
@@ -4387,6 +4392,7 @@ sub parse_and_run_dcp
 
         else
         {
+            # Get the source and the target 
             $options{'target'} = pop @ARGV;
             $options{'source'} = join $::__DCP_DELIM, @ARGV;
         }
@@ -4394,6 +4400,7 @@ sub parse_and_run_dcp
     }
 
     # Execute the dcp api
+    # HERE:  Run xdcp
     @results = xCAT::DSHCLI->runDcp_api(\%options, 0);
     $::FAILED_NODES = $::RUNCMD_RC;