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

add use strict

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1890 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2008-07-18 12:04:28 +00:00
parent 79c414d841
commit 10f7afc91b
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
xCAT-server/lib/xcat/plugins/xdsh.pm
View File

@ -12,6 +12,7 @@
#-------------------------------------------------------
package xCAT_plugin::xdsh;
use strict;
require xCAT::Table;
require xCAT::Utils;
@ -53,9 +54,11 @@ sub preprocess_request
my $req = shift;
my $cb = shift;
my %sn;
my $sn;
if ($req->{_xcatdest}) { return [$req]; } #exit if preprocessed
my $nodes = $req->{node};
my $service = "xcat";
my @requests;
# find service nodes for requested nodes
# build an individual request for each service node
@ -92,7 +95,7 @@ sub process_request
my $command = $request->{command}->[0];
my $args = $request->{arg};
my $envs = $request->{env};
my %rsp;
my $rsp={} ;
# get the Environment Variables and set them in the current environment
foreach my $envar (@{$request->{env}})
@ -113,7 +116,7 @@ sub process_request
}
else
{
my %rsp;
my $rsp={};
$rsp->{data}->[0] =
"Unknown command $command. Cannot process the command.";
xCAT::MsgUtils->message("E", $rsp, $callback, 1);
@ -136,10 +139,9 @@ sub xdsh
{
my ($nodes, $args, $callback, $command, $noderange) = @_;
#`touch /tmp/lissadebug`;
my $rsp={};
# parse dsh input
@local_results =
my @local_results =
xCAT::DSHCLI->parse_and_run_dsh($nodes, $args, $callback,
$command, $noderange);
push @{$rsp->{data}}, @local_results;
@ -165,10 +167,10 @@ sub xdcp
#`touch /tmp/lissadebug`;
# parse dcp input
@local_results =
my @local_results =
xCAT::DSHCLI->parse_and_run_dcp($nodes, $args, $callback,
$command, $noderange);
my %rsp;
my $rsp={};
my $i = 0;
## process return data
foreach my $line (@local_results)