fix -P option, i broke with addition of xdcp hierarchy support

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4208 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2009-09-23 11:44:08 +00:00
parent bed6c2c541
commit a79986139e

View File

@ -67,6 +67,7 @@ sub preprocess_request
my @requests;
my $syncsn = 0;
my $syncsnfile;
my $dcppull = 0;
# read the environment variables for rsync setup
foreach my $envar (@{$req->{env}})
@ -81,6 +82,10 @@ sub preprocess_request
{ # if hierarchy,need to copy file to the SN
$syncsnfile = $value; # in the new /tmp/xcatrf.tmp
}
if ($var eq "DCP_PULL") # from -P flag
{
$dcppull = 1; # TBD handle pull hierarchy
}
}
# find service nodes for requested nodes
@ -160,8 +165,8 @@ sub preprocess_request
# to be sent to the CN.
# build a command to update the service nodes
# change the destination to the tmp location on
# the service node.
if ($command eq "xdcp")
# the service node, if not pull function
if (($command eq "xdcp") && ($dcppull == 0))
{
#make the needed directory on the service node
@ -236,7 +241,8 @@ sub preprocess_request
else
{ # if other dcp command, change from directory
# to be the tmp directory on the service node
if ($command eq "xdcp")
# if not pull (-P) funcion
if (($command eq "xdcp") && ($dcppull == 0))
{
$newSNreq->{arg}->[-2] = $SNpath;
}